--- 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