*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 13 Apr 2006 19:42:32 +0200
changeset 6767 63e2b31fb74f
parent 6766 3d83ccd2965d
child 6768 aa5f98df1ec3
*** empty log message ***
AbstractFileBrowser.st
--- a/AbstractFileBrowser.st	Thu Apr 13 17:22:33 2006 +0200
+++ b/AbstractFileBrowser.st	Thu Apr 13 19:42:32 2006 +0200
@@ -3643,7 +3643,7 @@
 
     |delete result|
 
-    self windowGroup withWaitCursorDo:[
+    self withWaitCursorDo:[
         delete := FileOperation deleteFiles:colOfFiles confirm:confirm.
         result := delete result.
         result notNil ifTrue:[
@@ -3668,7 +3668,7 @@
 
     |delete result|
 
-    self windowGroup withWaitCursorDo:[
+    self withWaitCursorDo:[
         delete := FileOperation eraseFiles:colOfFiles confirm:confirm.
         result := delete result.
         result notNil ifTrue:[
@@ -3702,7 +3702,7 @@
 
     |move|
 
-    self windowGroup withWaitCursorDo:[
+    self withWaitCursorDo:[
         move := FileOperation moveFiles:aColOfSourceFiles to:aDirectory.
         move result ifFalse:[
             self notify:move errorString.
@@ -4374,7 +4374,7 @@
                 yesLabel:(resources string:'Remove')
                 noLabel:(resources string:'Cancel').
         aswer ifTrue:[
-            self withCursor:(Cursor wait) do:[
+            self withWaitCursorDo:[
                 self cvsRemoveAndRemoveFromCVS:sel
             ]
         ]
@@ -7008,5 +7008,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.330 2006-03-21 20:08:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.331 2006-04-13 17:42:32 cg Exp $'
 ! !