Index: library/nx/nx.tcl =================================================================== diff -u -rd56697c9bad9703c7d627479b80201ab9cfee09e -r496dfc7bd5088b8a90f1fe532cd22336c151b06d --- library/nx/nx.tcl (.../nx.tcl) (revision d56697c9bad9703c7d627479b80201ab9cfee09e) +++ library/nx/nx.tcl (.../nx.tcl) (revision 496dfc7bd5088b8a90f1fe532cd22336c151b06d) @@ -590,8 +590,8 @@ } } - #puts stderr "Bootstrapslot for $class calls __invalidateobjectparameter" - $class __invalidateobjectparameter + #puts stderr "Bootstrapslot for $class calls invalidateobjectparameter" + ::nsf::invalidateobjectparameter $class } ############################################ @@ -703,7 +703,7 @@ ObjectParameterSlot public method destroy {} { if {${:domain} ne "" && [::nsf::objectproperty ${:domain} class]} { - ${:domain} __invalidateobjectparameter + ::nsf::invalidateobjectparameter ${:domain} } ::nsf::next } @@ -717,7 +717,7 @@ set :methodname ${:name} } if {[::nsf::objectproperty ${:domain} class]} { - ${:domain} __invalidateobjectparameter + ::nsf::invalidateobjectparameter ${:domain} } if {${:per-object} && [info exists :default] } { ::nsf::setvar ${:domain} ${:name} ${:default} @@ -742,7 +742,7 @@ # # Invalidate previously defined object parameter. - MetaSlot __invalidateobjectparameter + ::nsf::invalidateobjectparameter MetaSlot # Provide the a slot based mechanism for building an object # configuration interface from slot definitions @@ -1015,7 +1015,7 @@ ############################################ # Attribute slots ############################################ - MetaSlot __invalidateobjectparameter + ::nsf::invalidateobjectparameter MetaSlot # @object ::nx::Attribute #