"

COPYRIGHT (c) 2020 LabWare

"

"{ Package: 'stx:goodies/monticello' }"

"{ NameSpace: Smalltalk }"

AbstractSettingsApplication subclass:#MCSettingsApp

	instanceVariableNames:'mcRepositories selectedRepositoryHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Monticello-St/X UI'

!

!MCSettingsApp class methodsFor:'documentation'!

copyright

"

COPYRIGHT (c) 2020 LabWare

"

! !

!MCSettingsApp class methodsFor:'help specs'!

flyByHelpSpec

    <resource: #help>

    ^self helpSpec

    "Created: / 26-05-2008 / 14:25:31 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

helpSpec

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

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

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

    "

     UIHelpTool openOnClass:MCSettingsApp    

    "

    <resource: #help>

    ^ super helpSpec addPairsFrom:#(

#addRepository

'Add another monticello repository to the list'

#makePrimaryRepository

'Checkin from the browser will go into this repository by default'

#primaryRepository

'Checkin from the browser will go into this repository by default'

#removeRepository

'Remove the selected repository from the list'

)

    "Modified: / 03-12-2011 / 11:35:51 / cg"

! !

!MCSettingsApp class methodsFor:'image specs'!

defaultIcon

    "/ ^ self repositoryIcon.

    ^ self squeakRepositoryIcon24x24

    "Created: / 26-05-2008 / 14:55:55 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 16-09-2010 / 14:02:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 15-01-2012 / 10:34:53 / cg"

!

repositoryIcon

    "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 defaultIcon inspect

     ImageEditor openOnClass:self andSelector:#defaultIcon

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:#'MCSettingsApp class repositoryIcon'

        ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@

@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S

A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E

F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@

@@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W

EQXVE @@@@@@@@@@@@@@@@@@@@@@@A(Z@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 64 0 0 64 0 32 32 0 0 32 0 32 96 32 96 192 128 192 224 192 160 224 160 32 128 64 64 96 64 64 96 32 32 160 64 160 224 192 64 160 96 32 128 32 224 224 224 64 128 64 160 192 160 224 224 192 32 160 96 160 160 160 64 64 64 96 96 96 128 128 128 192 192 192 32 32 32 32 64 32]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@O8@@?>@A??@A?C C<@0C8@PC8@@??@@??F@_>O@O<_ G8?0C1?8A#?<@C?<@@_@H@_@L@?@GC>@C?>@A?<@@_0@') ; yourself); yourself]

    "Created: / 26-05-2008 / 14:55:55 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 16-09-2010 / 14:02:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 25-11-2011 / 15:46:41 / cg"

    "Created: / 15-01-2012 / 10:34:23 / cg"

!

squeakIcon

    "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 squeakIcon inspect

     ImageEditor openOnClass:self andSelector:#squeakIcon

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:'SVN::ConfigurationApp class squeakIcon'

        ifAbsentPut:[(Depth8Image new) width: 24; height: 18; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0@@@@@@@@@@@@@@A@TF@@@@@@@@@@\@@ D@@@@@@@@@@@@C

@ @F@@@@@@@@@@ @@@H@@@@@@@@@@@@B@@@F@@@@@@@@@@$@@@@J@@@@@@@@@@H@@@@F@@@@@@@@@@,@@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@0@@@@@@@@@

@@@@@@@@@@@K@@@@@@@@@@DM@@@@@04@@@@@CP@@@@,A@@@@@@@@@@@N@@@@C0<M@@@OC04@@@,@@@@@@@@@@@@K@@@@C1@Q@@@ODAD@@AH@@@@@@@@@@@@@

@@@@DQLM@@@QC04@@@@@@@@@@@@@B@@@@@ @@@@@@P@@@@@@B@@@@@@@@@@KB0@@@@@F@@@QC0<Q@@@@@@@@@@@@@@@@@@@KB0,@@@@QC0<Q@@@@B0,KB0@@

@@@@@@@@@@@K@@@@@0@@@@@KB0@@@@,@@@@@@@@@B0@@@@@@@@@@@@@@@@,K@@@K@@@@@@X@@@@@@@@@@@@@@@@@@@@@B0@@') ; colorMapFromArray:#[164 164 164 232 232 232 102 102 102 233 233 233 236 236 236 143 143 143 161 161 161 110 110 110 190 190 190 163 163 163 97 97 97 169 169 169 124 124 124 185 185 185 155 155 155 0 0 0 255 255 255 139 139 139 118 118 118 4 4 4]; mask:((Depth1Image new) width: 24; height: 18; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@C @8B0A(BPAHBHBHB@@HB@@HCFDXAGNPAGNP@GN@G0 <LI9CC18<DX!!"I @YB@@D') ; yourself); yourself]

!

squeakRepositoryIcon24x24

    "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 squeakRepositoryIcon24x24 inspect

     ImageEditor openOnClass:self andSelector:#squeakRepositoryIcon24x24

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:'SVN::ConfigurationApp class squeakRepositoryIcon24x24'

        ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0@@@@@@@@@@@@@@A@TF@@@@@@@@@@\@@ D@@@@@@@@@@@@C

@ @F@@@@@@@@@@ @@@H@@@@@@@@@@@@B@@@F@@@@@@@@@@$@@@@J@@@@@@@@@@H@@@@F@@@@@@@@@@,@@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@0@@@@@@@@@

@@@@@@@@@@@K@@@@@@@@@@DM@@@@@04@@@@@CP@@@@,A@@@@@@@@@@@N@@@@C0<M@@@OC04@@@,@@@@@@@@@@@@K@@@@C1@Q@@@ODAD@@AH@@@@@@@@@@@@@

@@@@DQLM@@@QC04@@@@@@@@@@@@@B@@ZF!!\W@@@@@P@@@@@@B@@@@@@@@@@KB1\ZF!!(ZE0@QC0<Q@@@@@@@@@@@@@@@@E!!(ZB0,@@A\QC0<Q@@@@B0,KB0@@

@@@@E1 W@@@K@@@@@0@@@@@KB0@@@@,@@A\WF!!$ZF0@@G@@@@@@@@@@@@@,K@@@K@@@WFQ(W@@@\GA0@@@@@@@@@@@@@B0@@@@@@E2@@@A0_G18\@@@@@@@@

@@@@@@@@@@@@@@@@GA0]GA0\@@@@@@@@@@@@@@@@@@@\@@@@@@@\G@@@@@@@@@@@@@@@@@@@@@@@GA0\GA0\C0@@@@@@@@@@@@@@@@@@@@@@@A4\GA0O@@@@

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[164 164 164 232 232 232 102 102 102 233 233 233 236 236 236 143 143 143 161 161 161 110 110 110 190 190 190 163 163 163 97 97 97 169 169 169 124 124 124 185 185 185 155 155 155 0 0 0 255 255 255 139 139 139 118 118 118 4 4 4 229 229 229 214 214 214 0 64 0 32 96 32 96 192 128 32 128 64 32 160 64 32 128 32 64 64 64 96 96 96 128 128 128 32 32 32 32 64 32]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@C @8B0A(BPAHBHBHB@@HB@@HCFDXAGNPAGNP@GN@G8 <O=9CG38<GX!!"_$@YON@DF_@@@?@@HL@@G<@@C8@@@@@@') ; yourself); yourself]

!

svnIcon

    "^ IconLibrary svn_wizban"

    ^nil

    "Created: / 24-05-2008 / 01:44:19 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 16-09-2010 / 14:02:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!MCSettingsApp class methodsFor:'interface opening'!

open    

    | settingsApp |

    settingsApp := SettingsDialog new.

    settingsApp addApplClass:self fullName

                withName:'Monticello'.

    settingsApp showRoot: false.

    settingsApp selectedItem value:

        (settingsApp applicationList root children anyOne).

    settingsApp open.

    "Created: / 26-05-2008 / 12:17:20 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 04-04-2012 / 11:17:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

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

     MCSettingsApp new openInterface:#windowSpec

     MCSettingsApp open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       uuid: 'a78e4130-babb-11ea-9743-606720e43e2c'

       window: 

      (WindowSpec

         label: 'Monticello Settings'

         name: 'Monticello Settings'

         uuid: 'a78e4131-babb-11ea-9743-606720e43e2c'

         min: (Point 10 10) bounds: (Rectangle 0 0 647 627)

      ) component: 

      (SpecCollection

         collection: (

          (LabelSpec

             label: ' Monticello Settings'

             name: 'Title'

             layout: (LayoutFrame 0 0 0 0 0 1 66 0) style: (FontDescription helvetica medium roman 18 #'iso10646-1' nil nil) uuid: 'a78e4132-babb-11ea-9743-606720e43e2c'

             backgroundColor: (Color 100.0 100.0 100.0) translateLabel: true

             adjust: left

          )

          (LabelSpec

             label: 'Icon'

             name: 'Icon'

             layout: (LayoutFrame -75 1 0 0 0 1 66 0) uuid: 'a78e4133-babb-11ea-9743-606720e43e2c'

             initiallyInvisible: true

             hasCharacterOrientedLabel: false

             backgroundColor: (Color 100.0 100.0 100.0) translateLabel: true

          )

          (VerticalPanelViewSpec

             name: 'Controls'

             layout: (LayoutFrame 0 0 70 0 0 1 0 1) uuid: 'a78e4134-babb-11ea-9743-606720e43e2c'

             horizontalLayout: fit

             verticalLayout: topFit

             horizontalSpace: 3

             verticalSpace: 3

             component: 

            (SpecCollection

               collection: (

                (HorizontalPanelViewSpec

                   name: 'EnabledAndResetPanel'

                   uuid: 'a78e4135-babb-11ea-9743-606720e43e2c'

                   horizontalLayout: rightSpaceFit

                   verticalLayout: topSpace

                   horizontalSpace: 0

                   verticalSpace: 3

                   component: 

                  (SpecCollection

                     collection: (

                      (CheckBoxSpec

                         label: 'Show in Browser Menus'

                         name: 'Enabled'

                         uuid: 'a78e4136-babb-11ea-9743-606720e43e2c'

                         model: mcEnabled

                         translateLabel: true

                         useDefaultExtent: true

                      )

                      (ActionButtonSpec

                         label: 'Flush caches'

                         name: 'ResetCachedRepositoriesButton'

                         uuid: 'a78e6840-babb-11ea-9743-606720e43e2c'

                         translateLabel: true

                         model: flushCaches

                         useDefaultExtent: true

                      )

                    )

                  ) useDefaultExtent: true

                )

                (ViewSpec

                   name: 'Box1'

                   uuid: 'a78e6841-babb-11ea-9743-606720e43e2c'

                   component: 

                  (SpecCollection

                     collection: (

                      (LabelSpec

                         label: 'Primary Repository: '

                         name: 'Label2'

                         layout: (LayoutFrame 7 0 0 0 150 0 22 0) activeHelpKey: primaryRepository

                         uuid: 'a78e6842-babb-11ea-9743-606720e43e2c'

                         translateLabel: true

                         adjust: left

                      )

                      (LabelSpec

                         name: 'Label3'

                         layout: (LayoutFrame 150 0 0 0 0 1 22 0) activeHelpKey: primaryRepository

                         uuid: 'a78e6843-babb-11ea-9743-606720e43e2c'

                         translateLabel: true

                         labelChannel: mcPrimaryRepository

                         adjust: left

                      )

                    )

                  ) extent: (Point 647 24)

                )

                (FramedBoxSpec

                   label: 'Repositories'

                   name: 'Repositories'

                   uuid: 'a78e6844-babb-11ea-9743-606720e43e2c'

                   labelPosition: topLeft

                   translateLabel: true

                   component: 

                  (SpecCollection

                     collection: (

                      (VerticalPanelViewSpec

                         name: 'RepositoryConfigurations'

                         layout: (LayoutFrame 0 0 0 0 0 1 0 1) uuid: 'a78e6845-babb-11ea-9743-606720e43e2c'

                         horizontalLayout: fit

                         verticalLayout: bottomFit

                         horizontalSpace: 3

                         verticalSpace: 3

                         component: 

                        (SpecCollection

                           collection: (

                            (ViewSpec

                               name: 'RepositoryConfigurationListBox'

                               uuid: 'a78e6846-babb-11ea-9743-606720e43e2c'

                               model: mcRepositories

                               component: 

                              (SpecCollection

                                 collection: (

                                  (SelectionInListModelViewSpec

                                     name: 'RepositoryList'

                                     layout: (LayoutFrame 0 0 0 0 0 1 0 1) uuid: 'a78e6847-babb-11ea-9743-606720e43e2c'

                                     model: selectedRepositoryHolder

                                     hasHorizontalScrollBar: true

                                     hasVerticalScrollBar: true

                                     listModel: mcRepositories

                                     useIndex: false

                                     highlightMode: line

                                  )

                                )

                              ) extent: (Point 613 429)

                            )

                            (HorizontalPanelViewSpec

                               name: 'AddRemovePanel'

                               uuid: 'a78e6848-babb-11ea-9743-606720e43e2c'

                               horizontalLayout: fit

                               verticalLayout: center

                               horizontalSpace: 3

                               verticalSpace: 3

                               component: 

                              (SpecCollection

                                 collection: (

                                  (ActionButtonSpec

                                     label: 'Add...'

                                     name: 'AddConfigurationAction'

                                     activeHelpKey: addRepository

                                     uuid: 'a78e6849-babb-11ea-9743-606720e43e2c'

                                     translateLabel: true

                                     model: addRepositoryAction

                                     extent: (Point 151 25)

                                  )

                                  (ActionButtonSpec

                                     label: 'Remove...'

                                     name: 'RemoveConfigurationAction'

                                     activeHelpKey: removeRepository

                                     uuid: 'a78e684a-babb-11ea-9743-606720e43e2c'

                                     translateLabel: true

                                     model: removeRepositoryAction

                                     enableChannel: repositorySelectedHolder

                                     extent: (Point 151 25)

                                  )

                                  (LabelSpec

                                     name: 'Label1'

                                     uuid: 'a78e684b-babb-11ea-9743-606720e43e2c'

                                     translateLabel: true

                                     extent: (Point 151 22)

                                  )

                                  (ActionButtonSpec

                                     label: 'Define as Primary'

                                     name: 'Button1'

                                     activeHelpKey: makePrimaryRepository

                                     uuid: 'a78e8f50-babb-11ea-9743-606720e43e2c'

                                     translateLabel: true

                                     model: defineAsPrimaryRepositoryAction

                                     enableChannel: mcEnabledAndRepositorySelectedHolder

                                     extent: (Point 151 25)

                                  )

                                )

                              ) extent: (Point 613 30)

                            )

                          )

                        )

                      )

                    )

                  ) extent: (Point 647 495)

                )

              )

            )

          )

        )

      )

    )

! !

!MCSettingsApp class methodsFor:'queries'!

managerTypeName

    ^ 'Monticello'

    "Created: / 21-07-2011 / 11:47:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!MCSettingsApp methodsFor:'accessing'!

repositoryConfiguration

    ^self selectedRepositoryHolder value

    "Created: / 26-05-2008 / 12:04:54 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 27-09-2011 / 11:55:22 / cg"

!

repositoryConfiguration: anObject

    self selectedRepositoryHolder value: anObject

    "Created: / 26-05-2008 / 12:12:17 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 27-09-2011 / 11:55:24 / cg"

!

repositoryConfigurationList

    ^self mcRepositories value

    "Created: / 26-05-2008 / 12:05:01 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 27-09-2011 / 11:50:53 / cg"

!

repositoryManager

    ^RepositoryManager current

    "Created: / 26-05-2008 / 10:46:30 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

workingCopyBase

    ^self workingCopyBaseAspect value

    "Created: / 26-05-2008 / 13:15:22 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!MCSettingsApp methodsFor:'actions'!

addRepositoryAction

    | dialog class codeHolder repo lastInput asking |

    class := Dialog 

            choose:'Select repository type' 

            fromList:#('HTTP Repository' 'FTP Repository' 'Local Repository')

            values:(Array 

                        with: MCHttpRepository 

                        with: MCFtpRepository 

                        with: MCDirectoryRepository)

            lines:5 cancel:[^self].

    codeHolder := ValueHolder new.

    asking := true.

    [asking] whileTrue:[

        class == MCDirectoryRepository ifTrue:[

            |dir|

            dir := Dialog requestDirectoryName:'MC Repository Directory'.

            dir isEmptyOrNil ifTrue:[^ self].

            repo := MCDirectoryRepository directory:dir.

        ] ifFalse:[

            dialog := Dialog 

                    forRequestText:'Please Fill in Data:' 

                    lines:10 columns:60 

                    initialAnswer: (lastInput ? class creationTemplate)  

                    model:codeHolder.

            dialog open.

            dialog accepted ifFalse:[^self].

            lastInput := codeHolder value.

            repo := Compiler evaluate: codeHolder value.

        ].

        repo isValid ifTrue:[

            asking := false

        ] ifFalse:[

            |answer|

            repo class == MCDirectoryRepository ifTrue:[

                answer := Dialog confirmWithCancel:'Invalid repository. Create?'.

                answer == nil ifTrue:[

                    ^ self

                ].

                answer == true ifTrue:[

                    repo directory asFilename recursiveMakeDirectory

                ].

                asking := false

            ] ifFalse:[

                answer := Dialog confirmWithCancel:'Invalid repository. Try again?'.

                answer == nil ifTrue:[

                    ^ self

                ].