--- a/DebugView.st Sat Nov 15 13:13:47 2008 +0100
+++ b/DebugView.st Mon Nov 17 18:31:39 2008 +0100
@@ -4875,10 +4875,11 @@
"/ am I in this block ?
con := actualContext.
[con notNil
+ and:[ parentNode lastLineNumber notNil
and:[ con lineNumber notNil
and:[ con lineNumber
between:parentNode firstLineNumber
- and:parentNode lastLineNumber ]]] whileTrue:[
+ and:parentNode lastLineNumber ]]]] whileTrue:[
con := con sender.
].
con notNil ifTrue:[
@@ -6536,7 +6537,7 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.456 2008-11-15 12:00:50 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.457 2008-11-17 17:31:39 cg Exp $'
! !
DebugView initialize!