"{ Encoding: utf8 }"

"

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'

	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:'image specs'!

dialogIcon

    <resource: #programImage>

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

    "Modified: / 28-07-2018 / 09:56:29 / Claus Gittinger"

! !

!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 239)

                        )

                       (ViewSpec

                          name: 'BranchBox'

                          visibilityChannel: moreOptionsVisibleHolder

                          component: 

                         (SpecCollection

                            collection: (

                             (InputFieldSpec

                                name: 'EntryField1'

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

                                visibilityChannel: branchCreateHolder

                                model: branchHolder

                                emptyFieldReplacementText: 'Branch name'

                              )

                             (CheckBoxSpec

                                label: 'Commit into new branch'

                                name: 'BranchCheckBox'

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

                                model: branchCreateHolder

                                translateLabel: true

                              )

                             )

                          )

                          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)

                                visibilityChannel: 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:'actions'!

doAccept

    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].

    [

        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: / 10-12-2012 / 02:56:43 / 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>"

! !

!HGCommitDialog methodsFor:'aspects'!

branchCreateHolder

    <resource: #uiAspect>

    branchCreateHolder isNil ifTrue:[

        branchCreateHolder := false asValue.

    ].

    ^ branchCreateHolder.

    "Modified: / 10-12-2012 / 02:54:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

branchHolder

    <resource: #uiAspect>

    branchHolder isNil ifTrue:[

        branchHolder := ValueHolder new.

    ].

    ^ branchHolder.

!

moreOptionsHiddenHolder

    ^BlockValue forLogicalNot: self moreOptionsVisibleHolder

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

!

moreOptionsHolder

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

    moreOptionsHolder isNil ifTrue:[

        moreOptionsHolder := false asValue

    ].

    ^ moreOptionsHolder

    "Modified: / 10-12-2012 / 11:38:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

moreOptionsLabel

    ^ (resources string: 'More Options') 

        asActionLinkTo:[ self doShowMoreOptions ]

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

!

moreOptionsVisibleHolder

    ^self moreOptionsHolder

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

!

remoteHolder

    <resource: #uiAspect>

    remoteHolder isNil ifTrue:[

        | remote |

        remote := self task isPackageCommit ifTrue:[self task repository remoteDefault] ifFalse:[nil].

        remoteHolder := remote asValue.

    ].

    ^ remoteHolder.

    "Modified: / 22-02-2014 / 23:47:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

remoteListHolder

    <resource: #uiAspect>

    remoteListHolder isNil ifTrue:[

        | remoteList |

        remoteList := self task isPackageCommit ifTrue:[self task repository remotes] ifFalse:[nil].

        remoteListHolder := remoteList asValue

    ].

    ^ remoteListHolder.

    "Modified: / 22-02-2014 / 23:47:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

remotePushHolder

    "automatically generated by UIPainter ..."

    <resource: #uiAspect>

    remotePushHolder isNil ifTrue:[

        remotePushHolder := UserPreferences current hgAutopush asValue.

    ].

    ^ remotePushHolder.

    "Modified: / 10-12-2012 / 01:25:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGCommitDialog methodsFor:'change & update'!

updateFileList

    | wcroot statuses entries wcrootPathNameRelative wcrootPathNameRelativeLen notMerge |

    "HACK..."

    wcroot := self task temporaryWorkingCopyRoot.

    wcrootPathNameRelative := wcroot pathNameRelative.

    wcrootPathNameRelativeLen := wcrootPathNameRelative size.

    notMerge := self task isMergeCommit not.

    statuses := self task temporaryWorkingCopy repository execute:

                    (HGCommand status

                        workingDirectory: wcroot pathName;