The Trunk: System-mt.890.mcz

Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.890.mcz

==================== Summary ====================

Name: System-mt.890
Author: mt
Time: 15 August 2016, 11:01:06.485884 am
UUID: e5b6e8b2-4aac-5b4c-9294-383e9379671a
Ancestors: System-mt.889

Small adjustments in Solarized and Monokai themes regarding window colors and button border colors.

=============== Diff against System-mt.889 ===============

Item was changed:
  ----- Method: MonokaiTheme class>>addDarkButtons: (in category 'instance creation') -----
  addDarkButtons: theme
  "self createDark apply."
  theme
  set: #borderColor for: #PluggableButtonMorph to: self backgroundColor;
  set: #color for: #PluggableButtonMorph to: self invisibleColor;
  set: #textColor for: #PluggableButtonMorph to: self yellow;
 
  set: #selectionModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.1] ];
  set: #hoverModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.1] ];
  set: #feedbackModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.3] ].
 
  "And the plus-version."
+ theme set: #disabledTextColor for: #PluggableButtonMorphPlus to: self grayDarker.
- theme set: #disabledTextColor for: #PluggableButtonMorphPlus to: self grayLight.
  !

Item was changed:
  ----- Method: MonokaiTheme class>>addDarkWindowColors: (in category 'instance creation') -----
  addDarkWindowColors: theme
  "self createDark apply."
  theme
+ set: #uniformWindowColor for: #Model to: self invisibleColor lighter;
- set: #uniformWindowColor for: #Model to: self invisibleColor;
 
+ set: #unfocusedWindowColorModifier for: #SystemWindow to: [ [:color | color darker] ];
- set: #unfocusedWindowColorModifier for: #SystemWindow to: [ [:color |
- Model useColorfulWindows
- ifTrue: [color darker]
- ifFalse: [(Color r: 0.152 g: 0.156 b: 0.133) "background color"] ] ];
  set: #unfocusedLabelColor for: #SystemWindow to: [
  Model useColorfulWindows
  ifTrue: [(Color r: 0.285 g: 0.282 b: 0.242) "invisible color"]
  ifFalse: [(Color r: 0.972 g: 0.972 b: 0.948) "foreground color"] ];
  set: #focusedLabelColor for: #SystemWindow to: [
  Model useColorfulWindows
  ifTrue: [(Color r: 0.152 g: 0.156 b: 0.133) "background color"]
  ifFalse: [(Color r: 0.901 g: 0.858 b: 0.455) "yellow"] ];
 
  set: #customWindowColor for: #Browser to: self green;
  set: #customWindowColor for: #ChangeList to: self blue;
  set: #customWindowColor for: #ChangeSorter to: self blue;
  set: #customWindowColor for: #ChatNotes to: self magenta;
  set: #customWindowColor for: #ClassCommentVersionsBrowser to: self violet;
  set: #customWindowColor for: #Debugger to: self red;
  set: #customWindowColor for: #DualChangeSorter to: self blue;
  set: #customWindowColor for: #FileContentsBrowser to: self yellow;
  set: #customWindowColor for: #FileList to: self yellow;
  set: #customWindowColor for: #InstanceBrowser to: self cyan;
  set: #customWindowColor for: #Lexicon to: self cyan;
  set: #customWindowColor for: #MCTool to: self violet;
  set: #customWindowColor for: #MessageNames to: self green;
  set: #customWindowColor for: #MessageSet to: self cyan;
  set: #customWindowColor for: #PackagePaneBrowser to: self green;
  set: #customWindowColor for: #PluggableFileList to: self yellow;
  set: #customWindowColor for: #PreferenceBrowser to: self cyan;
  set: #customWindowColor for: #SMLoader to: self orange;
  set: #customWindowColor for: #SMLoaderPlus to: self orange;
  set: #customWindowColor for: #SMReleaseBrowser to: self orange;
  set: #customWindowColor for: #ScriptingDomain to: self yellow;
  set: #customWindowColor for: #SelectorBrowser to: self cyan;
  set: #customWindowColor for: #StringHolder to: self yellow;
  set: #customWindowColor for: #TestRunner to: self orange;
  set: #customWindowColor for: #TranscriptStream to: self orange;
  set: #customWindowColor for: #VersionsBrowser to: self violet.!

Item was changed:
  ----- Method: MonokaiTheme class>>darkBackgroundForm (in category 'instance creation') -----
  darkBackgroundForm
 
  | ref |
  ref := self backgroundColor.
 
  ^ (SqueakTheme linenblue  asFormOfDepth: 32) collectColors: [:c |
  Color
  h:ref hue
  s: ref saturation
+ v: c brightness - 0.1
- v: c brightness
  alpha: c alpha]!

Item was changed:
  ----- Method: SolarizedTheme class>>addDarkButtons: (in category 'instance creation') -----
  addDarkButtons: theme
  "self createDark apply."
  theme
+ set: #borderColor for: #PluggableButtonMorph to: self darkContentSecondary;
- set: #borderColor for: #PluggableButtonMorph to: self darkBackground;
  set: #color for: #PluggableButtonMorph to: self darkBackgroundHighlights;
  set: #textColor for: #PluggableButtonMorph to: self darkContentEmphasizedMore;
 
  set: #selectionModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.1] ];
  set: #hoverModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.1] ];
  set: #feedbackModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.3] ].
 
  "And the plus-version."
  theme set: #disabledTextColor for: #PluggableButtonMorphPlus to: self darkContentSecondary.
  !

Item was changed:
  ----- Method: SolarizedTheme class>>addDarkWindowColors: (in category 'instance creation') -----
  addDarkWindowColors: theme
  "self createDark apply."
  theme
+ set: #uniformWindowColor for: #Model to: self darkBackgroundHighlights lighter;
- set: #uniformWindowColor for: #Model to: self darkBackgroundHighlights;
 
+ set: #unfocusedWindowColorModifier for: #SystemWindow to: [ [:color | color darker] ];
- set: #unfocusedWindowColorModifier for: #SystemWindow to: [ [:color |
- Model useColorfulWindows
- ifTrue: [color darker]
- ifFalse: [(Color r: 0.0 g: 0.168 b: 0.211) "dark background"] ] ];
  set: #unfocusedLabelColor for: #SystemWindow to: self darkContentEmphasized;
  set: #focusedLabelColor for: #SystemWindow to: self darkContentEmphasizedMore;
 
  set: #customWindowColor for: #Browser to: self green;
  set: #customWindowColor for: #ChangeList to: self blue;
  set: #customWindowColor for: #ChangeSorter to: self blue;
  set: #customWindowColor for: #ChatNotes to: self magenta;
  set: #customWindowColor for: #ClassCommentVersionsBrowser to: self violet;
  set: #customWindowColor for: #Debugger to: self red;
  set: #customWindowColor for: #DualChangeSorter to: self blue;
  set: #customWindowColor for: #FileContentsBrowser to: self yellow;
  set: #customWindowColor for: #FileList to: self yellow;
  set: #customWindowColor for: #InstanceBrowser to: self cyan;
  set: #customWindowColor for: #Lexicon to: self cyan;
  set: #customWindowColor for: #MCTool to: self violet;
  set: #customWindowColor for: #MessageNames to: self green;
  set: #customWindowColor for: #MessageSet to: self cyan;
  set: #customWindowColor for: #PackagePaneBrowser to: self green;
  set: #customWindowColor for: #PluggableFileList to: self yellow;
  set: #customWindowColor for: #PreferenceBrowser to: self cyan;
  set: #customWindowColor for: #SMLoader to: self orange;
  set: #customWindowColor for: #SMLoaderPlus to: self orange;
  set: #customWindowColor for: #SMReleaseBrowser to: self orange;
  set: #customWindowColor for: #ScriptingDomain to: self yellow;
  set: #customWindowColor for: #SelectorBrowser to: self cyan;
  set: #customWindowColor for: #StringHolder to: self yellow;
  set: #customWindowColor for: #TestRunner to: self orange;
  set: #customWindowColor for: #TranscriptStream to: self orange;
  set: #customWindowColor for: #VersionsBrowser to: self violet.!

Item was changed:
  ----- Method: SolarizedTheme class>>addLightButtons: (in category 'instance creation') -----
  addLightButtons: theme
  "self createLight apply."
  theme
+ set: #borderColor for: #PluggableButtonMorph to: self lightContentSecondary;
- set: #borderColor for: #PluggableButtonMorph to: self lightBackground;
  set: #color for: #PluggableButtonMorph to: self lightBackgroundHighlights;
  set: #textColor for: #PluggableButtonMorph to: self lightContentEmphasizedMore;
 
  set: #selectionModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.1] ];
  set: #hoverModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.1] ];
  set: #feedbackModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.3] ].
 
  "And the plus-version."
  theme set: #disabledTextColor for: #PluggableButtonMorphPlus to: self lightContentSecondary.
  !

Item was changed:
  ----- Method: SolarizedTheme class>>addLightWindowColors: (in category 'instance creation') -----
  addLightWindowColors: theme
  "self createLight apply."
  theme
+ set: #uniformWindowColor for: #Model to: self lightBackgroundHighlights darker;
- set: #uniformWindowColor for: #Model to: self lightBackgroundHighlights;
 
+ set: #unfocusedWindowColorModifier for: #SystemWindow to: [ [:color | color lighter] ];
- set: #unfocusedWindowColorModifier for: #SystemWindow to: [ [:color |
- Model useColorfulWindows
- ifTrue: [color darker]
- ifFalse: [Color r: 0.991 g: 0.964 b: 0.89 "light background"] ] ];
  set: #unfocusedLabelColor for: #SystemWindow to: self lightContentEmphasized;
  set: #focusedLabelColor for: #SystemWindow to: self lightContentEmphasizedMore;
 
  set: #customWindowColor for: #Browser to: self green;
  set: #customWindowColor for: #ChangeList to: self blue;
  set: #customWindowColor for: #ChangeSorter to: self blue;
  set: #customWindowColor for: #ChatNotes to: self magenta;
  set: #customWindowColor for: #ClassCommentVersionsBrowser to: self violet;
  set: #customWindowColor for: #Debugger to: self red;
  set: #customWindowColor for: #DualChangeSorter to: self blue;
  set: #customWindowColor for: #FileContentsBrowser to: self yellow;
  set: #customWindowColor for: #FileList to: self yellow;
  set: #customWindowColor for: #InstanceBrowser to: self cyan;
  set: #customWindowColor for: #Lexicon to: self cyan;
  set: #customWindowColor for: #MCTool to: self violet;
  set: #customWindowColor for: #MessageNames to: self green;
  set: #customWindowColor for: #MessageSet to: self cyan;
  set: #customWindowColor for: #PackagePaneBrowser to: self green;
  set: #customWindowColor for: #PluggableFileList to: self yellow;
  set: #customWindowColor for: #PreferenceBrowser to: self cyan;
  set: #customWindowColor for: #SMLoader to: self orange;
  set: #customWindowColor for: #SMLoaderPlus to: self orange;
  set: #customWindowColor for: #SMReleaseBrowser to: self orange;
  set: #customWindowColor for: #ScriptingDomain to: self yellow;
  set: #customWindowColor for: #SelectorBrowser to: self cyan;
  set: #customWindowColor for: #StringHolder to: self yellow;
  set: #customWindowColor for: #TestRunner to: self orange;
  set: #customWindowColor for: #TranscriptStream to: self orange;
  set: #customWindowColor for: #VersionsBrowser to: self violet.!

Item was changed:
  ----- Method: SolarizedTheme class>>lightBackgroundForm (in category 'instance creation') -----
  lightBackgroundForm
 
  | ref |
  ref := self lightBackground.
 
  ^ (SqueakTheme linenblue  asFormOfDepth: 32) collectColors: [:c |
  Color
  h:ref hue
  s: ref saturation
+ v: 0.7 - c brightness
- v: 1.0 - c brightness
  alpha: c alpha]!