author | Claus Gittinger <cg@exept.de> |
Fri, 26 Oct 2001 18:51:35 +0200 | |
changeset 1517 | 3f0c8ccd0c33 |
parent 1516 | 8becf2e11b69 |
child 1518 | 85114c70d811 |
STXInstaller.st | file | annotate | diff | comparison | revisions |
--- a/STXInstaller.st Fri Oct 26 18:32:55 2001 +0200 +++ b/STXInstaller.st Fri Oct 26 18:51:35 2001 +0200 @@ -444,6 +444,11 @@ fullDir asFilename baseName ~= 'stx' ifTrue:[ fullDir := fullDir asFilename constructString:'stx'. ]. + fullDir asFilename recursiveMakeDirectory. + fullDir asFilename exists ifFalse:[ + self warn:'Oops - failed to create directory: ' , fullDir. + ^ false + ]. msg at:4 put:(' all from CD' asText allBold). msg at:6 put:' ' , (fullDir asText allBold).