--- a/ClrListEntry.st	Thu Sep 07 14:48:20 1995 +0200
+++ b/ClrListEntry.st	Sat Sep 09 04:32:00 1995 +0200
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg2/Attic/ClrListEntry.st,v 1.2 1995-05-18 23:00:30 claus Exp $
+$Header: /cvs/stx/stx/libwidg2/Attic/ClrListEntry.st,v 1.3 1995-09-09 02:32:00 claus Exp $
 "
 !
 
@@ -101,8 +101,12 @@
 displayOn:aGC x:x y:y
     "display the receiver on a GC"
 
+    |savedPaint|
+
+    savedPaint := aGC paint.
     aGC paint:color.
     aGC displayString:string x:x y:y.
+    aGC paint:savedPaint
 ! !
 
 !ColoredListEntry methodsFor:'accessing'!

--- a/ColoredListEntry.st	Thu Sep 07 14:48:20 1995 +0200
+++ b/ColoredListEntry.st	Sat Sep 09 04:32:00 1995 +0200
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg2/ColoredListEntry.st,v 1.2 1995-05-18 23:00:30 claus Exp $
+$Header: /cvs/stx/stx/libwidg2/ColoredListEntry.st,v 1.3 1995-09-09 02:32:00 claus Exp $
 "
 !
 
@@ -101,8 +101,12 @@
 displayOn:aGC x:x y:y
     "display the receiver on a GC"
 
+    |savedPaint|
+
+    savedPaint := aGC paint.
     aGC paint:color.
     aGC displayString:string x:x y:y.
+    aGC paint:savedPaint
 ! !
 
 !ColoredListEntry methodsFor:'accessing'!