TSOps.mesa
Operations for manipulating boxes and glue.
Michael Plass, May 12, 1983 4:28 pm
Last Edited by: Beach, May 16, 1983 9:58 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, markList: TSObject.MarkList];
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];
NumberOfBoxesIn:
PROCEDURE [list: TSObject.ItemList]
RETURNS [numberOfBoxes:
INT ← 0];
FirstBoxOf:
PROCEDURE [list: TSObject.ItemList]
RETURNS [box: TSObject.Box ←
NIL];
GetSlimBoxFrom:
PROCEDURE [list: TSObject.ItemList]
RETURNS [box: TSObject.Box];
END.
Michael Plass, November 2, 1982 10:22 am. CEDARized.
Michael Plass, May 12, 1983 4:28 pm. Added markList to Package.
Rick Beach, May 16, 1983 9:50 am. Moved NumberOfBoxes and FirstBoxOf from TSArtworkImpl to TSOps.