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