File: NoteEditor.mesa
Contents: interface to a "notes" subwindow for use by nut implementations
Created by Donahue, October 27, 1982 11:31 am
Last edited by:
Donahue, March 14, 1983 3:17 pm
Cattell, April 6, 1983 2:49 pm
Last Edited by: Butler, August 13, 1984 5:18:42 pm PDT
DIRECTORY
DB: TYPE USING[ Entity, Segment ],
ViewerClasses: TYPE USING[ Viewer ];
NoteEditor: DEFINITIONS =
BEGIN OPEN DB, ViewerClasses;
DisplayNote:
PROC[ entity: Entity,
sibling: Viewer,
segment: DB.Segment ← NIL,
openHeight: NAT ← 0,
openWidth: NAT ← 0,
noEdits: BOOLEAN ← FALSE ] RETURNS[Viewer];
make a nested viewer that has the contents the "note" relation for the Entity.
if noEdits, then user edits will be inhibited
SaveNote: PROC[ newEntity: Entity, viewer: Viewer, update: BOOLEAN ← FALSE ];
given a viewer set up by DisplayNote, add its contents to the database;
newEntity is used for the "of" field.
if update is TRUE, then the previous relship for this entity will be changed instead of
adding a new one
END.