-- 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

DIRECTORY
  DB: TYPE USING[ Entity, Segment ],
  ViewerClasses: TYPE USING[ Viewer ],
  VTables: TYPE USING[ VTable ];

NoteEditor: DEFINITIONS IMPORTS DB =

  BEGIN  OPEN DB, ViewerClasses, VTables;
  
  DisplayNote: PROC[ entity: Entity,
                          parent: Viewer,
                          segment: DB.Segment _ NIL,
                          openHeight: NAT _ 0, 
                          openWidth: NAT _ 0,
                          noEdits: BOOLEAN _ FALSE ] RETURNS[VTable];
  -- make a nested viewer (a VTable) 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 table 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.