"

 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 methodsChangedSelection

		methodsOnlyInA methodsOnlyInASelection methodsOnlyInB

		methodsOnlyInBSelection onlyInALabelHolder onlyInBLabelHolder

		classHolder versionAHolder versionBHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Browsers'

!

HierarchicalItem subclass:#ClassChangeSet

	instanceVariableNames:'classBeingCompared labelA labelB diffSet onlyInA onlyInB

		changedMethods 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 0 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

                                valueChangeSelector: methodsOnlyInASelectionChanged

                                useIndex: true

                                sequenceList: methodsOnlyInA

                              )

                             )

                          )

                          extent: (Point 286 252)

                        )

                       (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

                                valueChangeSelector: methodsChangedSelectionChanged

                                useIndex: true

                                sequenceList: methodsChanged

                              )

                             )

                          )

                          extent: (Point 286 252)

                        )

                       (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

                                valueChangeSelector: methodsOnlyInBSelectionChanged

                                useIndex: true

                                sequenceList: methodsOnlyInB

                              )

                             )

                          )

                          extent: (Point 287 252)

                        )

                       )

                    )

                  )

                 (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

                        )

                       )

                    )

                  )

                 )

              )

              handles: (Any 0.5 1.0)

            )

           )

        )

      )

! !

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

            translateLabel: true

            submenu: 

           (Menu

              (

               (MenuItem

                  label: 'Create PatchFile...'

                  itemValue: createPatchFile

                  translateLabel: true

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'Exit'

                  itemValue: closeRequest

                  translateLabel: true

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            label: 'Help'

            translateLabel: true

            startGroup: conditionalRight

            submenu: 

           (Menu

              (

               (MenuItem

                  label: 'Documentation'

                  itemValue: openDocumentation

                  translateLabel: true

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'About this Application...'

                  itemValue: openAboutThisApplication

                  translateLabel: true

                )

               )

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

            #translateLabel: true

            #value: #inspectSelectedChangeInB

            #choiceValue: 'nil "UndefinedObject" '

            #enabled: #hasChangeSelectedInA

          )

         )

        nil

        nil

      )

!

menuM

    "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: 'Browse'

            #translateLabel: true

            #value: #browseClassInM

            #enabled: #hasChangeSelectedInM

          )

         #(#MenuItem

            #label: '-'

          )

         #(#MenuItem

            #label: 'Inspect both'

            #translateLabel: true

            #value: #inspectSelectedChangeInM

            #choiceValue: 'nil "UndefinedObject" '

            #enabled: #hasChangeSelectedInM

          )

         )

        nil

        nil

      )

! !

!VersionDiffBrowser class methodsFor:'plugIn spec'!

aspectSelectors

    "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."

    "Return a description of exported aspects;

     these can be connected to aspects of an embedding application

     (if this app is embedded in a subCanvas)."

    ^ #(

        #changedLabelHolder

        #onlyInALabelHolder

        #onlyInBLabelHolder

      ).

! !

!VersionDiffBrowser class methodsFor:'startup'!

openOnClass:aClass againstVersion:aVersionA 

    "

    create an VersionDiffBrowser instance and set the class change set of the

    browser. The class diff set is generated from classes current against some version

    via the source code manager .