"{ Package: 'stx:goodies/monticello' }"

"{ NameSpace: Smalltalk }"

Annotation subclass:#MCTimestampAnnotation

	instanceVariableNames:'timestamp'

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Monticello-St/X support'

!

!MCTimestampAnnotation methodsFor:'accessing'!

key

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

    ^ #mctimestamp:

    "Modified: / 14-09-2010 / 15:34:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

timestamp

    ^ timestamp

!

timestamp:aString

    timestamp := aString.

! !

!MCTimestampAnnotation methodsFor:'printing & storing'!

storeOn:aStream

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

    aStream nextPutAll: '(Annotation mctimestamp: '.

    timestamp storeOn: aStream.

    aStream nextPut: $).

    "Modified: / 14-09-2010 / 15:36:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!MCTimestampAnnotation class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

!

version_SVN

    ^ '$Id$'

! !