--- a/MCRepositoryList.st	Sun Dec 04 15:43:06 2011 +0100
+++ b/MCRepositoryList.st	Sun Dec 04 15:43:28 2011 +0100
@@ -63,25 +63,28 @@
 !
 
 updateList
+    | repos list |
 
-    | repos list |
-    repos := self inGeneratorHolder value.
-    repos ifNil:[repos := MCRepositoryGroup default repositories].
-    list := repos collect: [:repo|self makeEntry:repo].
-    self listHolder value: list.
-    listValid := true.
+    self withWaitCursorDo:[
+        repos := self inGeneratorHolder value.
+        repos ifNil:[repos := MCRepositoryGroup default repositories].
+        list := repos collect: [:repo|self makeEntry:repo].
+        self listHolder value: list.
+        listValid := true.
+    ]
 
     "Modified: / 16-09-2010 / 18:58:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-12-2011 / 09:16:57 / cg"
 ! !
 
 !MCRepositoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryList.st,v 1.1 2011-08-20 12:28:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryList.st,v 1.2 2011-12-04 14:43:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryList.st,v 1.1 2011-08-20 12:28:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryList.st,v 1.2 2011-12-04 14:43:28 cg Exp $'
 !
 
 version_SVN