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

!ExpandableRevisionItem class methodsFor:'documentation'!

documentation
"
    documentation to be added.

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

    [see also:]

    [instance variables:]

    [class variables:]
"

! !

!ExpandableRevisionItem methodsFor:'accessing'!

icon

    ^nil
!

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

    ^ 'more revisions ...'





! !

!ExpandableRevisionItem methodsFor:'actions'!

recursiveToggleExpand

    self parent addAllRevisionsBefore:self


!

toggleExpand

    self parent addNewRevisionsBefore:self


! !

!ExpandableRevisionItem methodsFor:'testing'!

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

<return: Boolean>
"
    ^true



! !

!ExpandableRevisionItem class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/libtool/ExpandableRevisionItem.st,v 1.4 2000-02-15 16:49:17 ps Exp $'
! !