<> <> <> <> DIRECTORY IO, Rope, PieViewers, PressScreen, PseudoCursors, ViewerClasses; TSViewer: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; RemoteOrLocalState: TYPE = {bestPerformance, localOnly, remoteOnly}; 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, remoteBox: ViewerClasses.Viewer _ NIL, remoteState: RemoteOrLocalState _ bestPerformance, serverName: ROPE _ NIL, serverPie: PieViewers.PieViewer _ NIL, serverMsg: ViewerClasses.Viewer _ NIL, serverProcess: PROCESS _ NIL, serverIdle: CONDITION, copiesBox: ViewerClasses.Viewer _ NIL, feedBack: IO.STREAM _ NIL ]; NewTool: PROCEDURE [server: ROPE, feedBack: IO.STREAM] 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]; < ; side is leftSide, bothSides, or rightSide.>> 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. <> <> <<>> <<>>