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

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

Name: 60Deprecated-mt.18
Author: mt
Time: 6 May 2018, 3:04:54.850836 pm
UUID: c3fb6f9b-652f-c640-a2d9-61e690ffe944
Ancestors: 60Deprecated-pre.17

Supplement to refactoring in Morphic-mt.1427.

=============== Diff against 60Deprecated-pre.17 ===============

Item was added:
+ ----- Method: BorderStyle>>colorsAtCorners (in category '*60Deprecated-accessing') -----
+ colorsAtCorners
+ 
+ 	self deprecated: 'See #topLeftColor and #bottomRightColor.'.
+ 	^Array new: 4 withAll: self color!

Item was added:
+ ----- Method: BorderStyle>>dotOfSize:forDirection: (in category '*60Deprecated-accessing') -----
+ dotOfSize: diameter forDirection: aDirection
+ 
+ 	self deprecated: 'See Form for such convenience functions.'.
+ 	^ Form dotOfSize: diameter color: self color!

Item was added:
+ ----- Method: BorderStyle>>widthForRounding (in category '*60Deprecated-accessing') -----
+ widthForRounding
+ 
+ 	self deprecated: 'See BalloonCanvas for drawing rounded corners.'.
+ 	^self width!

Item was added:
+ ----- Method: BorderedMorph>>doesBevels (in category '*60Deprecated-accessing') -----
+ doesBevels
+ 	"To return true means that this object can show bevelled borders, and
+ 	therefore can accept, eg, #raised or #inset as valid borderColors.
+ 	Must be overridden by subclasses that do not support bevelled borders."
+ 
+ 	self deprecated: 'Use border styles such as InsetBorder or RaisedBorder.'.
+ 	^ false!

Item was added:
+ ----- Method: ComplexBorder>>widthForRounding (in category '*60Deprecated-accessing') -----
+ widthForRounding
+ 
+ 	self deprecated: 'See BalloonCanvas for drawing rounded corners.'.
+ 	^0!

Item was added:
+ ----- Method: EllipseMorph>>doesBevels (in category '*60Deprecated-accessing') -----
+ doesBevels
+ 	self deprecated: 'Use border styles such as InsetBorder or RaisedBorder.'.
+ 	^ false!

Item was added:
+ ----- Method: InsetBorder>>colorsAtCorners (in category '*60Deprecated-accessing') -----
+ colorsAtCorners
+ 
+ 	| c c14 c23 |
+ 	self deprecated: 'See #topLeftColor and #bottomRightColor.'.
+ 
+ 	c := self color.
+ 	c14 := c lighter. c23 := c darker.
+ 	^Array with: c23 with: c14 with: c14 with: c23.!

Item was added:
+ ----- Method: Morph>>doesBevels (in category '*60Deprecated-accessing') -----
+ doesBevels
+ 	"To return true means that this object can show bevelled borders, and
+ 	therefore can accept, eg, #raised or #inset as valid borderColors.
+ 	Must be overridden by subclasses that do not support bevelled borders."
+ 
+ 	self deprecated: 'Use border styles such as InsetBorder or RaisedBorder.'.
+ 	^ false!

Item was added:
+ ----- Method: RaisedBorder>>colorsAtCorners (in category '*60Deprecated-accessing') -----
+ colorsAtCorners
+ 
+ 	| c c14 c23 |
+ 	self deprecated: 'See #topLeftColor and #bottomRightColor.'.
+ 	c := self color.
+ 	c14 := c lighter. c23 := c darker.
+ 	^Array with: c14 with: c23 with: c23 with: c14!

Item was added:
+ ----- Method: TTSampleFontMorph>>doesBevels (in category '*60Deprecated-accessing') -----
+ doesBevels
+ 	self deprecated: 'Use border styles such as InsetBorder or RaisedBorder.'.
+ 	^ false!