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

"{ NameSpace: SVN }"

Revision subclass:#RevisionDate
	instanceVariableNames:'date'
	classVariableNames:''
	poolDictionaries:''
	category:'SVN-Core'
!

!RevisionDate class methodsFor:'documentation'!

version_SVN
    ^'$Id$'
! !

!RevisionDate methodsFor:'accessing'!

date
    ^ date

    "Created: / 15-03-2008 / 23:21:24 / janfrog"
!

date:something
    date := something.

    "Created: / 15-03-2008 / 23:21:24 / janfrog"
! !

!RevisionDate methodsFor:'printing & storing'!

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

    aStream 
        nextPut:'{';
        nextPutAll:date printString;
        nextPut:'}'

    "Created: / 15-03-2008 / 23:23:23 / janfrog"
! !

!RevisionDate class methodsFor:'documentation'!

version
    ^ '$Header$'
! !