"

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

SCMAbstractCommitDialog subclass:#HGCommitDialog

	instanceVariableNames:'remoteHolder remoteListHolder remotePushHolder branchCreateHolder

		branchHolder moreOptionsHolder amendHolder amendLabel

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Mercurial-StX-Interface'

!

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

"

! !

!HGCommitDialog class methodsFor:'help specs'!

helpSpec

    "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:HGCommitDialog    

    "

    <resource: #help>

    ^ super helpSpec addPairsFrom:#(

#amendLabelHelp

'Changeset to amend'

#bookmarkCreateHelp

''

#bookmarkHelp

'When checked, commited changeset will be assigned a bookmark.\\Usefull when one uses feature-branch like model.'

)

! !

!HGCommitDialog class methodsFor:'image specs'!

dialogIcon

    ^ HGIconLibrary hgLogo2

    "Created: / 14-11-2012 / 00:14:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 16-11-2012 / 11:01:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGCommitDialog class methodsFor:'interface specs'!

contentSpec

    "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:HGCommitDialog andSelector:#contentSpec

     HGCommitDialog new openInterface:#contentSpec

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: contentSpec

       window: 

      (WindowSpec

         label: 'Commit...'

         name: 'Commit...'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 698 603)

       )

       component: 

      (SpecCollection

         collection: (

          (VariableVerticalPanelSpec

             name: 'VariablePanel'

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

             component: 

            (SpecCollection

               collection: (

                (VerticalPanelViewSpec

                   name: 'VerticalPanel1'

                   horizontalLayout: fit

                   verticalLayout: bottomSpaceFit

                   horizontalSpace: 3

                   verticalSpace: 3

                   elementsChangeSize: true

                   component: 

                  (SpecCollection

                     collection: (

                      (ViewSpec

                         name: 'MessageAndInfoPane'

                         component: 

                        (SpecCollection

                           collection: (

                            (SubCanvasSpec

                               name: 'InfoPanel'

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

                               level: 0

                               initiallyInvisible: true

                               hasHorizontalScrollBar: false

                               hasVerticalScrollBar: false

                               clientKey: infoPanel

                               createNewBuilder: false

                             )

                            (ViewSpec

                               name: 'MessagePane'

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

                               component: 

                              (SpecCollection

                                 collection: (

                                  (LabelSpec

                                     label: 'Commit message:'

                                     name: 'MessageLabel'

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

                                     translateLabel: true

                                     adjust: left

                                   )

                                  (LinkButtonSpec

                                     label: 'More Options'

                                     name: 'MoreOptions'

                                     layout: (LayoutFrame -100 1 0 0 0 1 30 0)

                                     visibilityChannel: moreOptionsHiddenHolder

                                     translateLabel: true

                                     labelChannel: moreOptionsLabel

                                     adjust: right

                                     model: doShowMoreOptions

                                   )

                                  (TextEditorSpec

                                     name: 'Message'

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

                                     enableChannel: enabledHolder

                                     hasHorizontalScrollBar: true

                                     hasVerticalScrollBar: true

                                     modifiedChannel: messageModifiedHolder

                                     hasKeyboardFocusInitially: false

                                     postBuildCallback: messageView:

                                   )

                                  )

                               )

                             )

                            )

                         )

                         extent: (Point 698 188)

                       )

                      (ViewSpec

                         name: 'AmendBox'

                         component: 

                        (SpecCollection

                           collection: (

                            (CheckBoxSpec

                               label: 'Amend Commit'

                               name: 'AmendCheckBox'

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

                               activeHelpKey: amendLabelHelp

                               visibilityChannel: canAmendHolder

                               model: amendHolder

                               translateLabel: true

                               labelChannel: amendLabel

                             )

                            )

                         )

                         extent: (Point 698 25)

                       )

                      (ViewSpec

                         name: 'BookmarkBox'

                         component: 

                        (SpecCollection

                           collection: (

                            (CheckBoxSpec

                               label: 'Bookmark'

                               name: 'CheckBox2'

                               layout: (LayoutFrame 0 0 2 0 215 0 25 0)

                               activeHelpKey: bookmarkHelp

                               model: bookmarkCreateHolder

                               translateLabel: true

                             )

                            (ComboBoxSpec

                               name: 'ComboBox1'

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

                               activeHelpKey: bookmarkHelp

                               enableChannel: bookmarkCreateHolder

                               model: bookmarkHolder

                               emptyFieldReplacementText: 'Bookmark name'

                               comboList: bookmarkList

                             )

                            )

                         )

                         extent: (Point 698 24)

                       )

                      (ViewSpec

                         name: 'BranchBox'

                         visibilityChannel: moreOptionsVisibleHolder

                         component: 

                        (SpecCollection

                           collection: (

                            (CheckBoxSpec

                               label: 'Commit into new branch'

                               name: 'BranchCheckBox'

                               layout: (LayoutFrame 0 0 2 0 215 0 25 0)

                               model: branchCreateHolder

                               translateLabel: true

                             )

                            (InputFieldSpec

                               name: 'EntryField1'

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

                               enableChannel: branchCreateHolder

                               model: branchHolder

                               emptyFieldReplacementText: 'Branch name'

                             )

                            )

                         )

                         extent: (Point 698 25)

                       )

                      (ViewSpec

                         name: 'PushBox'

                         visibilityChannel: moreOptionsVisibleHolder

                         component: 

                        (SpecCollection

                           collection: (

                            (CheckBoxSpec

                               label: 'Push to upstream repository'

                               name: 'CheckBox1'

                               layout: (LayoutFrame 0 0 2 0 215 0 25 0)

                               model: remotePushHolder

                               translateLabel: true

                             )

                            (ComboListSpec

                               name: 'ComboList2'

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

                               enableChannel: remotePushHolder

                               model: remoteHolder

                               comboList: remoteListHolder

                             )

                            )

                         )

                         extent: (Point 698 25)

                       )

                      )

                   )

                 )

                (ViewSpec

                   name: 'FilePane'

                   component: 

                  (SpecCollection

                     collection: (

                      (UISubSpecification

                         name: 'FilePaneSpec'

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

                         minorKey: filePaneSpec

                       )

                      )

                   )

                 )

                )

             )

             handles: (Any 0.5 1.0)

           )

          )

       )

     )

! !

!HGCommitDialog methodsFor:'accessing'!

task: anHGCommitTask

    super task: anHGCommitTask.

    self updateAmendLabel.

    "Created: / 25-08-2015 / 12:48:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGCommitDialog methodsFor:'actions'!

doAccept

    self task amend: self amendHolder value.

    self remotePushHolder value 

        ifTrue:[self task remote: self remoteHolder value] 

        ifFalse:[self task remote: nil].

    self branchCreateHolder value 

        ifTrue:[self task branch: self branchHolder value] 

        ifFalse:[self task branch: nil].

    self bookmarkCreateHolder value notEmptyOrNil

        ifTrue:[ self task bookmark: self bookmarkHolder value ]

        ifFalse:[ self task bookmark: nil ].

    [

        super doAccept.

    ] on: HGPushWouldCreateNewHeadError do:[:ex|

        self infoPanel 

                reset;

                beWarning;

                message: (self resources string:'Push to upstream would create a new head. Changes were not pushed.');

                addButtonOK;

                show.

    ]

    "Created: / 10-12-2012 / 01:46:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 27-06-2016 / 18:12:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doEditUserConfig

    HGSourceCodeManagementSettingsAppl new doEditHGRC.

    self doCancel.

    "Created: / 07-12-2012 / 16:08:02 / jv"

    "Modified: / 18-02-2014 / 10:35:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doShowDiffsForEntry

    | selection |

    selection := self fileSelectionHolder value.

    selection isNil ifTrue:[ ^ self ].        

    selection isCollection ifTrue:[

        selection do:[:each|

            self doShowDiffsForEntry: each entry against: each entry changeset  

        ]

    ] ifFalse:[

        self doShowDiffsForEntry: selection entry against: selection entry changeset  

    ].

    "Created: / 09-02-2012 / 14:51:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 11-07-2013 / 02:06:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doShowDiffsForEntry: wcentry against: rev

    |wc wcChangeSet repoentry repoChangeSet diffset |

    wc := self task temporaryWorkingCopy.

    repoentry := nil.

    rev id isNull ifFalse:[

        [ 

            repoentry := rev / wcentry pathNameRelativeSlashed 

        ] on: HGError do: [

            "/ No such file in given revision...

        ].

    ].

    wcentry suffix = SmalltalkLanguage instance sourceFileSuffix ifTrue:[

        wcentry exists ifTrue:[ 

            wcChangeSet := ChangeSet fromFile: wcentry.

        ] ifFalse:[ 

            wcChangeSet := ChangeSet new.

        ].

        wcChangeSet name: wcentry baseName, (resources string: ' (working copy - to be commited)').

        repoentry notNil ifTrue:[

            repoChangeSet := ChangeSet fromStream: repoentry contents asString readStream.

        ] ifFalse:[ 

            repoChangeSet := ChangeSet new.

        ].

        repoChangeSet name: wcentry baseName,  ' (revision ' , rev id printString , ')'.

        diffset := ChangeSetDiff versionA:wcChangeSet versionB:repoChangeSet.

        (Tools::ChangeSetDiffTool new)

            beSingleColumn;

            diffset:diffset;

            title:('%1: Diffbetween working copy and rev. %2 ' bindWith: wcentry pathNameRelative with: rev id printString);

            showVersionMethodDiffs: false;

            open

    ] ifFalse:[

        | text1 text2 |

        wcentry exists ifTrue:[

            text1 := wcentry contents asString.

        ] ifFalse:[ 

            text1 := ''.

        ].

        repoentry notNil ifTrue:[

            text2 := repoentry contents asString.

        ] ifFalse:[ 

            text2 := ''.

        ].

        "/Argh...backward compatibility..."

        (Tools::TextDiff2Tool ? Tools::TextDiffTool) new

            labelA: 'Working copy';

            labelB: ('Revision %1' bindWith: rev id printString);

            textA: text1; textB: text2;

            title:('%1: Diffbetween working copy and rev. %2 ' bindWith: wcentry pathNameRelative with: rev id printString);

            open

    ]

    "Created: / 09-02-2012 / 14:53:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

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

!

doShowDiffsForEntryAgainstHEAD

    | selection |

    selection := self fileSelectionHolder value.

    selection isNil ifTrue:[ ^ self ].        

    selection isCollection ifTrue:[

        selection do:[:each|

            self doShowDiffsForEntry: each entry against: self workingCopy heads anElement 

        ]

    ] ifFalse:[

        self doShowDiffsForEntry: selection entry against: self workingCopy heads anElement  

    ].

    "Created: / 10-02-2012 / 10:00:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 11-07-2013 / 02:06:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doShowMoreOptions

    self moreOptionsHolder value: true

    "Created: / 10-12-2012 / 11:39:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doUpdateLogicalRevisionTo: revision 

    self task doUpdateLogicalRevisionTo: revision

    "Created: / 09-02-2018 / 09:01:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGCommitDialog methodsFor:'aspects'!

amendHolder

    <resource: #uiAspect>

    amendHolder isNil ifTrue:[

        amendHolder := false asValue.

        amendHolder addDependent:self.

    ].

    ^ amendHolder.

    "Modified: / 25-08-2015 / 11:57:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

amendLabel

    <resource: #uiAspect>

    amendLabel isNil ifTrue:[

        amendLabel := ValueHolder with: (resources string: 'Amend Previous Commit').