--- a/AbstractFileBrowser.st	Mon May 04 00:49:43 2009 +0200
+++ b/AbstractFileBrowser.st	Tue May 05 17:40:34 2009 +0200
@@ -3689,18 +3689,21 @@
     destDir := self currentDirectory.
     destDir isNil ifTrue:[^ self].
 
-    aCollectionOfDropObjects do:[:dropObject |
-        |fn|
-
-        dropObject isFileObject ifTrue:[
-            fn := dropObject theObject asFilename.
-            dropObject isDirectory ifTrue:[
-                fn copyTo:destDir
-            ] ifFalse:[
-                fn recursiveCopyTo:destDir
+    self withWaitCursorDo:[
+        aCollectionOfDropObjects do:[:dropObject |
+            |fn|
+
+            dropObject isFileObject ifTrue:[
+                fn := dropObject theObject asFilename.
+                dropObject isDirectory ifTrue:[
+                    fn copyTo:destDir
+                ] ifFalse:[
+                    fn recursiveCopyTo:destDir
+                ]
             ]
-        ]
-    ].
+        ].
+    ].
+
     self directoryContentsBrowser 
         directoryContentsChangeFlag:true;
         wakeUp
@@ -7745,5 +7748,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.403 2009-04-02 14:38:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.404 2009-05-05 15:40:34 cg Exp $'
 ! !