The Trunk: Morphic-mt.1287.mcz

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@0 extent: size asPoint.
  form := Form extent: size@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@0);
  direction: (size @ size negated) // 4;
  radial: false].
  form getCanvas drawPolygon:  {
  box topRight.
  box topRight + (0@size).
  box topRight - (size@0)
  } fillStyle: fillStyle.
  form].
  !

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