ClassItemRoot subclass:#ClassItemRootForRevision
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Interface-Browsers-Support'
!

!ClassItemRootForRevision class methodsFor:'documentation'!

documentation
"
    This is not yet finished (work in progress) - do not use.

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

    [see also:]

    [instance variables:]

    [class variables:]
"

! !

!ClassItemRootForRevision class methodsFor:'accessing'!

classItemClass

    ^ClassNameItem



! !

!ClassItemRootForRevision methodsFor:'protocol'!

computeChildrensFor:aClassRevisionColl
"

<return: OrderedCollection|nil>
"
    |theClassItemColl|

    aClassRevisionColl ifNil:[^#()].
    theClassItemColl := aClassRevisionColl collect:[:eachClassRevision |
        |theClassItem theClass|
        theClassItem := self classItemClass new.
        theClassItem revisionInfo:eachClassRevision.
        theClassItem].
    ^theClassItemColl

    "Modified: / 18.2.2000 / 15:04:31 / cg"
!

doubleClickOn:anItem



! !

!ClassItemRootForRevision class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/libtool/ClassItemRootForRevision.st,v 1.2 2000-02-18 14:01:23 cg Exp $'
! !