"

 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 changedLabelHolder diffTextLabelA

		diffTextLabelB methodText methodsChanged methodsChangedFiltered

		methodsChangedSelection methodsOnlyInA methodsOnlyInAFiltered

		methodsOnlyInASelection methodsOnlyInB methodsOnlyInBFiltered

		methodsOnlyInBSelection onlyInALabelHolder onlyInBLabelHolder

		classHolder versionAHolder versionBHolder infoHolder

		includeExtensionsHolder canIncludeExtensionsHolder

		includeCategoryChangesHolder includeVersionMethodsHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Browsers'

!

HierarchicalItem subclass:#ClassChangeSet

	instanceVariableNames:'classBeingCompared 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 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

	    )

	   )

	)

      )

! !

!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'

            submenu: 

           (Menu

              (

               (MenuItem

                  label: 'Create PatchFile...'

                  itemValue: createPatchFile

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'Exit'

                  itemValue: closeRequest

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            label: 'Class'

            submenu: 

           (Menu

              (

               (MenuItem

                  label: 'Remove from Changeset'

                  itemValue: removeClassFromChangeSet

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            label: 'View'

            submenu: 

           (Menu

              (

               (MenuItem

                  enabled: canIncludeExtensionsHolder

                  label: 'Include Extensions'

                  itemValue: includeExtensions:

                  indication: includeExtensionsHolder

                )

               (MenuItem

                  enabled: canIncludeExtensionsHolder

                  label: 'Include Version Methods'

                  itemValue: includeVersionMethods:

                  indication: includeVersionMethodsHolder

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'Include Category Changes'

                  itemValue: includeCategoryChanges:

                  indication: includeCategoryChangesHolder

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            label: 'Help'

            startGroup: conditionalRight

            submenu: 

           (Menu

              (

               (MenuItem

                  label: 'Documentation'

                  itemValue: openDocumentation

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'About this Application...'

                  itemValue: 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: 'Apply'

	    #translateLabel: true

	    #value: #applySelectedChangeInA

	    #enabled: #hasChangeSelectedInA

	  )

	 #(#MenuItem

	    #label: 'Browse'

	    #translateLabel: true

	    #value: #browseClassInA

	    #enabled: #hasChangeSelectedInA

	  )

	 #(#MenuItem

	    #label: '-'

	  )

	 #(#MenuItem

	    #label: 'Inspect'

	    #translateLabel: true

	    #value: #inspectSelectedChangeInA

	    #choiceValue: 'nil "UndefinedObject" '

	    #enabled: #hasChangeSelectedInA

	  )

	 )

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

	    #translateLabel: true

	    #value: #applySelectedChangeInB

	    #enabled: #hasChangeSelectedInB

	  )

	 #(#MenuItem

	    #label: 'Browse'

	    #translateLabel: true

	    #value: #browseClassInB

	    #enabled: #hasChangeSelectedInB

	  )

	 #(#MenuItem

	    #label: '-'

	  )

	 #(#MenuItem

	    #label: 'Remove in Image'

	    #translateLabel: true

	    #value: #removeSelectedChangeInBFromImage

	    #enabled: #hasChangeSelectedInB

	  )

	 #(#MenuItem

	    #label: '-'

	  )

	 #(#MenuItem

	    #label: 'Inspect'

	    #translateLabel: true

	    #value: #inspectSelectedChangeInB

	    #choiceValue: 'nil "UndefinedObject" '

	    #enabled: #hasChangeSelectedInB

	  )

	 )

	nil

	nil

      )