ApplicationModel subclass:#ClassRevisionTree

	instanceVariableNames:'selectionHolder semaphoreCritical revisionInfoList revisionTask

		currentClassItemInTask'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Browsers'

!

!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 51 881 580)

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#HierarchicalListViewSpec

              #name: 'HierarchicalItemListView'

              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)

              #model: #hierarchicalItemSelectionAspect

              #menu: #selectHierarchicalItemMenu

              #hasHorizontalScrollBar: true

              #hasVerticalScrollBar: true

              #listModel: #hierarchicalItemListModel

              #multipleSelectOk: true

              #highlightMode: #label

              #doubleClickSelector: #doubleClick:

              #selectConditionSelector: #isHierarchicalItemSelectable:

              #indicatorSelector: #doubleClick:

              #retrieveIconsSelector: #icons

            )

           )

        )

      )

! !

!ClassRevisionTree class methodsFor:'menu specs'!

resourceItemMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:ClassRevisionTree andSelector:#resourceItemMenu

     (Menu new fromLiteralArrayEncoding:(ClassRevisionTree resourceItemMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

	#(

	 #(#MenuItem

	    #label: 'Compare Changes'

	    #translateLabel: true

	    #value: #menuActionCompareChanges

	  )

	 )

	nil

	nil

      )

! !

!ClassRevisionTree class methodsFor:'startup'!

openOnClasses:aClassColl withSelectionHolder:aValueHolder

    |theTree theClassItemColl|

    theTree := self new.

    theTree allButOpen.

    theClassItemColl := aClassColl collect:[:eachClass |

        |theClassItem theClass|

        theClassItem := ClassItem new.

        theClass := Smalltalk resolveName:eachClass inClass:self.

        theClassItem myClass:theClass.

        theClassItem].

     theTree hierarchicalItemList addAll: theClassItemColl.

     theTree selectionHolder:aValueHolder.   

     theTree openWindow.

     ^theTree

"

|theSelectionHolder|

theSelectionHolder := ValueHolder new.

theSelectionHolder compute:[:el |

                Transcript showCR: el first revisionString.

                Transcript showCR: el second revisionString].

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

                  withSelectionHolder:theSelectionHolder.

"

! !

!ClassRevisionTree methodsFor:'accessing'!

hierarchicalListItemForSelectionIndex: anIndex

    ^self hierarchicalItemListModel at:anIndex ifAbsent:nil

!

hierarchicalListSelectionIndexColl

    ^self hierarchicalItemSelectionAspect value

!

hierarchicalListSelectionIndexColl:anArray

    ^self hierarchicalItemSelectionAspect value:anArray

!

revisionInfoList

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

    ^ revisionInfoList ifNil:[revisionInfoList := IdentitySet new]

!

selectionHolder

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

    ^ selectionHolder!

selectionHolder:something

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

    selectionHolder := something.

!

semaphoreCritical

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

    ^ semaphoreCritical ifNil:[semaphoreCritical := RecursionLock new]

! !

!ClassRevisionTree methodsFor:'actions'!

doubleClick: anIndex

    "automatically generated by UIPainter ..."

    "*** the code below performs no action"

    "*** (except for some feedback on the Transcript)"

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

    "action to be added ..."

    (self hierarchicalItemListModel at: anIndex) toggleExpand  

!

getRevisionInfoForClassItem: aClassItem

    self semaphoreCritical critical:[

        |theList|

        currentClassItemInTask == aClassItem ifTrue:[^self].

        (theList := self revisionInfoList) removeIdentical:aClassItem ifAbsent:[nil].

        theList add:aClassItem.

        Transcript showCR:theList.

        self startRevisionTask]

!

isHierarchicalItemSelectable: anIndex

    |theSelectionIndexColl theSelectionIndexSize theSelectedItem|

    "nur eine Revision kann selektiert werden"

    (theSelectedItem := self hierarchicalListItemForSelectionIndex: anIndex) isRevisionItem

	ifFalse:[^false].

    "ist keine selektiert ist alles ok -> mit true zurueck"

    (theSelectionIndexColl := self hierarchicalListSelectionIndexColl) size == 0

	 ifTrue:[^true].

    "wurde deselektiert"

    (self window sensor ctrlDown)

	ifTrue: [

		"ist eine Rev selektiert und die Klassen sind nicht gleich, dann falsch"

		(self hierarchicalListItemForSelectionIndex:theSelectionIndexColl first) parent myClass == theSelectedItem parent myClass

		     ifFalse:[^false].

		theSelectionIndexColl size ~~ 2

		     ifTrue:[^true].

		(theSelectionIndexColl includes:anIndex)

			ifTrue: [^true]

			ifFalse:[self hierarchicalListSelectionIndexColl:(Array with:theSelectionIndexColl first).

				^true]]

	ifFalse:[

		(theSelectionIndexColl size == 2)

		    ifTrue:[self hierarchicalListSelectionIndexColl:(Array with:anIndex)].

		^true]

!

menuActionCompareChanges

    |theSelectionIndexColl theFirstRevisionItem theSecondRevisionItem|

    theSelectionIndexColl := self hierarchicalListSelectionIndexColl.

    theFirstRevisionItem := self hierarchicalListItemForSelectionIndex:theSelectionIndexColl first.

    theSecondRevisionItem := self hierarchicalListItemForSelectionIndex:theSelectionIndexColl last.

    self selectionHolder notNil

        ifTrue:[self selectionHolder value:(Array with:theFirstRevisionItem with:theSecondRevisionItem)]

!

selectHierarchicalItemMenu

"

<return: Block>

"

    ^[|menu|

      self checkIfTwoResourceItemsSelected

	ifFalse:[menu := nil] 

	ifTrue: [menu := Menu new fromLiteralArrayEncoding:(self class resourceItemMenu).

		menu receiver:self].

      menu

    ]

! !

!ClassRevisionTree methodsFor:'aspects'!

hierarchicalItemList

    "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 hierarchicalItemListModel root

!

hierarchicalItemListModel

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

    |holder|

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

	holder := HierarchicalList new.

	holder root:(ClassItemRoot new).

	holder showRoot:false.

	builder aspectAt:#hierarchicalItemListModel put:holder.

	holder application:self.

    ].

    ^ holder.

!

hierarchicalItemSelectionAspect

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

    |holder|

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

	holder := ValueHolder new.

	builder aspectAt:#hierarchicalItemSelectionAspect put:holder.

	holder addDependent: self.

    ].

    ^ holder.

!

icons

   |icons|

    icons := Dictionary new.

    icons at:#loadedRevision put:Icon leftIcon.

    icons at:#notLoadedRevision put:Icon rightIcon.

    ^icons

! !

!ClassRevisionTree methodsFor:'interface opening'!

postOpenWith: aBuilder

    super postOpenWith: aBuilder.

    self hierarchicalItemList expand.

!

release

    self stopRevisionTask.    

    ^super release

! !

!ClassRevisionTree methodsFor:'private'!

computeChildrenForClassItem:aClassItem

     |theRevisionLog|

     theRevisionLog := self computeRevisionInfoForClassItem:aClassItem.

     aClassItem setChildrensForRevisionInfo:theRevisionLog

!

computeRevisionInfoForClassItem:aClassItem

    |theClass theSourceCodeManager|

    theClass := aClassItem myClass. 

    theSourceCodeManager:=theClass sourceCodeManager.

    ^theSourceCodeManager revisionLogOf:theClass.

!

revisionTaskCycle

    |theClassItem|

    [

        theClassItem := nil.

        self semaphoreCritical critical:[

            self revisionInfoList notEmpty

                ifTrue:[theClassItem := self revisionInfoList remove:(self revisionInfoList last) ifAbsent:[nil]]

        ].

        theClassItem notNil ifTrue:[

            theClassItem isExpanded

                ifTrue: [currentClassItemInTask:=theClassItem.

                        self computeChildrenForClassItem:theClassItem]

                ifFalse:[currentClassItemInTask:=nil]    

        ].

        theClassItem notNil

    ] whileTrue.

!

startRevisionTask

    self semaphoreCritical critical:[

        revisionTask ifNil:[

            revisionTask := Process for:[

                                            self revisionTaskCycle

                                        ]

                               priority:(Processor userBackgroundPriority).

            revisionTask addExitAction:[revisionTask := nil].

            revisionTask resume.

        ].

    ].

!

stopRevisionTask

    |task|

    self semaphoreCritical critical:[

        (task := revisionTask) notNil ifTrue:[

            revisionTask := nil.

            Exception handle:[:ex|] do:[

                task terminateWithAllSubprocesses.

                task waitUntilTerminated.

            ]

        ]

    ].

! !

!ClassRevisionTree methodsFor:'setup'!

setupOnClasses:aClassColl withSelectionHolder:aValueHolder

    |theClassItemColl|

    theClassItemColl := aClassColl collect:[:eachClass |

        |theClassItem theClass|

        theClassItem := ClassItem new.

        theClass := Smalltalk resolveName:eachClass inClass:Smalltalk.

        theClassItem myClass:theClass.

        theClassItem].

     self hierarchicalItemList addAll: theClassItemColl.

     self selectionHolder:aValueHolder.

"

|theTree|

theTree := ClassRevisionTree new.

theTree open.

theTree setupOnClasses:#(VersionDiffBrowser HierarchicalVersionDiffBrowser SourceRevisionItem Project) withSelectionHolder:nil.

"

! !

!ClassRevisionTree methodsFor:'testing'!

checkIfTwoResourceItemsSelected

    |theSelectionIndexColl|

    ((theSelectionIndexColl := self hierarchicalListSelectionIndexColl) isNil or:

	[theSelectionIndexColl size ~~ 2])

	    ifTrue:[^false].

    ^((self hierarchicalListItemForSelectionIndex:theSelectionIndexColl first) isRevisionItem

	and:[(self hierarchicalListItemForSelectionIndex:theSelectionIndexColl last) isRevisionItem])

! !

!ClassRevisionTree class methodsFor:'documentation'!

version

    ^ '$Header: /cvs/stx/stx/libtool/ClassRevisionTree.st,v 1.1 1999-12-29 15:32:17 ps Exp $'

! !