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

[commits at source.squeak.org]

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

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

Name: Morphic-mt.1287
Author: mt
Time: 17 August 2016, 2:12:36.939125 pm
UUID: 093b8798-343f-024c-bddb-bb9fcc3bf4af
Ancestors: Morphic-mt.1286

Makes triangular adornments not so prominent (especially when gradients are off) and flush the adornment cache in the release clean-up process.

=============== Diff against Morphic-mt.1286 ===============

Item was changed:
  ----- Method: PluggableTextMorph class>>adornmentWithColor: (in category 'frame adornments') -----
  adornmentWithColor: aColor
  	"Create and return a frame adornment with the given color"
  
  	| size box form fillStyle |
  	^self adornmentCache at: aColor ifAbsentPut:[
+ 		size := 16. 
- 		size := 20. 
  		box := 0 at 0 extent: size asPoint.
  		form := Form extent: size at size depth: 32.
  		fillStyle := MenuMorph gradientMenu ifFalse: [SolidFillStyle color: aColor] ifTrue: [
  			(GradientFillStyle ramp: {
  				0.0->(aColor alpha: 0.01).
  				0.8->aColor.
  				1.0->aColor})
  				origin: box topRight - (size at 0);
  				direction: (size @ size negated) // 4;
  				radial: false].
  		form getCanvas drawPolygon:  {
  			box topRight. 
  			box topRight + (0 at size). 
  			box topRight - (size at 0)
  		} fillStyle: fillStyle.
  		form].
  !

Item was added:
+ ----- Method: PluggableTextMorph class>>cleanUp: (in category 'as yet unclassified') -----
+ cleanUp: aggressive
+ 
+ 	aggressive ifTrue: [self flushAdornmentCache].!