"

 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'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Browsers'

!

HierarchicalItem subclass:#ClassChangeSet

	instanceVariableNames:'class1BeingCompared class2BeingCompared labelA labelB diffSet

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

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

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

				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

	    )

	   )

	)

      )

!

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

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

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

                               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'

                               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)