--- a/GitSourceCodeManagementSettingsAppl.st Fri Mar 02 16:22:42 2012 +0100
+++ b/GitSourceCodeManagementSettingsAppl.st Fri Mar 02 17:10:48 2012 +0100
@@ -120,40 +120,40 @@
#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'
-#hgAddPushURL
+#gitAddPushURL
'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'
+#gitCheckAccess
+'Perform a "git 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'
+#gitCheckAccessPerModuleRoot
+'Perform a "git status" command in this module''s repository to see if the repository is accessable'
-#hgCommand
-'The command to use for git operations\(the path to "hg"/"hg.exe"-command. Not needed, if already in the shell''s PATH value)'
+#gitCommand
+'The command to use for git operations\(the path to "git"/"git.exe"-command. Not needed, if already in the shell''s PATH value)'
-#hgCommandTimeout
+#gitCommandTimeout
'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'
+#gitInit
+'Perform a "git init" command to setup the repository for the very first time'
-#hgPushURLs
+#gitPushURLs
'The push-URL list. A repository-push operation will send your changes to these repositories as well'
-#hgRemovePushURL
+#gitRemovePushURL
'Remove the selected repository from the push-URL list. A repository-push operation will no longer synchronize your changes with this repository'
-#hgRootDefault
+#gitRootDefault
'The default git repository.\This will be used for all modules which are not listed below.'
-#hgRootPerModule
+#gitRootPerModule
'The git repository for which this specific module is defined'
-#hgRootPerModuleModule
+#gitRootPerModuleModule
'The module for which a specific git repository is defined'
-#hgRootPerModuleRoot
+#gitRootPerModuleRoot
'The git repository for which this specific module is defined'
#loginPerModuleRoot
@@ -188,7 +188,7 @@
)
- "Modified (comment): / 02-03-2012 / 15:21:13 / cg"
+ "Modified: / 02-03-2012 / 16:52:43 / cg"
! !
!GitSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
@@ -325,7 +325,7 @@
label: 'Git Command or Path:'
name: 'Label1'
layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
- activeHelpKey: hgCommand
+ activeHelpKey: gitCommand
level: 0
translateLabel: true
adjust: right
@@ -333,7 +333,7 @@
(InputFieldSpec
name: 'GitExecutableField'
layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
- activeHelpKey: hgCommand
+ activeHelpKey: gitCommand
tabable: true
model: gitExecutableHolder
acceptChannel: acceptChannel
@@ -353,7 +353,7 @@
label: 'Git Command Timeout:'
name: 'Label2'
layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
- activeHelpKey: hgCommandTimeout
+ activeHelpKey: gitCommandTimeout
level: 0
translateLabel: true
adjust: right
@@ -361,7 +361,7 @@
(InputFieldSpec
name: 'EntryField1'
layout: (LayoutFrame 64 0.25 0 0 168 0.25 22 0)
- activeHelpKey: hgCommandTimeout
+ activeHelpKey: gitCommandTimeout
tabable: true
model: gitCommandTimeoutHolder
type: timeDuration
@@ -382,7 +382,7 @@
label: 'Default Repository:'
name: 'defaultCvsRootLabel'
layout: (LayoutFrame 0 0.0 2 0 60 0.25 24 0)
- activeHelpKey: hgRootDefault
+ activeHelpKey: gitRootDefault
level: 0
translateLabel: true
adjust: right
@@ -390,7 +390,7 @@
(ComboBoxSpec
name: 'RepositoryComboBox'
layout: (LayoutFrame 64 0.25 2 0 0 1 24 0)
- activeHelpKey: hgRootDefault
+ activeHelpKey: gitRootDefault
tabable: true
model: repositoryHolder
immediateAccept: true
@@ -410,7 +410,7 @@
label: 'Init'
name: 'Button2'
layout: (LayoutFrame -201 1 122 0 -101 1 144 0)
- activeHelpKey: hgInit
+ activeHelpKey: gitInit
translateLabel: true
tabable: true
model: initializeRepository
@@ -420,7 +420,7 @@
label: 'Check Access'
name: 'Button1'
layout: (LayoutFrame -100 1 122 0 0 1 144 0)
- activeHelpKey: hgCheckAccess
+ activeHelpKey: gitCheckAccess
translateLabel: true
tabable: true
model: checkAccess
@@ -430,14 +430,14 @@
label: 'Repository per Module:'
name: 'knownModulesLabel'
layout: (LayoutFrame 0 0.0 150 0 60 0.25 172 0)
- activeHelpKey: hgRootPerModule
+ activeHelpKey: gitRootPerModule
translateLabel: true
adjust: right
)
(SequenceViewSpec
name: 'List1'
layout: (LayoutFrame 64 0.25 150 0 0 1 269 0)
- activeHelpKey: hgRootPerModule
+ activeHelpKey: gitRootPerModule
tabable: true
model: selectedPerModuleRepository
hasHorizontalScrollBar: true
@@ -450,14 +450,14 @@
label: 'Module:'
name: 'moduleLabel'
layout: (LayoutFrame 0 0.0 279 0 60 0.25 296 0)
- activeHelpKey: hgRootPerModuleModule
+ activeHelpKey: gitRootPerModuleModule
translateLabel: true
adjust: right
)
(InputFieldSpec
name: 'perModuleRepositoryModuleEntryField'
layout: (LayoutFrame 64 0.25 275 0 0 1 297 0)
- activeHelpKey: hgRootPerModuleModule
+ activeHelpKey: gitRootPerModuleModule
tabable: true
model: perModuleRepositoryModule
acceptChannel: acceptChannel
@@ -465,16 +465,16 @@
)
(LabelSpec
label: 'Git Repository:'
- name: 'hgRepository'
+ name: 'gitRepository'
layout: (LayoutFrame 0 0.0 304 0 60 0.25 321 0)
- activeHelpKey: hgRootPerModuleRoot
+ activeHelpKey: gitRootPerModuleRoot
translateLabel: true
adjust: right
)
(ComboBoxSpec
name: 'perModuleRepositoryComboBox'
layout: (LayoutFrame 64 0.25 300 0 0 1.0 322 0)
- activeHelpKey: hgRootPerModuleRoot
+ activeHelpKey: gitRootPerModuleRoot
tabable: true
model: perModuleRepository
immediateAccept: true
@@ -522,7 +522,7 @@
(ActionButtonSpec
label: 'Init'
name: 'Button3'
- activeHelpKey: hgLoginPerModuleRoot
+ activeHelpKey: gitLoginPerModuleRoot
translateLabel: true
tabable: true
model: initializePerModuleRepository
@@ -532,7 +532,7 @@
(ActionButtonSpec
label: 'Check Access'
name: 'checkButton2'
- activeHelpKey: hgCheckAccessPerModuleRoot
+ activeHelpKey: gitCheckAccessPerModuleRoot
translateLabel: true
tabable: true
model: checkAccessPerModuleRepository
@@ -564,14 +564,14 @@
label: 'URL to Push To:'
name: 'Label6'
layout: (LayoutFrame 0 0.0 14 0 60 0.25 36 0)
- activeHelpKey: hgPushURLs
+ activeHelpKey: gitPushURLs
translateLabel: true
adjust: right
)
(SequenceViewSpec
name: 'List2'
layout: (LayoutFrame 64 0.25 14 0 0 1 90 0)
- activeHelpKey: hgPushURLs
+ activeHelpKey: gitPushURLs
tabable: true
model: selectedPushURL
hasHorizontalScrollBar: true
@@ -584,14 +584,14 @@
label: 'URL:'
name: 'Label8'
layout: (LayoutFrame 0 0.0 101 0 60 0.25 118 0)
- activeHelpKey: hgAddPushURL
+ activeHelpKey: gitAddPushURL
translateLabel: true
adjust: right
)
(ComboBoxSpec
name: 'ComboBox2'
layout: (LayoutFrame 64 0.25 97 0 0 1.0 119 0)
- activeHelpKey: hgAddPushURL
+ activeHelpKey: gitAddPushURL
tabable: true
model: pushURL
immediateAccept: true
@@ -601,7 +601,7 @@
acceptOnLostFocus: true
acceptChannel: acceptChannel
acceptOnPointerLeave: true
- comboList: hgPushURLPrototypeList
+ comboList: gitPushURLPrototypeList
)
(HorizontalPanelViewSpec
name: 'HorizontalPanel3'
@@ -616,7 +616,7 @@
(ActionButtonSpec
label: 'Add/Apply'
name: 'Button6'
- activeHelpKey: hgAddPushURL
+ activeHelpKey: gitAddPushURL
translateLabel: true
tabable: true
model: addPushURL
@@ -625,7 +625,7 @@
(ActionButtonSpec
label: 'Remove'
name: 'Button7'
- activeHelpKey: hgRemovePushURL
+ activeHelpKey: gitRemovePushURL
translateLabel: true
tabable: true
model: removePushURL
@@ -732,6 +732,8 @@
)
)
+
+ "Modified: / 02-03-2012 / 16:53:53 / cg"
! !
!GitSourceCodeManagementSettingsAppl class methodsFor:'queries'!
@@ -897,7 +899,14 @@
!
initializeRepository
- self halt:'unimplemented feature'
+ |repository|
+
+ repository := self repositoryHolder value.
+ repository isEmptyOrNil ifTrue:[
+ Dialog warn:(resources string:'No default repository defined.').
+ ^ self.
+ ].
+ GitSourceCodeManager initializeForRepository:repository
"Created: / 17-01-2012 / 17:42:27 / cg"
! !
@@ -1011,7 +1020,10 @@
"/ prototypeList add:cvsRoot
"/ ].
- prototypeList add:('https://inst.kilnhg.com/Repo/Foo/Bar/Baz').
+ prototypeList add:(OperatingSystem getHomeDirectory asFilename construct:'.smalltalk/gitRepository') pathName.
+ prototypeList add:(OperatingSystem getHomeDirectory asFilename construct:'gitRepository') pathName.
+ prototypeList add:('./gitRepository').
+ prototypeList add:('https://github.com/smalltalkX/<project>/').
"/ prototypeList add:('https://inst.kilnhg.com/Repo/Dino-VM/Group/Dino-VM').
repositoryPrototypeList := prototypeList asOrderedCollection.
].
@@ -1228,9 +1240,9 @@
!GitSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/GitSourceCodeManagementSettingsAppl.st,v 1.2 2012-03-02 15:22:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/GitSourceCodeManagementSettingsAppl.st,v 1.3 2012-03-02 16:10:48 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/GitSourceCodeManagementSettingsAppl.st,v 1.2 2012-03-02 15:22:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/GitSourceCodeManagementSettingsAppl.st,v 1.3 2012-03-02 16:10:48 cg Exp $'
! !