--- a/MCVersionList.st	Sat Aug 20 16:24:42 2011 +0200
+++ b/MCVersionList.st	Sat Aug 20 16:24:57 2011 +0200
@@ -40,31 +40,34 @@
 !
 
 updateList
+    | generator list |
 
-    | generator list |
-    generator := self inGeneratorHolder value ? #().
-    list := SortedCollection sortBlock:
-        [:v1 :v2| | vn1 vn2 |
-        vn1 := v1 versionNumber.
-        vn2 := v2 versionNumber.
-        (vn1 notNil and:[vn2 notNil]) 
-            ifTrue:[vn1 > vn2]
-            ifFalse:[v1 name > v2 name]].
-    generator do:[:verentry|list add: verentry].
-    listHolder value: list.
-    listValid := true.
+    self withWaitCursorDo:[
+        generator := self inGeneratorHolder value ? #().
+        list := SortedCollection sortBlock:
+            [:v1 :v2| | vn1 vn2 |
+            vn1 := v1 versionNumber.
+            vn2 := v2 versionNumber.
+            (vn1 notNil and:[vn2 notNil]) 
+                ifTrue:[vn1 > vn2]
+                ifFalse:[v1 name > v2 name]].
+        generator do:[:verentry|list add: verentry].
+        listHolder value: list.
+        listValid := true.
+    ].
 
     "Modified: / 13-10-2010 / 15:32:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 20-08-2011 / 16:24:11 / cg"
 ! !
 
 !MCVersionList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionList.st,v 1.1 2011-08-20 12:21:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionList.st,v 1.2 2011-08-20 14:24:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionList.st,v 1.1 2011-08-20 12:21:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionList.st,v 1.2 2011-08-20 14:24:57 cg Exp $'
 !
 
 version_SVN