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