diff -r 028c550c1798 -r 19dbcd369dbf DebugView.st
--- a/DebugView.st	Fri Nov 16 16:12:51 2001 +0100
+++ b/DebugView.st	Fri Nov 16 16:19:52 2001 +0100
@@ -4312,20 +4312,12 @@
                 "/
                 "/ ignore recursive breakpoints
                 "/
-                (MessageTracer notNil
-                and:[MessageTracer isLoaded
-                and:[signal == MessageTracer breakpointSignal]]) ifTrue:[
-                    ignoreBreakpoints == true ifTrue:[
-                        'DebugView [info]: breakpoint in debugger ignored' infoPrintCR.
-                        ex proceed
-                    ].
-                ].
                 (signal == ActivityNotificationSignal) ifTrue:[
                     ex proceed
                 ].
-                (signal == Object haltSignal) ifTrue:[
+                (signal isControlInterrupt) ifTrue:[
                     ignoreBreakpoints == true ifTrue:[
-                        'DebugView [info]: halt in debugger ignored' infoPrintCR.
+                        'DebugView [info]: halt/break in debugger ignored' infoPrintCR.
                         ex proceed
                     ].
                 ].
@@ -4370,8 +4362,7 @@
             self topView raiseDeiconified.    
 
             eMsg := ex errorString.
-            (ex signal == MessageTracer breakpointSignal
-            or:[ex signal == Object haltSignal]) ifTrue:[
+            (ex signal isControlInterrupt) ifTrue:[
                 eMsg := eMsg , Character cr asString , 'in ' , ex suspendedContext printString
             ].
 
@@ -4407,7 +4398,7 @@
     catchBlock := nil.
 
     "Created: / 24.11.1995 / 20:33:45 / cg"
-    "Modified: / 6.2.2000 / 15:14:07 / cg"
+    "Modified: / 16.11.2001 / 16:14:44 / cg"
 ! !
 
 !DebugView methodsFor:'user interaction'!
@@ -4692,8 +4683,8 @@
     Object errorSignal handle:[:ex |
         |s con|
 
-        ex signal == Object haltSignal ifTrue:[
-            'DebugView [info]: halt ignored - while showing selection in debugger' infoPrintCR.
+        ex signal isControlInterrupt ifTrue:[
+            'DebugView [info]: halt/break ignored - while showing selection in debugger' infoPrintCR.
             ex proceed
         ].
 
@@ -4721,7 +4712,7 @@
         self doShowSelection:lineNr
     ]
 
-    "Modified: / 11.8.1998 / 20:56:45 / cg"
+    "Modified: / 16.11.2001 / 16:13:08 / cg"
 !
 
 updateForContext:lineNr
@@ -4734,8 +4725,6 @@
      codeSet highlighter evaluatorClass
      canDefine|
 
-lineNr > contextArray size ifTrue:[ thisContext fullPrintAll ].
-
     canDefine := false.
     currentMethod := nil.
 
@@ -4913,10 +4902,7 @@
                 errMsg := nil.
                 method notNil ifTrue:[
                     Object errorSignal handle:[:ex |
-                        ex signal == Object haltSignal ifTrue:[
-                            ex proceed.
-                        ].
-                        ex signal == MessageTracer breakpointSignal ifTrue:[
+                        ex signal isControlInterrupt ifTrue:[
                             ex proceed.
                         ].
                         code := 'error while asking method for its source'.
@@ -5075,7 +5061,7 @@
     self updateMenuItems
 
     "Created: / 14.8.1997 / 20:15:00 / cg"
-    "Modified: / 16.11.2001 / 15:54:49 / cg"
+    "Modified: / 16.11.2001 / 16:16:23 / cg"
 !
 
 updateMenuItems
@@ -5126,6 +5112,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.294 2001-11-16 15:12:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.295 2001-11-16 15:19:52 cg Exp $'
 ! !
 DebugView initialize!