Index: library/nx/nx.tcl =================================================================== diff -u -r99993215e25c11fa8c1467f4ee5cfd1dc71c250e -rd6a22408f08fb02ee6043b2243957922a75fbeef --- library/nx/nx.tcl (.../nx.tcl) (revision 99993215e25c11fa8c1467f4ee5cfd1dc71c250e) +++ library/nx/nx.tcl (.../nx.tcl) (revision d6a22408f08fb02ee6043b2243957922a75fbeef) @@ -40,7 +40,7 @@ set cmdName [namespace tail $cmd] if {$cmdName in [list "autoname" "cleanup" "exists" \ "filterguard" "instvar" "mixinguard" \ - "requirenamespace"]} continue + "noinit" "requirenamespace"]} continue ::nsf::alias Object $cmdName $cmd } @@ -65,7 +65,7 @@ # set a few aliases as protected # "__next", if defined, should be added as well - foreach cmd [list noinit residualargs uplevel upvar] { + foreach cmd [list residualargs uplevel upvar] { ::nsf::methodproperty Object $cmd call-protected 1 } @@ -938,7 +938,7 @@ lappend parameterdefinitions -attributes:method } lappend parameterdefinitions \ - -noinit:method,noarg \ + -noinit:method,arg=::nsf::methods::object::noinit,noarg \ -volatile:method,noarg \ {*}$lastparameter #puts stderr "*** parameter definition for [::nsf::self]: $parameterdefinitions"