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.ROPENIL,
copies: INT ← 1,
messageProc: PROC [Rope.ROPE] ← NIL
];
PrintSuppliedNodes: PROCEDURE [
nodeProc: NodeProc,
nameForSeparatorPage: Rope.ROPE,
aborted: REF BOOLEAN,
server: Rope.ROPENIL,
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.