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

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

Name: Morphic-mt.1834
Author: mt
Time: 30 December 2021, 2:00:53.072703 pm
UUID: 98cbe1a9-c8f0-9b40-baba-0708e9a35be0
Ancestors: Morphic-mt.1833

Fixes some scaling issues.

Note that I do always decide on #rounded vs. #truncated when scaling a Morphic property via #scaleFactor. This avoids surprises in the BitBlt rendering backend. And it always makes it clear whether we want to change 1.5 to 1 (truncated) or 2 (rounded), which is important e.g. in #borderWidth vs. a window's default extent.

=============== Diff against Morphic-mt.1833 ===============

Item was changed:
  ----- Method: HaloMorph>>handleSize (in category 'private') -----
  handleSize
+ 	^ ((Preferences biggerHandles
- 	^ (Preferences biggerHandles
  		ifTrue: [30]
+ 		ifFalse: [16]) * RealEstateAgent scaleFactor) rounded!
- 		ifFalse: [16]) * RealEstateAgent scaleFactor!

Item was changed:
  ----- Method: MenuItemMorph class>>applyUserInterfaceTheme (in category 'preferences') -----
  applyUserInterfaceTheme
  
+ 	SubMenuMarker := self defaultSubMenuMarker scaleIconToDisplay.!
- 	SubMenuMarker := self defaultSubMenuMarker.!

Item was changed:
  ----- Method: Morph class>>preferredCornerRadius (in category 'preferences') -----
  preferredCornerRadius
  
  	<preference: 'Preferred Corner Radius'
  		categoryList: #(Morphic windows menus)
  		description: 'If a morph wants rounded corners, use this radius. May be overwritten in subclasses.'
  		type: #Number>
+ 	^ ((PreferredCornerRadius ifNil: [8]) * RealEstateAgent scaleFactor) rounded!
- 	^ PreferredCornerRadius ifNil: [6]!

Item was changed:
  ----- Method: Morph class>>preferredCornerRadius: (in category 'preferences') -----
  preferredCornerRadius: anInteger
  
+ 	PreferredCornerRadius := (anInteger / RealEstateAgent scaleFactor) rounded.!
- 	PreferredCornerRadius := anInteger.!