"

 COPYRIGHT (c) 2011 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ 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:''

	category:'System-SourceCodeManagement'

!

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:'documentation'!

copyright

"

 COPYRIGHT (c) 2011 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

! !

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

    "

     UIPainter new openOnClass:PerforceSourceCodeManagementSettingsAppl andSelector:#windowSpec

     PerforceSourceCodeManagementSettingsAppl new openInterface:#windowSpec

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

                       (FramedBoxSpec

                          label: 'Perforce (P4) Sourcecode Manager Settings'

                          name: 'FramedBox3'

                          labelPosition: topLeft

                          translateLabel: true

                          component: 

                         (SpecCollection

                            collection: (

                             (ViewSpec

                                name: 'Box3'

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

                                component: 

                               (SpecCollection

                                  collection: (

                                   (LabelSpec

                                      label: 'Default Perforce Root'

                                      name: ''

                                      layout: (LayoutFrame 0 0.0 1 0 60 0.25 23 0)

                                      level: 0

                                      translateLabel: true

                                      adjust: right

                                    )

                                   (LabelSpec

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

                                      name: 'Label18'

                                      layout: (LayoutFrame 4 0.0 19 0 64 0.25 34 0)

                                      style: (FontDescription helvetica medium roman 10)

                                      level: 0

                                      translateLabel: true

                                      adjust: right

                                    )

                                   (ComboBoxSpec

                                      name: 'cvsRootComboBox'

                                      layout: (LayoutFrame 66 0.25 7 0 -5 1 29 0)

                                      tabable: true

                                      model: defaultSettingsHolder

                                      immediateAccept: true

                                      acceptOnLeave: true

                                      acceptOnReturn: true

                                      acceptOnTab: true

                                      acceptOnLostFocus: true

                                      acceptChannel: acceptChannel

                                      acceptOnPointerLeave: true

                                      comboList: defaultSettingsPrototypeList

                                    )

                                   (LabelSpec

                                      label: 'Perforce Command or Path:'

                                      name: 'Label22'

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

                                      level: 0

                                      translateLabel: true

                                      adjust: right

                                    )

                                   (InputFieldSpec

                                      name: 'EntryField8'

                                      layout: (LayoutFrame 66 0.25 38 0 -5 1 60 0)

                                      tabable: true

                                      model: perforceExecutableHolder

                                      immediateAccept: false

                                      acceptOnLostFocus: true

                                      acceptChannel: acceptChannel

                                      acceptOnPointerLeave: true

                                    )

                                   )

                                )

                              )

                             )

                          )

                          extent: (Point 726 95)

                        )

                       (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 338 22)

                                          )

                                         (ActionButtonSpec

                                            label: 'Remove'

                                            name: 'Button3'

                                            translateLabel: true

                                            tabable: true

                                            model: removePerModuleRoot

                                            enableChannel: removeEnabled

                                            extent: (Point 339 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 233 22)

                                    )

                                   (ActionButtonSpec

                                      label: 'Condense Cache now'

                                      name: 'Button5'

                                      translateLabel: true

                                      tabable: true

                                      model: condenseSourceCache

                                      extent: (Point 233 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)

                  )

                 )

              )

            )

           )

        )

      )

! !

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