DIRECTORY Rope, PieViewers, PressScreen, PseudoCursors, ViewerClasses; TSViewer: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; Tool: TYPE = REF ToolRec; ToolRec: TYPE = RECORD [ stop: BOOLEAN _ FALSE, stopSending: BOOLEAN _ FALSE, selfDestruct: BOOLEAN _ FALSE, pause: BOOLEAN _ FALSE, idle: CONDITION, process: PROCESS _ NIL, nameButton: ViewerClasses.Viewer _ NIL, nameBox: ViewerClasses.Viewer _ NIL, currentName: ROPE _ NIL, pressName: ROPE _ NIL, messageBox: ViewerClasses.Viewer _ NIL, messageRope: ROPE _ NIL, messageLog: ROPE _ NIL, miniDisplay: PseudoCursors.PseudoCursor _ NIL, pie: PieViewers.PieViewer _ NIL, singleOutputFile: BOOLEAN _ FALSE, debug: BOOLEAN _ FALSE, tempPressLabel: ViewerClasses.Viewer _ NIL, tempPress: BOOLEAN _ FALSE, serverName: ROPE _ NIL, serverPie: PieViewers.PieViewer _ NIL, serverMsg: ViewerClasses.Viewer _ NIL, serverProcess: PROCESS _ NIL, serverIdle: CONDITION, copiesBox: ViewerClasses.Viewer _ NIL ]; NewTool: PROCEDURE [server: ROPE] RETURNS [data: Tool]; QueueRequest: PROCEDURE [tool: Tool, documentName: ROPE]; WaitForIdle: PROCEDURE [tool: Tool]; Stop: PROCEDURE [tool: Tool]; Pause: PROCEDURE [tool: Tool]; StopSending: PROCEDURE [tool: Tool]; Print: PROCEDURE [tool: Tool]; PrintAll: PROCEDURE [tool: Tool]; Screen: PROCEDURE [tool: Tool, side: PressScreen.Side]; Copies: PROCEDURE [tool: Tool, copies: NAT]; TempPress: PROCEDURE [tool: Tool, temporaryPressFiles: BOOLEAN _ TRUE]; END. Michael Plass, November 15, 1982 2:49 pm. Added StopSending and Screen. *TSViewer.mesa Michael Plass, November 15, 1982 2:50 pm Last Edited by: Beach, May 7, 1984 3:56:31 pm PDT creates a new viewer Adds the named document to the tool's queue Waits until the typesetter stops running Like clicking the Stop button Like clicking the Pause button Like clicking the StopSending button Like clicking the Print button Typesets the whole queue, producing a single output file Like clicking one of < Screen > ; side is leftSide, bothSides, or rightSide. Sets the 'Copies' parameter Sets the 'Temporary Press Files' parameter Κ– "cedar" style˜JšΟc ™ Jšœ™)J™1šΟk ˜ Jšœ<˜