[Pkg] The Trunk: System-mt.895.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Aug 16 12:02:17 UTC 2016
Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.895.mcz
==================== Summary ====================
Name: System-mt.895
Author: mt
Time: 16 August 2016, 1:41:37.752602 pm
UUID: 9960fb09-edfe-7442-b175-2bea31dbcbd8
Ancestors: System-mt.894
Sets UI theme colors for TestRunner status field.
=============== Diff against System-mt.894 ===============
Item was added:
+ ----- Method: CommunityTheme class>>addDarkToolColors: (in category 'instance creation') -----
+ addDarkToolColors: theme
+ "Tool-specific colors."
+
+ theme
+ set: #failureColor for: #TestRunner to: self dbYellow;
+ set: #errorColor for: #TestRunner to: self dbRed;
+ set: #passColor for: #TestRunner to: self dbGreen.!
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 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;
+ addDarkToolColors: theme.
- addDarkMenusAndDockingBars: theme.
theme]!
Item was added:
+ ----- Method: MonokaiTheme class>>addDarkToolColors: (in category 'instance creation') -----
+ addDarkToolColors: theme
+ "Tool-specific colors."
+
+ theme
+ set: #failureColor for: #TestRunner to: self yellow;
+ set: #errorColor for: #TestRunner to: self red;
+ set: #passColor for: #TestRunner to: self green;
+
+ set: #failureTextColor for: #TestRunner to: self backgroundColor;
+ set: #errorTextColor for: #TestRunner to: self backgroundColor;
+ set: #passTextColor for: #TestRunner to: self backgroundColor.!
Item was changed:
----- Method: MonokaiTheme class>>addDarkWindowColors: (in category 'instance creation') -----
addDarkWindowColors: theme
"self createDark apply."
theme
set: #uniformWindowColor for: #Model to:( self invisibleColor adjustBrightness: 0.16) "lighter twice";
set: #unfocusedWindowColorModifier for: #SystemWindow to: [ [:color | color adjustBrightness: -0.16 "darker twice"] ];
set: #unfocusedLabelColor for: #SystemWindow to: [
Model useColorfulWindows
ifTrue: [(Color r: 0.285 g: 0.282 b: 0.242) "invisible color"]
ifFalse: [(Color r: 0.972 g: 0.972 b: 0.948) "foreground color"] ];
set: #focusedLabelColor for: #SystemWindow to: [
Model useColorfulWindows
ifTrue: [(Color r: 0.152 g: 0.156 b: 0.133) "background color"]
ifFalse: [(Color r: 0.901 g: 0.858 b: 0.455) "yellow"] ];
+ set: #customWindowColor for: #Browser to: self green duller;
+ set: #customWindowColor for: #ChangeList to: self blue duller;
+ set: #customWindowColor for: #ChangeSorter to: self blue duller;
+ set: #customWindowColor for: #ChatNotes to: self magenta duller;
+ set: #customWindowColor for: #ClassCommentVersionsBrowser to: self violet duller;
+ set: #customWindowColor for: #Debugger to: self red duller;
+ set: #customWindowColor for: #DualChangeSorter to: self blue duller;
+ set: #customWindowColor for: #FileContentsBrowser to: self yellow duller;
+ set: #customWindowColor for: #FileList to: self yellow duller;
+ set: #customWindowColor for: #InstanceBrowser to: self cyan duller;
+ set: #customWindowColor for: #Lexicon to: self cyan duller;
+ set: #customWindowColor for: #MCTool to: self violet duller;
+ set: #customWindowColor for: #MessageNames to: self green duller;
+ set: #customWindowColor for: #MessageSet to: self cyan duller;
+ set: #customWindowColor for: #PackagePaneBrowser to: self green duller;
+ set: #customWindowColor for: #PluggableFileList to: self yellow duller;
+ set: #customWindowColor for: #PreferenceBrowser to: self cyan duller;
+ set: #customWindowColor for: #SMLoader to: self orange duller;
+ set: #customWindowColor for: #SMLoaderPlus to: self orange duller;
+ set: #customWindowColor for: #SMReleaseBrowser to: self orange duller;
+ set: #customWindowColor for: #ScriptingDomain to: self yellow duller;
+ set: #customWindowColor for: #SelectorBrowser to: self cyan duller;
+ set: #customWindowColor for: #StringHolder to: self yellow duller;
+ set: #customWindowColor for: #TestRunner to: self orange duller;
+ set: #customWindowColor for: #TranscriptStream to: self orange duller;
+ set: #customWindowColor for: #VersionsBrowser to: self violet duller.!
- set: #customWindowColor for: #Browser to: self green;
- set: #customWindowColor for: #ChangeList to: self blue;
- set: #customWindowColor for: #ChangeSorter to: self blue;
- set: #customWindowColor for: #ChatNotes to: self magenta;
- set: #customWindowColor for: #ClassCommentVersionsBrowser to: self violet;
- set: #customWindowColor for: #Debugger to: self red;
- set: #customWindowColor for: #DualChangeSorter to: self blue;
- set: #customWindowColor for: #FileContentsBrowser to: self yellow;
- set: #customWindowColor for: #FileList to: self yellow;
- set: #customWindowColor for: #InstanceBrowser to: self cyan;
- set: #customWindowColor for: #Lexicon to: self cyan;
- set: #customWindowColor for: #MCTool to: self violet;
- set: #customWindowColor for: #MessageNames to: self green;
- set: #customWindowColor for: #MessageSet to: self cyan;
- set: #customWindowColor for: #PackagePaneBrowser to: self green;
- set: #customWindowColor for: #PluggableFileList to: self yellow;
- set: #customWindowColor for: #PreferenceBrowser to: self cyan;
- set: #customWindowColor for: #SMLoader to: self orange;
- set: #customWindowColor for: #SMLoaderPlus to: self orange;
- set: #customWindowColor for: #SMReleaseBrowser to: self orange;
- set: #customWindowColor for: #ScriptingDomain to: self yellow;
- set: #customWindowColor for: #SelectorBrowser to: self cyan;
- set: #customWindowColor for: #StringHolder to: self yellow;
- set: #customWindowColor for: #TestRunner to: self orange;
- set: #customWindowColor for: #TranscriptStream to: self orange;
- set: #customWindowColor for: #VersionsBrowser to: self violet.!
Item was changed:
----- Method: MonokaiTheme class>>createDark (in category 'instance creation') -----
createDark
"self createDark apply."
| themeName |
themeName := 'Monokai (dark)'.
^ (self named: themeName) in: [:theme |
theme merge: (self named: 'Squeak') overwrite: true.
theme name: themeName.
"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;
+ addDarkToolColors: theme.
- addDarkMenusAndDockingBars: theme.
theme]!
Item was added:
+ ----- Method: SolarizedTheme class>>addDarkToolColors: (in category 'instance creation') -----
+ addDarkToolColors: theme
+ "Tool-specific colors."
+
+ theme
+ set: #failureColor for: #TestRunner to: self yellow;
+ set: #errorColor for: #TestRunner to: self red;
+ set: #passColor for: #TestRunner to: self green;
+
+ set: #failureTextColor for: #TestRunner to: self darkBackground;
+ set: #errorTextColor for: #TestRunner to: self darkBackground;
+ set: #passTextColor for: #TestRunner to: self darkBackground.!
Item was added:
+ ----- Method: SolarizedTheme class>>addLightToolColors: (in category 'instance creation') -----
+ addLightToolColors: theme
+ "Tool-specific colors."
+
+ theme
+ set: #failureColor for: #TestRunner to: self yellow;
+ set: #errorColor for: #TestRunner to: self red;
+ set: #passColor for: #TestRunner to: self green;
+
+ set: #failureTextColor for: #TestRunner to: self lightBackground;
+ set: #errorTextColor for: #TestRunner to: self lightBackground;
+ set: #passTextColor for: #TestRunner to: self lightBackground.!
Item was changed:
----- Method: SolarizedTheme class>>createDark (in category 'instance creation') -----
createDark
"doIt: [self createDark apply.]"
| themeName |
themeName := 'Solarized (dark)'.
^ (self named: themeName) in: [:theme |
theme merge: (self named: 'Squeak') overwrite: true.
theme name: themeName.
"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 lightBackgroundForm).
self
addDarkFonts: theme;
addDarkWindowColors: theme;
addDarkSyntaxHighlighting: theme;
addDarkScrollables: theme;
addDarkButtons: theme;
addDarkDialogs: theme;
+ addDarkMenusAndDockingBars: theme;
+ addDarkToolColors: theme.
- addDarkMenusAndDockingBars: theme.
theme]!
Item was changed:
----- Method: SolarizedTheme class>>createLight (in category 'instance creation') -----
createLight
"You have to create dark first.
doIt: [self createDark. self createLight apply.]"
| themeName |
themeName := 'Solarized (light)'.
^ (self named: themeName) in: [:theme |
theme merge: (self named: 'Solarized (dark)') overwrite: true.
theme name: themeName.
"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 darkBackgroundForm).
self
addLightFonts: theme;
addLightWindowColors: theme;
addLightSyntaxHighlighting: theme;
addLightScrollables: theme;
addLightButtons: theme;
addLightDialogs: theme;
+ addLightMenusAndDockingBars: theme;
+ addLightToolColors: theme.
- addLightMenusAndDockingBars: theme.
theme]!
Item was added:
+ ----- Method: SqueakTheme class>>addDullerToolColors: (in category 'instance creation') -----
+ addDullerToolColors: theme
+ "Tool-specific colors."
+
+ theme
+ set: #failureColor for: #TestRunner to: Color yellow duller;
+ set: #errorColor for: #TestRunner to: Color red duller;
+ set: #passColor for: #TestRunner to: Color green duller.!
Item was added:
+ ----- Method: SqueakTheme class>>addToolColors: (in category 'instance creation') -----
+ addToolColors: theme
+ "Tool-specific colors."
+
+ theme
+ set: #failureColor for: #TestRunner to: Color yellow;
+ set: #errorColor for: #TestRunner to: Color red;
+ set: #passColor for: #TestRunner to: Color green;
+
+ derive: #failureTextColor for: #TestRunner from: #PluggableTextMorph at: #textColor;
+ derive: #errorTextColor for: #TestRunner from: #PluggableTextMorph at: #textColor;
+ derive: #passTextColor for: #TestRunner from: #PluggableTextMorph at: #textColor.!
Item was changed:
----- Method: SqueakTheme class>>create (in category 'instance creation') -----
create
"This is the default theme for Squeak.
self create apply. "
^ (self named: 'Squeak') in: [:theme |
"General morph stuff."
theme
set: #keyboardFocusColor for: #Morph to: (TranslucentColor r: 0.3 g: 0.5 b: 0.5 alpha: 0.5);
set: #keyboardFocusWidth for: #Morph to: 3;
set: #softShadowColor for: #Morph to: (Color black alpha: 0.01);
set: #softShadowOffset for: #Morph to: (10 at 8 corner: 10 at 12);
set: #hardShadowColor for: #Morph to: (Color black alpha: 0.5);
set: #hardShadowOffset for: #Morph to: 1 at 1.
theme set: #background for: #MorphicProject to: (BitmapFillStyle fromForm: self linenblue).
self
addFonts: theme;
addWindowColors: theme;
addSyntaxHighlighting: theme;
addMenusAndDockingBars: theme;
addDialogs: theme;
addButtons: theme;
+ addScrollables: theme;
+ addToolColors: theme.
- addScrollables: theme.
theme]!
Item was changed:
----- Method: SqueakTheme class>>createDuller (in category 'instance creation') -----
createDuller
"self createDuller apply"
| name |
name := 'Squeak (duller)'.
^ (self named:name) in: [:theme |
theme merge: (self named: 'Squeak') overwrite: true.
theme name: name.
self
addDullerWindowColors: theme;
addDullerScrollables: theme;
addDullerDialogs: theme;
addDullerMenusAndDockingBars: theme;
+ addDullerButtons: theme;
+ addDullerToolColors: theme.
- addDullerButtons: theme.
theme set: #color for: #TextAction to: Color ocean.
theme]!
More information about the Packages
mailing list