DIRECTORYViewerAbort,Interminal, Process, RefTab, Terminal, TIPUser, ViewerOps;ViewerAbortImpl: CEDAR MONITORIMPORTS Interminal, Process, RefTab, Terminal, ViewerOpsEXPORTS ViewerAbort~ BEGINOPEN ViewerAbort;abortableViewers: RefTab.Ref ~ RefTab.Create[];	--Keeps LIST OF PROCESS for each viewerCallWithAbortEnabled: PUBLIC PROC [viewer: Viewer, action: PROC] ~ {this: PROCESS ~ LOOPHOLE[Process.GetCurrent[]];EnableAbort: ENTRY PROC ~ {ENABLE UNWIND => NULL;oldList: LIST OF PROCESS ~ NARROW[RefTab.Fetch[x: abortableViewers, key: viewer].val];newList: LIST OF PROCESS ~ CONS[this, oldList];[] _ RefTab.Store[x: abortableViewers, key: viewer, val: newList];};DisableAbort: ENTRY PROC ~ {ENABLE UNWIND => NULL;ListWithoutThisProcess: PROC [list: LIST OF PROCESS] RETURNS [LIST OF PROCESS] ~ {RETURN [SELECT TRUE FROMlist=NIL => NIL,list.first=this => list.rest,			--Only remove one instance!ENDCASE => CONS[list.first, ListWithoutThisProcess[list.rest]]	--Check rest of list]};oldList: LIST OF PROCESS ~ NARROW[RefTab.Fetch[x: abortableViewers, key: viewer].val];[] _ RefTab.Store[x: abortableViewers, key: viewer, val: ListWithoutThisProcess[oldList]];};{ENABLE UNWIND => DisableAbort[];EnableAbort[];action[];DisableAbort[];};};Abort: ENTRY PROC [viewer: Viewer] ~ {ENABLE UNWIND => NULL;list: LIST OF PROCESS ~ NARROW[RefTab.Fetch[x: abortableViewers, key: viewer].val];FOR each: LIST OF PROCESS _ list, each.rest UNTIL each=NIL DOTRUSTED {Process.Abort[each.first]};ENDLOOP;[] _ RefTab.Store[x: abortableViewers, key: viewer, val: NIL];	--Don't hit 'em again};CheckForAbort: PROC ~ {tsc: TIPUser.TIPScreenCoords ~ NEW[TIPUser.TIPScreenCoordsRec];Process.SetPriority[Process.priorityRealTime];	--VERY high!DO	--Forevervt: Terminal.Virtual ~ Terminal.Current[];keyBits: Terminal.KeyBits ~ Terminal.GetKeys[vt: vt];IF (keyBits[LeftShift]=down OR keyBits[RightShift]=down) AND keyBits[Spare3]=down THEN {mouse: Interminal.MousePosition ~ Interminal.GetMousePosition[];viewer: Viewer;tsc^ _ [mouseX: mouse.mouseX,mouseY: (IF mouse.color THEN vt.colorHeight ELSE vt.bwHeight) - mouse.mouseY,color: mouse.color];viewer _ ViewerOps.MouseInViewer[tsc: tsc].viewer;IF viewer#NIL THEN Abort[viewer];};Process.Pause[ticks: Process.SecondsToTicks[2]];ENDLOOP;};END.   И  ViewerAbortImpl.mesaCopyright ╙ 1987 by Xerox Corporation.  All rights reserved.Eric Nickell, January 24, 1987 7:48:31 pm PST Э╩Е  Ш ЩIcodeЩ<KЩ-KЩ ЧЪ╧k	Ш	KШKЪЬ:Ш:KШ ЧKШ KЪ╨lnЬЭЬЭШKЪЭЬ1Ш8KЪЭЬШKЪЬЭШЪЭЬШKШ Icode2ЪЬ0╧c╨ckЯШWЪ╧nЬЭЬЭЬЭЬШDLЪЬЭЬЭЬШ/ЪбЬЭ
ЬШKЪЭЬЭЬЭЬШKЪ	Ь	ЭЬЭЬЭЬЭЬ5ШVKЪ	Ь	ЭЬЭЬЭЬЭЬШ/KЪЬBШBKШЧЪбЬЭ
ЬШKЪЭЬЭЬЭЬШХStartOfExpansion$[x: RefTab.Ref, key: RefTab.Key]ЪбЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШRЪЭЬЭЬЭЬЭШKЪЬЭЬЭЬШKЪЬ ЯШ;KЪЭЬЭЬ0ЯШSKЪЬШЧKШЧKЪ	Ь	ЭЬЭЬЭЬЭЬ5ШVKЪЬZШZKШЧЪЬШLЪЭЬЭЬШ LШLШ	LШLЪЬШЧLШЧЪбЬЭ
ЬШ&KЪЭЬЭЬЭЬШKЪ	ЬЭЬЭЬЭЬЭЬ5ШSЪЭЬЭЬЭЬЭЬЭЬЭЬЭШ=KЪЭЬШ$KЪЭЬШЧKЪЬ9ЭЬЯШTKШЧЪбЬЭЬШLЪЬЭЬШ?LЪЬ/ЯШ;ЪЭЬЯ	ШLЦ[]Ш*LШ5ЪЭЬЭЬЭЬЭЬШXLШ@LШЪЬШLШLЪЬ	ЭЬЭЬЭЬШMLШLЪЬШЧLЦ [tsc: TIPUser.TIPScreenCoords]Ш2LЦ[ViewerClasses.Viewer]ЪЭЬЭЬЭЬШ!LЪЬШЧLШ0LЪЭЬШЧLШЧЧKШ KЪЭЬШЧ ЕЧ    	  #  