DebugView.st
changeset 12947 46051d026ba5
parent 12941 9605021cbfb8
child 12977 2b05130a9a56
child 13173 e9da2324940d
--- a/DebugView.st	Fri Jun 21 00:55:40 2013 +0200
+++ b/DebugView.st	Fri Jun 21 01:00:24 2013 +0200
@@ -274,9 +274,7 @@
      With nil count and time arguments, such an ignored breakpoint is reactivated"
 
     |oldEntry ign|
-Transcript showCR:'++++++++++++++'.
-Transcript showCR:processOrNil.
-processOrNil isNil ifTrue:[self halt].
+
     IgnoredHalts notNil ifTrue:[
         self removeInactiveIgnores.
         type == #halt ifTrue:[
@@ -4877,7 +4875,7 @@
                                      context:currentContext
                                      originator:nil) notNil]
         ) ifTrue:[
-self halt.
+            self breakPoint:#cg.
         ].
         currentContext := currentContext findSpecialHandle:true raise:true. "search starts at currentContext sender"
         "/ Transcript showCR:currentContext.
@@ -8499,15 +8497,15 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.595 2013-06-20 22:27:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.596 2013-06-20 23:00:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.595 2013-06-20 22:27:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.596 2013-06-20 23:00:24 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.595 2013-06-20 22:27:00 cg Exp $'
+    ^ '$Id: DebugView.st,v 1.596 2013-06-20 23:00:24 cg Exp $'
 ! !