ViewersStallNotifier.mesa
Russ Atkinson, 10-Feb-82 16:01:41
McGregor, 18-Feb-82 9:28:12
Last Edited by: Maxwell, December 17, 1982 9:55 am
ViewersStallNotifier: CEDAR DEFINITIONS = BEGIN
NOTE: a horrible disease will befall anyone other than a debugger wizard who calls these procedures!!!! There is no known cure for this disease, and its effects are too terrible to contemplate in a simple definitions module!!!!
NotifyProcessStalled:
PRIVATE
PROC [process:
PROCESS, kind:
ATOM] =
INLINE
{UnWedgeNotifier[process, kind]; UnWedgePainter[process, kind]} ;
notify the Viewers world that a process has "stalled" for the reason given by kind {$Break, $Signal}
UnWedgeNotifier: PRIVATE PROC [process: PROCESS, kind: ATOM] ;
UnWedgePainter: PRIVATE PROC [process: PROCESS, kind: ATOM] ;
END.