XTkNotification.mesa
Copyright Ó 1991 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, August 20, 1991 3:11:06 pm PDT
Christian Jacobi, August 20, 1991 3:55 pm PDT
A registration scheme for global callback procedures.
Global means "not tied to a particular widget".
Use this sparingly as it is considered heavy weight.
DIRECTORY
XTk USING [Event, Widget, WidgetNotifyProc];
XTkNotification:
CEDAR
DEFINITIONS ~
BEGIN
Safety from crummy clients is achieved by using private keys
RegisterGlobal:
PROC [key:
REF, proc: XTk.WidgetNotifyProc, registerData:
REF ¬
NIL, front:
BOOL ¬
FALSE];
Registers a global callback notifier.
The notifier proc's will be called according to the specification of "key"..
front: call this proc before the ones registerd previously (otherwise: afterwoods).
CallAll:
PROC [key:
REF, widget: XTk.Widget, callData:
REF ¬
NIL, event: XTk.Event ¬
NIL];
Calls all the procedures in the global notifier list for key.
No protection against errors.
END.