--- a/Text.st	Tue Nov 24 17:44:16 1998 +0100
+++ b/Text.st	Fri Dec 04 17:01:18 1998 +0100
@@ -642,8 +642,10 @@
                 k := emphasis key.
                 k == #color ifTrue:[
                     color := value onDevice:device.
+                    emphasis value:color.
                 ] ifFalse:[k == #backgroundColor ifTrue:[
-                    bgPaint := value onDevice:device
+                    bgPaint := value onDevice:device.
+                    emphasis value:bgPaint.
                 ]]
             ] ifFalse:[
                 emphasis notNil ifTrue:[
@@ -661,9 +663,11 @@
                                 value := entry value.
                                 k := entry key.
                                 k == #color ifTrue:[
-                                    color := value onDevice:device
+                                    color := value onDevice:device.
+                                    entry value:color.
                                 ] ifFalse:[k == #backgroundColor ifTrue:[
-                                    bgPaint := value onDevice:device
+                                    bgPaint := value onDevice:device.
+                                    entry value:bgPaint.
                                 ]]
                             ]
                         ]]]]]]]]
@@ -729,7 +733,7 @@
     aGC paint:savedPaint on:savedBgPaint.
 
     "Created: / 12.5.1996 / 11:14:30 / cg"
-    "Modified: / 17.11.1998 / 14:23:41 / cg"
+    "Modified: / 4.12.1998 / 16:58:51 / cg"
 ! !
 
 !Text methodsFor:'emphasis'!
@@ -1190,6 +1194,6 @@
 !Text class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.46 1998-11-17 15:22:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.47 1998-12-04 16:01:18 cg Exp $'
 ! !
 Text initialize!