--- a/STXInstaller.st Mon May 31 16:47:34 1999 +0200
+++ b/STXInstaller.st Mon May 31 17:35:59 1999 +0200
@@ -584,12 +584,17 @@
actionTextHolder value:msg.
((fileName includes:$*) not
- and:[('../../' , fileName) asFilename exists not]) ifTrue:[
+ and:[(topDirPrefix , fileName) asFilename exists not]) ifTrue:[
(self listOfOptionalPackages includes:fileName) ifFalse:[
commandTraceView showCR:('cannot copy ' , fileName , ' - not included in distribution').
commandTraceView endEntry.
]
] ifFalse:[
+ destDir asFilename exists ifFalse:[
+ commandTraceView showCR:(resources string:'creating %1 ...' with:destDir asFilename pathName).
+ commandTraceView endEntry.
+ OperatingSystem recursiveCreateDirectory:destDir asFilename pathName
+ ].
self recursiveCopy:(topDirPrefix , fileName) to:destDir.
]
].
@@ -604,7 +609,7 @@
"
"Created: / 17.7.1996 / 15:16:20 / cg"
- "Modified: / 31.5.1999 / 13:05:23 / cg"
+ "Modified: / 31.5.1999 / 17:29:19 / cg"
!
createDirectories