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

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

Name: Morphic-mt.857
Author: mt
Time: 10 April 2015, 5:58:47.128 pm
UUID: c2d644ed-3407-5447-b7bb-fa65d4eaaf01
Ancestors: Morphic-mt.856

Some cosmetic changes: do not darken the paneColor in scroll bars', scroll panes', and system windows' so much.

Note: This is a reaction to some feedback to make the non-gradient look more friendlier.

=============== Diff against Morphic-mt.856 ===============

Item was changed:
  ----- Method: ScrollBar>>updateSliderColor: (in category 'access') -----
  updateSliderColor: aColor
  
  	| gradient |
  	Preferences gradientScrollBars ifFalse: [
  		slider
+ 			borderColor: (aColor adjustBrightness: -0.3);
- 			borderColor: aColor muchDarker;
  			color: aColor.
  		pagingArea
  			borderColor: (aColor muchDarker alpha: pagingArea borderStyle color alpha);
+ 			color: (aColor darker alpha: 0.35).
- 			color: (aColor darker alpha: 0.45).
  		^ self].
  
  	slider borderStyle: (BorderStyle width: 1 color: Color lightGray).	
  
  	"Fill the slider."
  	gradient := GradientFillStyle ramp: {
  			0 -> (Color gray: 0.95).
  			0.49 -> (Color gray: 0.9).
  			0.5 -> (Color gray: 0.87).
  			1 -> (Color gray: 0.93).
  	}.
  	gradient origin: slider topLeft.
  	gradient direction: (self bounds isWide
  		ifTrue:[0 at slider height]
  		ifFalse:[slider width at 0]).
  	slider fillStyle: gradient.
  	
  	"Fill the paging area."
  	gradient := GradientFillStyle ramp: {
  		0 -> (Color gray: 0.65).
  		0.6 -> (Color gray: 0.82).
  		1 -> (Color gray: 0.88).
  	}.
  	gradient origin: self topLeft.
  	gradient direction: (self bounds isWide
  		ifTrue:[0 at self height]
  		ifFalse:[self width at 0]).
  	pagingArea fillStyle: gradient.!

Item was changed:
  ----- Method: ScrollPane>>adoptPaneColor: (in category 'access') -----
  adoptPaneColor: paneColor
  	super adoptPaneColor: paneColor.
  	
  	"May not be in the hierarchy at the moment."
  	scrollBar adoptPaneColor: paneColor.
  	hScrollBar adoptPaneColor: paneColor.
  
+ 	paneColor ifNotNil: [:c | self borderColor: (c adjustBrightness: -0.3)].!
- 	paneColor ifNotNil: [:c | self borderColor: c muchDarker].!

Item was changed:
  ----- Method: SystemWindow>>setStripeColorsFrom: (in category 'colors handling') -----
  setStripeColorsFrom: paneColor 
  	"Set the stripe color based on the given paneColor"
  
  	labelArea ifNotNil: [labelArea color: Color transparent].
  	self updateBoxesColor: paneColor.
  	stripes ifNil: [^self].
  
+ 	self borderColor: (paneColor adjustBrightness: -0.3).
- 	self borderColor: paneColor muchDarker.
  
  	self class gradientWindow
  		ifTrue: [self fillStyle: (self gradientWithColor: paneColor)]
  		ifFalse: [self color: paneColor].!