--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SVN__Status.st	Wed Sep 23 18:46:01 2009 +0200
@@ -0,0 +1,88 @@
+"{ 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$'
+! !