<> <> <> <> <<>> DIRECTORY DB, ViewerClasses, Buttons; DefaultNutUtilities: CEDAR DEFINITIONS = BEGIN OPEN DB; FieldHandle: TYPE = REF FieldObject; FieldObject: TYPE = RECORD[ tuple: Relship, attribute: Attribute ]; Viewer: TYPE = ViewerClasses.Viewer; ProcessSelection: Buttons.ButtonProc; <<--A standard ButtonProc that assumes the button's REF ANY data is the FieldHandle above.>> <<--Insures attribute of tuple is entity-valued and non-NIL, then calls Nut.Display on it.>> Reset: PROCEDURE [eName, domain: ROPE, seg: DB.Segment, viewer: Viewer]; --Resets contents of editor to its statebefore edits started. Edit: PROCEDURE [eName, domain: ROPE, seg: DB.Segment, parent: Viewer]; --Invoked when hit the "Edit" button on the default displayer. --Should replace the displayer viewer with an editor viewer. END. . .