UnRegisterOwner
(Available in 00 TS Tools(Base) - TS_Tools_Root2)
Purpose
CALLBACK: Called when a owner unregisters itself
Arguments
oOwner
|
OBJECT
|
lOwner
|
LOGIC
|
Description
Can be overridden to detect when a owner object is unregisterd
Important! This is a event send by the library. Normally, it should not be called in/by your application code.
If the 'lOwner' parameter is TRUE the the 'UnRegisterOwner()' method has been invoked by the owner object, if the parameter is FALSE then the method has been called by SELF.
Returns
oDestructor = OBJECT(TS_Destructor|NULL_OBJECT)
Source
METHOD UnRegisterOwner( oOwner AS OBJECT, lOwner AS LOGIC ) AS TS_Destructor PASCAL ; ...
...CLASS TS_Root2
LOCAL oDestructor AS TS_Destructor
TSTrace Enter
SELF:_ObjectStat2:=_OR( SELF:_ObjectStat2 ; ...
... , TS_OBJSTAT2_REGISTER_DISABLED )
DO CASE
CASE SELF:_Owner==NULL_OBJECT
TSTrace Warning "SELF:_Owner==NULL_OBJECT"
oDestructor:=NULL_OBJECT
CASE SELF:_Owner<>oOwner
TSTrace Warning "SELF:_Owner<>oOwner"
oDestructor:=NULL_OBJECT
CASE LOGIC( _CAST, _AND( SELF:_ObjectStat2, TS_OBJSTAT2_SELFDESTRUCTED1 ; ...
... ) )
TSTrace Warning "LOGIC(_CAST,_And(SELF:_ObjectStat2,TS_OBJSTAT2_SELFDESTRUCTED1))"
oDestructor:=NULL_OBJECT
CASE LOGIC( _CAST, _AND( SELF:_ObjectStat2, TS_OBJSTAT2_SELFDESTRUCTED2 ; ...
... ) )
TSTrace Warning "LOGIC(_CAST,_And(SELF:_ObjectStat2,TS_OBJSTAT2_SELFDESTRUCTED2))"
oDestructor:=