The Trunk: System-mt.872.mcz

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@8 corner: 10@12);
  set: #hardShadowColor for: #Morph to: (self dbSelection muchLighter alpha: 0.02);
  set: #hardShadowOffset for: #Morph to: 1@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]!