Comment #2 on issue 5255 by
[hidden email]: windows startup
errors, in #14317
http://code.google.com/p/pharo/issues/detail?id=5255I fixed this in my image Pharo-1.4-14315 as follows...
DosFileDirectory>>preferencesFolder
| folderStringName list configPath path directory osMajorVer |
folderStringName := 'Pharo\',SystemVersion current major
asString,'.',SystemVersion current minor asString.
"First try to adhere to Microsoft conventions. ( We really should be
reading environment variables since %SYSTEMDRIVE% may not be C: )"
"Windows OS Version numbers from
http://msdn.microsoft.com/en-us/library/windows/desktop/ms724832%28v=vs.85%29.aspx"
osMajorVer := Smalltalk os osVersion first.
osMajorVer = $5 ifTrue: [ configPath := 'C:\Documents and Settings\All
Users\'].
osMajorVer = $6 ifTrue: [ configPath := 'C:\ProgramData\'].
path := configPath, folderStringName,self slash.
directory := self forFileName: path.
directory exists ifTrue: [ ^ directory ].
"Fall back in case system locked down so user has not been able to create
folders per Microsoft conventions above"
list := (self default fullName subStrings: self slash) copyFrom: 1 to: 2.
configPath := (list joinUsing: self slash) , self slash, '_config' , self
slash.
path := configPath, folderStringName,self slash.
directory := self forFileName: path.
^ directory.
DosFileDirectory>>preferencesGeneralFolder
"DosFileDirectory preferencesGeneralFolder"
| directory path |
path := self preferencesFolder fullName , '\general' .
directory := self forFileName: path.
^ directory.
_______________________________________________
Pharo-bugtracker mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-bugtracker
Locked
