--- a/FileOperations.st	Wed Sep 04 12:29:17 2002 +0200
+++ b/FileOperations.st	Wed Sep 04 14:23:01 2002 +0200
@@ -8,6 +8,13 @@
 !
 
 
+!FileOperations class methodsFor:'defaults'!
+
+copyMoveIfExistSuffixString
+
+    ^ '.copy'
+! !
+
 !FileOperations methodsFor:'accessing'!
 
 errorString
@@ -37,6 +44,11 @@
 !FileOperations methodsFor:'dialogs'!
 
 fileExistDialogFor:aFile
+
+    ^ self fileExistDialogFor:aFile withCancel:false.
+!
+
+fileExistDialogFor:aFile withCancel:aBoolean
     | stream string|
 
     aFile exists ifTrue:[
@@ -56,7 +68,11 @@
         stream nextPutAll:aFile fileSize asString.
         string := stream contents. 
         stream close.
-        ^ (Dialog confirm:(string)).
+        aBoolean ifTrue:[
+            ^ (Dialog confirmWithCancel:(string)).
+        ] ifFalse:[
+            ^ (Dialog confirm:(string)).
+        ].
     ].
     ^ true
 ! !