STXInstaller.st
changeset 31 0f95ba9204f6
parent 30 7b6129ab86b0
child 73 2087134eea96
equal deleted inserted replaced
30:7b6129ab86b0 31:0f95ba9204f6
   258             actionTextHolder value:nil.
   258             actionTextHolder value:nil.
   259             actionTextHolder value:msg.
   259             actionTextHolder value:msg.
   260 
   260 
   261             cmd := 'cp -r ../../' , fileName , ' ' , destDir.
   261             cmd := 'cp -r ../../' , fileName , ' ' , destDir.
   262             commandTraceView showCR:cmd , ' ...'.
   262             commandTraceView showCR:cmd , ' ...'.
   263             cmd := 'sh -c "echo ; ' , cmd , ' 2>&1"' .
   263 "/            cmd := 'sh -c "echo ; ' , cmd , ' 2>&1"' .
       
   264             cmd := cmd , ' 2>&1' .
   264 
   265 
   265             doneSemaphore := Semaphore new.
   266             doneSemaphore := Semaphore new.
   266 
   267 
   267             [   
   268             [   
   268 
   269 
   291     ].
   292     ].
   292 
   293 
   293     ^ true
   294     ^ true
   294 
   295 
   295     "Created: 17.7.1996 / 15:16:20 / cg"
   296     "Created: 17.7.1996 / 15:16:20 / cg"
   296     "Modified: 9.1.1997 / 03:07:28 / cg"
   297     "Modified: 9.1.1997 / 03:15:23 / cg"
   297 !
   298 !
   298 
   299 
   299 createDirectories
   300 createDirectories
   300     |msg dirsToMake numDirs nDone|
   301     |msg dirsToMake numDirs nDone|
   301 
   302