--- a/StoreSourceCodeManagementSettingsAppl.st	Tue Jan 10 00:23:35 2012 +0100
+++ b/StoreSourceCodeManagementSettingsAppl.st	Tue Jan 10 00:23:40 2012 +0100
@@ -149,7 +149,7 @@
                                 label: 'Show in Browser Menus'
                                 name: 'CheckBox1'
                                 layout: (LayoutFrame 0 0 5 0 0 1 27 0)
-                                model: showInBrowserMenusHolder
+                                model: shownInBrowserMenusHolder
                                 translateLabel: true
                               )
                              (ViewSpec
@@ -492,6 +492,8 @@
          
         )
       )
+
+    "Modified: / 10-01-2012 / 00:17:36 / cg"
 ! !
 
 !StoreSourceCodeManagementSettingsAppl class methodsFor:'queries'!
@@ -533,6 +535,7 @@
     self storeHostnameHolder value: (StoreSourceCodeManager hostAndDBName).
     self storeUsernameHolder value: (StoreSourceCodeManager userName).
     self storePasswordHolder value: (StoreSourceCodeManager password).
+    self shownInBrowserMenusHolder value:StoreSourceCodeManager shownInBrowserMenus. 
 
     (Array with:StoreSourceCodeManager) "self availableManagers" do:[:eachManager |
         |infoPerModule|
@@ -551,11 +554,11 @@
     ].
 "/    self selectedPerModuleRootChanged.
 
-    "Modified: / 18-04-2011 / 18:40:40 / cg"
+    "Modified: / 10-01-2012 / 00:21:13 / cg"
 !
 
 basicSaveSettings
-    |modules nm fn|
+    |modules nm fn infoPerModule|
 
     nm := self sourceCacheDir value.
     nm notEmptyOrNil ifTrue:[
@@ -576,17 +579,16 @@
         ]
     ].
 
-    (Array with:StoreSourceCodeManager) "self availableManagers" do:[:eachManager |
-        |infoPerModule|
-        modules := rootsPerModule select:[:entry | entry first == eachManager].
-        infoPerModule := Dictionary new.
-        modules keysAndValuesDo:[:module :entry | 
-            entry first == eachManager ifTrue:[
-                infoPerModule at:module put:(entry second).
-            ].
+    modules := rootsPerModule select:[:entry | entry first == StoreSourceCodeManager].
+    infoPerModule := Dictionary new.
+    modules keysAndValuesDo:[:module :entry | 
+        entry first == StoreSourceCodeManager ifTrue:[
+            infoPerModule at:module put:(entry second).
         ].
-        eachManager repositoryInfoPerModule:infoPerModule.
     ].
+    StoreSourceCodeManager repositoryInfoPerModule:infoPerModule.
+
+    StoreSourceCodeManager shownInBrowserMenus:self shownInBrowserMenusHolder value. 
 
     self basicSaveStoreSettings.
 
@@ -596,7 +598,7 @@
 
     self acceptChannel value.
 
-    "Modified: / 18-04-2011 / 18:36:42 / cg"
+    "Modified: / 10-01-2012 / 00:22:56 / cg"
 !
 
 condenseSourceCache
@@ -1283,11 +1285,11 @@
 !StoreSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/StoreSourceCodeManagementSettingsAppl.st,v 1.9 2012-01-09 22:59:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/StoreSourceCodeManagementSettingsAppl.st,v 1.10 2012-01-09 23:23:40 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/StoreSourceCodeManagementSettingsAppl.st,v 1.9 2012-01-09 22:59:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/StoreSourceCodeManagementSettingsAppl.st,v 1.10 2012-01-09 23:23:40 cg Exp $'
 !
 
 version_SVN