"{ Package: 'stx:libtool' }"

!

ApplicationModel subclass:#ManagerPerModuleApp

!

Object subclass:#ModuleManager

!

!P4SourceCodeManagementSettingsAppl 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

@@@@@@@@@@@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]

! !

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

     P4SourceCodeManagementSettingsAppl new openInterface:#windowSpec

     P4SourceCodeManagementSettingsAppl open

    "

    <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: (

                       (ViewSpec

                          name: 'Box3'

                          component: 

                         (SpecCollection

                            collection: (

                             (LabelSpec

                                label: 'Perforce Command or Path:'

                                name: 'Label22'

                                layout: (LayoutFrame 0 0.0 59 0 60 0.25 81 0)

                                level: 0

                                translateLabel: true

                                adjust: right

                              )

                             (InputFieldSpec

                                name: 'EntryField8'

                                layout: (LayoutFrame 66 0.25 59 0 -5 1 81 0)

                                tabable: true

                                model: perforceExecutableHolder

                                immediateAccept: false

                                acceptOnLostFocus: true

                                acceptChannel: acceptChannel

                                acceptOnPointerLeave: true

                              )

                             (LabelSpec

                                label: 'Default Perforce Root'

                                name: ''

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

                                level: 0

                                translateLabel: true

                                adjust: right

                              )

                             (LabelSpec

                                label: 'client:user:pass@host:port '

                                name: 'Label18'

                                layout: (LayoutFrame 4 0.0 40 0 64 0.25 55 0)

                                style: (FontDescription helvetica medium roman 10)

                                level: 0

                                translateLabel: true

                                adjust: right

                              )

                             (ComboBoxSpec

                                name: 'cvsRootComboBox'

                                layout: (LayoutFrame 66 0.25 28 0 -5 1 50 0)

                                tabable: true

                                model: defaultSettingsHolder

                                immediateAccept: true

                                acceptOnLeave: true

                                acceptOnReturn: true

                                acceptOnTab: true

                                acceptOnLostFocus: true

                                acceptChannel: acceptChannel

                                acceptOnPointerLeave: true

                                comboList: defaultSettingsPrototypeList

                              )

                             )

                          )

                          extent: (Point 726 105)

                        )

                       (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

                                            extent: (Point 340 22)

                                          )

                                         (ActionButtonSpec

                                            label: 'Remove'

                                            name: 'Button3'

                                            translateLabel: true

                                            tabable: true

                                            model: removePerModuleRoot

                                            enableChannel: removeEnabled

                                            extent: (Point 341 22)

                                          )

                                         )

                                      )

                                    )

                                   )

                                )

                              )

                             )

                          )

                          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

                                      extent: (Point 234 22)

                                    )

                                   (ActionButtonSpec

                                      label: 'Condense Cache now'

                                      name: 'Button5'

                                      translateLabel: true

                                      tabable: true

                                      model: condenseSourceCache

                                      extent: (Point 235 22)

                                    )

                                   )

                                )

                              )

                             )

                          )

                          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)

                  )

                 )

              )

            )

           )

        )

      )

! !

!P4SourceCodeManagementSettingsAppl 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

       )

      (DataSetColumnSpec

       )

      )

! !

!P4SourceCodeManagementSettingsAppl methodsFor:'actions'!

addModule:aModuleManager

    |detectedManager|

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

    detectedManager isNil ifTrue:[

    ] ifFalse:[

    ].

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

!

addModule:module withData:data

    (self listOfModules includes:module) ifFalse:[

    ].

    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.

            PerforceSourceCodeManager perforceClient:(settings at:#client ifAbsent:nil).

            PerforceSourceCodeManager perforceUser:(settings at:#user ifAbsent:nil).

            PerforceSourceCodeManager perforcePort:(settings at:#port ifAbsent:nil).

            PerforceSourceCodeManager perforcePassword:(settings at:#password ifAbsent:nil).

        ].

        PerforceSourceCodeManager verboseSourceCodeAccess:self verboseSourceCodeAccess value.

    ].

    self acceptChannel value.

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

!

condenseSourceCache

    self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ].

    Method flushSourceStreamCache.