diff -r 8c83ea70a673 -r 12bfba6f62b5 ListView.st
--- a/ListView.st	Tue Feb 27 17:41:35 1996 +0100
+++ b/ListView.st	Wed Feb 28 14:47:01 1996 +0100
@@ -788,7 +788,27 @@
 
 drawLine:line atX:x inVisible:visLineNr with:fg and:bg
     "draw a given string at visible lines position with
-     given x position in fg/bg.
+     given x position in fg/bg. Clears the whole line before drawing the string.
+     Low level entry; not meant for public use."
+
+    |y|
+
+    y := self yOfVisibleLine:visLineNr.
+    self paint:bg.
+    self fillRectangleX:margin y:y - (lineSpacing//2)
+                  width:(width - (2 * margin)) 
+                 height:fontHeight.
+    line notNil ifTrue:[
+        self paint:fg on:bg.
+        self displayOpaqueString:line x:x y:(y + fontAscent)
+    ]
+
+    "Modified: 28.2.1996 / 14:46:07 / cg"
+!
+
+drawLine:line fromX:x inVisible:visLineNr with:fg and:bg
+    "draw a given string at visible lines position with
+     given x position in fg/bg. Clears partial line before drawing the string.
      Low level entry; not meant for public use."
 
     |y|
@@ -803,7 +823,7 @@
         self displayOpaqueString:line x:x y:(y + fontAscent)
     ]
 
-    "Modified: 26.2.1996 / 23:33:20 / cg"
+    "Modified: 28.2.1996 / 14:46:23 / cg"
 !
 
 drawLine:line inVisible:visLineNr with:fg and:bg
@@ -2828,5 +2848,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.69 1996-02-26 22:42:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.70 1996-02-28 13:47:01 cg Exp $'
 ! !