ListView.st
changeset 225 a746c20f2b66
parent 224 ebec7c7c015a
child 226 29245e0e4414
--- a/ListView.st	Sun Dec 03 23:58:42 1995 +0100
+++ b/ListView.st	Mon Dec 04 00:05:05 1995 +0100
@@ -52,7 +52,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.47 1995-12-03 22:58:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.48 1995-12-03 23:05:05 cg Exp $'
 !
 
 documentation
@@ -1545,9 +1545,9 @@
 	    w := self widthForScrollBetween:firstLineShown
 					and:(firstLineShown + nLinesShown).
 	    w := w + leftMargin.
-	    h := nPixel + textStartTop.
+	    h := nPixel + margin.
 	    self catchExpose.
-	    self copyFrom:self x:margin y:textStartTop
+	    self copyFrom:self x:margin y:margin 
 			     toX:margin y:h
 			   width:w height:(height - h).
 	    firstLineShown := firstLineShown - count.