--- /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$'
+! !