--- a/DebugView.st	Fri Nov 16 16:19:52 2001 +0100
+++ b/DebugView.st	Fri Nov 16 16:23:54 2001 +0100
@@ -815,17 +815,15 @@
         "
          ok, got the raise - if its a BreakPoint, look for the sender
         "
-        (MessageTracer notNil
-         and:[MessageTracer isLoaded
-         and:[prev receiver == MessageTracer breakpointSignal]]) ifTrue:[
+        (prev receiver == BreakPointInterrupt) ifTrue:[
             offset := offset + 1
         ].
     ].
 
     ^ offset
 
-    "Created: 7.1.1997 / 21:26:05 / cg"
-    "Modified: 27.3.1997 / 18:24:59 / cg"
+    "Created: / 7.1.1997 / 21:26:05 / cg"
+    "Modified: / 16.11.2001 / 16:17:25 / cg"
 ! !
 
 !DebugView methodsFor:'basic'!
@@ -2141,11 +2139,7 @@
     |where here con s isWrap method wrappedMethod 
      inBlock left ignore contextBelow lastWrappedContext
      leftWrap enteredWrap anyStepBlocks 
-     oneMore initiallyShown breakpointSignal|
-
-    (MessageTracer notNil and:[MessageTracer isLoaded]) ifTrue:[
-        breakpointSignal := MessageTracer breakpointSignal.
-    ].
+     oneMore initiallyShown|
 
     "/ DebuggingDebugger := true
     "/ DebuggingDebugger := false
@@ -2157,8 +2151,8 @@
         here setLineNumber:nil.
         here := nil.
         con := thisContext sender sender sender.
-        breakpointSignal notNil ifTrue:[
-            breakpointSignal handle:[:ex |
+        BreakPointInterrupt notNil ifTrue:[
+            BreakPointInterrupt handle:[:ex |
                 'DebugView [info]: breakpoint in debugger ignored' infoPrintCR.
                 ex proceed
             ] do:[
@@ -2669,8 +2663,8 @@
         ]
     ].
     con := thisContext sender sender.
-    breakpointSignal notNil ifTrue:[
-        breakpointSignal handle:[:ex |
+    BreakPointInterrupt notNil ifTrue:[
+        BreakPointInterrupt handle:[:ex |
             'DebugView [info]: breakpoint in debugger ignored' infoPrintCR.
             ex proceed
         ] do:[
@@ -2682,7 +2676,7 @@
     con := nil
 
     "Created: / 14.10.1996 / 12:53:39 / cg"
-    "Modified: / 4.2.2000 / 20:21:11 / cg"
+    "Modified: / 16.11.2001 / 16:18:35 / cg"
 ! !
 
 !DebugView methodsFor:'menu / button actions'!
@@ -4335,9 +4329,7 @@
                     ex return.
                 ].
                 signal == Exception recursiveExceptionSignal ifTrue:[
-                    (MessageTracer notNil
-                    and:[MessageTracer isLoaded
-                    and:[ex parameter signal == MessageTracer breakpointSignal]])
+                    (ex parameter signal == BreakPointInterrupt)
                     ifTrue:[
                         'DebugView [info]: recursive breakpoint in debugger ignored' infoPrintCR.
                         ex proceed.
@@ -4398,7 +4390,7 @@
     catchBlock := nil.
 
     "Created: / 24.11.1995 / 20:33:45 / cg"
-    "Modified: / 16.11.2001 / 16:14:44 / cg"
+    "Modified: / 16.11.2001 / 16:17:48 / cg"
 ! !
 
 !DebugView methodsFor:'user interaction'!
@@ -4658,13 +4650,8 @@
     "user clicked on a header line - show selected code in textView.
      Also sent to autoselect an interesting context on entry."
 
-    |breakPointSignal|
-
-    (MessageTracer notNil and:[MessageTracer isLoaded]) ifTrue:[
-        breakPointSignal := MessageTracer breakpointSignal.
-    ].
-    breakPointSignal notNil ifTrue:[
-        breakPointSignal handle:[:ex |
+    BreakPointInterrupt notNil ifTrue:[
+        BreakPointInterrupt handle:[:ex |
             'DebugView [info]: breakpoint in debugger ignored' infoPrintCR.
             ex proceed
         ] do:[
@@ -4674,6 +4661,8 @@
         self updateForContext:lineNr
     ].
     self updateMenuItems
+
+    "Modified: / 16.11.2001 / 16:18:13 / cg"
 !
 
 showSelection:lineNr
@@ -4856,7 +4845,7 @@
                     implementorClass := homeContext methodClass.
                     implementorClass isNil ifTrue:[
                         Object errorSignal handle:[:ex |
-                            ex signal == MessageTracer breakpointSignal ifTrue:[
+                            ex signal == BreakPointInterrupt ifTrue:[
                                 ex proceed.
                             ].
                             code := 'error while asking method for its source'.
@@ -5061,7 +5050,7 @@
     self updateMenuItems
 
     "Created: / 14.8.1997 / 20:15:00 / cg"
-    "Modified: / 16.11.2001 / 16:16:23 / cg"
+    "Modified: / 16.11.2001 / 16:18:55 / cg"
 !
 
 updateMenuItems
@@ -5112,6 +5101,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.295 2001-11-16 15:19:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.296 2001-11-16 15:23:54 cg Exp $'
 ! !
 DebugView initialize!