Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 02 Feb 2010 15:34:58 +0100
changeset 9362 5168543f412b
parent 9361 bad1ef34ac86
child 9363 fec2b2d67865
*** empty log message ***
AbstractDirectoryBrowser.st file | annotate | diff | comparison | revisions 
--- a/AbstractDirectoryBrowser.st	Tue Feb 02 15:34:54 2010 +0100
+++ b/AbstractDirectoryBrowser.st	Tue Feb 02 15:34:58 2010 +0100
@@ -76,11 +76,13 @@
         ^ self
     ].
 
-    col := aContext dropObjects collect:[:obj | obj theObject].
-    didDrop := self copyOrMoveFiles:col to:destinationPath.
-    didDrop ifFalse:[
-        aContext clearHasDroppedFlagToSuppressFeedBack
-    ].           
+    self withWaitCursorDo:[
+        col := aContext dropObjects collect:[:obj | obj theObject].
+        didDrop := self copyOrMoveFiles:col to:destinationPath.
+        didDrop ifFalse:[
+            aContext clearHasDroppedFlagToSuppressFeedBack
+        ].           
+    ]
 !
 
 dropDestinationPath
@@ -209,9 +211,9 @@
 !AbstractDirectoryBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.24 2009-12-22 10:28:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.25 2010-02-02 14:34:58 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.24 2009-12-22 10:28:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.25 2010-02-02 14:34:58 cg Exp $'
 ! !
hg/stx-libtool