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, November 21, 1984 2:55:46 pm PST
-- 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
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.