<> <> <> <> <<>> <> <> <> <<>> DIRECTORY XTk USING [TQ, Widget, WidgetNotifyProc, WidgetSpec], XTkCommon USING [ChoiceElement, StyleSpec]; XTkChoiceWidgets: CEDAR DEFINITIONS ~ BEGIN <<>> WidgetSpec: TYPE = XTk.WidgetSpec; StyleSpec: TYPE = XTkCommon.StyleSpec; ChoiceWidget: TYPE = XTk.Widget; ChoiceElement: TYPE = XTkCommon.ChoiceElement; ChoiceList: TYPE = LIST OF ChoiceElement; IsChoice: PROC [w: XTk.Widget] RETURNS [BOOL]; <> CurrentChoice: PROC [widget: ChoiceWidget] RETURNS [REF ANY]; <> Choose: PROC [widget: ChoiceWidget, ce: ChoiceElement]; <> <> <> <> <<>> CreateChoices: PROC [widgetSpec: WidgetSpec ¬ [], choices: ChoiceList, horizontal: BOOL ¬ TRUE, hitProc: XTk.WidgetNotifyProc ¬ NIL, registerData: REF ¬ NIL, tq: XTk.TQ ¬ NIL, style: StyleSpec ¬ []] RETURNS [ChoiceWidget]; <> <> <> <> <> <<>> CreateToggle: PROC [widgetSpec: WidgetSpec ¬ [], choices: ChoiceList, hitProc: XTk.WidgetNotifyProc ¬ NIL, registerData: REF ¬ NIL, tq: XTk.TQ ¬ NIL, style: StyleSpec ¬ []] RETURNS [ChoiceWidget]; <> <<>> END.