The Trunk: System-mt.990.mcz

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

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

Name: System-mt.990
Author: mt
Time: 21 December 2017, 9:36:40.491231 am
UUID: 3ee22422-e98a-d74b-a567-e1797e988900
Ancestors: System-dtl.989

Provide UI theme specs for drag-transfer-morphs derived from balloon morphs.

=============== Diff against System-dtl.989 ===============

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.
+
+ "And the transfer morphs."
+ theme
+ derive: #borderColor for: #TransferMorph from: #NewBalloonMorph;
+ derive: #borderWidth for: #TransferMorph from: #NewBalloonMorph;
+ derive: #color for: #TransferMorph from: #NewBalloonMorph;
+ derive: #font for: #TransferMorph from: #NewBalloonMorph;
+ derive: #textColor for: #TransferMorph from: #NewBalloonMorph. !
- derive: #textColor for: #BalloonMorph from: #NewBalloonMorph.!