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 |