File: WalnutPrintOps.mesa
Contents: Implementation of printing of Msgs, MsgSets, MsgSetTOC's
Created by: Willie-Sue, June 29, 1983
Last edit by:
Willie-Sue on: October 15, 1984 9:54:16 am PDT
DIRECTORY
Menus USING [MenuProc],
Rope USING [ROPE],
ViewerClasses USING [Viewer],
WalnutWindowInternal USING [MsgSetButton];
WalnutPrintOps: CEDAR DEFINITIONS =
BEGIN
ROPE: TYPE = Rope.ROPE;
Viewer: TYPE = ViewerClasses.Viewer;
MsgSetPrintProc:
PROC[viewer: Viewer, usePress:
BOOL];
prints msgset with press or interpress, using the msgset viewer
MsgSetTOCPrintProc:
PROC[viewer: Viewer, usePress:
BOOL];
prints msgset with press or interpress, using the msgset viewer
MsgPrintProc:
PROC[viewer: Viewer, usePress:
BOOL];
prints msg with press or interpress, using the msg viewer
AbortPrintProc: Menus.MenuProc;
PrintMsgSet:
PROC[msgSet:
ROPE, usePress:
BOOL ←
TRUE]
RETURNS[allOK:
BOOL];
uses walnut control window
PrintMsgSetTOC:
PROC[msgSet:
ROPE, usePress:
BOOL ←
TRUE]
RETURNS[allOK:
BOOL];
uses walnut control window
PrintMsgList:
PROC[
mList: LIST OF ROPE, msViewer: Viewer,
server: ROPE ← NIL, usePress: BOOL ← TRUE, copies: INT ← 1]
RETURNS[allOK: BOOL];
uses msgset viewer
these next proc are called from WalnutWindowCommandsImpl - they allow the user to specify the printer to use and the number of copies
PrintMsgSetCmd:
PROC[
msgSet: ROPE, server: ROPE ← NIL, usePress: BOOL ← TRUE, copies: INT ← 1];
PrintMsgSetTOCCmd:
PROC[
msgSet: ROPE, server: ROPE ← NIL, usePress: BOOL ← TRUE, copies: INT ← 1];
PrintSelCmd:
PROC[
msgSet: ROPE, server: ROPE ← NIL, usePress: BOOL ← TRUE, copies: INT ← 1];
prints the selected msg in named msgSet
PrintMsgCmd:
PROC[msg:
ROPE, server:
ROPE ←
NIL, usePress:
BOOL ←
TRUE, copies:
INT ← 1];
prints the named msg
makes a tioga document for a list of msgSets
WriteMsgSets: PROC[msgSetList: LIST OF WalnutWindowInternal.MsgSetButton, fileName: ROPE];
END.