"{ Package: 'stx:libtool' }"

AbstractSourceCodeManagementSettingsAppl subclass:#PerforceSourceCodeManagementSettingsAppl

	instanceVariableNames:'sourceCacheDir listOfModules removeEnabled acceptChannel

		selectedPerModuleRoot verboseSourceCodeAccess

		perforceExecutableHolder listOfPerforceModules

		defaultSettingsHolder tableColumns defaultSettingsPrototypeList'

	classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts

		RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser

		LastStorePassword'

	poolDictionaries:''

!

ApplicationModel subclass:#ManagerPerModuleApp

	instanceVariableNames:'moduleHolder acceptChannel settingsHolder

		sourceCodeManagementSettingsApp acceptEnableChannel canceled

		defaultSettingsPrototypeList'

	classVariableNames:''

	poolDictionaries:''

	privateIn:PerforceSourceCodeManagementSettingsAppl

!

Object subclass:#ModuleManager

	instanceVariableNames:'manager module settings app'

	classVariableNames:''

	poolDictionaries:''

	privateIn:PerforceSourceCodeManagementSettingsAppl

!

!PerforceSourceCodeManagementSettingsAppl class methodsFor:'image specs'!

defaultIcon

    "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:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'

        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]

! !

!PerforceSourceCodeManagementSettingsAppl 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."

    "

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Source Code Manager Settings'

          name: 'Source Code Manager Settings'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 726 653)

        )

        component: 

       (SpecCollection

          collection: (

           (VerticalPanelViewSpec

              name: 'VerticalPanel2'

              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)

              horizontalLayout: fit

              verticalLayout: topSpace

              horizontalSpace: 3

              verticalSpace: 20

              component: 

             (SpecCollection

                collection: (

                 (VerticalPanelViewSpec

                    name: 'VerticalPanel3'

                    horizontalLayout: fit

                    verticalLayout: top

                    horizontalSpace: 3

                    verticalSpace: 4

                    component: 

                   (SpecCollection

                      collection: (

                          component: 

                         (SpecCollection

                            collection: (

                              )

                             )

                          )

                        )

                       (ViewSpec

                          name: 'ManagerSetupBoxx'

                          component: 

                         (SpecCollection

                            collection: (

                             (FramedBoxSpec

                                label: 'Per Module Manager Setup'

                                name: 'PerModuleManagerSetup'

                                layout: (LayoutFrame 0 0 -1 0 0 1 -3 1)

                                labelPosition: topLeft

                                translateLabel: true

                                component: 

                               (SpecCollection

                                  collection: (

                                   (DataSetSpec

                                      name: 'Table1'

                                      layout: (LayoutFrame 5 0 5 0 0 1 180 0)

                                      model: selectedPerModuleRoot

                                      hasHorizontalScrollBar: true

                                      hasVerticalScrollBar: true

                                      dataList: listOfModules

                                      useIndex: false

                                      columnHolder: tableColumns

                                      beDependentOfRows: true

                                    )

                                   (HorizontalPanelViewSpec

                                      name: 'HorizontalPanel11'

                                      layout: (LayoutFrame 5 0 -25 1 -1 1 0 1)

                                      horizontalLayout: fitSpace

                                      verticalLayout: center

                                      horizontalSpace: 3

                                      verticalSpace: 3

                                      component: 

                                     (SpecCollection

                                        collection: (

                                         (ActionButtonSpec

                                            label: 'Add/Apply'

                                            name: 'Button2'

                                            translateLabel: true

                                            tabable: true

                                            model: addPerModuleRoot

                                          )

                                         (ActionButtonSpec

                                            label: 'Remove'

                                            name: 'Button3'

                                            translateLabel: true

                                            tabable: true

                                            model: removePerModuleRoot

                                            enableChannel: removeEnabled

                                          )

                                         )

                                      )

                                    )

                                   )

                                )

                              )

                             )

                          )

                          extent: (Point 726 250)

                        )

                       (FramedBoxSpec

                          label: 'Source Cache'

                          name: 'FramedBox2'

                          labelPosition: topLeft

                          translateLabel: true

                          component: 

                         (SpecCollection

                            collection: (

                             (ViewSpec

                                name: 'Box4'

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

                                component: 

                               (SpecCollection

                                  collection: (

                                   (LabelSpec

                                      label: 'Source Cache Dir:'

                                      name: 'Label23'

                                      layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)

                                      translateLabel: true

                                      adjust: right

                                    )

                                   (InputFieldSpec

                                      name: 'EntryField9'

                                      layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)

                                      model: sourceCacheDir

                                      immediateAccept: false

                                      acceptOnReturn: true

                                      acceptOnTab: true

                                      acceptOnLostFocus: true

                                      acceptOnPointerLeave: true

                                    )

                                   )

                                )

                              )

                             (HorizontalPanelViewSpec

                                name: 'HorizontalPanel12'

                                layout: (LayoutFrame 44 0.25 33 0 0 1 67 0)

                                horizontalLayout: fitSpace

                                verticalLayout: center

                                horizontalSpace: 3

                                verticalSpace: 3

                                component: 

                               (SpecCollection

                                  collection: (

                                   (ActionButtonSpec

                                      label: 'Flush Cache now'

                                      name: 'Button4'

                                      translateLabel: true

                                      tabable: true

                                      model: flushSourceCache

                                    )

                                   (ActionButtonSpec

                                      label: 'Condense Cache now'

                                      name: 'Button5'

                                      translateLabel: true

                                      tabable: true

                                      model: condenseSourceCache

                                    )

                                   )

                                )

                              )

                             )

                          )

                          extent: (Point 726 95)

                        )

                       (ViewSpec

                          name: 'VerboseBox'

                          component: 

                         (SpecCollection

                            collection: (

                             (CheckBoxSpec

                                label: 'Verbose (Trace Access on Transcript)'

                                name: 'CheckBox6'

                                layout: (LayoutFrame 30 0 5 0 -5 1 27 0)

                                model: verboseSourceCodeAccess

                                translateLabel: true

                              )

                             )

                          )

                          extent: (Point 726 25)

                        )

                       )

                    )

                    extent: (Point 726 768)

                  )

                 )

              )

            )

           )

        )

      )

! !

!PerforceSourceCodeManagementSettingsAppl class methodsFor:'queries'!

managerClass

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

    ^ PerforceSourceCodeManager

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

! !

!PerforceSourceCodeManagementSettingsAppl class methodsFor:'tableColumns specs'!

tableColumns

    "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:P4SourceCodeManagementSettingsAppl andSelector:#tableColumns

    "

    <resource: #tableColumns>

    ^#(

      (DataSetColumnSpec

         label: 'Module'

         labelButtonType: Button

         usePreferredWidth: true

         model: module

       )

      (DataSetColumnSpec

         label: 'Settings'

         labelButtonType: Button

         editorType: InputField

         model: settings

         isResizeable: false

       )

      )

! !

!PerforceSourceCodeManagementSettingsAppl methodsFor:'actions'!

addModule:aModuleManager

    |detectedManager|

    detectedManager := self listOfModules detect:[:eachModuleManager| eachModuleManager module = aModuleManager module] ifNone:nil.

    detectedManager isNil ifTrue:[

        self listOfModules add:aModuleManager; sort.

        self updateModifiedChannel.

    ] ifFalse:[

        Dialog information:'Manager for Module ', aModuleManager module, ' already exists'.

    ].

    "Created: / 08-11-2006 / 19:25:21 / cg"

!

addModule:module withData:data

    (self listOfModules includes:module) ifFalse:[

        self listOfModules add:module; sort.

    ].

    self updateModifiedChannel.

    "Created: / 08-11-2006 / 19:25:21 / cg"

!

addPerModuleRoot

    |app moduleManager|

    app := ManagerPerModuleApp openFromSourceCodeManagementSettingsApp:self.

    app canceled ifFalse:[

        moduleManager := ModuleManager newForApplication:self.

        app moduleHolder value isEmptyOrNil ifTrue:[

            self information:'Adding without module name not allowed'.

            ^ self.

        ].

        moduleManager module:app moduleHolder value.

        moduleManager settings:app settingsHolder value.

        moduleManager settings:app settingsHolder value.

        self listOfModules add:moduleManager.

        self updateModifiedChannel.

    ].

    "Modified: / 08-11-2006 / 19:27:39 / cg"

!

basicReadSettings

    |moduleManager moduleAndSettings|

    self initialize.

    self defaultSettingsHolder value:PerforceSourceCodeManager getPerforceDefaultSettingsString.

    self listOfModules removeAll.

    moduleAndSettings := PerforceSourceCodeManager repositoryInfoPerModule copy.

    moduleAndSettings notEmptyOrNil ifTrue:[

        moduleAndSettings keysAndValuesDo:[:module :settings|

            moduleManager := ModuleManager newForApplication:self.

            moduleManager module:module.

            moduleManager settings:settings.

            self listOfModules add:moduleManager.

        ].

    ].

    self listOfModules sort.

    self hasManager ifTrue:[

        self sourceCacheDir value:(PerforceSourceCodeManager cacheDirectoryName).

    ].

    self perforceExecutableHolder value:PerforceSourceCodeManager perforceExecutable.

    self verboseSourceCodeAccess value:PerforceSourceCodeManager verboseSourceCodeAccess.

"/    self selectedPerModuleRootChanged.

    "Modified: / 19-04-2011 / 10:53:15 / cg"

!

basicSaveSettings

    |client settings repositoryInfoPerModule|

    self hasManager ifTrue:[

        | nm fn|

        nm := self sourceCacheDir value.

        nm notEmptyOrNil ifTrue:[

            (fn := nm asFilename) exists ifFalse:[

                (self confirm:('Perforce cache directory ''' , nm , ''' does not exist\create ?' withCRs)) ifTrue:[

                    fn makeDirectory;

                       makeReadableForAll;

                       makeWritableForAll;

                       makeExecutableForAll.

                ]

            ].

            (fn isDirectory

            and:[fn isReadable

            and:[fn isWritable]]) ifTrue:[

                PerforceSourceCodeManager cacheDirectoryName:nm.

            ] ifFalse:[

                self warn:'Invalid sourceCache directory.'

            ]

        ].

        repositoryInfoPerModule := Dictionary new.

        self listOfModules do:[:aModuleManager|

            repositoryInfoPerModule at:aModuleManager module put:aModuleManager settings.

        ].

        PerforceSourceCodeManager repositoryInfoPerModule:repositoryInfoPerModule.

        PerforceSourceCodeManager perforceExecutable:((self perforceExecutableHolder value ? '') withoutSeparators).

        client := self defaultSettingsHolder value.

        client notNil ifTrue:[

            settings := PerforceSourceCodeManager getPerforceSettingsFromString:client.