<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>