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.43 2004-03-10 17:47:50 ca Exp $' |
205 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.44 2004-03-17 11:21:34 cg Exp $' |
206 ! ! |
206 ! ! |
207 |
207 |
208 !FileOperation::Copy methodsFor:'accessing'! |
208 !FileOperation::Copy methodsFor:'accessing'! |
209 |
209 |
210 colOfCopiedFiles |
210 colOfCopiedFiles |
407 ! ! |
407 ! ! |
408 |
408 |
409 !FileOperation::Create class methodsFor:'documentation'! |
409 !FileOperation::Create class methodsFor:'documentation'! |
410 |
410 |
411 version |
411 version |
412 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.43 2004-03-10 17:47:50 ca Exp $' |
412 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.44 2004-03-17 11:21:34 cg Exp $' |
413 ! ! |
413 ! ! |
414 |
414 |
415 !FileOperation::Create methodsFor:'accessing'! |
415 !FileOperation::Create methodsFor:'accessing'! |
416 |
416 |
417 createdFile |
417 createdFile |
680 ! ! |
680 ! ! |
681 |
681 |
682 !FileOperation::Delete class methodsFor:'documentation'! |
682 !FileOperation::Delete class methodsFor:'documentation'! |
683 |
683 |
684 version |
684 version |
685 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.43 2004-03-10 17:47:50 ca Exp $' |
685 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.44 2004-03-17 11:21:34 cg Exp $' |
686 ! ! |
686 ! ! |
687 |
687 |
688 !FileOperation::Delete methodsFor:'actions'! |
688 !FileOperation::Delete methodsFor:'actions'! |
689 |
689 |
690 deleteFile:aFileOrDirectory |
690 deleteFile:aFileOrDirectory |
696 |
696 |
697 isDirectory := file isDirectory. |
697 isDirectory := file isDirectory. |
698 |
698 |
699 Error handle:[:ex| |
699 Error handle:[:ex| |
700 "was not able to remove it" |
700 "was not able to remove it" |
701 Dialog warn:(ex description, '\', ex signal notifierString) withCRs. |
701 Dialog warn:(ex description, '\' withCRs, ex signal notifierString). |
702 "/ Smalltalk beep. |
702 "/ Smalltalk beep. |
703 self errorString:((ex description, ' - ', ex signal notifierString) withCRs). |
703 self errorString:(ex description, ' - ', ex signal notifierString). |
704 result := false. |
704 result := false. |
705 ^ self. |
705 ^ self. |
706 ] do:[ |
706 ] do:[ |
707 isDirectory ifTrue:[file recursiveRemove] ifFalse:[file remove]. |
707 isDirectory ifTrue:[file recursiveRemove] ifFalse:[file remove]. |
708 |
708 |
709 ]. |
709 ]. |
710 "/ flush parent directory or directory |
710 "/ flush parent directory or directory |
711 ]. |
711 ]. |
712 DirectoryContents flushCachedDirectoryFor:(file directory). |
712 DirectoryContents flushCachedDirectoryFor:(file directory). |
713 result := true. |
713 result := true. |
|
714 |
|
715 "Modified: / 17-03-2004 / 12:42:02 / cg" |
714 ! |
716 ! |
715 |
717 |
716 deleteFiles:colOfFiles |
718 deleteFiles:colOfFiles |
717 "delete current selected files/directories |
719 "delete current selected files/directories |
718 " |
720 " |
872 ! ! |
874 ! ! |
873 |
875 |
874 !FileOperation::Move class methodsFor:'documentation'! |
876 !FileOperation::Move class methodsFor:'documentation'! |
875 |
877 |
876 version |
878 version |
877 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.43 2004-03-10 17:47:50 ca Exp $' |
879 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.44 2004-03-17 11:21:34 cg Exp $' |
878 ! ! |
880 ! ! |
879 |
881 |
880 !FileOperation::Move methodsFor:'accessing'! |
882 !FileOperation::Move methodsFor:'accessing'! |
881 |
883 |
882 colOfMovedFiles |
884 colOfMovedFiles |
1042 ! ! |
1044 ! ! |
1043 |
1045 |
1044 !FileOperation::Rename class methodsFor:'documentation'! |
1046 !FileOperation::Rename class methodsFor:'documentation'! |
1045 |
1047 |
1046 version |
1048 version |
1047 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.43 2004-03-10 17:47:50 ca Exp $' |
1049 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.44 2004-03-17 11:21:34 cg Exp $' |
1048 ! ! |
1050 ! ! |
1049 |
1051 |
1050 !FileOperation::Rename methodsFor:'accessing'! |
1052 !FileOperation::Rename methodsFor:'accessing'! |
1051 |
1053 |
1052 renamedFiles |
1054 renamedFiles |
1148 ! ! |
1150 ! ! |
1149 |
1151 |
1150 !FileOperation class methodsFor:'documentation'! |
1152 !FileOperation class methodsFor:'documentation'! |
1151 |
1153 |
1152 version |
1154 version |
1153 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.43 2004-03-10 17:47:50 ca Exp $' |
1155 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.44 2004-03-17 11:21:34 cg Exp $' |
1154 ! ! |
1156 ! ! |