1 AbstractVersionDiffBrowserItem subclass:#AbstractRevisionItem

     2 	instanceVariableNames:'revision'

     3 	classVariableNames:''

     4 	poolDictionaries:''

     5 	category:'Interface-Browsers'

     6 !

     7 

     8 

     9 !AbstractRevisionItem class methodsFor:'instance creation'!

    10 

    11 newForRevision:aRevision

    12 

    13     |theRevision|

    14 

    15     theRevision := self new.

    16     theRevision revision:aRevision.

    17     ^theRevision

    18 ! !

    19 

    20 !AbstractRevisionItem methodsFor:'accessing'!

    21 

    22 myClass

    23 

    24     ^self parent myClass

    25 !

    26 

    27 revision

    28     "return the value of the instance variable 'revision' (automatically generated)"

    29 

    30     ^ revision!

    31 

    32 revision:something

    33     "set the value of the instance variable 'revision' (automatically generated)"

    34 

    35     revision := something.!

    36 

    37 revisionString

    38     "return the value of the instance variable 'revision' (automatically generated)"

    39 

    40     self subclassResponsibility

    41 

    42 ! !

    43 

    44 !AbstractRevisionItem methodsFor:'protocol'!

    45 

    46 icon

    47 "

    48 define concrete icons for revision items in subclasses

    49 

    50 <return: self>

    51 "

    52     self subclassResponsibility

    53 !

    54 

    55 label

    56 "

    57 label is the revision string

    58 

    59 <return: String>

    60 "

    61 

    62     ^self revisionString

    63 

    64 

    65 ! !

    66 

    67 !AbstractRevisionItem methodsFor:'testing'!

    68 

    69 hasSourceStream

    70 "

    71 has the receiver a source stream? Used for testing tree items.

    72 

    73 <return: Boolean>

    74 "

    75     ^false

    76 

    77 !

    78 

    79 isLoadedRevision

    80 "

    81 do the receiver represents the actual revision of a class.

    82 

    83 <return: Boolean>

    84 "

    85     ^false

    86 

    87 

    88 

    89 !

    90 

    91 isRevisionItem

    92 "

    93 the receiver is a revision item. Used for testing tree items.

    94 

    95 <return: Boolean>

    96 "

    97     ^true

    98 

    99 ! !

   100 

   101 !AbstractRevisionItem class methodsFor:'documentation'!

   102 

   103 version

   104     ^ '$Header$'

   105 ! !