RegisterOwned
(Available in 00 TS Tools(Base) - TS_Tools_Root2)
Purpose
CALLBACK: Called when a owned registers itself
Arguments
Description
Can be overridden to detect when a owned object is registerd
Important! This is a event send by the library. Normally, it should not be called in/by your application code.
Returns
Return = TRUE if succeeded
Source
METHOD RegisterOwned( oOwned AS OBJECT ) AS LOGIC PASCAL CLASS TS_Root2
LOCAL lRetVal AS LOGIC
LOCAL X AS DWORD
TSTrace Enter
IF SELF:_Owneds<>NULL_ARRAY
X:=AScan( SELF:_Owneds, oOwned )
IF LOGIC( _CAST, X )
TSTrace Warning "AScan(SELF:_Owneds,oOwned)<>0"
lRetVal:=FALSE
ELSE
AAdd( SELF:_Owneds, oOwned )
lRetVal:=TRUE
END
ELSE
TSTrace Warning "SELF:_Owneds==NULL_ARRAY"
lRetVal:=FALSE
END
TSTrace Leave
RETURN lRetVal