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

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

Name: Morphic-mt.764
Author: mt
Time: 27 February 2015, 11:33:22.268 am
UUID: 2ca4e315-b777-2847-830e-366884514d22
Ancestors: Morphic-ul.763

New pragma-preference for #gradientMenu to update SystemProgressbar instance accordingly. Postload-script will remove the old-style preference.

=============== Diff against Morphic-ul.763 ===============

Item was changed:
  ----- Method: DockingBarMorph>>initialize (in category 'initialize-release') -----
  initialize
  	"initialize the receiver"
  	super initialize.
  	selectedItem := nil.
  	activeSubMenu := nil.
  	fillsOwner := true.
  	avoidVisibleBordersAtEdge := true.
+ 	autoGradient := MenuMorph gradientMenu.
- 	autoGradient := Preferences gradientMenu.
  	self 
  		setDefaultParameters ; 
  		beFloating ; 
  		beSticky ;
  		layoutInset: 0 ;
  		dropEnabled: true.
  	Project current world activeHand addKeyboardListener: self!

Item was changed:
  ----- Method: FillInTheBlankMorph>>updateColor:color:intensity: (in category 'initialization') -----
  updateColor: aMorph color: aColor intensity: anInteger 
  	"update the apareance of aMorph"
  	| fill |
+ 	MenuMorph gradientMenu
- 	Preferences gradientMenu
  		ifFalse: [^ self].
  
  	fill := GradientFillStyle ramp: {0.0 -> Color white. 1 -> aColor}.
  	fill radial: false;
  		origin: aMorph topLeft;
  		direction: 0 @ aMorph height.
  	aMorph fillStyle: fill!

Item was changed:
  ----- Method: MenuItemMorph>>selectionFillStyle (in category 'private') -----
  selectionFillStyle
  	" Answer the fill style to use with the receiver is the selected  
  	element "
  
  	| fill baseColor preferenced |
  	Display depth <= 2 ifTrue: [
  		^Color gray ].
  	preferenced := Preferences menuSelectionColor.
  	preferenced notNil ifTrue: [ ^preferenced ].
  	baseColor := owner color negated.
+ 	MenuMorph gradientMenu ifFalse: [ ^baseColor ].
- 	Preferences gradientMenu ifFalse: [ ^baseColor ].
  	fill := GradientFillStyle ramp: { 
  		0.0 -> baseColor twiceLighter. 
  		1 -> baseColor twiceDarker }.
  	fill origin: self topLeft.
  	^ fill!

Item was changed:
  AlignmentMorph subclass: #MenuMorph
  	instanceVariableNames: 'defaultTarget selectedItem stayUp popUpOwner activeSubMenu'
+ 	classVariableNames: 'CloseBoxImage GradientMenu PushPinImage'
- 	classVariableNames: 'CloseBoxImage PushPinImage'
  	poolDictionaries: ''
  	category: 'Morphic-Menus'!
  
  !MenuMorph commentStamp: '<historical>' prior: 0!
  Instance variables:
  	defaultTarget 	<Object>				The default target for creating menu items
  	selectedItem		<MenuItemMorph> 	The currently selected item in the receiver
  	stayUp 			<Boolean>			True if the receiver should stay up after clicks
  	popUpOwner 	<MenuItemMorph>	The menu item that automatically invoked the receiver, if any.
  	activeSubMenu 	<MenuMorph>		The currently active submenu.!

Item was added:
+ ----- Method: MenuMorph class>>gradientMenu (in category 'preferences') -----
+ gradientMenu
+ 
+ 	<preference: 'gradientMenu'
+ 		category: #menus
+ 		description: 'If true, the menus will have a gradient look.'
+ 		type: #Boolean>
+ 	^ GradientMenu ifNil: [true]!

Item was added:
+ ----- Method: MenuMorph class>>gradientMenu: (in category 'preferences') -----
+ gradientMenu: aBoolean
+ 
+ 	GradientMenu := aBoolean.
+ 	SystemProgressMorph reset.!

Item was changed:
  ----- Method: MenuMorph>>updateColor (in category 'control') -----
  updateColor
  	| fill title |
+ 	self class gradientMenu
- 	Preferences gradientMenu
  		ifFalse: [^ self].
  	(self fillStyle == self color) not 
  		ifTrue: [^ self]. "Don't apply the gradient more than once"
  	""
  	fill := GradientFillStyle ramp: {0.0 -> Color white. 1 -> self color}.
  	""
  	fill
  		radial: false;
  		origin: self topLeft;
  		direction: 0 @ self height.
  	""
  	self fillStyle: fill.
  	" 
  	update the title color"
  	title := self allMorphs
  				detect: [:each | each hasProperty: #titleString]
  				ifNone: [^ self].
  	""
  	fill := GradientFillStyle ramp: {0.0 -> title color twiceLighter. 1 -> title color twiceDarker}.
  	""
  	fill
  		origin: title topLeft;
  		direction: title width @ 0.
  	""
  	title fillStyle: fill!

Item was changed:
  ----- Method: SystemProgressMorph>>updateColor:color:intensity: (in category 'initialization') -----
  updateColor: aMorph color: aColor intensity: anInteger 
  	"update the apareance of aMorph"
  	| fill |
+ 	MenuMorph gradientMenu
- 	Preferences gradientMenu
  		ifFalse: [^ self].
  
  	fill := GradientFillStyle ramp: {0.0 -> Color white. 1 ->aColor}.
  	fill radial: false;
  		origin: aMorph topLeft;
  		direction: 0 @ aMorph height.
  	aMorph fillStyle: fill!

Item was changed:
  (PackageInfo named: 'Morphic') postscript: '(Preferences dictionaryOfPreferences at: #alternativeWindowBoxesLook) defaultValue: false.
  "Force SystemProgressMorph to be reset"
  SystemProgressMorph initialize; reset.
  
  "Initialize the key bindings and menus"
  Editor initialize.
  
  "Retain scrollBar look now that the pref actually does something"
  Preferences enable: #gradientScrollBars.
  
  "apply the new icons"
  MenuIcons initializeIcons.
  TheWorldMainDockingBar updateInstances.
+ 
+ "Cleanup old-style preferences here. Remove before new release."
+ Preferences removePreference: #gradientMenu. "Now in MenuMorph."'!
- '!