A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-tfel.422.mcz

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

Name: Morphic-tfel.422
Author: tfel
Time: 16 April 2010, 9:47:42.483 am
UUID: b6e8ea37-08d3-49d0-8743-6bca55165c06
Ancestors: Morphic-laza.421

Worked on the button gradients to make them less pronounced.

=============== Diff against Morphic-laza.421 ===============

Item was changed:
  ----- Method: PluggableButtonMorph>>drawOn: (in category 'drawing') -----
  drawOn: aCanvas 
+ 	| cc gradient borderColor |
- 	| cc gradient |
  	cc := self color.
  	cc isTransparent ifTrue:[cc := Color gray: 0.9].
  	self enabled ifFalse:[cc := Color lightGray].
  	cc brightness > 0.9 ifTrue:[cc := cc adjustBrightness: 0.9 - cc brightness].
  	showSelectionFeedback ifTrue:[
+ 		borderColor := cc muchDarker.
  		gradient := GradientFillStyle ramp: {
+ 			0.0 -> cc muchDarker.
+ 			0.1-> (cc adjustBrightness: -0.2).
+ 			0.5 -> cc.
+ 			0.9-> (cc adjustBrightness: -0.1).
+ 			1 -> cc muchDarker.
- 			0 -> (Color gray: 0.75).
- 			0.5 -> (Color gray: 0.85).
- 			0.51 -> (Color gray: 0.9).
- 			1 -> (Color gray: 1).
  		}.
  	] ifFalse:[
+ 		borderColor := Color lightGray.
  		gradient := GradientFillStyle ramp: {
  			0.0 -> Color white.
+ 			0.1-> (cc adjustBrightness: 0.05).
+ 			0.6 -> (cc darker).
- 			0.5 -> (cc).
- 			0.51-> (cc adjustBrightness: -0.1).
- 			1 -> (Color gray: 0.95).
  		}
  	].
  	gradient origin: bounds topLeft.
  	gradient direction: 0 at self height.
  	^ self class roundedButtonCorners
+ 		ifTrue: [aCanvas 
+ 				frameAndFillRoundRect: bounds 
+ 				radius: 8 
+ 				fillStyle: gradient 
+ 				borderWidth: 1 
+ 				borderColor: borderColor]
+ 		ifFalse: [aCanvas 
+ 				frameAndFillRectangle: self innerBounds 
+ 				fillColor: gradient asColor 
+ 				borderWidth: 1 
+ 				borderColor: borderColor darker;
+ 				fillRectangle: (self innerBounds insetBy: 1) 
+ 				fillStyle: gradient]!
- 		ifTrue: [aCanvas frameAndFillRoundRect: bounds radius: 8 fillStyle: gradient borderWidth: 1 borderColor: Color lightGray]
- 		ifFalse: [
- 			aCanvas 
- 					frameAndFillRectangle: self innerBounds fillColor: gradient asColor borderWidth: 1 borderColor: Color gray;
- 					fillRectangle: (self innerBounds insetBy: 1) fillStyle: gradient]!

Item was changed:
+ (PackageInfo named: 'Morphic') postscript: '(Preferences dictionaryOfPreferences at: #alternativeWindowBoxesLook) defaultValue: false.
+ SystemProgressMorph initialize; reset'!
- (PackageInfo named: 'Morphic') postscript: 'SystemProgressMorph initialize; reset'!