The Trunk: Morphic-mt.820.mcz

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

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

Name: Morphic-mt.820
Author: mt
Time: 4 April 2015, 12:44:21.429 pm
UUID: abb68373-3e37-734f-a528-ed654f66943a
Ancestors: Morphic-mt.819

Added missing #duller to system window colors if there are gradients used. Looks not so bright anymore as the gradient itself starts with white.

=============== Diff against Morphic-mt.819 ===============

Item was added:
+ ----- Method: SystemWindow>>adoptPaneColor: (in category 'colors handling') -----
+ adoptPaneColor: aPaneColor
+
+ super adoptPaneColor: (self class gradientWindow
+ ifTrue: [aPaneColor duller]
+ ifFalse: [aPaneColor]).!

Item was changed:
  ----- Method: SystemWindow>>gradientWithColor: (in category 'colors handling') -----
  gradientWithColor: aColor
 
  | gradient |
  gradient := GradientFillStyle ramp: {
  0.0 -> Color white.
+ 0.2 -> (aColor duller mixed: 0.5 with: (Color gray: 0.9)) lighter.
+ 1.0 -> aColor duller.
- 0.2 -> (aColor mixed: 0.5 with: (Color gray: 0.9)) lighter.
- 1.0 -> aColor.
  }.
  gradient origin: self topLeft.
  gradient direction: 0 @ self labelHeight.
  ^gradient!

Item was changed:
  ----- Method: SystemWindow>>paneColorToUseWhenNotActive (in category 'colors handling') -----
  paneColorToUseWhenNotActive
 
+ ^ self paneColorToUse darker!
- ^ (SystemWindow gradientWindow
- ifTrue: [self paneColorToUse duller darker]
- ifFalse: [self paneColorToUse darker])!

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 muchDarker.
 
+ self class gradientWindow
- SystemWindow gradientWindow
  ifTrue: [self fillStyle: (self gradientWithColor: paneColor)]
  ifFalse: [self color: paneColor].!