"{ Encoding: utf8 }"

"

 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

		versionEntriesList selectedVersionHolder symbolicVersionList

		symbolicVersionNameList selectedSymbolicVersionHolder

		selectedSymbolicVersionIndexHolder symbolicToVersionMapping

		filteredClassNames filteredMethodNames filteredSelectors

		filteredClassNamePatterns filteredSelectorPatterns

		filterChangedBefore filterChangedAfter filteredOwnerClassNames

		selectedVersionIndexHolder isMultipleClassesVersionBrowser

		classListHolder selectedClassIndexHolder'

	classVariableNames:'RememberedFilters LastSearchString'

	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

		filterChangedBefore filterChangedAfter filteredOwnerClassNames'

	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.

    [usages:]

        VersionDiffBrowser openOnAllVersionsOfClass:Array.

        VersionDiffBrowser openOnAllClassesChangedSince:(Date today - 2 days) in:(Smalltalk allClasses).

        VersionDiffBrowser openOnAllClassesChangedSince:(Date today - 2 days) in:(Smalltalk allClassesMatchingPackage:'exept:bridgeFramework*').

    [see also:]

    [instance variables:]

    [class variables:]

"

! !

!VersionDiffBrowser class methodsFor:'accessing'!

rememberedFilters

    RememberedFilters isNil ifTrue:[

        RememberedFilters := Dictionary new.

    ].

    ^ RememberedFilters

    "Created: / 08-05-2019 / 11:52:27 / Claus Gittinger"

! !

!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

       uuid: '90e45ab8-7175-11e9-a23a-b8f6b1108e05'

       window: 

      (WindowSpec

         label: 'Version DiffBrowser'

         name: 'Version DiffBrowser'

         uuid: '90e45e00-7175-11e9-a23a-b8f6b1108e05'

         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)

             uuid: '90e460c6-7175-11e9-a23a-b8f6b1108e05'

             component: 

            (SpecCollection

               collection: (

                (HorizontalPanelViewSpec

                   name: 'MethodListsPanel'

                   uuid: '90e462a6-7175-11e9-a23a-b8f6b1108e05'

                   horizontalLayout: fit

                   verticalLayout: fit

                   horizontalSpace: 3

                   verticalSpace: 3

                   component: 

                  (SpecCollection

                     collection: (

                      (ViewSpec

                         name: 'BoxA'

                         uuid: '90e46472-7175-11e9-a23a-b8f6b1108e05'

                         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)

                               uuid: '90e46580-7175-11e9-a23a-b8f6b1108e05'

                               translateLabel: true

                               labelChannel: onlyInALabelHolder

                             )

                            (SequenceViewSpec

                               name: 'ListA'

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

                               uuid: '90e4672e-7175-11e9-a23a-b8f6b1108e05'

                               model: methodsOnlyInASelection

                               menu: menuAHolder

                               hasHorizontalScrollBar: true

                               hasVerticalScrollBar: true

                               miniScrollerHorizontal: true

                               doubleClickSelector: methodInADoubleClicked:

                               valueChangeSelector: methodsOnlyInASelectionChanged

                               useIndex: true

                               sequenceList: methodsOnlyInA

                             )

                            )

                         )

                         extent: (Point 287 197)

                       )

                      (ViewSpec

                         name: 'BoxM'

                         uuid: '90e4699a-7175-11e9-a23a-b8f6b1108e05'

                         visibilityChannel: boxMVisible

                         component: 

                        (SpecCollection

                           collection: (

                            (LabelSpec

                               label: 'Changed'

                               name: 'ChangedLabel'

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

                               uuid: '90e46a9e-7175-11e9-a23a-b8f6b1108e05'

                               translateLabel: true

                               labelChannel: changedLabelHolder

                             )

                            (SequenceViewSpec

                               name: 'ListM'

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

                               uuid: '90e46bca-7175-11e9-a23a-b8f6b1108e05'

                               model: methodsChangedSelection

                               menu: menuMHolder

                               hasHorizontalScrollBar: true

                               hasVerticalScrollBar: true

                               miniScrollerHorizontal: true

                               doubleClickSelector: methodInChangedDoubleClicked:

                               valueChangeSelector: methodsChangedSelectionChanged

                               useIndex: true

                               sequenceList: methodsChanged

                             )

                            )

                         )

                         extent: (Point 287 197)

                       )

                      (ViewSpec

                         name: 'BoxB'

                         uuid: '90e46d6e-7175-11e9-a23a-b8f6b1108e05'

                         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)

                               uuid: '90e46e54-7175-11e9-a23a-b8f6b1108e05'

                               translateLabel: true

                               labelChannel: onlyInBLabelHolder

                             )

                            (SequenceViewSpec

                               name: 'ListB'

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

                               uuid: '90e46fc6-7175-11e9-a23a-b8f6b1108e05'

                               model: methodsOnlyInBSelection

                               menu: menuBHolder

                               hasHorizontalScrollBar: true

                               hasVerticalScrollBar: true

                               miniScrollerHorizontal: true

                               doubleClickSelector: methodInBDoubleClicked:

                               valueChangeSelector: methodsOnlyInBSelectionChanged

                               useIndex: true

                               sequenceList: methodsOnlyInB

                             )

                            )

                         )

                         extent: (Point 288 197)

                       )

                      )

                   )

                 )

                (ViewSpec

                   name: 'DiffOrSingleMethodCodeBox'

                   uuid: '90e471a6-7175-11e9-a23a-b8f6b1108e05'

                   component: 

                  (SpecCollection

                     collection: (

                      (ViewSpec

                         name: 'diffTextViewBox'

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

                         uuid: '90e47264-7175-11e9-a23a-b8f6b1108e05'

                         initiallyInvisible: true

                         component: 

                        (SpecCollection

                           collection: (

                            (LabelSpec

                               label: 'A'

                               name: 'DiffTextLabelA'

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

                               uuid: '90e47318-7175-11e9-a23a-b8f6b1108e05'

                               translateLabel: true

                               labelChannel: diffTextLabelA

                             )

                            (LabelSpec

                               label: 'B'

                               name: 'DiffTextLabelB'

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

                               uuid: '90e47412-7175-11e9-a23a-b8f6b1108e05'

                               translateLabel: true

                               labelChannel: diffTextLabelB

                             )

                            (ArbitraryComponentSpec

                               name: 'diffTextView'

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

                               uuid: '90e47502-7175-11e9-a23a-b8f6b1108e05'

                               hasBorder: false

                               component: diffTextView

                             )

                            )

                         )

                       )

                      (CodeViewSpec

                         name: 'singleTextView'

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

                         uuid: '90e47674-7175-11e9-a23a-b8f6b1108e05'

                         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)

             uuid: '90e47868-7175-11e9-a23a-b8f6b1108e05'

             level: -1

             translateLabel: true

             labelChannel: infoHolder

             adjust: left

           )

          )

       )

     )

!

windowSpecForMultipleClasses

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

     VersionDiffBrowser new openInterface:#windowSpecForMultipleClasses

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpecForMultipleClasses

       uuid: 'e513170a-814c-11e9-8ea0-b8f6b1108e05'

       window: 

      (WindowSpec

         label: 'Version DiffBrowser'

         name: 'Version DiffBrowser'

         uuid: '2b3f2546-d4fd-11e7-af82-c42c033b4871'

         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)

             uuid: '2b3f297e-d4fd-11e7-af82-c42c033b4871'

             component: 

            (SpecCollection

               collection: (

                (VariableHorizontalPanelSpec

                   name: 'ClassAndversionAndTagPanel'

                   uuid: '17c6805c-7184-11e9-a23a-b8f6b1108e05'

                   component: 

                  (SpecCollection

                     collection: (

                      (SequenceViewSpec

                         name: 'List2'

                         uuid: '2b3f2d20-d4fd-11e7-af82-c42c033b4871'

                         model: selectedClassIndexHolder

                         menu: classListMenu

                         hasHorizontalScrollBar: true

                         hasVerticalScrollBar: true

                         useIndex: true

                         sequenceList: classNameListHolder

                       )

                      (VariableHorizontalPanelSpec

                         name: 'VersionAndTagPanel'

                         uuid: '2b3f2c08-d4fd-11e7-af82-c42c033b4871'

                         component: 

                        (SpecCollection

                           collection: (

                            (SequenceViewSpec

                               name: 'VersionList'

                               uuid: '2b3f2d20-d4fd-11e7-af82-c42c033b4871'

                               model: selectedVersionIndexHolder

                               menu: versionsMenu

                               hasHorizontalScrollBar: true

                               hasVerticalScrollBar: true

                               useIndex: true

                               sequenceList: versionEntriesList

                             )

                            (SequenceViewSpec

                               name: 'List1'

                               uuid: '2b3f3086-d4fd-11e7-af82-c42c033b4871'

                               model: selectedSymbolicVersionIndexHolder

                               menu: symbolicVersionsMenu

                               hasHorizontalScrollBar: true

                               hasVerticalScrollBar: true

                               useIndex: true

                               sequenceList: symbolicVersionNameList

                             )

                            )

                         )

                         handles: (Any 0.5 1.0)

                       )

                      )

                   )

                   handles: (Any 0.5 1.0)

                 )

                (HorizontalPanelViewSpec

                   name: 'MethodListsPanel'

                   uuid: '2b3f3234-d4fd-11e7-af82-c42c033b4871'

                   horizontalLayout: fit

                   verticalLayout: fit

                   horizontalSpace: 3

                   verticalSpace: 3

                   component: 

                  (SpecCollection

                     collection: (

                      (ViewSpec

                         name: 'OnlyInABox'

                         uuid: '2b3f3464-d4fd-11e7-af82-c42c033b4871'

                         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)

                               uuid: '2b3f3568-d4fd-11e7-af82-c42c033b4871'

                               translateLabel: true

                               labelChannel: onlyInALabelHolder

                             )

                            (SequenceViewSpec

                               name: 'ListA'

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

                               uuid: '2b3f37c0-d4fd-11e7-af82-c42c033b4871'

                               model: methodsOnlyInASelection

                               menu: menuAHolder

                               hasHorizontalScrollBar: true

                               hasVerticalScrollBar: true

                               miniScrollerHorizontal: true

                               doubleClickSelector: methodInADoubleClicked:

                               valueChangeSelector: methodsOnlyInASelectionChanged

                               useIndex: true

                               sequenceList: methodsOnlyInA

                             )

                            )

                         )

                         extent: (Point 287 154)

                       )

                      (ViewSpec

                         name: 'ChangedBox'

                         uuid: '2b3f39a0-d4fd-11e7-af82-c42c033b4871'

                         visibilityChannel: boxMVisible

                         component: 

                        (SpecCollection

                           collection: (

                            (LabelSpec

                               label: 'Changed'

                               name: 'ChangedLabel'

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

                               uuid: '2b3f3a86-d4fd-11e7-af82-c42c033b4871'