care for nil lineNumber in context (how can this happen ?)
authorClaus Gittinger <cg@exept.de>
Tue, 08 Sep 1998 13:07:30 +0200
changeset 1871 971fe3afd573
parent 1870 cab25b4be290
child 1872 1c3c80a1973f
care for nil lineNumber in context (how can this happen ?)
DebugView.st
--- a/DebugView.st	Tue Sep 08 12:26:51 1998 +0200
+++ b/DebugView.st	Tue Sep 08 13:07:30 1998 +0200
@@ -1897,7 +1897,7 @@
 
     initiallyShown := nil.
     (oneMore == true) ifTrue:[
-        thisContext sender sender lineNumber <= 1 ifTrue:[
+        (thisContext sender sender lineNumber ? 0) <= 1 ifTrue:[
             initiallyShown := 2
         ] ifFalse:[
             initiallyShown := 1
@@ -1906,7 +1906,7 @@
     self enter:(thisContext sender sender) select:initiallyShown
 
     "Created: / 14.10.1996 / 12:53:39 / cg"
-    "Modified: / 29.7.1998 / 16:33:42 / cg"
+    "Modified: / 6.9.1998 / 21:42:28 / cg"
 ! !
 
 !DebugView methodsFor:'menu / button actions'!
@@ -3877,6 +3877,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.215 1998-08-11 18:57:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.216 1998-09-08 11:07:30 cg Exp $'
 ! !
 DebugView initialize!