Index: generic/predefined.h =================================================================== diff -u -r9f7fa883bf6ed48f1401f815caca1e34f56584a1 -rdb7c710aa3b6386c33af9a318876f21a88b8aafd --- generic/predefined.h (.../predefined.h) (revision 9f7fa883bf6ed48f1401f815caca1e34f56584a1) +++ generic/predefined.h (.../predefined.h) (revision db7c710aa3b6386c33af9a318876f21a88b8aafd) @@ -36,12 +36,6 @@ "eval ::xotcl::alias [self] $methodName $cmd}}\n" "Object create ::xotcl2::objectInfo\n" "Object create ::xotcl2::classInfo\n" -"foreach cmd [info command ::xotcl::cmd::ObjectInfo::*] {\n" -"::xotcl::alias ::xotcl2::objectInfo [namespace tail $cmd] $cmd\n" -"::xotcl::alias ::xotcl2::classInfo [namespace tail $cmd] $cmd}\n" -"foreach cmd [info command ::xotcl::cmd::ClassInfo::*] {\n" -"::xotcl::alias ::xotcl2::classInfo [namespace tail $cmd] $cmd}\n" -"unset cmd\n" "::xotcl::dispatch objectInfo -objscope ::eval {\n" ".alias is -cmd ::xotcl::is\n" ".method info {obj} {\n" @@ -58,6 +52,12 @@ ".alias classchildren -cmd ::xotcl::cmd::ObjectInfo::children\n" ".alias info -source-object objectInfo -source-per-object -source-method info\n" ".alias unknown -source-object objectInfo -source-per-object -source-method unknown}\n" +"foreach cmd [info command ::xotcl::cmd::ObjectInfo::*] {\n" +"::xotcl::alias ::xotcl2::objectInfo [namespace tail $cmd] $cmd\n" +"::xotcl::alias ::xotcl2::classInfo [namespace tail $cmd] $cmd}\n" +"foreach cmd [info command ::xotcl::cmd::ClassInfo::*] {\n" +"::xotcl::alias ::xotcl2::classInfo [namespace tail $cmd] $cmd}\n" +"unset cmd\n" "Object instforward info -onerror ::xotcl::infoError ::xotcl2::objectInfo %1 {%@2 %self}\n" "Class instforward info -onerror ::xotcl::infoError ::xotcl2::classInfo %1 {%@2 %self}\n" "proc ::xotcl::infoError msg {\n"