--- a/UserPreferences.st	Mon Feb 20 10:49:18 2006 +0100
+++ b/UserPreferences.st	Mon Feb 20 10:49:52 2006 +0100
@@ -1560,7 +1560,7 @@
     "the color used for local variable identifiers;
      If syntaxColoring is turned on."
 
-    ^ self at:#localIdentifierColor ifAbsentPut:[self identifierColor]
+    ^ self at:#localIdentifierColor ifAbsent:[self identifierColor]
 
     "
      UserPreferences current at:#localIdentifierColor put:Color green darkened.
@@ -1575,7 +1575,7 @@
     "the emphais used for local variable identifiers;
      If syntaxColoring is turned on."
 
-    ^ self at:#localIdentifierEmphasis ifAbsentPut:[self identifierEmphasis]
+    ^ self at:#localIdentifierEmphasis ifAbsent:[self identifierEmphasis]
 
     "Created: / 31.3.1998 / 15:16:56 / cg"
     "Modified: / 1.4.1998 / 13:24:42 / cg"
@@ -1601,6 +1601,20 @@
     "Modified: / 1.4.1998 / 13:24:20 / cg"
 !
 
+numberConstantColor
+    "the color used for number constants;
+     If syntaxColoring is turned on."
+
+    ^ self at:#numberConstantColor ifAbsent:[ self constantColor ]
+!
+
+numberConstantEmphasis
+    "the emphasis used for number constants;
+     If syntaxColoring is turned on."
+
+    ^ self at:#numberConstantEmphasis ifAbsent:[ self constantEmphasis ]
+!
+
 poolVariableIdentifierColor
     "the color used for pool variable identifiers
      If syntaxColoring is turned on."
@@ -2308,6 +2322,7 @@
             (#resetSyntaxColorsGreenComments                'green comments')
             (#resetSyntaxColorsBlueSelectorsGreenComments   'blue selectors; green comments [dolphin style]')
             (#resetSyntaxColorsBlueSelectorsGreyComments    'blue selectors; grey comments')
+            (#resetSyntaxColorsToSqueakStyle                'blue selectors; green comments [squeak style]')
             (#resetSyntaxColorsAllBlackExceptBadIDs         'no colors, but highlight errors')
       )
 !
@@ -2361,6 +2376,23 @@
     self class syntaxColorKeys do:[:k | self removeKey:k ifAbsent:nil].
     self at:#commentColor put:(Color green darkened).
 
+!
+
+resetSyntaxColorsToSqueakStyle
+    "resets the colors in the CurrentPreferences to alternative default values
+     (with blue selectors and green comments)"
+
+    self class syntaxColorKeys do:[:k | self removeKey:k ifAbsent:nil].
+    self at:#commentColor             put:(Color green darkened).
+    self at:#commentEmphasis          put:#italic.
+    self at:#selectorColor            put:(Color blue:80).
+    self at:#selectorEmphasis         put:#normal.
+    self at:#methodSelectorColor      put:(Color black).
+    self at:#methodSelectorEmphasis   put:#bold.
+    self at:#globalIdentifierEmphasis put:#bold.
+    self at:#localIdentifierColor     put:(Color grey:40).
+    self at:#instVarIdentifierEmphasis put:#bold.
+    self at:#constantColor            put:(Color red:67).
 ! !
 
 !UserPreferences methodsFor:'default values'!
@@ -2404,5 +2436,5 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.159 2006-02-08 15:33:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.160 2006-02-20 09:49:52 cg Exp $'
 ! !