changed: #isHaltToBeIgnoredIn:atLineNr:modifyEntryCount:
authorClaus Gittinger <cg@exept.de>
Tue, 06 Mar 2012 11:24:07 +0100
changeset 11364 af95026ebbda
parent 11363 bdca5a341fa1
child 11365 6585a911cb3e
changed: #isHaltToBeIgnoredIn:atLineNr:modifyEntryCount:
DebugView.st
--- a/DebugView.st	Tue Mar 06 10:25:41 2012 +0100
+++ b/DebugView.st	Tue Mar 06 11:24:07 2012 +0100
@@ -334,8 +334,9 @@
     "/ Transcript showCR:'halt/break in ',haltingMethod printString,' at ',lineNrInHaltingMethod printString.
     IgnoredHalts do:[:ign |
         (ign isHaltIgnoredInMethod:haltingMethod line:lineNrInHaltingMethod) ifTrue:[
-            Transcript show:'Debugger [info]: halt ignored in ', haltingMethod whoString.
+            Transcript show:'Debugger [info]: halt/break ignored in ', haltingMethod whoString.
             Transcript show:' ('; show:ign; showCR:')'.
+
             modifyCount ifTrue:[ ign decrementIgnoreCount ].
             ign isHaltIgnored ifFalse:[
                 Transcript showCR:'Debugger [info]: no longer ignore halt in ', haltingMethod whoString.
@@ -355,7 +356,7 @@
 
     ^ false.
 
-    "Modified: / 27-01-2012 / 11:41:19 / cg"
+    "Modified: / 06-03-2012 / 11:15:01 / cg"
 !
 
 removeInactiveIgnores
@@ -7305,11 +7306,11 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.530 2012-03-01 13:29:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.531 2012-03-06 10:24:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.530 2012-03-01 13:29:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.531 2012-03-06 10:24:07 cg Exp $'
 !
 
 version_SVN