--- a/MercurialSourceCodeManagementSettingsAppl.st	Fri Mar 02 16:17:46 2012 +0100
+++ b/MercurialSourceCodeManagementSettingsAppl.st	Fri Mar 02 16:19:21 2012 +0100
@@ -17,7 +17,8 @@
 		perModuleRepository defaultRepositoryHolder
 		selectedPerModuleRepository hgBinDirectoryHolder
 		hgExecutableHolder hgCommandTimeoutHolder repositoriesPerModule
-		perModuleRepositoryModule'
+		perModuleRepositoryModule selectedPushURL pushURL
+		pushURLPrototypeList'
 	classVariableNames:'RecentlyUsedRepositoryURLS'
 	poolDictionaries:''
 	category:'System-SourceCodeManagement'
@@ -627,7 +628,7 @@
                           acceptOnLostFocus: true
                           acceptChannel: acceptChannel
                           acceptOnPointerLeave: true
-                          comboList: hgPushURLPrototypeList
+                          comboList: pushURLPrototypeList
                         )
                        (HorizontalPanelViewSpec
                           name: 'HorizontalPanel3'
@@ -655,7 +656,7 @@
                                 translateLabel: true
                                 tabable: true
                                 model: removePushURL
-                                enableChannel: removeEnabled
+                                enableChannel: removePushURLEnabled
                                 extent: (Point 100 22)
                               )
                              (ViewSpec
@@ -758,6 +759,8 @@
          
         )
       )
+
+    "Modified: / 02-03-2012 / 15:54:42 / cg"
 ! !
 
 !MercurialSourceCodeManagementSettingsAppl class methodsFor:'queries'!
@@ -976,6 +979,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:[
@@ -1015,6 +1048,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 / 15:52:09 / cg"
 ! !
 
 !MercurialSourceCodeManagementSettingsAppl methodsFor:'change & update'!
@@ -1205,9 +1248,9 @@
 !MercurialSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.10 2012-03-02 13:58:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.11 2012-03-02 15:19:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.10 2012-03-02 13:58:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.11 2012-03-02 15:19:21 cg Exp $'
 ! !