DIRECTORY Rope USING [ROPE], Xl USING [TQ], XTk USING [Class, Widget, WidgetNotifyProc, WidgetSpec], XTkCommon USING [StyleSpec]; XTkButtons: CEDAR DEFINITIONS ~ BEGIN TextWidget: TYPE = XTk.Widget; --actually it IS a XTkLabels.TextWidget StyleSpec: TYPE = XTkCommon.StyleSpec; CreateButton: PROC [widgetSpec: XTk.WidgetSpec ¬ [], text: Rope.ROPE ¬ NIL, style: StyleSpec ¬ [], hitProc: XTk.WidgetNotifyProc ¬ NIL, registerData, callData: REF ¬ NIL, hitTQ: Xl.TQ ¬ NIL, help: Rope.ROPE ¬ NIL] RETURNS [TextWidget]; SetButtonTQ: PROC [button: XTk.Widget, hitTQ: Xl.TQ ¬ NIL]; SetButtonHelp: PROC [button: XTk.Widget, help: Rope.ROPE ¬ NIL]; SetButtonCallback: PROC [button: XTk.Widget, hitProc: XTk.WidgetNotifyProc ¬ NIL, registerData, callData: REF ¬ NIL]; buttonClass: READONLY XTk.Class; END. vXTkButtons.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:21 am PDT Implements a button widget class. A button is a label with a callback procedure. Client accessible functions Creates a button. A button is a piece of text which can not be edited, but which calls hitProc [on hitTQ] when interactively poked at. [A NIL hitTQ causes the hitProc to fork.] Resets hitTQ; [A NIL hitTQ causes the hitProc to fork.] Resets help information Resets call-back information. Functions which allow subclassing. Κσ•NewlineDelimiter –(cedarcode) style˜codešœ™Kšœ Οeœ7™BKšœ5™5Kšœ,™,K™šœ"Οc™#Kšžœ ™.—K™—šΟk œ˜ KšœŸœŸœ˜KšœŸœŸœ˜KšœŸœ/˜8Kšœ Ÿœ ˜K˜—KšΟn œŸœŸ ˜KšœŸœ˜K™šΟb™K˜Kšœ Ÿœž'˜Fšœ Ÿœ˜&K˜—š  œŸœ.ŸœŸœ9ŸœŸœŸœ ŸœŸœ ŸœŸœŸœ˜λKšž™KšžQœž™WKšž%œž™GK™—š  œŸœ ŸœŸœ˜;šœŸœ#™7K™——š  œŸœ!ŸœŸœ˜@šœ™K™——š  œŸœ6ŸœŸœŸœ˜uKšœ™—K™—š‘"™"K˜Kšœ Ÿœ ˜ K˜—KšŸœ˜K˜K˜—…—&