equal
deleted
inserted
replaced
233 default:#removeSource |
233 default:#removeSource |
234 onCancel:nil. |
234 onCancel:nil. |
235 ] ifFalse:[ |
235 ] ifFalse:[ |
236 ^ Dialog confirm:msg withCancel:withCancel. |
236 ^ Dialog confirm:msg withCancel:withCancel. |
237 ]. |
237 ]. |
|
238 ! ! |
|
239 |
|
240 !FileOperation methodsFor:'queries'! |
|
241 |
|
242 isErase |
|
243 ^ false |
238 ! ! |
244 ! ! |
239 |
245 |
240 !FileOperation::Copy class methodsFor:'actions'! |
246 !FileOperation::Copy class methodsFor:'actions'! |
241 |
247 |
242 copyFile:aSourceFile to:aDestFile |
248 copyFile:aSourceFile to:aDestFile |
828 values := #(#no #yes). |
834 values := #(#no #yes). |
829 ] ifFalse:[ |
835 ] ifFalse:[ |
830 labels := #('Cancel' 'No' 'Yes' 'Yes to All' ). |
836 labels := #('Cancel' 'No' 'Yes' 'Yes to All' ). |
831 values := #(#cancel #no #yes #yesToAll). |
837 values := #(#cancel #no #yes #yesToAll). |
832 ]. |
838 ]. |
833 msg := nFilesToDelete = 1 |
839 msg := self isErase ifTrue:'Really erase' ifFalse:'Really delete'. |
834 ifTrue:'Really delete\\%1%2 ?' |
840 msg := msg , |
835 ifFalse:'Really delete\\%1%2 \\(%3 files alltogether)'. |
841 (nFilesToDelete = 1 |
|
842 ifTrue:'\\%1%2 ?' |
|
843 ifFalse:'\\%1%2 \\(%3 files alltogether)'). |
836 Dialog aboutToOpenBoxNotificationSignal handle:[:ex | ex proceed] |
844 Dialog aboutToOpenBoxNotificationSignal handle:[:ex | ex proceed] |
837 do:[ |
845 do:[ |
838 answer := Dialog |
846 answer := Dialog |
839 confirmWithCancel:(resources |
847 confirmWithCancel:(resources |
840 stringWithCRs:msg |
848 stringWithCRs:msg |
920 remaining := remaining - nWritten. |
928 remaining := remaining - nWritten. |
921 ]. |
929 ]. |
922 writeStream close. |
930 writeStream close. |
923 ! ! |
931 ! ! |
924 |
932 |
|
933 !FileOperation::Erase methodsFor:'queries'! |
|
934 |
|
935 isErase |
|
936 ^ true |
|
937 ! ! |
|
938 |
925 !FileOperation::Move class methodsFor:'actions'! |
939 !FileOperation::Move class methodsFor:'actions'! |
926 |
940 |
927 moveFile:aSourceFile to:aDestFile |
941 moveFile:aSourceFile to:aDestFile |
928 |instance| |
942 |instance| |
929 |
943 |
1283 ! ! |
1297 ! ! |
1284 |
1298 |
1285 !FileOperation class methodsFor:'documentation'! |
1299 !FileOperation class methodsFor:'documentation'! |
1286 |
1300 |
1287 version |
1301 version |
1288 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.66 2005-04-14 09:12:32 cg Exp $' |
1302 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.67 2005-04-27 10:06:41 cg Exp $' |
1289 ! ! |
1303 ! ! |