XTkFields.mesa
Copyright Ó 1991, 1992 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, July 2, 1991 1:58 pm PDT
Christian Jacobi, April 7, 1992 11:24 am PDT
Implements a field widget class.
A field is a label which can be edited.
DIRECTORY
Rope USING [ROPE],
XTk USING [Class, Widget, WidgetSpec],
XTkCommon USING [StyleSpec];
XTkFields: CEDAR DEFINITIONS
~ BEGIN
Client accessible functions
TextWidget: TYPE = XTk.Widget; --More specific: XTkLabels.TextWidget;
StyleSpec: TYPE = XTkCommon.StyleSpec;
CreateField: PROC [widgetSpec: XTk.WidgetSpec ¬ [], text: Rope.ROPE ¬ NIL, style: StyleSpec ¬ []] RETURNS [TextWidget];
Creates a field.
CreateLabeledField: PROC [widgetSpec: XTk.WidgetSpec ¬ [], label, init: Rope.ROPE ¬ NIL, style: StyleSpec ¬ [], labelWidth, fieldWidth: INT ¬ 0] RETURNS [TextWidget];
Creates a widget which contains a label and a field.
GetText/SetText operates on field but not on label.
Functions which allow subclassing.
fieldClass: READONLY XTk.Class;
END.