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