MultiLine
(Available in 00 TS Tools(Base) - TS_Tools_Atomizer)
Source
ASSIGN MultiLine( lMultiLine AS LOGIC ) AS LOGIC PASCAL CLASS TS_Atomizer
TSTrace Enter
DO CASE
CASE LOGIC( _CAST, SELF:_ItemCreationBlocked )
TSTrace Warning "LOGIC(_CAST,SELF:_ItemCreationBlocked)"
CASE SELF:_MultiLine<>lMultiLine
SELF:_MultiLine:=lMultiLine
SELF:_ItemInComment:=NULL_OBJECT
END
TSTrace Leave
RETURN SELF:_MultiLine