<body><div id="__MailbirdStyleContent" style="font-size: 12pt;font-family: Calibri;color: #000000">
Ah, sorry. That loop thing was in the HelpBrowser only.<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 17.05.2018 08:09:22 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p>Marcel Taeumel uploaded a new version of Collections to project The Trunk:<br>http://source.squeak.org/trunk/Collections-mt.795.mcz<br><br>==================== Summary ====================<br><br>Name: Collections-mt.795<br>Author: mt<br>Time: 17 May 2018, 8:08:41.389712 am<br>UUID: ce581475-faa1-3446-978c-84ef85a10d63<br>Ancestors: Collections-nice.794<br><br>Fixes an endless-loop bug as well as adds support for hrefs without quotes in the HtmlReadWriter.<br><br>=============== Diff against Collections-nice.794 ===============<br><br>Item was changed:<br> ----- Method: HtmlReadWriter>>mapATag: (in category 'mapping') -----<br> mapATag: aTag<br> <br> | result startIndex stopIndex attribute |<br> result := OrderedCollection new.<br> <br> "<a href="" http://google.de""="">"<br> attribute := 'href'.<br> startIndex := aTag findString: attribute.<br> startIndex > 0 ifTrue: [<br> startIndex := aTag findString: '"' startingAt: startIndex+attribute size.<br>+ startIndex > 0<br>+ ifTrue: [stopIndex := aTag findString: '"' startingAt: startIndex+1]<br>+ ifFalse: [<br>+ "URLs without quotes..."<br>+ startIndex := aTag findString: '=' startingAt: startIndex+attribute size.<br>+ stopIndex := aTag findString: '>' startingAt: startIndex+1]. <br>- stopIndex := aTag findString: '"' startingAt: startIndex+1.<br> result add: (TextURL new url: (aTag copyFrom: startIndex+1 to: stopIndex-1))].<br> <br> ^ result!<br><br><br></a>
</blockquote>
</div></body>