286 msg at:4 put:(' all from CD' asText allBold). |
286 msg at:4 put:(' all from CD' asText allBold). |
287 msg at:6 put:' ' , (fullDir asText allBold). |
287 msg at:6 put:' ' , (fullDir asText allBold). |
288 actionTextHolder value:nil. |
288 actionTextHolder value:nil. |
289 actionTextHolder value:msg. |
289 actionTextHolder value:msg. |
290 |
290 |
291 cmd := 'cp -r ../../* ' , fullDir. |
291 cmd := '(cd ../.. ; tar cf - .) | (cd ' , fullDir , ' ; tar xvf -)'. |
292 "/ |
292 "/ "/ |
293 "/ not all systems have cp -rv |
293 "/ "/ not all systems have cp -rv |
294 "/ |
294 "/ "/ |
295 OperatingSystem getOSType = 'linux' ifTrue:[ |
295 "/ OperatingSystem getOSType = 'linux' ifTrue:[ |
296 cmd := 'cp -rv ../../* ' , fullDir. |
296 "/ cmd := 'cp -rv ../../* ' , fullDir. |
297 ]. |
297 "/ ]. |
298 commandTraceView showCR:cmd , ' ...'. |
298 "/ commandTraceView showCR:cmd , ' ...'. |
|
299 commandTraceView showCR:'copying ...'. |
299 commandTraceView endEntry. |
300 commandTraceView endEntry. |
300 cmd := cmd , ' 2>&1' . |
301 cmd := cmd , ' 2>&1' . |
301 |
302 |
302 self executeCommandAndShowOutput:cmd. |
303 self executeCommandAndShowOutput:cmd. |
303 |
304 |