UserPreferences.st
changeset 13340 47201972e303
parent 13308 d49548a99889
child 13346 9f020c62dbfe
--- a/UserPreferences.st	Mon Apr 18 16:56:55 2011 +0200
+++ b/UserPreferences.st	Mon Apr 18 21:28:36 2011 +0200
@@ -522,15 +522,20 @@
     s nextPutLine:'OperatingSystem getHostName = ' , (OperatingSystem getHostName storeString) , ' ifTrue:['.
     s nextPutLine:'  Class tryLocalSourceFirst:' , Class tryLocalSourceFirst storeString , '.'.
     s nextPutLine:'  AbstractSourceCodeManager cacheDirectoryName:' , AbstractSourceCodeManager cacheDirectoryName storeString , '.'.
-    CVSSourceCodeManager notNil ifTrue:[
-        CVSSourceCodeManager savePreferencesOn:s
+
+    AbstractSourceCodeManager availableManagers do:[:eachManager |
+        eachManager savePreferencesOn:s
     ].
-    (StoreSourceCodeManager notNil and:[StoreSourceCodeManager isExperimental not]) ifTrue:[
-        StoreSourceCodeManager savePreferencesOn:s
-    ].
-    (SmallTeamSourceCodeManager notNil and:[SmallTeamSourceCodeManager isExperimental not]) ifTrue:[
-        SmallTeamSourceCodeManager savePreferencesOn:s
-    ].
+
+"/    CVSSourceCodeManager notNil ifTrue:[
+"/        CVSSourceCodeManager savePreferencesOn:s
+"/    ].
+"/    (StoreSourceCodeManager notNil and:[StoreSourceCodeManager isExperimental not]) ifTrue:[
+"/        StoreSourceCodeManager savePreferencesOn:s
+"/    ].
+"/    (SmallTeamSourceCodeManager notNil and:[SmallTeamSourceCodeManager isExperimental not]) ifTrue:[
+"/        SmallTeamSourceCodeManager savePreferencesOn:s
+"/    ].
     s nextPutLine:'].'.
 
     s close.
@@ -540,7 +545,7 @@
     "
 
     "Modified: / 09-08-2006 / 18:52:14 / fm"
-    "Modified: / 09-11-2006 / 15:12:07 / cg"
+    "Modified: / 18-04-2011 / 17:13:34 / cg"
 ! !
 
 !UserPreferences methodsFor:'acccesing-locale'!
@@ -3255,6 +3260,7 @@
     ^ self at:#verboseBacktraceInDebugger put:aBoolean
 ! !
 
+
 !UserPreferences methodsFor:'default settings - syntax colors'!
 
 listOfPredefinedSyntaxColoringSchemes
@@ -3475,9 +3481,9 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.268 2011-02-17 13:33:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.269 2011-04-18 19:28:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.268 2011-02-17 13:33:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.269 2011-04-18 19:28:36 cg Exp $'
 ! !