"

stx:libscm - a new source code management library for Smalltalk/X

Copyright (C) 2012-2013 Jan Vrany

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Lesser General Public

License as published by the Free Software Foundation; either

version 2.1 of the License. 

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public

License along with this library; if not, write to the Free Software

Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

"

"{ Package: 'stx:libscm/mercurial' }"

ApplicationModel subclass:#HGChangesetBrowser

	instanceVariableNames:'repositoryHolder revsetHolder changesetList changesetHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Mercurial-StX-Interface'

!

!HGChangesetBrowser class methodsFor:'documentation'!

copyright

"

stx:libscm - a new source code management library for Smalltalk/X

Copyright (C) 2012-2013 Jan Vrany

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Lesser General Public

License as published by the Free Software Foundation; either

version 2.1 of the License. 

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public

License along with this library; if not, write to the Free Software

Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

"

! !

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

     HGChangesetBrowser new openInterface:#windowSpec

     HGChangesetBrowser open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       window: 

      (WindowSpec

         label: 'HG History Browser'

         name: 'HG History Browser'

         min: (Point 10 10)

       )

       component: 

      (SpecCollection

         collection: (

          (VariableVerticalPanelSpec

             name: 'VariableVerticalPanel1'

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

             component: 

            (SpecCollection

               collection: (

                (ViewSpec

                   name: 'ChangesetListBox'

                   component: 

                  (SpecCollection

                     collection: (

                      (SubCanvasSpec

                         name: 'RevsetEditor'

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

                         hasHorizontalScrollBar: false

                         hasVerticalScrollBar: false

                         majorKey: HGRevsetEditor

                         subAspectHolders: 

                        (Array

                          (SubChannelInfoSpec

                             subAspect: revsetHolder

                             aspect: revsetHolder

                           )

                         )

                         createNewApplication: true

                         createNewBuilder: true

                       )

                      (SubCanvasSpec

                         name: 'ChangesetList'

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

                         hasHorizontalScrollBar: false

                         hasVerticalScrollBar: false

                         majorKey: HGChangesetList

                         subAspectHolders: 

                        (Array

                          (SubChannelInfoSpec

                             subAspect: changesetHolder

                             aspect: changesetHolder

                           ) 

                          (SubChannelInfoSpec

                             subAspect: changesetList

                             aspect: changesetList

                           )

                         )

                         createNewApplication: true

                         createNewBuilder: true

                       )

                      )

                   )

                 )

                (SubCanvasSpec

                   name: 'SubCanvas1'

                   hasHorizontalScrollBar: false

                   hasVerticalScrollBar: false

                   subAspectHolders: 

                  (Array

                    (SubChannelInfoSpec

                       subAspect: changesetHolder

                       aspect: changesetHolder

                     )

                   )

                   createNewApplication: true

                   createNewBuilder: true

                 )

                )

             )

             handles: (Any 0.5 1.0)

           )

          )

       )

     )

! !

!HGChangesetBrowser methodsFor:'accessing'!

repository

    ^ self repositoryHolder value

    "Created: / 11-03-2014 / 20:54:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

repository: anHGRepository

    self repositoryHolder value: anHGRepository

    "Created: / 11-03-2014 / 20:54:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

revset

    ^ self revsetHolder value

    "Created: / 11-03-2014 / 20:55:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

revset: anHGRevset

    ^ self revsetHolder value: anHGRevset

    "Created: / 11-03-2014 / 20:55:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGChangesetBrowser methodsFor:'aspects'!

changesetHolder

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

    changesetHolder isNil ifTrue:[

        changesetHolder := ValueHolder new.

    ].

    ^ changesetHolder

!

changesetList

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

    changesetList isNil ifTrue:[

        changesetList := List new.

    ].

    ^ changesetList

    "Modified: / 14-03-2014 / 23:29:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

repositoryHolder

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

    repositoryHolder isNil ifTrue:[

        repositoryHolder := ValueHolder new.

        repositoryHolder addDependent:self.

    ].

    ^ repositoryHolder

!

repositoryHolder:something

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

    |oldValue newValue|

    repositoryHolder notNil ifTrue:[

        oldValue := repositoryHolder value.

        repositoryHolder removeDependent:self.

    ].

    repositoryHolder := something.

    repositoryHolder notNil ifTrue:[

        repositoryHolder addDependent:self.

    ].

    newValue := repositoryHolder value.

    oldValue ~~ newValue ifTrue:[

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

    ].

!

revsetHolder

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

    revsetHolder isNil ifTrue:[

        revsetHolder := ValueHolder new.

        revsetHolder addDependent:self.

    ].

    ^ revsetHolder

!

revsetHolder:something

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

    |oldValue newValue|

    revsetHolder notNil ifTrue:[

        oldValue := revsetHolder value.

        revsetHolder removeDependent:self.

    ].

    revsetHolder := something.

    revsetHolder notNil ifTrue:[

        revsetHolder addDependent:self.

    ].

    newValue := revsetHolder value.

    oldValue ~~ newValue ifTrue:[

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

    ].

! !

!HGChangesetBrowser methodsFor:'change & update'!

delayedUpdate: aspect with: param from: sender 

    sender == repositoryHolder ifTrue:[

        self updateList.

    ].

    sender == revsetHolder ifTrue:[ 

        self updateList.

    ].

    super delayedUpdate:aspect with:param from:sender

    "Created: / 11-03-2014 / 20:34:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

update:aspect with:param from:sender

    "Invoked when an object that I depend upon sends a change notification."

    sender == repositoryHolder ifTrue:[ 

        self delayedUpdate: aspect with: param from: sender 

    ].

    sender == revsetHolder ifTrue:[ 

        self delayedUpdate: aspect with: param from: sender 

    ].

    super update:aspect with:param from:sender

    "Created: / 14-03-2014 / 23:27:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

updateList

    self changesetList removeAll.

    self updateList1.

    "Created: / 11-03-2014 / 20:34:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

updateList1

    self updateListWithLimit: 10.

    self window sensor pushUserEvent: #updateList2 for: self.

    "Created: / 11-03-2014 / 20:36:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

updateList2

    self updateListWithLimit: nil

    "Created: / 11-03-2014 / 20:38:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

updateListWithLimit:limitOrNil

    | repository revset changesets |

    repository := self repositoryHolder value.

    repository isNil ifTrue:[

        ^ self.

    ].

    revset := self revsetHolder value.

    revset isNil ifTrue:[ 

        ^ self.

    ].

    changesets := repository log: revset limit: limitOrNil.

    self changesetList. "/ make sure it's initialized.

    (changesets size > changesetList size and:[changesets startsWith: changesetList]) ifTrue:[ 

        changesetList addAll: changesets from: changesetList size + 1 to: changesets size beforeIndex: changesetList size + 1

    ] ifFalse:[ 

        changesetList notEmpty ifTrue:[ 

            changesetList removeAll.

        ].

        changesetList addAll: changesets from: 1 to: changesets size beforeIndex: 1

    ].

    "Created: / 11-03-2014 / 20:37:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 14-03-2014 / 23:55:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !