"

 COPYRIGHT (c) 2006 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: Tools }"

TextDiffTool subclass:#TextDiff3Tool

	instanceVariableNames:'labelMergedHolder textMergedHolder mergeHolder mergeDataHolder

		mergeView mergeService'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Diff'

!

CodeViewService subclass:#MergeService

	instanceVariableNames:'dataHolder data sectionInterval'

	classVariableNames:''

	poolDictionaries:''

	privateIn:TextDiff3Tool

!

!TextDiff3Tool class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2006 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

"

    documentation to be added.

    [author:]

        Jan Vrany <jan.vrany@fit.cvut.cz>

    [instance variables:]

    [class variables:]

    [see also:]

"

!

examples

"

  Starting the application:

                                                                [exBegin]

    Tools::TextDiff3Tool open

                                                                [exEnd]

  more examples to be added:

                                                                [exBegin]

    ... add code fragment for 

    ... executable example here ...

                                                                [exEnd]

"

! !

!TextDiff3Tool class methodsFor:'defaults - colors'!

colorA

    ^(Color red:54.1176470588235 green:75.2941176470588 blue:28.6274509803922) lighter

    "Created: / 19-03-2012 / 13:11:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

colorB

    ^(Color red:96.078431372549 green:73.7254901960784 blue:0.0) lighter

    "Created: / 19-03-2012 / 13:11:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

colorBase

    ^(Color red:5.88235294117647 green:58.8235294117647 blue:80.3921568627451) lighter

    "Created: / 19-03-2012 / 13:12:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

colorConflict

    ^Color red

    "Created: / 19-03-2012 / 13:12:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

colorMerged

    ^(Color red:83.921568627451 green:17.2549019607843 blue:85.0980392156863) lighter

    "Created: / 19-03-2012 / 13:11:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!TextDiff3Tool class methodsFor:'interface specs'!

diff3Spec

    "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:Tools::TextDiff3Tool andSelector:#diff3Spec

     Tools::TextDiff3Tool new openInterface:#diff3Spec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: diff3Spec

        window: 

       (WindowSpec

          label: 'Text Diff Tool (for embedding)'

          name: 'Text Diff Tool (for embedding)'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 782 506)

        )

        component: 

       (SpecCollection

          collection: (

           (ViewSpec

              name: '3Labels'

              layout: (LayoutFrame 0 0 0 0 -16 1 30 0)

              component: 

             (SpecCollection

                collection: (

                 (UISubSpecification

                    name: 'VersionC'

                    layout: (LayoutFrame 0 0 0 0 0 0.33333 30 0)

                    minorKey: versionCLabelSpec

                  )

                 (UISubSpecification

                    name: 'VersionA'

                    layout: (LayoutFrame 5 0.3333 0 0 0 0.67 30 0)

                    minorKey: versionALabelSpec

                  )

                 (UISubSpecification

                    name: 'VersionB'

                    layout: (LayoutFrame 5 0.67 0 0 0 1 30 0)

                    minorKey: versionBLabelSpec

                  )

                 )

              )

            )

           (ArbitraryComponentSpec

              name: 'Diff3TextView'

              layout: (LayoutFrame 0 0 30 0 0 1 0 1)

              hasHorizontalScrollBar: false

              hasVerticalScrollBar: false

              autoHideScrollBars: false

              hasBorder: false

              component: #'Tools::Diff3CodeView2'

              postBuildCallback: postBuildDiffView:

            )

           )

        )

      )

!

mergeSpec

    "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:Tools::TextDiff3Tool andSelector:#mergeSpec

     Tools::TextDiff3Tool new openInterface:#mergeSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: mergeSpec

        window: 

       (WindowSpec

          label: 'Merge view'

          name: 'Merge view'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 782 506)

        )

        component: 

       (SpecCollection

          collection: (

           (VariableVerticalPanelSpec

              name: 'DiffAndMergePanel'

              layout: (LayoutFrame 0 0 0 0 0 1 0 1)

              component: 

             (SpecCollection

                collection: (

                 (UISubSpecification

                    name: 'DiffView'

                    minorKey: diff3Spec

                  )

                 (TransparentBoxSpec

                    name: 'MergeView'

                    component: 

                   (SpecCollection

                      collection: (

                       (UISubSpecification

                          name: 'MergeLabel'

                          layout: (LayoutFrame 0 0 0 0 0 1 30 0)

                          minorKey: versionMergedLabelSpec

                        )

                       (TextEditorSpec

                          name: 'MergeCode'

                          layout: (LayoutFrame 0 0 30 0 0 1 0 1)

                          model: textMergedHolder

                          hasHorizontalScrollBar: true

                          hasVerticalScrollBar: true

                          hasKeyboardFocusInitially: false

                          viewClassName: 'Tools::CodeView2'

                          postBuildCallback: postBuildMergeView:

                        )

                       )

                    )

                  )

                 )

              )

              handles: (Any 0.5 1.0)

            )

           )

        )

      )

! !

!TextDiff3Tool class methodsFor:'interface specs - labels'!

versionMergedLabelSpec

    "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:Tools::TextDiff3Tool andSelector:#versionMergedLabelSpec

     Tools::TextDiff3Tool new openInterface:#versionMergedLabelSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: versionMergedLabelSpec

        window: 

       (WindowSpec

          label: 'Merge'

          name: 'Merge'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 774 30)

        )

        component: 

       (SpecCollection

          collection: (

           (LabelSpec

              label: 'versionMerged24x24'

              name: 'VersionMergedIcon'

              layout: (LayoutFrame 0 0 -12 0.5 27 0 12 0.5)

              hasCharacterOrientedLabel: false

              translateLabel: true

            )

           (LabelSpec

              label: 'Merge'

              name: 'VersionMergeLabel'

              layout: (LayoutFrame 30 0 5 0 -350 1 0 1)

              translateLabel: true

              labelChannel: labelMergedHolder

              resizeForLabel: true

              adjust: left

              useDynamicPreferredWidth: true

              usePreferredWidth: true

            )

           (HorizontalPanelViewSpec

              name: 'HorizontalPanel1'

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

              horizontalLayout: center

              verticalLayout: center

              horizontalSpace: 3

              verticalSpace: 3

              component: 

             (SpecCollection

                collection: (

                 (ActionButtonSpec

                    label: 'Merge'

                    name: 'MergeAuto'

                    translateLabel: true

                    model: doMergeAuto

                    extent: (Point 80 22)

                  )

                 (ActionButtonSpec

                    label: 'Use Base'

                    name: 'MergeBase'

                    translateLabel: true

                    model: doMergeUsingBase

                    extent: (Point 80 22)

                  )

                 (ActionButtonSpec

                    label: 'Use A'

                    name: 'MergeUsingA'

                    translateLabel: true

                    model: doMergeUsingA

                    extent: (Point 80 22)

                  )

                 (ActionButtonSpec

                    label: 'Use B'

                    name: 'MergeUsingB'

                    translateLabel: true

                    model: doMergeUsingB

                    extent: (Point 80 22)

                  )

                 )

              )

            )

           )

        )

      )

! !

!TextDiff3Tool 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)."

    ^ #(

        #codeAspectHolder

        #labelAHolder

        #labelBHolde

        #labelCHolder

        #labelHolder

        #languageHolder

        #textAHolder

        #textBHolder

        #textCHolder

        #mergeHolder

        #mergeDataHolder

      ).

    "Modified: / 19-03-2012 / 11:54:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!TextDiff3Tool methodsFor:'accessing'!

beDiff3Tool

    self mergeHolder value: false

    "Created: / 17-03-2012 / 12:23:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

beMergeTool

    self mergeHolder value: true

    "Created: / 17-03-2012 / 12:23:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

mergeData

    ^self mergeDataHolder value

    "Created: / 20-03-2012 / 14:17:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!TextDiff3Tool methodsFor:'actions'!

doMergeAuto

    self mergeDataHolder value 

        text1: self textC text2: self textA text3: self textB.

    "Created: / 17-03-2012 / 12:55:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doMergeUsingA

    | interval |

    interval := mergeService sectionInterval.

    interval notNil ifTrue:[

        self mergeData mergeUsingA: self textA interval: interval

    ] ifFalse:[

        self mergeData mergeUsingA: self textA

    ]

    "Created: / 17-03-2012 / 12:55:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doMergeUsingB

    | interval |

    interval := mergeService sectionInterval.

    interval notNil ifTrue:[

        self mergeData mergeUsingB: self textB interval: interval

    ] ifFalse:[

        self mergeData mergeUsingB: self textA

    ]

    "Created: / 17-03-2012 / 12:55:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doMergeUsingBase

    | interval |

    interval := mergeService sectionInterval.

    interval notNil ifTrue:[

        self mergeData mergeUsingBase: self textC interval: interval

    ] ifFalse:[

        self mergeData mergeUsingBase: self textC

    ]

    "Created: / 17-03-2012 / 12:55:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!TextDiff3Tool methodsFor:'aspects'!

mergeDataHolder

    "return/create the 'mergeDataHolder' value holder (automatically generated)"

    mergeDataHolder isNil ifTrue:[

        mergeDataHolder := ValueHolder new.

        mergeDataHolder addDependent:self.

    ].

    ^ mergeDataHolder

!

mergeDataHolder:something

    "set the 'mergeDataHolder' value holder (automatically generated)"

    |oldValue newValue|

    mergeDataHolder notNil ifTrue:[

        oldValue := mergeDataHolder value.

        mergeDataHolder removeDependent:self.

    ].

    mergeDataHolder := something.

    mergeDataHolder notNil ifTrue:[

        mergeDataHolder addDependent:self.

    ].

    newValue := mergeDataHolder value.

    oldValue ~~ newValue ifTrue:[

        self update:#value with:newValue from:mergeDataHolder.

    ].

!

mergeHolder

    "return/create the 'mergeHolder' value holder (automatically generated)"

    mergeHolder isNil ifTrue:[

        mergeHolder := ValueHolder with: false.

        mergeHolder addDependent:self.

    ].

    ^ mergeHolder

    "Modified: / 16-03-2012 / 13:24:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

mergeHolder:something

    "set the 'mergeHolder' value holder (automatically generated)"

    |oldValue newValue|

    mergeHolder notNil ifTrue:[

        oldValue := mergeHolder value.