4 Jan
2005
4 Jan
'05
4:35 p.m.
Hi!
What I want to achieve is to get informed each time a Class is getting destroyed. I do need to know the name of the class and its calling environment (namespace).
What I did is:
Class create ::xotcl::_destroyer -instproc destroy {args} { puts "DESTROY '[self class]'" puts "DESTROY '[self calledclass]'" puts "DESTROY '[self callingclass]'" next } Class instmixin ::xotcl::_destroyer
Now...
Class Dummy Dummy destroy
... gives ...
DESTROY '::xotcl::_destroyer' DESTROY '::xotcl::Object' DESTROY ''
What I expected to get was "DESTROY 'Dummy'" or "DESTROY '::Dummy'" but this does not happen. Why?
Thanks, Zoran