The Trunk: System-mt.866.mcz

Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.866.mcz

==================== Summary ====================

Name: System-mt.866
Author: mt
Time: 5 August 2016, 9:26:35.798358 am
UUID: 48a9806f-335c-2b40-bd05-90d5baf3afb9
Ancestors: System-mt.865

Harmonize and clean-up theme creation code for old-style and new-style balloon morphs.

=============== Diff against System-mt.865 ===============

Item was changed:
  ----- Method: CommunityTheme class>>addDarkDialogs: (in category 'instance creation') -----
  addDarkDialogs: aUserInterfaceTheme
  "self createDark apply."
  aUserInterfaceTheme
  set: #borderColor for: #DialogWindow to: Color darkGray;
  set: #color for: #DialogWindow to: Color gray;
 
  set: #titleColor for: #DialogWindow to: Color darkGray;
  set: #titleTextColor for: #DialogWindow to: Color white;
 
  set: #textColor for: #DialogWindow to: (Color gray: 0.9);
 
  set: #okColor for: #DialogWindow to: self dbGreen;
  set: #cancelColor for: #DialogWindow to: self dbOrange;
  set: #buttonColor for: #DialogWindow to: Color darkGray;
  set: #selectionModifier for: #DialogWindow to: [ [:c | self dbSelection twiceDarker ] ].
  "The List Chooser is a dialog, too."
  aUserInterfaceTheme
  set: #addColor for: #ListChooser to: self dbBlue;
  set: #disabledColor for: #ListChooser to: Color transparent.
  "And the system progress bar."
  aUserInterfaceTheme
  set: #color for: #SystemProgressBarMorph to: Color transparent;
  set: #barColor for: #SystemProgressBarMorph to: self dbSelection.
  "And the balloon morphs."
  aUserInterfaceTheme
+ set: #borderColor for: #NewBalloonMorph to: Color transparent ;
+ set: #color for: #NewBalloonMorph to: (self dbOrange twiceDarker alpha: 0.9) ;
+ set: #textColor for: #NewBalloonMorph to: Color white .!
- set: #borderColor for: #BalloonMorph to: Color transparent ;
- set: #color for: #BalloonMorph to: (self dbOrange twiceDarker alpha: 0.9) ;
- set: #textColor for: #BalloonMorph to: Color white ;
- set: #font for: #BalloonMorph to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7 emphasized: TextEmphasis italic emphasisCode) ;
- derive: #borderColor for: #NewBalloonMorph from: #BalloonMorph at: #borderColor ;
- derive: #color for: #NewBalloonMorph from:  #BalloonMorph at: #color!

Item was changed:
  ----- Method: SqueakTheme class>>addDialogs: (in category 'instance creation') -----
  addDialogs: theme
+ "self create apply."
+
-
  theme
  set: #borderColor for: #DialogWindow to: Color gray;
  set: #borderWidth for: #DialogWindow to: 1;
  set: #borderStyle for: #DialogWindow to: BorderStyle default;
  set: #color for: #DialogWindow to: Color white;
 
  set: #titleBorderColor for: #DialogWindow to: Color gray;
  set: #titleBorderWidth for: #DialogWindow to: 0;
  set: #titleBorderStyle for: #DialogWindow to: BorderStyle default;
  set: #titleColor for: #DialogWindow to: (Color r: 0.658 g: 0.678 b: 0.78);
  set: #titleFont for: #DialogWindow to: [Preferences windowTitleFont];
  set: #titleTextColor for: #DialogWindow to: Color black;
 
  set: #font for: #DialogWindow to: [Preferences standardSystemFont];
  set: #textColor for: #DialogWindow to: Color black;
 
  set: #okColor for: #DialogWindow to: (Color r: 0.49 g: 0.749 b: 0.49);
  set: #cancelColor for: #DialogWindow to: (Color r: 1 g: 0.6 b: 0.588);
  set: #buttonColor for: #DialogWindow to: (Color r: 0.658 g: 0.678 b: 0.78) twiceLighter;
  set: #selectionModifier for: #DialogWindow to: [ [:c | Color orange muchLighter ] ].
 
  "The List Chooser is a dialog, too."
  theme
  derive: #okColor for: #ListChooser from: #DialogWindow;
  derive: #cancelColor for: #ListChooser from: #DialogWindow;
  set: #addColor for: #ListChooser to: Color blue muchLighter;
  set: #disabledColor for: #ListChooser to: Color gray.
 
  "And the mulitple list chooser."
  theme
  derive: #okColor for: #ListMultipleChooser from: #DialogWindow;
  derive: #cancelColor for: #ListMultipleChooser from: #DialogWindow.
 
  "And the system progress bar."
  theme
  derive: #borderColor for: #SystemProgressMorph from: #MenuMorph;
  derive: #borderWidth for: #SystemProgressMorph from: #MenuMorph;
  derive: #borderStyle for: #SystemProgressMorph from: #MenuMorph;
  derive: #color for: #SystemProgressMorph from: #MenuMorph;
  derive: #font for: #SystemProgressMorph from: #MenuItemMorph;
  derive: #textColor for: #SystemProgressMorph from: #MenuItemMorph;
 
  set: #borderColor for: #SystemProgressBarMorph to: Color transparent;
  set: #borderWidth for: #SystemProgressBarMorph to: 0;
  set: #borderStyle for: #SystemProgressBarMorph to: BorderStyle default;
  set: #color for: #SystemProgressBarMorph to: (Color r: 0.977 g: 0.977 b: 0.977);
  set: #barColor for: #SystemProgressBarMorph to: (Color r: 0.72 g: 0.72 b: 0.9).
 
  "And the balloon morphs."
  theme
  set: #borderColor for: #NewBalloonMorph to: (Color r: 0.46 g: 0.46 b: 0.353);
  set: #borderWidth for: #NewBalloonMorph to: 1;
  set: #color for: #NewBalloonMorph to:(Color r: 0.92 g: 0.92 b: 0.706);
  set: #font for: #NewBalloonMorph to: [Preferences standardBalloonHelpFont];
+ derive: #textColor for: #NewBalloonMorph from: #PluggableButtonMorph.
+
+ theme
+ derive: #borderColor for: #BalloonMorph from: #NewBalloonMorph;
+ set: #borderWidth for: #BalloonMorph to: 0;
+ derive: #color for: #BalloonMorph from: #NewBalloonMorph;
+ derive: #font for: #BalloonMorph from: #NewBalloonMorph;
+ derive: #textColor for: #BalloonMorph from: #NewBalloonMorph.!
- derive: #textColor for: #NewBalloonMorph from: #PluggableButtonMorph.!