ViewerAbort.mesa
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Eric Nickell, January 24, 1987 1:05:18 pm PST
DIRECTORY
ViewerClasses;
ViewerAbort: CEDAR DEFINITIONS
~ BEGIN
Viewer: TYPE ~ ViewerClasses.Viewer;
CallWithAbortEnabled: PROC [viewer: Viewer, action: PROC];
For the duration of the call on action, ViewerAbort will look for a SHIFT-SHIFT-SWAT (=spare3) in viewer. If found, the process will be aborted. Note that this will have no effect unless action or its callees call Process.CheckForAbort .
END.