The Trunk: System-mt.1023.mcz

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

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

Name: System-mt.1023
Author: mt
Time: 6 May 2018, 3:07:01.547836 pm
UUID: 933c0495-6c3e-3947-9be9-c461397fe4e5
Ancestors: System-kfr.1022

Supplement to refactoring in Morphic-mt.1427.

=============== Diff against System-kfr.1022 ===============

Item was changed:
  ----- Method: CommunityTheme class>>addDarkMenusAndDockingBars: (in category 'instance creation') -----
  addDarkMenusAndDockingBars: aUserInterfaceTheme
  "self createDark apply."
  aUserInterfaceTheme
  set: #borderWidth for: #MenuMorph to: 0;
  set: #color for: #MenuMorph to: Color darkGray twiceDarker;
  set: #titleTextColor for: #MenuMorph to: Color white;
  set: #lineColor for: #MenuMorph to: Color darkGray;
+ set: #lineStyle for: #MenuMorph to: BorderStyle simple;
- set: #lineStyle for: #MenuMorph to: BorderStyle default;
  set: #lineWidth for: #MenuMorph to: 1.
  aUserInterfaceTheme
  set: #textColor for: #MenuItemMorph to: self dbForeground;
  set: #selectionColor for: #MenuItemMorph to: self dbSelection;
  set: #selectionTextColor for: #MenuItemMorph to: Color white ;
  set: #disabledTextColor for: #MenuItemMorph to: self dbForeground muchDarker.
  "set: #subMenuMarker for: #MenuItemMorph to: nil." "Use hard-coded default. See MenuItemMorph."
  "The world main docking bar."
  aUserInterfaceTheme
  " set: #color for: #DockingBarMorph to: Color darkGray;"
  " set: #selectionColor for: #DockingBarItemMorph to: self darkContentSecondary;"
  set: #logoColor for: #TheWorldMainDockingBar to: Color white;
  set: #selectionLogoColor for: #TheWorldMainDockingBar to: Color white!

Item was changed:
  ----- Method: MonokaiTheme class>>addDarkMenusAndDockingBars: (in category 'instance creation') -----
  addDarkMenusAndDockingBars: theme
  "self createDark apply."
  theme
  set: #borderWidth for: #MenuMorph to: 1;
  set: #borderColor for: #MenuMorph to: self invisibleColor;
  set: #color for: #MenuMorph to: self backgroundColor;
  set: #titleTextColor for: #MenuMorph to: self yellow;
  set: #lineColor for: #MenuMorph to: self invisibleColor;
+ set: #lineStyle for: #MenuMorph to: BorderStyle simple;
- set: #lineStyle for: #MenuMorph to: BorderStyle default;
  set: #lineWidth for: #MenuMorph to: 1.
 
  theme
  set: #textColor for: #MenuItemMorph to: self foregroundColor;
  set: #disabledTextColor for: #MenuItemMorph to: self grayLight;
  set: #selectionColor for: #MenuItemMorph to: self invisibleColor;
  set: #selectionTextColor for: #MenuItemMorph to: self yellow.
  "set: #subMenuMarker for: #MenuItemMorph to: nil." "Use hard-coded default. See MenuItemMorph."
 
  "The world main docking bar."
  theme
  set: #color for: #DockingBarMorph to: self invisibleColor;
  set: #selectionColor for: #DockingBarItemMorph to: self grayLight;
  set: #logoColor for: #TheWorldMainDockingBar to: self foregroundColor;
  set: #selectionLogoColor for: #TheWorldMainDockingBar to: self yellow.!

Item was changed:
  ----- Method: SolarizedTheme class>>addDarkMenusAndDockingBars: (in category 'instance creation') -----
  addDarkMenusAndDockingBars: theme
  "self createDark apply."
  theme
  set: #borderWidth for: #MenuMorph to: 1;
  set: #borderColor for: #MenuMorph to: self darkBackgroundHighlights;
  set: #color for: #MenuMorph to: self darkBackground;
  set: #titleTextColor for: #MenuMorph to: self darkContentEmphasizedMore;
  set: #lineColor for: #MenuMorph to: self darkBackgroundHighlights;
+ set: #lineStyle for: #MenuMorph to: BorderStyle simple;
- set: #lineStyle for: #MenuMorph to: BorderStyle default;
  set: #lineWidth for: #MenuMorph to: 1.
 
  theme
  set: #textColor for: #MenuItemMorph to: self darkContentEmphasized;
  set: #disabledTextColor for: #MenuItemMorph to: self darkContentSecondary;
  set: #selectionColor for: #MenuItemMorph to: self darkSelectionColor;
  set: #selectionTextColor for: #MenuItemMorph to: self darkSelectionTextColor.
  "set: #subMenuMarker for: #MenuItemMorph to: nil." "Use hard-coded default. See MenuItemMorph."
 
  "The world main docking bar."
  theme
  set: #color for: #DockingBarMorph to: self darkBackgroundHighlights;
  set: #selectionColor for: #DockingBarItemMorph to: self darkContentSecondary;
  set: #logoColor for: #TheWorldMainDockingBar to: self darkContentEmphasized;
  set: #selectionLogoColor for: #TheWorldMainDockingBar to: self darkContentEmphasizedMore.!

Item was changed:
  ----- Method: SolarizedTheme class>>addLightMenusAndDockingBars: (in category 'instance creation') -----
  addLightMenusAndDockingBars: theme
  "self createLight apply."
  theme
  set: #borderWidth for: #MenuMorph to: 1;
  set: #borderColor for: #MenuMorph to: self lightBackgroundHighlights;
  set: #color for: #MenuMorph to: self lightBackground;
  set: #titleTextColor for: #MenuMorph to: self lightContentEmphasizedMore;
  set: #lineColor for: #MenuMorph to: self lightBackgroundHighlights;
+ set: #lineStyle for: #MenuMorph to: BorderStyle simple;
- set: #lineStyle for: #MenuMorph to: BorderStyle default;
  set: #lineWidth for: #MenuMorph to: 1.
 
  theme
  set: #textColor for: #MenuItemMorph to: self lightContentEmphasized;
  set: #disabledTextColor for: #MenuItemMorph to: self lightContentSecondary;
  set: #selectionColor for: #MenuItemMorph to: self lightBackgroundHighlights darker;
  set: #selectionTextColor for: #MenuItemMorph to: self lightContentEmphasizedMore.
  "set: #subMenuMarker for: #MenuItemMorph to: nil." "Use hard-coded default. See MenuItemMorph."
 
  "The world main docking bar."
  theme
  set: #color for: #DockingBarMorph to: self lightBackgroundHighlights;
  set: #selectionColor for: #DockingBarItemMorph to: self lightContentSecondary;
  set: #logoColor for: #TheWorldMainDockingBar to: self lightContentEmphasized;
  set: #selectionLogoColor for: #TheWorldMainDockingBar to: self lightContentEmphasizedMore.!

Item was changed:
  ----- Method: SqueakTheme class>>addButtons: (in category 'instance creation') -----
  addButtons: theme
 
  theme
  set: #borderColor for: #PluggableButtonMorph to: Color gray;
  set: #borderWidth for: #PluggableButtonMorph to: 1;
+ set: #borderStyle for: #PluggableButtonMorph to: BorderStyle simple;
- set: #borderStyle for: #PluggableButtonMorph to: BorderStyle default;
  set: #color for: #PluggableButtonMorph to: (Color gray: 0.91);
 
  set: #font for: #PluggableButtonMorph to: [Preferences standardButtonFont];
  set: #textColor for: #PluggableButtonMorph to: Color black;
 
  set: #selectionModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.2] ];
  set: #hoverModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.1] ];
  set: #feedbackModifier for: #PluggableButtonMorph to: [ [:c | c adjustBrightness: -0.3] ].
 
  "And the plus-version."
  theme
  set: #disabledColor for: #PluggableButtonMorphPlus to: Color transparent;
  set: #disabledTextColor for: #PluggableButtonMorphPlus to: (Color gray: 0.6).
 
  "And the three-phase button."
  theme
  derive: #color for: #ThreePhaseButtonMorph from: #PluggableButtonMorph at: #textColor;
  derive: #font for: #ThreePhaseButtonMorph from: #PluggableButtonMorph;
  derive: #textColor for: #ThreePhaseButtonMorph from: #PluggableButtonMorph.!

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

Item was changed:
  ----- Method: SqueakTheme class>>addMenusAndDockingBars: (in category 'instance creation') -----
  addMenusAndDockingBars: theme
 
  theme
  set: #borderColor for: #MenuMorph to: Color gray;
  set: #borderWidth for: #MenuMorph to: 1;
+ set: #borderStyle for: #MenuMorph to: BorderStyle simple;
- set: #borderStyle for: #MenuMorph to: BorderStyle default;
  set: #color for: #MenuMorph to: (Color gray: 0.9);
 
  set: #titleBorderColor for: #MenuMorph to: (Color r: 0.6 g: 0.7 b: 1);
  set: #titleBorderWidth for: #MenuMorph to: 0;
+ set: #titleBorderStyle for: #MenuMorph to: BorderStyle simple;
- set: #titleBorderStyle for: #MenuMorph to: BorderStyle default;
  set: #titleColor for: #MenuMorph to: Color transparent;
  set: #titleFont for: #MenuMorph to: [Preferences windowTitleFont];
  set: #titleTextColor for: #MenuMorph to: Color black;
 
  set: #lineColor for: #MenuMorph to: (Color gray: 0.9);
  set: #lineStyle for: #MenuMorph to: BorderStyle inset;
  set: #lineWidth for: #MenuMorph to: 2.
 
  theme
  set: #font for: #MenuItemMorph to: [Preferences standardMenuFont];
  set: #textColor for: #MenuItemMorph to: Color black;
  set: #disabledTextColor for: #MenuItemMorph to: Color gray;
  set: #selectionColor for: #MenuItemMorph to: (Color r: 0.4 g: 0.5 b: 0.7);
  set: #selectionTextColor for: #MenuItemMorph to: Color white.
 
  "Derive some stuff for the docking bar morph, which looks mostly like a menu morph."
  theme
  set: #borderWidth for: #DockingBarMorph to: 0;
  derive: #borderColor for: #DockingBarMorph from: #MenuMorph;
  derive: #borderStyle for: #DockingBarMorph from: #MenuMorph;
  derive: #color for: #DockingBarMorph from: #MenuMorph;
 
  derive: #lineColor for: #DockingBarMorph from: #MenuMorph;
  derive: #lineStyle for: #DockingBarMorph from: #MenuMorph;
  derive: #lineWidth for: #DockingBarMorph from: #MenuMorph.
 
  "The world main docking bar."
  theme
  derive: #font for: #TheWorldMainDockingBar from: #MenuItemMorph;
  derive: #textColor for: #TheWorldMainDockingBar from: #MenuItemMorph;
  set: #logoColor for: #TheWorldMainDockingBar to: Color black;
  set: #selectionLogoColor for: #TheWorldMainDockingBar to: Color white.!

Item was changed:
  ----- Method: SqueakTheme class>>addScrollables: (in category 'instance creation') -----
  addScrollables: theme
  "self create apply"
 
  "Sliders"
  theme
  set: #borderColor for: #Slider to: Color gray;
  set: #borderWidth for: #Slider to: 1;
  set: #color for: #Slider to: Color lightGray;
  set: #thumbBorderColor for: #Slider to: [Color gray: 0.6];
  set: #thumbBorderWidth for: #Slider to: 0;
  set: #thumbColor for: #Slider to: Color veryVeryLightGray;
  set: #thumbShadowModifier for: #Slider to: [ [:c | c alpha: 0.7] ].
 
  "Scroll bars"
  theme
  set: #thumbBorderWidth for: #ScrollBar to: 1;
  set: #thumbColorModifier for: #ScrollBar to: [ [:c | c] ];
  set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | c darker alpha: 0.35] ];
  set: #borderColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: -0.3] ].
 
  "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets."
  theme
  set: #borderColor for: #ScrollPane to: (Color gray: 0.6);
  set: #borderWidth for: #ScrollPane to: 1;
+ set: #borderStyle for: #ScrollPane to: BorderStyle simple;
- set: #borderStyle for: #ScrollPane to: BorderStyle default;
  set: #color for: #ScrollPane to: Color white.
 
  "List widgets"
  theme
  set: #font for: #PluggableListMorph to: [Preferences standardListFont];
  set: #textColor for: #PluggableListMorph to: Color black;
  set: #selectionColor for: #PluggableListMorph to: (Color r: 0.72 g: 0.72 b: 0.9);
  derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c lighter];
  set: #selectionTextColor for: #PluggableListMorph to: Color black;
  set: #filterColor for: #PluggableListMorph to: Color yellow paler;
  set: #filterTextColor for: #PluggableListMorph to: Color black;
  set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | Color gray: 0.9] ];
  set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c darker alpha: 0.3] ].
 
  "Tree widgets"
  theme
  derive: #font for: #SimpleHierarchicalListMorph from: #PluggableListMorph;
  derive: #textColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph;
  derive: #selectionColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph;
  derive: #selectionTextColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph;
  derive: #filterColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph;
  derive: #filterTextColor for: #SimpleHierarchicalListMorph from: #PluggableListMorph;
  derive: #hoverSelectionModifier for: #SimpleHierarchicalListMorph from: #PluggableListMorph;
 
  set: #higlightTextColor for: #SimpleHierarchicalListMorph to: Color red;
  set: #lineColor for: #SimpleHierarchicalListMorph to: Color veryLightGray.
 
  "Text widgets"
  theme
  set: #font for: #PluggableTextMorph to: [Preferences standardSystemFont];
  set: #textColor for: #PluggableTextMorph to: Color black;
  set: #caretColor for: #PluggableTextMorph to: Color red;
  set: #selectionColor for: #PluggableTextMorph to: (TranslucentColor r: 0.0 g: 0.0 b: 0.8 alpha: 0.2);
  set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | Color gray: 0.9] ];
  set: #adornmentReadOnly for: #PluggableTextMorph to: Color black;
  set: #adornmentRefuse for: #PluggableTextMorph to: Color tan;
  set: #adornmentConflict for: #PluggableTextMorph to: Color red;
  set: #adornmentDiff for: #PluggableTextMorph to: Color green;
  set: #adornmentNormalEdit for: #PluggableTextMorph to: Color orange;
  set: #adornmentDiffEdit for: #PluggableTextMorph to: Color yellow;
  set: #frameAdornmentWidth for: #PluggableTextMorph to: 1.
  theme
  set: #balloonTextColor for: #PluggableTextMorphPlus to: (Color gray: 0.7);
  derive: #balloonTextFont for: #PluggableTextMorphPlus from: #PluggableTextMorph at: #font.!

Item was changed:
  ----- Method: SqueakTheme class>>addToolColors: (in category 'instance creation') -----
  addToolColors: theme
  "Tool-specific colors."
 
  "SUnit's TestRunner."
  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.
 
  "Monticello Tools."
  theme
  set: #revertedOperationAttributes for: #MCOperationsBrowser to: {TextEmphasis struckOut};
  set: #ignoredOperationAttributes for: #MCOperationsBrowser to: {TextColor color: Color gray}.
  "set: #rejectedOperationAttributes for: #MCOperationsBrowser to: {TextEmphasis struckOut};
  set: #acceptedOperationAttributes for: #MCOperationsBrowser to: {TextEmphasis underlined};
  set: #conflictingOperationAttributes for: #MCOperationsBrowser to: {TextEmphasis bold}."
 
  "Halos."
  theme
  derive: #borderColor for: #HaloMorph from: #MenuItemMorph at: #selectionColor do: [:c | c alpha: 0.8];
  derive: #borderColor for: #SelectionMorph from: #MenuItemMorph at: #selectionColor do: [:c | c twiceDarker alpha: 0.75];
  derive: #color for: #SelectionMorph from: #MenuItemMorph at: #selectionColor do: [:c | c alpha: 0.08].
 
  "Browser."
+ theme set: #noClassCommentColor for: #Browser to: Color red.
+
+ "Objects Tool."
+ theme
+ derive: #borderWidth for: #ObjectsTool from: #MenuMorph;
+ derive: #borderColor for: #ObjectsTool from: #MenuMorph;
+ derive: #borderStyle for: #ObjectsTool from: #MenuMorph;
+ derive: #color for: #ObjectsTool from: #MenuMorph.!
- theme set: #noClassCommentColor for: #Browser to: Color red.!

Item was changed:
  ----- Method: TrimTheme class>>addButtons: (in category 'instance creation') -----
  addButtons: theme
 
  theme
  set: #borderColor for: #PluggableButtonMorph to: self gray102;
  set: #borderWidth for: #PluggableButtonMorph to: 1;
+ set: #borderStyle for: #PluggableButtonMorph to: BorderStyle simple;
- set: #borderStyle for: #PluggableButtonMorph to: BorderStyle default;
  set: #color for: #PluggableButtonMorph to: self gray76;
 
  set: #textColor for: #PluggableButtonMorph to: self white;
 
  set: #selectionModifier for: #PluggableButtonMorph to: [ [:c | self gray39] ];
  set: #hoverModifier for: #PluggableButtonMorph to: [ [:c | self gray51] ];
  set: #feedbackModifier for: #PluggableButtonMorph to: [ [:c | self gray39] ].
 
  "And the plus-version."
  theme
  set: #disabledColor for: #PluggableButtonMorphPlus to: Color transparent;
  set: #disabledTextColor for: #PluggableButtonMorphPlus to: self gray128.!

Item was changed:
  ----- Method: TrimTheme class>>addDialogs: (in category 'instance creation') -----
  addDialogs: theme
  "self create apply."
 
  theme
  set: #borderColor for: #DialogWindow to: self gray59;
  set: #borderWidth for: #DialogWindow to: 0;
+ set: #borderStyle for: #DialogWindow to: BorderStyle simple;
- set: #borderStyle for: #DialogWindow to: BorderStyle default;
  set: #color for: #DialogWindow to: self gray64;
 
  set: #titleBorderColor for: #DialogWindow to: self gray59;
  set: #titleBorderWidth for: #DialogWindow to: 0;
+ set: #titleBorderStyle for: #DialogWindow to: BorderStyle simple;
- set: #titleBorderStyle for: #DialogWindow to: BorderStyle default;
  set: #titleColor for: #DialogWindow to: self gray51;
  set: #titleTextColor for: #DialogWindow to: self white;
 
  set: #textColor for: #DialogWindow to: self white;
 
  set: #okColor for: #DialogWindow to: self green;
  set: #cancelColor for: #DialogWindow to: self red;
  set: #buttonColor for: #DialogWindow to: self gray59;
  set: #selectionModifier for: #DialogWindow to: [ [:c | self blue ] ].
 
  "The List Chooser is a dialog, too."
  theme
  set: #addColor for: #ListChooser to: self yellow;
  set: #disabledColor for: #ListChooser to: Color transparent.
 
 
  "And the system progress bar."
  theme
  set: #borderColor for: #SystemProgressBarMorph to: Color transparent;
  set: #borderWidth for: #SystemProgressBarMorph to: 0;
+ set: #borderStyle for: #SystemProgressBarMorph to: BorderStyle simple;
- set: #borderStyle for: #SystemProgressBarMorph to: BorderStyle default;
  set: #color for: #SystemProgressBarMorph to: self gray64;
  set: #barColor for: #SystemProgressBarMorph to: self blue.
 
  "And the balloon morphs."
  theme
  set: #borderColor for: #NewBalloonMorph to: self gray168;
  set: #borderWidth for: #NewBalloonMorph to: 1;
  set: #color for: #NewBalloonMorph to: self gray102;
  set: #textColor for: #NewBalloonMorph to: self white.!

Item was changed:
  ----- Method: TrimTheme class>>addMenusAndDockingBars: (in category 'instance creation') -----
  addMenusAndDockingBars: theme
 
  theme
  set: #borderColor for: #MenuMorph to: self gray51;
  set: #borderWidth for: #MenuMorph to: 1;
+ set: #borderStyle for: #MenuMorph to: BorderStyle simple;
- set: #borderStyle for: #MenuMorph to: BorderStyle default;
  set: #color for: #MenuMorph to: self gray27;
 
  set: #titleBorderColor for: #MenuMorph to: (Color r: 0.6 g: 0.7 b: 1);
  set: #titleBorderWidth for: #MenuMorph to: 0;
+ set: #titleBorderStyle for: #MenuMorph to: BorderStyle simple;
- set: #titleBorderStyle for: #MenuMorph to: BorderStyle default;
  set: #titleColor for: #MenuMorph to: Color transparent;
  set: #titleTextColor for: #MenuMorph to: self white;
 
  set: #lineColor for: #MenuMorph to: self gray51;
  set: #lineStyle for: #MenuMorph to: BorderStyle simple;
  set: #lineWidth for: #MenuMorph to: 1.
 
  theme
  set: #textColor for: #MenuItemMorph to: self white;
  set: #disabledTextColor for: #MenuItemMorph to: self gray128;
  set: #selectionColor for: #MenuItemMorph to: self gray102;
  set: #selectionTextColor for: #MenuItemMorph to: self white.
 
  "The world main docking bar."
  theme
  set: #logoColor for: #TheWorldMainDockingBar to: self white;
  set: #selectionLogoColor for: #TheWorldMainDockingBar to: self white.!

Item was changed:
  ----- Method: TrimTheme class>>addScrollables: (in category 'instance creation') -----
  addScrollables: theme
  "self create apply"
 
  "Sliders"
  theme
  set: #borderColor for: #Slider to: self gray76;
  set: #borderWidth for: #Slider to: 1;
  set: #color for: #Slider to: self gray61;
  set: #thumbBorderColor for: #Slider to: self gray61;
  set: #thumbBorderWidth for: #Slider to: 1;
  set: #thumbColor for: #Slider to: self gray128;
  set: #thumbShadowModifier for: #Slider to: [ [:c | c alpha: 0.7] ].
 
  "Scroll bars"
  theme
  set: #thumbBorderWidth for: #ScrollBar to: 1;
  set: #thumbColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: 0.2] ];
  "set: #pagingAreaColorModifier for: #ScrollBar to: [ [:c | self gray51] ];"
  set: #borderColorModifier for: #ScrollBar to: [ [:c | c adjustBrightness: 0.2] ].
 
  "Scroll panes (includes generic stuff for list widgets, tree widgets, and text widgets."
  theme
  set: #borderColor for: #ScrollPane to: self gray76;
  set: #borderWidth for: #ScrollPane to: 1;
+ set: #borderStyle for: #ScrollPane to: BorderStyle simple;
- set: #borderStyle for: #ScrollPane to: BorderStyle default;
  set: #color for: #ScrollPane to: self gray51.
 
  "List widgets"
  theme
  set: #textColor for: #PluggableListMorph to: self white;
  set: #selectionColor for: #PluggableListMorph to: self blue;
  derive: #multiSelectionColor for: #PluggableListMorph from: #PluggableListMorph at: #selectionColor do: [:c | c lighter];
  set: #selectionTextColor for: #PluggableListMorph to: self white;
  set: #filterColor for: #PluggableListMorph to: self orange;
  set: #filterTextColor for: #PluggableListMorph to: self white;
  set: #preSelectionModifier for: #PluggableListMorph to: [ [:c | c alpha: 0.3] ];
  set: #hoverSelectionModifier for: #PluggableListMorph to: [ [:c | c darker alpha: 0.3] ].
 
  "Tree widgets"
  theme
  set: #higlightTextColor for: #SimpleHierarchicalListMorph to: self red;
  set: #lineColor for: #SimpleHierarchicalListMorph to: self gray168.
 
  "Text widgets"
  theme
  set: #textColor for: #PluggableTextMorph to: self white;
  set: #caretColor for: #PluggableTextMorph to: self white;
  set: #selectionColor for: #PluggableTextMorph to: (self blue alpha: 0.4);
  set: #unfocusedSelectionModifier for: #PluggableTextMorph to: [ [:c | self blue alpha: 0.3] ];
  set: #adornmentReadOnly for: #PluggableTextMorph to: self black;
  set: #adornmentRefuse for: #PluggableTextMorph to: self blue;
  set: #adornmentConflict for: #PluggableTextMorph to: self red;
  set: #adornmentDiff for: #PluggableTextMorph to: self green;
  set: #adornmentNormalEdit for: #PluggableTextMorph to: self orange;
  set: #adornmentDiffEdit for: #PluggableTextMorph to: self yellow;
  set: #frameAdornmentWidth for: #PluggableTextMorph to: 1.
  theme
  set: #balloonTextColor for: #PluggableTextMorphPlus to: self gray102.!

Item was changed:
+ (PackageInfo named: 'System') postscript: 'UserInterfaceTheme cleanUp: true.
+ (UserInterfaceTheme named: UserInterfaceTheme current name) apply.'!
- (PackageInfo named: 'System') postscript: '"Ensure that only classes are stored in the SoundService app registry."
- SoundService default: SoundService defaultOrNil.'!