diff -r 902ee5164fd7 -r 6d8c30b044c1 FileBasedSourceCodeManagementSettingsAppl.st
--- a/FileBasedSourceCodeManagementSettingsAppl.st	Fri Mar 02 14:51:11 2012 +0100
+++ b/FileBasedSourceCodeManagementSettingsAppl.st	Fri Mar 02 14:51:15 2012 +0100
@@ -12,8 +12,8 @@
 "{ Package: 'stx:libtool' }"
 
 AbstractSourceCodeManagementSettingsAppl subclass:#FileBasedSourceCodeManagementSettingsAppl
-	instanceVariableNames:'listOfModules removeEnabled pathPerModule repositoryPathHolder
-		perModulePath perModulePathModule selectedPerModulePath'
+	instanceVariableNames:'pathPerModule repositoryPathHolder perModulePath
+		perModulePathModule selectedPerModulePath'
 	classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts
 		RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser
 		LastStorePassword'
@@ -452,19 +452,6 @@
     "Modified: / 10-01-2012 / 00:21:49 / cg"
 !
 
-condenseSourceCache
-    self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ].
-    Method flushSourceStreamCache.
-
-    "Modified: / 28-11-2006 / 12:21:33 / cg"
-!
-
-flushSourceCache
-    self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ].
-
-    "Modified: / 30-09-2011 / 13:33:47 / cg"
-!
-
 removePerModulePath
     |module|
 
@@ -482,18 +469,10 @@
 
 !FileBasedSourceCodeManagementSettingsAppl methodsFor:'aspects'!
 
-listOfModules
+initialListOfModules
+    ^ pathPerModule keys asList sort
 
-    listOfModules isNil ifTrue:[
-        pathPerModule notNil ifTrue:[
-            listOfModules := pathPerModule keys asList.
-        ].
-        listOfModules sort.
-        listOfModules onChangeSend:#updateModifiedChannel to:self
-    ].
-    ^ listOfModules.
-
-    "Modified: / 21-12-2011 / 14:32:59 / cg"
+    "Created: / 02-03-2012 / 14:40:32 / cg"
 !
 
 pathPrototypeList
@@ -523,14 +502,6 @@
     "Created: / 21-12-2011 / 14:31:09 / cg"
 !
 
-removeEnabled
-
-    removeEnabled isNil ifTrue:[
-        removeEnabled := false asValue.
-    ].
-    ^ removeEnabled.
-!
-
 repositoryPathHolder
     repositoryPathHolder isNil ifTrue:[
         repositoryPathHolder := FileBasedSourceCodeManager defaultRepositoryPath asValue.
@@ -704,9 +675,9 @@
 !FileBasedSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBasedSourceCodeManagementSettingsAppl.st,v 1.10 2012-03-02 09:49:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBasedSourceCodeManagementSettingsAppl.st,v 1.11 2012-03-02 13:51:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBasedSourceCodeManagementSettingsAppl.st,v 1.10 2012-03-02 09:49:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBasedSourceCodeManagementSettingsAppl.st,v 1.11 2012-03-02 13:51:15 cg Exp $'
 ! !