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

"{ NameSpace: SVN }"

Object subclass:#Property
	instanceVariableNames:'name value modified'
	classVariableNames:''
	poolDictionaries:''
	category:'SVN-Core'
!

!Property class methodsFor:'documentation'!

version_SVN
    ^'$Id$'
! !

!Property class methodsFor:'instance creation'!

name: name value: value

    ^self new setName: name value: value

    "Created: / 10-10-2008 / 09:55:41 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!Property methodsFor:'accessing'!

modified
    ^ modified
!

modified:aBoolean
    modified := aBoolean.
!

name
    ^ name

    "Created: / 10-10-2008 / 09:54:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

name:aString
    name := aString.

    "Created: / 10-10-2008 / 09:54:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

name:nameArg value:valueArg 
    name := nameArg.
    value := valueArg.

    "Created: / 10-10-2008 / 09:54:49 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

value
    ^ value

    "Created: / 10-10-2008 / 09:54:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

value:aString
    value := aString.
    modified := true

    "Created: / 10-10-2008 / 09:54:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
    "Modified: / 23-03-2009 / 11:57:04 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!Property methodsFor:'initialization'!

setName:nameArg value:valueArg 
    name := nameArg.
    value := valueArg.

    "Created: / 10-10-2008 / 09:55:03 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!Property methodsFor:'testing'!

isModified
    ^ modified == true

    "Created: / 10-10-2008 / 09:54:34 / Jan Vrany <vranyj1@fel.cvut.cz>"
    "Modified: / 23-03-2009 / 11:42:38 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!Property class methodsFor:'documentation'!

version
    ^ '$Header$'
! !