STXInstaller.st
changeset 1136 f861c61ca047
parent 1135 c27511f3028c
child 1137 77c59731e289
equal deleted inserted replaced
1135:c27511f3028c 1136:f861c61ca047
   582             msg at:6 put:'    ' , (destDir asText allBold).
   582             msg at:6 put:'    ' , (destDir asText allBold).
   583             actionTextHolder value:nil.
   583             actionTextHolder value:nil.
   584             actionTextHolder value:msg.
   584             actionTextHolder value:msg.
   585 
   585 
   586             ((fileName includes:$*) not
   586             ((fileName includes:$*) not
   587             and:[('../../' , fileName) asFilename exists not]) ifTrue:[
   587             and:[(topDirPrefix , fileName) asFilename exists not]) ifTrue:[
   588                 (self listOfOptionalPackages includes:fileName) ifFalse:[
   588                 (self listOfOptionalPackages includes:fileName) ifFalse:[
   589                     commandTraceView showCR:('cannot copy ' , fileName , ' - not included in distribution').
   589                     commandTraceView showCR:('cannot copy ' , fileName , ' - not included in distribution').
   590                     commandTraceView endEntry.
   590                     commandTraceView endEntry.
   591                 ]
   591                 ]
   592             ] ifFalse:[
   592             ] ifFalse:[
       
   593                 destDir asFilename exists ifFalse:[
       
   594                     commandTraceView showCR:(resources string:'creating %1 ...' with:destDir asFilename pathName).
       
   595                     commandTraceView endEntry.
       
   596                     OperatingSystem recursiveCreateDirectory:destDir asFilename pathName
       
   597                 ].
   593                 self recursiveCopy:(topDirPrefix , fileName) to:destDir.
   598                 self recursiveCopy:(topDirPrefix , fileName) to:destDir.
   594             ]
   599             ]
   595         ].
   600         ].
   596 
   601 
   597         nDone := nDone + 1
   602         nDone := nDone + 1
   602     "
   607     "
   603      STXInstaller open
   608      STXInstaller open
   604     "
   609     "
   605 
   610 
   606     "Created: / 17.7.1996 / 15:16:20 / cg"
   611     "Created: / 17.7.1996 / 15:16:20 / cg"
   607     "Modified: / 31.5.1999 / 13:05:23 / cg"
   612     "Modified: / 31.5.1999 / 17:29:19 / cg"
   608 !
   613 !
   609 
   614 
   610 createDirectories
   615 createDirectories
   611     |msg dirsToMake numDirs nDone|
   616     |msg dirsToMake numDirs nDone|
   612 
   617