--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Move.st	Tue Sep 03 17:23:22 2002 +0200
@@ -0,0 +1,55 @@
+"{ Package: 'stx:libtool2' }"
+
+FileOperations subclass:#Move
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Interface-Support'
+!
+
+
+!Move class methodsFor:'actions'!
+
+moveFile:aSourceFile to:aDestFile
+    "move from to
+    "
+
+    |instance|
+
+    instance := self new.
+    instance moveFile:aSourceFile to:aDestFile.
+    ^ instance
+! !
+
+!Move methodsFor:'actions'!
+
+moveFile:aSourceFile to:aDestFile
+    "defete current selected files/directories
+    "
+
+    |newFile|
+
+    aDestFile exists not ifTrue:[
+        DialogBox warn:'cant move to:', aDestFile asString. 
+        result := false.
+        ^ self
+    ].
+    newFile := (aDestFile pathName asFilename) construct:(aSourceFile baseName).
+    (self fileExistDialogFor:newFile) ifFalse:[
+        result := false.
+        ^ self.
+    ].
+    Error handle:[:ex|
+        DialogBox warn:ex errorString.
+        result := false.
+    ] do:[
+        aSourceFile renameTo:(aDestFile construct:(aSourceFile baseName)).
+        result := true.
+    ].
+! !
+
+!Move class methodsFor:'documentation'!
+
+version
+    ^ '$Header$'
+! !