The Trunk: System-mt.873.mcz

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