equal
deleted
inserted
replaced
873 ]. |
873 ]. |
874 srcF isDirectory ifFalse:[ |
874 srcF isDirectory ifFalse:[ |
875 (dstF exists and:[dstF isDirectory]) ifTrue:[ |
875 (dstF exists and:[dstF isDirectory]) ifTrue:[ |
876 dstF := dstF construct:srcBaseName. |
876 dstF := dstF construct:srcBaseName. |
877 ]. |
877 ]. |
878 srcF copyTo:dstF. |
878 "/ special check for windows bug |
|
879 "/ (lists trans.tbl files, but wont find it later) |
|
880 srcF exists ifTrue:[ |
|
881 Object errorSignal handle:[:ex | |
|
882 commandTraceView showCR:('*** Error: ' , ex errorString) |
|
883 ] do:[ |
|
884 srcF copyTo:dstF. |
|
885 ] |
|
886 ]. |
879 OperatingSystem isUNIXlike ifTrue:[ |
887 OperatingSystem isUNIXlike ifTrue:[ |
880 srcF isExecutable ifTrue:[ |
888 srcF isExecutable ifTrue:[ |
881 dstF makeExecutableForAll |
889 dstF makeExecutableForAll |
882 ] |
890 ] |
883 ] |
891 ] |
895 ] |
903 ] |
896 ] |
904 ] |
897 "/ ] |
905 "/ ] |
898 |
906 |
899 "Created: / 31.5.1999 / 13:05:09 / cg" |
907 "Created: / 31.5.1999 / 13:05:09 / cg" |
900 "Modified: / 23.12.1999 / 23:36:53 / cg" |
908 "Modified: / 3.3.2000 / 01:51:54 / cg" |
901 ! |
909 ! |
902 |
910 |
903 removeMakefilesInDoc |
911 removeMakefilesInDoc |
904 |cmd msg| |
912 |cmd msg| |
905 |
913 |