--- a/AbstractRevisionItem.st Fri Jan 14 11:49:28 2000 +0100
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,105 +0,0 @@
-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$'
-! !