--- a/DebugView.st Mon Feb 05 00:40:23 2018 +0100
+++ b/DebugView.st Tue Feb 06 10:31:14 2018 +0100
@@ -2345,6 +2345,8 @@
grabber := nil.
].
+ "/ Processor activeProcess priorityRange:nil; priority:8.
+
(exitAction == #step) ifTrue:[
"
schedule another stepInterrupt
@@ -8443,15 +8445,22 @@
either continue, return or step is pressed
"
+ |process savedPriorityRange savedPriority|
+
+ process := Processor activeProcess.
+ savedPriorityRange := process priorityRange.
+ savedPriority := process priority.
+ process priorityRange:nil; priority:(Processor userSchedulingPriority).
+
haveControl := true.
[
[haveControl] whileTrue:[
-AbortOperationRequest handle:[:ex |
-] do:[
- self controlLoopCatchingErrors
-]
+ AbortOperationRequest ignoreIn:[
+ self controlLoopCatchingErrors
+ ]
].
] ensure:[
+ process priorityRange:savedPriorityRange; priority:savedPriority.
catchBlock := nil.
haveControl := false
].