TSOps.mesa
Operations for manipulating boxes and glue.
Michael Plass, November 2, 1982 10:22 am
DIRECTORY TSTypes, TSObject, TSGlue, TSFont, Rope;
TSOps: CEDAR DEFINITIONS =
BEGIN OPEN TSTypes;
ROPE: TYPE = Rope.ROPE;
Package:
PROCEDURE [
source: TSObject.ListReader,
direction: Direction,
desired: Dimensions,
itemCount: INT ← LAST[INT],
front, rear: LIST OF REF ANY ← NIL
] RETURNS [box: TSObject.Box];
BreakUp:
PROCEDURE [
list: TSObject.ItemList,
direction: TSObject.Direction,
size: Dimn
] RETURNS [new: TSObject.ItemList];
ItemListFromRope:
PROCEDURE [
font: TSFont.Ref,
rope: ROPE
] RETURNS [TSObject.ItemList];
InsertLeading:
PROCEDURE [self: TSObject.ItemList]
RETURNS [new: TSObject.ItemList];
END.
Michael Plass, November 2, 1982 10:22 am. CEDARized.