"

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:#HGChangesetViewer

	instanceVariableNames:'changesetHolder changesetChangeSelectionHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Mercurial-StX-Interface'

!

ApplicationModel subclass:#PageChanges

	instanceVariableNames:'changesetHolder changeListHolder changeSelectionHolder'

	classVariableNames:''

	poolDictionaries:''

	privateIn:HGChangesetViewer

!

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

"

! !

!HGChangesetViewer class methodsFor:'interface specs'!

changesSpec

    "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:HGChangesetViewer andSelector:#changesSpec

     HGChangesetViewer new openInterface:#changesSpec

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: changesSpec

       window: 

      (WindowSpec

         label: 'Changeset - Changes'

         name: 'Changeset - Changes'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 593 436)

       )

       component: 

      (SpecCollection

         collection: (

          (SubCanvasSpec

             name: 'SubCanvas1'

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

             hasHorizontalScrollBar: false

             hasVerticalScrollBar: false

             majorKey: #'HGChangesetViewer::PageChanges'

             subAspectHolders: 

            (Array

              (SubChannelInfoSpec

                 subAspect: changesetHolder

                 aspect: changesetHolder

               )

             )

             createNewApplication: true

             createNewBuilder: true

           )

          )

       )

     )

!

metadataSpec

    "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:HGChangesetViewer andSelector:#metadataSpec

     HGChangesetViewer new openInterface:#metadataSpec

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: metadataSpec

       window: 

      (WindowSpec

         label: 'HG Changeset Details'

         name: 'HG Changeset Details'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 809 517)

       )

       component: 

      (SpecCollection

         collection: (

          (VerticalPanelViewSpec

             name: 'VerticalPanel1'

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

             horizontalLayout: fit

             verticalLayout: topSpaceFit

             horizontalSpace: 3

             verticalSpace: 3

             component: 

            (SpecCollection

               collection: (

                (ViewSpec

                   name: 'Box3'

                   component: 

                  (SpecCollection

                     collection: (

                      (LabelSpec

                         label: 'User:'

                         name: 'Label2'

                         layout: (LayoutFrame 0 0 0 0 120 0 -3 1)

                         translateLabel: true

                         resizeForLabel: false

                         adjust: left

                       )

                      (InputFieldSpec

                         name: 'EntryField3'

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

                         level: 0

                         model: changesetUserAspect

                         isReadOnly: true

                         acceptOnReturn: true

                         acceptOnTab: true

                         acceptOnPointerLeave: true

                         postBuildCallback: postBuildLabelField:

                       )

                      )

                   )

                   extent: (Point 809 22)

                 )

                (ViewSpec

                   name: 'Box5'

                   component: 

                  (SpecCollection

                     collection: (

                      (LabelSpec

                         label: 'Date:'

                         name: 'Label4'

                         layout: (LayoutFrame 0 0 0 0 120 0 -3 1)

                         translateLabel: true

                         resizeForLabel: false

                         adjust: left

                       )

                      (InputFieldSpec

                         name: 'EntryField5'

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

                         level: 0

                         model: changesetDateAspect

                         isReadOnly: true

                         acceptOnReturn: true

                         acceptOnTab: true

                         acceptOnPointerLeave: true

                         postBuildCallback: postBuildLabelField:

                       )

                      )

                   )

                   extent: (Point 809 22)

                 )

                (ViewSpec

                   name: 'Box4'

                   component: 

                  (SpecCollection

                     collection: (

                      (LabelSpec

                         label: 'Parents:'

                         name: 'Label3'

                         layout: (LayoutFrame 0 0 0 0 120 0 -3 0.5)

                         translateLabel: true

                         resizeForLabel: false

                         adjust: left

                       )

                      (InputFieldSpec

                         name: 'EntryField6'

                         layout: (LayoutFrame 120 0 0 0 0 1 -1 0.5)

                         level: 0

                         model: changesetP1Aspect

                         isReadOnly: true

                         acceptOnReturn: true

                         acceptOnTab: true

                         acceptOnPointerLeave: true

                         postBuildCallback: postBuildLabelField:

                       )

                      (InputFieldSpec

                         name: 'EntryField7'

                         layout: (LayoutFrame 120 0 2 0.5 0 1 0 1)

                         level: 0

                         model: changesetP2Aspect

                         isReadOnly: true

                         acceptOnReturn: true

                         acceptOnTab: true

                         acceptOnPointerLeave: true

                         postBuildCallback: postBuildLabelField:

                       )

                      )

                   )

                   extent: (Point 809 47)

                 )

                (ViewSpec

                   name: 'Box6'

                   component: 

                  (SpecCollection

                     collection: (

                      (TextEditorSpec

                         name: 'TextEditor1'

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

                         model: changesetMessageAspect

                         hasHorizontalScrollBar: true

                         hasVerticalScrollBar: true

                         isReadOnly: true

                         hasKeyboardFocusInitially: false

                       )

                      (LabelSpec

                         label: 'Message:'

                         name: 'Label5'

                         layout: (LayoutFrame 0 0 0 0 120 0 23 0)

                         translateLabel: true

                         resizeForLabel: false

                         adjust: left

                       )

                      )

                   )

                   extent: (Point 809 411)

                 )

                )

             )

           )

          )

       )

     )

!

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

     HGChangesetViewer new openInterface:#windowSpec

     HGChangesetViewer open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       window: 

      (WindowSpec

         label: 'HG Changeset Details'

         name: 'HG Changeset Details'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 809 517)

       )

       component: 

      (SpecCollection

         collection: (

          (ViewSpec

             name: 'Metadata1'

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

             component: 

            (SpecCollection

               collection: (

                (LabelSpec

                   label: 'Changeset:'

                   name: 'ChangesetLabel'

                   layout: (LayoutFrame 0 0 0 0 120 0 -3 1)

                   translateLabel: true

                   resizeForLabel: false

                   adjust: left

                 )

                (InputFieldSpec

                   name: 'EntryField1'

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

                   level: 0

                   model: changesetIdAspect

                   isReadOnly: true

                   acceptOnReturn: true

                   acceptOnTab: true

                   acceptOnPointerLeave: true

                   postBuildCallback: postBuildLabelField:

                 )

                )

             )

           )

          (ViewSpec

             name: 'Metadata2'

             layout: (LayoutFrame 0 0 23 0 0 1 45 0)

             component: 

            (SpecCollection

               collection: (

                (NonScrollableArbitraryComponentSpec

                   name: 'NonScrollableArbitraryComponent1'

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

                   model: changesetHolder

                   component: HGChangesetLabelsView

                 )

                )

             )

           )

          (NoteBookViewSpec

             name: 'NoteBook'

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

             level: 0

             menu: detailsTabList

             direction: bottom

             canvasInset: 0

             tabLevel: 0

             tabLabelInset: 5

           )

          )

       )

     )

! !

!HGChangesetViewer class methodsFor:'list specs'!

detailsTabList

    "This resource specification was automatically generated

     by the TabListEditor of ST/X."

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

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

    "

     TabListEditor new openOnClass: self andSelector:#detailsTabList

    "

    <resource: #tabList>

    ^     #(

       (TabItem

          label: 'Details'

          translateLabel: true

          minorKey: metadataSpec

          createNewBuilder: false

        )

       (TabItem

          label: 'Changes'

          translateLabel: true

          minorKey: changesSpec

          createNewBuilder: false

        )

       )

      collect:[:aTab| TabItem new fromLiteralArrayEncoding:aTab ]

! !

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

      ).

! !

!HGChangesetViewer methodsFor:'accessing'!

changeset

    ^ self changesetHolder value

    "Created: / 25-03-2014 / 01:53:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

changeset: anHGChangeset

    self changesetHolder value: anHGChangeset

    "Created: / 25-03-2014 / 01:53:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGChangesetViewer methodsFor:'actions'!

postBuildLabelField: anEditField

    anEditField background: Label defaultBackgroundColor

    "Modified (format): / 15-03-2014 / 01:16:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGChangesetViewer methodsFor:'aspects'!

changesetBranchesAspect

    ^ PluggableAdaptor 

        on: self changesetHolder

        getter: [ :model | model value notNil ifTrue:[(model value branches collect:[:e|e name]) asStringWith: '. '] ifFalse:[ nil ]]

    "Created: / 15-03-2014 / 01:06:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

changesetChangeSelectionHolder

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

    changesetChangeSelectionHolder isNil ifTrue:[

        changesetChangeSelectionHolder := ValueHolder new.

        changesetChangeSelectionHolder addDependent:self.

    ].

    ^ changesetChangeSelectionHolder

!

changesetChangeSelectionHolder:something

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

    |oldValue newValue|

    changesetChangeSelectionHolder notNil ifTrue:[

        oldValue := changesetChangeSelectionHolder value.

        changesetChangeSelectionHolder removeDependent:self.

    ].

    changesetChangeSelectionHolder := something.

    changesetChangeSelectionHolder notNil ifTrue:[

        changesetChangeSelectionHolder addDependent:self.

    ].

    newValue := changesetChangeSelectionHolder value.

    oldValue ~~ newValue ifTrue:[

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

    ].

!

changesetDateAspect

    ^ PluggableAdaptor 

        on: self changesetHolder

        getter: [ :model | model value notNil 

                    ifTrue:[ (model value timestamp printString) ] 

                    ifFalse:[ nil ]]

    "Created: / 15-03-2014 / 01:07:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

changesetHolder

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

    changesetHolder isNil ifTrue:[

        changesetHolder := ValueHolder new.

        changesetHolder addDependent:self.

    ].