--- a/FileSelectionTree.st	Thu Feb 26 02:38:46 1998 +0100
+++ b/FileSelectionTree.st	Thu Feb 26 03:27:42 1998 +0100
@@ -693,8 +693,23 @@
 
 ! !
 
+!FileSelectionTree methodsFor:'selection-actions'!
+
+selectedNodeExpand:doExpand
+    "collapse or expand selected node.
+     Redefined to show a busy cursor while reading dirs"
+
+    doExpand ifTrue:[
+        self withWaitCursorDo:[
+            super selectedNodeExpand:doExpand
+        ]
+    ] ifFalse:[
+        super selectedNodeExpand:doExpand
+    ]
+! !
+
 !FileSelectionTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionTree.st,v 1.11 1998-02-25 14:56:07 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionTree.st,v 1.12 1998-02-26 02:27:42 cg Exp $'
 ! !