TSViewer.mesa
Michael Plass, November 15, 1982 2:50 pm
DIRECTORY
Rope, PressScreen;
TSViewer: DEFINITIONS =
BEGIN
ROPE: TYPE = Rope.ROPE;
Tool: TYPE = REF ToolRec;
ToolRec: TYPE;
NewTool: PROCEDURE [server: ROPE] RETURNS [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: BOOLEANTRUE];
Sets the 'Temporary Press Files' parameter
END.
Michael Plass, November 15, 1982 2:49 pm. Added StopSending and Screen.