equal
deleted
inserted
replaced
4089 "return a default systemPath - thats a collection of |
4089 "return a default systemPath - thats a collection of |
4090 dirnames, where ST/X searches for its files. |
4090 dirnames, where ST/X searches for its files. |
4091 This method is redefined in concrete OS's to add |
4091 This method is redefined in concrete OS's to add |
4092 OS-specific directory names." |
4092 OS-specific directory names." |
4093 |
4093 |
4094 |sysPath p appDir homePath priv userPrivateSTXDir| |
4094 |sysPath p appDir homePath priv userPrivateSTXDir appPath| |
4095 |
4095 |
4096 " |
4096 " |
4097 the path is set to search files first locally |
4097 the path is set to search files first locally |
4098 - this allows private stuff to override global stuff |
4098 - this allows private stuff to override global stuff |
4099 " |
4099 " |
4105 sysPath add:(Filename currentDirectory pathName). |
4105 sysPath add:(Filename currentDirectory pathName). |
4106 |
4106 |
4107 "/ |
4107 "/ |
4108 "/ the executable's directory |
4108 "/ the executable's directory |
4109 "/ |
4109 "/ |
4110 appDir := self pathOfSTXExecutable asFilename directory pathName. |
4110 appPath := self pathOfSTXExecutable. |
4111 (sysPath includes:appDir) ifFalse:[ |
4111 appPath notNil ifTrue:[ |
4112 sysPath add:appDir. |
4112 appDir := appPath asFilename directory pathName. |
|
4113 (sysPath includes:appDir) ifFalse:[ |
|
4114 sysPath add:appDir. |
|
4115 ]. |
4113 ]. |
4116 ]. |
4114 |
4117 |
4115 "/ |
4118 "/ |
4116 "/ the users home (login) directory |
4119 "/ the users home (login) directory |
4117 "/ |
4120 "/ |
6886 ! ! |
6889 ! ! |
6887 |
6890 |
6888 !AbstractOperatingSystem class methodsFor:'documentation'! |
6891 !AbstractOperatingSystem class methodsFor:'documentation'! |
6889 |
6892 |
6890 version |
6893 version |
6891 ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.193 2010-01-15 14:53:59 stefan Exp $' |
6894 ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.194 2010-03-04 17:09:36 cg Exp $' |
6892 ! |
6895 ! |
6893 |
6896 |
6894 version_CVS |
6897 version_CVS |
6895 ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.193 2010-01-15 14:53:59 stefan Exp $' |
6898 ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.194 2010-03-04 17:09:36 cg Exp $' |
6896 ! ! |
6899 ! ! |
6897 |
6900 |
6898 AbstractOperatingSystem initialize! |
6901 AbstractOperatingSystem initialize! |