Owneds
(Available in 00 TS Tools(Base) - TS_Tools_Root2)
Purpose
Get a list of objects owned
Syntax
aOwners:=oSomeClass:Owneds
Description
When this class is initialized with an owner, then the created object is registered at its owner as an 'owned' object. In this way a compleat object tree, containing owners and owneds, is created.
This behavior is especialy usefull for the static allocated classes by this meganism the 'SelfDestructOnUnRegisterOwner' property can be used to destroy the owned objects when the owner object is destroyed.
Example
ASend( SELF:Owneds, #SomeMethodName, ... ; ...
...)
Source
ACCESS Owneds AS ARRAY PASCAL CLASS TS_Root2
LOCAL aOwneds AS ARRAY
TSTrace Enter
IF SELF:_Owneds<>NULL_ARRAY
aOwneds:=AClone( SELF:_Owneds )
ELSE
aOwneds:=ArrayCreate( 0 )
END
TSTrace Leave
RETURN aOwneds