Index: library/nx/nx.tcl =================================================================== diff -u -r02226155f55d727ec7c7ef92e8d47387e8a4ea38 -rd1ed482555d4d28dbb41fb9ca2723eabb5e01221 --- library/nx/nx.tcl (.../nx.tcl) (revision 02226155f55d727ec7c7ef92e8d47387e8a4ea38) +++ library/nx/nx.tcl (.../nx.tcl) (revision d1ed482555d4d28dbb41fb9ca2723eabb5e01221) @@ -209,7 +209,6 @@ return [::nsf::dispatch [::nsf::current object] ::nsf::cmd::Object::$what {*}$args] } } - # define unknown handler for class :method unknown {m args} { error "Method '$m' unknown for [::nsf::current object].\ @@ -219,6 +218,7 @@ ::nsf::methodproperty [::nsf::current object] unknown protected true } + Object eval { # method modifier "public" @@ -275,6 +275,7 @@ # tries to resolve the class again. This meachnism is used e.g. by # the ::ttrace mechanism for partial loading by Zoran. # + Class protected class-object method __unknown {name} {} # Add alias methods. cmdName for a method can be added via @@ -291,6 +292,7 @@ {*}[expr {${nonleaf} ? "-nonleaf" : ""}] \ $cmd } + Class public method alias {-nonleaf:switch -objscope:switch methodName cmd} { array set "" [:__resolve_method_path -create -verbose $methodName] #puts "class alias $(object).$(methodName) $cmd" @@ -1517,4 +1519,5 @@ unset bootstrap } +puts stderr =======NX-done