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

GitDialog subclass:#GitCommitDialog

	instanceVariableNames:'task messageView messageModifiedHolder fileSelectionHolder

		fileListShowOnlyModifiedHolder fileListHolder enabledHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Git-StX-Interface'

!

Object subclass:#FileEntry

	instanceVariableNames:'application entry include'

	classVariableNames:''

	poolDictionaries:''

	privateIn:GitCommitDialog

!

!GitCommitDialog 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:SVN::CommitDialog2 andSelector:#contentSpec

     SVN::CommitDialog2 new openInterface:#contentSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: contentSpec

        window: 

       (WindowSpec

          label: 'Commit...'

          name: 'Commit...'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 698 529)

        )

        component: 

       (SpecCollection

          collection: (

           (VariableVerticalPanelSpec

              name: 'VariablePanel'

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

              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

                    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

       )

      )

!

filePaneSpec

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

     SVN::CommitDialog2 new openInterface:#filePaneSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: filePaneSpec

        window: 

       (WindowSpec

          label: 'File List'

          name: 'File List'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 586 403)

        )

        component: 

       (SpecCollection

          collection: (

           (LabelSpec

              label: 'Checked files will be commited to repository.'

              name: 'FileListLabel'

              layout: (LayoutFrame 0 0 10 0 0 1 35 0)

              translateLabel: true

              adjust: left

            )

           (DataSetSpec

              name: 'WCEntryTable'

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

              enableChannel: enabledHolder

              model: fileSelectionHolder

              menu: fileListMenu

              hasHorizontalScrollBar: true

              hasVerticalScrollBar: true

              dataList: fileListHolder

              useIndex: false

              columnHolder: fileListColumnSpec

              showLabels: false

              multipleSelectOk: true

            )

           (CheckBoxSpec

              label: 'Show only modified entries'

              name: 'ShowOnlyChanged'

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

              enableChannel: enabledHolder

              model: fileListShowOnlyModifiedHolder

              translateLabel: true

            )

           (LinkButtonSpec

              label: 'Browse working copy'

              name: 'BrowseWC'

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

              translateLabel: true

              labelChannel: browseWorkingCopyLabel

              adjust: right

              model: doBrowseWorkingCopy

            )

           )

        )

      )

! !

!GitCommitDialog class methodsFor:'menu specs'!

fileListMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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

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

    "

     MenuEditor new openOnClass:SVN::CommitDialog2 andSelector:#fileListMenu

     (Menu new fromLiteralArrayEncoding:(SVN::CommitDialog2 fileListMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            label: 'Show differences'

            itemValue: doShowDiffsForEntry

            translateLabel: true

          )

         (MenuItem

            label: 'Show differences (against HEAD)'

            itemValue: doShowDiffsForEntryAgainstHEAD

            translateLabel: true

          )

         )

        nil

        nil

      )

! !

!GitCommitDialog methodsFor:'accessing'!

defaultSubtitle

    | t |

    t := self task.

    ^t package notNil ifTrue:[

        'Package: ' , t package name asText allItalic

    ] ifFalse:[

        t workingCopy branch url asText allItalic

    ]

    "Created: / 28-10-2008 / 09:14:45 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 06-10-2012 / 23:07:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

fileListToCommit

    ^(self fileListHolder value ? #()) 

        select:[:entry|entry include]

        thenCollect:[:entry|entry path].

    "Created: / 08-02-2012 / 18:16:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

message

    ^messageView notNil 

        ifTrue:[messageView contents]

        ifFalse:[nil]

    "Created: / 31-03-2008 / 21:06:28 / janfrog"

    "Modified: / 09-04-2009 / 08:50:55 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 08-02-2012 / 18:07:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

message: aString

    ^messageView contents: aString

    "Created: / 08-04-2009 / 23:27:09 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 08-02-2012 / 18:08:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

task

    ^self model

    "Created: / 23-03-2009 / 11:49:15 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

task: aTask

    ^self model: aTask

    "Created: / 23-03-2009 / 11:49:24 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

workingCopy

    ^self task workingCopy

    "Created: / 08-02-2012 / 18:07:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GitCommitDialog methodsFor:'acessing-views'!

messageView: aView

    messageView := aView scrolledView.

"/    messageView model:

"/        (self class messages

"/            at: self task package

"/            ifAbsent:[self task message])