Destroy
(Available in 00 TS Tools(Base) - TS_Tools_Atomizer)
Source
METHOD Destroy( ) CLASS TS_Atomizer
LOCAL oAtomizerItem AS TS_AtomizerItem
LOCAL aItemsCreated AS ARRAY
LOCAL X AS DWORD
TSTrace Enter
IF SELF:_AxitRegistered
SELF:UnRegisterAxit( )
END
SELF:_EscapeItem:=NULL_OBJECT
SELF:_EscapeString:=NULL_STRING
SELF:_FirstWhite:=NULL_OBJECT
SELF:_ItemInComment:=NULL_OBJECT
SELF:_SpareWhite:=NULL_OBJECT
SELF:_SpecialVOStringBeg:=NULL_OBJECT
SELF:_SpecialVOStringEnd:=NULL_OBJECT
SELF:_ItemCacheInfoDestroy( )
aItemsCreated:=SELF:_ItemsCreated
SELF:_ItemsAtivated:=NULL_ARRAY
SELF:_ItemsCreated:=NULL_ARRAY
IF aItemsCreated<>NULL_ARRAY
FOR X:=ALen( aItemsCreated ) DOWNTO 1U
oAtomizerItem:=aItemsCreated[ X ]
aItemsCreated[ X ]:=NIL
UnRegisterAxit( oAtomizerItem )
oAtomizerItem:Axit( )
oAtomizerItem:=NULL_OBJECT
NEXT
aItemsCreated:=NULL_ARRAY
END
SELF:_Owner:=NULL_OBJECT
TSTrace Leave