--- a/DebugView.st Wed Oct 28 19:59:08 2009 +0100
+++ b/DebugView.st Wed Oct 28 20:51:24 2009 +0100
@@ -5022,18 +5022,19 @@
|c haltingMethod lineNrInHaltingMethod|
"/ should a halt be ignored ?
- IgnoredHalts isNil ifTrue:['1' infoPrintCR. ^ false].
+ IgnoredHalts isNil ifTrue:[^ false].
c := thisContext findNextContextWithSelector:#halt or:#halt: or:nil.
c isNil ifTrue:[
c := thisContext findNextContextWithSelector:#breakPoint: or:#breakPoint:info: or:nil.
].
- c isNil ifTrue:['2' infoPrintCR. ^ false].
+ c isNil ifTrue:[^ false].
c := c sender.
haltingMethod := c method.
lineNrInHaltingMethod := c lineNumber.
-Transcript showCR:c.
+ "/ Transcript showCR:c.
+
^ self class
isHaltToBeIgnoredIn:haltingMethod
atLineNr:lineNrInHaltingMethod
@@ -6800,11 +6801,11 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.480 2009-10-28 10:42:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.481 2009-10-28 19:51:24 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.480 2009-10-28 10:42:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.481 2009-10-28 19:51:24 cg Exp $'
! !
DebugView initialize!