<> <> <> <> DIRECTORY Pipal, PipalInt, Rope; PipalWB: CEDAR DEFINITIONS = BEGIN <> <> <> <> boxedTextClass: Pipal.Class; BoxedText: TYPE = REF BoxedTextRec; BoxedTextRec: TYPE = RECORD[ rope: Rope.ROPE, size: PipalInt.Size]; -- as much of the rope as fits is displayed in the rectangular region CreateBoxedText: PROC [rope: Rope.ROPE, size: PipalInt.Size _ PipalInt.emptySize] RETURNS [boxedText: BoxedText]; <<-- if no size specified, it is the bbox of the text>> END.