[squeak-dev] The Trunk: System-mt.890.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Aug 15 09:01:55 UTC 2016 

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

More information about the Squeak-dev mailing list