checkin from browser
authorClaus Gittinger <cg@exept.de>
Fri, 26 Oct 2001 18:51:35 +0200
changeset 1517 3f0c8ccd0c33
parent 1516 8becf2e11b69
child 1518 85114c70d811
checkin from browser
STXInstaller.st
--- 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).