Index: library/nx/nx.tcl =================================================================== diff -u -N -r5d1617640ad71fd52b069f81cfcadbe4cbb6f2a2 -r102a1a9f4f678f98e7bcf7648ad1714147a29a47 --- library/nx/nx.tcl (.../nx.tcl) (revision 5d1617640ad71fd52b069f81cfcadbe4cbb6f2a2) +++ library/nx/nx.tcl (.../nx.tcl) (revision 102a1a9f4f678f98e7bcf7648ad1714147a29a47) @@ -1082,8 +1082,8 @@ ::nsf::var::set $slotObj config 1 } - #puts stderr "Bootstrap-slot for $class calls invalidateobjectparameter" - ::nsf::invalidateobjectparameter $class + #puts stderr "Bootstrap-slot for $class calls parameter:invalidate::classcache" + ::nsf::parameter:invalidate::classcache $class } ObjectParameterSlot public method namedParameterSpec {prefix name options} { @@ -1200,7 +1200,7 @@ set :methodname ${:name} } if {[::nsf::is class ${:domain}]} { - ::nsf::invalidateobjectparameter ${:domain} + ::nsf::parameter:invalidate::classcache ${:domain} } # # plain object parameter have currently no setter/forwarder @@ -1214,7 +1214,7 @@ # if {[info exists :domain] && ${:domain} ne ""} { if {[::nsf::is class ${:domain}]} { - ::nsf::invalidateobjectparameter ${:domain} + ::nsf::parameter:invalidate::classcache ${:domain} } #puts stderr "*** slot destroy of [self], domain ${:domain} per-object ${:per-object}" @@ -1339,7 +1339,7 @@ # Invalidate previously defined object parameter (built with the # empty objectparameter definition. # - ::nsf::invalidateobjectparameter MetaSlot + ::nsf::parameter:invalidate::classcache MetaSlot ###################################################################### # Define objectparameter method @@ -1520,7 +1520,7 @@ # # Make sure the invalidate all ObjectParameterSlots # - ::nsf::invalidateobjectparameter ::nx::ObjectParameterSlot + ::nsf::parameter:invalidate::classcache ::nx::ObjectParameterSlot # # Define method "guard" for mixin- and filter-slots of Object and Class @@ -1572,7 +1572,7 @@ ###################################################################### # Variable slots ###################################################################### - ::nsf::invalidateobjectparameter MetaSlot + ::nsf::parameter:invalidate::classcache MetaSlot MetaSlot create ::nx::VariableSlot -superclass ::nx::ObjectParameterSlot @@ -1722,7 +1722,7 @@ :setCheckedInstVar -nocomplain=[info exists :nocomplain] ${:domain} ${:default} } if {[::nsf::is class ${:domain}]} { - ::nsf::invalidateobjectparameter ${:domain} + ::nsf::parameter:invalidate::classcache ${:domain} } }