equal
deleted
inserted
replaced
3869 ! |
3869 ! |
3870 |
3870 |
3871 eraseFiles:colOfFiles confirm:confirm |
3871 eraseFiles:colOfFiles confirm:confirm |
3872 "erase (clear and delete) some files/directories" |
3872 "erase (clear and delete) some files/directories" |
3873 |
3873 |
3874 |delete result| |
3874 |deleteOperation result| |
3875 |
3875 |
3876 self withActivityIndicationDo:[ |
3876 self withActivityIndicationDo:[ |
3877 delete := FileOperation eraseFiles:colOfFiles confirm:confirm. |
3877 deleteOperation := FileOperation eraseFiles:colOfFiles confirm:confirm. |
3878 result := delete result. |
3878 (colOfFiles size == 1 and:[ colOfFiles first asFilename fileSize < (10*1024*1024) ]) |
|
3879 ifTrue:[ |
|
3880 result := deleteOperation result. |
|
3881 ] ifFalse:[ |
|
3882 ProgressIndicator |
|
3883 displayProgressNotifications:'Erasing' |
|
3884 abortable:true |
|
3885 at:nil |
|
3886 during:[ |
|
3887 result := deleteOperation result. |
|
3888 ]. |
|
3889 ]. |
|
3890 |
3879 result notNil ifTrue:[ |
3891 result notNil ifTrue:[ |
3880 result ifFalse:[ |
3892 result ifFalse:[ |
3881 self notify:delete errorString. |
3893 self notify:deleteOperation errorString. |
3882 ] ifTrue:[ |
3894 ] ifTrue:[ |
3883 self updateListAfterDelete:colOfFiles. |
3895 self updateListAfterDelete:colOfFiles. |
3884 ] |
3896 ] |
3885 ]. |
3897 ]. |
3886 ]. |
3898 ]. |
7434 ! ! |
7446 ! ! |
7435 |
7447 |
7436 !AbstractFileBrowser class methodsFor:'documentation'! |
7448 !AbstractFileBrowser class methodsFor:'documentation'! |
7437 |
7449 |
7438 version |
7450 version |
7439 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.380 2008-10-01 15:23:36 cg Exp $' |
7451 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.381 2008-10-04 11:32:36 cg Exp $' |
7440 ! ! |
7452 ! ! |