[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
|