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