STXInstaller.st
changeset 1138 66190ee44a6a
parent 1137 77c59731e289
child 1139 c5940bfd4ce2
equal deleted inserted replaced
1137:77c59731e289 1138:66190ee44a6a
   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:[
   171             dirsToMake add:(stxLibDir asFilename constructString:'source').
   171             dirsToMake add:(stxLibDir asFilename constructString:'source').
   172         ]
   172         ]
   173     ].
   173     ].
   174     ^ dirsToMake
   174     ^ dirsToMake
   175 
   175 
   176     "Modified: / 31.5.1999 / 17:42:19 / cg"
   176     "Modified: / 31.5.1999 / 17:52:03 / cg"
   177 !
   177 !
   178 
   178 
   179 listOfOptionalPackages
   179 listOfOptionalPackages
   180     ^ #(
   180     ^ #(
   181         'libDB'
   181         'libDB'
   610     "
   610     "
   611      STXInstaller open
   611      STXInstaller open
   612     "
   612     "
   613 
   613 
   614     "Created: / 17.7.1996 / 15:16:20 / cg"
   614     "Created: / 17.7.1996 / 15:16:20 / cg"
   615     "Modified: / 31.5.1999 / 17:29:19 / cg"
   615     "Modified: / 31.5.1999 / 18:07:33 / cg"
   616 !
   616 !
   617 
   617 
   618 createDirectories
   618 createDirectories
   619     |msg dirsToMake numDirs nDone|
   619     |msg dirsToMake numDirs nDone|
   620 
   620