<<>> <> <> <> <> DIRECTORY Xl USING [EventFilter, SetOfEvent, unspecifiedEvents], XTk USING [TQ, Widget, WidgetNotifyProc]; XTkOps: CEDAR DEFINITIONS ~ BEGIN OPEN XTk; <<>> <> <<>> RegisterNotifierProcOnEvents: PROC [widget: Widget, handles: Xl.EventFilter, tq: TQ ¬ NIL, generate: Xl.SetOfEvent ¬ Xl.unspecifiedEvents, proc--LX--: WidgetNotifyProc, registerData, callData: REF ¬ NIL, temporary: BOOL ¬ FALSE]; <> <> RegisterCallNotifiersOnEvents: PROC [widget: Widget, handles: Xl.EventFilter, tq: TQ ¬ NIL, generate: Xl.SetOfEvent ¬ Xl.unspecifiedEvents, notifierKey--LX--: REF, callData: REF ¬ NIL, temporary: BOOL ¬ FALSE]; <> <> CallAndRegisterOnPostRealize: PROC [widget: Widget, proc--LX--: WidgetNotifyProc, registerData: REF ¬ NIL]; <> <> <<>> GetWidgetPropStar: PROC [w: Widget, key: REF] RETURNS [val: REF ¬ NIL, who: Widget ¬ NIL]; <> SetupDestruction: PROC [shell: Widget, trigger: Widget, triggerKey: REF ¬ NIL]; <> END.