[Pkg] The Trunk: Collections-mt.635.mcz

[commits at source.squeak.org]

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!