--- a/CVSSourceCodeManagementSettingsAppl.st	Wed Mar 21 14:05:42 2012 +0000
+++ b/CVSSourceCodeManagementSettingsAppl.st	Wed Mar 21 17:50:14 2012 +0000
@@ -12,12 +12,11 @@
 "{ Package: 'stx:libtool' }"
 
 AbstractSourceCodeManagementSettingsAppl subclass:#CVSSourceCodeManagementSettingsAppl
-	instanceVariableNames:'repositoryHolder manager repository listOfModules
-		cvsRootPrototypeList addPerModuleRoot removeEnabled
-		perModuleRootModule removePerModuleRoot perModuleRoot
-		cvsRootHolder selectedPerModuleRoot cvsBinDirectoryHolder
-		cvsExecutableHolder cvsCommandTimeoutHolder rootsPerModule
-		cvsLoginInModuleEnabled cvsLoginEnabled'
+	instanceVariableNames:'repositoryHolder manager repository cvsRootPrototypeList
+		addPerModuleRoot perModuleRootModule removePerModuleRoot
+		perModuleRoot cvsRootHolder selectedPerModuleRoot
+		cvsBinDirectoryHolder cvsExecutableHolder cvsCommandTimeoutHolder
+		rootsPerModule cvsLoginInModuleEnabled cvsLoginEnabled'
 	classVariableNames:'RecentlyUsedCVSRoots'
 	poolDictionaries:''
 	category:'System-SourceCodeManagement'
@@ -44,7 +43,7 @@
     CVS part of the source code settings. 
     This settings app controls the parameters of the CVSSourceCodeManager.
 
-    Extrated for pluggability from SourceCodeManagerSettings in the AbstractSettingsApplication.
+    Extracted for pluggability from SourceCodeManagerSettings in the AbstractSettingsApplication.
 "
 ! !
 
@@ -276,6 +275,16 @@
                           component: 
                          (SpecCollection
                             collection: (
+                             (ComboBoxSpec
+                                name: 'ComboBox1'
+                                layout: (LayoutFrame 64 0.25 275 0 0 1 297 0)
+                                activeHelpKey: cvsRootPerModuleModule
+                                tabable: true
+                                model: perModuleRootModule
+                                acceptChannel: acceptChannel
+                                acceptOnPointerLeave: true
+                                comboList: sampleModuleList
+                              )
                              (CheckBoxSpec
                                 label: 'Show in Browser Menus'
                                 name: 'CheckBox1'
@@ -413,15 +422,6 @@
                                 translateLabel: true
                                 adjust: right
                               )
-                             (InputFieldSpec
-                                name: 'perModuleRootModuleEntryField'
-                                layout: (LayoutFrame 64 0.25 275 0 0 1 297 0)
-                                activeHelpKey: cvsRootPerModuleModule
-                                tabable: true
-                                model: perModuleRootModule
-                                acceptChannel: acceptChannel
-                                acceptOnPointerLeave: true
-                              )
                              (LabelSpec
                                 label: 'CVSRoot:'
                                 name: 'cvsRootLabel'
@@ -684,18 +684,9 @@
     "Modified: / 08-01-2012 / 18:59:58 / 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"
-!
 
 removePerModuleRoot
     |module|
@@ -875,18 +866,14 @@
     "Modified: / 20-01-2012 / 16:17:35 / cg"
 !
 
-listOfModules
+initialListOfModules
+    ^ rootsPerModule keys asList sort.
 
-    listOfModules isNil ifTrue:[
-        rootsPerModule notNil ifTrue:[
-            listOfModules := rootsPerModule keys asList.
-        ].
-        listOfModules sort.
-        listOfModules onChangeSend:#updateModifiedChannel to:self
-    ].
-    ^ listOfModules.
+    "Created: / 02-03-2012 / 14:39:15 / cg"
 !
 
+
+
 perModuleRoot
     perModuleRoot isNil ifTrue:[
         perModuleRoot := ValueHolder new.
@@ -902,13 +889,7 @@
     ^ perModuleRootModule.
 !
 
-removeEnabled
 
-    removeEnabled isNil ifTrue:[
-        removeEnabled := false asValue.
-    ].
-    ^ removeEnabled.
-!
 
 selectedPerModuleRoot
     selectedPerModuleRoot isNil ifTrue:[
@@ -918,13 +899,7 @@
     ^ selectedPerModuleRoot.
 !
 
-verboseSourceCodeAccess
-    verboseSourceCodeAccess isNil ifTrue:[
-        verboseSourceCodeAccess := false asValue.
-        verboseSourceCodeAccess onChangeSend:#updateModifiedChannel to:self
-    ].
-    ^ verboseSourceCodeAccess.
-! !
+ !
 
 !CVSSourceCodeManagementSettingsAppl methodsFor:'change & update'!
 
@@ -1133,13 +1108,13 @@
 !CVSSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CVSSourceCodeManagementSettingsAppl.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+    ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.23 2012/03/12 11:03:03 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.19 2012/01/22 12:05:42 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.23 2012/03/12 11:03:03 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: CVSSourceCodeManagementSettingsAppl.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+    ^ '$Id: CVSSourceCodeManagementSettingsAppl.st 7952 2012-03-21 17:50:14Z vranyj1 $'
 ! !