"

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

SCMAbstractCommitDialog subclass:#HGCommitDialog

	instanceVariableNames:'remoteHolder remoteListHolder remotePushHolder branchCreateHolder

	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

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

    ^ 

                                   )

                             )

                             )

                             )

                       )

                 )

           )

! !

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

!

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>

    "automatically generated by UIPainter ..."

    "*** the code below creates a default model when invoked."

    "*** (which may not be the one you wanted)"

    "*** Please change as required and accept it in the browser."

    "*** (and replace this comment by something more useful ;-)"

    branchCreateHolder isNil ifTrue:[

        branchCreateHolder := false asValue.

"/ if your app needs to be notified of changes, uncomment one of the lines below:

"/       branchCreateHolder addDependent:self.

"/       branchCreateHolder onChangeSend:#branchCreateHolderChanged to:self.

    ].

    ^ branchCreateHolder.

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

!

branchHolder

    <resource: #uiAspect>

    "automatically generated by UIPainter ..."

    "*** the code below creates a default model when invoked."

    "*** (which may not be the one you wanted)"

    "*** Please change as required and accept it in the browser."

    "*** (and replace this comment by something more useful ;-)"

    branchHolder isNil ifTrue:[

        branchHolder := ValueHolder new.

"/ if your app needs to be notified of changes, uncomment one of the lines below:

"/       branchHolder addDependent:self.

"/       branchHolder onChangeSend:#branchHolderChanged to:self.

    ].

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