hg/stx-goodies-monticello: comparison MCSettingsApp.st

equal deleted inserted replaced

-:ae0f60d861ca
+:3699dacedeab
+"
+COPYRIGHT (c) 2020 LabWare
+"
 "{ Package: 'stx:goodies/monticello' }"
+"{ NameSpace: Smalltalk }"
 AbstractSettingsApplication subclass:#MCSettingsApp
 	instanceVariableNames:'mcRepositories selectedRepositoryHolder'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'SCM-Monticello-St/X UI'
 !
+!MCSettingsApp class methodsFor:'documentation'!
+copyright
+"
+COPYRIGHT (c) 2020 LabWare
+"
+! !
 !MCSettingsApp class methodsFor:'help specs'!
 flyByHelpSpec
 "
 <resource: #canvas>
 ^
 #(FullSpec
 name: windowSpec
-window:
+uuid: 'a78e4130-babb-11ea-9743-606720e43e2c'
-(WindowSpec
+window:
-label: 'Monticello Settings'
+(WindowSpec
-name: 'Monticello Settings'
+label: 'Monticello Settings'
-min: (Point 10 10)
+name: 'Monticello Settings'
-bounds: (Rectangle 0 0 647 627)
+uuid: 'a78e4131-babb-11ea-9743-606720e43e2c'
-)
+min: (Point 10 10) bounds: (Rectangle 0 0 647 627)
-component:
+) component:
 (SpecCollection
 collection: (
 (LabelSpec
 label: ' Monticello Settings'
 name: 'Title'
-layout: (LayoutFrame 0 0 0 0 0 1 66 0)
+layout: (LayoutFrame 0 0 0 0 0 1 66 0) style: (FontDescription helvetica medium roman 18 #'iso10646-1' nil nil) uuid: 'a78e4132-babb-11ea-9743-606720e43e2c'
-style: (FontDescription helvetica medium roman 18 #'iso10646-1')
+backgroundColor: (Color 100.0 100.0 100.0) translateLabel: true
-backgroundColor: (Color 100.0 100.0 100.0)
+adjust: left
-translateLabel: true
+)
-adjust: left
+(LabelSpec
-)
+label: 'Icon'
-(LabelSpec
+name: 'Icon'
-label: 'Icon'
+layout: (LayoutFrame -75 1 0 0 0 1 66 0) uuid: 'a78e4133-babb-11ea-9743-606720e43e2c'
-name: 'Icon'
+initiallyInvisible: true
-layout: (LayoutFrame -75 1 0 0 0 1 66 0)
+hasCharacterOrientedLabel: false
-initiallyInvisible: true
+backgroundColor: (Color 100.0 100.0 100.0) translateLabel: true
-hasCharacterOrientedLabel: false
+)
-backgroundColor: (Color 100.0 100.0 100.0)
+(VerticalPanelViewSpec
-translateLabel: true
+name: 'Controls'
-)
+layout: (LayoutFrame 0 0 70 0 0 1 0 1) uuid: 'a78e4134-babb-11ea-9743-606720e43e2c'
-(VerticalPanelViewSpec
+horizontalLayout: fit
-name: 'Controls'
+verticalLayout: topFit
-layout: (LayoutFrame 0 0 70 0 0 1 0 1)
+horizontalSpace: 3
-horizontalLayout: fit
+verticalSpace: 3
-verticalLayout: topFit
+component:
-horizontalSpace: 3
+(SpecCollection
-verticalSpace: 3
+collection: (
-component:
+(HorizontalPanelViewSpec
-(SpecCollection
+name: 'EnabledAndResetPanel'
-collection: (
+uuid: 'a78e4135-babb-11ea-9743-606720e43e2c'
-(HorizontalPanelViewSpec
+horizontalLayout: rightSpaceFit
-name: 'EnabledAndResetPanel'
+verticalLayout: topSpace
-horizontalLayout: rightSpaceFit
+horizontalSpace: 0
-verticalLayout: fit
+verticalSpace: 3
-horizontalSpace: 0
+component:
-verticalSpace: 3
+(SpecCollection
-component:
+collection: (
-(SpecCollection
+(CheckBoxSpec
-collection: (
+label: 'Show in Browser Menus'
-(CheckBoxSpec
+name: 'Enabled'
-label: 'Show in Browser Menus'
+uuid: 'a78e4136-babb-11ea-9743-606720e43e2c'
-name: 'Enabled'
+model: mcEnabled
-model: mcEnabled
+translateLabel: true
-translateLabel: true
+useDefaultExtent: true
-useDefaultExtent: true
+)
-)
+(ActionButtonSpec
-(ActionButtonSpec
+label: 'Flush caches'
-label: 'Flush caches'
+name: 'ResetCachedRepositoriesButton'
-name: 'ResetCachedRepositoriesButton'
+uuid: 'a78e6840-babb-11ea-9743-606720e43e2c'
 translateLabel: true
 model: flushCaches
-enableChannel: mcEnabled
+useDefaultExtent: true
-useDefaultExtent: true
+)
-)
-)
 )
-useDefaultExtent: true
+) useDefaultExtent: true
 )
 (ViewSpec
 name: 'Box1'
-component:
+uuid: 'a78e6841-babb-11ea-9743-606720e43e2c'
-(SpecCollection
+component:
-collection: (
+(SpecCollection
-(LabelSpec
+collection: (
-label: 'Primary Repository: '
+(LabelSpec
-name: 'Label2'
+label: 'Primary Repository: '
-layout: (LayoutFrame 7 0 0 0 150 0 22 0)
+name: 'Label2'
-activeHelpKey: primaryRepository
+layout: (LayoutFrame 7 0 0 0 150 0 22 0) activeHelpKey: primaryRepository
-translateLabel: true
+uuid: 'a78e6842-babb-11ea-9743-606720e43e2c'
-adjust: left
+translateLabel: true
-)
+adjust: left
-(LabelSpec
+)
-name: 'Label3'
+(LabelSpec
-layout: (LayoutFrame 150 0 0 0 0 1 22 0)
+name: 'Label3'
-activeHelpKey: primaryRepository
+layout: (LayoutFrame 150 0 0 0 0 1 22 0) activeHelpKey: primaryRepository
-translateLabel: true
+uuid: 'a78e6843-babb-11ea-9743-606720e43e2c'
-labelChannel: mcPrimaryRepository
+translateLabel: true
-adjust: left
+labelChannel: mcPrimaryRepository
-)
+adjust: left
 )
 )
-extent: (Point 647 24)
+) extent: (Point 647 24)
 )
 (FramedBoxSpec
 label: 'Repositories'
 name: 'Repositories'
-labelPosition: topLeft
+uuid: 'a78e6844-babb-11ea-9743-606720e43e2c'
-translateLabel: true
+labelPosition: topLeft
-component:
+translateLabel: true
-(SpecCollection
+component:
-collection: (
+(SpecCollection
-(VerticalPanelViewSpec
+collection: (
-name: 'RepositoryConfigurations'
+(VerticalPanelViewSpec
-layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+name: 'RepositoryConfigurations'
-horizontalLayout: fit
+layout: (LayoutFrame 0 0 0 0 0 1 0 1) uuid: 'a78e6845-babb-11ea-9743-606720e43e2c'
-verticalLayout: bottomFit
+horizontalLayout: fit
-horizontalSpace: 3
+verticalLayout: bottomFit
-verticalSpace: 3
+horizontalSpace: 3
-component:
+verticalSpace: 3
-(SpecCollection
+component:
-collection: (
+(SpecCollection
-(ViewSpec
+collection: (
-name: 'RepositoryConfigurationListBox'
+(ViewSpec
-model: mcRepositories
+name: 'RepositoryConfigurationListBox'
-component:
+uuid: 'a78e6846-babb-11ea-9743-606720e43e2c'
-(SpecCollection
+model: mcRepositories
-collection: (
+component:
-(SelectionInListModelViewSpec
+(SpecCollection
-name: 'RepositoryList'
+collection: (
-layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+(SelectionInListModelViewSpec
-enableChannel: mcEnabled
+name: 'RepositoryList'
-model: selectedRepositoryHolder
+layout: (LayoutFrame 0 0 0 0 0 1 0 1) uuid: 'a78e6847-babb-11ea-9743-606720e43e2c'
-hasHorizontalScrollBar: true
+model: selectedRepositoryHolder
-hasVerticalScrollBar: true
+hasHorizontalScrollBar: true
-listModel: mcRepositories
+hasVerticalScrollBar: true
-useIndex: false
+listModel: mcRepositories
-highlightMode: line
+useIndex: false
-)
+highlightMode: line
 )
 )
-extent: (Point 613 437)
+) extent: (Point 613 429)
 )
 (HorizontalPanelViewSpec
 name: 'AddRemovePanel'
-horizontalLayout: fit
+uuid: 'a78e6848-babb-11ea-9743-606720e43e2c'
-verticalLayout: center
+horizontalLayout: fit
-horizontalSpace: 3
+verticalLayout: center
-verticalSpace: 3
+horizontalSpace: 3
-component:
+verticalSpace: 3
-(SpecCollection
+component:
-collection: (
+(SpecCollection
-(ActionButtonSpec
+collection: (
-label: 'Add Repository...'
+(ActionButtonSpec
-name: 'AddConfigurationAction'
+label: 'Add...'
-activeHelpKey: addRepository
+name: 'AddConfigurationAction'
-translateLabel: true
+activeHelpKey: addRepository
-model: addRepositoryAction
+uuid: 'a78e6849-babb-11ea-9743-606720e43e2c'
-enableChannel: mcEnabled
+translateLabel: true
-extent: (Point 151 25)
+model: addRepositoryAction
-)
+extent: (Point 151 25)
-(ActionButtonSpec
+)
-label: 'Remove Repository...'
+(ActionButtonSpec
-name: 'RemoveConfigurationAction'
+label: 'Remove...'
-activeHelpKey: removeRepository
+name: 'RemoveConfigurationAction'
-translateLabel: true
+activeHelpKey: removeRepository
-model: removeRepositoryAction
+uuid: 'a78e684a-babb-11ea-9743-606720e43e2c'
-enableChannel: mcEnabledAndRepositorySelectedHolder
+translateLabel: true
-extent: (Point 151 25)
+model: removeRepositoryAction
-)
+enableChannel: repositorySelectedHolder
-(LabelSpec
+extent: (Point 151 25)
-name: 'Label1'
+)
-translateLabel: true
+(LabelSpec
-extent: (Point 151 22)
+name: 'Label1'
-)
+uuid: 'a78e684b-babb-11ea-9743-606720e43e2c'
-(ActionButtonSpec
+translateLabel: true
-label: 'Define as Primary'
+extent: (Point 151 22)
-name: 'Button1'
+)
-activeHelpKey: makePrimaryRepository
+(ActionButtonSpec
-translateLabel: true
+label: 'Define as Primary'
-model: defineAsPrimaryRepositoryAction
+name: 'Button1'
-enableChannel: mcEnabledAndRepositorySelectedHolder
+activeHelpKey: makePrimaryRepository
-extent: (Point 151 25)
+uuid: 'a78e8f50-babb-11ea-9743-606720e43e2c'
-)
+translateLabel: true
-)
+model: defineAsPrimaryRepositoryAction
+enableChannel: mcEnabledAndRepositorySelectedHolder
+extent: (Point 151 25)
+)
 )
-extent: (Point 613 30)
+) extent: (Point 613 30)
 )
-)
 )
 )
 )
 )
-extent: (Point 647 503)
+) extent: (Point 647 495)
 )
-)
 )
 )
 )
 )
 )
+)
 ! !
 !MCSettingsApp class methodsFor:'queries'!
 managerTypeName
 "Modified: / 01-12-2011 / 20:08:10 / cg"
 !
 mcEnabledAndRepositorySelectedHolder
 ^ BlockValue
-with:[:v | self mcEnabled value and:[ v notNil ]]
+forLogical: self mcEnabled
-argument:(self selectedRepositoryHolder)
+and: self repositorySelectedHolder
 "Created: / 01-12-2011 / 19:58:57 / cg"
+"Modified: / 30-06-2020 / 11:24:34 / Jan Vrany <jan.vrany@labware.com>"
 !
 mcPrimaryRepository
 ^self settingsAspectFor: #mcPrimaryRepository default:nil
 mcRepositories isNil ifTrue:[
 mcRepositories := ValueHolder new.
 ].
 ^ mcRepositories
+!
+repositorySelectedHolder
+^ BlockValue
+with:[:v | v value notNil ]
+argument:(self selectedRepositoryHolder)
+"Created: / 30-06-2020 / 11:23:26 / Jan Vrany <jan.vrany@labware.com>"
 !
 selectedRepositoryHolder
 selectedRepositoryHolder isNil ifTrue:[
 selectedRepositoryHolder := nil asValue.
 version_CVS
 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSettingsApp.st,v 1.14 2014-03-01 09:40:15 cg Exp $'
 !
+version_HG
+^ '$Changeset: <not expanded> $'
+!
 version_SVN
 ^ '$Id: MCSettingsApp.st,v 1.14 2014-03-01 09:40:15 cg Exp $'
 ! !

branch	jv
changeset 1106	3699dacedeab
parent 918	1ad5002700d8