*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 17 Nov 2008 18:31:39 +0100
changeset 8432 52831754f78a
parent 8431 7bce08eaf286
child 8433 b64400068024
*** empty log message ***
DebugView.st
--- 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!