"{ Package: 'cvut:stx/goodies/libsvn' }"

"{ NameSpace: SVN }"

WCCommand subclass:#MoveCommand
	instanceVariableNames:'src dst'
	classVariableNames:''
	poolDictionaries:''
	category:'SVN-Private-Commands'
!

!MoveCommand class methodsFor:'documentation'!

version_SVN
    ^'$Id$'
! !

!MoveCommand methodsFor:'accessing'!

dst
    ^ dst

    "Created: / 16-03-2008 / 10:22:26 / janfrog"
!

dst:something
    dst := something.

    "Created: / 16-03-2008 / 10:22:26 / janfrog"
!

src
    ^ src

    "Created: / 16-03-2008 / 10:22:26 / janfrog"
!

src:something
    src := something.

    "Created: / 16-03-2008 / 10:22:26 / janfrog"
! !

!MoveCommand methodsFor:'executing - private'!

svnCmd
    "raise an error: must be redefined in concrete subclass(es)"

    ^'move'

    "Created: / 16-03-2008 / 10:22:26 / janfrog"
!

svnCmdArgumentsOn:arg 
    "raise an error: must be redefined in concrete subclass(es)"

    super svnCmdArgumentsOn:arg.
    arg 
        nextPut: src;
        nextPut: dst

    "Created: / 16-03-2008 / 10:22:26 / janfrog"
! !

!MoveCommand class methodsFor:'documentation'!

version
    ^ '$Header$'
! !