"

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

ApplicationModel subclass:#TextDiffTool

	instanceVariableNames:'labelHolder labelAHolder textAHolder labelBHolder textBHolder

		labelCHolder textCHolder languageHolder codeAspectHolder

		textAChanged textBChanged textCChanged contentSpecHolder diffView

		classHolder'

	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.

"

!

documentation

"

    documentation to be added.

    [author:]

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

    [instance variables:]

    [class variables:]

    [see also:]

"

!

examples

"

    See

        - TextDiff2Tool examples

        - TextDiff3Tool examples

"

! !

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

!

versionMerged24x24

    ^ToolbarIconLibrary versionMerged24x24

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

! !

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

     Tools::TextDiff2Tool new openInterface:#windowSpec

     Tools::TextDiff2Tool open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Text Diff Tool'

          name: 'Text Diff Tool'

          labelChannel: titleHolder

          min: (Point 10 10)

          bounds: (Rectangle 0 0 640 480)

        )

        component: 

       (SpecCollection

          collection: (

           (LabelSpec

              label: 'Label'

              name: 'Label1'

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

              translateLabel: true

              labelChannel: labelHolder

            )

           (UISubSpecification

              name: 'Contents'

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

              minorKey: windowSpecForEmbedding

            )

           )

        )

      )

!

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

     Tools::TextDiff2Tool 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: contentSpecHolder

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

!

versionCLabelSpec

    "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: versionCLabelSpec

        window: 

       (WindowSpec

          label: 'Version C'

          name: 'Version C'

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

              name: 'VersionCLabel'

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

              translateLabel: true

              labelChannel: labelCHolder

              resizeForLabel: true

              adjust: left

              useDynamicPreferredWidth: true

              usePreferredWidth: true

            )

           )

        )

      )

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

! !

!TextDiffTool class methodsFor:'plugIn spec'!

aspectSelectors

    ^#( 

        #labelHolder

        #labelAHolder

        #labelCHolder

        #textAHolder

        #textBHolder

        #textCHolder

        #languageHolder

        #codeAspectHolder

    )

    "Created: / 16-03-2012 / 12:18:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!TextDiffTool methodsFor:'accessing'!

label: aString

    ^self labelHolder value: aString

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

!

labelA: aString

    ^self labelAHolder value: aString

    "Created: / 16-03-2012 / 13:05:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

labelB: aString

    ^self labelBHolder value: aString

    "Modified: / 19-07-2011 / 11:41:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Created: / 30-08-2011 / 09:42:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

labelC: aString

    ^self labelCHolder value: aString

    "Modified: / 19-07-2011 / 11:41:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Created: / 16-03-2012 / 13:05:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

textA

    ^self textAHolder value

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

!

textA: aString

    ^self textAHolder value: aString

    "Created: / 30-08-2011 / 09:43:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

textB

    ^self textBHolder value

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

!

textB: aString

    ^self textBHolder value: aString

    "Created: / 30-08-2011 / 09:43:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

textC

    ^self textCHolder value

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

!

textC: aString

    ^self textCHolder value: aString

    "Created: / 16-03-2012 / 13:05:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

title: aString

    <resource: #obsolete>

    ^self label: aString

    "Created: / 30-08-2011 / 09:45:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!TextDiffTool methodsFor:'aspects'!

classHolder

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

    classHolder isNil ifTrue:[

        classHolder := ValueHolder new.

    ].

    ^ classHolder

!

classHolder: aValueHolder

    classHolder := aValueHolder.

    "codeView notNil ifTrue:[codeView classHolder: aValueHolder]."

    diffView notNil ifTrue:[diffView classHolder: aValueHolder].

    "Modified: / 19-07-2011 / 12:54:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

codeAspectHolder

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

    codeAspectHolder isNil ifTrue:[

        codeAspectHolder := ValueHolder with: #expression.

    ].

    ^ codeAspectHolder

    "Modified: / 19-07-2011 / 19:07:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

codeAspectHolder:something

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

    codeAspectHolder := something.

!

contentSpecHolder

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

    contentSpecHolder isNil ifTrue:[

        contentSpecHolder := ValueHolder new.

        contentSpecHolder addDependent:self.

    ].

    ^ contentSpecHolder

!

contentSpecHolder:something

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

    |oldValue newValue|

    contentSpecHolder notNil ifTrue:[

        oldValue := contentSpecHolder value.

        contentSpecHolder removeDependent:self.

    ].

    contentSpecHolder := something.

    contentSpecHolder notNil ifTrue:[

        contentSpecHolder addDependent:self.

    ].

    newValue := contentSpecHolder value.

    oldValue ~~ newValue ifTrue:[