*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Sun, 03 Dec 1995 23:21:28 +0100
changeset 223 997d7455758f
parent 222 4ad626c08748
child 224 ebec7c7c015a
*** empty log message ***
ListView.st
--- 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.
 	].
     ].