<> <> <> <> <<>> <> <> <<>> DIRECTORY Rope USING [ROPE], XTk USING [Class, Widget, WidgetSpec], XTkCommon USING [StyleSpec]; XTkFields: CEDAR DEFINITIONS ~ BEGIN <<>> <> 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]; <> <<>> CreateLabeledField: PROC [widgetSpec: XTk.WidgetSpec ¬ [], label, init: Rope.ROPE ¬ NIL, style: StyleSpec ¬ [], labelWidth, fieldWidth: INT ¬ 0] RETURNS [TextWidget]; <> <> <<>> <> fieldClass: READONLY XTk.Class; END.