"

stx:libscm - a new source code management library for Smalltalk/X

Copyright (C) 2012-2015 Jan Vrany

Copyright (C) 2020-2021 LabWare

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

"{ NameSpace: Smalltalk }"

SCMAbstractDialog subclass:#SCMAbstractCommitDialog

	instanceVariableNames:'task messageView messageModifiedHolder fileSelectionHolder

		fileListShowOnlyModifiedHolder fileListHolder fileListView

		enabledHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Common-StX-Interface'

!

Object subclass:#FileEntry

	instanceVariableNames:'application entry include includeEditable name icon'

	classVariableNames:''

	poolDictionaries:''

	privateIn:SCMAbstractCommitDialog

!

!SCMAbstractCommitDialog class methodsFor:'documentation'!

copyright

"

stx:libscm - a new source code management library for Smalltalk/X

Copyright (C) 2012-2015 Jan Vrany

Copyright (C) 2020-2021 LabWare

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

"

! !

!SCMAbstractCommitDialog 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:SCMAbstractCommitDialog andSelector:#fileListColumnSpec

    "

    <resource: #tableColumns>

    ^#(

      (DataSetColumnSpec

         label: 'Icon'

         activeHelpKey: ''

         activeHelpKeyForLabel: ''

         labelButtonType: Button

         width: 22

         minWidth: 22

         height: heightOfFirstRow

         menuFromApplication: false

         printSelector: icon

         canSelect: false

         showRowSeparator: false

         showColSeparator: false

       )

      (DataSetColumnSpec

         label: 'Check'

         activeHelpKey: ''

         activeHelpKeyForLabel: ''

         labelButtonType: None

         width: 22

         minWidth: 22

         height: heightOfFirstRow

         editorType: CheckToggle

         rendererType: CheckToggle

         model: include

         menuFromApplication: false

         printSelector: include

         selectSelector: includeEditable

         showRowSeparator: false

         showColSeparator: false

       )

      (DataSetColumnSpec

         label: 'File'

         labelAlignment: left

         activeHelpKey: ''

         activeHelpKeyForLabel: ''

         labelButtonType: Button

         height: heightOfFirstRow

         menuFromApplication: false

         printSelector: pathText

         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:SCMAbstractCommitDialog andSelector:#filePaneSpec

     SCMAbstractCommitDialog 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

             postBuildCallback: postBuildFileListView:

           )

          (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

           )

          )

       )

     )

!

windowSpec

    "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:SCMAbstractCommitDialog andSelector:#windowSpec

     SCMAbstractCommitDialog new openInterface:#windowSpec

     SCMAbstractCommitDialog open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       uuid: 'ef35eb20-f5eb-11eb-b159-0021ccd5e3d3'

       window: 

      (WindowSpec

         label: 'SubVersion: Dialog '

         name: 'SubVersion: Dialog '

         uuid: 'ef368760-f5eb-11eb-b159-0021ccd5e3d3'

         labelChannel: titleHolder

         min: (Point 10 10) bounds: (Rectangle 0 0 648 451)

      ) component: 

      (SpecCollection

         collection: (

          (ViewSpec

             name: 'TitleBox'

             layout: (LayoutFrame 0 0 0 0 0 1 66 0) uuid: 'ef36ae70-f5eb-11eb-b159-0021ccd5e3d3'

             backgroundColor: (Color 100.0 100.0 100.0) component: 

            (SpecCollection

               collection: (

                (LabelSpec

                   label: 'DialogTitle'

                   name: 'DialogTitle'

                   layout: (LayoutFrame 10 0 0 0 -75 1 40 0) style: (FontDescription helvetica medium roman 18 #'iso10646-1' nil nil) uuid: 'ef36ae71-f5eb-11eb-b159-0021ccd5e3d3'

                   foregroundColor: (Color 0.0 0.0 0.0) backgroundColor: (Color 100.0 100.0 100.0) translateLabel: true

                   labelChannel: titleHolder

                   adjust: left

                )

                (LabelSpec

                   label: 'DialogSubtitle'

                   name: 'DialogSubtitle'

                   layout: (LayoutFrame 30 0 40 0 -75 1 66 0) uuid: 'ef36ae72-f5eb-11eb-b159-0021ccd5e3d3'

                   foregroundColor: (Color 0.0 0.0 0.0) backgroundColor: (Color 100.0 100.0 100.0) translateLabel: true

                   labelChannel: subtitleHolder

                   resizeForLabelHorizontal: false

                   resizeForLabelVertical: false

                   adjust: left

                )

                (LabelSpec

                   label: 'Icon'

                   name: 'DialogIcon'

                   layout: (LayoutFrame -157 1 0 0 0 1 66 0) uuid: 'ef36ae73-f5eb-11eb-b159-0021ccd5e3d3'

                   hasCharacterOrientedLabel: false

                   backgroundColor: (Color 100.0 100.0 100.0) translateLabel: true

                   labelChannel: dialogIconAspect

                   adjust: right

                )

              )

            )

          )

          (ViewSpec

             name: 'ContentBox'

             layout: (LayoutFrame 5 0 70 0 -5 1 -50 1) uuid: 'ef36ae74-f5eb-11eb-b159-0021ccd5e3d3'

             component: 

            (SpecCollection

               collection: (

                (SubCanvasSpec

                   name: 'Content'

                   layout: (LayoutFrame 0 0 0 0 0 1 0 1) uuid: 'ef36ae75-f5eb-11eb-b159-0021ccd5e3d3'

                   hasHorizontalScrollBar: false

                   hasVerticalScrollBar: false

                   specHolder: contentSpecHolder

                   createNewBuilder: false

                )

              )

            )

          )

          (DividerSpec

             name: 'Separator'

             layout: (LayoutFrame 5 0 -50 1 -5 1 -30 1) uuid: 'ef36d580-f5eb-11eb-b159-0021ccd5e3d3'

          )

          (UISubSpecification

             name: 'Buttons'

             layout: (LayoutFrame 0 0 -30 1 0 1 0 1) uuid: 'ef36d581-f5eb-11eb-b159-0021ccd5e3d3'

             minorKey: buttonsSpec

          )

        )

      )

    )

! !

!SCMAbstractCommitDialog 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:SCMAbstractCommitDialog andSelector:#fileListMenu

     (Menu new fromLiteralArrayEncoding:(SCMAbstractCommitDialog fileListMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            enabled: canShowDiffsForEntry

            label: 'Show differences'

            itemValue: doShowDiffsForEntry

          )

         (MenuItem

            enabled: canShowDiffsForEntry

            label: 'Show differences (against newest)'

            itemValue: doShowDiffsForEntryAgainstHEAD

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            label: 'Select All Files'

            itemValue: doSelectAll

          )

         (MenuItem

            label: 'Unselect all Files'

            itemValue: doSelectNone

          )

         )

        nil

        nil

      )

! !

!SCMAbstractCommitDialog methodsFor:'accessing'!

defaultSubtitle

    | t packages|

    t := self task.

    packages := t packages.

    ^packages notEmptyOrNil ifTrue:[

        packages size == 1 ifTrue:[

            'Package: ' , packages anElement name asText allItalic

        ] ifFalse:[ 

            'Packages: ' , ((packages collect:[:e | e name ]) asStringWith: ', ')

        ].

    ] ifFalse:[

        | title |

        title := t workingCopy root pathName , ' [' , t workingCopy branch name , ']'.

        title size > 70 ifTrue:[

            title := '...' , (title copyFrom: title size - 67).

        ].

        title.

    ]

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

    "Modified: / 22-02-2014 / 23:45:55 / 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>"

!

model

    <resource: #obsolete>

    self breakPoint: #jv.

    ^self task

    "Created: / 12-01-2013 / 11:59:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"