RoseEvents.Mesa
Last Edited by: Spreitzer, August 1, 1985 8:38:16 pm PDT
RoseEvents: CEDAR DEFINITIONS =
BEGIN
WatcherList: TYPE = LIST OF Watcher;
Watcher:
TYPE =
RECORD [
Notify: NotifyProc,
watcherData: REF ANY ← NIL];
NotifyProc: TYPE = PROC [event: ATOM, watched, watcherData, arg: REF ANY];
AddWatcher,
RemoveWatcher:
PROC [event:
ATOM, watcher: Watcher, watched:
REF
ANY ←
NIL];
watched may be all
all: REF ANY;
Notify:
PROC [event:
ATOM, watched:
REF
ANY ←
NIL, arg:
REF
ANY ←
NIL];
watched may not be all
END.