[Pkg] Rio: File-Base-kph.34.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-kph.34.mcz

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

Name: File-Base-kph.34
Author: kph
Time: 13 July 2009, 5:41:20 pm
UUID: 5d8cc98f-7a1c-465e-a089-7316fe02e537
Ancestors: File-Base-kph.33

Fixed SharedQueue setItems: following the change from SharedQueue2

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

Item was changed:
  ----- Method: File>>ifAbsent: (in category 'testing') -----
  ifAbsent: aBlock
  
+ 	^ self exists ifFalse: [ aBlock value ] ifTrue: [ self ]!
- 	^ self exists ifFalse: [ aBlock value: self ] ifTrue: [ self ]!

Item was changed:
  ----- Method: SharedQueue>>setItems: (in category '*file-base') -----
  setItems: anOrderedCollection
+ 	contentsArray := anOrderedCollection asArray.
+ 	writePosition := contentsArray size + 1.!
- 	contentsArray := anOrderedCollection asArray!

Item was changed:
  ----- Method: FileFtpExecutive>>copyRemoteFile:toLocalFile: (in category 'ftp client') -----
  copyRemoteFile: aFile toLocalFile: bFile 
  	| cmd |
  	
  	File 
   		ospIfWin:[ :os | aFile copyTo: bFile ]
  		ifUnix: [ :os | 
+ 		
  			os waitForCommand: (cmd := 'ftp -o "', bFile asVmPathName, '" "' ,  url asString ,  aFile, '"').
  			bFile exists ifFalse: [ self error: 'transfer failed: ', cmd]. ]
  		ifNone: [ aFile copyTo: bFile ]
  	
   !