TSExtras
.mesa
Michael Plass,
December 10, 1982 2:27 pm
DIRECTORY
Rope, 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
];
END.