Index: library/nx/nx.tcl =================================================================== diff -u -r27e11788125901ff468955117d165f70d3871ce0 -rd168a26bce713de8daa5bbe79d740926e961c5bc --- library/nx/nx.tcl (.../nx.tcl) (revision 27e11788125901ff468955117d165f70d3871ce0) +++ library/nx/nx.tcl (.../nx.tcl) (revision d168a26bce713de8daa5bbe79d740926e961c5bc) @@ -165,7 +165,7 @@ Class eval { # method-modifier for object specific methos - :method object {what args} { + :method class-object {what args} { if {$what in [list "alias" "attribute" "forward" "method" "setter"]} { return [::nsf::dispatch [::nsf::current object] ::nsf::classes::nx::Object::$what {*}$args] } @@ -258,7 +258,7 @@ # tries to resolve the class again. This meachnism is used e.g. by # the ::ttrace mechanism for partial loading by Zoran. # - Class protected object method __unknown {name} {} + Class protected class-object method __unknown {name} {} # Add alias methods. cmdName for a method can be added via # [... info method handle ] @@ -296,7 +296,7 @@ # Object method require {what args} { switch -- $what { - object { + class-object { set what [lindex $args 0] if {$what eq "method"} { ::nsf::require_method [::nsf::current object] [lindex $args 1] 1