--- a/AbstractSettingsApplication.st	Fri Sep 12 17:29:07 2003 +0200
+++ b/AbstractSettingsApplication.st	Fri Sep 12 18:12:18 2003 +0200
@@ -8900,13 +8900,14 @@
     acceptChannel value:true.    
     module := self perModuleRootModule value.
     cvsRoot := self perModuleRoot value.
-    (listOfModules includes:module) ifFalse:[
-        listOfModules add:module.
-        listOfModules sort.
+    (self listOfModules includes:module) ifFalse:[
+        self listOfModules add:module.
+        self listOfModules sort.
     ].
     cvsRoot size > 0 ifTrue:[
         rootsPerModule at:module put:cvsRoot.
     ].
+    self updateModifiedChannel.
 !
 
 basicSaveSettings
@@ -8979,6 +8980,7 @@
 !
 
 readSettings
+    self initialize.
     self hasManager ifTrue:[
         self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
         self localSourceFirst value:Class tryLocalSourceFirst.
@@ -9000,7 +9002,8 @@
         value:CVSSourceCodeManager repositoryName ? '/cvs/stx'.
     self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
     rootsPerModule notNil ifTrue:[
-        listOfModules := rootsPerModule keys asList.
+        listOfModules removeAll.
+        listOfModules addAll:rootsPerModule keys asList.
     ].
     self selectedPerModuleRootChanged.
     self modifiedChannel value:false
@@ -9012,10 +9015,11 @@
 
     acceptChannel value:true.    
     module := self perModuleRootModule value.
-    listOfModules remove:module ifAbsent:nil.
+    self listOfModules remove:module ifAbsent:nil.
     rootsPerModule removeKey:module ifAbsent:nil.
     self perModuleRootModule value:nil.
     self perModuleRoot value:nil.
+    self updateModifiedChannel.
 !
 
 setupSourceCodeManager
@@ -9108,8 +9112,11 @@
 listOfModules
 
     listOfModules isNil ifTrue:[
-        listOfModules := rootsPerModule keys asList.
+        rootsPerModule notNil ifTrue:[
+            listOfModules := rootsPerModule keys asList.
+        ].
         listOfModules sort.
+        listOfModules onChangeSend:#updateModifiedChannel to:self
     ].
     ^ listOfModules.
 !
@@ -9264,21 +9271,6 @@
     ].
 
     super initialize.
-!
-
-postOpen
-!
-
-postOpenAsSubcanvasWith:aBuilder
-
-    self postOpen.
-    ^ super postOpenAsSubcanvasWith:aBuilder
-!
-
-postOpenWith:aBuilder
-
-    self postOpen.
-    ^ super postOpenWith:aBuilder
 ! !
 
 !AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
@@ -10897,5 +10889,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.106 2003-09-12 13:20:51 penk Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.107 2003-09-12 16:12:18 mb Exp $'
+! !