[Pkg] The Trunk: Morphic-mt.1891.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.1891.mcz

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

Name: Morphic-mt.1891
Author: mt
Time: 11 February 2022, 11:16:32.434944 am
UUID: b293ef70-17de-504c-8f0a-f19308256d24
Ancestors: Morphic-mt.1890

Fixes scaling of text-field adornments (i.e., #hasUnacceptedEdits etc.).

Complements System-mt.1308.

=============== Diff against Morphic-mt.1890 ===============

Item was added:
+ ----- Method: PluggableButtonMorph class>>themePriority (in category 'preferences') -----
+ themePriority
+ 
+ 	^ 50!

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 * RealEstateAgent scaleFactor) rounded. 
- 		size := 16. 
  		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>>applyUserInterfaceTheme (in category 'preferences') -----
+ applyUserInterfaceTheme
+ 
+ 	self flushAdornmentCache.!

Item was added:
+ ----- Method: ScrollPane class>>themePriority (in category 'preferences') -----
+ themePriority
+ 
+ 	^ 40!

Item was added:
+ ----- Method: SystemWindow class>>themePriority (in category 'preferences') -----
+ themePriority
+ 
+ 	^ 30!