[Pkg] Installer: Installer-Core-kph.261.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of Installer-Core was added to project Installer:
http://www.squeaksource.com/Installer/Installer-Core-kph.261.mcz

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

Name: Installer-Core-kph.261
Author: kph
Time: 9 December 2008, 3:00:25 am
UUID: 228330f7-c05c-41f0-8e62-7ec96407dead
Ancestors: Installer-Core-kph.260

Moved extractHtml up to InstallerInternetBased

=============== Diff against Installer-Core-kph.260 ===============

Item was added:
+ ----- Method: InstallerInternetBased>>extractFromHtml:option: (in category 'url') -----
+ extractFromHtml: html option: allOrLast
+ 
+ 	|  start stop test in |
+ 
+ 	start := self markersBegin.
+ 	stop :=  self markersEnd.
+ 	test := self markersTest.
+ 			 
+ 	in := ReadWriteStream with: String new.
+ 		
+ 	[ html upToAll: start; atEnd ] 
+ 		whileFalse: [
+ 			| chunk |
+ 			(allOrLast == #last) ifTrue: [ in resetToStart ]. 
+ 			chunk := html upToAll: stop.
+ 			self isSkipLoadingTestsSet ifTrue: [ chunk := chunk readStream upToAll: test ].
+ 			in nextPutAll: chunk. 
+ 		 ].
+ 
+ 	^self removeHtmlMarkupFrom: in reset
+ 	 
+ !

Item was removed:
- ----- Method: InstallerWebBased>>extractFromHtml:option: (in category 'action report') -----
- extractFromHtml: html option: allOrLast
- 
- 	|  start stop test in |
- 
- 	start := self markersBegin.
- 	stop :=  self markersEnd.
- 	test := self markersTest.
- 			 
- 	in := ReadWriteStream with: String new.
- 		
- 	[ html upToAll: start; atEnd ] 
- 		whileFalse: [
- 			| chunk |
- 			(allOrLast == #last) ifTrue: [ in resetToStart ]. 
- 			chunk := html upToAll: stop.
- 			self isSkipLoadingTestsSet ifTrue: [ chunk := chunk readStream upToAll: test ].
- 			in nextPutAll: chunk. 
- 		 ].
- 
- 	^self removeHtmlMarkupFrom: in reset
- 	 
- !