1 "{ Package: 'stx:libtool2' }"

     2 

     3 FileOperations subclass:#Move

     4 	instanceVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'Interface-Support'

     8 !

     9 

    10 

    11 !Move class methodsFor:'actions'!

    12 

    13 moveFile:aSourceFile to:aDestFile

    14     "move from to

    15     "

    16 

    17     |instance|

    18 

    19     instance := self new.

    20     instance moveFile:aSourceFile to:aDestFile.

    21     ^ instance

    22 ! !

    23 

    24 !Move methodsFor:'actions'!

    25 

    26 moveFile:aSourceFile to:aDestFile

    27     "defete current selected files/directories

    28     "

    29 

    30     |newFile|

    31 

    32     aDestFile exists not ifTrue:[

    33         DialogBox warn:'cant move to:', aDestFile asString. 

    34         result := false.

    35         ^ self

    36     ].

    37     newFile := (aDestFile pathName asFilename) construct:(aSourceFile baseName).

    38     (self fileExistDialogFor:newFile) ifFalse:[

    39         result := false.

    40         ^ self.

    41     ].

    42     Error handle:[:ex|

    43         DialogBox warn:ex errorString.

    44         result := false.

    45     ] do:[

    46         aSourceFile renameTo:(aDestFile construct:(aSourceFile baseName)).

    47         result := true.

    48     ].

    49 ! !

    50 

    51 !Move class methodsFor:'documentation'!

    52 

    53 version

    54     ^ '$Header$'

    55 ! !