--- a/FileOperation.st	Tue Apr 26 14:16:00 2005 +0200
+++ b/FileOperation.st	Wed Apr 27 12:06:41 2005 +0200
@@ -237,6 +237,12 @@
     ].
 ! !
 
+!FileOperation methodsFor:'queries'!
+
+isErase
+    ^ false
+! !
+
 !FileOperation::Copy class methodsFor:'actions'!
 
 copyFile:aSourceFile to:aDestFile
@@ -830,9 +836,11 @@
                     labels := #('Cancel' 'No' 'Yes' 'Yes to All' ).
                     values := #(#cancel #no #yes #yesToAll).
                 ].
-                msg := nFilesToDelete = 1 
-                            ifTrue:'Really delete\\%1%2 ?' 
-                            ifFalse:'Really delete\\%1%2 \\(%3 files alltogether)'.
+                msg := self isErase ifTrue:'Really erase' ifFalse:'Really delete'.
+                msg := msg ,
+                       (nFilesToDelete = 1 
+                            ifTrue:'\\%1%2 ?' 
+                            ifFalse:'\\%1%2 \\(%3 files alltogether)').
                 Dialog aboutToOpenBoxNotificationSignal handle:[:ex | ex proceed]
                 do:[
                     answer := Dialog 
@@ -922,6 +930,12 @@
     writeStream close.
 ! !
 
+!FileOperation::Erase methodsFor:'queries'!
+
+isErase
+    ^ true
+! !
+
 !FileOperation::Move class methodsFor:'actions'!
 
 moveFile:aSourceFile to:aDestFile
@@ -1285,5 +1299,5 @@
 !FileOperation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.66 2005-04-14 09:12:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.67 2005-04-27 10:06:41 cg Exp $'
 ! !