A new version of File-Kernel was added to project Rio: http://www.squeaksource.com/Rio/File-Kernel-kph.13.mcz
==================== Summary ====================
Name: File-Kernel-kph.13 Author: kph Time: 28 February 2009, 6:32:45 am UUID: 9bc2f6dc-0561-11de-9b6f-000a95edb42a Ancestors: File-Kernel-kph.12
+ clean = fixed fileName on a directory
=============== Diff against File-Kernel-kph.12 ===============
Item was changed: ----- Method: String>>asFile (in category '*file-kernel') ----- asFile
^ FileKernel newFileFrom: self!
Item was added: + ----- Method: FileLocalDosExecutive>>cleanDir: (in category 'as yet unclassified') ----- + cleanDir: aDir + + (self class OSProcessOrNil ifNil: [ ^ aDir all delete ]) waitForCommand: 'cd ', aDir,' && del \s *.*'.!
Item was changed: ----- Method: FileStat>>fileName (in category 'as yet unclassified') ----- fileName
+ array ifNil: [ ^ nil ]. + + ^ array at: 1! - ^ array at: 1!
Item was changed: ----- Method: FileKernel>>fileName (in category 'accessing') ----- fileName
+ ^ (stat ifNotNil: [ stat fileName ]) ifNil: [ self splitToPathAndName: [ :path :n | n ] ] - ^ stat ifNotNil: [ stat fileName ] ifNil: [ self splitToPathAndName: [ :path :n | n ] ] !
Item was added: + ----- Method: FileExecutive>>cleanDir: (in category 'case-sensitivity') ----- + cleanDir: aDir + + (self class OSProcessOrNil ifNil: [ ^ aDir all delete ]) waitForCommand: 'cd ', aDir,'; rm -rf *'.!
packages@lists.squeakfoundation.org