ApplicationModel subclass:#ClassRevisionTree
	instanceVariableNames:'selectionHolder dataHolder menuBlock selectionBlock listView
		hierarchicalList'
	classVariableNames:''
	poolDictionaries:''
	category:'Interface-Browsers-Support'
!

!ClassRevisionTree class methodsFor:'documentation'!

documentation
"
    documentation to be added.

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

    [see also:]

    [instance variables:]

    [class variables:]
"

! !

!ClassRevisionTree class methodsFor:'interface spec'!

windowSpec
    "This resource specification was automatically generated
     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,
     the UIPainter may not be able to read the specification."

    "
     UIPainter new openOnClass:ClassRevisionTree andSelector:#windowSpec
     ClassRevisionTree new openInterface:#windowSpec
     ClassRevisionTree open
    "

    <resource: #canvas>

    ^ 
     #(#FullSpec
        #name: #windowSpec
        #window: 
       #(#WindowSpec
          #label: 'ClassVersionTree'
          #name: 'ClassVersionTree'
          #min: #(#Point 10 10)
          #max: #(#Point 9999 9999)
          #bounds: #(#Rectangle 16 46 881 575)
        )
        #component: 
       #(#SpecCollection
          #collection: #(
           #(#HierarchicalListViewSpec
              #name: 'HierarchicalItemListView'
              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
              #menu: #selectItemMenu
              #hasHorizontalScrollBar: true
              #hasVerticalScrollBar: true
              #listModel: #listModel
              #multipleSelectOk: true
              #useIndex: false
              #highlightMode: #label
              #doubleClickSelector: #doubleClick:
              #selectConditionSelector: #isItemSelectable:
              #indicatorSelector: #doubleClick:
              #retrieveIconsSelector: #icons
            )
           )
         
        )
      )
! !

!ClassRevisionTree class methodsFor:'protocol'!

classItemRootClass

    ^ClassItemRoot
! !

!ClassRevisionTree class methodsFor:'startup'!

openOnClassHolder:aClassHolder

    |theTree|

    theTree := self new.
    theTree allButOpen.
    theTree classItemRootClass:ClassItemRoot.
    theTree classHolder:aClassHolder.
    theTree openWindow.
     ^theTree

"
|theSelectionHolder theClassHolder theTree|

theSelectionHolder := ValueHolder new.
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 asOrderedCollection).
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]).
"



!

openOnClassRevisionInfoColl:aClassRevisionInfoColl

    |theTree|

    theTree := self new.
    theTree allButOpen.
    theTree classItemRootClass:ClassItemRootForRevision.
    theTree dataHolder value:aClassRevisionInfoColl.
    theTree openWindow.
     ^theTree
"
|theTree infoLog|

infoLog := OrderedCollection new.
CVSSourceCodeManager reportHistoryLogSince:'yesterday'
        filterSTSources:true 
        filterUser:nil 
        filterRepository:nil 
        inTo:[:info| infoLog add:info].

theTree := self new.
theTree open.
theTree classItemRootClass:ClassItemRootForRevision.
theTree setupOnClasses:infoLog
"

"
|infoLog|

infoLog := OrderedCollection new.
CVSSourceCodeManager reportHistoryLogSince:'yesterday'
        filterSTSources:true 
        filterUser:nil 
        filterRepository:nil 
        inTo:[:info| infoLog add:info].
self openOnClassRevisionInfoColl:infoLog.
"
!

openOnClasses:aClassColl

    |theTree|

    theTree := self new.
    theTree classItemRootClass:ClassItemRoot.
    theTree allButOpen.
    theTree setupOnClasses:aClassColl.
    theTree openWindow.
    ^theTree
"
self openOnClasses:(Smalltalk allClasses asOrderedCollection sort:[:x : y|x name < y name]).
"

"
|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.
"
! !

!ClassRevisionTree methodsFor:'accessing'!

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

    ^dataHolder ifNil:[
        dataHolder := ValueHolder new.
        dataHolder addDependent:self
    ]
!

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

    (dataHolder ~~ aValueHolder) ifTrue:[
        dataHolder removeDependent:self.
        dataHolder := aValueHolder.
        dataHolder notNil ifTrue:[
            dataHolder addDependent:self.
        ].
        self setUpList
    ].
!

hierarchicalList
"
returns a hierarchical list which is the model for tree. All necassary things like icons,
root and subnodes must be hold by this list. Therefore the list must have a special protocoll.
See examples.

<return: HierarchicalList>
"

    hierarchicalList isNil
        ifTrue:[self error: 'no necessary list is set'. "hierarchicalList := HierarchicalList new"].
    ^ hierarchicalList
!

hierarchicalList:aHierarchicalList
"
sets the hierarchical list which is the model for tree. All necassary things like icons
root and subnodes must be hold by this list. Therefore the list must have a special protocoll.
See examples.

<return: self>
"

    hierarchicalList := aHierarchicalList.
!

itemForSelectionIndex:anIndex
"

<return: HierarchicalItem | nil >
"
    ^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





!

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

    ^ listView!

listView:something
    "set the value of the instance variable 'listView' (automatically generated)"

    listView := something.! !

!ClassRevisionTree methodsFor:'actions'!

doubleClick:anIndex

    |theItem|

    theItem := self itemForSelectionIndex:anIndex. self halt.
    self listModel root doubleClickOn:theItem.

!

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)

! !

!ClassRevisionTree methodsFor:'aspects'!

icons
"
gets the icons from hierarchical list which should be registered on the view. 

<return: Dictionary of: Symbol->Image | nil>
"
    ^self hierarchicalList icons
!

listModel
"

<return: HierarchicalList>
"
    |holder|

    (holder := builder bindingAt:#listModel) isNil ifTrue:[
        holder := self hierarchicalList.
        builder aspectAt:#listModel put:holder.
        holder application:self.
    ].
    ^ holder.
! !

!ClassRevisionTree methodsFor:'change & update'!

update:something with:aParameter from:changedObject

     changedObject == self dataHolder
        ifTrue:[self setUpList].


! !

!ClassRevisionTree methodsFor:'interface opening'!

postBuildWith: aBuilder

    super postBuildWith: aBuilder.
    self listView:(self builder componentAt:#HierarchicalItemListView).
    selectionHolder notNil
        ifTrue:[listView model:selectionHolder].
    self listView useDefaultIcons:false.
!

release

"/    self stopItemTask.    
    ^super release


! !

!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'!

setUpList

    self halt.
    ^self hierarchicalList newData: self dataHolder value
! !

!ClassRevisionTree methodsFor:'protocol accessing'!

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.
    self listView ifNil:[^self].
    self listView model:selectionHolder
! !

!ClassRevisionTree methodsFor:'protocol setup'!

setupOnData:aDataObject

    self dataHolder value:aDataObject.
"
|theTree infoLog theHierarchicalList|

theTree := ClassRevisionTree new.
theHierarchicalList := HierarchicalClassRevisionList new.
theTree hierarchicalList:theHierarchicalList.
theTree open.
infoLog := OrderedCollection new.
theTree setupOnData:infoLog.
"
"
|theTree infoLog theHierarchicalList|

theTree := ClassRevisionTree new.
theHierarchicalList := HierarchicalClassRevisionList new.
theTree hierarchicalList:theHierarchicalList.
infoLog := OrderedCollection new.
CVSSourceCodeManager reportHistoryLogSince:'yesterday'
        filterSTSources:true 
        filterUser:nil 
        filterRepository:nil 
        inTo:[:info| infoLog add:info].
theTree open.
theTree setupOnData:infoLog.
"
! !

!ClassRevisionTree class methodsFor:'documentation'!

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