TSExtras.mesa
Michael Plass, December 10, 1982 2:27 pm
Last Edited by: Beach, May 18, 1983 3:22 pm
DIRECTORY
Rope, TextNode, ViewerClasses;
TSExtras: 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];
END.
Edited on May 16, 1983 3:48 pm, by Beach
Add PrintSuppliedNodes interface for printing Walnut message sets.