"

 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:#VersionDiffBrowser

	instanceVariableNames:'classChangeSet diffTextView boxAVisible boxBVisible boxMVisible

		classIfSingleClassDiff versionAIfSingleClassDiff

		versionBIfSingleClassDiff'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Browsers'

!

HierarchicalItem subclass:#ClassChangeSet

	instanceVariableNames:'classBeingCompared labelA labelB diffSet onlyInA onlyInB

		changedMethods versionA versionB'

	classVariableNames:''

	poolDictionaries:''

	privateIn:VersionDiffBrowser

!

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

    A browser to show differences between class versions,

    allowing easy comparison; will also eventually add capabilities

    to checkIn / load classes into / from the repository.

    [see also:]

    [instance variables:]

    [class variables:]

"

! !

!VersionDiffBrowser class methodsFor:'interface specs'!

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

     VersionDiffBrowser new openInterface:#windowSpec

     VersionDiffBrowser open

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

        #name: #windowSpec

        #window: 

       #(#WindowSpec

          #label: 'Version DiffBrowser'

          #name: 'Version DiffBrowser'

          #min: #(#Point 10 10)

          #max: #(#Point nil nil)

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

          #menu: #mainMenu

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#VariableVerticalPanelSpec

              #name: 'VariableVerticalPanel1'

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

              #component: 

             #(#SpecCollection

                #collection: #(

                 #(#HorizontalPanelViewSpec

                    #name: 'TopHorizontalPanel'

                    #horizontalLayout: #fit

                    #verticalLayout: #fit

                    #horizontalSpace: 3

                    #verticalSpace: 3

                    #component: 

                   #(#SpecCollection

                      #collection: #(

                       #(#ViewSpec

                          #name: 'BoxA'

                          #level: 0

                          #visibilityChannel: #boxAVisible

                          #component: 

                         #(#SpecCollection

                            #collection: #(

                             #(#LabelSpec

                                #label: 'Only in A'

                                #name: 'OnlyInALabel'

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

                                #translateLabel: true

                                #labelChannel: #onlyInALabelHolder

                              )

                             #(#SequenceViewSpec

                                #name: 'ListA'

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

                                #model: #methodsOnlyInASelection

                                #menu: #menuA

                                #hasHorizontalScrollBar: true

                                #hasVerticalScrollBar: true

                                #miniScrollerHorizontal: true

                                #valueChangeSelector: #methodsOnlyInASelectionChanged

                                #useIndex: true

                                #sequenceList: #methodsOnlyInA

                              )

                             )

                          )

                          #extent: #(#Point 286 252)

                        )

                       #(#ViewSpec

                          #name: 'BoxM'

                          #visibilityChannel: #boxMVisible

                          #component: 

                         #(#SpecCollection

                            #collection: #(

                             #(#LabelSpec

                                #label: 'Changed'

                                #name: 'Label2'

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

                                #translateLabel: true

                                #labelChannel: #changedLabelHolder

                              )

                             #(#SequenceViewSpec

                                #name: 'ListM'

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

                                #model: #methodsChangedSelection

                                #menu: #menuM

                                #hasHorizontalScrollBar: true

                                #hasVerticalScrollBar: true

                                #miniScrollerHorizontal: true

                                #valueChangeSelector: #methodsChangedSelectionChanged

                                #useIndex: true

                                #sequenceList: #methodsChanged

                              )

                             )

                          )

                          #extent: #(#Point 286 252)

                        )

                       #(#ViewSpec

                          #name: 'BoxB'

                          #visibilityChannel: #boxBVisible

                          #component: 

                         #(#SpecCollection

                            #collection: #(

                             #(#LabelSpec

                                #label: 'Only in B'

                                #name: 'OnlyInBLabel'

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

                                #translateLabel: true

                                #labelChannel: #onlyInBLabelHolder

                              )

                             #(#SequenceViewSpec

                                #name: 'ListB'

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

                                #model: #methodsOnlyInBSelection

                                #menu: #menuB

                                #hasHorizontalScrollBar: true

                                #hasVerticalScrollBar: true

                                #miniScrollerHorizontal: true

                                #valueChangeSelector: #methodsOnlyInBSelectionChanged

                                #useIndex: true

                                #sequenceList: #methodsOnlyInB

                              )

                             )

                          )

                          #extent: #(#Point 287 252)

                        )

                       )

                    )

                  )

                 #(#ViewSpec

                    #name: 'Box4'

                    #component: 

                   #(#SpecCollection

                      #collection: #(

                       #(#ViewSpec

                          #name: 'diffTextViewBox'

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

                          #initiallyInvisible: true

                          #component: 

                         #(#SpecCollection

                            #collection: #(

                             #(#LabelSpec

                                #label: 'A'

                                #name: 'DiffTextLabelA'

                                #layout: #(#LayoutFrame 0 0 0 0 0 0.5 20 0)

                                #translateLabel: true

                                #labelChannel: #diffTextLabelA

                              )

                             #(#LabelSpec

                                #label: 'B'

                                #name: 'DiffTextLabelB'

                                #layout: #(#LayoutFrame 0 0.5 0 0 0 1 20 0)

                                #translateLabel: true

                                #labelChannel: #diffTextLabelB

                              )

                             #(#ArbitraryComponentSpec

                                #name: 'diffTextView'

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

                                #hasBorder: false

                                #component: #diffTextView

                              )

                             )

                          )

                        )

                       #(#TextEditorSpec

                          #name: 'singleTextView'

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

                          #model: #methodText

                          #hasHorizontalScrollBar: true

                          #hasVerticalScrollBar: true

                          #miniScrollerHorizontal: true

                        )

                       )

                    )

                  )

                 )

              )

              #handles: #(#Any 0.5 1.0)

            )

           )

        )

      )

! !

!VersionDiffBrowser class methodsFor:'menu specs'!

mainMenu

    "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:VersionDiffBrowser andSelector:#mainMenu

     (Menu new fromLiteralArrayEncoding:(VersionDiffBrowser mainMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #label: 'File'

            #translateLabel: true

            #submenu: 

           #(#Menu

              #(

               #(#MenuItem

                  #label: 'Create PatchFile...'

                  #translateLabel: true

                  #value: #createPatchFile

                )

               #(#MenuItem

                  #label: '-'

                )

               #(#MenuItem

                  #label: 'Exit'

                  #translateLabel: true

                  #value: #closeRequest

                )

               )

              nil

              nil

            )

          )

         #(#MenuItem

            #label: 'Help'

            #translateLabel: true

            #startGroup: #right

            #submenu: 

           #(#Menu

              #(

               #(#MenuItem

                  #label: 'Documentation'

                  #translateLabel: true

                  #value: #openDocumentation

                )

               #(#MenuItem

                  #label: '-'

                )

               #(#MenuItem

                  #label: 'About this Application'

                  #translateLabel: true

                  #value: #openAboutThisApplication

                )

               )

              nil

              nil

            )

          )

         )

        nil

        nil

      )

!

menuA

    "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:VersionDiffBrowser andSelector:#menu1

     (Menu new fromLiteralArrayEncoding:(VersionDiffBrowser menu1)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #label: 'Inspect'

            #translateLabel: true

            #value: #inspectSelectedChangeInA

            #choiceValue: 'nil "UndefinedObject" '

          )

         #(#MenuItem

            #label: '-'

          )

         #(#MenuItem

            #label: 'Browse'

            #translateLabel: true

            #value: #browseClassInA

          )

         )

        nil

        nil

      )

!

menuB

    "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:VersionDiffBrowser andSelector:#menuB

     (Menu new fromLiteralArrayEncoding:(VersionDiffBrowser menuB)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #label: 'Inspect'

            #translateLabel: true

            #value: #inspectSelectedChangeInB

            #choiceValue: 'nil "UndefinedObject" '

          )

         #(#MenuItem

            #label: '-'

          )

         #(#MenuItem

            #label: 'Browse'

            #translateLabel: true

            #value: #browseClassInB

          )

         )

        nil

        nil

      )

!

menuM

    "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:VersionDiffBrowser andSelector:#menu1

     (Menu new fromLiteralArrayEncoding:(VersionDiffBrowser menu1)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #label: 'Inspect both'

            #translateLabel: true

            #value: #inspectSelectedChangeInM

            #choiceValue: 'nil "UndefinedObject" '

          )

         #(#MenuItem

            #label: '-'

          )

         #(#MenuItem

            #label: 'Browse'

            #translateLabel: true

            #value: #browseClassInM

          )

         )

        nil

        nil

      )

! !

!VersionDiffBrowser class methodsFor:'plugIn spec'!

aspectSelectors

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

    "Return a description of exported aspects;

     these can be connected to aspects of an embedding application

     (if this app is embedded in a subCanvas)."

    ^ #(

        #changedLabelHolder

        #onlyInALabelHolder

        #onlyInBLabelHolder

      ).

! !

!VersionDiffBrowser class methodsFor:'startup'!

openOnClass:aClass againstVersion:aVersionA 

"

create an VersionDiffBrowser instance and set the class change set of the

browser. The class diff set is generated from classes current against some version

via the source code manager .

<return: VersionDiffBrowser>

"

    |theBrowser|

    theBrowser := self new.

    theBrowser allButOpen.

    theBrowser setupForClass:aClass againstVersion:aVersionA.

    theBrowser openWindow.

    ^ theBrowser.

    "

     self openOnClass:Array againstVersion:'1.116'

     self openOnClass:Array againstVersion:nil            - against the version on which Array is based upon

     self openOnClass:Array againstVersion:#newest        - against the newest repository version

     self openOnClass:VersionDiffBrowser againstVersion:nil

     self openOnClass:VersionDiffBrowser againstVersion:#newest

    "

!

openOnClass:classA labelA:aLabelA andClass:classB labelB:aLabelB title:ignoredTitle 

"

create an VersionDiffBrowser instance and set the class change set of the

browser. The class diff set is generated from two classes.

<return: VersionDiffBrowser>

"

    ^ self

        openOnClass:classA labelA:aLabelA andClass:classB labelB:aLabelB title:ignoredTitle ifSame:nil

!

openOnClass:classA labelA:aLabelA andClass:classB labelB:aLabelB title:ignoredTitle ifSame:sameAction