TSExtras.mesa
Michael Plass, December 10, 1982 2:27 pm
Last Edited by: Beach, May 7, 1984 4:21:41 pm PDT
DIRECTORY
Rope, TextNode, ViewerClasses;
TSExtras: CEDAR DEFINITIONS =
BEGIN
PrintTiogaViewer:
PROCEDURE [
viewer: ViewerClasses.Viewer,
nameForSeparatorPage: Rope.ROPE,
aborted: REF BOOLEAN,
server: Rope.ROPE ← NIL,
copies: INT ← 1,
messageProc: PROC [Rope.ROPE] ← NIL
];
PrintSuppliedNodes:
PROCEDURE [
nodeProc: NodeProc,
nameForSeparatorPage: Rope.ROPE,
aborted: REF BOOLEAN,
server: Rope.ROPE ← NIL,
copies: INT ← 1,
messageProc: PROC [Rope.ROPE] ← NIL
];
NodeProc:
TYPE =
PROCEDURE
RETURNS [node: TextNode.Ref
← NIL];
DisplayTiogaViewer:
PROCEDURE [
viewer: ViewerClasses.Viewer,
nameOfDisplayViewer: Rope.ROPE,
aborted: REF BOOLEAN
];
DisplaySuppliedNodes:
PROCEDURE [
nodeProc: NodeProc,
nameOfDisplayViewer: Rope.ROPE,
aborted: REF BOOLEAN
];
END.
Edited on May 16, 1983 3:48 pm, by Beach
Add PrintSuppliedNodes interface for printing Walnut message sets.