A new version of File-Kernel was added to project Rio: http://www.squeaksource.com/Rio/File-Kernel-kph.31.mcz
==================== Summary ====================
Name: File-Kernel-kph.31 Author: kph Time: 18 July 2009, 12:19:54 am UUID: 3cd788f1-59cd-451b-9458-1120deb15a1e Ancestors: File-Kernel-mtf.29
Fixed to use:
#userDirectory and #userDirectoryPath
#homeDirectory #homePath
home is described in the class coment for clarity, its the virtual root when launching from an image it is the imageDir or the trustedDir, when logging in to ftp it is the base directory of the ftp users
=============== Diff against File-Kernel-mtf.29 ===============
Item was changed: ----- Method: FileExecutive>>homeDirectory (in category 'useful paths') ----- homeDirectory
^ self class dirClass executive: self value: self homePath!
Item was added: + ----- Method: FileLocalDosExecutive>>userDirectoryPath (in category 'useful paths') ----- + userDirectoryPath + ^ self environmentAt: #USERPROFILE!
Item was added: + ----- Method: FileUnixExecutive>>userDirectoryPath (in category 'as yet unclassified') ----- + userDirectoryPath + ^ self primEnvironmentAtSymbol: #HOME!
Item was changed: ----- Method: FileLocalDosExecutive>>executiveForVolume: (in category 'accessing') ----- executiveForVolume: requestedRoot
^ self class volumes detect: [ :i | i isRoot: requestedRoot ] + ifNone: [ self class volumes add: (self class basicNew setRootString: requestedRoot; setHome: nil; yourself) ]! - ifNone: [ self class volumes add: (self class basicNew setRootString: requestedRoot; setDefault: nil; yourself) ]!
Item was added: + ----- Method: FileMacOSXExecutive>>userDirectoryPath (in category 'as yet unclassified') ----- + userDirectoryPath + ^ self environmentAt: #HOME ifAbsent: [^super home]!
Item was changed: ----- Method: FileLocalDosExecutive class>>executiveForVolume: (in category 'as yet unclassified') ----- executiveForVolume: theRequestedRoot
| requestedRoot | requestedRoot := theRequestedRoot. requestedRoot = nil ifTrue: [ requestedRoot := 'C:', self pathDelimiter ]. ^ self volumes detect: [ :i | i isRoot: requestedRoot ] + ifNone: [ self volumes add: (self basicNew setRootString: requestedRoot; setHome: nil; yourself) ]! - ifNone: [ self volumes add: (self basicNew setRootString: requestedRoot; setDefault: nil; yourself) ]!
Item was added: + ----- Method: FileExecutive>>userDirectory (in category 'useful paths') ----- + userDirectory + + ^ self class dirClass executive: self value: self userDirectoryPath!
Item was changed: Object subclass: #FileExecutive instanceVariableNames: 'home' classVariableNames: '' poolDictionaries: '' category: 'File-Kernel'! + + !FileExecutive commentStamp: 'kph 7/17/2009 22:26' prior: 0! + A FileExecutive is xxxxxxxxx. + + Instance Variables + home: is the default path, usually the image directory or the trusted directory, or the path that ftp logs in to. It is not the #usersHomeDirectory + + home + - xxxxx + !
Item was changed: ----- Method: FileLocalDosExecutive>>initializeDefault (in category 'executive actions') ----- initializeDefault
self setRootString: (self primImagePath first: 3); + setHome: self getDefaultDirectory. - setDefault: self getDefaultDirectory.
self class volumes add: self.!
Item was changed: ----- Method: FileLocalExecutive>>initializeDefault (in category 'executive actions') ----- initializeDefault
self setRootString: self class pathDelimiter; + setHome: self getDefaultDirectory! - setDefault: self getDefaultDirectory!
Item was removed: - ----- Method: FileMacOSXExecutive>>homePath (in category 'as yet unclassified') ----- - homePath - ^ self environmentAt: #HOME ifAbsent: [^super home]!
Item was removed: - ----- Method: FileLocalExecutive>>setDefault: (in category 'executive actions') ----- - setDefault: d - - "store home directory as a string, otherwise storeOn: is recursive" - - home := d asString!
Item was removed: - ----- Method: FileLocalDosExecutive>>homePath (in category 'useful paths') ----- - homePath - ^ self environmentAt: #USERPROFILE!
Item was removed: - ----- Method: FileUnixExecutive>>homePath (in category 'as yet unclassified') ----- - homePath - ^ self primEnvironmentAtSymbol: #HOME!