SetEscapeString
(Available in 00 TS Tools(Base) - TS_Tools_Atomizer)
Source
METHOD SetEscapeString( cEscapeString AS STRING ) AS LOGIC PASCAL CLASS TS_Atomizer
LOCAL lRetVal AS LOGIC
TSTrace Enter
DO CASE
CASE LOGIC( _CAST, SELF:_ItemCreationBlocked )
TSTrace Warning "LOGIC(_CAST,SELF:_ItemCreationBlocked)"
lRetVal:=FALSE
CASE LOGIC( _CAST, SLen( cEscapeString ) )
IF SELF:_EscapeItem<>NULL_OBJECT
IF SELF:ItemDel( SELF:_EscapeItem:Item ; ...
... )
SELF:_EscapeItem:=NULL_OBJECT
SELF:_EscapeString:=NULL_STRING
lRetVal:=TRUE
ELSE
TSTrace Warning "!SELF:ItemDel(SELF:_EscapeItem:Item)"
lRetVal:=FALSE
END
ELSE
lRetVal:=TRUE
END
IF lRetVal
IF LOGIC( _CAST, SELF:_LocateItem( cEscapeString ) )