Index: generic/predefined.h =================================================================== diff -u -r904066a25731aa8264c0e307dc3026b6ca17678c -r675e28583d105313f7fbc1dad66d2696c18b19f4 --- generic/predefined.h (.../predefined.h) (revision 904066a25731aa8264c0e307dc3026b6ca17678c) +++ generic/predefined.h (.../predefined.h) (revision 675e28583d105313f7fbc1dad66d2696c18b19f4) @@ -14,6 +14,9 @@ "Class method unknown {args} {\n" "puts stderr \"use '[self] create $args', not '[self] $args'\"\n" "eval my create $args}\n" +"Object method unknown {m args} {\n" +"if {![self isnext]} {\n" +"error \"[self]: unable to dispatch method '$m'\"}}\n" "Object method init args {}\n" "Object method objectparameter {} {;}\n" "Class create ParameterType\n" @@ -73,6 +76,9 @@ "::xotcl::methodproperty ::xotcl::Class create static true\n" "::xotcl::Class method unknown {args} {\n" "eval my create $args}\n" +"::xotcl::Object method unknown {m args} {\n" +"if {![self isnext]} {\n" +"error \"[self]: unable to dispatch method '$m'\"}}\n" "::xotcl::Object method init args {}\n" "::xotcl::Object method objectparameter {} {;}\n" "::xotcl::Class create ::xotcl::ParameterType\n"