The Trunk: Morphic-mt.1301.mcz

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

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

Name: Morphic-mt.1301
Author: mt
Time: 30 August 2016, 11:04:49.029299 am
UUID: 06fcd2a9-ba69-b843-9cab-da6d5890cb3a
Ancestors: Morphic-mt.1300

Fixes regression in new-style balloon morphs and gradient fills.

=============== Diff against Morphic-mt.1300 ===============

Item was added:
+ ----- Method: NewBalloonMorph>>color: (in category 'accessing') -----
+ color: aColor
+
+ super color: aColor.
+ self updateGradient.!

Item was changed:
  ----- Method: NewBalloonMorph>>setDefaultParameters (in category 'initialization') -----
  setDefaultParameters
 
  self
  borderWidth: (self userInterfaceTheme borderWidth ifNil: [1]);
  borderColor: (self userInterfaceTheme borderColor ifNil: [Color r: 0.46 g: 0.46 b: 0.353]);
  color: (self userInterfaceTheme color ifNil: [Color r: 0.92 g: 0.92 b: 0.706]);
  hasDropShadow: (Preferences menuAppearance3d and: [self color isTranslucent not]);
  shadowOffset: 1@1;
  shadowColor: (self color muchDarker muchDarker alpha: 0.333);
+ orientation: #bottomLeft;
+ cornerStyle: (MenuMorph roundedMenuCorners ifTrue: [#rounded] ifFalse: [#square]).!
- orientation: #bottomLeft.
-
- MenuMorph roundedMenuCorners
- ifTrue: [self cornerStyle: #rounded].
-
- "Gradients?"
- MenuMorph gradientMenu ifTrue: [
- | cc fill |
- cc := self color.
- fill := GradientFillStyle ramp: {
- 0.0 -> Color white.
- 0.15 -> (cc mixed: 0.5 with: Color white).
- 0.5 -> cc.
- 0.8 -> cc twiceDarker}.
- fill
- origin: self topLeft;
- direction: 0@self height.
- self fillStyle: fill].!

Item was added:
+ ----- Method: NewBalloonMorph>>updateGradient (in category 'updating') -----
+ updateGradient
+
+ | cc fill |
+
+ MenuMorph gradientMenu ifFalse: [^ self].
+
+ cc := self color.
+ fill := GradientFillStyle ramp: {
+ 0.0 -> Color white.
+ 0.15 -> (cc mixed: 0.5 with: Color white).
+ 0.5 -> cc.
+ 0.8 -> cc twiceDarker}.
+ fill
+ origin: self topLeft;
+ direction: 0@self height.
+ self fillStyle: fill.!