<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! Maybe we will even be able to implement proper linebreaks for this balloon text at some time ...</p>
<p><img size="3713" id="x_img882446" tabindex="0" style="max-width:99.9%" src="cid:9ebd384a-ca30-47f5-aa02-9e3ead758f62"><br>
</p>
<p>What would be the right approach for this? Would it be fair to maintain a second (locked) TextMorph instance for this and always display one of both morphs only? Or should we exchange the state (contents and style) of the existing textMorph instead? Or even
 maintain another paragraph instance separately? :-)</p>
<p><br>
</p>
<p>Best,</p>
<p>Christoph</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> Montag, 7. Februar 2022 11:20:20<br>
<b>An:</b> squeak-dev@lists.squeakfoundation.org; packages@lists.squeakfoundation.org<br>
<b>Betreff:</b> [squeak-dev] The Trunk: ToolBuilder-Morphic-mt.294.mcz</font>
<div> </div>
</div>
</div>
<font size="2"><span style="font-size:10pt;">
<div class="PlainText">Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.294.mcz">http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.294.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: ToolBuilder-Morphic-mt.294<br>
Author: mt<br>
Time: 7 February 2022, 11:20:19.442414 am<br>
UUID: 121b5fa3-cc43-ba4e-ac82-90a2b7f7cf77<br>
Ancestors: ToolBuilder-Morphic-mt.293<br>
<br>
Fixes regression regarding the vertical position of help text in pluggable text morphs.<br>
<br>
=============== Diff against ToolBuilder-Morphic-mt.293 ===============<br>
<br>
Item was changed:<br>
  ----- Method: PluggableTextMorphPlus>>drawBalloonTextOn: (in category 'drawing') -----<br>
  drawBalloonTextOn: aCanvas <br>
+        "Show balloon text in the text morph if it has no contents. Catch errors to guard against broken models."<br>
+ <br>
+        | helpText helpFont helpColor box |<br>
-        "Show balloon text in the text morph if it has no contents."<br>
         textMorph contents ifNotEmpty: [ ^ self ].<br>
+        helpText := [ self balloonText ] on: Error do: [ :err | '<error in #balloonText>' ].<br>
+        helpText ifNil: [ ^ self ].<br>
+        <br>
+        helpFont := self userInterfaceTheme balloonTextFont ifNil: [TextStyle defaultFont].<br>
+        helpColor := self userInterfaceTheme balloonTextColor ifNil: [Color gray: 0.7].<br>
+        <br>
+        box := self innerBounds insetBy: (self textMorph margins ifNil: [0]).<br>
+        box := box insetBy: (0 @ helpFont lineGapSlice corner: 0@0).<br>
+        <br>
+        aCanvas drawString: helpText in: box font: helpFont color: helpColor.!<br>
-        ([ self balloonText ]<br>
-                on: Error<br>
-                do: [ : err | 'error in balloonText' ]) ifNotNil:<br>
-                [ : text | | font box |<br>
-                        font := self userInterfaceTheme balloonTextFont ifNil: [TextStyle defaultFont].<br>
-                        box := self bounds insetBy: (self textMorph margins ifNil: [0]).<br>
-                        box := box insetBy: (0 @ font lineGapSlice corner: 0@0).<br>
-                        aCanvas<br>
-                                drawString: text<br>
-                                in: box<br>
-                                font: font <br>
-                                color: (self userInterfaceTheme balloonTextColor ifNil: [Color gray: 0.7]) ]!<br>
<br>
<br>
</div>
</span></font>
</body>
</html>