equal
deleted
inserted
replaced
200 ! ! |
200 ! ! |
201 |
201 |
202 !FileOperation::Copy class methodsFor:'documentation'! |
202 !FileOperation::Copy class methodsFor:'documentation'! |
203 |
203 |
204 version |
204 version |
205 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.51 2004-05-14 10:39:42 cg Exp $' |
205 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.52 2004-05-17 17:10:31 cg Exp $' |
206 ! ! |
206 ! ! |
207 |
207 |
208 !FileOperation::Copy methodsFor:'accessing'! |
208 !FileOperation::Copy methodsFor:'accessing'! |
209 |
209 |
210 colOfCopiedFiles |
210 colOfCopiedFiles |
410 ! ! |
410 ! ! |
411 |
411 |
412 !FileOperation::Create class methodsFor:'documentation'! |
412 !FileOperation::Create class methodsFor:'documentation'! |
413 |
413 |
414 version |
414 version |
415 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.51 2004-05-14 10:39:42 cg Exp $' |
415 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.52 2004-05-17 17:10:31 cg Exp $' |
416 ! ! |
416 ! ! |
417 |
417 |
418 !FileOperation::Create methodsFor:'accessing'! |
418 !FileOperation::Create methodsFor:'accessing'! |
419 |
419 |
420 createdFile |
420 createdFile |
683 ! ! |
683 ! ! |
684 |
684 |
685 !FileOperation::Delete class methodsFor:'documentation'! |
685 !FileOperation::Delete class methodsFor:'documentation'! |
686 |
686 |
687 version |
687 version |
688 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.51 2004-05-14 10:39:42 cg Exp $' |
688 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.52 2004-05-17 17:10:31 cg Exp $' |
689 ! ! |
689 ! ! |
690 |
690 |
691 !FileOperation::Delete methodsFor:'actions'! |
691 !FileOperation::Delete methodsFor:'actions'! |
692 |
692 |
693 deleteFile:aFileOrDirectory |
693 deleteFile:aFileOrDirectory |
888 ! ! |
888 ! ! |
889 |
889 |
890 !FileOperation::Move class methodsFor:'documentation'! |
890 !FileOperation::Move class methodsFor:'documentation'! |
891 |
891 |
892 version |
892 version |
893 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.51 2004-05-14 10:39:42 cg Exp $' |
893 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.52 2004-05-17 17:10:31 cg Exp $' |
894 ! ! |
894 ! ! |
895 |
895 |
896 !FileOperation::Move methodsFor:'accessing'! |
896 !FileOperation::Move methodsFor:'accessing'! |
897 |
897 |
898 colOfMovedFiles |
898 colOfMovedFiles |
978 |
978 |
979 moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning moveFileIfSame:move |
979 moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning moveFileIfSame:move |
980 |
980 |
981 |newFile suffix fileString doMove| |
981 |newFile suffix fileString doMove| |
982 |
982 |
983 (aDirectory exists) ifFalse:[ |
983 aDirectory exists ifFalse:[ |
984 Dialog warn:('Cannot move to non-existing directory %1.' bindWith:aDirectory asString allBold). |
984 (Dialog confirm:(FileBrowser classResources |
985 result := false. |
985 stringWithCRs:'Non-existing directory "%1" .\Create ?' |
986 ^ self |
986 with:aDirectory asString allBold)) ifFalse:[ |
|
987 result := false. |
|
988 ^ self |
|
989 ]. |
|
990 aDirectory makeDirectory. |
|
991 aDirectory exists ifFalse:[ |
|
992 Dialog warn:(FileBrowser classResources |
|
993 stringWithCRs:'Cannot create directory "%1" !!\Create ?.' |
|
994 with:aDirectory asString allBold). |
|
995 result := false. |
|
996 ^ self |
|
997 ] |
987 ]. |
998 ]. |
988 (aDirectory isDirectory) ifFalse:[ |
999 (aDirectory isDirectory) ifFalse:[ |
989 Dialog warn:('Destination %1 is not a directory.' bindWith:aDirectory asString allBold). |
1000 Dialog warn:('Destination %1 is not a directory.' bindWith:aDirectory asString allBold). |
990 result := false. |
1001 result := false. |
991 ^ self |
1002 ^ self |
1059 ! ! |
1070 ! ! |
1060 |
1071 |
1061 !FileOperation::Rename class methodsFor:'documentation'! |
1072 !FileOperation::Rename class methodsFor:'documentation'! |
1062 |
1073 |
1063 version |
1074 version |
1064 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.51 2004-05-14 10:39:42 cg Exp $' |
1075 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.52 2004-05-17 17:10:31 cg Exp $' |
1065 ! ! |
1076 ! ! |
1066 |
1077 |
1067 !FileOperation::Rename methodsFor:'accessing'! |
1078 !FileOperation::Rename methodsFor:'accessing'! |
1068 |
1079 |
1069 renamedFiles |
1080 renamedFiles |
1174 ! ! |
1185 ! ! |
1175 |
1186 |
1176 !FileOperation class methodsFor:'documentation'! |
1187 !FileOperation class methodsFor:'documentation'! |
1177 |
1188 |
1178 version |
1189 version |
1179 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.51 2004-05-14 10:39:42 cg Exp $' |
1190 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.52 2004-05-17 17:10:31 cg Exp $' |
1180 ! ! |
1191 ! ! |