STXInstaller.st
changeset 8 88df33224360
parent 7 1867a0ff352a
child 9 9f31213107b8
--- 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).