"{ Package: 'stx:libscm/mercurial' }"

SCMAbstractCommitDialog subclass:#HGCommitDialog

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Mercurial-StX-Interface'

!

!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

                                    )

                                   (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:

                                    )

                                   )

                                )

                              )

                             )

                          )

                        )

                       (ViewSpec

                          component: 

                         (SpecCollection

                            collection: (

                             (ComboListSpec

                                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)

            )

           )

        )

      )

!

fileListColumnSpec

    "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:SVN::CommitDialog2 andSelector:#fileListColumnSpec

    "

    <resource: #tableColumns>

    ^#(

      (DataSetColumnSpec

         label: ''

         activeHelpKey: ''

         activeHelpKeyForLabel: ''

         labelButtonType: None

         width: 22

         minWidth: 22

         editorType: CheckToggle

         rendererType: CheckToggle

         model: include

         menuFromApplication: false

         printSelector: include

         showRowSeparator: false

         showColSeparator: false

       )

      (DataSetColumnSpec

         label: ''

         activeHelpKey: ''

         activeHelpKeyForLabel: ''

         labelButtonType: Button

         width: 22

         minWidth: 22

         menuFromApplication: false

         printSelector: statusIcon

         canSelect: false

         showRowSeparator: false

         showColSeparator: false

       )

      (DataSetColumnSpec

         label: 'Container'

         labelAlignment: left

         activeHelpKey: ''

         activeHelpKeyForLabel: ''

         labelButtonType: Button

         menuFromApplication: false

         printSelector: pathText

         canSelect: false

         showRowSeparator: false

         showColSeparator: false

       )

    "

      (DataSetColumnSpec

         label: 'Rev'

         activeHelpKey: ''

         activeHelpKeyForLabel: ''

         labelButtonType: Button

         usePreferredWidth: true

         menuFromApplication: false

         printSelector: revision

         canSelect: false

         showRowSeparator: false

         showColSeparator: false

       )

      (DataSetColumnSpec

         label: 'Author'

         labelAlignment: left

         activeHelpKey: ''

         activeHelpKeyForLabel: ''

         labelButtonType: Button

         usePreferredWidth: true

         menuFromApplication: false

         printSelector: author

         canSelect: false

         showRowSeparator: false

         showColSeparator: false

       )

      (DataSetColumnSpec

         label: 'Date'

         activeHelpKey: ''

         activeHelpKeyForLabel: ''

         labelButtonType: Button

         usePreferredWidth: true

         menuFromApplication: false

         printSelector: date

         canSelect: false

         showRowSeparator: false

         showColSeparator: false

       )

        "

      )

    "Created: / 15-11-2012 / 09:28:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGCommitDialog methodsFor:'actions'!

doAccept

    [

        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

    | hgrc |

    hgrc := HGConfig userConfigFiles first.

    hgrc exists ifFalse:[hgrc writingFileDo:[:s|s cr]].

    WorkspaceApplication openOnFile: hgrc.

    self doCancel.

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

!

doShowDiffsForEntry

    self fileSelectionHolder value do:[:each|

        self doShowDiffsForEntry: each entry against: each entry changeset

    ].

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

    "Modified: / 06-12-2012 / 17:00:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doShowDiffsForEntry: wcentry against: rev

    |wc wcChangeSet repoentry repoChangeSet diffset |

    wc := self task workingCopy.

    repoentry := [ rev / wcentry pathNameRelativeSlashed ] on: HGError do: [

        Dialog warn: 'File does not exists in changeset ' , rev id printString.

    ].

    wcentry suffix = SmalltalkLanguage instance sourceFileSuffix ifTrue:[

        wcChangeSet := ChangeSet fromFile: wcentry .

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

        repoChangeSet := ChangeSet fromStream: repoentry contents asString readStream.

        repoChangeSet name: wcentry baseName,  ' (' , 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 printString);

            showVersionMethodDiffs: false;

            open

    ] ifFalse:[

        | text1 text2 |

        text1 := wcentry contents asString.

        text2 := repoentry contents asString.

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

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

            labelA: 'Working copy';

            labelB: ('r %1' bindWith: rev printString);

            textA: text1; textB: text2;

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

            open

    ]

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

    "Modified: / 06-12-2012 / 17:26:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

doShowDiffsForEntryAgainstHEAD

    self fileSelectionHolder value do:[:each|

        self doShowDiffsForEntry: each entry against: self workingCopy heads anElement

    ].

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

    "Modified: / 06-12-2012 / 17:04:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGCommitDialog methodsFor:'aspects'!

remoteHolder

    <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 ;-)"

    remoteHolder isNil ifTrue:[

        remoteHolder := self task package repository remoteDefault asValue

    ].

    ^ remoteHolder.

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

!

remoteListHolder

    <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 ;-)"

    remoteListHolder isNil ifTrue:[

        remoteListHolder := self task package repository remotes asValue

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

"/       remoteListHolder addDependent:self.

"/       remoteListHolder onChangeSend:#remoteListHolderChanged to:self.

    ].

    ^ remoteListHolder.

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

!

remotePushHolder

    <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 ;-)"

    remotePushHolder isNil ifTrue:[

        remotePushHolder := UserPreferences current hgAutopush asValue.

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

"/       pushHolder addDependent:self.

"/       pushHolder onChangeSend:#pushHolderChanged to:self.

    ].

    ^ remotePushHolder.

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

! !

!HGCommitDialog methodsFor:'change & update'!

updateFileList

    | wcroot statuses entries showOnlyModified wcrootPathNameRelative wcrootPathNameRelativeLen |

    showOnlyModified := fileListShowOnlyModifiedHolder value.

    "HACK..."

    wcroot := self model package temporaryWorkingCopyRoot.

    wcrootPathNameRelative := wcroot pathNameRelative.

    wcrootPathNameRelativeLen := wcrootPathNameRelative size.

    statuses := HGCommand status

                    workingDirectory: wcroot pathName;