PipalWB.mesa 
Copyright Ó 1988 by Xerox Corporation. All rights reserved.
Louis Monier January 22, 1988 7:04:34 pm PST
Bertrand Serlet January 28, 1988 1:03:48 am PST
DIRECTORY Pipal, PipalInt, Rope;
PipalWB: CEDAR DEFINITIONS = BEGIN
Theory
A simple representation for text in boxes
Classes
Boxed Text
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.