# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1223119956 -7200
# Node ID 22f650a23f59562ce4e9615c6aeeb06f03beb6d1
# Parent  9b2b1c79758e0972d57a2d552e804d111b7f8604
show progress during erase

diff -r 9b2b1c79758e -r 22f650a23f59 AbstractFileBrowser.st
--- 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 $'
 ! !