--- a/ListView.st Mon Dec 04 00:39:54 1995 +0100
+++ b/ListView.st Mon Dec 04 00:49:33 1995 +0100
@@ -52,7 +52,7 @@
!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.49 1995-12-03 23:39:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.50 1995-12-03 23:49:33 cg Exp $'
!
documentation
@@ -1425,12 +1425,13 @@
and:(firstLineShown + nLinesShown).
w := w + leftMargin.
- y0 := margin.
+ y0 := textStartTop - (lineSpacing//2).
h := nPixel + y0.
+
self catchExpose.
self copyFrom:self x:margin y:h
toX:margin y:y0
- width:w height:(height - h + (lineSpacing // 2)).
+ width:w height:(height - h + lineSpacing).
firstLineShown := firstLineShown + count.
viewOrigin := viewOrigin x @ (viewOrigin y + nPixel).