[Pkg] The Trunk: Morphic-ct.1506.mcz

[commits at source.squeak.org]

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

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

Name: Morphic-ct.1506
Author: ct
Time: 15 August 2019, 1:04:11.175584 am
UUID: e6ae0f1d-e19f-a74e-883a-8f916957c77a
Ancestors: Morphic-mt.1504

Respect global scaleFactor in SystemWindow boxes

Better blury than tiny. But it would be nice if someone could provide icons at higher scale :)

=============== Diff against Morphic-mt.1504 ===============

Item was changed:
  ----- Method: SystemWindow>>createBox: (in category 'initialization') -----
  createBox: aForm
  	"create a button with a form to be used in the label area"
  	
  	| box |
  	box := SystemWindowButton new.
  	box color: Color transparent;
  		 target: self;
  		 useSquareCorners;
  		 borderWidth: 0;
+ 		 labelGraphic: (aForm scaledIntoFormOfSize: self boxExtent * 0.75);
- 		 labelGraphic: aForm;
  		 extent: self boxExtent.
  	^ box!