class definition
added:
#pushURL
#pushURLPrototypeList
#selectedPushURL
changed: #windowSpec
--- a/GitSourceCodeManagementSettingsAppl.st Fri Mar 02 16:19:21 2012 +0100
+++ b/GitSourceCodeManagementSettingsAppl.st Fri Mar 02 16:22:39 2012 +0100
@@ -17,7 +17,8 @@
perModuleRepository defaultRepositoryHolder
selectedPerModuleRepository repositoriesPerModule
perModuleRepositoryModule gitBinDirectoryHolder
- gitExecutableHolder gitCommandTimeoutHolder'
+ gitExecutableHolder gitCommandTimeoutHolder pushURL
+ pushURLPrototypeList selectedPushURL listOfPushURLs'
classVariableNames:'RecentlyUsedRepositoryURLS'
poolDictionaries:''
category:'System-SourceCodeManagement'
@@ -929,6 +930,16 @@
"Created: / 02-03-2012 / 14:41:07 / cg"
!
+listOfPushURLs
+
+ listOfPushURLs isNil ifTrue:[
+ listOfPushURLs := List new.
+ ].
+ ^ listOfPushURLs.
+
+ "Created: / 02-03-2012 / 16:22:25 / cg"
+!
+
perModuleRepository
perModuleRepository isNil ifTrue:[
perModuleRepository := ValueHolder new.
@@ -948,6 +959,36 @@
"Created: / 14-01-2012 / 20:19:51 / cg"
!
+pushURL
+ pushURL isNil ifTrue:[
+ pushURL := ValueHolder new.
+ pushURL addDependent:self.
+ ].
+ ^ pushURL.
+
+ "Created: / 02-03-2012 / 15:53:11 / cg"
+!
+
+pushURLPrototypeList
+ |prototypeList|
+
+ pushURLPrototypeList isNil ifTrue:[
+ prototypeList := OrderedSet new.
+
+"/ cvsRoot := self cvsRootFromCVSRootFileOrNil.
+"/ cvsRoot notNil ifTrue:[
+"/ prototypeList add:cvsRoot
+"/ ].
+
+ prototypeList add:('https://inst.kilnhg.com/Repo/Foo/Bar/Baz').
+ "/ prototypeList add:('https://inst.kilnhg.com/Repo/Dino-VM/Group/Dino-VM').
+ pushURLPrototypeList := prototypeList asOrderedCollection.
+ ].
+ ^ pushURLPrototypeList.
+
+ "Created: / 02-03-2012 / 15:53:58 / cg"
+!
+
repositoryHolder
repositoryHolder isNil ifTrue:[
@@ -987,6 +1028,16 @@
^ selectedPerModuleRepository.
"Created: / 14-01-2012 / 20:14:04 / cg"
+!
+
+selectedPushURL
+ selectedPushURL isNil ifTrue:[
+ selectedPushURL := ValueHolder new.
+ selectedPushURL addDependent:self.
+ ].
+ ^ selectedPushURL.
+
+ "Created: / 02-03-2012 / 16:20:21 / cg"
! !
!GitSourceCodeManagementSettingsAppl methodsFor:'change & update'!
@@ -1177,9 +1228,9 @@
!GitSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/GitSourceCodeManagementSettingsAppl.st,v 1.1 2012-03-02 14:28:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/GitSourceCodeManagementSettingsAppl.st,v 1.2 2012-03-02 15:22:39 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/GitSourceCodeManagementSettingsAppl.st,v 1.1 2012-03-02 14:28:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/GitSourceCodeManagementSettingsAppl.st,v 1.2 2012-03-02 15:22:39 cg Exp $'
! !