IsDestroyed
(Available in 01 TS COM - TS_COM_IUnknown)
Purpose
Set the 'IsIndestroy' flag
Syntax
SELF:IsInDestroy:=TRUE
Arguments
Description
This method is normaly only called from the 'Destroy()' method and sets the 'IsIndestroy' flag to TRUE, this flag can not be set FALSE. This flag should be set TRUE form the 'Destroy()' method ( as soon as posible in the method ).
Example
METHOD Destroy( ) CLASS SomeIClass
// Let it be known that we are destroying the object
SELF:IsInDestroy:=TRUE
// Do the destructive work
...
// All work should be done before calling SUPER
SUPER:Destroy( )
RETURN NIL
Source
ACCESS IsDestroyed CLASS TS_IUnknown
LOCAL lIsDestroyed AS LOGIC
TSTrace Enter
IF LOGIC( _CAST, _AND( SELF:_ObjectStat1, TS_OBJSTAT1_DESTROYED ; ...
... ) )
lIsDestroyed:=TRUE
ELSE
lIsDestroyed:=FALSE
END
TSTrace Leave
RETURN lIsDestroyed