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.    Ž  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 ÊŽ  –"cedar" style˜ JšÏc
™
Jš+™+Jš#™#J™+JšÏk	œ)˜2Jšœžœ˜Jšžœžœ	˜Jšžœžœžœ˜J˜ šÏnœž	œ˜J˜J˜J˜Jšœžœžœžœ˜Jš
œžœžœžœžœž˜"Jšœžœ2˜;J˜ —šŸœž	œ˜J˜J˜J˜
Jšœžœ˜#J˜ —šŸœž	œ˜J˜Jšœž˜
Jšœžœ˜J˜ —šŸœž	œ˜2Jšžœ˜!J˜ —šŸœž	œžœžœ˜VJ˜ —šŸ
œž	œžœžœ˜RJ˜ —šŸœž	œžœ˜PJ˜ —Jšžœ˜J˜4Jšœ?˜?J˜a— …—    ^  z  