--- a/AbstractFileBrowser.st Sat Oct 04 13:29:51 2008 +0200
+++ b/AbstractFileBrowser.st Sat Oct 04 13:32:36 2008 +0200
@@ -3871,14 +3871,26 @@
eraseFiles:colOfFiles confirm:confirm
"erase (clear and delete) some files/directories"
- |delete result|
+ |deleteOperation result|
self withActivityIndicationDo:[
- delete := FileOperation eraseFiles:colOfFiles confirm:confirm.
- result := delete result.
+ deleteOperation := FileOperation eraseFiles:colOfFiles confirm:confirm.
+ (colOfFiles size == 1 and:[ colOfFiles first asFilename fileSize < (10*1024*1024) ])
+ ifTrue:[
+ result := deleteOperation result.
+ ] ifFalse:[
+ ProgressIndicator
+ displayProgressNotifications:'Erasing'
+ abortable:true
+ at:nil
+ during:[
+ result := deleteOperation result.
+ ].
+ ].
+
result notNil ifTrue:[
result ifFalse:[
- self notify:delete errorString.
+ self notify:deleteOperation errorString.
] ifTrue:[
self updateListAfterDelete:colOfFiles.
]
@@ -7436,5 +7448,5 @@
!AbstractFileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.380 2008-10-01 15:23:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.381 2008-10-04 11:32:36 cg Exp $'
! !