RegisterOwned

(Available in 00 TS Tools(Base) - TS_Tools_Root2)

Purpose

CALLBACK: Called when a owned registers itself

Arguments

oOwned

OBJECT

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