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

commits at source.squeak.org commits at source.squeak.org
Tue Aug 9 07:51:06 UTC 2016


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

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

Name: System-mt.872
Author: mt
Time: 9 August 2016, 9:50:40.868964 am
UUID: 511a4f87-d58e-cd46-ae15-97e9b82e1ab1
Ancestors: System-cmm.871

Fix UI theme creation in the sense that it will merge-in settings from other themes but overwrite existing settings. Makes the adjustment for UI themes for the release easier. You don't have to remove them or clean them up first.

=============== Diff against System-cmm.871 ===============

Item was changed:
  ----- Method: CommunityTheme class>>createDark (in category 'instance creation') -----
  createDark
  	"self createDark apply."
  	| name |
  	name := 'Community (dark)'.
  	^ (self named: name) in: [:theme |
+ 		theme merge: (self named: 'Squeak') overwrite: true.
- 		theme merge: (self named: 'Squeak').
  		theme name: name.
  		"General morph stuff."
  		theme
  			set: #borderColor for: #ScrollPane to: (Color transparent) ;
  			set: #keyboardFocusColor for: #Morph to: (self dbSelection adjustSaturation: -0.3 brightness: 0.10);
  			set: #keyboardFocusWidth for: #Morph to: 2;
  			set: #softShadowColor for: #Morph to: (self dbSelection muchLighter alpha: 0.025);
  			set: #softShadowOffset for: #Morph to: (10 at 8 corner: 10 at 12);
  			set: #hardShadowColor for: #Morph to: (self dbSelection muchLighter alpha: 0.02);
  			set: #hardShadowOffset for: #Morph to: 1 at 1.
  		self
  			addDarkFonts: theme;
  			addDarkWindowColors: theme;
  			addDarkSyntaxHighlighting: theme;
  			addDarkScrollables: theme;
  			addDarkButtons: theme;
  			addDarkDialogs: theme;
  			addDarkMenusAndDockingBars: theme.
  		theme]!

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 merge: (self named: 'Squeak').
  		theme name: name.
  		
  		"General morph stuff."
  		theme
  			set: #keyboardFocusColor for: #Morph to: self yellow;
  			set: #keyboardFocusWidth for: #Morph to: 1.
  
  		self
  			addDarkFonts: theme;
  			addDarkWindowColors: theme;
  			addDarkSyntaxHighlighting: theme;
  			addDarkScrollables: theme;
  			addDarkButtons: theme;
  			addDarkDialogs: theme;
  			addDarkMenusAndDockingBars: theme.
  
  		theme]!

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 merge: (self named: 'Squeak').
  		theme name: name.
  		
  		"General morph stuff."
  		theme
  			set: #keyboardFocusColor for: #Morph to: self darkContentSecondary;
  			set: #keyboardFocusWidth for: #Morph to: 1.
  
  		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 merge: (self named: 'Solarized (dark)').
  		theme name: name.
  	
  		"General morph stuff."
  		theme
  			set: #keyboardFocusColor for: #Morph to: self lightContentSecondary;
  			set: #keyboardFocusWidth for: #Morph to: 1.
  
  		self
  			addLightFonts: theme;
  			addLightWindowColors: theme;
  			addLightSyntaxHighlighting: theme;
  			addLightScrollables: theme;
  			addLightButtons: theme;
  			addLightDialogs: theme;
  			addLightMenusAndDockingBars: theme.
  			
  		theme]!

Item was changed:
  ----- Method: SqueakTheme class>>createDuller (in category 'instance creation') -----
  createDuller
  	"self createDuller apply"
  	
  	| name |
  	name := 'Squeak (duller windows)'.
  	^ (self named:name) in: [:theme |
+ 		theme merge: (self named: 'Squeak') overwrite: true.
- 		theme merge: (self named: 'Squeak').
  		theme name: name.
  		self addDullerWindowColors: theme.
  		theme]!



More information about the Squeak-dev mailing list