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 ] !
packages@lists.squeakfoundation.org