*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 04 Dec 1995 00:49:33 +0100
changeset 227 4908ae89a567
parent 226 29245e0e4414
child 228 dd2c63ac0b13
*** empty log message ***
ListView.st
--- 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).