--- a/DataBaseSourceCodeManagementSettingsAppl.st	Fri Mar 02 14:51:07 2012 +0100
+++ b/DataBaseSourceCodeManagementSettingsAppl.st	Fri Mar 02 14:51:11 2012 +0100
@@ -12,9 +12,8 @@
 "{ Package: 'stx:libtool' }"
 
 AbstractSourceCodeManagementSettingsAppl subclass:#DataBaseSourceCodeManagementSettingsAppl
-	instanceVariableNames:'listOfModules removeEnabled pathPerModule dbNameHolder
-		selectedPerModuleDatabase perModuleDatabaseModule perModuleDB
-		dbPerModule'
+	instanceVariableNames:'pathPerModule dbNameHolder selectedPerModuleDatabase
+		perModuleDatabaseModule perModuleDB dbPerModule'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-SourceCodeManagement'
@@ -415,19 +414,6 @@
     "Modified: / 10-01-2012 / 00:21:41 / 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"
-!
-
 removePerModuleDB
     |module|
 
@@ -482,18 +468,10 @@
     "Created: / 25-12-2011 / 13:13:20 / cg"
 !
 
-listOfModules
+initialListOfModules
+    ^ dbPerModule keys asList sort.
 
-    listOfModules isNil ifTrue:[
-        dbPerModule notNil ifTrue:[
-            listOfModules := dbPerModule keys asList.
-        ].
-        listOfModules sort.
-        listOfModules onChangeSend:#updateModifiedChannel to:self
-    ].
-    ^ listOfModules.
-
-    "Modified: / 25-12-2011 / 13:20:13 / cg"
+    "Created: / 02-03-2012 / 14:39:53 / cg"
 !
 
 perModuleDB
@@ -514,14 +492,6 @@
     "Created: / 25-12-2011 / 13:16:55 / cg"
 !
 
-removeEnabled
-
-    removeEnabled isNil ifTrue:[
-        removeEnabled := false asValue.
-    ].
-    ^ removeEnabled.
-!
-
 selectedPerModuleDatabase
     selectedPerModuleDatabase isNil ifTrue:[
         selectedPerModuleDatabase := ValueHolder new.
@@ -698,9 +668,9 @@
 !DataBaseSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.11 2012-03-02 09:49:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.12 2012-03-02 13:51:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.11 2012-03-02 09:49:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.12 2012-03-02 13:51:11 cg Exp $'
 ! !