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 at 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 at 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 at self height.
+ 	self fillStyle: fill.!