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

"{ NameSpace: SVN }"

Enum subclass:#Status

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'SVN-Status'

!

!Status class methodsFor:'documentation'!

version_SVN

    ^'$Id$'

! !

!Status class methodsFor:'instance creation'!

new

    self error:'Status is a signleton class, use #instance instead'

    "Created: / 18-08-2009 / 12:51:14 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

withId: aCharacter

    self allSubclasses 

        do:[:cls|cls instance name = aCharacter ifTrue:[^cls instance]].

    ^self error: 'No status with id ', aCharacter.

    "Created: / 18-08-2009 / 12:53:04 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!Status methodsFor:'accessing'!

icon

    ^self subclassResponsibility

    "Created: / 11-04-2008 / 11:05:53 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

id

    "Returns a one-char ID of status"

    ^ self subclassResponsibility

    "Modified: / 18-08-2009 / 12:43:57 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!Status methodsFor:'printing'!

printOn: stream 

    self class name printOn: stream

    "Created: / 16-03-2008 / 08:26:35 / janfrog"

! !

!Status methodsFor:'testing'!

isAdded

    ^false

    "Created: / 19-03-2008 / 18:40:01 / janfrog"

!

isNormal

    ^false

    "Created: / 11-04-2008 / 11:27:21 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

isUnversioned

    ^false

    "Created: / 15-03-2008 / 22:29:10 / janfrog"

! !

!Status class methodsFor:'documentation'!

version

    ^ '$Header$'

! !