Index: generic/predefined.xotcl =================================================================== diff -u -r80dbbc5075b96ca2d25ebf426204398f68411e17 -rc990d14157d8434cd5b1ee5f45aa43f82cb911b5 --- generic/predefined.xotcl (.../predefined.xotcl) (revision 80dbbc5075b96ca2d25ebf426204398f68411e17) +++ generic/predefined.xotcl (.../predefined.xotcl) (revision c990d14157d8434cd5b1ee5f45aa43f82cb911b5) @@ -104,6 +104,7 @@ ::xotcl::alias ::xotcl::classInfo classparent ::xotcl::cmd::ObjectInfo::parent ::xotcl::alias ::xotcl::classInfo classchildren ::xotcl::cmd::ObjectInfo::children unset cmd + ::xotcl::Object instforward info -onerror ::xotcl::infoError ::xotcl::objectInfo %1 {%@2 %self} ::xotcl::Class instforward info -onerror ::xotcl::infoError ::xotcl::classInfo %1 {%@2 %self} @@ -265,6 +266,7 @@ if {$domain eq ""} { set domain [::xotcl::self callingobject] } + #puts stderr "???? $domain $forwarder $name -default [$manager defaultmethods] $manager %1 %self %proc" $domain $forwarder $name -default [$manager defaultmethods] $manager %1 %self %proc } @@ -343,9 +345,9 @@ ::xotcl::alias ::xotcl::Object::slot::class assign ::xotcl::relation ::xotcl::InterceptorSlot create ::xotcl::Object::slot::mixin -::xotcl::InterceptorSlot create ::xotcl::Object::slot::filter -elementtype "" + ::xotcl::InterceptorSlot create ::xotcl::Object::slot::filter -elementtype "" ::xotcl::InterceptorSlot create ::xotcl::Class::slot::instmixin -::xotcl::InterceptorSlot create ::xotcl::Class::slot::instfilter -elementtype "" + ::xotcl::InterceptorSlot create ::xotcl::Class::slot::instfilter -elementtype "" # # Attribute