<div dir="ltr">This change cause the HelpBrowser not work<div><br></div><div>Best,</div><div>Karl</div><div><br></div><div><br></div></div><br><div class="gmail_quote"><div dir="ltr">On Mon, Jul 9, 2018 at 5:15 PM <<a href="mailto:commits@source.squeak.org">commits@source.squeak.org</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Levente Uzonyi uploaded a new version of Collections to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/Collections-kks.801.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/trunk/Collections-kks.801.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Collections-kks.801<br>
Author: kks<br>
Time: 9 July 2018, 8:20:57.318092 pm<br>
UUID: ad558efb-0fea-41e7-9f20-ef7477b20704<br>
Ancestors: Collections-ul.800<br>
<br>
Attempt to retain as much styling as possible while filing in text from streams where the runs may fall short or extend beyond the string.<br>
<br>
Based on Bob's suggestions at <a href="http://lists.squeakfoundation.org/pipermail/squeak-dev/2018-July/199530.html" rel="noreferrer" target="_blank">http://lists.squeakfoundation.org/pipermail/squeak-dev/2018-July/199530.html</a><br>
<br>
=============== Diff against Collections-ul.800 ===============<br>
<br>
Item was changed:<br>
  ----- Method: Text>>setString:setRunsChecking: (in category 'private') -----<br>
  setString: aString setRunsChecking: aRunArray<br>
+       | stringSize runsSize |<br>
-       "Check runs and do the best you can to make them fit..."<br>
- <br>
        string := aString.<br>
-       "check the runs"<br>
        aRunArray ifNil: [^ aString asText].<br>
-       (aRunArray isKindOf: RunArray) ifFalse: [^ aString asText].<br>
-       aRunArray runs size = aRunArray values size ifFalse: [^ aString asText].<br>
-       aRunArray size = aString size ifFalse: [^ aString asText].<br>
<br>
+       "Check runs and do the best you can to make them fit..."<br>
+       runsSize := aRunArray runs size.<br>
+       runsSize = aRunArray values size ifFalse: [^ aString asText]. "raise error here?"<br>
+       stringSize := string size.<br>
+       runs := stringSize = runsSize<br>
+                               ifTrue: [aRunArray]<br>
+                               ifFalse: [ stringSize > runsSize<br>
+                                               ifTrue: [aRunArray  addLast: {} times: stringSize - runsSize]<br>
+                                               ifFalse: [aRunArray copyFrom: 1 to: stringSize]].!<br>
-       runs := aRunArray.!<br>
<br>
<br>
</blockquote></div>