--- a/Delete.st	Wed Sep 04 17:35:44 2002 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,104 +0,0 @@
-"{ Package: 'stx:libtool2' }"
-
-FileOperations subclass:#Delete
-	instanceVariableNames:'fileName errorString'
-	classVariableNames:''
-	poolDictionaries:''
-	category:'Interface-Support'
-!
-
-
-!Delete class methodsFor:'actions'!
-
-deleteFile:aFileOrDirectory
-    "delete current selected files/directories
-    "
-
-    |instance|
-
-    instance := self new.
-    instance deleteFile:aFileOrDirectory.
-    ^ instance
-!
-
-deleteFiles:aColOfFiles
-    "delete current selected files/directories
-    "
-
-    |instance|
-
-    instance := self new.
-    instance deleteFiles:aColOfFiles.
-    ^ instance
-! !
-
-!Delete methodsFor:'actions'!
-
-deleteFile:aFileOrDirectory
-
-    | file isDirectory |
-
-    aFileOrDirectory notNil ifTrue:[
-        file := aFileOrDirectory asFilename.
-
-        file exists ifTrue:[
-            isDirectory := file isDirectory.
-
-            Error handle:[:ex|
-                "was not able to remove it"
-                Smalltalk beep.
-                self errorString:((ex description, '\', ex signal notifierString) withCRs).
-                result := false.
-            ] do:[
-                isDirectory ifTrue:[file recursiveRemove] ifFalse:[file remove].
-
-             "/ flush parent directory or directory
-                DirectoryContents flushCachedDirectory:(file directory).
-            ]
-        ]
-    ].
-    result := true.
-!
-
-deleteFiles:colOfFiles
-    "delete current selected files/directories
-    "
-    | retVal ask size|
-
-    ask := true.
-    size := colOfFiles size.
-    colOfFiles do:[: filename |
-        ask ifTrue:[
-            size = 1 ifTrue:[
-                retVal := Dialog 
-                    confirmWithCancel:('really delete ', filename asString , ' ?')
-                               labels:#('Yes' 'No' 'Cancel')
-                               values:#(#yes #no #cancel)
-                              default:1.
-            ] ifFalse:[
-                retVal := Dialog 
-                    confirmWithCancel:('really delete ', filename asString , ' ?')
-                               labels:#('Yes' 'No' 'Yes to All' 'Cancel')
-                               values:#(#yes #no #yesToAll #cancel)
-                              default:1.
-            ]
-        ].
-        retVal == #cancel ifTrue:[
-            ^ self.
-        ].
-        retVal == #yes ifTrue:[
-            self deleteFile:filename.
-        ].
-        retVal == #yesToAll ifTrue:[
-            self deleteFile:filename.
-            ask := false.
-            retVal := #yes.
-        ].
-    ].
-! !
-
-!Delete class methodsFor:'documentation'!
-
-version
-    ^ '$Header$'
-! !