--- a/STXInstaller.st Tue Sep 10 16:12:32 1996 +0200
+++ b/STXInstaller.st Tue Sep 10 16:18:02 1996 +0200
@@ -144,9 +144,9 @@
filesToCopy := OrderedCollection new.
fileSpec do:[:entry |
- |fileName dest subDir required destDir|
+ |fileNames dest subDir required destDir|
- fileName := entry at:1.
+ fileNames := entry at:1.
dest := entry at:2.
subDir := entry at:3.
required := entry at:4.
@@ -162,7 +162,7 @@
destDir := destDir construct:subDir
].
- filesToCopy add:(fileName -> destDir pathName)
+ filesToCopy add:(fileNames -> destDir pathName)
].
numFiles := filesToCopy size.
@@ -174,7 +174,8 @@
fileName := entry key.
destDir := entry value.
- ('../../' , fileName) asFilename exists ifTrue:[
+ ((fileName includes:$*)
+ or:[('../../' , fileName) asFilename exists])ifTrue:[
actionPercentageHolder value:(nDone / numFiles * 100) rounded.
msg at:4 put:' ' , (fileName asText allBold).