class: MCRepositoryBrowser
authorClaus Gittinger <cg@exept.de>
Wed, 03 Apr 2013 23:48:08 +0200
changeset 780 fdd6a57098e4
parent 779 708d7b360e51
child 781 6a0c60c2d9f7
class: MCRepositoryBrowser changed: #repositoryAddFromExpressionString
MCRepositoryBrowser.st
--- a/MCRepositoryBrowser.st	Wed Apr 03 21:52:49 2013 +0200
+++ b/MCRepositoryBrowser.st	Wed Apr 03 23:48:08 2013 +0200
@@ -975,7 +975,9 @@
         Dialog warn:'cannot figure out access scheme.'.
         ^ self.
     ].
-    self addRepository:rep
+    self withWaitCursorDo:[
+        self addRepository:rep
+    ]
 
     "Created: / 20-03-2012 / 17:34:33 / cg"
 !
@@ -1226,11 +1228,11 @@
 !MCRepositoryBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.26 2013-04-03 19:52:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.27 2013-04-03 21:48:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.26 2013-04-03 19:52:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.27 2013-04-03 21:48:08 cg Exp $'
 !
 
 version_SVN