UnRegisterOwned
(Available in 00 TS Tools(Base) - TS_Tools_Root2)
Purpose
CALLBACK: Called when a owned unregisters itself
Arguments
oOwned
|
OBJECT
|
lOwned
|
LOGIC
|
Description
Can be overridden to detect when a owned 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 'lOwned' parameter is TRUE the the 'UnRegisterOwned()' method has been invoked by the owned object, if the parameter is FALSE then the method has been called by SELF.
Returns
Return = TRUE if succeeded
Example
METHOD UnRegisterOwned( oOwned AS OBJECT, lOwned AS LOGIC ) AS LOGIC PASCAL CLASS ; ...
...CLASS SomeObject
LOCAL lRetVal AS LOGIC
DO CASE
CASE SELF:_MyIX==oOwned
SELF:_MyIX:=NULL_OBJECT
CASE SELF:_MyIY==oOwned
SELF:_MyIY:=NULL_OBJECT
END
lRetVal:=SUPER:UnRegisterIOwned( oOwned, lOwned )
RETURN lRetVal
Source
METHOD UnRegisterOwned( oOwned AS OBJECT, lOwned AS LOGIC ) AS LOGIC PASCAL CLASS ; ...
...TS_Root2
LOCAL oDestructor AS TS_Destructor
LOCAL lRetVal AS LOGIC
LOCAL X AS DWORD
TSTrace Enter
IF SELF:_Owneds<>NULL_ARRAY
X:=AScan(