--- a/AbstractSourceCodeManagementSettingsAppl.st	Fri Mar 02 14:47:39 2012 +0100
+++ b/AbstractSourceCodeManagementSettingsAppl.st	Fri Mar 02 14:50:59 2012 +0100
@@ -13,7 +13,7 @@
 
 AbstractSettingsApplication subclass:#AbstractSourceCodeManagementSettingsAppl
 	instanceVariableNames:'shownInBrowserMenusHolder sourceCacheDir acceptChannel
-		verboseSourceCodeAccess'
+		verboseSourceCodeAccess removeEnabled listOfModules'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-SourceCodeManagement'
@@ -166,6 +166,30 @@
     ^ acceptChannel.
 !
 
+initialListOfModules
+    "raise an error: must be redefined in concrete subclass(es)"
+
+    ^ self subclassResponsibility
+!
+
+listOfModules
+    listOfModules isNil ifTrue:[
+        listOfModules := self initialListOfModules.
+        listOfModules onChangeSend:#updateModifiedChannel to:self
+    ].
+    ^ listOfModules.
+
+    "Modified: / 02-03-2012 / 14:42:53 / cg"
+!
+
+removeEnabled
+
+    removeEnabled isNil ifTrue:[
+        removeEnabled := false asValue.
+    ].
+    ^ removeEnabled.
+!
+
 shownInBrowserMenusHolder
     shownInBrowserMenusHolder isNil ifTrue:[
         shownInBrowserMenusHolder := true asValue.
@@ -195,11 +219,11 @@
 !AbstractSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSourceCodeManagementSettingsAppl.st,v 1.13 2012-03-02 09:50:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSourceCodeManagementSettingsAppl.st,v 1.14 2012-03-02 13:50:59 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSourceCodeManagementSettingsAppl.st,v 1.13 2012-03-02 09:50:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSourceCodeManagementSettingsAppl.st,v 1.14 2012-03-02 13:50:59 cg Exp $'
 !
 
 version_SVN