<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
<meta name="Generator" content="Microsoft Exchange Server">
<!-- converted from text --><style><!-- .EmailQuote { margin-left: 1pt; padding-left: 4pt; border-left: #800000 2px solid; } --></style>
</head>
<body>
<meta content="text/html; charset=UTF-8">
<style type="text/css" style="">
<!--
p
{margin-top:0;
margin-bottom:0}
-->
</style>
<div dir="ltr">
<div id="x_divtagdefaultwrapper" dir="ltr" style="font-size:12pt; color:#000000; font-family:Calibri,Helvetica,sans-serif">
<p><img size="14829" id="x_img934597" tabindex="0" style="max-width:99.9%" src="cid:9b586a69-c6ba-441f-b73c-95ee2fc9372e"><br>
</p>
</div>
<hr tabindex="-1" style="display:inline-block; width:98%">
<div id="x_divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" color="#000000" style="font-size:11pt"><b>Von:</b> Squeak-dev <squeak-dev-bounces@lists.squeakfoundation.org> im Auftrag von commits@source.squeak.org <commits@source.squeak.org><br>
<b>Gesendet:</b> Dienstag, 23. August 2022 13:06:47<br>
<b>An:</b> squeak-dev@lists.squeakfoundation.org; packages@lists.squeakfoundation.org<br>
<b>Betreff:</b> [squeak-dev] The Trunk: Morphic-ct.2027.mcz</font>
<div> </div>
</div>
</div>
<font size="2"><span style="font-size:10pt;">
<div class="PlainText">Christoph Thiede uploaded a new version of Morphic to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/Morphic-ct.2027.mcz">http://source.squeak.org/trunk/Morphic-ct.2027.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Morphic-ct.2027<br>
Author: ct<br>
Time: 23 August 2022, 1:06:20.364308 pm<br>
UUID: d042a989-c812-3b4d-b00e-f50e4c387956<br>
Ancestors: Morphic-mt.2025<br>
<br>
Improves high-dpi support for SimpleButtonMorph and deduplicates #label:[font:].<br>
<br>
=============== Diff against Morphic-mt.2025 ===============<br>
<br>
Item was changed:<br>
----- Method: SimpleButtonMorph>>label: (in category 'accessing') -----<br>
label: aString<br>
<br>
+ ^ self label: aString font: nil!<br>
- | oldLabel m |<br>
- (oldLabel := self findA: StringMorph)<br>
- ifNotNil: [oldLabel delete].<br>
- m := StringMorph contents: aString font: TextStyle defaultFont.<br>
- self extent: m extent + (self borderWidth + 6).<br>
- m position: self center - (m extent // 2).<br>
- self addMorph: m.<br>
- m lock!<br>
<br>
Item was changed:<br>
----- Method: SimpleButtonMorph>>label:font: (in category 'accessing') -----<br>
label: aString font: aFont<br>
<br>
| oldLabel m |<br>
(oldLabel := self findA: StringMorph)<br>
ifNotNil: [oldLabel delete].<br>
+ m := StringMorph contents: aString font: (aFont ifNil: [TextStyle defaultFont]).<br>
+ self extent: m extent + (self borderWidth + 6 px).<br>
- m := StringMorph contents: aString font: (aFont ifNil: [Preferences standardButtonFont]).<br>
- self extent: (m width + 6) @ (m height + 6).<br>
m position: self center - (m extent // 2).<br>
self addMorph: m.<br>
+ m lock.!<br>
- m lock<br>
- !<br>
<br>
<br>
</div>
</span></font>
</body>
</html>