--- a/MCPackageList.st	Sat Aug 20 16:19:25 2011 +0200
+++ b/MCPackageList.st	Sat Aug 20 16:24:42 2011 +0200
@@ -41,26 +41,29 @@
 !
 
 updateList
+    | generator list |
 
-    | generator list |
-    generator := self inGeneratorHolder value ? #().
-    list := SortedCollection sortBlock:[:a :b|a name < b name].
-    generator do:[:pkgentry|list add: pkgentry].
-    list.
-    listHolder value: list.
-    listValid := true.
+    self withWaitCursorDo:[
+        generator := self inGeneratorHolder value ? #().
+        list := SortedCollection sortBlock:[:a :b|a name < b name].
+        generator do:[:pkgentry|list add: pkgentry].
+        "/ list.
+        listHolder value: list.
+        listValid := true.
+    ].
 
     "Modified: / 16-09-2010 / 18:55:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 20-08-2011 / 16:22:41 / cg"
 ! !
 
 !MCPackageList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackageList.st,v 1.1 2011-08-20 12:00:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackageList.st,v 1.2 2011-08-20 14:24:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackageList.st,v 1.1 2011-08-20 12:00:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackageList.st,v 1.2 2011-08-20 14:24:42 cg Exp $'
 !
 
 version_SVN