class definition
authorClaus Gittinger <cg@exept.de>
Fri, 02 Mar 2012 16:22:42 +0100
changeset 11350 8c96fbd86add
parent 11349 262bbfc637ca
child 11351 6d878bc17b09
class definition added: #pushURL #pushURLPrototypeList #selectedPushURL changed: #windowSpec
MercurialSourceCodeManagementSettingsAppl.st
--- a/MercurialSourceCodeManagementSettingsAppl.st	Fri Mar 02 16:22:39 2012 +0100
+++ b/MercurialSourceCodeManagementSettingsAppl.st	Fri Mar 02 16:22:42 2012 +0100
@@ -18,7 +18,7 @@
 		selectedPerModuleRepository hgBinDirectoryHolder
 		hgExecutableHolder hgCommandTimeoutHolder repositoriesPerModule
 		perModuleRepositoryModule selectedPushURL pushURL
-		pushURLPrototypeList'
+		pushURLPrototypeList listOfPushURLs'
 	classVariableNames:'RecentlyUsedRepositoryURLS'
 	poolDictionaries:''
 	category:'System-SourceCodeManagement'
@@ -960,6 +960,16 @@
     "Created: / 02-03-2012 / 14:41:07 / cg"
 !
 
+listOfPushURLs
+
+    listOfPushURLs isNil ifTrue:[
+        listOfPushURLs := List new.
+    ].
+    ^ listOfPushURLs.
+
+    "Created: / 02-03-2012 / 16:22:13 / cg"
+!
+
 perModuleRepository
     perModuleRepository isNil ifTrue:[
         perModuleRepository := ValueHolder new.
@@ -1248,9 +1258,9 @@
 !MercurialSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.11 2012-03-02 15:19:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.12 2012-03-02 15:22:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.11 2012-03-02 15:19:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.12 2012-03-02 15:22:42 cg Exp $'
 ! !