DebugView.st
changeset 7888 ce75b0668408
parent 7862 8aaae35e340f
child 7912 3c7e853977b7
--- 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!