"

 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague

              All Rights Reserved

Permission is hereby granted, free of charge, to any person

obtaining a copy of this software and associated documentation

files (the 'Software'), to deal in the Software without

restriction, including without limitation the rights to use,

copy, modify, merge, publish, distribute, sublicense, and/or sell

copies of the Software, and to permit persons to whom the

Software is furnished to do so, subject to the following

conditions:

The above copyright notice and this permission notice shall be

included in all copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,

EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES

OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND

NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT

HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,

WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR

OTHER DEALINGS IN THE SOFTWARE.

"

"{ Package: 'stx:libtool' }"

"{ NameSpace: Tools }"

ToolApplicationModel subclass:#ChangeSetBrowser2

	instanceVariableNames:'changesetHolder titleHolder allowOpenHolder changesetFile

		navigatorChangesetHolder navigatorSpecHolder list1 list1Holder

		selection1Holder list2 list2Holder selection2Holder classHolder

		languageHolder codeAspectHolder showRemovedAspect showSameAspect

		sourceView changeSourceHolder imageSourceHolder targetPackage

		targetNamespace allowRemoveHolder allowAcceptHolder infoPanel

		updateChangeFileHolder showFilterHolder'

	classVariableNames:'ShowRemoved LastSelectionConditionString'

	poolDictionaries:''

	category:'Interface-Browsers-ChangeSet'

!

ApplicationModel subclass:#ChangeEditor

	instanceVariableNames:'changeHolder readonlyHolder showdiffHolder sourceChangeHolder

		sourceImageHolder'

	classVariableNames:''

	poolDictionaries:''

	privateIn:ChangeSetBrowser2

!

!ChangeSetBrowser2 class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague

              All Rights Reserved

Permission is hereby granted, free of charge, to any person

obtaining a copy of this software and associated documentation

files (the 'Software'), to deal in the Software without

restriction, including without limitation the rights to use,

copy, modify, merge, publish, distribute, sublicense, and/or sell

copies of the Software, and to permit persons to whom the

Software is furnished to do so, subject to the following

conditions:

The above copyright notice and this permission notice shall be

included in all copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,

EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES

OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND

NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT

HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,

WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR

OTHER DEALINGS IN THE SOFTWARE.

"

! !

!ChangeSetBrowser2 class methodsFor:'instance creation'!

on: aChangeSet

    ^self on: aChangeSet label: aChangeSet name

    "Modified: / 26-10-2010 / 22:51:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

on: aChangeSet label: aString

    ^self on: aChangeSet label: aString setupWith: [:browser]

    "Created: / 26-10-2010 / 22:50:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

on: aChangeSet label: label setupWith: aBlock

    | browser |

    browser := self new.

    browser

        changeset: aChangeSet;

        title: label.

    aBlock value: browser.

    ^browser

    "Created: / 26-10-2010 / 22:50:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChangeSetBrowser2 class methodsFor:'accessing'!

showRemoved

    ^ShowRemoved == true

!

showRemoved: aBoolean

    ShowRemoved := aBoolean

! !

!ChangeSetBrowser2 class methodsFor:'help specs'!

flyByHelpSpec

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIHelpTool may not be able to read the specification."

    "

     UIHelpTool openOnClass:Tools::ChangeSetBrowser

    "

    <resource: #help>

    ^ super flyByHelpSpec addPairsFrom:#(

#fileLoad

'Select a file and show its contained changeset'

#fileSave

'Save the changeset in a file'

)

    "Created: / 27-12-2011 / 10:37:47 / cg"

! !

!ChangeSetBrowser2 class methodsFor:'interface opening'!

confirmChanges: aChangeSet

    ^self confirmChanges: aChangeSet label: 'Apply following changes?'

    "Modified: / 08-11-2010 / 18:01:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

confirmChanges:aChangeSet label: aString

    "Hmm, DialogBox class layout options are quite limited :-(("

    |browser browserView dialog|

    browser := self on: aChangeSet.

    browser allowAccept: false.

    browser allowRemove: true.

    browser beHierarchical.

    browserView := ApplicationSubView new

                client:browser

                spec:#windowSpecForEmbedding.

    dialog := (Dialog new)

                addComponent:browserView withHeight: 300;

                addAbortAndOkButtons;

                yourself.

    dialog label: aString.

    dialog buttonPanel

        layout:(LayoutFrame fractions:(0.0 @ 1.0 corner:1.0 @ 1.0)

                offsets:(0 @ -30 corner:0 @ 0)).

    browserView layout:(LayoutFrame fractions:(0.0 @ 0.0 corner:1.0 @ 1.0)

                offsets:(0 @ 0 corner:0 @ -30)).

    dialog

        okAction:

            [^browser list1Holder value condenseChangesForRemoved];

        abortAction:

            [^#()].

    dialog openWithExtent: 800@700.

    ^#()

    "

         Tools::ChangeSetBrowser2

            confirmChanges:

                (ChangeSet current copyFrom: ((ChangeSet current size - 10) max: 1) to: ChangeSet current size)

            label: 'Last 10 changes...'

    "

    "Created: / 08-11-2010 / 17:59:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 07-09-2011 / 20:19:44 / cg"

    "Modified: / 04-02-2012 / 19:36:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

open

    "Open browser and load current changefile"

    | browser |

    browser := self new.

    browser open.

    browser builder window sensor 

        pushUserEvent: #doOpenCurrent for: browser.

    "Created: / 25-01-2012 / 17:16:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

openOn: aChangeSet

    ^(self on: aChangeSet) 

        open;

        yourself.

    "

        self openOn: ChangeSet current

    "

    "Modified: / 30-01-2012 / 15:59:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

openOn: aChangeSet label: aString

    ^self openOn: aChangeSet label: aString setupWith: [:browser]

    "Created: / 26-10-2010 / 22:50:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

openOn: aChangeSet label: aString setupWith: aBlock

    ^(self on: aChangeSet label: aString setupWith: aBlock) open

    "Created: / 26-10-2010 / 23:07:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChangeSetBrowser2 class methodsFor:'interface specs'!

hierarchicalNavigatorSpec

    "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::ChangeSetBrowser2 andSelector:#hierarchicalNavigatorSpec

     Tools::ChangeSetBrowser2 new openInterface:#hierarchicalNavigatorSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: hierarchicalNavigatorSpec

        window: 

       (WindowSpec

          label: 'Hierarchical Navigator'

          name: 'Hierarchical Navigator'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 300 300)

        )

        component: 

       (SpecCollection

          collection: (

           (SubCanvasSpec

              name: 'ChangeList'

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

              hasHorizontalScrollBar: false

              hasVerticalScrollBar: false

              majorKey: #'Tools::HierarchicalChangeList'

              subAspectHolders: 

             (Array

               (SubChannelInfoSpec

                  subAspect: allowAcceptHolder

                  aspect: allowAcceptHolder

                ) 

               (SubChannelInfoSpec

                  subAspect: allowRemoveHolder

                  aspect: allowRemoveHolder

                )

               (SubChannelInfoSpec

                  subAspect: inGeneratorHolder

                  aspect: list1Holder

                ) 

               (SubChannelInfoSpec

                  subAspect: menuHolder

                  aspect: list1MenuHolder

                )

               (SubChannelInfoSpec

                  subAspect: selectionHolder

                  aspect: selection1Holder

                ) 

               (SubChannelInfoSpec

                  subAspect: showFilterHolder

                  aspect: showFilterHolder

                )

               (SubChannelInfoSpec

                  subAspect: showRemovedHolder

                  aspect: showRemovedAspect

                ) 

               (SubChannelInfoSpec

                  subAspect: showSameHolder

                  aspect: showSameAspect

                )

              )

              createNewApplication: true

              createNewBuilder: true

              postBuildCallback: list1View:

            )

           )

        )

      )

!

oneColumnNavigatorSpec

    "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::ChangeSetBrowser2 andSelector:#oneColumnNavigatorSpec

     Tools::ChangeSetBrowser2 new openInterface:#oneColumnNavigatorSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: oneColumnNavigatorSpec

        window: 

       (WindowSpec

          label: 'One Column Navigator'

          name: 'One Column Navigator'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 300 300)

        )

        component: 

       (SpecCollection

          collection: (

           (SubCanvasSpec

              name: 'ChangeList'

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

              hasHorizontalScrollBar: false

              hasVerticalScrollBar: false

              majorKey: #'Tools::ChangeList'

              subAspectHolders: 

             (Array

               (SubChannelInfoSpec

                  subAspect: allowAcceptHolder

                  aspect: allowAcceptHolder

                ) 

               (SubChannelInfoSpec

                  subAspect: allowRemoveHolder

                  aspect: allowRemoveHolder

                )

               (SubChannelInfoSpec

                  subAspect: inGeneratorHolder

                  aspect: list1Holder

                ) 

               (SubChannelInfoSpec

                  subAspect: menuHolder

                  aspect: list1MenuHolder

                )

               (SubChannelInfoSpec

                  subAspect: selectionHolder

                  aspect: selection1Holder

                ) 

               (SubChannelInfoSpec

                  subAspect: showFilterHolder

                  aspect: showFilterHolder

                )

               (SubChannelInfoSpec

                  subAspect: showRemovedHolder

                  aspect: showRemovedAspect

                ) 

               (SubChannelInfoSpec

                  subAspect: showSameHolder

                  aspect: showSameAspect

                )

              )

              createNewApplication: true

              createNewBuilder: true

              postBuildCallback: list1View:

            )

           )

        )

      )

!

twoColumnNavigatorSpec

    "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::ChangeSetBrowser2 andSelector:#twoColumnNavigatorSpec

     Tools::ChangeSetBrowser2 new openInterface:#twoColumnNavigatorSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: twoColumnNavigatorSpec

        window: 

       (WindowSpec

          label: 'Two Column Navigator'

          name: 'Two Column Navigator'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 300 300)

        )

        component: 

       (SpecCollection

          collection: (

           (VariableHorizontalPanelSpec

              name: 'Columns'

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

              component: 

             (SpecCollection

                collection: (

                 (SubCanvasSpec

                    name: 'FirstColumn'

                    hasHorizontalScrollBar: false

                    hasVerticalScrollBar: false

                    majorKey: #'Tools::ChangeList'

                    subAspectHolders: 

                   (Array

                     (SubChannelInfoSpec

                        subAspect: allowAcceptHolder

                        aspect: allowAcceptHolder

                      ) 

                     (SubChannelInfoSpec

                        subAspect: allowRemoveHolder

                        aspect: allowRemoveHolder

                      )

                     (SubChannelInfoSpec

                        subAspect: inGeneratorHolder

                        aspect: list1Holder

                      ) 

                     (SubChannelInfoSpec

                        subAspect: menuHolder

                        aspect: list1MenuHolder

                      )

                     (SubChannelInfoSpec

                        subAspect: outGeneratorHolder

                        aspect: list2Holder

                      ) 

                     (SubChannelInfoSpec

                        subAspect: selectionHolder

                        aspect: selection1Holder

                      )

                     (SubChannelInfoSpec

                        subAspect: showFilterHolder

                        aspect: showFilterHolder

                      ) 

                     (SubChannelInfoSpec

                        subAspect: showRemovedHolder

                        aspect: showRemovedAspect

                      )

                     (SubChannelInfoSpec

                        subAspect: showSameHolder

                        aspect: showSameAspect

                      )

                    )

                    createNewApplication: true

                    createNewBuilder: true

                    postBuildCallback: list1View:

                  )

                 (SubCanvasSpec

                    name: 'SecondColumn'

                    hasHorizontalScrollBar: false

                    hasVerticalScrollBar: false

                    majorKey: #'Tools::ChangeList'