[Indigo]<Cedar5.3>TSetter>TSViewer.mesa!1

TSViewer.mesa

Michael Plass, November 15, 1982 2:50 pm

Last Edited by: Beach, May 7, 1984 3:56:31 pm PDT

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];

creates a new viewer

QueueRequest: PROCEDURE [tool: Tool, documentName: ROPE];

Adds the named document to the tool's queue

WaitForIdle: PROCEDURE [tool: Tool];

Waits until the typesetter stops running

Stop: PROCEDURE [tool: Tool];

Like clicking the Stop button

Pause: PROCEDURE [tool: Tool];

Like clicking the Pause button

StopSending: PROCEDURE [tool: Tool];

Like clicking the StopSending button

Print: PROCEDURE [tool: Tool];

Like clicking the Print button

PrintAll: PROCEDURE [tool: Tool];

Typesets the whole queue, producing a single output file

Screen: PROCEDURE [tool: Tool, side: PressScreen.Side];

Like clicking one of < Screen > ; side is leftSide, bothSides, or rightSide.

Copies: PROCEDURE [tool: Tool, copies: NAT];

Sets the 'Copies' parameter

TempPress: PROCEDURE [tool: Tool, temporaryPressFiles: BOOLEAN ← TRUE];

Sets the 'Temporary Press Files' parameter

END.

Michael Plass, November 15, 1982 2:49 pm. Added StopSending and Screen.