The Trunk: System-mt.895.mcz

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@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;
+ 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@8 corner: 10@12);
  set: #hardShadowColor for: #Morph to: (Color black alpha: 0.5);
  set: #hardShadowOffset for: #Morph to: 1@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]!