73 ! |
73 ! |
74 |
74 |
75 defaultPackagePath |
75 defaultPackagePath |
76 "redefined to add stx.app packages and /Library stuff" |
76 "redefined to add stx.app packages and /Library stuff" |
77 |
77 |
78 |path executablePath executableDir packagesDir libDir vsnDirName vsnDir| |
78 |path executablePath executableDir packagesDir |
|
79 libDir appDir versionsDir vsnDirName vsnDir| |
79 |
80 |
80 path := super defaultPackagePath. |
81 path := super defaultPackagePath. |
81 |
82 |
82 executablePath := OperatingSystem pathOfSTXExecutable. |
83 executablePath := OperatingSystem pathOfSTXExecutable. |
83 executablePath notNil ifTrue:[ |
84 executablePath notNil ifTrue:[ |
84 executableDir := executablePath asFilename directory. |
85 executableDir := executablePath asFilename directory. |
85 packagesDir := executableDir directory directory / 'Packages'. |
86 packagesDir := executableDir directory directory / 'Packages'. |
86 packagesDir exists ifTrue:[ |
87 packagesDir exists ifTrue:[ |
87 path add:packagesDir. |
88 path add:packagesDir. |
88 ]. |
89 ]. |
89 libDir := '/Library/Smalltalk-x' asFilename. |
90 libDir := '/Library/Frameworks/SmalltalkX.framework' asFilename. |
90 libDir exists ifTrue:[ |
91 libDir exists ifTrue:[ |
91 vsnDirName := '%1.%2' bindWith:Smalltalk majorVersionNr |
92 versionsDir := libDir / 'Versions'. |
92 with:Smalltalk minorVersionNr. |
93 versionsDir exists ifTrue:[ |
93 vsnDir := libDir / vsnDirName. |
94 vsnDirName := '%1.%2.%3' |
94 vsnDir exists ifTrue:[ |
95 bindWith:Smalltalk majorVersionNr |
95 path add:vsnDir. |
96 with:Smalltalk minorVersionNr |
96 ]. |
97 with:Smalltalk revisionNr. |
97 ]. |
98 vsnDir := versionsDir / vsnDirName. |
|
99 vsnDir exists ifTrue:[ |
|
100 path add:vsnDir pathName. |
|
101 ]. |
|
102 ]. |
|
103 ]. |
|
104 appDir := '/Applications/SmalltalkX/' asFilename. |
|
105 appDir exists ifTrue:[ |
|
106 versionsDir := appDir / 'Versions'. |
|
107 versionsDir exists ifTrue:[ |
|
108 vsnDirName := '%1.%2.%3' |
|
109 bindWith:Smalltalk majorVersionNr |
|
110 with:Smalltalk minorVersionNr |
|
111 with:Smalltalk revisionNr. |
|
112 vsnDir := versionsDir / vsnDirName. |
|
113 vsnDir exists ifTrue:[ |
|
114 path add:vsnDir pathName. |
|
115 ]. |
|
116 ]. |
|
117 ]. |
98 ]. |
118 ]. |
99 ^ path |
119 ^ path |
100 ! |
120 ! |
101 |
121 |
102 getDriveList |
122 getDriveList |