DIRECTORY Ascii, Containers USING [Container], IO, Rope, SirPress, TSFont, ViewerClasses USING [Viewer]; PrintLabelsDefs: DEFINITIONS = { entryHeight: CARDINAL = 15; -- how tall to make each line of items entryVSpace: CARDINAL = 8; -- vertical leading space between lines entryHSpace: CARDINAL = 10; -- horizontal space between items in a line ROPE: TYPE = Rope.ROPE; STREAM: TYPE = IO.STREAM; dash: CHAR = Ascii.ControlV; FontClass: TYPE = {body, bodyBold}; Handle: TYPE = REF MyRec; -- a REF to the data for a particular instance of the sample tool; multiple instances can be created. MyRec: TYPE = RECORD [ -- the data for a particular tool instance outer: Containers.Container _ NIL, -- handle for the enclosing container height: CARDINAL _ 0, -- height measured from the top of the container cmd: CommandViewer, -- the commands dim: DimRecord _ TRASH, in: STREAM, eof: BOOLEAN _ FALSE, out: STREAM, -- for press file press: SirPress.PressHandle _ NIL, fontCode: ARRAY FontClass OF SirPress.FontCode, fontInfo: ARRAY FontClass OF TSFont.Ref, boldNames: REF BOOL, yTop: INT, row, col: CARDINAL, tsIn, tsOut: STREAM, ts: ViewerClasses.Viewer ]; -- the typescript PromptRec: TYPE = RECORD [ handle: Handle, viewer: ViewerClasses.Viewer _ NIL]; PromptHandle: TYPE = REF PromptRec; CommandViewer: TYPE = RECORD [ inputFile, pressFile, fontFamily, fontSize, lineHeight, scale, dy, dx: ViewerClasses.Viewer ]; DimRecord: TYPE = RECORD [ fontSize, lineHeight, scale, dx, dy: INT]; }. RPrintLabelsDefs.mesa Last Edited by: Sweet, October 11, 1984 1:56:08 am PDT Κ(˜Iunitšœ™J™6šΟk ˜ Kšœ˜Jšœ œ ˜Jšœ˜Jšœ˜J˜ J˜Jšœœ ˜—J˜šœ œ˜ Jšœ œΟc&˜BJšœ œž'˜CJšœ œž+˜HJšœœœ˜Jšœœœœ˜Jšœœ˜J˜J˜J˜$J˜KšœœœžΠckž]˜procšœœœž+˜AJšœœž%˜HJšœœž0˜GJšœž˜$Jšœœ˜Jšœœœœ˜!Jšœœž˜Jšœœ˜"Jšœ œ œ˜/Jšœ œ œ ˜(Jšœ œœ˜Jšœœ˜ Jšœ œ˜Jšœ œ˜J˜Jšœž˜.J˜—šœ œœ˜Jšœ/œ˜4—Jšœœœ ˜#šœœœ˜Jšœ[˜[Jšœ˜J˜—šœ œœ˜Jšœ%œ˜*—J˜J˜——…—ΨR