--- a/ListView.st	Thu Jun 02 19:35:58 2005 +0200
+++ b/ListView.st	Mon Jun 13 18:15:02 2005 +0200
@@ -1633,7 +1633,7 @@
             self fillRectangleX:x y:yf width:w height:fontHeight.
             self paint:fg
         ].
-        self clippedTo:(Rectangle origin:(x@yf) extent:(w@fontHeight)) do:[
+        self clippedTo:(Rectangle left:x top:yf width:w height:fontHeight) do:[
             self drawVisibleLine:visLineNr with:fg and:bg
         ].
         ^ self
@@ -1688,7 +1688,7 @@
                 self fillRectangleX:x+w y:yf width:w2 height:fontHeight.
             ].
             w > 0 ifTrue:[
-                self clippedTo:(Rectangle origin:(x@yf) extent:(w@fontHeight)) do:[
+                self clippedTo:(Rectangle left:x top:yf width:w height:fontHeight) do:[
                     self drawVisibleLine:visLineNr with:fg and:bg.
                 ]
             ]
@@ -4424,5 +4424,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.301 2005-04-07 18:08:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.302 2005-06-13 16:15:02 cg Exp $'
 ! !