"

 COPYRIGHT (c) 2000 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool' }"

ApplicationModel subclass:#HierarchicalVersionDiffBrowser

	instanceVariableNames:'versionDiffBrowser classTree treeSelectionHolder classHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Browsers'

!

!HierarchicalVersionDiffBrowser class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2000 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    This is not yet finished (work in progress) - do not use.

    A hierarchical version diff browser, allowing easy comparison

    between a classes versions; will also eventually add capabilities

    to checkIn / load classes into / from the repository.

    [author:]

        Pierre Schwarz (ps@exept.de)

    [see also:]

    [instance variables:]

    [class variables:]

"

!

examples

"

                                                                        [exBegin]

    HierarchicalVersionDiffBrowser openOnClasses:(Array with:Smalltalk)

                                                                        [exEnd]

                                                                        [exBegin]

    HierarchicalVersionDiffBrowser openOnClasses:(Project current changedClasses)

                                                                        [exEnd]

"

! !

!HierarchicalVersionDiffBrowser class methodsFor:'interface specs'!

contentsSpecVersionDiffBrowser

    "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:#contentsSpecVersionDiffBrowser

     ClassRevisionTree new openInterface:#contentsSpecVersionDiffBrowser

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

	#name: #contentsSpecVersionDiffBrowser

	#window: 

       #(#WindowSpec

	  #label: 'Hierarchical Version DiffBrowser'

	  #name: 'Hierarchical Version DiffBrowser'

	  #min: #(#Point 10 10)

	  #max: #(#Point 9999 9999)

	  #bounds: #(#Rectangle 12 22 877 551)

	)

	#component: 

       #(#SpecCollection

	  #collection: #(

	   #(#SubCanvasSpec

	      #name: 'VersionDiffBrowser'

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

	      #hasHorizontalScrollBar: false

	      #hasVerticalScrollBar: false

	      #majorKey: #VersionDiffBrowser

	      #minorKey: #windowSpec

	      #clientKey: #versionDiffBrowser

	    )

	   #(#LabelSpec

	      #name: 'Label1'

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

	      #visibilityChannel: #''

	      #translateLabel: true

	      #labelChannel: #versionDiffModel

	      #resizeForLabel: false

	      #adjust: #left

	    )

	   )

	)

      )

!

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:HierarchicalVersionDiffBrowser andSelector:#windowSpec

     HierarchicalVersionDiffBrowser new openInterface:#windowSpec

     HierarchicalVersionDiffBrowser open

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

        #name: #windowSpec

        #window: 

       #(#WindowSpec

          #label: 'Hierarchical Version DiffBrowser'

          #name: 'Hierarchical Version DiffBrowser'

          #min: #(#Point 10 10)

          #max: #(#Point 9999 9999)

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

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#MenuPanelSpec

              #name: 'menuPanel'

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

              #level: 1

              #tabable: true

              #style: 

             #(#Font

                'helvetica' 'bold'

                'oblique' 10

              )

            )

           #(#VariableHorizontalPanelSpec

              #name: 'VariableHorizontalPanel1'

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

              #level: 2

              #component: 

             #(#SpecCollection

                #collection: #(

                 #(#SubCanvasSpec

                    #name: 'ClassTree'

                    #hasHorizontalScrollBar: false

                    #hasVerticalScrollBar: false

                    #majorKey: #ClassRevisonTree

                    #minorKey: #windowSpec

                    #clientKey: #classTree

                  )

                 #(#UISubSpecification

                    #name: 'SubSpecification1'

                    #majorKey: #HierarchicalVersionDiffBrowser

                    #minorKey: #contentsSpecVersionDiffBrowser

                  )

                 )

              )

              #handles: #(#Any 0.310983 1.0)

            )

           )

        )

      )

! !

!HierarchicalVersionDiffBrowser class methodsFor:'menu specs'!

resourceClassItemMenu

    "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:#resourceRevisonItemMenu

     (Menu new fromLiteralArrayEncoding:(ClassRevisionTree resourceRevisonItemMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #label: 'Browse Class'

            #translateLabel: true

            #value: #menuActionBrowseClass

          )

         #(#MenuItem

            #label: 'Checkin...'

            #translateLabel: true

            #value: #menuActionCheckInClass

            #enabled: #canCheckInClass

          )

         )

        nil

        nil

      )

!

resourceCompareChangesMenu

    "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:#resourceCompareChangesMenu

     (Menu new fromLiteralArrayEncoding:(ClassRevisionTree resourceCompareChangesMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #label: 'Compare Changes'

            #translateLabel: true

            #value: #menuActionCompareChanges

          )

         )

        nil

        nil

      )

!

resourceRevisonItemMenu

    "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:#resourceRevisonItemMenu

     (Menu new fromLiteralArrayEncoding:(ClassRevisionTree resourceRevisonItemMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #label: 'Load Revision'

            #translateLabel: true

            #nameKey: #menuActionLoadRevision

            #value: #menuActionLoadRevision

          )

         )

        nil

        nil

      )

! !

!HierarchicalVersionDiffBrowser class methodsFor:'protocol'!

browserClass

    ^SystemBrowser

!

tree

    ^ClassRevisionTree

! !

!HierarchicalVersionDiffBrowser class methodsFor:'startup'!

openOnClassRevisionInfo:aClassRevisionInfoColl

    |theBrowser theTree|

    SourceCodeManager isNil ifTrue:[

        self warn:'SourceCodeManagement is disabled.\\I will not be able to show old versions.' withCRs.

    ].

    theBrowser := self new.

    theTree := self tree new.

    theTree classItemClass: ClassNameItem.

    theTree setUpClassItemBlock:[

        |theClassRevisionInfoColl root theClassItemColl |

        self halt.

        root := ClassItemRoot new.

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

            theClassItemColl := theClassRevisionInfoColl collect:[:eachClass |

                |theClassItem theClass|

                theClassItem := ClassNameItem new.

               theClassItem myClass:(eachClass at:1).

                theClassItem].

           root addAll: theClassItemColl.

        ].  

        self listModel root:root.

    ].

    theBrowser classTree:theTree.

    theBrowser allButOpen.

    theTree classHolder:(theBrowser classHolder value:aClassRevisionInfoColl).

    "theTree selectionHolder:theBrowser treeSelectionHolder."

    "theTree menuBlock:theBrowser menuBlock."

    theBrowser openWindow.

    ^theBrowser

"

self openOnClassRevisionInfo:#(#(VersionDiffBrowser 1.1 1.2) #(FileBrowser 1.1 1.2) #(Array 1.1 1.2)).

"

!

openOnClasses:aClassColl

    |theBrowser theTree|

    SourceCodeManager isNil ifTrue:[

        self warn:'SourceCodeManagement is disabled.\\I will not be able to show old versions.' withCRs.

    ].

    theBrowser := self new.

    theTree := self tree new.

    theBrowser classTree:theTree.

    theBrowser allButOpen.

    theTree classHolder:(theBrowser classHolder value:aClassColl).

    theTree selectionHolder:theBrowser treeSelectionHolder.

    theTree menuBlock:theBrowser menuBlock.

    theBrowser openWindow.

    ^theBrowser

"

|theBrowser|

theBrowser := self openOnClasses:#(VersionDiffBrowser FileBrowser Array).

Delay waitForMilliseconds:1500.

theBrowser classHolder value:(Smalltalk allClasses asOrderedCollection sort:[:x : y|x name < y name])

"

! !

!HierarchicalVersionDiffBrowser methodsFor:'accessing'!

classHolder

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

    ^ classHolder ifNil:[classHolder := ValueHolder new]

!

classHolder:something

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

    classHolder := something.

!

classTree

    ^ classTree 

!

classTree:something

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

    classTree := something.

!

treeSelectionHolder

    ^treeSelectionHolder ifNil:[treeSelectionHolder := ValueHolder new]

!

versionDiffBrowser

    versionDiffBrowser isNil ifTrue:[

        versionDiffBrowser := VersionDiffBrowser new.

        versionDiffBrowser masterApplication:self.

    ].

    ^ versionDiffBrowser

! !

!HierarchicalVersionDiffBrowser methodsFor:'aspects'!

canCheckInClass

    SourceCodeManager isNil ifTrue:[^ false].

    ^ true

!

versionDiffModel

    "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:#versionDiffModel) isNil ifTrue:[

        holder := String new asValue.

        builder aspectAt:#versionDiffModel put:holder.

    ].

    ^ holder.

! !

!HierarchicalVersionDiffBrowser methodsFor:'change & update'!

delayedUpdate

    self halt.

!

update:something with:someArgument from:changedObject

    |sensor|

    "/ delayed update

    "/ if such an update is already in the queue, ignore it.

    "/ Otherwise push it as an event, to be handled when I am back

    (sensor := self window sensor) isNil 

        ifTrue:[^ self delayedUpdate].

    (sensor hasEvent:#delayedUpdate for:self ) 

        ifTrue:[^ self].

    sensor pushUserEvent:#delayedUpdate for:self

! !

!HierarchicalVersionDiffBrowser methodsFor:'menu'!

menuForClassItemSelected

"

<return: Menu>

"

    |menu|

    menu := Menu new fromLiteralArrayEncoding:(self class resourceClassItemMenu).

    menu receiver:self.

    ^menu

!

menuForOneRevisionItemSelected

"

<return: Menu>

"

    |menu theItemColl|

    menu := Menu new fromLiteralArrayEncoding:(self class resourceRevisonItemMenu).

    "disable load button, if version already loaded"

    theItemColl := self treeSelectionHolder value.

    theItemColl first isLoadedRevision

        ifTrue:[menu allItemsDo:[:eachItem | eachItem nameKey == #menuActionLoadRevision

                                                  ifTrue:[eachItem isEnabled:false]].

               ].

    menu receiver:self.

    ^menu

!

menuForTwoRevisionItemsSelected

"

<return: Menu>

"

    |menu|

    menu := Menu new fromLiteralArrayEncoding:(self class resourceCompareChangesMenu).

    menu receiver:self.

    ^menu

! !

!HierarchicalVersionDiffBrowser methodsFor:'menu actions'!

menuActionBrowseClass