The Trunk: Collections-mt.635.mcz

Marcel Taeumel uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-mt.635.mcz

==================== Summary ====================

Name: Collections-mt.635
Author: mt
Time: 10 May 2015, 2:31:43.749 pm
UUID: 5c6d47bf-db22-7a4b-b35e-24626842474b
Ancestors: Collections-ul.634

Some debug code removed from html readwriter..

=============== Diff against Collections-ul.634 ===============

Item was changed:
  ----- Method: HtmlReadWriter>>mapATag: (in category 'mapping') -----
  mapATag: aTag
 
  | result startIndex stopIndex attribute |
  result := OrderedCollection new.
-
- Transcript showln: aTag.
 
  "<a href=""http://google.de"">"
  attribute := 'href'.
  startIndex := aTag findString: attribute.
  startIndex > 0 ifTrue: [
  startIndex := aTag findString: '=' startingAt: startIndex+attribute size.
  stopIndex := aTag findString: ' ' startingAt: startIndex+1.
  stopIndex = 0 ifTrue: [
  stopIndex := aTag findString: '>' startingAt: startIndex+1].
 
  (aTag at: startIndex + 1) = $"
  ifTrue: [startIndex := startIndex + 1].
  (aTag at: stopIndex - 1) = $"
  ifTrue: [stopIndex := stopIndex - 1].
  result add: (TextURL new url: (aTag copyFrom: startIndex+1 to: stopIndex-1))].
 
  ^ result!