The Trunk: 60Deprecated-mt.71.mcz

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

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

Name: 60Deprecated-mt.71
Author: mt
Time: 5 March 2020, 1:30:02.706611 pm
UUID: a8b1a211-dff2-da47-8f2c-a8bd4224a807
Ancestors: 60Deprecated-mt.70

Adds deprecations for some old-style color access.

=============== Diff against 60Deprecated-mt.70 ===============

Item was changed:
  ----- Method: ColorTheme>>apply (in category 'applying') -----
  apply
  "apply the receiver as the current theme"
  BalloonMorph balloonColor: self balloonColor.
 
  Preferences setParameter: #defaultWorldColor to: self defaultWorldColor.
 
+ Preferences setParameter: #insertionPointColor to: self insertionPointColor.
+ Preferences setParameter: #keyboardFocusColor to: self keyboardFocusColor.
+ Preferences setParameter: #textHighlightColor to: self textHighlightColor.
- Preferences insertionPointColor: self insertionPointColor.
- Preferences keyboardFocusColor: self keyboardFocusColor.
- Preferences textHighlightColor: self textHighlightColor.
 
  Preferences setParameter: #menuTitleColor to: self menuTitleColor.
  Preferences setParameter: #menuTitleBorderColor to: self menuTitleBorderColor.
  Preferences setParameter: #menuTitleBorderWidth to: self menuTitleBorderWidth.
  Preferences setParameter: #menuColor to: self menuColor.
  Preferences setParameter: #menuBorderColor to: self menuBorderColor.
  Preferences setParameter: #menuLineColor to: self menuLineColor.
  Preferences setParameter: #menuBorderWidth to: self menuBorderWidth.
  Preferences setParameter: #menuSelectionColor to: self menuSelectionColor.
 
  SystemProgressMorph reset.
 
  self class current: self.
  !

Item was added:
+ ----- Method: PluggableListMorph>>textHighlightColor (in category '*60Deprecated-initialization') -----
+ textHighlightColor
+ "Answer my default text highlight color."
+
+ self deprecated: 'See user-interface theme for color information.'.
+ ^ self userInterfaceTheme textHighlightColor ifNil: [TranslucentColor r: 0.0 g: 0.0 b: 0.8 alpha: 0.2]!

Item was added:
+ ----- Method: PluggableListMorph>>textHighlightColor: (in category '*60Deprecated-initialization') -----
+ textHighlightColor: aColor
+ "Set my default text highlight color."
+
+ self deprecated: 'See user-interface theme for color information.'.
+ self userInterfaceTheme textHighlightColor: aColor.!

Item was added:
+ ----- Method: Preferences class>>chooseInsertionPointColor (in category '*60Deprecated-prefs-text') -----
+ chooseInsertionPointColor
+
+ self deprecated: 'See user-interface theme for color information.'.
+ UserInterfaceTheme current explore.!

Item was added:
+ ----- Method: Preferences class>>chooseKeyboardFocusColor (in category '*60Deprecated-prefs-text') -----
+ chooseKeyboardFocusColor
+
+ self deprecated: 'See user-interface theme for color information.'.
+ UserInterfaceTheme current explore.!

Item was added:
+ ----- Method: Preferences class>>chooseTextHighlightColor (in category '*60Deprecated-prefs-text') -----
+ chooseTextHighlightColor
+
+ self deprecated: 'See user-interface theme for color information.'.
+ UserInterfaceTheme current explore.!

Item was added:
+ ----- Method: Preferences class>>initializeTextHighlightingParameters (in category '*60Deprecated-prefs-text') -----
+ initializeTextHighlightingParameters
+ "Preferences initializeTextHighlightingParameters"
+
+ self deprecated: 'Such parameters are in user-interface themes now.'.!

Item was added:
+ ----- Method: Preferences class>>insertionPointColor (in category '*60Deprecated-prefs-text') -----
+ insertionPointColor
+
+ self deprecated: 'See user-interface theme for color information.'.
+ ^ (UserInterfaceTheme current get: #insertionPointColor for: #Morph) ifNil: [Color red]!

Item was added:
+ ----- Method: Preferences class>>insertionPointColor: (in category '*60Deprecated-prefs-text') -----
+ insertionPointColor: aColor
+
+ self deprecated: 'See user-interface theme for color information.'.
+ UserInterfaceTheme current
+ set: #insertionPointColor
+ for: #Morph
+ to: aColor.!

Item was added:
+ ----- Method: Preferences class>>keyboardFocusColor (in category '*60Deprecated-prefs-text') -----
+ keyboardFocusColor
+
+ self deprecated: 'See user-interface theme for color information.'.
+ ^ (UserInterfaceTheme current get: #keyboardFocusColor for: #Morph) ifNil: [Color r: 0.6 g: 1 b: 1]!

Item was added:
+ ----- Method: Preferences class>>keyboardFocusColor: (in category '*60Deprecated-prefs-text') -----
+ keyboardFocusColor: aColor
+
+ self deprecated: 'See user-interface theme for color information.'.
+ UserInterfaceTheme current
+ set: #keyboardFocusColor
+ for: #Morph
+ to: aColor.!

Item was added:
+ ----- Method: Preferences class>>textHighlightColor (in category '*60Deprecated-prefs-text') -----
+ textHighlightColor
+
+ self deprecated: 'See user-interface theme for color information.'.
+ ^ (UserInterfaceTheme current get: #textHighlightColor for: #Morph) ifNil: [TranslucentColor r: 0.0 g: 0.0 b: 0.8 alpha: 0.2]!

Item was added:
+ ----- Method: Preferences class>>textHighlightColor: (in category '*60Deprecated-prefs-text') -----
+ textHighlightColor: aColor
+
+ self deprecated: 'See user-interface theme for color information.'.
+ UserInterfaceTheme current
+ set: #textHighlightColor
+ for: #Morph
+ to: aColor.!

Item was added:
+ ----- Method: Preferences class>>windowColorHelp (in category '*60Deprecated-Etoys-Squeakland-window colors') -----
+ windowColorHelp
+
+ self deprecated: 'mt: Use user-interface themes.'.!

Item was added:
+ ----- Method: Preferences class>>windowSpecificationPanel (in category '*60Deprecated-Etoys-Squeakland-window colors') -----
+ windowSpecificationPanel
+
+ self deprecated: 'mt: Use user-interface themes.'.!