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

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

Name: Morphic-mt.818
Author: mt
Time: 3 April 2015, 6:40:20.491 pm
UUID: 755f0532-7105-9245-abc7-3bc72388d83f
Ancestors: Morphic-mt.817

Scroll bars and scroll panes now update their border colors when asked for adopting a system window's pane color.

=============== Diff against Morphic-mt.817 ===============

Item was changed:
  ----- Method: ScrollBar>>updateSliderColor: (in category 'access') -----
  updateSliderColor: aColor
  	| gradient |
  
  	self borderWidth: 0.
  
  	Preferences gradientScrollBars ifFalse: [
+ 		slider
+ 			borderColor: aColor muchDarker;
+ 			color: aColor.
+ 		pagingArea
+ 			borderColor: (aColor muchDarker alpha: pagingArea borderStyle color alpha);
+ 			color: (aColor darker alpha: 0.45).
- 		slider borderStyle: (BorderStyle width: 1 color: aColor muchDarker).	
- 		slider color: aColor.
- 		pagingArea 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 muchDarker].!
- !