The Trunk: Morphic-mt.818.mcz

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@slider height]
  ifFalse:[slider width@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@self height]
  ifFalse:[self width@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].!
- !