author | fm |
Mon, 19 Oct 2009 14:24:38 +0200 | |
changeset 474 | 494bbcc39951 |
parent 311 | 4d50cffd8865 |
child 700 | f4f3a2ab628a |
permissions | -rw-r--r-- |
474 | 1 |
"{ Package: 'stx:libsvn' }" |
34 | 2 |
|
3 |
"{ NameSpace: SVN }" |
|
4 |
||
5 |
Enum subclass:#Status |
|
6 |
instanceVariableNames:'' |
|
7 |
classVariableNames:'' |
|
8 |
poolDictionaries:'' |
|
9 |
category:'SVN-Status' |
|
10 |
! |
|
11 |
||
12 |
||
13 |
!Status class methodsFor:'instance creation'! |
|
14 |
||
15 |
new |
|
16 |
||
17 |
self error:'Status is a signleton class, use #instance instead' |
|
18 |
||
19 |
"Created: / 18-08-2009 / 12:51:14 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
20 |
! |
|
21 |
||
22 |
withId: aCharacter |
|
23 |
||
24 |
self allSubclasses |
|
25 |
do:[:cls|cls instance name = aCharacter ifTrue:[^cls instance]]. |
|
26 |
^self error: 'No status with id ', aCharacter. |
|
27 |
||
28 |
"Created: / 18-08-2009 / 12:53:04 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
29 |
! ! |
|
30 |
||
31 |
!Status methodsFor:'accessing'! |
|
32 |
||
33 |
icon |
|
34 |
||
35 |
^self subclassResponsibility |
|
36 |
||
37 |
"Created: / 11-04-2008 / 11:05:53 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
38 |
! |
|
39 |
||
40 |
id |
|
41 |
"Returns a one-char ID of status" |
|
42 |
||
43 |
^ self subclassResponsibility |
|
44 |
||
45 |
"Modified: / 18-08-2009 / 12:43:57 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
46 |
! ! |
|
47 |
||
48 |
!Status methodsFor:'printing'! |
|
49 |
||
50 |
printOn: stream |
|
51 |
self class name printOn: stream |
|
52 |
||
53 |
"Created: / 16-03-2008 / 08:26:35 / janfrog" |
|
54 |
! ! |
|
55 |
||
56 |
!Status methodsFor:'testing'! |
|
57 |
||
58 |
isAdded |
|
59 |
||
60 |
^false |
|
61 |
||
62 |
"Created: / 19-03-2008 / 18:40:01 / janfrog" |
|
63 |
! |
|
64 |
||
65 |
isNormal |
|
66 |
||
67 |
^false |
|
68 |
||
69 |
"Created: / 11-04-2008 / 11:27:21 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
70 |
! |
|
71 |
||
72 |
isUnversioned |
|
73 |
||
74 |
^false |
|
75 |
||
76 |
"Created: / 15-03-2008 / 22:29:10 / janfrog" |
|
77 |
! ! |
|
78 |
||
79 |
!Status class methodsFor:'documentation'! |
|
80 |
||
81 |
version |
|
82 |
^ '$Header$' |
|
133 | 83 |
! |
84 |
||
85 |
version_CVS |
|
86 |
^ '$Header$' |
|
87 |
! |
|
88 |
||
89 |
version_SVN |
|
311
4d50cffd8865
update #version_SVN with § as keyword expansion character
fm
parents:
133
diff
changeset
|
90 |
^'§Id: SVN__Status.st 110 2009-08-19 13:21:10Z vranyj1 §' |
34 | 91 |
! ! |