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