catch error during copy
authorClaus Gittinger <cg@exept.de>
Fri, 03 Mar 2000 01:44:01 +0100
changeset 1369 2e0f974abecc
parent 1368 ce2820258d1b
child 1370 c975b2f00291
catch error during copy
STXInstaller.st
--- a/STXInstaller.st	Thu Mar 02 13:56:11 2000 +0100
+++ b/STXInstaller.st	Fri Mar 03 01:44:01 2000 +0100
@@ -875,7 +875,15 @@
                     (dstF exists and:[dstF isDirectory]) ifTrue:[
                         dstF := dstF construct:srcBaseName.
                     ].
-                    srcF copyTo:dstF.
+                    "/ special check for windows bug
+                    "/ (lists trans.tbl files, but wont find it later)
+                    srcF exists ifTrue:[
+                        Object errorSignal handle:[:ex |
+                            commandTraceView showCR:('*** Error: ' , ex errorString)
+                        ] do:[
+                            srcF copyTo:dstF.
+                        ]
+                    ].
                     OperatingSystem isUNIXlike ifTrue:[
                         srcF isExecutable ifTrue:[
                             dstF makeExecutableForAll
@@ -897,7 +905,7 @@
 "/    ]
 
     "Created: / 31.5.1999 / 13:05:09 / cg"
-    "Modified: / 23.12.1999 / 23:36:53 / cg"
+    "Modified: / 3.3.2000 / 01:51:54 / cg"
 !
 
 removeMakefilesInDoc