ItemDel
(Available in 00 TS Tools(Base) - TS_Tools_Atomizer)
Source
METHOD ItemDel( cItem AS STRING ) AS LOGIC PASCAL CLASS TS_Atomizer
LOCAL oAtomizerItem AS TS_AtomizerItem
LOCAL lRetVal AS LOGIC
LOCAL iItem AS DWORD
TSTrace Enter
IF LOGIC( _CAST, SELF:_ItemCreationBlocked )
TSTrace Warning "LOGIC(_CAST,SELF:_ItemCreationBlocked)"
lRetVal:=FALSE
ELSE
iItem:=SELF:_LocateItem( cItem )
IF LOGIC( _CAST, iItem )
oAtomizerItem:=SELF:_ItemsAtivated[ iItem ]
IF SELF:_EscapeItem==oAtomizerItem
TSTrace Warning "SELF:_EscapeItem==oAtomizerItem"
SELF:_EscapeItem:=NULL_OBJECT
SELF:_EscapeString:=NULL_STRING
END
IF SELF:_FirstWhite==oAtomizerItem
TSTrace Warning "SELF:_FirstWhite==oAtomizerItem"
SELF:_FirstWhite:=NULL_OBJECT
END
IF SELF:_ItemInComment==oAtomizerItem
TSTrace Warning