"
 COPYRIGHT (c) 2012-2013 by Jan Vrany
              All Rights Reserved

 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
"
"{ Package: 'stx:libscm/mercurial' }"

Annotation subclass:#HGRevisionAnnotation
	instanceVariableNames:'revision'
	classVariableNames:''
	poolDictionaries:''
	category:'SCM-Mercurial-StX'
!

!HGRevisionAnnotation class methodsFor:'documentation'!

copyright
"
 COPYRIGHT (c) 2012-2013 by Jan Vrany
              All Rights Reserved

 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
"
! !

!HGRevisionAnnotation class methodsFor:'instance creation'!

revision: aString
    ^self new revision: aString

    "Created: / 20-11-2012 / 23:36:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!HGRevisionAnnotation methodsFor:'accessing'!

key
    "superclass Annotation says that I am responsible to implement this method"

    ^ #HGRevision:

    "Modified: / 20-11-2012 / 23:27:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

revision
    ^ revision
!

revision:aStringOrHGRevision
    revision := aStringOrHGRevision asHGRevision

    "Modified: / 20-11-2012 / 23:32:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!HGRevisionAnnotation methodsFor:'accessing-pragma'!

arguments
    "Answer the arguments of the receiving pragma. For a pragma defined as <key1: val1 key2: val2> this will answer #(val1 val2)."

    ^ Array with: revision asString

    "Modified: / 20-11-2012 / 23:28:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!HGRevisionAnnotation methodsFor:'initialization'!

setArguments:anArray
    "Ignored"

    "Modified: / 20-11-2012 / 23:28:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

setKeyword:aSymbol
    "Ignored"

    "Modified: / 20-11-2012 / 23:28:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

setMethod:aCompiledMethod
    "Ignored"

    "Modified: / 20-11-2012 / 23:28:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!HGRevisionAnnotation methodsFor:'printing & storing'!

storeOn:aStream
    "superclass Annotation says that I am responsible to implement this method"

    aStream nextPutAll: '(HGRevisionAnnotation revision: '.
    revision asString storeOn: aStream.
    aStream nextPut:$).

    "Modified: / 20-11-2012 / 23:31:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!HGRevisionAnnotation methodsFor:'processing'!

annotatesClass:aClass
    "Ignored"

    "Modified: / 20-11-2012 / 23:31:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

annotatesMethod:aMethod
    "Ignored"

    "Modified: / 20-11-2012 / 23:31:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!HGRevisionAnnotation class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'
! !