"

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

Copyright (C) 2012-2013 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' }"

AbstractSourceCodeManagementSettingsAppl subclass:#HGSourceCodeManagementSettingsAppl

	instanceVariableNames:'defaultLogo hgCommand hgDiff2Command hgDiff3Command hgAutopush'

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Mercurial-StX-Interface'

!

!HGSourceCodeManagementSettingsAppl class methodsFor:'documentation'!

copyright

"

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

Copyright (C) 2012-2013 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

"

! !

!HGSourceCodeManagementSettingsAppl class methodsFor:'image specs'!

defaultIcon

    <resource: #programImage>

    ^ self defaultIcon3

    "Created: / 22-12-2011 / 13:47:11 / cg"

!

defaultIcon1

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     self defaultIcon1 inspect

     ImageEditor openOnClass:self andSelector:#defaultIcon1

        constantNamed:'MercurialSourceCodeManagementSettingsAppl class defaultIcon1'

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PHCA@PEA D@@@@@@@@@@@@@@@@@@@@GA@ HB@ HB@$C

B @@@@@@@@@@@@@@@@,IB@ HB@ HB@ LA@4@@@@@@@@@@@@@C LLB@ HB@ HB@ HB@<P@@@@@@@@@@@@BPPHB@ HB@ HB@ HBADR@@@@@@@@@@@@D0$HB@ H

B@ HB@ HB@ SA@@@@@@@@@@@@APLB@ HB@ HB@ HB@ IEP@@@@@VA@LW@Q OC@ HB@ HB@ HB@ LFPD@@@DLBP\Q@@@ZF0 LB@ HB@ HB@ IF@X@@A0HA!!4^

@@@SF!!<_@@$HB@ HB@0FH@L@@BDI@AHC@@@@HP@O@BHIB@ HB@LFH0H@@@@ABQ0@@@@@@@@!!A@@DB@ HCA0OI@8@@@@@@@@@@A\@@@@@@@XDB@ HBP8%I D@

@@@@@@@BA@$D@P@@@@8IB@ LC P''C0@@@@@@@@DIB@ HBQ0@@@8LA@XA@Q<Y@0@@@@@@@@PLB@ DA@@@@@PCB" JC2T[@@@@@@@@@@PLB@PPBP@@@@P)JB$I

J!!HA@@@@@@@@@B,LBQXCKB,@A XACQP-F0L@@@@@@@@@@@(RK"T,D0@@BA,/LCD@L @@@@@@@@@@@@@@@ $!!@@@@@QTTC@ 3@@@@@@@@@@@@@@@@@@@@@@@@

!

defaultIcon2

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     self defaultIcon2 inspect

     ImageEditor openOnClass:self andSelector:#defaultIcon2

        constantNamed:'MercurialSourceCodeManagementSettingsAppl class defaultIcon2'

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PHCA@PEA D@@@@@@@@@@@@@@@@@@@@GA@ HB@ HB@$C

B @@@@@@@@@@@@@@@@,IB@ HB@ HB@ LA@4@@@@@@@@@@@@@C LLB@ HB@ HB@ HB@<P@@@@@@@@@@@@BPPHB@ HB@ HB@ HBADR@@@@@@@@@@@@D0$HB@ H

B@ HB@ HB@ SA@@@@@@@@@@@@APLB@ HB@ HB@ HB@ IEP@@@@@VA@LW@Q OC@ HB@ HB@ HB@ LFPD@@@DLBP\Q@@@ZF0 LB@ HB@ HB@ IF@X@@A0HA!!4^

@@@SF!!<_@@$HB@ HB@0FH@L@@BDI@AH:N#\7HP@O@BHIB@ HB@LFH0H@@@@ABS\:N#(:M0@!!A@@DB@ HCA0OI@8@@@@@M#(:@A\@@C\@@@XDB@ HBP8%I D@

@@@@M3 7A@$D@P@@@@8IB@ LC P''C0@@@C\7N#$:N0 HHA0@@@8LA@XA@Q<Y@0@@@@@7NS(7B@  HB@@@@PCB" JC2T[@@@@@@@@M34LBB@<OAP @@P)JB$I

J!!HA@@@@@@@@@B,LHB@YHB@ A XACQP-F0L@@@@@@@@ @@(RK"T H@@@BA,/LCD@L @@@@@@@@@@HB@ HB@ MP@@@QTTC@ 3@@@@@@@@@@@@@A$ HB@5@@@@

!

defaultIcon3

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     self defaultIcon3 inspect

     ImageEditor openOnClass:self andSelector:#defaultIcon3

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PHCA@PEA D@@@@@@@@@@@@@@@@@@@@GA@ HB@ HB@$C

B @@@@@@@@@@@@@@@@,IB@ HB@ HB@ LA@4@@@@@@@@@@@@@C LLB@ HB@ HB@ HB@<N@@@@@@@@@@@@BPPHB@ HB@ HB@ HBADR@@@@@@@@@@@@D0$HB@ H

B@ HB@ HB@ SA@@@@@@@@@@@@APLB@ HB@ HB@ HB@ IEP@@@@@VA@LW@Q OC@ HB@ HB@ HB@ LFPD@@@DLBP\Q@@@ZF0 LB@ HB@ HB@ IF@X@@A0HA!!4^

@@@SF!!<_@@$HB@ HB@0FH@L@@BDI@AH:N#\7HP@O@BHIB@ HB@LFH0H@@@@ABS\:N#(:M0@!!A@@DB@ HCA0OI@8@@@@@M#(:@A\@@C\@@@XDB@ HBP8%I D@

@@@@M3 7A@$D@P@@@@8IB@ LDA@''C0@@@C\7N#$:N0 HOA0@@@8LA@XADA@Y@0@@@@@7NS(7B@ <OC0@@@PCB" JDA@[@@@@@@@@M4@LBC0?O38<@@P)DA@P

DA@PDA@@@@@@@B,LOC0=OC0<A XADA@PDA@PDA@@@@@<@@(RK"T<O@@@BA,/LCD@DA@@@@@@@@@@OC0<OC0<MP@@@QTTC@ 3DA@@@@@@@@@@@C4<OC05@@@@

!

defaultLogo

    ^ HGIconLibrary hgLogo2

    "Created: / 04-10-2012 / 19:01:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 15-11-2012 / 23:12:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGSourceCodeManagementSettingsAppl class methodsFor:'interface specs'!

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

     HGSourceCodeManagementSettingsAppl new openInterface:#windowSpec

     HGSourceCodeManagementSettingsAppl open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       window: 

      (WindowSpec

         label: 'Mercurial Settings'

         name: 'Mercurial Settings'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 695 627)

       )

       component: 

      (SpecCollection

         collection: (

          (LabelSpec

             label: ' Mercurial Settings'

             name: 'MercurialSettingsTitle'

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

             style: (FontDescription helvetica medium roman 18 #'iso10646-1')

             backgroundColor: (Color 100.0 100.0 100.0)

             translateLabel: true

             adjust: left

           )

          (LabelSpec

             label: 'Logo'

             name: 'MercurialLogo'

             layout: (LayoutFrame -71 1 -1 0 4 1 65 0)

             hasCharacterOrientedLabel: false

             backgroundColor: (Color 100.0 100.0 100.0)

             translateLabel: true

             labelChannel: defaultLogo

           )

          (CheckBoxSpec

             label: 'Show in Menus'

             name: 'CheckBox1'

             layout: (LayoutFrame 0 0 73 0 0 1 103 0)

             activeHelpKey: shownInBrowserMenus

             model: shownInBrowserMenusHolder

             translateLabel: true

           )

          (ViewSpec

             name: 'Settings'

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

             component: 

            (SpecCollection

               collection: (

                (VerticalPanelViewSpec

                   name: 'GeneralSettingsPanel'

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

                   horizontalLayout: fit

                   verticalLayout: top

                   horizontalSpace: 3

                   verticalSpace: 3

                   component: 

                  (SpecCollection

                     collection: (

                      (ViewSpec

                         name: 'Panel1'

                         component: 

                        (SpecCollection

                           collection: (

                            (LabelSpec

                               label: '''hg'' command:'

                               name: 'CommandLabel'

                               layout: (LayoutFrame 5 0 0 0 150 0 30 0)

                               translateLabel: true

                               adjust: right

                             )

                            (FilenameInputFieldSpec

                               name: 'HGCommand'

                               layout: (LayoutFrame 150 0 0 0 -100 1 0 1)

                               model: hgCommand

                               acceptOnPointerLeave: true

                               emptyFieldReplacementText: 'Autodetect'

                             )

                            (ActionButtonSpec

                               label: 'Test'

                               name: 'HGCommandTest'

                               layout: (LayoutFrame -100 1 0 0 -8 1 0 1)

                               translateLabel: true

                               model: doTestHGCommand

                               enableChannel: svnEnabled

                             )

                            )

                         )

                         extent: (Point 695 30)

                       )

                      (ViewSpec

                         name: 'Spacer'

                         extent: (Point 695 15)

                       )

                      (FramedBoxSpec

                         label: 'External Tools'

                         name: 'ToolsSettings'

                         initiallyInvisible: true

                         labelPosition: topLeft

                         translateLabel: true

                         component: 

                        (SpecCollection

                           collection: (

                            (LabelSpec

                               label: 'Diff2:'

                               name: 'Label1'

                               layout: (LayoutFrame 0 0 0 0 80 0 30 0)

                               translateLabel: true

                               adjust: left

                             )

                            (FilenameInputFieldSpec

                               name: 'FilenameEntryField1'

                               layout: (LayoutFrame 80 0 3 0 0 1 28 0)

                               enableChannel: svnEnabled

                               model: hgDiff2Command

                               acceptOnPointerLeave: true

                             )

                            (LabelSpec

                               label: 'Diff3:'

                               name: 'Label2'

                               layout: (LayoutFrame 0 0 30 0 80 0 0 1.0)

                               translateLabel: true

                               adjust: left

                             )

                            (FilenameInputFieldSpec

                               name: 'FilenameEntryField2'

                               layout: (LayoutFrame 80 0 33 0 0 1 58 0)

                               enableChannel: svnEnabled

                               model: hgDiff3Command

                               acceptOnPointerLeave: true

                             )

                            )

                         )

                         extent: (Point 695 95)

                       )

                      (FramedBoxSpec

                         label: 'Debugging'

                         name: 'DebugSettings'

                         initiallyInvisible: true

                         labelPosition: topLeft

                         translateLabel: true

                         component: 

                        (SpecCollection

                           collection: (

                            (VerticalPanelViewSpec

                               name: 'VerticalPanel1'

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

                               horizontalLayout: fit

                               verticalLayout: top

                               horizontalSpace: 3

                               verticalSpace: 3

                               component: 

                              (SpecCollection

                                 collection: (

                                  (CheckBoxSpec

                                     label: 'Verbose (Traces svn commands to Transcript)'

                                     name: 'Verbose'

                                     enableChannel: svnEnabled

                                     model: svnVerbose

                                     translateLabel: true

                                     useDefaultExtent: true

                                   )

                                  )

                               )

                             )

                            )

                         )

                         extent: (Point 695 70)

                       )

                      (CheckBoxSpec

                         label: 'Automatically push changes to upstream repository'

                         name: 'CheckBox2'

                         model: hgAutopush

                         translateLabel: true

                         extent: (Point 695 30)

                       )

                      )

                   )

                 )

                )

             )

           )

          )

       )

     )

! !

!HGSourceCodeManagementSettingsAppl class methodsFor:'queries'!

managerClass

    "backlink to my manager class (needed by the settings app)"

    ^ HGSourceCodeManager

    "Created: / 19-04-2011 / 12:46:52 / cg"

    "Modified: / 13-11-2012 / 22:15:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGSourceCodeManagementSettingsAppl methodsFor:'actions'!

doTestHGCommand

    self hgCommand value isEmptyOrNil ifTrue:[

        self doTestHGCommand: HGCommand hgCommand

    ] ifFalse:[

        self doTestHGCommand: self hgCommand value

    ]

    "Created: / 19-11-2012 / 21:32:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 21-01-2013 / 04:59:14 / jv"

!

doTestHGCommand: command

    | version versionString |

    (OperatingSystem canExecuteCommand: command) ifFalse:[

        Dialog warn: 'Cannot execute hg command.\\Make sure Metcurial is installed and PATH is set up correctly' withCRs.

        ^self.

    ].

    [

        versionString := OperatingSystem getCommandOutputFrom:('"%1" --version' bindWith:command).

        version := (HGCommandParser on: versionString) parseCommandVersion.

        (HGCommand hgVersionIsSupported:version) ifTrue:[

            Dialog information: ('Installed Mercurial version is OK.\\Reported version: ', versionString) withCRs.

        ] ifFalse:[

            Dialog warn: ('Installed Mercurial is not (yet) supported.\\Reported version: ', versionString) withCRs.

        ].

    ] on: HGCommandError do:[

        Dialog warn: 'Failed to read ''',command,' --version'''.

        ^self

    ].

    "Created: / 19-11-2012 / 21:32:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 21-01-2013 / 05:12:39 / jv"

! !

!HGSourceCodeManagementSettingsAppl methodsFor:'aspects'!

hgAutopush

    hgAutopush isNil ifTrue:[

        hgAutopush := self settingsAspectFor: #hgAutopush

    ].

    ^ hgAutopush

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

!

hgCommand

    hgCommand isNil ifTrue:[

        hgCommand := self settingsAspectFor: #hgCommand

    ].

    ^ hgCommand

    "Modified: / 19-11-2012 / 21:30:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

hgDiff2Command

    hgDiff2Command isNil ifTrue:[

        hgDiff2Command := self settingsAspectFor: #hgDiff2Command

    ].

    ^ hgDiff2Command

    "Created: / 19-11-2012 / 21:30:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

hgDiff3Command

    hgDiff3Command isNil ifTrue:[

        hgDiff3Command := self settingsAspectFor: #hgDiff3Command

    ].

    ^ hgDiff3Command

    "Created: / 19-11-2012 / 21:30:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

settings

    ^#(hgCommand hgAutopush)

    "Created: / 10-12-2012 / 02:40:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGSourceCodeManagementSettingsAppl methodsFor:'help'!

editorHelpRelativeWikiURL

    "the relative URL of the dialog-description in the Wiki"

    ^ 'Settings_HGSourceCodeManagerSettings'