# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1415976360 -3600
# Node ID 239d36d19ee232136be30db47f6dd341c8b45c09
# Parent  3831d50bf55fa877752870d57a5a4ea0a416b8f7
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.

diff -r 3831d50bf55f -r 239d36d19ee2 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 $'
 ! !