The Trunk: Morphic-ct.1506.mcz

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!