[Pkg] Rio: File-Base-test.20.mcz

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

A new version of File-Base was added to project Rio:
http://www.squeaksource.com/Rio/File-Base-test.20.mcz

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

Name: File-Base-test.20
Author: test
Time: 2 March 2009, 9:21:55 pm
UUID: 53a1bc54-8835-e84b-8b4a-6be7ede1d3f8
Ancestors: File-Base-kph.19

All non-net tests pass


=============== Diff against File-Base-kph.19 ===============

Item was changed:
  ----- Method: File>>copyTo: (in category 'public file') -----
  copyTo: aPathOrFile
  
  	| outFile size |
  	
  	"we do a stat here, so that we have the fileSize".
  	size := self fileSize.
  	 
+ 	outFile := aPathOrFile asFile isBinary: self isBinary.
+ 	outFile lineEndConvention: self lineEndConvention.
+ 	
+ 	^ outFile writer: [ :out |
- 	^ (outFile := aPathOrFile asFile isBinary: self isBinary) writer: [ :out |
  	 	self reader: [ :in |
  			in copyTo: out size: size withProgress: 
  				(self copyDescription, ' ', self asString, ' ', outFile copyResultDescription)
  		].
  	].
  
  !