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

     2 

     3 "{ NameSpace: SVN }"

     4 

     5 Status subclass:#StatusAdded

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'SVN-Status'

    10 !

    11 

    12 !StatusAdded class methodsFor:'documentation'!

    13 

    14 version_SVN

    15     ^'$Id$'

    16 ! !

    17 

    18 !StatusAdded methodsFor:'accessing'!

    19 

    20 icon

    21     "Superclass SVN::WCEntryStatus says that I am responsible to implement this method"

    22 

    23     ^IconLibrary added_ov

    24 

    25     "Created: / 11-04-2008 / 11:06:02 / Jan Vrany <vranyj1@fel.cvut.cz>"

    26 !

    27 

    28 id

    29     ^ $A

    30 

    31     "Created: / 17-08-2009 / 11:17:40 / Jan Vrany <vranyj1@fel.cvut.cz>"

    32 !

    33 

    34 name

    35     "Superclass says that I am responsible to implement this method"

    36     

    37     ^ 'added'

    38 

    39     "Created: / 19-03-2008 / 18:39:09 / janfrog"

    40 ! !

    41 

    42 !StatusAdded methodsFor:'testing'!

    43 

    44 isAdded

    45 

    46     ^true

    47 

    48     "Created: / 19-03-2008 / 18:40:10 / janfrog"

    49 ! !

    50 

    51 !StatusAdded class methodsFor:'documentation'!

    52 

    53 version

    54     ^ '$Header$'

    55 ! !