"{ 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$'

! !