--- a/DataBaseSourceCodeManagementSettingsAppl.st Mon Apr 14 22:25:16 2014 +0200
+++ b/DataBaseSourceCodeManagementSettingsAppl.st Mon Apr 14 22:31:48 2014 +0200
@@ -130,220 +130,220 @@
<resource: #canvas>
^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'DB SCM Settings'
- name: 'DB SCM 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: (
- (LabelSpec
- label: 'Demo Only'
- name: 'Label10'
- style: (FontDescription #'Segoe UI' medium roman 16 #'ms-default')
- foregroundColor: (Color 86.9993133440146 0.0 0.0)
- translateLabel: true
- extent: (Point 659 37)
- )
- (VerticalPanelViewSpec
- name: 'VerticalPanel3'
- horizontalLayout: fit
- verticalLayout: top
- horizontalSpace: 3
- verticalSpace: 4
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'ManagerSetupBoxx'
- component:
- (SpecCollection
- collection: (
- (FramedBoxSpec
- label: 'Database Source Repository Manager Settings'
- name: 'FileRepositorySetupBox'
- layout: (LayoutFrame 0 0 0 0 0 1 -23 1)
- labelPosition: topLeft
- translateLabel: true
- 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
- translateLabel: true
- )
- (ViewSpec
- name: 'Box1'
- layout: (LayoutFrame 0 0 43 0 0 1 68 0)
- activeHelpKey: defaultDBName
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'DB Name:'
- name: 'Label1'
- layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
- activeHelpKey: defaultDBName
- level: 0
- translateLabel: true
- adjust: right
- )
- (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
- )
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'DB SCM Settings'
+ name: 'DB SCM 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: (
+ (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 659 37)
+ )
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel3'
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 3
+ verticalSpace: 4
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'ManagerSetupBoxx'
+ component:
+ (SpecCollection
+ collection: (
+ (FramedBoxSpec
+ label: 'Database Source Repository Manager Settings'
+ name: 'FileRepositorySetupBox'
+ layout: (LayoutFrame 0 0 0 0 0 1 -7 1)
+ 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 104 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 211 0 60 0.25 228 0)
- activeHelpKey: perModuleDBModule
- translateLabel: true
- adjust: right
- )
- (LabelSpec
- label: 'DB:'
- name: 'cvsRootLabel'
- layout: (LayoutFrame 0 0.0 236 0 60 0.25 253 0)
- activeHelpKey: perModuleDBName
- translateLabel: true
- adjust: right
- )
- (ComboBoxSpec
- name: 'perModulePathComboBox'
- layout: (LayoutFrame 64 0.25 232 0 0 1.0 254 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 257 0 -1 1 282 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 130 22)
- )
- (ActionButtonSpec
- label: 'Remove'
- name: 'removeButton'
- translateLabel: true
- tabable: true
- model: removePerModuleDB
- enableChannel: removeEnabled
- extent: (Point 131 22)
- )
- (ViewSpec
- name: 'Box11'
- extent: (Point 131 10)
- )
+ )
+
+ )
+ )
+ (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 130 30)
)
-
- )
- )
+ (ActionButtonSpec
+ label: 'Remove'
+ name: 'removeButton'
+ translateLabel: true
+ tabable: true
+ model: removePerModuleDB
+ enableChannel: removeEnabled
+ extent: (Point 130 30)
+ )
+ (ViewSpec
+ name: 'Box11'
+ extent: (Point 130 10)
+ )
+ )
+
+ )
)
-
- )
- )
+ )
+
+ )
)
-
- )
- extent: (Point 659 347)
- )
+ )
+
+ )
+ extent: (Point 659 347)
)
-
- )
- extent: (Point 659 768)
- )
+ )
+
+ )
+ extent: (Point 659 768)
)
-
- )
- )
+ )
+
+ )
)
-
- )
- )
+ )
+
+ )
+ )
! !
!DataBaseSourceCodeManagementSettingsAppl class methodsFor:'queries'!
@@ -692,10 +692,10 @@
!DataBaseSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.16 2014-04-14 19:09:44 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.17 2014-04-14 20:31:48 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.16 2014-04-14 19:09:44 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.17 2014-04-14 20:31:48 cg Exp $'
! !