"
stx:libscm - a new source code management library for Smalltalk/X
Copyright (C) 2012-2015 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' }"

"{ NameSpace: Smalltalk }"

ApplicationModel subclass:#HGChangesetList
	instanceVariableNames:'changesetList changesetHolder entryList entryHolder entryListView'
	classVariableNames:''
	poolDictionaries:''
	category:'SCM-Mercurial-StX-Interface'
!

!HGChangesetList class methodsFor:'documentation'!

copyright
"
stx:libscm - a new source code management library for Smalltalk/X
Copyright (C) 2012-2015 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
"
! !

!HGChangesetList 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:HGChangesetList andSelector:#windowSpec
     HGChangesetList new openInterface:#windowSpec
     HGChangesetList open
    "

    <resource: #canvas>

    ^ 
    #(FullSpec
       name: windowSpec
       window: 
      (WindowSpec
         label: 'HG Changeset List'
         name: 'HG Changeset List'
         min: (Point 10 10)
         bounds: (Rectangle 0 0 300 300)
       )
       component: 
      (SpecCollection
         collection: (
          (SelectionInListModelViewSpec
             name: 'SelectionInListModelView1'
             layout: (LayoutFrame 0 0 0 0 0 1 0 1)
             model: entryHolder
             hasHorizontalScrollBar: true
             hasVerticalScrollBar: true
             listModel: entryList
             useIndex: false
             highlightMode: line
             postBuildCallback: postBuildEntryListView:
           )
          )
        
       )
     )
! !

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

    ^ #(
        #changesetHolder
        #changesetList
      ).

! !

!HGChangesetList class methodsFor:'tableColumns specs'!

changesetListColumns
    "This resource specification was automatically generated
     by the DataSetBuilder of ST/X."

    "Do not manually edit this!! If it is corrupted,
     the DataSetBuilder may not be able to read the specification."

    "
     DataSetBuilder new openOnClass:HGChangesetList2 andSelector:#changesetListColumns
    "

    <resource: #tableColumns>

    ^#(
      (DataSetColumnSpec
         label: 'Revno'
         labelAlignment: right
         labelButtonType: Button
         usePreferredWidth: true
         height: heightOfFirstRow
         menuFromApplication: false
         printSelector: idRevno
       )
      (DataSetColumnSpec
         label: 'Revhash'
         labelButtonType: Button
         usePreferredWidth: true
         height: heightOfFirstRow
         menuFromApplication: false
         printSelector: idHash
       )
      (DataSetColumnSpec
         label: 'Labels'
         labelButtonType: Button
         usePreferredWidth: true
         height: heightOfFirstRow
         menuFromApplication: false
       )
      (DataSetColumnSpec
         label: 'Summary'
         labelButtonType: Button
         width: 1.0
         height: heightOfFirstRow
         menuFromApplication: false
         printSelector: summary
       )
      (DataSetColumnSpec
         label: 'Author'
         labelButtonType: Button
         height: heightOfFirstRow
         menuFromApplication: false
         printSelector: user
         canSelect: false
       )
      )
    
! !

!HGChangesetList methodsFor:'aspects'!

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

    changesetHolder isNil ifTrue:[
        changesetHolder := ValueHolder new.
        changesetHolder addDependent:self.
    ].
    ^ changesetHolder
!

changesetHolder:something
    "set the 'changesetHolder' value holder (automatically generated)"

    |oldValue newValue|

    changesetHolder notNil ifTrue:[
        oldValue := changesetHolder value.
        changesetHolder removeDependent:self.
    ].
    changesetHolder := something.
    changesetHolder notNil ifTrue:[
        changesetHolder addDependent:self.
    ].
    newValue := changesetHolder value.
    oldValue ~~ newValue ifTrue:[
        self update:#value with:newValue from:changesetHolder.
    ].
!

changesetList
    changesetList isNil ifTrue:[
        changesetList := List new.
    ].
    ^ changesetList

    "Modified: / 11-03-2014 / 20:26:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

changesetList:aListOrValueModel
    "set the 'changesetList' value holder (automatically generated)"

    |oldValue newValue|

    changesetList notNil ifTrue:[
        oldValue := changesetList value.
        changesetList removeDependent:self.
    ].
    changesetList := aListOrValueModel.
    changesetList notNil ifTrue:[
        changesetList addDependent:self.
    ].
    newValue := changesetList value.
    oldValue ~~ newValue ifTrue:[
        self update:#value with:newValue from:changesetList.
    ].
!

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

    entryHolder isNil ifTrue:[
        entryHolder := ValueHolder new.
        entryHolder addDependent:self.
    ].
    ^ entryHolder
!

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

    entryList isNil ifTrue:[
        entryList := List new.
    ].
    ^ entryList

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

!HGChangesetList methodsFor:'change & update'!

update:aspect with:param from:sender
    "Invoked when an object that I depend upon sends a change notification."

    sender == entryHolder ifTrue:[ 
        self updateAfterEntryHolderChanged.
    ].
    sender == changesetHolder ifTrue:[ 
        self updateAfterChangesetHolderChanged.
    ].
    sender == changesetList ifTrue:[ 
        self updateList.
    ].


    super update:aspect with:param from:sender

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

updateAfterChangesetHolderChanged
    | entry changeset |

    changeset := changesetHolder value.
    entry  :=(changeset notNil) 
                    ifTrue:[ self entryList detect: [:e | e changeset = changeset ] ifNone:[ nil ] ]
                    ifFalse:[ nil ].
    self entryHolder
        removeDependent: self;
        value: entry;
        addDependent: self.

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

updateAfterEntryHolderChanged
    | entry  changeset |

    entry := entryHolder value.
    changeset := entry notNil ifTrue:[ entry changeset] ifFalse:[ nil ].
    (self changesetHolder)
        removeDependent:self;
        value:changeset;
        addDependent:self.

    "Created: / 11-03-2014 / 20:29:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    "Modified: / 15-03-2014 / 00:02:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

updateList
    | changesets entries |

    changesets := self changesetList value.
    entries := changesets collect:[ :cs | HGChangesetPresenter new changeset: cs ].
    "/ Sort them from newest to oldest..."
    entries notEmpty ifTrue:[
        (entries first changeset timestamp < entries last changeset timestamp) ifTrue:[ 
            entries reverse.
        ].
    ].
    self entryList
        removeAll;
        addAll: entries.

    "Created: / 14-03-2014 / 23:58:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    "Modified: / 27-03-2014 / 23:53:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!HGChangesetList methodsFor:'hooks'!

postBuildEntryListView:aView
    <resource: #uiCallback>

    | renderer |

    entryListView := aView scrolledView.
"/    renderer := entryListView setupTableRenderer.
"/    renderer showItemInAdditionToColumns: false.     
"/    renderer columnDescriptors: self  class changesetListColumns

    "Modified: / 15-03-2014 / 15:02:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!HGChangesetList class methodsFor:'documentation'!

version
    ^ '$Header$'
!

version_CVS
    ^ '$Header$'
! !