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 DESTROY
RETURN NIL