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, September 19, 1985 3:43:43 am PDT
-- Create a tioga viewer onto a rope, allow the user to edit it,
-- Return the new rope and destroy the viewer after the user hits
-- the save button.
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.