Christoph Thiede uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ct.2027.mcz

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

Name: Morphic-ct.2027
Author: ct
Time: 23 August 2022, 1:06:20.364308 pm
UUID: d042a989-c812-3b4d-b00e-f50e4c387956
Ancestors: Morphic-mt.2025

Improves high-dpi support for SimpleButtonMorph and deduplicates #label:[font:].

=============== Diff against Morphic-mt.2025 ===============

Item was changed:
  ----- Method: SimpleButtonMorph>>label: (in category 'accessing') -----
  label: aString
  
+ 	^ self label: aString font: nil!
- 	| oldLabel m |
- 	(oldLabel := self findA: StringMorph)
- 		ifNotNil: [oldLabel delete].
- 	m := StringMorph contents: aString font: TextStyle defaultFont.
- 	self extent: m extent + (self borderWidth + 6).
- 	m position: self center - (m extent // 2).
- 	self addMorph: m.
- 	m lock!

Item was changed:
  ----- Method: SimpleButtonMorph>>label:font: (in category 'accessing') -----
  label: aString font: aFont
  
  	| oldLabel m |
  	(oldLabel := self findA: StringMorph)
  		ifNotNil: [oldLabel delete].
+ 	m := StringMorph contents: aString font: (aFont ifNil: [TextStyle defaultFont]).
+ 	self extent: m extent + (self borderWidth + 6 px).
- 	m := StringMorph contents: aString font: (aFont ifNil: [Preferences standardButtonFont]).
- 	self extent: (m width + 6) @ (m height + 6).
  	m position: self center - (m extent // 2).
  	self addMorph: m.
+ 	m lock.!
- 	m lock
- !