<> <> <> DIRECTORY Rope, TextNode, ViewerClasses; TSExtras: 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. <> <>