class definition
authorClaus Gittinger <cg@exept.de>
Fri, 02 Mar 2012 16:22:39 +0100
changeset 11349 262bbfc637ca
parent 11348 0cb6dd19eb52
child 11350 8c96fbd86add
class definition added: #pushURL #pushURLPrototypeList #selectedPushURL changed: #windowSpec
GitSourceCodeManagementSettingsAppl.st
--- 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 $'
 ! !