Index: library/nx/nx.tcl =================================================================== diff -u -r5a162b098b6a9550218646d470b274769bda8da1 -r53113de78cadfd4913718676222d6021d4e7a3fc --- library/nx/nx.tcl (.../nx.tcl) (revision 5a162b098b6a9550218646d470b274769bda8da1) +++ library/nx/nx.tcl (.../nx.tcl) (revision 53113de78cadfd4913718676222d6021d4e7a3fc) @@ -888,14 +888,15 @@ :method "info method returns" {name} {: ::nsf::methods::class::info::method returns $name} :method "info method callprotection" {name} { if {[::nsf::method::property [self] $name call-protected]} { - puts stderr "YES" return protected } elseif {[::nsf::method::property [self] $name call-private]} { return private } else { return public } } + :method "info method deprecated" {name} {::nsf::method::property [self] $name deprecated} + :method "info method debug" {name} {::nsf::method::property [self] $name debug} } Object eval { @@ -928,6 +929,8 @@ return public } } + :method "info object method deprecated" {name} {::nsf::method::property [self] -per-object $name deprecated} + :method "info object method debug" {name} {::nsf::method::property [self] -per-object $name debug} } ######################################################################