Use class based exceptions.
authorStefan Vogel <sv@exept.de>
Wed, 26 Jan 2005 15:09:32 +0100
changeset 6172 4b5bbc9c49d1
parent 6171 5ea312ba7d88
child 6173 4ba4589e4952
Use class based exceptions. Documentation.
DebugView.st
--- a/DebugView.st	Fri Jan 21 18:13:39 2005 +0100
+++ b/DebugView.st	Wed Jan 26 15:09:32 2005 +0100
@@ -5038,12 +5038,12 @@
             signal := ex signal.
 
             DebuggingDebugger ~~ true ifTrue:[
+                (signal == ActivityNotification) ifTrue:[
+                    ex proceed
+                ].
                 "/
                 "/ ignore recursive breakpoints
                 "/
-                (signal == ActivityNotificationSignal) ifTrue:[
-                    ex proceed
-                ].
                 (signal isControlInterrupt) ifTrue:[
                     ignoreBreakpoints == true ifTrue:[
                         'DebugView [info]: halt/break in debugger ignored 1' infoPrintCR.
@@ -5867,7 +5867,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.378 2005-01-21 17:13:39 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.379 2005-01-26 14:09:32 stefan Exp $'
 ! !
 
 DebugView initialize!