RoseEvents.Mesa

Last Edited by: Spreitzer, April 30, 1985 2:37:41 pm PDT

RoseEvents: CEDAR DEFINITIONS =

BEGIN

WatcherList: TYPE = LIST OF Watcher;

Watcher: TYPE = RECORD [

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.