22 Nov
2005
22 Nov
'05
3:08 p.m.
Zoran, does this help? it will print
::xotcl::Class wants to create Foo ::Foo wants to create ::xotcl::__#1 ::Foo wants to create bar
You can do this also selectively for certain classes via mixins, or by defining an appropriate metaclass.
Greetings, -gustaf ----------------------------------------------------------------------------------------------------- Class instmixin add [Class new -instproc create {object args} { puts "[self] wants to create $object" next }]
Class Foo Foo new Foo bar