<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000;text-align: left" dir="ltr">
For clarification: This one should go after the checkpoint in the update map. I just did that.<div><br></div><div>Best,</div><div>Marcel</div><div class="mb_sig"></div><blockquote class='history_container' type='cite' style='border-left-style:solid;border-width:1px; margin-top:20px; margin-left:0px;padding-left:10px;'>
<p style='color: #AAAAAA; margin-top: 10px;'>Am 14.03.2022 15:58:19 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style='font-family:Arial,Helvetica,sans-serif'>Marcel Taeumel uploaded a new version of Morphic to project The Trunk:<br>http://source.squeak.org/trunk/Morphic-mt.1934.mcz<br><br>==================== Summary ====================<br><br>Name: Morphic-mt.1934<br>Author: mt<br>Time: 14 March 2022, 3:57:50.480786 pm<br>UUID: 5d6da225-6c5a-504e-8b08-4685d8fc5547<br>Ancestors: Morphic-mt.1933<br><br>Revert an accidental commit of a specific method. Sorry for the noise.<br><br>=============== Diff against Morphic-mt.1933 ===============<br><br>Item was changed:<br> ----- Method: PluggableTextMorph>>drawWrapBorderOn: (in category 'drawing') -----<br> drawWrapBorderOn: aCanvas<br> <br>+ | offset rect |<br>- | box offset rect |<br> self wantsWrapBorder ifFalse: [^ self].<br> textMorph ifNil: [^ self].<br> <br>+ offset := textMorph margins isRectangle<br>+ ifTrue: [textMorph margins left]<br>+ ifFalse: [textMorph margins isPoint<br>+ ifTrue: [textMorph margins x]<br>+ ifFalse: [textMorph margins]].<br>+ offset := offset + ((textMorph textStyle defaultFont widthOf: $x) * self class visualWrapBorderLimit).<br>+ offset > self width ifTrue: [^ self].<br>- box := textMorph innerBounds.<br>- textMorph margins ifNotNil: [:m | box := box insetBy: m].<br> <br>- offset := box left + (textMorph textStyle compositionWidthFor: self class<br>- visualWrapBorderLimit).<br>- self numCharactersPerLine ifNotNil: [<br>- "Respect right margins only if we wrap at that border to not draw over glyphs."<br>- offset := offset + (textMorph innerBounds right - box right) + self borderWidth].<br>- offset > scroller width ifTrue: [^ self].<br>- <br> rect := scroller topLeft + (offset @ 0) corner: scroller bottomRight.<br> <br> aCanvas<br> fillRectangle: rect<br> color: self wrapBorderColor.<br> aCanvas<br> line: rect topLeft<br> to: rect bottomLeft<br>+ width: self borderStyle width<br>- width: self borderWidth<br> color: (self wrapBorderColor muchDarker alpha: 0.5).!<br><br><br></div></blockquote>
</div></body>