instanceVariableNames:'selectionHolder classHolder menuBlock selectionBlock

		classItemClass listView semaphoreCritical revisionInfoList

		revisionTask currentClassItemInTask'

          #bounds: #(#Rectangle 16 46 881 575)

              #menu: #selectItemMenu

              #listModel: #listModel

              #useIndex: false

              #selectConditionSelector: #isItemSelectable:

!ClassRevisionTree class methodsFor:'protocol'!

classItemClass

    ^ClassItem

!

classItemRootClass

    ^ClassItemRoot

openOnClassHolder:aClassHolder

    |theTree|

    theTree classHolder:aClassHolder.

    theTree openWindow.

|theSelectionHolder theClassHolder theTree|

theClassHolder := ValueHolder new.

theSelectionHolder compute:[:coll |

                coll do:[:each | Transcript showCR: each]].

theClassHolder value:(Smalltalk allClasses asOrderedCollection sort:[:x : y|x name < y name]).

theTree := ClassRevisionTree openOnClassHolder:theClassHolder.

theSelectionHolder value:(Array with:(theTree itemList children last)).

theTree selectionHolder:theSelectionHolder.

Delay waitForMilliseconds:1500.

theClassHolder value:(Project current changedClasses).

Delay waitForMilliseconds:1500.

theTree classHolder:nil.

Delay waitForMilliseconds:1500.

theTree classHolder:theClassHolder.

Delay waitForMilliseconds:1500.

theClassHolder value:(Smalltalk allClasses asOrderedCollection sort:[:x : y|x name < y name]).

!

openOnClasses:aClassColl

    |theTree|

    theTree := self new.

    theTree allButOpen.

    theTree classHolder value:aClassColl.

    theTree openWindow.

     ^theTree

"

|theSelectionHolder theTree|

theSelectionHolder := ValueHolder new.

theSelectionHolder compute:[:coll |

                coll do:[:each | Transcript showCR: each]].

theTree := ClassRevisionTree openOnClasses:(Smalltalk allClasses asOrderedCollection sort:[:x : y|x name < y name]).

theSelectionHolder value:(Array with:(theTree itemList children last)).

theTree selectionHolder:theSelectionHolder.

"

classItemClass

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

    ^ classItemClass ifNil:[classItemClass := self class classItemClass]

!

classItemClass:something

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

    classItemClass := something.!

classItemRootClass

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

    ^ self class classItemRootClass

itemForSelectionIndex:anIndex

""

    ^self listModel at:anIndex ifAbsent:nil

itemList

    "automatically generated by UIPainter ..."

    "*** the code below creates a default model when invoked."

    "*** (which may not be the one you wanted)"

    "*** Please change as required and accept it in the browser."

    ^ self listModel root

doubleClick:anIndex

    |theItem|

    (((theItem := self itemForSelectionIndex:anIndex) isExpandableRevisionItem) and:[listView sensor shiftDown])

        ifTrue: [theItem recursiveToggleExpand]

        ifFalse:[theItem toggleExpand]  

isItemSelectable:anIndex

"

checks if an item at anIndex can be selected. If an selection block

is set, evaluate it with the selected item.

(Callback from the tree).

<return: Boolean>

"

   selectionBlock ifNil:[^true].

   ^selectionBlock value:(self itemForSelectionIndex:anIndex)

icons

    |icons|

    icons := Dictionary new.

    icons at:#loadedRevision put:(Image fromFile:'gifImages/artwork/dots/red_ball.gif').

    icons at:#unloadedRevision put:(Image fromFile:'gifImages/artwork/dots/green_ball.gif').

    icons at:#unloadedClassItem put:(Image fromFile:'xpmBitmaps/file_images/small_folder_yellow_grey1.xpm').

    icons at:#loadingClassItem put:(Image fromFile:'xpmBitmaps/file_images/small_folder_yellow_search.xpm').

    icons at:#loadedClassItem put:(Image fromFile:'xpmBitmaps/file_images/small_folder_yellow.xpm').

    ^icons

listModel

    (holder := builder bindingAt:#listModel) isNil ifTrue:[

        holder := HierarchicalList new.

        holder root:(self classItemRootClass new).

        holder showRoot:false.

        builder aspectAt:#listModel put:holder.

        holder application:self.

! !

!ClassRevisionTree methodsFor:'change & update'!

update:something with:aParameter from:changedObject

     changedObject == self classHolder

        ifTrue:[self setUpItemList].

postBuildWith: aBuilder

    super postBuildWith: aBuilder.

    listView := self builder componentAt:#HierarchicalItemListView.

    selectionHolder notNil

        ifTrue:[listView model:selectionHolder]

!

    self itemList expand.

!ClassRevisionTree methodsFor:'menu actions'!

selectItemMenu

"

get the menu for the selected items.If a menuBlock is set then evalute this block

with the current selection.

<return: Menu|nil>

"

    ^ [ menuBlock value ]

! !

!ClassRevisionTree methodsFor:'private'!

        (theClassItem notNil and:[theClassItem needsChildren])ifTrue:[

            currentClassItemInTask:=theClassItem.

            theClassItem computeRevisions.

            currentClassItemInTask:=nil

setUpItemList

    |theClassColl theClassItemColl root|

    root := self classItemRootClass new.

    (theClassColl := self classHolder value) notNil ifTrue:[

        theClassItemColl := theClassColl collect:[:eachClass |

            |theClassItem theClass|

            theClassItem := self classItemClass new.

            theClass := Smalltalk resolveName:eachClass inClass:Smalltalk.

            theClassItem myClass:theClass.

            theClassItem].

       root addAll: theClassItemColl.

    ].

    self listModel root:root.

!

!ClassRevisionTree methodsFor:'protocol accessing'!

classHolder

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

    ^classHolder ifNil:[

        classHolder := ValueHolder new.

        classHolder addDependent:self

    ]

!

classHolder:aValueHolder

    "set the value of the instance variable 'classHolder' (automatically generated)"

    (classHolder ~~ aValueHolder) ifTrue:[

        classHolder removeDependent:self.

        classHolder := aValueHolder.

        classHolder notNil ifTrue:[

            classHolder addDependent:self.

        ].

        self setUpItemList

    ].

!

menuBlock

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

    ^ menuBlock

!

menuBlock:something

    "set the value of the instance variable 'menuBlock' (automatically generated)"

    menuBlock := something.!

selectionBlock

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

    ^ selectionBlock!

selectionBlock:something

    "set the value of the instance variable 'selectionBlock' (automatically generated)"

    selectionBlock := something.!

selectionHolder

    ^selectionHolder

!

selectionHolder:aValueHolder

    "set the value of the instance variable 'revisionItemSelection' (automatically generated)"

    selectionHolder := aValueHolder.

    listView ifNil:[^self].

    listView model:selectionHolder

! !

!ClassRevisionTree methodsFor:'protocol setup'!

setupOnClasses:aClassColl

    self classHolder value:aClassColl.

theTree setupOnClasses:#(VersionDiffBrowser HierarchicalVersionDiffBrowser SourceRevisionItem Project)

    ^ '$Header: /cvs/stx/stx/libtool/ClassRevisionTree.st,v 1.3 2000-01-14 10:51:09 ps Exp $'