--- 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 $'
! !