CDRopeViewer.mesa
Copyright © 1984 by Xerox Corporation. All rights reserved.
Created by: Ch. Jacobi, November 19, 1984 8:54:48 pm PST
Last edited by: Christian Jacobi, September 19, 1986 11:17:23 am PDT
DIRECTORY
Rope USING [ROPE];
CDRopeViewer: CEDAR DEFINITIONS =
BEGIN
Creates tioga viewer on top of ropes and allows the user to edit them. Return the new rope and destroy the viewer after the user hits the save button.
SaveProc: TYPE = PROC[contents, formatting: Rope.ROPE, clientData: REF, discard: BOOL];
Edit:
PROC [contents, caption, formatting: Rope.
ROPE ←
NIL,
save: SaveProc ←
NIL,
clientData:
REF←
NIL,
fork:
BOOL ←
TRUE,
saveOnDiscard:
BOOL ←
FALSE
];
--if contents#NIL tiogaContents is ignored
END.