# HG changeset patch
# User ca
# Date 886067094 -3600
# Node ID 9aa43cddb83e922be43c517b257c9a41c5b286e1
# Parent  12b827160a7b32e548edaa0d2669d943d4518fac
leftOver selection pixels

diff -r 12b827160a7b -r 9aa43cddb83e ListView.st
--- a/ListView.st	Wed Jan 28 15:44:04 1998 +0100
+++ b/ListView.st	Thu Jan 29 10:44:54 1998 +0100
@@ -776,7 +776,7 @@
 removeIndex:lineNr
     "delete a line, redraw the view"
 
-    |visLine w
+    |visLine w x
      srcY "{ Class: SmallInteger }" |
 
     (self removeIndexWithoutRedraw:lineNr) ifFalse:[^ self].
@@ -788,12 +788,17 @@
     visLine := self listLineToVisibleLine:lineNr.
     visLine notNil ifTrue:[
         w := self widthForScrollBetween:lineNr and:(firstLineShown + nLinesShown).
+"/        x := textStartLeft.
+"/ CLAUS fixes leftOver selection pixels
+        w := w + leftMargin.
+        x := margin.
+
         srcY := topMargin + (visLine * fontHeight).
         self catchExpose.
         self 
             copyFrom:self 
-            x:textStartLeft y:srcY
-            toX:textStartLeft y:(srcY - fontHeight)
+            x:x y:srcY
+            toX:x y:(srcY - fontHeight)
             width:w height:((nLinesShown - visLine) * fontHeight)
             async:true.
         self redrawVisibleLine:nFullLinesShown.
@@ -3763,5 +3768,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.146 1998-01-27 13:11:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.147 1998-01-29 09:44:54 ca Exp $'
 ! !