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.34 2003-05-13 23:26:56 cg Exp $' |
205 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.35 2003-05-16 15:54:47 cg Exp $' |
206 ! ! |
206 ! ! |
207 |
207 |
208 !FileOperation::Copy methodsFor:'accessing'! |
208 !FileOperation::Copy methodsFor:'accessing'! |
209 |
209 |
210 colOfCopiedFiles |
210 colOfCopiedFiles |
404 ! ! |
404 ! ! |
405 |
405 |
406 !FileOperation::Create class methodsFor:'documentation'! |
406 !FileOperation::Create class methodsFor:'documentation'! |
407 |
407 |
408 version |
408 version |
409 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.34 2003-05-13 23:26:56 cg Exp $' |
409 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.35 2003-05-16 15:54:47 cg Exp $' |
410 ! ! |
410 ! ! |
411 |
411 |
412 !FileOperation::Create methodsFor:'accessing'! |
412 !FileOperation::Create methodsFor:'accessing'! |
413 |
413 |
414 createdFile |
414 createdFile |
671 ! ! |
671 ! ! |
672 |
672 |
673 !FileOperation::Delete class methodsFor:'documentation'! |
673 !FileOperation::Delete class methodsFor:'documentation'! |
674 |
674 |
675 version |
675 version |
676 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.34 2003-05-13 23:26:56 cg Exp $' |
676 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.35 2003-05-16 15:54:47 cg Exp $' |
677 ! ! |
677 ! ! |
678 |
678 |
679 !FileOperation::Delete methodsFor:'actions'! |
679 !FileOperation::Delete methodsFor:'actions'! |
680 |
680 |
681 deleteFile:aFileOrDirectory |
681 deleteFile:aFileOrDirectory |
758 answer := Dialog |
758 answer := Dialog |
759 confirmWithCancel:(('Directory ''%1'' is not empty', Character cr asString, 'remove anyway ?') |
759 confirmWithCancel:(('Directory ''%1'' is not empty', Character cr asString, 'remove anyway ?') |
760 bindWith:filename pathName allBold) |
760 bindWith:filename pathName allBold) |
761 labels:( #('Cancel' 'Keep' 'Remove') ) |
761 labels:( #('Cancel' 'Keep' 'Remove') ) |
762 values:#(nil false true) |
762 values:#(nil false true) |
763 default:2. |
763 default:3. |
764 answer == nil ifTrue:[ |
764 answer == nil ifTrue:[ |
765 ^ self |
765 ^ self |
766 ]. |
766 ]. |
767 doDelete := answer |
767 doDelete := answer |
768 ]. |
768 ]. |
842 ! ! |
842 ! ! |
843 |
843 |
844 !FileOperation::Move class methodsFor:'documentation'! |
844 !FileOperation::Move class methodsFor:'documentation'! |
845 |
845 |
846 version |
846 version |
847 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.34 2003-05-13 23:26:56 cg Exp $' |
847 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.35 2003-05-16 15:54:47 cg Exp $' |
848 ! ! |
848 ! ! |
849 |
849 |
850 !FileOperation::Move methodsFor:'accessing'! |
850 !FileOperation::Move methodsFor:'accessing'! |
851 |
851 |
852 colOfMovedFiles |
852 colOfMovedFiles |
1012 ! ! |
1012 ! ! |
1013 |
1013 |
1014 !FileOperation::Rename class methodsFor:'documentation'! |
1014 !FileOperation::Rename class methodsFor:'documentation'! |
1015 |
1015 |
1016 version |
1016 version |
1017 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.34 2003-05-13 23:26:56 cg Exp $' |
1017 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.35 2003-05-16 15:54:47 cg Exp $' |
1018 ! ! |
1018 ! ! |
1019 |
1019 |
1020 !FileOperation::Rename methodsFor:'accessing'! |
1020 !FileOperation::Rename methodsFor:'accessing'! |
1021 |
1021 |
1022 renamedFiles |
1022 renamedFiles |
1105 ! ! |
1105 ! ! |
1106 |
1106 |
1107 !FileOperation class methodsFor:'documentation'! |
1107 !FileOperation class methodsFor:'documentation'! |
1108 |
1108 |
1109 version |
1109 version |
1110 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.34 2003-05-13 23:26:56 cg Exp $' |
1110 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.35 2003-05-16 15:54:47 cg Exp $' |
1111 ! ! |
1111 ! ! |