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