# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1330696283 -3600
# Node ID 6399027892e7b04053964b9a5dba687a234a6992
# Parent  94db1f47eacee580cb4259d4c703b4903f1c590d
refactored common code

diff -r 94db1f47eace -r 6399027892e7 MercurialSourceCodeManagementSettingsAppl.st
--- a/MercurialSourceCodeManagementSettingsAppl.st	Fri Mar 02 14:51:18 2012 +0100
+++ b/MercurialSourceCodeManagementSettingsAppl.st	Fri Mar 02 14:51:23 2012 +0100
@@ -12,12 +12,12 @@
 "{ Package: 'stx:libtool' }"
 
 AbstractSourceCodeManagementSettingsAppl subclass:#MercurialSourceCodeManagementSettingsAppl
-	instanceVariableNames:'repositoryHolder manager repository listOfModules
-		repositoryPrototypeList addPerModuleRepository removeEnabled
-		removePerModuleRepository perModuleRepository
-		defaultRepositoryHolder selectedPerModuleRepository
-		hgBinDirectoryHolder hgExecutableHolder hgCommandTimeoutHolder
-		repositoriesPerModule perModuleRepositoryModule'
+	instanceVariableNames:'repositoryHolder manager repository repositoryPrototypeList
+		addPerModuleRepository removePerModuleRepository
+		perModuleRepository defaultRepositoryHolder
+		selectedPerModuleRepository hgBinDirectoryHolder
+		hgExecutableHolder hgCommandTimeoutHolder repositoriesPerModule
+		perModuleRepositoryModule'
 	classVariableNames:'RecentlyUsedRepositoryURLS'
 	poolDictionaries:''
 	category:'System-SourceCodeManagement'
@@ -951,18 +951,10 @@
     "Created: / 14-01-2012 / 20:02:22 / cg"
 !
 
-listOfModules
+initialListOfModules
+    ^ repositoriesPerModule keys asList sort.
 
-    listOfModules isNil ifTrue:[
-        repositoriesPerModule notNil ifTrue:[
-            listOfModules := repositoriesPerModule keys asList.
-        ].
-        listOfModules sort.
-        listOfModules onChangeSend:#updateModifiedChannel to:self
-    ].
-    ^ listOfModules.
-
-    "Modified: / 14-01-2012 / 20:18:34 / cg"
+    "Created: / 02-03-2012 / 14:41:07 / cg"
 !
 
 perModuleRepository
@@ -984,14 +976,6 @@
     "Created: / 14-01-2012 / 20:19:51 / cg"
 !
 
-removeEnabled
-
-    removeEnabled isNil ifTrue:[
-        removeEnabled := false asValue.
-    ].
-    ^ removeEnabled.
-!
-
 repositoryHolder
 
     repositoryHolder isNil ifTrue:[
@@ -1221,9 +1205,9 @@
 !MercurialSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.8 2012-03-02 09:50:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.9 2012-03-02 13:51:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.8 2012-03-02 09:50:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.9 2012-03-02 13:51:23 cg Exp $'
 ! !