"

 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: 'DiffOrSingleMethodCodeBox'

                   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.41999999999999998 1.0)

           )

          (LabelSpec

             name: 'InfoLabel'

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

             level: -1

             translateLabel: true

             labelChannel: infoHolder

             adjust: left

           )

          )

       )

     )

!

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

                             )

                            (ArbitraryComponentSpec

                               name: 'diffTextView'