<> <> 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]; <> all: REF ANY; Notify: PROC [event: ATOM, watched: REF ANY _ NIL, handleAborted: BOOL, arg: REF ANY _ NIL]; <> END.