AbstractVersionDiffBrowserItem subclass:#AbstractRevisionItem
	instanceVariableNames:'revision'
	classVariableNames:''
	poolDictionaries:''
	category:'Interface-Browsers-Support'
!

!AbstractRevisionItem class methodsFor:'documentation'!

documentation
"
    documentation to be added.

    [author:]
        Pierre Schwarz (ps@exept.de)

    [see also:]

    [instance variables:]

    [class variables:]
"
! !

!AbstractRevisionItem class methodsFor:'instance creation'!

newForRevision:aRevision

    |theRevision|

    theRevision := self new.
    theRevision revision:aRevision.
    ^theRevision
! !

!AbstractRevisionItem methodsFor:'accessing'!

myClass

    ^self parent myClass
!

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

    ^ revision!

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

    revision := something.!

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

    self subclassResponsibility

! !

!AbstractRevisionItem methodsFor:'protocol'!

icon
"
define concrete icons for revision items in subclasses

<return: self>
"
    self subclassResponsibility
!

label
"
label is the revision string

<return: String>
"

    ^self revisionString


! !

!AbstractRevisionItem methodsFor:'testing'!

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

<return: Boolean>
"
    ^false

!

isLoadedRevision
"
do the receiver represents the actual revision of a class.

<return: Boolean>
"
    ^false



!

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

<return: Boolean>
"
    ^true

! !

!AbstractRevisionItem class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/libtool/AbstractRevisionItem.st,v 1.2 2000-01-14 15:57:27 cg Exp $'
! !