[Pkg] The Trunk: Morphic-mt.820.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Apr 4 10:45:19 UTC 2015


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].!



More information about the Packages mailing list