142 "Created: / 18.7.1996 / 19:43:21 / cg" |
142 "Created: / 18.7.1996 / 19:43:21 / cg" |
143 "Modified: / 31.5.1999 / 12:12:30 / cg" |
143 "Modified: / 31.5.1999 / 12:12:30 / cg" |
144 ! |
144 ! |
145 |
145 |
146 directoriesToMake |
146 directoriesToMake |
147 |dirsToMake| |
147 |dirsToMake docDir docOnlineDir| |
148 |
148 |
149 dirsToMake := OrderedCollection new. |
149 dirsToMake := OrderedCollection new. |
150 installWhat == #full ifTrue:[ |
150 installWhat == #full ifTrue:[ |
151 dirsToMake add:fullDir. |
151 dirsToMake add:fullDir. |
152 ] ifFalse:[ |
152 ] ifFalse:[ |
153 dirsToMake add:stxBinDir. |
153 dirsToMake add:stxBinDir. |
154 dirsToMake add:stxLibDir. |
154 dirsToMake add:stxLibDir. |
155 dirsToMake add:stxLibBinDir. |
155 dirsToMake add:stxLibBinDir. |
156 dirsToMake add:(stxLibDir asFilename constructString:'configurations'). |
156 dirsToMake add:(stxLibDir asFilename constructString:'configurations'). |
157 dirsToMake add:(stxLibDir asFilename constructString:'doc'). |
157 dirsToMake add:(stxLibDir asFilename constructString:'doc'). |
158 dirsToMake add:((stxLibDir asFilename construct:'doc') constructString:'online'). |
158 dirsToMake add:((docDir := stxLibDir asFilename construct:'doc') constructString:'online'). |
159 dirsToMake add:(((stxLibDir asFilename construct:'doc') construct:'online') constructString:'english'). |
159 dirsToMake add:((docOnlineDir := docDir construct:'online') constructString:'english'). |
160 dirsToMake add:(((stxLibDir asFilename construct:'doc') construct:'online') constructString:'german'). |
160 dirsToMake add:(docOnlineDir constructString:'german'). |
161 dirsToMake add:(((stxLibDir asFilename construct:'doc') construct:'online') constructString:'french'). |
161 dirsToMake add:(docOnlineDir constructString:'french'). |
162 dirsToMake add:(((stxLibDir asFilename construct:'doc') construct:'online') constructString:'italian'). |
162 dirsToMake add:(docOnlineDir constructString:'italian'). |
163 dirsToMake add:(stxLibDir asFilename constructString:'include'). |
163 dirsToMake add:(stxLibDir asFilename constructString:'include'). |
164 dirsToMake add:(stxLibDir asFilename constructString:'resources'). |
164 dirsToMake add:(stxLibDir asFilename constructString:'resources'). |
165 dirsToMake add:(stxLibDir asFilename constructString:'binary'). |
165 dirsToMake add:(stxLibDir asFilename constructString:'binary'). |
166 dirsToMake add:(stxLibDir asFilename constructString:'bitmaps'). |
166 dirsToMake add:(stxLibDir asFilename constructString:'bitmaps'). |
167 installGoodyFiles ifTrue:[ |
167 installGoodyFiles ifTrue:[ |