AbstractVersionDiffBrowserItem subclass:#AbstractRevisionItem
instanceVariableNames:'revision'
classVariableNames:''
poolDictionaries:''
category:'Interface-Browsers'
!
!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$'
! !