"

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

BrowserListWithFilter subclass:#ChangeList

	instanceVariableNames:'listHolder showRemovedHolder showSameHolder

		showConflictsOnlyHolder allowRemoveHolder allowAcceptHolder

		applyAction'

	classVariableNames:'LastSelectionConditionString'

	poolDictionaries:''

	category:'Interface-Browsers-ChangeSet'

!

HierarchicalItem subclass:#ListEntry

	instanceVariableNames:'change application x'

	classVariableNames:''

	poolDictionaries:''

	privateIn:ChangeList

!

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

"

! !

!ChangeList class methodsFor:'image specs'!

iconEqual

    ^ ToolbarIconLibrary iconEqual12x12

    "Modified: / 31-08-2011 / 10:52:34 / cg"

!

iconEqualGrayed

    ^ ToolbarIconLibrary iconEqualGray12x12

    "Modified: / 31-08-2011 / 10:54:00 / cg"

!

iconExcla

    ^ ToolbarIconLibrary iconExclaRed12x12

!

iconMinus

    ^ ToolbarIconLibrary iconMinusRed12x12

    "Modified: / 24-07-2012 / 16:43:36 / cg"

!

iconMinusGrayed

    ^ ToolbarIconLibrary iconMinusGray12x12

    "Modified: / 31-08-2011 / 10:54:40 / cg"

!

iconPlus

    ^ ToolbarIconLibrary iconPlusBlue12x12

    "Modified: / 24-07-2012 / 16:43:31 / cg"

!

iconPlusGrayed

    ^ ToolbarIconLibrary iconPlusGray12x12

    "Modified: / 31-08-2011 / 10:54:46 / cg"

! !

!ChangeList 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::ChangeList andSelector:#windowSpec

     Tools::ChangeList new openInterface:#windowSpec

     Tools::ChangeList open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Change List'

          name: 'Change List'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 300 300)

        )

        component: 

       (SpecCollection

          collection: (

           (SelectionInListModelViewSpec

              name: 'List'

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

              model: selectionHolder

              menu: menuHolderWithShowFilter

              hasHorizontalScrollBar: true

              hasVerticalScrollBar: true

              listModel: listHolder

              multipleSelectOk: true

              useIndex: false

              highlightMode: line

              doubleClickSelector: selectionDoubleclicked

              postBuildCallback: postBuildListView:

            )

           (InputFieldSpec

              name: 'Filter'

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

              initiallyInvisible: true

              model: filterPatternHolder

              immediateAccept: true

              acceptOnLeave: false

              acceptOnReturn: false

              acceptOnTab: false

              acceptOnPointerLeave: false

              emptyFieldReplacementText: 'Search Filter...'

              usePreferredHeight: true

              useDynamicPreferredHeight: true

              postBuildCallback: postBuildFilterView:

            )

           )

        )

      )

    "Modified: / 29-11-2011 / 15:52:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChangeList class methodsFor:'menu specs'!

listMenu

    "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:Tools::ChangeList andSelector:#listMenu

     (Menu new fromLiteralArrayEncoding:(Tools::ChangeList listMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            enabled: hasChangeSelectedAndNotRemoved

            label: 'Apply'

            itemValue: listMenuApply

            translateLabel: true

            isVisible: allowAcceptHolder

            shortcutKey: Accept

          )

         (MenuItem

            label: 'Apply all'

            itemValue: listMenuApplyAll

            translateLabel: true

            isVisible: allowAcceptHolder

          )

         (MenuItem

            enabled: hasSingleChangeSelectedAndCanBrowse

            label: 'Browse'

            itemValue: listMenuBrowse

            translateLabel: true

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            label: 'Delete'

            itemValue: listMenuDeleteSelection

            nameKey: Delete

            translateLabel: true

            isVisible: allowRemoveHolder

            shortcutKey: Delete

          )

         (MenuItem

            label: '-'

            isVisible: allowRemoveHolder

          )

         (MenuItem

            label: 'Select...'

            translateLabel: true

            submenu: 

           (Menu

              (

               (MenuItem

                  label: 'Select same'

                  itemValue: listMenuSelectSame

                  translateLabel: true

                )

               (MenuItem

                  label: 'Select conflicts (redefined classes/methods)'

                  itemValue: listMenuSelectConflicts

                  translateLabel: true

                )

               (MenuItem

                  label: 'Select additions (new classes/methods)'

                  itemValue: listMenuSelectAdditions

                  translateLabel: true

                )

               (MenuItem

                  label: 'Select removals'

                  itemValue: listMenuSelectRemovals

                  translateLabel: true

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'Select all'

                  itemValue: listMenuSelectAll

                  translateLabel: true

                )

               (MenuItem

                  label: 'Select none'

                  itemValue: listMenuSelectNone

                  translateLabel: true

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'Select using block'

                  itemValue: listMenuSelectUsingBlock

                  translateLabel: true

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            label: 'Show Deleted'

            translateLabel: true

            isVisible: allowRemoveHolder

            indication: showRemovedHolder

          )

         (MenuItem

            label: 'Inspect change'

            itemValue: listMenuInspect

            translateLabel: true

          )

         )

        nil

        nil

      )

! !

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

    ^ #(

        #allowAcceptHolder

        #allowRemoveHolder

        #inGeneratorHolder

        #menuHolder

        #outGeneratorHolder

        #selectionHolder

        #showRemovedHolder

        #showSameHolder

        #showConflictsOnlyHolder

      ).

    "Modified: / 24-01-2012 / 19:54:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChangeList methodsFor:'accessing'!

acceptEnabled

    ^ self allowAccept

    "Created: / 08-02-2012 / 14:45:12 / cg"

!

allowAccept

    ^ self allowAcceptHolder value

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

!

allowAccept: aBoolean

    ^ self allowAcceptHolder value: aBoolean

    "Created: / 24-01-2012 / 19:52:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

allowRemoved

    ^ self allowRemoveHolder value ? true

    "Created: / 05-12-2009 / 14:28:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

applyAction:aBlock

    applyAction := aBlock.

    "Modified (format): / 10-09-2012 / 14:15:30 / cg"

!

list

    ^ listHolder value

    "Created: / 05-12-2009 / 14:48:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Created: / 27-12-2011 / 14:18:25 / cg"

!

selection

    ^self selectionHolder value

    "Created: / 05-12-2009 / 14:48:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

selectionIndices

    |sel|

    (sel := self selectionHolder value) isEmptyOrNil ifTrue:[^ #()].

    ^ sel collect:[:each | self list identityIndexOf:each].

    "Created: / 05-12-2009 / 14:48:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Created: / 27-12-2011 / 10:56:20 / cg"

!

showRemoved

    ^self showRemovedHolder value ? true

    "Created: / 05-12-2009 / 14:28:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChangeList methodsFor:'actions'!

selectionDoubleclicked

    self listMenuBrowse

"/    | app |

"/

"/    self selection do:

"/        [:e|e removed: e removed not].

"/    ((app := self masterApplication) respondsTo: #redrawChangeListViews)

"/        ifTrue:[app redrawChangeListViews].

    "Modified: / 24-01-2012 / 22:01:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChangeList methodsFor:'aspects'!

allowAcceptHolder

    "return/create the valueHolder 'acceptEnabledHolder'"

    allowAcceptHolder isNil ifTrue:[

        allowAcceptHolder := ValueHolder with:nil "defaultValue here".

    ].

    ^ allowAcceptHolder

    "Created: / 24-01-2012 / 19:53:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

allowAcceptHolder:something

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

    allowAcceptHolder := something.

!

allowRemoveHolder

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

    allowRemoveHolder isNil ifTrue:[

        allowRemoveHolder := ValueHolder with:true.

        allowRemoveHolder addDependent:self.

    ].

    ^ allowRemoveHolder

    "Modified (comment): / 24-01-2012 / 19:44:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

allowRemoveHolder:something 

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

    |oldValue newValue|

    allowRemoveHolder notNil ifTrue:[

        oldValue := allowRemoveHolder value.

        allowRemoveHolder removeDependent:self.

    ].

    allowRemoveHolder := something.

    allowRemoveHolder notNil ifTrue:[

        allowRemoveHolder addDependent:self.

    ].

    newValue := allowRemoveHolder value.

    oldValue ~~ newValue ifTrue:[

        self 

            update:#value

            with:newValue

            from:allowRemoveHolder.

    ].

!

listHolder

    listHolder isNil ifTrue:[

        listHolder := ValueHolder new.

    ].

    ^ listHolder

!

showConflictsOnlyHolder

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

    showConflictsOnlyHolder isNil ifTrue:[

        showConflictsOnlyHolder := ValueHolder with: true.

        showConflictsOnlyHolder addDependent: self.

    ].

    ^ showConflictsOnlyHolder

!

showConflictsOnlyHolder:something

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

    |oldValue newValue|

    showConflictsOnlyHolder notNil ifTrue:[

        oldValue := showConflictsOnlyHolder value.

        showConflictsOnlyHolder removeDependent:self.

    ].

    showConflictsOnlyHolder := something.

    showConflictsOnlyHolder notNil ifTrue:[

        showConflictsOnlyHolder addDependent:self.

    ].

    newValue := showConflictsOnlyHolder value.

    oldValue ~~ newValue ifTrue:[

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

    ].

!