ViewerAbort.mesa
Copyright Ó 1987, 1992 by Xerox Corporation. All rights reserved.
Eric Nickell, January 24, 1987 1:05:18 pm PST
Ken Pier, March 12, 1987 11:48:21 pm PST
ViewerAbort: CEDAR DEFINITIONS
Viewer: TYPE ~ ViewerClasses.Viewer;
CallWithAbortEnabled:
PROC [viewer: Viewer, action:
PROC];
For the duration of the call on action, ViewerAbort will look for a LeftShift-SWAT (=spare3, =USERABORT) on a Dorado, or STOP on a DLion in the specified viewer. If found, the process will be aborted. Note that this will have no effect unless action or its callees call Process.CheckForAbort .
CallWithAbortAndCallback:
PROC [viewer: Viewer, action:
PROC, callback:
PROC [
REF], data:
REF];
For the duration of the call on action, ViewerAbort will look for a LeftShift-SWAT (=spare3, =USERABORT) on a Dorado, or STOP on a DLion in the specified viewer. If found, the process will be aborted and the callback proc will be called, with data as argument, at high priority. Note that this will have no effect unless action or its callees call Process.CheckForAbort .
END.