--- a/ColoredListEntry.st	Thu Dec 07 23:25:39 1995 +0100
+++ b/ColoredListEntry.st	Mon Dec 11 18:05:14 1995 +0100
@@ -122,7 +122,7 @@
 
 !ColoredListEntry methodsFor:'drawing'!
 
-displayOn:aGC x:x y:y
+displayOn:aGC x:x y:y opaque:opaque
     "display the receiver on a GC"
 
     |savedPaint savedBgPaint|
@@ -135,7 +135,11 @@
 	aGC paint:savedPaint on:savedBgPaint
     ] ifFalse:[
 	aGC paint:color.
-	aGC displayString:(string withTabsExpanded) x:x y:y.
+	opaque ifTrue:[
+	    aGC displayOpaqueString:(string withTabsExpanded) x:x y:y.
+	] ifFalse:[
+	    aGC displayString:(string withTabsExpanded) x:x y:y.
+	].
 	aGC paint:savedPaint
     ]
 
@@ -153,5 +157,5 @@
 !ColoredListEntry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ColoredListEntry.st,v 1.8 1995-11-23 18:09:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ColoredListEntry.st,v 1.9 1995-12-11 17:05:12 cg Exp $'
 ! !