class: DebugView
authorClaus Gittinger <cg@exept.de>
Fri, 14 Nov 2014 15:46:00 +0100
changeset 14835 239d36d19ee2
parent 14834 3831d50bf55f
child 14836 1b64d6930357
class: DebugView changed: #controlLoopCatchingErrors raise myself if another user interrupt arrives. This will show an iconified debugger again, when CTRL-C is pressed to an already debugged window. Nice.
DebugView.st
--- a/DebugView.st	Fri Nov 14 12:40:58 2014 +0100
+++ b/DebugView.st	Fri Nov 14 15:46:00 2014 +0100
@@ -7923,6 +7923,12 @@
             |signal|
 
             signal := ex creator.
+            (UserInterruptSignal accepts:signal) ifTrue:[
+Transcript showCR:'UserInterruptSignal'.
+                self topView raiseDeiconified.
+                ex proceed.
+            ].
+
             (UserNotification accepts:signal) ifTrue:[
 Transcript showCR:'UserNotification'.
                 (signal ~~ ActivityNotificationSignal) ifTrue:[
@@ -7933,6 +7939,7 @@
             (HaltInterrupt accepts:signal) ifTrue:[
 Transcript showCR:'HaltInterrupt'.
                 Transcript showCR:'Halt/Break in debugger ignored'.
+                self topView raiseDeiconified.
                 ex proceed.
             ].
 
@@ -8004,6 +8011,7 @@
                     ignoreBreakpoints == true ifTrue:[
                         'DebugView [info]: halt/break in debugger ignored 1' infoPrintCR.
                         ('DebugView [info]: ',ex suspendedContext printString) infoPrintCR.
+                        self topView raiseDeiconified.
                         ex proceed
                     ].
                 ].
@@ -9449,15 +9457,15 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.669 2014-11-07 19:31:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.670 2014-11-14 14:46:00 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.669 2014-11-07 19:31:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.670 2014-11-14 14:46:00 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.669 2014-11-07 19:31:46 cg Exp $'
+    ^ '$Id: DebugView.st,v 1.670 2014-11-14 14:46:00 cg Exp $'
 ! !