hg/stx-libtool: comparison GitSourceCodeManagementSettingsAppl.st

equal deleted inserted replaced

-:8c96fbd86add
+:6d878bc17b09
 'Modify the selected per-package manager definition'
 #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
+#gitCheckAccess
-'Perform a "hg status" command in the default repository to see if the repository is accessable'
+'Perform a "git status" command in the default repository to see if the repository is accessable'
-#hgCheckAccessPerModuleRoot
+#gitCheckAccessPerModuleRoot
-'Perform a "hg status" command in this module''s repository to see if the repository is accessable'
+'Perform a "git status" command in this module''s repository to see if the repository is accessable'
-#hgCommand
+#gitCommand
-'The command to use for git operations\(the path to "hg"/"hg.exe"-command. Not needed, if already in the shell''s PATH value)'
+'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
+#gitInit
-'Perform a "hg init" command to setup the repository for the very first time'
+'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
 'Execute a "cvs login" operation for this CVSROOT'
 #verboseSourceCodeAccess
 'Output debugging messages on the Transcript\(mostly traces of the underlying scm mechanism, such as cvs commands)'
 )
-"Modified (comment): / 02-03-2012 / 15:21:13 / cg"
+"Modified: / 02-03-2012 / 16:52:43 / cg"
 ! !
 !GitSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
 defaultIcon
 collection: (
 (LabelSpec
 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
 )
 (InputFieldSpec
 name: 'GitExecutableField'
 layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
-activeHelpKey: hgCommand
+activeHelpKey: gitCommand
 tabable: true
 model: gitExecutableHolder
 acceptChannel: acceptChannel
 acceptOnPointerLeave: true
 )
 collection: (
 (LabelSpec
 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
 )
 (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
 acceptChannel: acceptChannel
 acceptOnPointerLeave: true
 collection: (
 (LabelSpec
 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
 )
 (ComboBoxSpec
 name: 'RepositoryComboBox'
 layout: (LayoutFrame 64 0.25 2 0 0 1 24 0)
-activeHelpKey: hgRootDefault
+activeHelpKey: gitRootDefault
 tabable: true
 model: repositoryHolder
 immediateAccept: true
 acceptOnLeave: true
 acceptOnReturn: true
 )
 (ActionButtonSpec
 label: 'Init'
 name: 'Button2'
 layout: (LayoutFrame -201 1 122 0 -101 1 144 0)
-activeHelpKey: hgInit
+activeHelpKey: gitInit
 translateLabel: true
 tabable: true
 model: initializeRepository
 enableChannel: cvsLoginEnabled
 )
 (ActionButtonSpec
 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
 enableChannel: cvsLoginEnabled
 )
 (LabelSpec
 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
 hasVerticalScrollBar: true
 miniScrollerHorizontal: true
 )
 (LabelSpec
 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
 acceptOnPointerLeave: true
 )
 (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
 acceptOnLeave: true
 acceptOnReturn: true
 extent: (Point 100 10)
 )
 (ActionButtonSpec
 label: 'Init'
 name: 'Button3'
-activeHelpKey: hgLoginPerModuleRoot
+activeHelpKey: gitLoginPerModuleRoot
 translateLabel: true
 tabable: true
 model: initializePerModuleRepository
 enableChannel: cvsLoginEnabled
 extent: (Point 100 22)
 )
 (ActionButtonSpec
 label: 'Check Access'
 name: 'checkButton2'
-activeHelpKey: hgCheckAccessPerModuleRoot
+activeHelpKey: gitCheckAccessPerModuleRoot
 translateLabel: true
 tabable: true
 model: checkAccessPerModuleRepository
 enableChannel: cvsLoginInModuleEnabled
 extent: (Point 100 22)
 collection: (
 (LabelSpec
 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
 hasVerticalScrollBar: true
 miniScrollerHorizontal: true
 )
 (LabelSpec
 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
 acceptOnLeave: true
 acceptOnReturn: true
 acceptOnTab: true
 acceptOnLostFocus: true
 acceptChannel: acceptChannel
 acceptOnPointerLeave: true
-comboList: hgPushURLPrototypeList
+comboList: gitPushURLPrototypeList
 )
 (HorizontalPanelViewSpec
 name: 'HorizontalPanel3'
 layout: (LayoutFrame 64 0.25 125 0 -1 1 150 0)
 horizontalLayout: right
 (SpecCollection
 collection: (
 (ActionButtonSpec
 label: 'Add/Apply'
 name: 'Button6'
-activeHelpKey: hgAddPushURL
+activeHelpKey: gitAddPushURL
 translateLabel: true
 tabable: true
 model: addPushURL
 extent: (Point 100 22)
 )
 (ActionButtonSpec
 label: 'Remove'
 name: 'Button7'
-activeHelpKey: hgRemovePushURL
+activeHelpKey: gitRemovePushURL
 translateLabel: true
 tabable: true
 model: removePushURL
 enableChannel: removeEnabled
 extent: (Point 100 22)
 )
 )
 )
 )
+"Modified: / 02-03-2012 / 16:53:53 / cg"
 ! !
 !GitSourceCodeManagementSettingsAppl class methodsFor:'queries'!
 managerClass
 "Created: / 17-01-2012 / 17:34:53 / cg"
 !
 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"
 ! !
 !GitSourceCodeManagementSettingsAppl methodsFor:'aspects'!
 "/        cvsRoot := self cvsRootFromCVSRootFileOrNil.
 "/        cvsRoot notNil ifTrue:[
 "/            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.
 ].
 ^ repositoryPrototypeList.
 ! !
 !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 $'
 ! !

changeset 11351	6d878bc17b09
parent 11349	262bbfc637ca
child 11356	b9e54e0a5cb6