--- 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