<> <> <> <> <> <> DIRECTORY DB: TYPE USING[ Entity, Segment ], ViewerClasses: TYPE USING[ Viewer ], VTables: TYPE USING[ VTable ]; EntityEditor: DEFINITIONS = BEGIN OPEN DB, ViewerClasses, VTables; SaveFailed: ERROR; DisplayEntities: PROC[of: Entity, parent: Viewer, in: DB.Segment, noEdits: BOOLEAN _ FALSE] RETURNS[viewer: VTable]; <> <> <> <> <> <> NewEntry: PROC[ is: Entity, table: VTable ]; <> <> <> SaveEntities: PROC[ viewer: Viewer, newOf: Entity _ NIL ]; <> <> <> <> END.