"

 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:libbasic3' }"

"{ NameSpace: Tools }"

ApplicationModel subclass:#TextDiffTool

	instanceVariableNames:'labelAHolder textAHolder labelBHolder textBHolder diffSpecHolder

		showDiffHolder diffView numChangedTexts'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Diff'

!

!TextDiffTool 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.

"

! !

!TextDiffTool class methodsFor:'image specs'!

versionA24x24

    ^ToolbarIconLibrary versionA24x24

    "Created: / 24-03-2010 / 20:49:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

versionB24x24

    ^ToolbarIconLibrary versionB24x24

    "Created: / 24-03-2010 / 20:50:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

versionBase24x24

    ^ToolbarIconLibrary versionBase24x24

    "Created: / 24-03-2010 / 20:50:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!TextDiffTool class methodsFor:'interface specs'!

diffSpec

    "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::TextDiffTool andSelector:#diffSpec

     Tools::TextDiffTool new openInterface:#diffSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: diffSpec

        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: '2Labels'

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

              component: 

             (SpecCollection

                collection: (

                 (UISubSpecification

                    name: 'VersionA'

                    layout: (LayoutFrame 0 0 0 0 0 0.5 30 0)

                    minorKey: versionALabelSpec

                  )

                 (UISubSpecification

                    name: 'VersionB'

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

                    minorKey: versionBLabelSpec

                  )

                 )

              )

            )

           (ArbitraryComponentSpec

              name: 'Diff2TextView'

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

              hasHorizontalScrollBar: false

              hasVerticalScrollBar: false

              autoHideScrollBars: false

              hasBorder: false

              component: #'Tools::DiffCodeView2'

              postBuildCallback: postBuildDiffView:

            )

           )

        )

      )

!

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:Tools::TextDiffTool andSelector:#windowSpec

     Tools::TextDiffTool new openInterface:#windowSpec

     Tools::TextDiffTool open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Text Diff Tool'

          name: 'Text Diff Tool'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 640 480)

        )

        component: 

       (SpecCollection

          collection: (

           (UISubSpecification

              name: 'Contents'

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

              minorKey: windowSpecForEmbedding

            )

           )

        )

      )

    "Modified: / 30-06-2011 / 20:45:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

windowSpecForEmbedding

    "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::TextDiffTool andSelector:#windowSpecForEmbedding

     Tools::TextDiffTool new openInterface:#windowSpecForEmbedding

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpecForEmbedding

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

           (SubCanvasSpec

              name: 'Contents'

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

              hasHorizontalScrollBar: false

              hasVerticalScrollBar: false

              specHolder: diffSpecHolder

              createNewBuilder: false

            )

           )

        )

      )

! !

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

versionALabelSpec

    "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:SVN::DiffViewApp andSelector:#versionALabelSpec

     SVN::DiffViewApp new openInterface:#versionALabelSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: versionALabelSpec

        window: 

       (WindowSpec

          label: 'Version A'

          name: 'Version A'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 300 30)

        )

        component: 

       (SpecCollection

          collection: (

           (LabelSpec

              label: 'versionA24x24'

              name: 'VersionAIcon'

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

              hasCharacterOrientedLabel: false

              translateLabel: true

            )

           (LabelSpec

              label: 'Version A'

              name: 'VersionALabel'

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

              translateLabel: true

              labelChannel: labelAHolder

              resizeForLabel: true

              adjust: left

            )

           )

        )

      )

    "Modified: / 30-06-2011 / 20:53:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

versionBLabelSpec

    "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:SVN::DiffViewApp andSelector:#versionBLabelSpec

     SVN::DiffViewApp new openInterface:#versionBLabelSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: versionBLabelSpec

        window: 

       (WindowSpec

          label: 'Version B'

          name: 'Version B'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 300 30)

        )

        component: 

       (SpecCollection

          collection: (

           (LabelSpec

              label: 'versionB24x24'

              name: 'VersionBIcon'

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

              hasCharacterOrientedLabel: false

              translateLabel: true

            )

           (LabelSpec

              label: 'Version B'

              name: 'VersionBLabel'

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

              translateLabel: true

              labelChannel: labelBHolder

              resizeForLabel: true

              adjust: left

              useDynamicPreferredWidth: true

              usePreferredWidth: true

            )

           )

        )

      )

    "Modified: / 30-06-2011 / 20:53:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

versionBaseLabelSpec

    "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:SVN::DiffViewApp andSelector:#versionBaseLabelSpec

     SVN::DiffViewApp new openInterface:#versionBaseLabelSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: versionBaseLabelSpec

        window: 

       (WindowSpec

          label: 'Version Base'

          name: 'Version Base'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 300 30)

        )

        component: 

       (SpecCollection

          collection: (

           (LabelSpec

              label: 'versionBase24x24'

              name: 'VersionBaseIcon'

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

              hasCharacterOrientedLabel: false

              translateLabel: true

            )

           (LabelSpec

              label: 'Version Base'

              name: 'VersionBaseLabel'

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

              translateLabel: true

              labelChannel: versionBaseLabelAspect

              resizeForLabel: true

              adjust: left

              useDynamicPreferredWidth: true

              usePreferredWidth: true

            )

           )

        )

      )

    "Modified: / 24-03-2010 / 20:51:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

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

    ^ #(

        #labelAHolder

        #labelBHolder

        #textAHolder

        #textBHolder

      ).

! !

!TextDiffTool methodsFor:'aspects'!

diffSpecHolder

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

    diffSpecHolder isNil ifTrue:[

        diffSpecHolder := ValueHolder with: #diffSpec.

        diffSpecHolder addDependent:self.

    ].

    ^ diffSpecHolder

    "Modified: / 06-07-2011 / 11:57:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

diffSpecHolder:something

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

    |oldValue newValue|

    diffSpecHolder notNil ifTrue:[

        oldValue := diffSpecHolder value.

        diffSpecHolder removeDependent:self.

    ].

    diffSpecHolder := something.

    diffSpecHolder notNil ifTrue:[

        diffSpecHolder addDependent:self.

    ].

    newValue := diffSpecHolder value.

    oldValue ~~ newValue ifTrue:[

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

    ].

!

labelAHolder

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

    labelAHolder isNil ifTrue:[

        labelAHolder := ValueHolder new.

        labelAHolder addDependent:self.

    ].

    ^ labelAHolder

!

labelAHolder:something

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

    |oldValue newValue|

    labelAHolder notNil ifTrue:[

        oldValue := labelAHolder value.

        labelAHolder removeDependent:self.

    ].

    labelAHolder := something.

    labelAHolder notNil ifTrue:[

        labelAHolder addDependent:self.

    ].

    newValue := labelAHolder value.

    oldValue ~~ newValue ifTrue:[

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

    ].

!

labelBHolder

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

    labelBHolder isNil ifTrue:[

        labelBHolder := ValueHolder new.

        labelBHolder addDependent:self.

    ].

    ^ labelBHolder

!

labelBHolder:something

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

    |oldValue newValue|

    labelBHolder notNil ifTrue:[

        oldValue := labelBHolder value.

        labelBHolder removeDependent:self.

    ].

    labelBHolder := something.

    labelBHolder notNil ifTrue:[

        labelBHolder addDependent:self.

    ].

    newValue := labelBHolder value.

    oldValue ~~ newValue ifTrue:[

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

    ].

!

showDiffHolder

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

    showDiffHolder isNil ifTrue:[

        showDiffHolder := ValueHolder with: true.

        showDiffHolder addDependent:self.

    ].

    ^ showDiffHolder

    "Modified: / 30-06-2011 / 20:59:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

showDiffHolder:something

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

    |oldValue newValue|

    showDiffHolder notNil ifTrue:[

        oldValue := showDiffHolder value.

        showDiffHolder removeDependent:self.

    ].

    showDiffHolder := something.

    showDiffHolder notNil ifTrue:[

        showDiffHolder addDependent:self.

    ].

    newValue := showDiffHolder value.

    oldValue ~~ newValue ifTrue:[

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

    ].

!

textAHolder

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

    textAHolder isNil ifTrue:[

        textAHolder := ValueHolder new.

        textAHolder addDependent:self.

    ].

    ^ textAHolder

!

textAHolder:something

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

    |oldValue newValue|

    textAHolder notNil ifTrue:[

        oldValue := textAHolder value.