"

 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' }"

"{ NameSpace: Smalltalk }"

ApplicationModel subclass:#VersionDiffBrowser

	instanceVariableNames:'classChangeSet diffTextView boxAVisible boxBVisible boxMVisible

		classIfSingleClassDiff versionAIfSingleClassDiff

		versionBIfSingleClassDiff changedLabelHolder diffTextLabelA

		diffTextLabelB methodText methodsChanged methodsChangedFiltered

		methodsChangedSelection methodsOnlyInA methodsOnlyInAFiltered

		methodsOnlyInASelection methodsOnlyInB methodsOnlyInBFiltered

		methodsOnlyInBSelection onlyInALabelHolder onlyInBLabelHolder

		classHolder versionAHolder versionBHolder infoHolder

		includeExtensionsHolder canIncludeExtensionsHolder

		includeCategoryChangesHolder includeVersionMethodsHolder

		isMultipleVersionBrowser versionInfoList versionList

		selectedVersionHolder symbolicVersionList

		selectedSymbolicVersionHolder symbolicToVersionMapping

		filteredClasses filteredMethods filteredSelectors

		classPatternFilters selectorPatternFilters'

	classVariableNames:'RememberedFilters'

	poolDictionaries:''

	category:'Interface-Browsers'

!

HierarchicalItem subclass:#ClassChangeSet

	instanceVariableNames:'class1BeingCompared class2BeingCompared labelA labelB diffSet

		versionA versionB'

	classVariableNames:''

	poolDictionaries:''

	privateIn:VersionDiffBrowser

!

Object subclass:#FilterParameters

	instanceVariableNames:'filteredMethodNames filteredClassNames filteredSelectors

		filteredClassNameMatchPattern filteredSelectorMatchPattern'

	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 quickly hacked up 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)

          bounds: (Rectangle 0 0 865 504)

          menu: mainMenu

        )

        component:

       (SpecCollection

          collection: (

           (VariableVerticalPanelSpec

              name: 'VariableVerticalPanel1'

              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 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: menuAHolder

                                hasHorizontalScrollBar: true

                                hasVerticalScrollBar: true

                                miniScrollerHorizontal: true

                                doubleClickSelector: methodInADoubleClicked:

                                valueChangeSelector: methodsOnlyInASelectionChanged

                                useIndex: true

                                sequenceList: methodsOnlyInA

                              )

                             )

                          )

                          extent: (Point 286 199)

                        )

                       (ViewSpec

                          name: 'BoxM'

                          visibilityChannel: boxMVisible

                          component:

                         (SpecCollection

                            collection: (

                             (LabelSpec

                                label: 'Changed'

                                name: 'ChangedLabel'

                                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: menuMHolder

                                hasHorizontalScrollBar: true

                                hasVerticalScrollBar: true

                                miniScrollerHorizontal: true

                                doubleClickSelector: methodInChangedDoubleClicked:

                                valueChangeSelector: methodsChangedSelectionChanged

                                useIndex: true

                                sequenceList: methodsChanged

                              )

                             )

                          )

                          extent: (Point 286 199)

                        )

                       (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: menuBHolder

                                hasHorizontalScrollBar: true

                                hasVerticalScrollBar: true

                                miniScrollerHorizontal: true

                                doubleClickSelector: methodInBDoubleClicked:

                                valueChangeSelector: methodsOnlyInBSelectionChanged

                                useIndex: true

                                sequenceList: methodsOnlyInB

                              )

                             )

                          )

                          extent: (Point 287 199)

                        )

                       )

                    )

                  )

                 (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

                              )

                             )

                          )

                        )

                       (CodeViewSpec

                          name: 'singleTextView'

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

                          model: methodText

                          hasHorizontalScrollBar: true

                          hasVerticalScrollBar: true

                          miniScrollerHorizontal: true

                          isReadOnly: true

                          hasKeyboardFocusInitially: false

                        )

                       )

                    )

                  )

                 )

              )

              handles: (Any 0.42379958246347 1.0)

            )

           (LabelSpec

              name: 'InfoLabel'

              layout: (LayoutFrame 0 0 -25 1 0 1 0 1)

              level: -1

              translateLabel: true

              labelChannel: infoHolder

              adjust: left

            )

           )

        )

      )

    "Modified: / 05-02-2017 / 10:08:34 / cg"

!

windowSpecForMultipleVersions

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

     VersionDiffBrowser new openInterface:#windowSpecForMultipleVersions

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpecForMultipleVersions

       window: 

      (WindowSpec

         label: 'Version DiffBrowser'

         name: 'Version DiffBrowser'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 865 504)

         menu: mainMenu

       )

       component: 

      (SpecCollection

         collection: (

          (VariableVerticalPanelSpec

             name: 'VariableVerticalPanel1'

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

             component: 

            (SpecCollection

               collection: (

                (ViewSpec

                   name: 'Box1'

                   component: 

                  (SpecCollection

                     collection: (

                      (SequenceViewSpec

                         name: 'VersionList'

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

                         model: selectedVersionHolder

                         hasHorizontalScrollBar: true

                         hasVerticalScrollBar: true

                         useIndex: false

                         sequenceList: versionList

                       )

                      (SequenceViewSpec

                         name: 'List1'

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

                         model: selectedSymbolicVersionHolder

                         hasHorizontalScrollBar: true

                         hasVerticalScrollBar: true

                         useIndex: false

                         sequenceList: symbolicVersionList

                       )

                      )

                   )

                 )

                (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: menuAHolder

                               hasHorizontalScrollBar: true

                               hasVerticalScrollBar: true

                               miniScrollerHorizontal: true

                               doubleClickSelector: methodInADoubleClicked:

                               valueChangeSelector: methodsOnlyInASelectionChanged

                               useIndex: true

                               sequenceList: methodsOnlyInA

                             )

                            )

                         )

                         extent: (Point 286 207)

                       )

                      (ViewSpec

                         name: 'BoxM'

                         visibilityChannel: boxMVisible

                         component: 

                        (SpecCollection

                           collection: (

                            (LabelSpec

                               label: 'Changed'

                               name: 'ChangedLabel'

                               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: menuMHolder

                               hasHorizontalScrollBar: true

                               hasVerticalScrollBar: true

                               miniScrollerHorizontal: true

                               doubleClickSelector: methodInChangedDoubleClicked:

                               valueChangeSelector: methodsChangedSelectionChanged

                               useIndex: true

                               sequenceList: methodsChanged

                             )

                            )

                         )

                         extent: (Point 286 207)

                       )

                      (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: menuBHolder

                               hasHorizontalScrollBar: true

                               hasVerticalScrollBar: true

                               miniScrollerHorizontal: true

                               doubleClickSelector: methodInBDoubleClicked:

                               valueChangeSelector: methodsOnlyInBSelectionChanged

                               useIndex: true

                               sequenceList: methodsOnlyInB

                             )

                            )

                         )

                         extent: (Point 287 207)

                       )

                      )

                   )

                 )

                (ViewSpec

                   name: 'DiffBox'

                   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

                             )