ApplicationModel subclass:#ClassRevisionTree

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

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 openWindow.

"

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

!

!

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

!

!ClassRevisionTree methodsFor:'actions'!

doubleClick:anIndex

    |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

!

listModel

    |holder|

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

        builder aspectAt:#listModel put:holder.

        holder application:self.

    ].

    ^ holder.

! !

!ClassRevisionTree methodsFor:'change & update'!

update:something with:aParameter from:changedObject

! !

!ClassRevisionTree methodsFor:'interface opening'!

postBuildWith: aBuilder

    super postBuildWith: aBuilder.

    selectionHolder notNil

        ifTrue:[listView model:selectionHolder].

!

release

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

! !

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

! !

!ClassRevisionTree methodsFor:'protocol setup'!

"

theTree := ClassRevisionTree new.

theTree open.

"

! !

!ClassRevisionTree class methodsFor:'documentation'!

version

! !