Index: library/nx/nx.tcl =================================================================== diff -u -r4cc848854bf05b205e027413420fde138a57ddba -rdc2dc691003a7afa24a9c4ec72f91ece7a10d804 --- library/nx/nx.tcl (.../nx.tcl) (revision 4cc848854bf05b205e027413420fde138a57ddba) +++ library/nx/nx.tcl (.../nx.tcl) (revision dc2dc691003a7afa24a9c4ec72f91ece7a10d804) @@ -229,7 +229,7 @@ set p [lsearch -regexp $args {^(method|alias|attribute|forward|setter)$}] if {$p == -1} {error "$args is not a method defining method"} set r [{*}:$args] - ::nsf::methodproperty [::nsf::self] $r call-protected false + if {$r ne ""} {::nsf::methodproperty [::nsf::self] $r call-protected false} return $r } @@ -238,7 +238,7 @@ set p [lsearch -regexp $args {^(method|alias|attribute|forward|setter)$}] if {$p == -1} {error "$args is not a method defining command"} set r [{*}:$args] - ::nsf::methodproperty [::nsf::self] $r call-protected true + if {$r ne ""} {::nsf::methodproperty [::nsf::self] $r call-protected true} return $r } } @@ -1527,7 +1527,7 @@ set ::nsf::parametersyntax(::nsf::classes::nx::Object::eval) "arg ?arg ...?" unset value - ::nsf::configure debug 0 + ::nsf::configure debug 1 } #######################################################################