DIRECTORY DB, Menus USING [MouseButton], VFonts USING [Font], ViewerClasses, Buttons; DefaultNutUtilities: CEDAR DEFINITIONS = BEGIN OPEN DB; FieldHandle: TYPE = REF FieldObject; FieldObject: TYPE = RECORD[ tuple: Relship, attribute: Attribute ]; Viewer: TYPE = ViewerClasses.Viewer; attributeFont: VFonts.Font; relationFont: VFonts.Font; valueFont: VFonts.Font; 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. GetTopLevel: PROCEDURE [v: Viewer] RETURNS [Viewer]; AttrButtonLength: PROC[ attrString, attrValue: ROPE, button: Menus.MouseButton _ Menus.MouseButton[red] ] RETURNS[INT]; END. . . DFile: DefaultNutUtilities.mesa Created by: Butler on June 15, 1984 2:26:41 pm PDT Last edited by: Butler, August 13, 1984 5:24:08 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. Êf˜J˜Jšœ™Jšœ2™2Jšœ™J™&J™šÏk ˜ Jšœ˜J˜J˜Jšœ˜J˜—J˜Jšœœ œ˜(J˜Jšœœœ˜J˜Jšœ œœ ˜$Jšœ œœ)˜CJšœœ˜$J˜J˜J˜J˜J˜šœ%˜%JšœX™XJšœX™XJ˜—šÐbnœ œœœ˜IJšÏc=˜=J˜—šÏbœ œœœ˜HšŸ?˜?JšŸ=˜=—J˜—Jšž œ œ œ ˜5J˜šÏnœœ˜Jšœœ7˜RJšœœ˜ —J˜Jšœ˜—…—¤N