--- a/UserPreferences.st	Mon Jan 27 16:46:40 2003 +0100
+++ b/UserPreferences.st	Tue Jan 28 12:24:20 2003 +0100
@@ -249,14 +249,70 @@
 !UserPreferences methodsFor:'accessing-colors'!
 
 emphasisForChangedCode
-    |clr|
-
-    clr := self at:#emphasisForChangedCode ifAbsent:nil.
-    clr isNil ifTrue:[
-        clr := #color->Color red darkened
-        "/ clr := #color->Color blue darkened
+    |emp|
+
+    emp := self at:#emphasisForChangedCode ifAbsent:nil.
+    emp isNil ifTrue:[
+        emp := #color->Color red darkened.
+        "/ emp := #color->Color blue darkened.
+        self at:#emphasisForChangedCode put:emp.
+    ].
+    ^ emp
+!
+
+emphasisForDifferentPackage
+    |emp|
+
+    emp := self at:#emphasisForDifferentPackage ifAbsent:nil.
+    emp isNil ifTrue:[
+        emp := #color->Color brown darkened.
+        self at:#emphasisForDifferentPackage put:emp.
+    ].
+    ^ emp
+!
+
+emphasisForModifiedBuffer
+    |emp|
+
+    emp := self at:#emphasisForModifiedBuffer ifAbsent:nil.
+    emp isNil ifTrue:[
+        emp := #color->Color red darkened.
+        self at:#emphasisForModifiedBuffer put:emp.
     ].
-    ^ clr
+    ^ emp
+!
+
+emphasisForObsoleteCode
+    |emp|
+
+    emp := self at:#emphasisForObsoleteCode ifAbsent:nil.
+    emp isNil ifTrue:[
+        emp := #color->Color red.
+        self at:#emphasisForObsoleteCode put:emp.
+    ].
+    ^ emp
+!
+
+emphasisForReadVariable
+    |emp|
+
+    emp := self at:#emphasisForReadVariable ifAbsent:nil.
+    emp isNil ifTrue:[
+        emp := #underline.
+        self at:#emphasisForReadVariable put:emp.
+    ].
+    ^ emp
+!
+
+emphasisForWrittenVariable
+    |emp|
+
+    emp := self at:#emphasisForWrittenVariable ifAbsent:nil.
+    emp isNil ifTrue:[
+        emp := Array with:#underline with:#underlineColor->Color red.
+        self at:#emphasisForWrittenVariable put:emp.
+    ].
+    ^ emp
 ! !
 
 !UserPreferences methodsFor:'accessing-pref''d tools'!
@@ -1856,5 +1912,5 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.94 2003-01-21 15:27:35 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.95 2003-01-28 11:24:20 cg Exp $'
 ! !