[squeak-dev] The Trunk: Morphic-ct.2027.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Aug 23 11:06:47 UTC 2022
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
- !
More information about the Squeak-dev
mailing list
|