TSViewer.mesa
Michael Plass, November 15, 1982 2:50 pm
Last Edited by: Beach, May 7, 1984 3:56:31 pm PDT
Bob Hagmann November 21, 1985 4:24:52 pm PST
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];
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.
Bob Hagmann November 22, 1985 7:49:41 am PST
added remoteBox and remoteState to ToolRec; added RemoteOrLocalState