equal
deleted
inserted
replaced
142 ]. |
142 ]. |
143 |
143 |
144 filesToCopy := OrderedCollection new. |
144 filesToCopy := OrderedCollection new. |
145 |
145 |
146 fileSpec do:[:entry | |
146 fileSpec do:[:entry | |
147 |fileName dest subDir required destDir| |
147 |fileNames dest subDir required destDir| |
148 |
148 |
149 fileName := entry at:1. |
149 fileNames := entry at:1. |
150 dest := entry at:2. |
150 dest := entry at:2. |
151 subDir := entry at:3. |
151 subDir := entry at:3. |
152 required := entry at:4. |
152 required := entry at:4. |
153 |
153 |
154 dest == #bin ifTrue:[ |
154 dest == #bin ifTrue:[ |
160 destDir := destDir asFilename. |
160 destDir := destDir asFilename. |
161 subDir notNil ifTrue:[ |
161 subDir notNil ifTrue:[ |
162 destDir := destDir construct:subDir |
162 destDir := destDir construct:subDir |
163 ]. |
163 ]. |
164 |
164 |
165 filesToCopy add:(fileName -> destDir pathName) |
165 filesToCopy add:(fileNames -> destDir pathName) |
166 ]. |
166 ]. |
167 |
167 |
168 numFiles := filesToCopy size. |
168 numFiles := filesToCopy size. |
169 nDone := 0. |
169 nDone := 0. |
170 |
170 |
172 |fileName destDir cmd p text line| |
172 |fileName destDir cmd p text line| |
173 |
173 |
174 fileName := entry key. |
174 fileName := entry key. |
175 destDir := entry value. |
175 destDir := entry value. |
176 |
176 |
177 ('../../' , fileName) asFilename exists ifTrue:[ |
177 ((fileName includes:$*) |
|
178 or:[('../../' , fileName) asFilename exists])ifTrue:[ |
178 actionPercentageHolder value:(nDone / numFiles * 100) rounded. |
179 actionPercentageHolder value:(nDone / numFiles * 100) rounded. |
179 |
180 |
180 msg at:4 put:' ' , (fileName asText allBold). |
181 msg at:4 put:' ' , (fileName asText allBold). |
181 msg at:6 put:' ' , (destDir asText allBold). |
182 msg at:6 put:' ' , (destDir asText allBold). |
182 actionTextHolder value:nil. |
183 actionTextHolder value:nil. |