"

 COPYRIGHT (c) 2002 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:#CVSSourceCodeManagementSettingsAppl

	instanceVariableNames:'sourceCacheDir repositoryHolder manager repository listOfModules

		cvsRootPrototypeList addPerModuleRoot removeEnabled

		perModuleRootModule acceptChannel removePerModuleRoot

		perModuleRoot cvsRootHolder selectedPerModuleRoot

		cvsBinDirectoryHolder cvsExecutableHolder rootsPerModule

		cvsLoginInModuleEnabled cvsLoginEnabled verboseSourceCodeAccess'

	poolDictionaries:''

	category:'System-SourceCodeManagement'

!

!CVSSourceCodeManagementSettingsAppl class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2002 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.

"

!

documentation

"

    CVS part of the source code settings. 

    This settings app controls the parameters of the CVSSourceCodeManager.

    Extrated for pluggability from SourceCodeManagerSettings in the AbstractSettingsApplication.

"

! !

!CVSSourceCodeManagementSettingsAppl class methodsFor:'defaults'!

defaultRepositoryName

    ^ '/cvs/stx'

    "Created: / 19-04-2011 / 11:00:11 / cg"

! !

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

     CVSSourceCodeManagementSettingsAppl new openInterface:#windowSpec

     CVSSourceCodeManagementSettingsAppl open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'CVS Settings'

          name: 'CVS Settings'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 659 580)

        )

        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: 'ManagerSetupBoxx'

                          component: 

                         (SpecCollection

                            collection: (

                             (FramedBoxSpec

                                label: 'CVS Sourcecode Manager Settings'

                                name: 'CVSSetupBox'

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

                                labelPosition: topLeft

                                translateLabel: true

                                component: 

                               (SpecCollection

                                  collection: (

                                   (ViewSpec

                                      name: 'Box1'

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

                                      component: 

                                     (SpecCollection

                                        collection: (

                                         (LabelSpec

                                            label: 'CVS Command or Path:'

                                            name: 'Label1'

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

                                            level: 0

                                            translateLabel: true

                                            adjust: right

                                          )

                                         (InputFieldSpec

                                            name: 'CVSExecutableField'

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

                                            tabable: true

                                            model: cvsExecutableHolder

                                            acceptChannel: acceptChannel

                                            acceptOnPointerLeave: true

                                          )

                                         )

                                      )

                                    )

                                   (ViewSpec

                                      name: 'Box7'

                                      layout: (LayoutFrame 0 0.0 27 0 0 1 52 0)

                                      component: 

                                     (SpecCollection

                                        collection: (

                                         (LabelSpec

                                            label: 'CVSRoot default:'

                                            name: 'defaultCvsRootLabel'

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

                                            level: 0

                                            translateLabel: true

                                            adjust: right

                                          )

                                         (ComboBoxSpec

                                            name: 'cvsRootComboBox'

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

                                            tabable: true

                                            model: cvsRootHolder

                                            immediateAccept: true

                                            acceptOnLeave: true

                                            acceptOnReturn: true

                                            acceptOnTab: true

                                            acceptOnLostFocus: true

                                            acceptChannel: acceptChannel

                                            acceptOnPointerLeave: true

                                            comboList: cvsRootPrototypeList

                                          )

                                         )

                                      )

                                    )

                                   (HorizontalPanelViewSpec

                                      name: 'HorizontalPanel3'

                                      layout: (LayoutFrame 44 0.25 51 0 -1 1 82 0)

                                      horizontalLayout: fitSpace

                                      verticalLayout: center

                                      horizontalSpace: 3

                                      verticalSpace: 3

                                      component: 

                                     (SpecCollection

                                        collection: (

                                         (ViewSpec

                                            name: 'Box8'

                                            extent: (Point 102 10)

                                          )

                                         (ViewSpec

                                            name: 'Box9'

                                            extent: (Point 102 10)

                                          )

                                         (ViewSpec

                                            name: 'Box10'

                                            extent: (Point 102 10)

                                          )

                                         (ActionButtonSpec

                                            label: 'CVS-Login'

                                            name: 'loginButton1'

                                            translateLabel: true

                                            tabable: true

                                            model: loginCVSRoot

                                            enableChannel: cvsLoginEnabled

                                            extent: (Point 103 22)

                                          )

                                         )

                                      )

                                    )

                                   (LabelSpec

                                      label: 'CVSRoot per Module:'

                                      name: 'knownModulesLabel'

                                      layout: (LayoutFrame 0 0.0 82 0 60 0.25 104 0)

                                      translateLabel: true

                                      adjust: right

                                    )

                                   (SequenceViewSpec

                                      name: 'List1'

                                      layout: (LayoutFrame 64 0.25 82 0 0 1 201 0)

                                      tabable: true

                                      model: selectedPerModuleRoot

                                      hasHorizontalScrollBar: true

                                      hasVerticalScrollBar: true

                                      miniScrollerHorizontal: true

                                      useIndex: false

                                      sequenceList: listOfModules

                                    )

                                   (LabelSpec

                                      label: 'Module:'

                                      name: 'moduleLabel'

                                      layout: (LayoutFrame 0 0.0 211 0 60 0.25 228 0)

                                      translateLabel: true

                                      adjust: right

                                    )

                                   (InputFieldSpec

                                      name: 'perModuleRootModuleEntryField'

                                      layout: (LayoutFrame 64 0.25 207 0 0 1 229 0)

                                      tabable: true

                                      model: perModuleRootModule

                                      acceptChannel: acceptChannel

                                      acceptOnPointerLeave: true

                                    )

                                   (LabelSpec

                                      label: 'CVSRoot:'

                                      name: 'cvsRootLabel'

                                      layout: (LayoutFrame 0 0.0 236 0 60 0.25 253 0)

                                      translateLabel: true

                                      adjust: right

                                    )

                                   (ComboBoxSpec

                                      name: 'perModuleRootComboBox'

                                      layout: (LayoutFrame 64 0.25 232 0 0 1.0 254 0)

                                      tabable: true

                                      model: perModuleRoot

                                      immediateAccept: true

                                      acceptOnLeave: true

                                      acceptOnReturn: true

                                      acceptOnTab: true

                                      acceptOnLostFocus: true

                                      acceptChannel: acceptChannel

                                      acceptOnPointerLeave: true

                                      comboList: cvsRootPrototypeList

                                    )

                                   (HorizontalPanelViewSpec

                                      name: 'HorizontalPanel2'

                                      layout: (LayoutFrame 64 0.25 -25 1 -1 1 0 1)

                                      horizontalLayout: fitSpace

                                      verticalLayout: center

                                      horizontalSpace: 3

                                      verticalSpace: 3

                                      component: 

                                     (SpecCollection

                                        collection: (

                                         (ActionButtonSpec

                                            label: 'Add/Apply'

                                            name: 'addButton'

                                            translateLabel: true

                                            tabable: true

                                            model: addPerModuleRoot

                                            extent: (Point 97 22)

                                          )

                                         (ActionButtonSpec

                                            label: 'Remove'

                                            name: 'removeButton'

                                            translateLabel: true

                                            tabable: true

                                            model: removePerModuleRoot

                                            enableChannel: removeEnabled

                                            extent: (Point 97 22)

                                          )

                                         (ViewSpec

                                            name: 'Box11'

                                            extent: (Point 97 10)

                                          )

                                         (ActionButtonSpec

                                            label: 'CVS-Login'

                                            name: 'loginButton2'

                                            translateLabel: true

                                            tabable: true

                                            model: loginPerModuleRoot

                                            enableChannel: cvsLoginInModuleEnabled

                                            extent: (Point 98 22)

                                          )

                                         )

                                      )

                                    )

                                   )

                                )

                              )

                             )

                          )

                          extent: (Point 659 327)

                        )

                       (FramedBoxSpec

                          label: 'Source Cache'

                          name: 'FramedBox1'

                          labelPosition: topLeft

                          translateLabel: true

                          component: 

                         (SpecCollection

                            collection: (

                             (ViewSpec

                                name: 'SourceCacheDirBox'

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

                                component: 

                               (SpecCollection

                                  collection: (

                                   (LabelSpec

                                      label: 'Source Cache Dir:'

                                      name: 'SourceCacheDirLabel'

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

                                      translateLabel: true

                                      adjust: right

                                    )

                                   (InputFieldSpec

                                      name: 'SourceCacheDirEntryField'

                                      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: 'CacheActionsHorizontalPanel'

                                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: 'FlushCacheNowButton'

                                      translateLabel: true

                                      tabable: true

                                      model: flushSourceCache

                                      extent: (Point 208 22)

                                    )

                                   (ActionButtonSpec

                                      label: 'Condense Cache now'

                                      name: 'CondenseCacheNowButton'

                                      translateLabel: true

                                      tabable: true

                                      model: condenseSourceCache

                                      extent: (Point 208 22)

                                    )

                                   )

                                )

                              )

                             )

                          )

                          extent: (Point 659 95)

                        )

                       )

                    )

                    extent: (Point 659 768)

                  )

                 )

              )

            )

           )

        )

      )

    "Modified: / 21-12-2011 / 12:14:13 / cg"

! !

!CVSSourceCodeManagementSettingsAppl class methodsFor:'queries'!

managerClass

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

    ^ CVSSourceCodeManager

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

! !

!CVSSourceCodeManagementSettingsAppl methodsFor:'actions'!

addModule:module withData:data

    (self listOfModules includes:module) ifFalse:[

        self listOfModules add:module; sort.

    ].

    rootsPerModule at:module put:data.

    self updateModifiedChannel.

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

!

basicReadSettings

    |infoPerModule|

    self initialize.

    self sourceCacheDir value:(CVSSourceCodeManager cacheDirectoryName).

    CVSSourceCodeManager forgetDisabledModules.

    repository := CVSSourceCodeManager repositoryName.

    repositoryHolder := (repository ? '') asValue.

    infoPerModule := CVSSourceCodeManager repositoryInfoPerModule.

    infoPerModule keysAndValuesDo:[:module :info | 

        rootsPerModule at:module put:(Array with:CVSSourceCodeManager with:info).

    ].

    self cvsRootHolder value:CVSSourceCodeManager repositoryName ? self class defaultRepositoryName.

    self cvsExecutableHolder value:CVSSourceCodeManager cvsExecutable.

    self verboseSourceCodeAccess value:CVSSourceCodeManager verboseSourceCodeAccess. 

    rootsPerModule notNil ifTrue:[

        self listOfModules removeAll.

        listOfModules addAll:rootsPerModule keys asList.

    ].

"/    self selectedPerModuleRootChanged.

    "Modified: / 21-12-2011 / 14:28:11 / cg"

!

basicSaveSettings

    |modules nm fn|

    nm := self sourceCacheDir value.

    nm notEmptyOrNil ifTrue:[

        (fn := nm asFilename) exists ifFalse:[

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

                fn recursiveMakeDirectory; 

                   makeReadableForAll;

                   makeWritableForAll;

                   makeExecutableForAll.

            ]

        ].

        (fn isDirectory

        and:[fn isReadable

        and:[fn isWritable]]) ifTrue:[

            CVSSourceCodeManager cacheDirectoryName:nm.

        ] ifFalse:[

            self warn:'Invalid sourceCache directory.'

        ]

    ].

    (Array with:CVSSourceCodeManager) "self availableManagers" do:[:eachManager |

        |infoPerModule|

        modules := rootsPerModule select:[:entry | entry first == eachManager].

        infoPerModule := Dictionary new.

        modules keysAndValuesDo:[:module :entry | 

            entry first == eachManager ifTrue:[

                infoPerModule at:module put:(entry second).

            ].

        ].

        eachManager repositoryInfoPerModule:infoPerModule.

    ].

    self basicSaveCVSSettings.

    self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).

    DebugView newDebugger. "/ ???

    self acceptChannel value.

    "Modified: / 18-04-2011 / 18:26:57 / cg"

!

condenseSourceCache

    self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ].

    Method flushSourceStreamCache.

    "Modified: / 28-11-2006 / 12:21:33 / cg"

!

flushSourceCache

    self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ].

    "Modified: / 30-09-2011 / 13:33:47 / cg"

!

removePerModuleRoot

    |module|

    acceptChannel value:true.    

    module := self perModuleRootModule value.