Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.762.mcz==================== Summary ====================
Name: Morphic-mt.762
Author: mt
Time: 26 February 2015, 6:40:30.831 pm
UUID: bf4412d4-1e58-344a-ab7b-05e401f170d4
Ancestors: Morphic-mt.761
Flag added to document that we don't handle rounded corners for roll-over borders. (eToys only?)
=============== Diff against Morphic-mt.761 ===============
Item was changed:
----- Method: Morph>>drawRolloverBorderOn: (in category 'drawing') -----
drawRolloverBorderOn: aCanvas
| colorToUse offsetToUse myShadow newForm f |
colorToUse := self
valueOfProperty: #rolloverColor
ifAbsent: [Color blue alpha: 0.5].
offsetToUse := self
valueOfProperty: #rolloverWidth
ifAbsent: [10 @ 10].
self hasRolloverBorder: false.
myShadow := self shadowForm.
self hasRolloverBorder: true.
myShadow offset: 0 @ 0.
f := ColorForm extent: myShadow extent depth: 1.
myShadow displayOn: f.
f colors: {Color transparent. colorToUse}.
newForm := Form extent: offsetToUse * 2 + myShadow extent depth: 32.
(WarpBlt toForm: newForm) sourceForm: f;
cellSize: 1;
combinationRule: 3;
copyQuad: f boundingBox innerCorners toRect: newForm boundingBox.
+
+ self flag: #roundedCorners. "mt: Check for #wantsRoundedCorners and call appropriate things in canvas."
aCanvas
translateBy: offsetToUse negated
during: [:shadowCanvas |
shadowCanvas shadowColor: colorToUse.
shadowCanvas paintImage: newForm at: self position]!