diff -r 8f3354fb59f2 -r adc1a0348abb DataBaseSourceCodeManagementSettingsAppl.st
--- a/DataBaseSourceCodeManagementSettingsAppl.st	Mon Mar 12 12:05:56 2012 +0100
+++ b/DataBaseSourceCodeManagementSettingsAppl.st	Mon Mar 12 12:07:30 2012 +0100
@@ -175,12 +175,22 @@
                                 component: 
                                (SpecCollection
                                   collection: (
+                                   (ComboBoxSpec
+                                      name: 'ComboBox1'
+                                      layout: (LayoutFrame 64 0.25 207 0 0 1 229 0)
+                                      activeHelpKey: perModuleDBModule
+                                      tabable: true
+                                      model: perModuleDatabaseModule
+                                      acceptChannel: acceptChannel
+                                      acceptOnPointerLeave: true
+                                      comboList: sampleModuleList
+                                    )
                                    (CheckBoxSpec
                                       label: 'Show in Browser Menus'
                                       name: 'CheckBox1'
                                       layout: (LayoutFrame 0 0 5 0 0 1 27 0)
+                                      activeHelpKey: shownInBrowserMenus
                                       model: shownInBrowserMenusHolder
-                                activeHelpKey: shownInBrowserMenus
                                       translateLabel: true
                                     )
                                    (ViewSpec
@@ -199,14 +209,20 @@
                                             translateLabel: true
                                             adjust: right
                                           )
-                                         (InputFieldSpec
-                                            name: 'RepositoryPathField'
+                                         (ComboBoxSpec
+                                            name: 'RepositoryPathField2'
                                             layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
                                             activeHelpKey: defaultDBName
                                             tabable: true
                                             model: dbNameHolder
+                                            immediateAccept: true
+                                            acceptOnLeave: true
+                                            acceptOnReturn: true
+                                            acceptOnTab: true
+                                            acceptOnLostFocus: true
                                             acceptChannel: acceptChannel
                                             acceptOnPointerLeave: true
+                                            comboList: dbPrototypeList
                                           )
                                          )
                                        
@@ -240,15 +256,6 @@
                                       translateLabel: true
                                       adjust: right
                                     )
-                                   (InputFieldSpec
-                                      name: 'perModuleDatabaseModuleEntryField'
-                                      layout: (LayoutFrame 64 0.25 207 0 0 1 229 0)
-                                      activeHelpKey: perModuleDBModule
-                                      tabable: true
-                                      model: perModuleDatabaseModule
-                                      acceptChannel: acceptChannel
-                                      acceptOnPointerLeave: true
-                                    )
                                    (LabelSpec
                                       label: 'DB:'
                                       name: 'cvsRootLabel'
@@ -329,8 +336,6 @@
          
         )
       )
-
-    "Modified: / 11-01-2012 / 15:39:31 / cg"
 ! !
 
 !DataBaseSourceCodeManagementSettingsAppl class methodsFor:'queries'!
@@ -411,7 +416,12 @@
 
     self acceptChannel value.
 
-    "Modified: / 10-01-2012 / 00:21:41 / cg"
+    "/ 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
@@ -668,9 +678,9 @@
 !DataBaseSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.12 2012-03-02 13:51:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.13 2012-03-12 11:07:30 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.12 2012-03-02 13:51:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.13 2012-03-12 11:07:30 cg Exp $'
 ! !