The Trunk: System-mt.907.mcz

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

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

Name: System-mt.907
Author: mt
Time: 24 August 2016, 9:36:05.021086 am
UUID: 2371125c-24aa-1a4e-aa88-ed2339ba3a9c
Ancestors: System-mt.906

Deprecate project-parameter preference for menu colors etc. Provide UI theme colors for halo and rubber selection.

=============== Diff against System-mt.906 ===============

Item was changed:
  ----- Method: Preferences class>>initializeParameters (in category 'parameters') -----
  initializeParameters
  "Preferences initializeParameters"
  Parameters := IdentityDictionary new.
- self restoreDefaultMenuParameters.
  Parameters at: #maxBalloonHelpLineLength put: 28.
  self initializeTextHighlightingParameters!

Item was removed:
- ----- Method: Preferences class>>menuBorderColor (in category 'prefs - menus') -----
- menuBorderColor
- Display depth <= 2 ifTrue: [^ Color black].
- ^ Parameters at: #menuBorderColor!

Item was removed:
- ----- Method: Preferences class>>menuBorderWidth (in category 'prefs - menus') -----
- menuBorderWidth
- ^ Parameters at: #menuBorderWidth!

Item was removed:
- ----- Method: Preferences class>>menuColor (in category 'prefs - menus') -----
- menuColor
- Display depth <= 2 ifTrue: [^ Color white].
- ^ Parameters at: #menuColor!

Item was removed:
- ----- Method: Preferences class>>menuLineColor (in category 'prefs - menus') -----
- menuLineColor
- ^ Parameters
- at: #menuLineColor
- ifAbsentPut: [Preferences menuBorderColor lighter]!

Item was removed:
- ----- Method: Preferences class>>menuSelectionColor (in category 'prefs - menus') -----
- menuSelectionColor
- ^ Parameters
- at: #menuSelectionColor
- ifAbsent: [nil]!

Item was removed:
- ----- Method: Preferences class>>menuTitleBorderColor (in category 'prefs - menus') -----
- menuTitleBorderColor
- Display depth <= 2 ifTrue: [^ Color black].
- ^ Parameters at: #menuTitleBorderColor!

Item was removed:
- ----- Method: Preferences class>>menuTitleBorderWidth (in category 'prefs - menus') -----
- menuTitleBorderWidth
- ^ Parameters at: #menuTitleBorderWidth!

Item was removed:
- ----- Method: Preferences class>>menuTitleColor (in category 'prefs - menus') -----
- menuTitleColor
- Display depth = 1 ifTrue: [^ Color white].
- Display depth = 2 ifTrue: [^ Color gray].
- ^ Parameters at: #menuTitleColor!

Item was removed:
- ----- Method: Preferences class>>restoreDefaultMenuParameters (in category 'initialization - misc') -----
- restoreDefaultMenuParameters
- "Restore the four color choices of the original implementors of  
- MorphicMenus"
- "
- Preferences restoreDefaultMenuParameters
- "
- Parameters
- at: #menuColor
- put: (Color
- r: 0.97
- g: 0.97
- b: 0.97).
- Parameters
- at: #menuBorderColor
- put: (Color
- r: 0.167
- g: 0.167
- b: 1.0).
- Parameters at: #menuBorderWidth put: 2.
- Parameters at: #menuTitleColor put: (Color
- r: 0.4
- g: 0.8
- b: 0.9) twiceDarker.
- Parameters
- at: #menuTitleBorderColor
- put: (Color
- r: 0.333
- g: 0.667
- b: 0.751).
- Parameters at: #menuTitleBorderWidth put: 1.
- Parameters
- at: #menuLineColor
- put: (Preferences menuBorderColor lighter)!

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].!
- set: #conflictingOperationAttributes for: #MCOperationsBrowser to: {TextEmphasis bold}."!