--- a/FileOperation.st	Wed Oct 01 20:35:22 2008 +0200
+++ b/FileOperation.st	Sat Oct 04 13:29:51 2008 +0200
@@ -1092,14 +1092,6 @@
     "Modified: / 05-09-2006 / 11:52:35 / cg"
 ! !
 
-!FileOperation::Erase methodsFor:'actions'!
-
-eraseFilesContentsBeforeRemoving
-    "fill file with zeros"
-
-    self halt.
-! !
-
 !FileOperation::Erase methodsFor:'actions-basic'!
 
 eraseFilesContentsBeforeRemoving:file
@@ -1110,18 +1102,21 @@
 
     fileSize := file fileSize.
     writeStream := file asFilename readWriteStream.
+    [
+        remaining := fileSize.
+        bufferSize := 8192.
+        buffer := ByteArray new:bufferSize.
 
-    remaining := fileSize.
-    bufferSize := 8192.
-    buffer := ByteArray new:bufferSize.
-    [remaining > 0] whileTrue:[
-	nWritten := writeStream
-	    nextPutBytes:(bufferSize min:remaining)
-	    from:buffer
-	    startingAt:1.
-	remaining := remaining - nWritten.
+        [remaining > 0] whileTrue:[
+            nWritten := writeStream
+                            nextPutBytes:(bufferSize min:remaining)
+                            from:buffer.  
+            remaining := remaining - nWritten.
+            ProgressNotification progressPercentage:(1 - (remaining / fileSize))*100.
+        ].
+    ] ensure:[
+        writeStream close.
     ].
-    writeStream close.
 
     "Modified: / 07-02-2007 / 18:20:21 / cg"
 ! !
@@ -1512,5 +1507,5 @@
 !FileOperation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.79 2008-10-01 17:44:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.80 2008-10-04 11:29:51 cg Exp $'
 ! !