--- a/MercurialSourceCodeManagementSettingsAppl.st Tue Jan 17 16:33:02 2012 +0100
+++ b/MercurialSourceCodeManagementSettingsAppl.st Tue Jan 17 17:43:15 2012 +0100
@@ -67,7 +67,7 @@
the UIHelpTool may not be able to read the specification."
"
- UIHelpTool openOnClass:CVSSourceCodeManagementSettingsAppl
+ UIHelpTool openOnClass:MercurialSourceCodeManagementSettingsAppl
"
<resource: #help>
@@ -119,6 +119,33 @@
#flushSourceCache
'Remove all files from the source cache.\Access to source code will temporarily be slowed down,\until sources have been refetched from the repository'
+#hgCheckAccess
+'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'
+
+#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)'
+
+#hgCommandTimeout
+'The command timeout.\For slow connections (ssl-tunnel), it may make sense to increase this value.'
+
+#hgInit
+'Perform a "hg init" command to setup the repository for the very first time'
+
+#hgRootDefault
+'The default mercurial repository.\This will be used for all 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'
+
+#hgRootPerModuleRoot
+'The mercurial repository for which this specific module is defined'
+
#loginPerModuleRoot
'Execute a "cvs login" operation for this CVSROOT'
@@ -151,7 +178,7 @@
)
- "Modified: / 14-01-2012 / 20:23:37 / cg"
+ "Modified: / 17-01-2012 / 17:33:09 / cg"
! !
!MercurialSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
@@ -315,7 +342,7 @@
label: 'HG Command or Path:'
name: 'Label1'
layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
- activeHelpKey: cvsCommand
+ activeHelpKey: hgCommand
level: 0
translateLabel: true
adjust: right
@@ -323,7 +350,7 @@
(InputFieldSpec
name: 'HGExecutableField'
layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
- activeHelpKey: cvsCommand
+ activeHelpKey: hgCommand
tabable: true
model: hgExecutableHolder
acceptChannel: acceptChannel
@@ -343,7 +370,7 @@
label: 'HG Command Timeout:'
name: 'Label2'
layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
- activeHelpKey: cvsCommandTimeout
+ activeHelpKey: hgCommandTimeout
level: 0
translateLabel: true
adjust: right
@@ -351,7 +378,7 @@
(InputFieldSpec
name: 'EntryField1'
layout: (LayoutFrame 64 0.25 0 0 120 0.25 22 0)
- activeHelpKey: cvsCommandTimeout
+ activeHelpKey: hgCommandTimeout
tabable: true
model: hgCommandTimeoutHolder
type: integerInRange
@@ -374,7 +401,7 @@
label: 'Default Repository:'
name: 'defaultCvsRootLabel'
layout: (LayoutFrame 0 0.0 2 0 60 0.25 24 0)
- activeHelpKey: cvsRootDefault
+ activeHelpKey: hgRootDefault
level: 0
translateLabel: true
adjust: right
@@ -382,7 +409,7 @@
(ComboBoxSpec
name: 'RepositoryComboBox'
layout: (LayoutFrame 64 0.25 2 0 0 1 24 0)
- activeHelpKey: cvsRootDefault
+ activeHelpKey: hgRootDefault
tabable: true
model: repositoryHolder
immediateAccept: true
@@ -402,7 +429,7 @@
label: 'Init'
name: 'Button2'
layout: (LayoutFrame -201 1 122 0 -101 1 144 0)
- activeHelpKey: cvsLogin
+ activeHelpKey: hgInit
translateLabel: true
tabable: true
model: initializeRepository
@@ -412,7 +439,7 @@
label: 'Check Access'
name: 'Button1'
layout: (LayoutFrame -100 1 122 0 0 1 144 0)
- activeHelpKey: cvsLogin
+ activeHelpKey: hgCheckAccess
translateLabel: true
tabable: true
model: checkAccess
@@ -422,14 +449,14 @@
label: 'Repository per Module:'
name: 'knownModulesLabel'
layout: (LayoutFrame 0 0.0 150 0 60 0.25 172 0)
- activeHelpKey: cvsRootPerModule
+ activeHelpKey: hgRootPerModule
translateLabel: true
adjust: right
)
(SequenceViewSpec
name: 'List1'
layout: (LayoutFrame 64 0.25 150 0 0 1 269 0)
- activeHelpKey: cvsRootPerModule
+ activeHelpKey: hgRootPerModule
tabable: true
model: selectedPerModuleRepository
hasHorizontalScrollBar: true
@@ -442,14 +469,14 @@
label: 'Module:'
name: 'moduleLabel'
layout: (LayoutFrame 0 0.0 279 0 60 0.25 296 0)
- activeHelpKey: cvsRootPerModuleModule
+ activeHelpKey: hgRootPerModuleModule
translateLabel: true
adjust: right
)
(InputFieldSpec
name: 'perModuleRepositoryModuleEntryField'
layout: (LayoutFrame 64 0.25 275 0 0 1 297 0)
- activeHelpKey: cvsRootPerModuleModule
+ activeHelpKey: hgRootPerModuleModule
tabable: true
model: perModuleRepositoryModule
acceptChannel: acceptChannel
@@ -459,14 +486,14 @@
label: 'Mercurial Repository:'
name: 'hgRepository'
layout: (LayoutFrame 0 0.0 304 0 60 0.25 321 0)
- activeHelpKey: cvsRootPerModuleRoot
+ activeHelpKey: hgRootPerModuleRoot
translateLabel: true
adjust: right
)
(ComboBoxSpec
name: 'perModuleRepositoryComboBox'
layout: (LayoutFrame 64 0.25 300 0 0 1.0 322 0)
- activeHelpKey: cvsRootPerModuleRoot
+ activeHelpKey: hgRootPerModuleRoot
tabable: true
model: perModuleRoot
immediateAccept: true
@@ -514,7 +541,7 @@
(ActionButtonSpec
label: 'Init'
name: 'Button3'
- activeHelpKey: cvsLogin
+ activeHelpKey: hgLoginPerModuleRoot
translateLabel: true
tabable: true
model: initializePerModuleRepository
@@ -524,7 +551,7 @@
(ActionButtonSpec
label: 'Check Access'
name: 'checkButton2'
- activeHelpKey: loginPerModuleRoot
+ activeHelpKey: hgCheckAccessPerModuleRoot
translateLabel: true
tabable: true
model: checkAccessPerModuleRepository
@@ -780,6 +807,18 @@
"Modified: / 10-01-2012 / 00:18:15 / cg"
"Created: / 14-01-2012 / 20:01:47 / cg"
+!
+
+checkAccess
+ self halt:'unimplemented feature'
+
+ "Created: / 17-01-2012 / 17:34:53 / cg"
+!
+
+initializeRepository
+ self halt:'unimplemented feature'
+
+ "Created: / 17-01-2012 / 17:42:27 / cg"
! !
!MercurialSourceCodeManagementSettingsAppl methodsFor:'aspects'!
@@ -1038,7 +1077,7 @@
super initialize.
- "Modified: / 14-01-2012 / 23:56:57 / cg"
+ "Modified: / 17-01-2012 / 17:39:13 / cg"
! !
!MercurialSourceCodeManagementSettingsAppl methodsFor:'queries'!
@@ -1082,9 +1121,9 @@
!MercurialSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.3 2012-01-15 01:45:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.4 2012-01-17 16:43:15 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.3 2012-01-15 01:45:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.4 2012-01-17 16:43:15 cg Exp $'
! !