--- a/DirectoryTreeBrowser.st	Fri Sep 26 22:40:53 2003 +0200
+++ b/DirectoryTreeBrowser.st	Sat Sep 27 17:36:27 2003 +0200
@@ -609,7 +609,9 @@
 toggleExpand:anItem
 
     (anItem notNil and:[anItem isDirectory]) ifTrue:[
-        anItem toggleExpand
+        self withWaitCursorDo:[
+            anItem toggleExpand
+        ]
     ].
 !
 
@@ -1311,5 +1313,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.76 2003-09-26 13:39:33 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.77 2003-09-27 15:36:27 cg Exp $'
 ! !