The Trunk: Morphic-ar.369.mcz

Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ar.369.mcz

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

Name: Morphic-ar.369
Author: ar
Time: 1 March 2010, 10:01:12.336 pm
UUID: 375d76a2-472e-aa4c-9550-87bdfad95737
Ancestors: Morphic-tfel.367, Morphic-ar.368

Merging Morphic-tfel.367

Do not apply gradients on menus more than once. This fixes a bug where submenus got increasingly whiter with gradient menus activated after opening and closing them several times. (Without closing the parent menu)

=============== Diff against Morphic-ar.368 ===============

Item was changed:
  ----- Method: MenuMorph>>updateColor (in category 'control') -----
  updateColor
  | fill title |
  Preferences gradientMenu
  ifFalse: [^ self].
+ (self fillStyle == self color) not
+ ifTrue: [^ self]. "Don't apply the gradient more than once"
  ""
  fill := GradientFillStyle ramp: {0.0 -> Color white. 1 -> self color}.
  ""
  fill
  radial: false;
  origin: self topLeft;
  direction: 0 @ self height.
  ""
  self fillStyle: fill.
  "
  update the title color"
  title := self allMorphs
  detect: [:each | each hasProperty: #titleString]
  ifNone: [^ self].
  ""
  fill := GradientFillStyle ramp: {0.0 -> title color twiceLighter. 1 -> title color twiceDarker}.
  ""
  fill
  origin: title topLeft;
  direction: title width @ 0.
  ""
  title fillStyle: fill!