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

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

Name: Morphic-mt.1763
Author: mt
Time: 28 April 2021, 9:31:14.313168 am
UUID: 33370f53-b3b0-0b4a-8333-fe869808b435
Ancestors: Morphic-mt.1762

Fixes hpi-dpi bug for windows opened via #openModal: such as the FontChooserTool. The windows had the wrong extent.

=============== Diff against Morphic-mt.1762 ===============

Item was changed:
  ----- Method: Morph>>openModal: (in category 'polymorph') -----
  openModal: aSystemWindow
  	"Open the given window locking the receiver until it is dismissed.
  	Answer the system window.
  	Restore the original keyboard focus when closed."
  
+ 	| hand priorFocus mySysWin |
+ 	mySysWin := self isSystemWindow
+ 		ifTrue: [ self ]
+ 		ifFalse: [ (self ownerThatIsA: SystemWindow) ifNil: [ self ] ].
+ 	hand := self currentHand.
+ 	priorFocus := hand keyboardFocus.	
+ 	[ mySysWin modalLockTo: aSystemWindow.
+ 	ToolBuilder default runModal: aSystemWindow openAsIs ]
+ 		ensure:
+ 			[ mySysWin modalUnlockFrom: aSystemWindow.
+ 			hand newKeyboardFocus: priorFocus ].
- 	|area mySysWin keyboardFocus|
- 	keyboardFocus := self activeHand keyboardFocus.
- 	mySysWin := self isSystemWindow ifTrue: [self] ifFalse: [self ownerThatIsA: SystemWindow].
- 	mySysWin ifNil: [mySysWin := self].
- 	mySysWin modalLockTo: aSystemWindow.
- 	area := RealEstateAgent maximumUsableArea.
- 	aSystemWindow extent: aSystemWindow initialExtent.
- 	aSystemWindow position = (0 at 0)
- 		ifTrue: [aSystemWindow
- 				position: self activeHand position - (aSystemWindow extent // 2)].
- 	aSystemWindow
- 		bounds: (aSystemWindow bounds translatedToBeWithin: area).
- 	[ToolBuilder default runModal: aSystemWindow openAsIs]
- 		ensure: [mySysWin modalUnlockFrom: aSystemWindow.
- 				self activeHand newKeyboardFocus: keyboardFocus].
  	^aSystemWindow!