--- a/MCSettingsApp.st	Wed Sep 07 20:25:31 2011 +0200
+++ b/MCSettingsApp.st	Tue Sep 27 12:05:41 2011 +0200
@@ -203,6 +203,7 @@
                                       name: 'RepositoryList'
                                       layout: (LayoutFrame 0 0 0 0 0 1 0 1)
                                       enableChannel: mcEnabled
+                                      model: selectedRepositoryHolder
                                       hasHorizontalScrollBar: true
                                       hasVerticalScrollBar: true
                                       listModel: mcRepositories
@@ -267,23 +268,26 @@
 
 repositoryConfiguration
 
-    ^self repositoryConfigurationAspect value
+    ^self selectedRepositoryHolder value
 
     "Created: / 26-05-2008 / 12:04:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 27-09-2011 / 11:55:22 / cg"
 !
 
 repositoryConfiguration: anObject
 
-    self repositoryConfigurationAspect value: anObject
+    self selectedRepositoryHolder value: anObject
 
     "Created: / 26-05-2008 / 12:12:17 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 27-09-2011 / 11:55:24 / cg"
 !
 
 repositoryConfigurationList
 
-    ^self repositoryConfigurationListAspect value
+    ^self mcRepositories value
 
     "Created: / 26-05-2008 / 12:05:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 27-09-2011 / 11:50:53 / cg"
 !
 
 repositoryManager
@@ -312,7 +316,7 @@
             lines:5 cancel:[^self].
 
     codeHolder := ValueHolder new.
-    dialog := Dialog forRequestText:'Fill in data' lines:10 columns:40 initialAnswer: class creationTemplate  model:codeHolder.
+    dialog := Dialog forRequestText:'Please Fill in Data' lines:10 columns:60 initialAnswer: class creationTemplate  model:codeHolder.
     dialog open.
     dialog accepted ifFalse:[^self].
     repo := Compiler evaluate: codeHolder value.
@@ -322,6 +326,7 @@
     "Created: / 26-05-2008 / 12:04:30 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 16-08-2009 / 17:24:17 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 16-09-2010 / 14:33:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 27-09-2011 / 11:49:42 / cg"
 !
 
 flushCaches
@@ -360,6 +365,14 @@
     ^self settingsAspectFor: #mcRepositories
 
     "Created: / 16-09-2010 / 14:14:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+selectedRepositoryHolder
+
+    ^self settingsAspectFor: #selectedRepositoryHolder
+
+    "Created: / 16-09-2010 / 14:14:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 27-09-2011 / 11:55:01 / cg"
 ! !
 
 !MCSettingsApp methodsFor:'helpers'!
@@ -432,11 +445,11 @@
 !MCSettingsApp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSettingsApp.st,v 1.2 2011-08-29 06:13:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSettingsApp.st,v 1.3 2011-09-27 10:05:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSettingsApp.st,v 1.2 2011-08-29 06:13:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSettingsApp.st,v 1.3 2011-09-27 10:05:41 cg Exp $'
 !
 
 version_SVN