Tools__CodeView2.st
changeset 13569 fb77bce7c4ba
parent 13568 c251f9a016d9
child 13574 95c71c5bc71c
--- a/Tools__CodeView2.st	Mon Sep 23 20:59:03 2013 +0200
+++ b/Tools__CodeView2.st	Mon Sep 23 22:10:44 2013 +0200
@@ -2494,15 +2494,18 @@
     ].
 
     showLineNumbers ifTrue:[
-        numberOfLines := (textView list size max:textView cursorLine).
-        yBot := y + h.
-        firstLine := textView visibleLineToAbsoluteLine:(textView visibleLineOfY:y).
-        lastLine := textView visibleLineToAbsoluteLine:(textView visibleLineOfY:yBot-1).
-        lastLine := lastLine min:numberOfLines.
-
-        firstLine to:lastLine do: [:line | 
-            self redrawLine:line cleared:true drawServices:true.
-        ].
+        "/ textview may be nil, if Gutter is shown in the UIPainter!!
+        textView notNil ifTrue:[
+            numberOfLines := (textView list size max:textView cursorLine).
+            yBot := y + h.
+            firstLine := textView visibleLineToAbsoluteLine:(textView visibleLineOfY:y).
+            lastLine := textView visibleLineToAbsoluteLine:(textView visibleLineOfY:yBot-1).
+            lastLine := lastLine min:numberOfLines.
+
+            firstLine to:lastLine do: [:line | 
+                self redrawLine:line cleared:true drawServices:true.
+            ].
+        ]
     ]
 ! !
 
@@ -3649,15 +3652,15 @@
 !CodeView2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.122 2013-09-23 18:59:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.123 2013-09-23 20:10:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.122 2013-09-23 18:59:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.123 2013-09-23 20:10:44 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__CodeView2.st,v 1.122 2013-09-23 18:59:03 cg Exp $'
+    ^ '$Id: Tools__CodeView2.st,v 1.123 2013-09-23 20:10:44 cg Exp $'
 ! !