File: 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
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;
--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.
GetTopLevel: PROCEDURE [v: Viewer] RETURNS [Viewer];
AttrButtonLength:
PROC[
attrString, attrValue: ROPE, button: Menus.MouseButton ← Menus.MouseButton[red] ]
RETURNS[INT];
END. . .