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

commits at source.squeak.org commits at source.squeak.org
Tue Aug 9 08:05:45 UTC 2016


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

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

Name: System-mt.873
Author: mt
Time: 9 August 2016, 10:05:18.198688 am
UUID: a3845c22-eea2-9d4e-9621-efa1e6355f05
Ancestors: System-mt.872

Add missing background fill for Monokai and Solarized themes. (Which will be used unless overridden by a user's custom background :)

=============== Diff against System-mt.872 ===============

Item was changed:
  ----- Method: MonokaiTheme class>>createDark (in category 'instance creation') -----
  createDark
  	"self createDark apply."
  	| name |
  	name := 'Monokai (dark)'.
  	^ (self named: name) in: [:theme |
  		theme merge: (self named: 'Squeak') overwrite: true.
  		theme name: name.
  		
  		"General morph stuff."
  		theme
  			set: #keyboardFocusColor for: #Morph to: self yellow;
  			set: #keyboardFocusWidth for: #Morph to: 1.
  
+ 		theme set: #background for: #MorphicProject to: (BitmapFillStyle fromForm: self darkBackgroundForm).
+ 
  		self
  			addDarkFonts: theme;
  			addDarkWindowColors: theme;
  			addDarkSyntaxHighlighting: theme;
  			addDarkScrollables: theme;
  			addDarkButtons: theme;
  			addDarkDialogs: theme;
  			addDarkMenusAndDockingBars: theme.
  
  		theme]!

Item was added:
+ ----- 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
+ 			alpha: c alpha]!

Item was changed:
  ----- Method: SolarizedTheme class>>createDark (in category 'instance creation') -----
  createDark
  	"self createDark apply."
  	| name |
  	name := 'Solarized (dark)'.
  	^ (self named: name) in: [:theme |
  		theme merge: (self named: 'Squeak') overwrite: true.
  		theme name: name.
  		
  		"General morph stuff."
  		theme
  			set: #keyboardFocusColor for: #Morph to: self darkContentSecondary;
  			set: #keyboardFocusWidth for: #Morph to: 1.
+ 			
+ 		theme set: #background for: #MorphicProject to: (BitmapFillStyle fromForm: self darkBackgroundForm).
  
  		self
  			addDarkFonts: theme;
  			addDarkWindowColors: theme;
  			addDarkSyntaxHighlighting: theme;
  			addDarkScrollables: theme;
  			addDarkButtons: theme;
  			addDarkDialogs: theme;
  			addDarkMenusAndDockingBars: theme.
  			
  		theme]!

Item was changed:
  ----- Method: SolarizedTheme class>>createLight (in category 'instance creation') -----
  createLight
  	"You have to create dark first.
  	self createLight apply."
  	
  	| name |
  	name := 'Solarized (light)'.
  	^ (self named: 'Solarized (light)') in: [:theme |
  		theme merge: (self named: 'Solarized (dark)') overwrite: true.
  		theme name: name.
  	
  		"General morph stuff."
  		theme
  			set: #keyboardFocusColor for: #Morph to: self lightContentSecondary;
  			set: #keyboardFocusWidth for: #Morph to: 1.
+ 			
+ 		theme set: #background for: #MorphicProject to: (BitmapFillStyle fromForm: self lightBackgroundForm).
  
  		self
  			addLightFonts: theme;
  			addLightWindowColors: theme;
  			addLightSyntaxHighlighting: theme;
  			addLightScrollables: theme;
  			addLightButtons: theme;
  			addLightDialogs: theme;
  			addLightMenusAndDockingBars: theme.
  			
  		theme]!

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

Item was added:
+ ----- 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: 1.0 - c brightness
+ 			alpha: c alpha]!



More information about the Squeak-dev mailing list