XTkInhibitableWidgets.mesa
Copyright Ó 1992 by Xerox Corporation. All rights reserved.
Philip James, March 9, 1992 4:42 pm PST
DIRECTORY
Rope USING [ROPE],
XTk USING [Class, WidgetSpec],
XTkLabels USING [StyleSpec, TextWidget];
XTkInhibitableWidgets:
CEDAR
DEFINITIONS ~ {
InhibitableWidget: TYPE = XTkLabels.TextWidget;
StyleSpec: TYPE = XTkLabels.StyleSpec;
Create: PROC [widgetSpec: XTk.WidgetSpec ¬ [], text: Rope.ROPE ¬ NIL] RETURNS [w: InhibitableWidget];
Inhibit: PROC [widget: InhibitableWidget];
Enable: PROC [widget: InhibitableWidget];
}.