"

 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:#DataBaseSourceCodeManagementSettingsAppl

	instanceVariableNames:'pathPerModule dbNameHolder selectedPerModuleDatabase

		perModuleDatabaseModule perModuleDB dbPerModule'

	classVariableNames:''

	poolDictionaries:''

	category:'System-SourceCodeManagement'

!

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

"

!

documentation

"

    This settings app controls the parameters of the DataBaseSourceCodeManager.

"

! !

!DataBaseSourceCodeManagementSettingsAppl class methodsFor:'defaults'!

defaultTableName

    ^ 'stx_versions'

    "Created: / 21-12-2011 / 23:43:04 / cg"

! !

!DataBaseSourceCodeManagementSettingsAppl class methodsFor:'help specs'!

flyByHelpSpec

    "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:DataBaseSourceCodeManagementSettingsAppl    

    "

    <resource: #help>

    ^ super flyByHelpSpec addPairsFrom:#(

#defaultDBName

'Default database; used for all modules which are not listed below'

#perModuleDB

'Per module database configuration'

#perModuleDBModule

'The module for which a specific database is defined'

#perModuleDBName

'Database for the selected module (scheme:[user[.password]@hostname:databaseName[.tableName]'

)

    "Created: / 25-12-2011 / 13:46:07 / cg"

! !

!DataBaseSourceCodeManagementSettingsAppl 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:'DataBaseSourceCodeManagementSettingsAppl class defaultIcon'

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

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BFFH=<AS8@@@@@@@@@@@@@

@@@@@E8=X(!!#T!!0-X@D@@@@@@@@@@@@@@C%%CC@K"B9SUF$QR@@@@@@@@@@@@@A[K00LL@.H]P%SGUUZ@@@@@@@@@@@@R"$<F&P0B8]ONGECQ @@@@@@@@@@

@BX[G7X, T$BIR)(^E @@@@@@@@@@@A?F4T''[F]@XXNDZFYX@@@@@@@@@@@@Z9VU$)I''PFFC!!H.IV@@@@@@@@@@@@IJU%YVU$$@+["P1N$X@@@@@@@@@@IFU

%P"ESQBR^3LTHG&N@@@@@@@@@@BR$9IEI61''PFFC!!F!!VZ @@@@@@@IJR%YRU%"],%4A!! 8Q(G% @@@@@@@@@$)RU$$T''%9^WXXNDQDIX@@@@@@@@@@BR&0<G

%9*Z&Y]]D 9P# @@@@@@@@@@@@AG%9^X%9^WH49AU50@@@@@@@@@%0@@@HA>%9^L#BEF_(@@@@@@@@@@@@BW%9^W%9^P@@@@@@@@@@@@@@@@@@@@@I"W%9^P

! !

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

     DataBaseSourceCodeManagementSettingsAppl new openInterface:#windowSpec

     DataBaseSourceCodeManagementSettingsAppl open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       window: 

      (WindowSpec

         label: 'DB SCM Settings'

         name: 'DB SCM Settings'

         flags: 1

         min: (Point 10 10)

         bounds: (Rectangle 0 0 724 736)

       )

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

                (LabelSpec

                   label: 'Demo Only'

                   name: 'Label10'

                   style: (FontDescription #'Segoe UI' medium roman 16 #'ms-default')

                   foregroundColor: (Color 86.9993133440147 0.0 0.0)

                   translateLabel: true

                   extent: (Point 724 37)

                 )

                (FramedBoxSpec

                   label: 'Database Source Repository Manager Settings'

                   name: 'FileRepositorySetupBox'

                   labelPosition: topLeft

                   translateLabel: true

                   component: 

                  (SpecCollection

                     collection: (

                      (CheckBoxSpec

                         label: 'Show in Browser Menus'

                         name: 'CheckBox1'

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

                         activeHelpKey: shownInBrowserMenus

                         model: shownInBrowserMenusHolder

                         translateLabel: true

                       )

                      (ViewSpec

                         name: 'Box1'

                         layout: (LayoutFrame 0 0 43 0 0 1 73 0)

                         activeHelpKey: defaultDBName

                         component: 

                        (SpecCollection

                           collection: (

                            (LabelSpec

                               label: 'DB Name:'

                               name: 'Label1'

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

                               activeHelpKey: defaultDBName

                               level: 0

                               translateLabel: true

                               adjust: right

                             )

                            (ComboBoxSpec

                               name: 'RepositoryPathField2'

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

                               activeHelpKey: defaultDBName

                               tabable: true

                               model: dbNameHolder

                               immediateAccept: true

                               acceptOnLeave: true

                               acceptOnReturn: true

                               acceptOnTab: true

                               acceptOnLostFocus: true

                               acceptChannel: acceptChannel

                               acceptOnPointerLeave: true

                               comboList: dbPrototypeList

                             )

                            )

                         )

                       )

                      (LabelSpec

                         label: 'DB per Module:'

                         name: 'knownModulesLabel'

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

                         activeHelpKey: perModuleDB

                         translateLabel: true

                         adjust: right

                       )

                      (SequenceViewSpec

                         name: 'List1'

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

                         activeHelpKey: perModuleDB

                         tabable: true

                         model: selectedPerModuleDatabase

                         hasHorizontalScrollBar: true

                         hasVerticalScrollBar: true

                         miniScrollerHorizontal: true

                         useIndex: false

                         sequenceList: listOfModules

                       )

                      (LabelSpec

                         label: 'Module:'

                         name: 'moduleLabel'

                         layout: (LayoutFrame 0 0.0 212 0 60 0.25 242 0)

                         activeHelpKey: perModuleDBModule

                         translateLabel: true

                         adjust: right

                       )

                      (ComboBoxSpec

                         name: 'ComboBox1'

                         layout: (LayoutFrame 64 0.25 210 0 0 1 240 0)

                         activeHelpKey: perModuleDBModule

                         tabable: true

                         model: perModuleDatabaseModule

                         acceptChannel: acceptChannel

                         acceptOnPointerLeave: true

                         comboList: sampleModuleList

                       )

                      (LabelSpec

                         label: 'DB:'

                         name: 'cvsRootLabel'

                         layout: (LayoutFrame 0 0.0 243 0 60 0.25 273 0)

                         activeHelpKey: perModuleDBName

                         translateLabel: true

                         adjust: right

                       )

                      (ComboBoxSpec

                         name: 'perModulePathComboBox'

                         layout: (LayoutFrame 64 0.25 243 0 0 1.0 273 0)

                         activeHelpKey: perModuleDBName

                         tabable: true

                         model: perModuleDB

                         immediateAccept: true

                         acceptOnLeave: true

                         acceptOnReturn: true

                         acceptOnTab: true

                         acceptOnLostFocus: true

                         acceptChannel: acceptChannel

                         acceptOnPointerLeave: true

                         comboList: dbPrototypeList

                       )

                      (HorizontalPanelViewSpec

                         name: 'HorizontalPanel2'

                         layout: (LayoutFrame 64 0.25 278 0 -1 1 308 0)

                         horizontalLayout: fitSpace

                         verticalLayout: center

                         horizontalSpace: 3

                         verticalSpace: 3

                         component: 

                        (SpecCollection

                           collection: (

                            (ActionButtonSpec

                               label: 'Add/Apply'

                               name: 'addButton'

                               translateLabel: true

                               tabable: true

                               model: addPerModuleDB

                               extent: (Point 147 30)

                             )

                            (ActionButtonSpec

                               label: 'Remove'

                               name: 'removeButton'

                               translateLabel: true

                               tabable: true

                               model: removePerModuleDB

                               enableChannel: removeEnabled

                               extent: (Point 147 30)

                             )

                            (ViewSpec

                               name: 'Box11'

                               extent: (Point 147 10)

                             )

                            )

                         )

                       )

                      )

                   )

                   extent: (Point 724 342)

                 )

                )

             )

           )

          )

       )

     )

! !

!DataBaseSourceCodeManagementSettingsAppl class methodsFor:'queries'!

managerClass

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

    ^ DataBaseSourceCodeManager

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

! !

!DataBaseSourceCodeManagementSettingsAppl methodsFor:'actions'!

addModule:module withData:data

    (self listOfModules includes:module) ifFalse:[

        self listOfModules add:module; sort.

    ].

    dbPerModule at:module put:data.

    self updateModifiedChannel.

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

!

addPerModuleDB

    |module path|

    acceptChannel value:true.    

    module := self perModuleDatabaseModule value.

    path := self perModuleDB value.

    path size > 0 ifTrue:[

        self validateDirectoryExistsAndIsWritable:path.

        self addModule:module withData:(Array with:FileBasedSourceCodeManager with:path).

    ].

    "Created: / 25-12-2011 / 13:18:30 / cg"

!

basicReadSettings

    |infoPerModule|

    self initialize.

    infoPerModule := DataBaseSourceCodeManager repositoryInfoPerModule.

    infoPerModule keysAndValuesDo:[:module :info | 

        dbPerModule at:module put:(Array with:DataBaseSourceCodeManager with:info).

    ].

    self dbNameHolder value:DataBaseSourceCodeManager repositoryName. 

    dbPerModule notNil ifTrue:[

        self listOfModules removeAll.

        listOfModules addAll:dbPerModule keys asList.

    ].

    self shownInBrowserMenusHolder value:DataBaseSourceCodeManager shownInBrowserMenus.

    "Modified (comment): / 12-01-2012 / 14:00:48 / cg"

!

basicSaveSettings

    |infoPerModule modules|

    DataBaseSourceCodeManager repositoryName:self dbNameHolder value.    

    modules := dbPerModule select:[:entry | entry first == DataBaseSourceCodeManager].

    infoPerModule := Dictionary new.

    modules keysAndValuesDo:[:module :entry | 

        entry first == DataBaseSourceCodeManager ifTrue:[

            infoPerModule at:module put:(entry second).

        ].

    ].

    DataBaseSourceCodeManager repositoryInfoPerModule:infoPerModule.

    DataBaseSourceCodeManager shownInBrowserMenus:self shownInBrowserMenusHolder value. 

    self acceptChannel value.

    "/ make sure, that the DB libs are present

    Smalltalk loadPackage:'stx:libdb'.

    Smalltalk loadPackage:'stx:libdb/libsqlite'.

    Smalltalk loadPackage:'stx:libdb/libodbc'.

    "Modified (comment): / 12-03-2012 / 11:27:10 / cg"

!

removePerModuleDB

    |module|

    acceptChannel value:true.    

    module := self perModuleDatabaseModule value.

    self listOfModules remove:module ifAbsent:nil.

    dbPerModule removeKey:module ifAbsent:nil.

    self perModuleDatabaseModule value:nil.

    self perModuleDB value:nil.

    self updateModifiedChannel.

    "Created: / 25-12-2011 / 13:19:45 / cg"

!

removePerModulePath

    |module|

    acceptChannel value:true.    

    module := self perModuleDatabaseModule value.

    self listOfModules remove:module ifAbsent:nil.

    dbPerModule removeKey:module ifAbsent:nil.

    self perModuleDatabaseModule value:nil.

    self perModuleDB value:nil.

    self updateModifiedChannel.

    "Created: / 21-12-2011 / 14:26:08 / cg"

! !

!DataBaseSourceCodeManagementSettingsAppl methodsFor:'aspects'!

dbNameHolder

    dbNameHolder isNil ifTrue:[

        dbNameHolder := DataBaseSourceCodeManager defaultRepositoryName asValue.

        dbNameHolder addDependent:self.

    ].

    ^ dbNameHolder.

    "Created: / 25-12-2011 / 13:14:17 / cg"

!

dbPrototypeList

    ^ #(

            'sqlite:repository.db'

            'odbc:localhost:stxRepository'

            'sqlite:pathname'

            'odbc:user.password@host:table'

        )

    "Created: / 25-12-2011 / 13:13:20 / cg"

!

initialListOfModules

    ^ dbPerModule keys asList sort.

    "Created: / 02-03-2012 / 14:39:53 / cg"

!

perModuleDB

    perModuleDB isNil ifTrue:[

        perModuleDB := ValueHolder new.

    ].

    ^ perModuleDB.

    "Created: / 25-12-2011 / 13:18:55 / cg"

!

perModuleDatabaseModule

    perModuleDatabaseModule isNil ifTrue:[

        perModuleDatabaseModule := ValueHolder new.

    ].

    ^ perModuleDatabaseModule.

    "Created: / 25-12-2011 / 13:16:55 / cg"

!

selectedPerModuleDatabase

    selectedPerModuleDatabase isNil ifTrue:[

        selectedPerModuleDatabase := ValueHolder new.

        selectedPerModuleDatabase addDependent:self.

    ].

    ^ selectedPerModuleDatabase.

    "Created: / 25-12-2011 / 13:15:10 / cg"

! !

!DataBaseSourceCodeManagementSettingsAppl methodsFor:'change & update'!