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.
--- 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 $'
! !