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: Ch. Jacobi, March 14, 1986 3:36:57 pm PST
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.