--- 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 $'
! !