UserPreferences.st
changeset 23904 37b084c9cc20
parent 23782 1fc3c2e0bc92
child 23905 c43e85ec62c1
--- a/UserPreferences.st	Wed Mar 13 21:04:25 2019 +0100
+++ b/UserPreferences.st	Wed Mar 13 21:25:02 2019 +0100
@@ -3333,10 +3333,10 @@
 
     emp := self at:#emphasisForChangedCode ifAbsent:nil.
     emp isNil ifTrue:[
-	emp := #color->Color red darkened.
-	emp := Array with:#bold with:emp.
-	"/ emp := #color->Color blue darkened.
-	self at:#emphasisForChangedCode put:emp.
+        emp := #color->Color darkRed.
+        emp := Array with:#bold with:emp.
+        "/ emp := #color->Color blue darkened.
+        self at:#emphasisForChangedCode put:emp.
     ].
     ^ emp
 
@@ -3347,6 +3347,7 @@
     "
 
     "Modified: / 10-11-2006 / 17:27:23 / cg"
+    "Modified: / 13-03-2019 / 21:19:05 / Claus Gittinger"
 !
 
 emphasisForChangedCodeInSmallTeam
@@ -3377,15 +3378,17 @@
 
     emp := self at:#emphasisForDifferentPackage ifAbsent:nil.
     emp isNil ifTrue:[
-	emp := #color->Color green darkened.
-	"/ emp := Array with:#bold with:emp.
-	self at:#emphasisForDifferentPackage put:emp.
+        emp := #color->Color darkGreen.
+        "/ emp := Array with:#bold with:emp.
+        self at:#emphasisForDifferentPackage put:emp.
     ].
     ^ emp
 
     "
      self allInstancesDo:[:pref |pref at:#emphasisForDifferentPackage put:nil].
     "
+
+    "Modified: / 13-03-2019 / 21:13:24 / Claus Gittinger"
 !
 
 emphasisForInstrumentedFullyCoveredCode
@@ -3467,15 +3470,17 @@
 
     emp := self at:#emphasisForModifiedBuffer ifAbsent:nil.
     emp isNil ifTrue:[
-	emp := #color->Color red darkened.
-	emp := Array with:#bold with:emp.
-	self at:#emphasisForModifiedBuffer put:emp.
+        emp := #color->Color darkRed.
+        emp := Array with:#bold with:emp.
+        self at:#emphasisForModifiedBuffer put:emp.
     ].
     ^ emp
 
     "
      self allInstancesDo:[:pref |pref at:#emphasisForModifiedBuffer put:nil].
     "
+
+    "Modified: / 13-03-2019 / 21:19:08 / Claus Gittinger"
 !
 
 emphasisForNamespacedCode
@@ -3485,10 +3490,10 @@
 
     emp := self at:#emphasisForNamespacedCode ifAbsent:nil.
     emp isNil ifTrue:[
-	emp := #color->Color green darkened.
-	"/ emp := Array with:#bold with:emp.
-	"/ emp := #color->Color blue darkened.
-	self at:#emphasisForNamespacedCode put:emp.
+        emp := #color->Color darkGreen.
+        "/ emp := Array with:#bold with:emp.
+        "/ emp := #color->Color blue darkened.
+        self at:#emphasisForNamespacedCode put:emp.
     ].
     ^ emp
 
@@ -3499,6 +3504,7 @@
     "
 
     "Created: / 01-07-2010 / 18:39:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 13-03-2019 / 21:13:29 / Claus Gittinger"
 !
 
 emphasisForObsoleteCode
@@ -4336,7 +4342,7 @@
     "the emphasis used for xml-attributes;
      If syntaxColoring is turned on."
 
-    ^ self at:#xmlAttributeColor ifAbsent:[ Color green darkened contrastingColorFor:View defaultBackgroundColor]
+    ^ self at:#xmlAttributeColor ifAbsent:[ Color darkGreen contrastingColorFor:View defaultBackgroundColor]
 
     "
      self current at:#xmlAttributeColor put:Color black
@@ -4344,7 +4350,7 @@
     "
 
     "Created: / 24-07-2011 / 21:30:59 / cg"
-    "Modified: / 29-08-2018 / 13:52:44 / Claus Gittinger"
+    "Modified: / 13-03-2019 / 21:14:00 / Claus Gittinger"
 !
 
 xmlAttributeEmphasis
@@ -6161,7 +6167,7 @@
      (with blue selectors and green comments)"
 
     self resetSyntaxColors.
-    self at:#commentColor           putSyntaxColor:(Color green darkened).
+    self at:#commentColor           putSyntaxColor:(Color darkGreen).
     self at:#commentEmphasis        put:#italic.
     self at:#selectorColor          putSyntaxColor:(Color blue).
     self at:#selectorEmphasis       put:#normal.
@@ -6169,7 +6175,7 @@
     self at:#methodSelectorEmphasis put:#bold.
 
     "Modified: / 20-06-2017 / 08:35:49 / cg"
-    "Modified: / 29-08-2018 / 13:44:18 / Claus Gittinger"
+    "Modified: / 13-03-2019 / 21:13:33 / Claus Gittinger"
 !
 
 resetSyntaxColorsBlueSelectorsGreyComments
@@ -6187,10 +6193,10 @@
      (with green comments)"
 
     self resetSyntaxColors.
-    self at:#commentColor putSyntaxColor:(Color green darkened).
+    self at:#commentColor putSyntaxColor:(Color darkGreen).
 
     "Modified: / 16-03-2012 / 10:34:50 / cg"
-    "Modified: / 29-08-2018 / 13:44:25 / Claus Gittinger"
+    "Modified: / 13-03-2019 / 21:13:36 / Claus Gittinger"
 !
 
 resetSyntaxColorsGreenCommentsBlueControlFlowSelectors
@@ -6198,11 +6204,11 @@
      (with green comments, blue control flow)"
 
     self resetSyntaxColors.
-    self at:#commentColor putSyntaxColor:(Color green darkened).
+    self at:#commentColor putSyntaxColor:(Color darkGreen).
     self at:#controlFlowSelectorColor putSyntaxColor:(Color blue).
 
     "Created: / 08-09-2006 / 16:10:38 / cg"
-    "Modified: / 29-08-2018 / 13:44:31 / Claus Gittinger"
+    "Modified: / 13-03-2019 / 21:13:39 / Claus Gittinger"
 !
 
 resetSyntaxColorsToSqueakStyle
@@ -6218,7 +6224,7 @@
      (with blue selectors and green comments)"
 
     self resetSyntaxColors.
-    self at:#commentColor             putSyntaxColor:(Color green darkened).
+    self at:#commentColor             putSyntaxColor:(Color darkGreen).
     self at:#commentEmphasis          put:#italic.
     self at:#selectorColor            putSyntaxColor:(Color blue:80).
     self at:#selectorEmphasis         put:#normal.
@@ -6231,7 +6237,7 @@
 
     "Modified: / 16-03-2012 / 10:34:40 / cg"
     "Modified (comment): / 17-03-2012 / 10:38:47 / cg"
-    "Modified: / 29-08-2018 / 13:44:42 / Claus Gittinger"
+    "Modified: / 13-03-2019 / 21:13:42 / Claus Gittinger"
 !
 
 resetSyntaxColorsToSqueakStyle2
@@ -6239,7 +6245,7 @@
      (with blue selectors and green comments)"
 
     self resetSyntaxColors.
-    self at:#commentColor             putSyntaxColor:(Color green darkened).
+    self at:#commentColor             putSyntaxColor:(Color darkGreen).
     self at:#commentEmphasis          put:#italic.
     self at:#selectorColor            putSyntaxColor:(Color blue:80).
     self at:#selectorEmphasis         put:#normal.
@@ -6257,7 +6263,7 @@
 
     "Modified: / 16-03-2012 / 10:34:35 / cg"
     "Modified (comment): / 17-03-2012 / 10:38:57 / cg"
-    "Modified: / 29-08-2018 / 13:44:54 / Claus Gittinger"
+    "Modified: / 13-03-2019 / 21:13:45 / Claus Gittinger"
 !
 
 resetSyntaxColorsToVAgeStyle
@@ -6287,12 +6293,12 @@
 
     self resetSyntaxColors.
     self at:#controlFlowSelectorColor putSyntaxColor:(Color blue).
-    self at:#commentColor             putSyntaxColor:(Color green darkened).
+    self at:#commentColor             putSyntaxColor:(Color darkGreen).
     self at:#constantColor            putSyntaxColor:(Color red:64 green:8 blue:8).
 
     "Modified: / 16-03-2012 / 10:34:30 / cg"
     "Modified (comment): / 17-03-2012 / 10:39:11 / cg"
-    "Modified: / 29-08-2018 / 13:45:11 / Claus Gittinger"
+    "Modified: / 13-03-2019 / 21:13:50 / Claus Gittinger"
 !
 
 resetSyntaxColorsToVW7Style
@@ -6306,11 +6312,11 @@
     self at:#methodSelectorColor      putSyntaxColor:(Color black).
     self at:#methodSelectorEmphasis   put:#bold.
     self at:#identifierEmphasis       put:#normal.
-    self at:#identifierColor          putSyntaxColor:(Color green darkened).
+    self at:#identifierColor          putSyntaxColor:(Color darkGreen).
 
     "Modified: / 16-03-2012 / 10:34:26 / cg"
     "Modified (comment): / 17-03-2012 / 10:39:18 / cg"
-    "Modified: / 29-08-2018 / 13:45:26 / Claus Gittinger"
+    "Modified: / 13-03-2019 / 21:13:56 / Claus Gittinger"
 !
 
 resetSyntaxColorsWithSideEffectHighlighting