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; 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. . . BFile: DefaultNutUtilities.mesa Created by: Butler on June 15, 1984 2:26:41 pm PDT Last edited by: Butler, June 27, 1984 3:48:44 pm PDT --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. ʘJ˜Jšœ™Jšœ2™2Jšœ™J™$J™šÏk ˜ Jšœ˜Jšœ˜J˜—J˜Jšœœ œ˜(J˜Jšœœœ˜J˜Jšœ œœ ˜$Jšœ œœ)˜CJšœœ˜$J˜šœ%˜%JšœX™XJšœX™XJ˜—šÐbnœ œœœ˜IJšÏc=˜=J˜—šÏbœ œœœ˜HšŸ?˜?JšŸ=˜=—J˜—Jšœ˜—…—tÌ