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 - !