--- a/MercurialSourceCodeManagementSettingsAppl.st	Wed Jan 25 18:49:51 2012 +0100
+++ b/MercurialSourceCodeManagementSettingsAppl.st	Thu Jan 26 13:50:43 2012 +0100
@@ -502,7 +502,7 @@
                                 layout: (LayoutFrame 64 0.25 300 0 0 1.0 322 0)
                                 activeHelpKey: hgRootPerModuleRoot
                                 tabable: true
-                                model: perModuleRoot
+                                model: perModuleRepository
                                 immediateAccept: true
                                 acceptOnLeave: true
                                 acceptOnReturn: true
@@ -861,31 +861,31 @@
     |module|
 
     acceptChannel value:true.    
-    module := self perModuleRootModule value.
+    module := self perModuleRepositoryModule value.
     self listOfModules remove:module ifAbsent:nil.
     repositoriesPerModule removeKey:module ifAbsent:nil.
-    self perModuleRootModule value:nil.
-    self perModuleRoot value:nil.
+    self perModuleRepositoryModule value:nil.
+    self perModuleRepository value:nil.
     self updateModifiedChannel.
 
-    "Modified: / 14-01-2012 / 19:59:23 / cg"
+    "Modified: / 26-01-2012 / 13:50:08 / cg"
 ! !
 
 !MercurialSourceCodeManagementSettingsAppl methodsFor:'actions - mercurial'!
 
 addPerModuleRoot
-    |module cvsRoot|
+    |module hgRepository|
 
     acceptChannel value:true.    
 
-    module := self perModuleRootModule value.
-    cvsRoot := self perModuleRoot value.
+    module := self perModuleRepositoryModule value.
+    hgRepository := self perModuleRepository value.
 
-    cvsRoot size > 0 ifTrue:[
-        self addModule:module withData:(Array with:MercurialSourceCodeManager with:cvsRoot).
+    hgRepository size > 0 ifTrue:[
+        self addModule:module withData:(Array with:MercurialSourceCodeManager with:hgRepository).
     ].
 
-    "Modified: / 14-01-2012 / 19:59:50 / cg"
+    "Modified: / 26-01-2012 / 12:29:36 / cg"
 !
 
 basicSaveMercurialSettings
@@ -1044,26 +1044,26 @@
 !MercurialSourceCodeManagementSettingsAppl methodsFor:'change & update'!
 
 selectedPerModuleRepositoryChanged
-    |module entry|
+    |repository entry|
 
     self acceptChannel value:true.    
-    module := self selectedPerModuleRoot value.
-    module isNil ifTrue:[ 
+    repository := self selectedPerModuleRepository value.
+    repository isNil ifTrue:[ 
         self removeEnabled value:false.
         self perModuleRepositoryModule value:' '.
-        self perModuleRoot value:''.
+        self perModuleRepository value:''.
         ^ self
     ].
 
-    entry := repositoriesPerModule at:module ifAbsent:#().    
+    entry := repositoriesPerModule at:repository ifAbsent:#().    
     (entry first = MercurialSourceCodeManager) ifTrue:[
         self removeEnabled value:true.
-        self perModuleRepositoryModule value:module.
-        self perModuleRoot value:(entry at:2).
+        self perModuleRepositoryModule value:repository.
+        self perModuleRepository value:(entry at:2).
     ] ifFalse:[
         self removeEnabled value:false.
-        self perModuleRepositoryModule value:module , ' ',('<<use ',entry first managerTypeName,'>>') allBold.
-        self perModuleRoot value:''.
+        self perModuleRepositoryModule value:repository , ' ',('<<use ',entry first managerTypeName,'>>') allBold.
+        self perModuleRepository value:''.
     ].
 
     "Created: / 14-01-2012 / 20:24:57 / cg"
@@ -1229,9 +1229,9 @@
 !MercurialSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.6 2012-01-22 12:09:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.7 2012-01-26 12:50:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.6 2012-01-22 12:09:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MercurialSourceCodeManagementSettingsAppl.st,v 1.7 2012-01-26 12:50:43 cg Exp $'
 ! !