--- a/ListView.st Sun Dec 03 23:10:59 1995 +0100
+++ b/ListView.st Sun Dec 03 23:21:28 1995 +0100
@@ -52,7 +52,7 @@
!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.45 1995-12-03 22:10:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.46 1995-12-03 22:21:28 cg Exp $'
!
documentation
@@ -1424,17 +1424,16 @@
and:(firstLineShown + nLinesShown).
w := w + leftMargin.
- y0 := textStartTop "- (lineSpacing//2)".
+ y0 := textStartTop.
h := nPixel + y0.
self catchExpose.
- self copyFrom:self x:margin y:h
- toX:margin y:y0
- width:w height:(height - m2 - h).
+ self copyFrom:self x:margin y:h-1
+ toX:margin y:y0-1
+ width:w height:(height - h).
firstLineShown := firstLineShown + count.
viewOrigin := viewOrigin x @ (viewOrigin y + nPixel).
- self redrawFromVisibleLine:(nFullLinesShown - count + 1)
- to:nLinesShown.
+ self redrawFromVisibleLine:(nFullLinesShown - count + 1) to:nLinesShown.
self waitForExpose.
].
].