The Trunk: 60Deprecated-mt.18.mcz

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!