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

!ClassItemRoot 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:]
"

! !

!ClassItemRoot class methodsFor:'accessing'!

classItemClass

    ^ClassItem

! !

!ClassItemRoot methodsFor:'accessing'!

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

    ^ self class classItemClass


! !

!ClassItemRoot methodsFor:'initialization'!

initialize
    super initialize.
    isExpanded := true.
! !

!ClassItemRoot methodsFor:'protocol'!

children
"
default childrens of the receiver are none. 

<return: Array>
"

    children ifNil:[
        children := self computeChildrensFor:parent dataColl.
        children do:[:eachChild | eachChild parent:self]
    ].
    ^ children

    "Modified: / 18.2.2000 / 15:02:12 / cg"
!

computeChildrensFor:aClassColl
"

<return: OrderedCollection|nil>
"

    |theClassItemColl|

    aClassColl ifNil:[^#()].
    theClassItemColl := aClassColl collect:[:eachClass |
        |theClassItem theClass|
        theClassItem := self classItemClass new.
        theClass := Smalltalk resolveName:eachClass inClass:Smalltalk.
        theClassItem myClass:theClass.
        theClassItem].
    ^theClassItemColl

!

doubleClickOn:anItem

    |listView|

    (anItem isExpandableRevisionItem and:[parent application listView sensor shiftDown])
        ifTrue: [anItem recursiveToggleExpand]
        ifFalse:[anItem toggleExpand]  
! !

!ClassItemRoot methodsFor:'queries'!

canCollapse
    ^ false

! !

!ClassItemRoot class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/libtool/ClassItemRoot.st,v 1.5 2000-02-18 14:01:35 cg Exp $'
! !