--- a/ListView.st Fri Oct 05 09:34:12 2018 +0200
+++ b/ListView.st Wed Oct 10 18:24:39 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -4044,12 +4042,15 @@
"redraw part of a visible line"
shown ifTrue:[
- startCol == endCol ifTrue:[
- self redrawVisibleLine:visLineNr col:startCol
- ] ifFalse:[
- self drawVisibleLine:visLineNr from:startCol to:endCol with:fgColor and:bgColor
- ]
+ (startCol == endCol and:[startCol ~~ 0]) ifTrue:[
+ self redrawVisibleLine:visLineNr col:startCol
+ ] ifFalse:[
+ "/ if 0, the left margin needs to be drawn
+ self drawVisibleLine:visLineNr from:startCol to:endCol with:fgColor and:bgColor
+ ]
]
+
+ "Modified: / 10-10-2018 / 18:23:37 / Claus Gittinger"
! !
!ListView methodsFor:'scrolling'!