class: MercurialSourceCodeManagementSettingsAppl
added: #initializePerModuleRepository
changed:
#helpSpec
#repositoryPrototypeList
#windowSpec
--- a/MercurialSourceCodeManagementSettingsAppl.st Wed Jul 31 18:16:25 2013 +0200
+++ b/MercurialSourceCodeManagementSettingsAppl.st Wed Jul 31 19:32:14 2013 +0200
@@ -90,27 +90,6 @@
#condenseSourceCache
'Cleanup old cached versions from the source cache.\Will keep only the current (newest) version in the cache.\Access to older code versions will be slowed down (compare with old version browser function)'
-#cvsCommand
-'The command to use for cvs operations\(the path to "cvs"/"cvs.exe"-command. Not needed, if already in the shell''s PATH value)'
-
-#cvsCommandTimeout
-'The command timeout.\For slow connections (ssl-tunnel), it may make sense to increase this value'
-
-#cvsLogin
-'Perform a "cvs login" operation for the default CVSROOT'
-
-#cvsRootDefault
-'The default CVSROOT.\This will be used for all modules which are not listed below'
-
-#cvsRootPerModule
-'Specifies per-module CVSROOTs.\This allows for individual projects to be stored in different cvs repositories'
-
-#cvsRootPerModuleModule
-'The module for which a specific CVSROOT is defined'
-
-#cvsRootPerModuleRoot
-'The CVSROOT for which this specific module is defined'
-
#defaultManagerType
'The default repository type.\This is used for packages for which no entry matches in the list below'
@@ -121,16 +100,16 @@
'Remove all files from the source cache.\Access to source code will temporarily be slowed down,\until sources have been refetched from the repository'
#hgAddPushURL
-'Add a repository to the push-URL list. A repository-push operation will synchronize your changes with this repository as well'
+'Add a repository to the push-URL list.\A repository-push operation will synchronize your changes with this repository as well'
#hgCheckAccess
-'Perform a "hg status" command in the default repository to see if the repository is accessable'
+'Perform a "hg status" command in the default repository\to see if the repository is accessable'
#hgCheckAccessPerModuleRoot
-'Perform a "hg status" command in this module''s repository to see if the repository is accessable'
+'Perform a "hg status" command in this module''s repository\to see if the repository is accessable'
#hgCommand
-'The command to use for mercurial operations\(the path to "hg"/"hg.exe"-command. Not needed, if already in the shell''s PATH value)'
+'The command to use for mercurial operations\(the path to the "hg" or "hg.exe"-command.\Not needed, if already in the shell''s PATH value)'
#hgCommandTimeout
'The command timeout.\For slow connections (ssl-tunnel), it may make sense to increase this value'
@@ -139,22 +118,22 @@
'Perform a "hg init" command to setup the repository for the very first time'
#hgPushURLs
-'The push-URL list. A repository-push operation will send your changes to these repositories as well'
+'The push-URL list.\A repository-push operation will send your changes to these repositories as well'
#hgRemovePushURL
-'Remove the selected repository from the push-URL list. A repository-push operation will no longer synchronize your changes with this repository'
+'Remove the selected repository from the push-URL list.\A repository-push operation will no longer synchronize your changes with this repository'
#hgRootDefault
-'The default mercurial repository.\This will be used for all modules which are not listed below'
+'The default mercurial repository.\This will be used for all mercurial modules which are not listed below'
#hgRootPerModule
'The mercurial repository for which this specific module is defined'
#hgRootPerModuleModule
-'The module for which a specific mercurial repository is defined'
+'The module for which a specific mercurial repository is defined.\The module is the first component of the packageID ("module:directoryPath")\by which applications and classes are grouped.'
#hgRootPerModuleRoot
-'The mercurial repository for which this specific module is defined'
+'The mercurial repository for which this specific module is defined.\The module is the first component of the packageID ("module:directoryPath")\by which applications and classes are grouped.'
#loginPerModuleRoot
'Execute a "cvs login" operation for this CVSROOT'
@@ -188,7 +167,7 @@
)
- "Modified: / 09-08-2012 / 09:41:11 / cg"
+ "Modified: / 31-07-2013 / 19:31:33 / cg"
! !
!MercurialSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
@@ -298,509 +277,509 @@
<resource: #canvas>
^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'Mercurial Settings'
- name: 'Mercurial Settings'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 811 723)
- )
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel3'
- layout: (LayoutFrame 0 0 0 0 0 1 0 1)
- horizontalLayout: fit
- verticalLayout: topSpace
- horizontalSpace: 3
- verticalSpace: 4
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Unfinished & Experimental'
- name: 'Label10'
- style: (FontDescription #'Segoe UI' medium roman 16 #'ms-default')
- foregroundColor: (Color 86.9993133440147 0.0 0.0)
- translateLabel: true
- extent: (Point 811 37)
- )
- (ViewSpec
- name: 'ManagerSetupBoxx'
- component:
- (SpecCollection
- collection: (
- (FramedBoxSpec
- label: 'Mercurial Sourcecode Manager Settings'
- name: 'HGSetupBox'
- layout: (LayoutFrame 0 0 0 0 0 1 0 1)
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (ComboBoxSpec
- name: 'ComboBox3'
- layout: (LayoutFrame 64 0.25 303 0 0 1 325 0)
- activeHelpKey: hgRootPerModuleModule
- tabable: true
- model: perModuleRepositoryModule
- 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: 'CommandBox'
- layout: (LayoutFrame 0 0 35 0 0 1 60 0)
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'HG Command or Path:'
- name: 'Label1'
- layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
- activeHelpKey: hgCommand
- level: 0
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'HGExecutableField'
- layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
- activeHelpKey: hgCommand
- tabable: true
- model: hgExecutableHolder
- acceptChannel: acceptChannel
- acceptOnPointerLeave: true
- )
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'Mercurial Settings'
+ name: 'Mercurial Settings'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 807 720)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel3'
+ layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ horizontalLayout: fit
+ verticalLayout: topSpace
+ horizontalSpace: 3
+ verticalSpace: 4
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Unfinished & Experimental'
+ name: 'Label10'
+ style: (FontDescription #'Segoe UI' medium roman 16 #'ms-default')
+ foregroundColor: (Color 86.9993133440147 0.0 0.0)
+ translateLabel: true
+ extent: (Point 807 37)
+ )
+ (ViewSpec
+ name: 'ManagerSetupBoxx'
+ component:
+ (SpecCollection
+ collection: (
+ (FramedBoxSpec
+ label: 'Mercurial Sourcecode Manager Settings'
+ name: 'HGSetupBox'
+ layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (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: 'CommandBox'
+ layout: (LayoutFrame 0 0 35 0 0 1 60 0)
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'HG Command or Path:'
+ name: 'Label1'
+ layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
+ activeHelpKey: hgCommand
+ level: 0
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'HGExecutableField'
+ layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
+ activeHelpKey: hgCommand
+ tabable: true
+ model: hgExecutableHolder
+ acceptChannel: acceptChannel
+ acceptOnPointerLeave: true
)
-
- )
- )
- (ViewSpec
- name: 'TimeoutBox'
- layout: (LayoutFrame 0 0 61 0 0 1 86 0)
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'HG Command Timeout:'
- name: 'Label2'
- layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
- activeHelpKey: hgCommandTimeout
- level: 0
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField1'
- layout: (LayoutFrame 64 0.25 0 0 168 0.25 22 0)
- activeHelpKey: hgCommandTimeout
- tabable: true
- model: hgCommandTimeoutHolder
- type: timeDuration
- acceptChannel: acceptChannel
- acceptOnPointerLeave: true
- )
+ )
+
+ )
+ )
+ (ViewSpec
+ name: 'TimeoutBox'
+ layout: (LayoutFrame 0 0 61 0 0 1 86 0)
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'HG Command Timeout:'
+ name: 'Label2'
+ layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
+ activeHelpKey: hgCommandTimeout
+ level: 0
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField1'
+ layout: (LayoutFrame 64 0.25 0 0 168 0.25 22 0)
+ activeHelpKey: hgCommandTimeout
+ tabable: true
+ model: hgCommandTimeoutHolder
+ type: timeDuration
+ acceptChannel: acceptChannel
+ acceptOnPointerLeave: true
)
-
- )
- )
- (ViewSpec
- name: 'WorkDirectoryBox'
- layout: (LayoutFrame 0 0.0 85 0 0 1 110 0)
- component:
- (SpecCollection
- collection: (
- (InputFieldSpec
- name: 'EntryField2'
- layout: (LayoutFrame 64 0.25 2 0 0 1 24 0)
- activeHelpKey: hgRootDefault
- tabable: true
- model: workDirectoryHolder
- immediateAccept: true
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptChannel: acceptChannel
- acceptOnPointerLeave: true
- )
- (LabelSpec
- label: 'Working Directory:'
- name: 'Label9'
- layout: (LayoutFrame 0 0.0 2 0 60 0.25 24 0)
- activeHelpKey: hgRootDefault
- level: 0
- translateLabel: true
- adjust: right
- )
+ )
+
+ )
+ )
+ (ViewSpec
+ name: 'WorkDirectoryBox'
+ layout: (LayoutFrame 0 0.0 85 0 0 1 110 0)
+ component:
+ (SpecCollection
+ collection: (
+ (InputFieldSpec
+ name: 'EntryField2'
+ layout: (LayoutFrame 64 0.25 2 0 0 1 24 0)
+ activeHelpKey: hgRootDefault
+ tabable: true
+ model: workDirectoryHolder
+ immediateAccept: true
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptChannel: acceptChannel
+ acceptOnPointerLeave: true
+ )
+ (LabelSpec
+ label: 'Working Directory:'
+ name: 'Label9'
+ layout: (LayoutFrame 0 0.0 2 0 60 0.25 24 0)
+ activeHelpKey: hgRootDefault
+ level: 0
+ translateLabel: true
+ adjust: right
)
-
- )
- )
- (ViewSpec
- name: 'RepositoryBox'
- layout: (LayoutFrame 0 0.0 120 0 0 1 145 0)
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Default Repository:'
- name: 'defaultCvsRootLabel'
- layout: (LayoutFrame 0 0.0 2 0 60 0.25 24 0)
- activeHelpKey: hgRootDefault
- level: 0
- translateLabel: true
- adjust: right
- )
- (ComboBoxSpec
- name: 'RepositoryComboBox'
- layout: (LayoutFrame 64 0.25 2 0 0 1 24 0)
- activeHelpKey: hgRootDefault
- tabable: true
- model: repositoryHolder
- immediateAccept: true
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptChannel: acceptChannel
- acceptOnPointerLeave: true
- comboList: repositoryPrototypeList
- )
+ )
+
+ )
+ )
+ (ViewSpec
+ name: 'RepositoryBox'
+ layout: (LayoutFrame 0 0.0 120 0 0 1 145 0)
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Default Repository:'
+ name: 'defaultCvsRootLabel'
+ layout: (LayoutFrame 0 0.0 2 0 60 0.25 24 0)
+ activeHelpKey: hgRootDefault
+ level: 0
+ translateLabel: true
+ adjust: right
+ )
+ (ComboBoxSpec
+ name: 'RepositoryComboBox'
+ layout: (LayoutFrame 64 0.25 2 0 0 1 24 0)
+ activeHelpKey: hgRootDefault
+ tabable: true
+ model: repositoryHolder
+ immediateAccept: true
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptChannel: acceptChannel
+ acceptOnPointerLeave: true
+ comboList: repositoryPrototypeList
)
-
- )
- )
- (ActionButtonSpec
- label: 'Init'
- name: 'Button2'
- layout: (LayoutFrame -201 1 150 0 -101 1 172 0)
- activeHelpKey: hgInit
- translateLabel: true
- tabable: true
- model: initializeRepository
- enableChannel: cvsLoginEnabled
- )
- (ActionButtonSpec
- label: 'Check Access'
- name: 'Button1'
- layout: (LayoutFrame -100 1 150 0 0 1 172 0)
- activeHelpKey: hgCheckAccess
- translateLabel: true
- tabable: true
- model: checkAccess
- enableChannel: cvsLoginEnabled
- )
- (LabelSpec
- label: 'Repository per Module:'
- name: 'knownModulesLabel'
- layout: (LayoutFrame 0 0.0 178 0 60 0.25 200 0)
- activeHelpKey: hgRootPerModule
- translateLabel: true
- adjust: right
- )
- (SequenceViewSpec
- name: 'List1'
- layout: (LayoutFrame 64 0.25 178 0 0 1 297 0)
- activeHelpKey: hgRootPerModule
- tabable: true
- model: selectedPerModuleRepository
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- miniScrollerHorizontal: true
- useIndex: false
- sequenceList: listOfModules
- )
- (LabelSpec
- label: 'Module:'
- name: 'moduleLabel'
- layout: (LayoutFrame 0 0.0 307 0 60 0.25 324 0)
- activeHelpKey: hgRootPerModuleModule
- translateLabel: true
- adjust: right
- )
- (LabelSpec
- label: 'Mercurial Repository:'
- name: 'hgRepository'
- layout: (LayoutFrame 0 0.0 332 0 60 0.25 349 0)
- activeHelpKey: hgRootPerModuleRoot
- translateLabel: true
- adjust: right
- )
- (ComboBoxSpec
- name: 'perModuleRepositoryComboBox'
- layout: (LayoutFrame 64 0.25 328 0 0 1.0 350 0)
- activeHelpKey: hgRootPerModuleRoot
- tabable: true
- model: perModuleRepository
- immediateAccept: true
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptChannel: acceptChannel
- acceptOnPointerLeave: true
- comboList: hgRepositoryPrototypeList
- )
- (HorizontalPanelViewSpec
- name: 'HorizontalPanel2'
- layout: (LayoutFrame 64 0.25 355 0 -1 1 380 0)
- horizontalLayout: right
- verticalLayout: center
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (ActionButtonSpec
- label: 'Add/Apply'
- name: 'addButton'
- activeHelpKey: addPerModuleRoot
- translateLabel: true
- tabable: true
- model: addPerModuleRoot
- extent: (Point 100 22)
- )
- (ActionButtonSpec
- label: 'Remove'
- name: 'removeButton'
- activeHelpKey: removePerModuleRoot
- translateLabel: true
- tabable: true
- model: removePerModuleRoot
- enableChannel: removeEnabled
- extent: (Point 100 22)
- )
- (ViewSpec
- name: 'Box11'
- extent: (Point 100 10)
- )
- (ActionButtonSpec
- label: 'Init'
- name: 'Button3'
- activeHelpKey: hgLoginPerModuleRoot
- translateLabel: true
- tabable: true
- model: initializePerModuleRepository
- enableChannel: cvsLoginEnabled
- extent: (Point 100 22)
- )
- (ActionButtonSpec
- label: 'Check Access'
- name: 'checkButton2'
- activeHelpKey: hgCheckAccessPerModuleRoot
- translateLabel: true
- tabable: true
- model: checkAccessPerModuleRepository
- enableChannel: cvsLoginInModuleEnabled
- extent: (Point 100 22)
- )
+ )
+
+ )
+ )
+ (ActionButtonSpec
+ label: 'Init'
+ name: 'Button2'
+ layout: (LayoutFrame -201 1 150 0 -101 1 172 0)
+ activeHelpKey: hgInit
+ translateLabel: true
+ tabable: true
+ model: initializeRepository
+ enableChannel: cvsLoginEnabled
+ )
+ (ActionButtonSpec
+ label: 'Check Access'
+ name: 'Button1'
+ layout: (LayoutFrame -100 1 150 0 0 1 172 0)
+ activeHelpKey: hgCheckAccess
+ translateLabel: true
+ tabable: true
+ model: checkAccess
+ enableChannel: cvsLoginEnabled
+ )
+ (LabelSpec
+ label: 'Repository per Module:'
+ name: 'knownModulesLabel'
+ layout: (LayoutFrame 0 0.0 178 0 60 0.25 200 0)
+ activeHelpKey: hgRootPerModule
+ translateLabel: true
+ adjust: right
+ )
+ (SequenceViewSpec
+ name: 'List1'
+ layout: (LayoutFrame 64 0.25 178 0 0 1 262 0)
+ activeHelpKey: hgRootPerModule
+ tabable: true
+ model: selectedPerModuleRepository
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ miniScrollerHorizontal: true
+ useIndex: false
+ sequenceList: listOfModules
+ )
+ (LabelSpec
+ label: 'Module:'
+ name: 'moduleLabel'
+ layout: (LayoutFrame 0 0.0 275 0 60 0.25 292 0)
+ activeHelpKey: hgRootPerModuleModule
+ translateLabel: true
+ adjust: right
+ )
+ (ComboBoxSpec
+ name: 'ComboBox3'
+ layout: (LayoutFrame 64 0.25 271 0 0 1 293 0)
+ activeHelpKey: hgRootPerModuleModule
+ tabable: true
+ model: perModuleRepositoryModule
+ acceptChannel: acceptChannel
+ acceptOnPointerLeave: true
+ comboList: sampleModuleList
+ )
+ (LabelSpec
+ label: 'Mercurial Repository:'
+ name: 'hgRepository'
+ layout: (LayoutFrame 0 0.0 300 0 60 0.25 317 0)
+ activeHelpKey: hgRootPerModuleRoot
+ translateLabel: true
+ adjust: right
+ )
+ (ComboBoxSpec
+ name: 'perModuleRepositoryComboBox'
+ layout: (LayoutFrame 64 0.25 296 0 0 1.0 318 0)
+ activeHelpKey: hgRootPerModuleRoot
+ tabable: true
+ model: perModuleRepository
+ immediateAccept: true
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptChannel: acceptChannel
+ acceptOnPointerLeave: true
+ comboList: repositoryPrototypeList
+ )
+ (HorizontalPanelViewSpec
+ name: 'HorizontalPanel2'
+ layout: (LayoutFrame 64 0.25 323 0 -1 1 348 0)
+ horizontalLayout: right
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Add/Apply'
+ name: 'addButton'
+ activeHelpKey: addPerModuleRoot
+ translateLabel: true
+ tabable: true
+ model: addPerModuleRoot
+ extent: (Point 100 22)
)
-
- )
- )
+ (ActionButtonSpec
+ label: 'Remove'
+ name: 'removeButton'
+ activeHelpKey: removePerModuleRoot
+ translateLabel: true
+ tabable: true
+ model: removePerModuleRoot
+ enableChannel: removeEnabled
+ extent: (Point 100 22)
+ )
+ (ViewSpec
+ name: 'Box11'
+ extent: (Point 100 10)
+ )
+ (ActionButtonSpec
+ label: 'Init'
+ name: 'Button3'
+ activeHelpKey: hgLoginPerModuleRoot
+ translateLabel: true
+ tabable: true
+ model: initializePerModuleRepository
+ enableChannel: cvsLoginEnabled
+ extent: (Point 100 22)
+ )
+ (ActionButtonSpec
+ label: 'Check Access'
+ name: 'checkButton2'
+ activeHelpKey: hgCheckAccessPerModuleRoot
+ translateLabel: true
+ tabable: true
+ model: checkAccessPerModuleRepository
+ enableChannel: cvsLoginInModuleEnabled
+ extent: (Point 100 22)
+ )
+ )
+
+ )
)
-
- )
- )
+ )
+
+ )
)
-
- )
- extent: (Point 811 420)
- )
- (FramedBoxSpec
- label: 'Push URLs'
- name: 'FramedBox2'
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'URL to Push To:'
- name: 'Label6'
- layout: (LayoutFrame 0 0.0 14 0 60 0.25 36 0)
- activeHelpKey: hgPushURLs
- translateLabel: true
- adjust: right
- )
- (SequenceViewSpec
- name: 'List2'
- layout: (LayoutFrame 64 0.25 14 0 0 1 90 0)
- activeHelpKey: hgPushURLs
- tabable: true
- model: selectedPushURL
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- miniScrollerHorizontal: true
- useIndex: false
- sequenceList: listOfPushURLs
- )
- (LabelSpec
- label: 'URL:'
- name: 'Label8'
- layout: (LayoutFrame 0 0.0 101 0 60 0.25 118 0)
- activeHelpKey: hgAddPushURL
- translateLabel: true
- adjust: right
- )
- (ComboBoxSpec
- name: 'ComboBox2'
- layout: (LayoutFrame 64 0.25 97 0 0 1.0 119 0)
- activeHelpKey: hgAddPushURL
- tabable: true
- model: pushURL
- immediateAccept: true
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptChannel: acceptChannel
- acceptOnPointerLeave: true
- comboList: pushURLPrototypeList
- )
- (HorizontalPanelViewSpec
- name: 'HorizontalPanel3'
- layout: (LayoutFrame 64 0.25 125 0 -1 1 150 0)
- horizontalLayout: right
- verticalLayout: center
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (ActionButtonSpec
- label: 'Add/Apply'
- name: 'Button6'
- activeHelpKey: hgAddPushURL
- translateLabel: true
- tabable: true
- model: addPushURL
- extent: (Point 100 22)
- )
- (ActionButtonSpec
- label: 'Remove'
- name: 'Button7'
- activeHelpKey: hgRemovePushURL
- translateLabel: true
- tabable: true
- model: removePushURL
- enableChannel: removePushURLEnabled
- extent: (Point 100 22)
- )
- (ViewSpec
- name: 'Box17'
- extent: (Point 100 10)
- )
- (ViewSpec
- name: 'Box18'
- extent: (Point 100 10)
- )
- (ViewSpec
- name: 'Box19'
- extent: (Point 99 9)
- )
+ )
+
+ )
+ extent: (Point 807 384)
+ )
+ (FramedBoxSpec
+ label: 'Push URLs'
+ name: 'FramedBox2'
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'URL to Push To:'
+ name: 'Label6'
+ layout: (LayoutFrame 0 0.0 7 0 60 0.25 29 0)
+ activeHelpKey: hgPushURLs
+ translateLabel: true
+ adjust: right
+ )
+ (SequenceViewSpec
+ name: 'List2'
+ layout: (LayoutFrame 64 0.25 7 0 0 1 65 0)
+ activeHelpKey: hgPushURLs
+ tabable: true
+ model: selectedPushURL
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ miniScrollerHorizontal: true
+ useIndex: false
+ sequenceList: listOfPushURLs
+ )
+ (LabelSpec
+ label: 'URL:'
+ name: 'Label8'
+ layout: (LayoutFrame 0 0.0 79 0 60 0.25 96 0)
+ activeHelpKey: hgAddPushURL
+ translateLabel: true
+ adjust: right
+ )
+ (ComboBoxSpec
+ name: 'ComboBox2'
+ layout: (LayoutFrame 64 0.25 75 0 0 1.0 97 0)
+ activeHelpKey: hgAddPushURL
+ tabable: true
+ model: pushURL
+ immediateAccept: true
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptChannel: acceptChannel
+ acceptOnPointerLeave: true
+ comboList: pushURLPrototypeList
+ )
+ (HorizontalPanelViewSpec
+ name: 'HorizontalPanel3'
+ layout: (LayoutFrame 64 0.25 103 0 -1 1 128 0)
+ horizontalLayout: right
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Add/Apply'
+ name: 'Button6'
+ activeHelpKey: hgAddPushURL
+ translateLabel: true
+ tabable: true
+ model: addPushURL
+ extent: (Point 100 22)
+ )
+ (ActionButtonSpec
+ label: 'Remove'
+ name: 'Button7'
+ activeHelpKey: hgRemovePushURL
+ translateLabel: true
+ tabable: true
+ model: removePushURL
+ enableChannel: removePushURLEnabled
+ extent: (Point 100 22)
+ )
+ (ViewSpec
+ name: 'Box17'
+ extent: (Point 100 10)
+ )
+ (ViewSpec
+ name: 'Box18'
+ extent: (Point 100 10)
)
-
- )
- )
+ (ViewSpec
+ name: 'Box19'
+ extent: (Point 99 9)
+ )
+ )
+
+ )
)
-
- )
- extent: (Point 811 187)
- )
- (FramedBoxSpec
- label: 'Source Cache'
- name: 'FramedBox1'
- visibilityChannel: false
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'SourceCacheDirBox'
- layout: (LayoutFrame 0 0 0 0 0 1 30 0)
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Source Cache Dir:'
- name: 'SourceCacheDirLabel'
- layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'SourceCacheDirEntryField'
- layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
- model: sourceCacheDir
- immediateAccept: false
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
+ )
+
+ )
+ extent: (Point 807 170)
+ )
+ (FramedBoxSpec
+ label: 'Source Cache'
+ name: 'FramedBox1'
+ visibilityChannel: false
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'SourceCacheDirBox'
+ layout: (LayoutFrame 0 0 0 0 0 1 30 0)
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Source Cache Dir:'
+ name: 'SourceCacheDirLabel'
+ layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'SourceCacheDirEntryField'
+ layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
+ model: sourceCacheDir
+ immediateAccept: false
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
)
-
- )
- )
- (HorizontalPanelViewSpec
- name: 'CacheActionsHorizontalPanel'
- layout: (LayoutFrame 44 0.25 33 0 0 1 67 0)
- horizontalLayout: fitSpace
- verticalLayout: center
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (ActionButtonSpec
- label: 'Flush Cache now'
- name: 'FlushCacheNowButton'
- translateLabel: true
- tabable: true
- model: flushSourceCache
- extent: (Point 265 22)
- )
- (ActionButtonSpec
- label: 'Condense Cache now'
- name: 'CondenseCacheNowButton'
- translateLabel: true
- tabable: true
- model: condenseSourceCache
- extent: (Point 265 22)
- )
+ )
+
+ )
+ )
+ (HorizontalPanelViewSpec
+ name: 'CacheActionsHorizontalPanel'
+ layout: (LayoutFrame 44 0.25 33 0 0 1 67 0)
+ horizontalLayout: fitSpace
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Flush Cache now'
+ name: 'FlushCacheNowButton'
+ translateLabel: true
+ tabable: true
+ model: flushSourceCache
+ extent: (Point 263 22)
)
-
- )
- )
+ (ActionButtonSpec
+ label: 'Condense Cache now'
+ name: 'CondenseCacheNowButton'
+ translateLabel: true
+ tabable: true
+ model: condenseSourceCache
+ extent: (Point 264 22)
+ )
+ )
+
+ )
)
-
- )
- extent: (Point 811 95)
- )
+ )
+
+ )
+ extent: (Point 807 95)
)
-
- )
- )
+ )
+
+ )
)
-
- )
- )
+ )
+
+ )
+ )
! !
!MercurialSourceCodeManagementSettingsAppl class methodsFor:'queries'!
@@ -966,6 +945,12 @@
"Created: / 17-01-2012 / 17:34:53 / cg"
!
+initializePerModuleRepository
+ self halt:'unimplemented feature'
+
+ "Created: / 31-07-2013 / 19:12:08 / cg"
+!
+
initializeRepository
self halt:'unimplemented feature'
@@ -1081,7 +1066,9 @@
"/ prototypeList add:cvsRoot
"/ ].
- prototypeList add:('./hgRepository').
+ prototypeList add:('.' asFilename / 'hgRepository') name.
+ prototypeList add:(OperatingSystem getHomeDirectory asFilename / 'hgRepository') pathName.
+ prototypeList add:(OperatingSystem getHomeDirectory asFilename / '.smalltalk' / 'hgRepository') pathName.
prototypeList add:('https://inst.kilnhg.com/Repo/Foo/Bar/Baz').
"/ prototypeList add:('https://inst.kilnhg.com/Repo/Dino-VM/Group/Dino-VM').
repositoryPrototypeList := prototypeList asOrderedCollection.
@@ -1243,10 +1230,10 @@
!MercurialSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.20 2013-07-29 14:08:17 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.21 2013-07-31 17:32:14 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.20 2013-07-29 14:08:17 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.21 2013-07-31 17:32:14 cg Exp $'
! !