<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>Thank you, Marcel! :-)</p>
<p></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, 18. Januar 2022 09:13:42<br>
<b>An:</b> squeak-dev@lists.squeakfoundation.org; packages@lists.squeakfoundation.org<br>
<b>Betreff:</b> [squeak-dev] The Trunk: Morphic-mt.1847.mcz</font>
<div> </div>
</div>
</div>
<font size="2"><span style="font-size:10pt;">
<div class="PlainText">Marcel Taeumel uploaded a new version of Morphic to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/Morphic-mt.1847.mcz">http://source.squeak.org/trunk/Morphic-mt.1847.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Morphic-mt.1847<br>
Author: mt<br>
Time: 18 January 2022, 9:13:23.199362 am<br>
UUID: 0a674705-b986-c24b-95a5-139cb07c243a<br>
Ancestors: Morphic-mt.1846<br>
<br>
Fixes regression from last commit. Shift+Red on window labels works again.<br>
<br>
=============== Diff against Morphic-mt.1846 ===============<br>
<br>
Item was changed:<br>
  ----- Method: TextMorph>>font: (in category 'accessing') -----<br>
  font: aFont<br>
         "Change the receiver's default font, which is used to draw its contents. Remove all custom font-face-related attributes from the current contents. Try to lookup the matching #textStyle so that TextFontChange can be used from here on. For a less harsh
 approach, just use #textStyle: instead and rely on text attributes.<br>
         <br>
         !! It is best practice to work with #textStyle: and rely on the text attributes TextFontChange and (sometimes) TextFontReference."<br>
  <br>
         | newTextStyle |<br>
         self text removeAttributesThat: [:attr | attr isTextFontChange and: [attr canFontBeSubstituted]].<br>
  <br>
         newTextStyle := aFont textStyleOrNil<br>
                 ifNil: [TextStyle fontArray: {aFont}]<br>
                 ifNotNil: [:style | style copy].<br>
+        newTextStyle defaultFontIndex: (newTextStyle fontIndexOfPointSize: aFont pointSize).   
<br>
-        newTextStyle defaultFontIndex: (newTextStyle fontIndexOf: aFont).       <br>
  <br>
+        aFont emphasis ~= 0 ifTrue: [<br>
+                self text addAttribute: (TextEmphasis new emphasisCode: aFont emphasis; yourself)].<br>
+ <br>
         self textStyle: newTextStyle.!<br>
<br>
<br>
</div>
</span></font>
</body>
</html>