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. fTSOps.mesa Operations for manipulating boxes and glue. Michael Plass, November 2, 1982 10:22 am Κ<– "Mesa" style˜JšΟc ™ Jš+™+Jš(™(J˜JšΟk œ)˜2Jšœžœ˜Jšžœžœ ˜Jšžœžœžœ˜J˜šΟnœž œ˜J˜J˜J˜Jšœ žœžœžœ˜Jš œ žœžœžœžœž˜"Jšœžœ˜J˜—šŸœž œ˜J˜J˜J˜ Jšœžœ˜#J˜—šŸœž œ˜J˜Jšœž˜ Jšœžœ˜J˜—šŸ œž œ˜2Jšžœ˜!J˜—Jšžœ˜J˜4—…—’D