A new version of File-Kernel was added to project Rio: http://www.squeaksource.com/Rio/File-Kernel-jrd.27.mcz
==================== Summary ====================
Name: File-Kernel-jrd.27 Author: jrd Time: 2 May 2009, 8:33:15 pm UUID: 55120c70-1d13-4ce9-85ea-ca7f95f833c5 Ancestors: File-Kernel-jrd.26
Changed:
- Redid approach to data directory. dataPath: takes arg which is a string indicating the application so as to name subdirs appropriately to the platform - dataPath assumes the application is 'Squeak'
=============== Diff against File-Kernel-jrd.26 ===============
Item was changed: ----- Method: FileExecutive>>dataPath (in category 'useful paths') ----- dataPath
+ ^ self dataPath: 'Squeak'! - ^ self homePath!
Item was added: + ----- Method: FileUnixExecutive>>dataPath: (in category 'as yet unclassified') ----- + dataPath: appName + ^ self homePath, '/.' , (appName asLowercase reject: [ :each | each isSeparator])!
Item was added: + ----- Method: FileExecutive>>dataPath: (in category 'useful paths') ----- + dataPath: appName + + ^ self homePath!
Item was added: + ----- Method: FileExecutive>>dataDirectoryForApp: (in category 'useful paths') ----- + dataDirectoryForApp: appName + + ^ self class dirClass executive: self value: (self dataPath: appName)!
Item was added: + ----- Method: FileMacOSXExecutive>>dataPath: (in category 'as yet unclassified') ----- + dataPath: appName + ^ self homePath , '/Library/Application Support/' , appName , '/'!
Item was added: + ----- Method: FileLocalDosExecutive>>dataPath: (in category 'useful paths') ----- + dataPath: appName + ^ (self environmentAt: #APPDATA), '' , appName!
Item was removed: - ----- Method: FileUnixExecutive>>dataPath (in category 'as yet unclassified') ----- - dataPath - ^ self homePath, '/.squeak'!
Item was removed: - ----- Method: FileMacOSXExecutive>>dataPath (in category 'as yet unclassified') ----- - dataPath - ^ self homePath , '/Library/Application Support/Squeak/'!
Item was removed: - ----- Method: FileLocalDosExecutive>>dataPath (in category 'useful paths') ----- - dataPath - ^ (self environmentAt: #APPDATA), '\Squeak'!