"{ Package: 'stx:libscm/git' }"

GitRepositoryObject subclass:#GitRemote

	instanceVariableNames:'name'

	classVariableNames:''

	poolDictionaries:'GitObjectType'

	category:'SCM-Git-Core'

!

!GitRemote class methodsFor:'documentation'!

documentation

"

    A GitRemote represents a remote repository.

    [author:]

        Jan Vrany <jan.vrany@fit.cvut.cz>

    [instance variables:]

    [class variables:]

    [see also:]

"

! !

!GitRemote methodsFor:'accessing'!

name

    ^ name

! !

!GitRemote methodsFor:'initialization'!

setName: aString

    name := aString

    "Created: / 30-09-2012 / 20:37:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GitRemote methodsFor:'initialization & release'!

free

    handle notNil ifTrue:[

        GitPrimitives prim_git_remote_free: handle. 

        handle := nil.

    ].

    "Created: / 30-09-2012 / 23:29:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GitRemote methodsFor:'printing & storing'!

printOn:aStream

    "append a printed representation if the receiver to the argument, aStream"

    super printOn:aStream.

    aStream nextPut:$(.

    name printOn:aStream.

    aStream nextPut:$).

    "Modified: / 30-09-2012 / 20:38:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GitRemote methodsFor:'private-accessing'!

getHandleClass

    "Returns a class of my handle."

    ^GitRemoteHandle

    "Created: / 30-09-2012 / 20:33:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GitRemote class methodsFor:'documentation'!

version_GIT

    "Never, ever change this method. Ask JV or CG why"

    ^thisContext method mclass theNonMetaclass instVarNamed: #revision

!

version_SVN

    ^ '$Id$'

! !