The Inbox: Morphic-tfel.422.mcz

A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-tfel.422.mcz

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

Name: Morphic-tfel.422
Author: tfel
Time: 16 April 2010, 9:47:42.483 am
UUID: b6e8ea37-08d3-49d0-8743-6bca55165c06
Ancestors: Morphic-laza.421

Worked on the button gradients to make them less pronounced.

=============== Diff against Morphic-laza.421 ===============

Item was changed:
  ----- Method: PluggableButtonMorph>>drawOn: (in category 'drawing') -----
  drawOn: aCanvas
+ | cc gradient borderColor |
- | cc gradient |
  cc := self color.
  cc isTransparent ifTrue:[cc := Color gray: 0.9].
  self enabled ifFalse:[cc := Color lightGray].
  cc brightness > 0.9 ifTrue:[cc := cc adjustBrightness: 0.9 - cc brightness].
  showSelectionFeedback ifTrue:[
+ borderColor := cc muchDarker.
  gradient := GradientFillStyle ramp: {
+ 0.0 -> cc muchDarker.
+ 0.1-> (cc adjustBrightness: -0.2).
+ 0.5 -> cc.
+ 0.9-> (cc adjustBrightness: -0.1).
+ 1 -> cc muchDarker.
- 0 -> (Color gray: 0.75).
- 0.5 -> (Color gray: 0.85).
- 0.51 -> (Color gray: 0.9).
- 1 -> (Color gray: 1).
  }.
  ] ifFalse:[
+ borderColor := Color lightGray.
  gradient := GradientFillStyle ramp: {
  0.0 -> Color white.
+ 0.1-> (cc adjustBrightness: 0.05).
+ 0.6 -> (cc darker).
- 0.5 -> (cc).
- 0.51-> (cc adjustBrightness: -0.1).
- 1 -> (Color gray: 0.95).
  }
  ].
  gradient origin: bounds topLeft.
  gradient direction: 0@self height.
  ^ self class roundedButtonCorners
+ ifTrue: [aCanvas
+ frameAndFillRoundRect: bounds
+ radius: 8
+ fillStyle: gradient
+ borderWidth: 1
+ borderColor: borderColor]
+ ifFalse: [aCanvas
+ frameAndFillRectangle: self innerBounds
+ fillColor: gradient asColor
+ borderWidth: 1
+ borderColor: borderColor darker;
+ fillRectangle: (self innerBounds insetBy: 1)
+ fillStyle: gradient]!
- ifTrue: [aCanvas frameAndFillRoundRect: bounds radius: 8 fillStyle: gradient borderWidth: 1 borderColor: Color lightGray]
- ifFalse: [
- aCanvas
- frameAndFillRectangle: self innerBounds fillColor: gradient asColor borderWidth: 1 borderColor: Color gray;
- fillRectangle: (self innerBounds insetBy: 1) fillStyle: gradient]!

Item was changed:
+ (PackageInfo named: 'Morphic') postscript: '(Preferences dictionaryOfPreferences at: #alternativeWindowBoxesLook) defaultValue: false.
+ SystemProgressMorph initialize; reset'!
- (PackageInfo named: 'Morphic') postscript: 'SystemProgressMorph initialize; reset'!