--- a/DebugView.st Mon Nov 05 20:13:33 2007 +0100
+++ b/DebugView.st Wed Nov 07 11:38:33 2007 +0100
@@ -5217,6 +5217,15 @@
ex proceed
].
"/
+ "/ ignore exceptions which say they explicitly have to be ignored
+ "/
+ ex catchInDebugger ifTrue:[
+ 'DebugView [info]: ',signal printString,'-signal in debugger cought for close' infoPrintCR.
+ self destroy.
+ ex reject
+ ].
+
+ "/
"/ ignore recursive breakpoints
"/
(signal isControlInterrupt) ifTrue:[
@@ -6059,7 +6068,7 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.422 2007-10-15 14:48:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.423 2007-11-07 10:38:33 ca Exp $'
! !
DebugView initialize!