--- a/DirectoryTreeBrowser.st	Tue Jul 25 11:18:45 2006 +0200
+++ b/DirectoryTreeBrowser.st	Tue Jul 25 11:24:55 2006 +0200
@@ -634,10 +634,12 @@
 toggleExpand:anItem
 
     (anItem notNil and:[anItem isDirectory]) ifTrue:[
-        self withWaitCursorDo:[
+"/        self withWaitCursorDo:[
             anItem toggleExpand
-        ]
+"/        ]
     ].
+
+    "Modified: / 25-07-2006 / 09:09:05 / cg"
 !
 
 toggleExpandSelectedItem
@@ -783,13 +785,15 @@
     file notNil ifTrue:[
         file := file asFilename.
         file isDirectory ifTrue:[
-            self withWaitCursorDo:[
+"/            self withWaitCursorDo:[
                 list directory:file
-            ].
+"/            ].
         ]
     ].
     rootHolder value:(list directory asString) withoutNotifying:self.
     (list size = 1 and:[list first isDirectory]) ifTrue:[list first expand:true]
+
+    "Modified: / 25-07-2006 / 09:08:59 / cg"
 !
 
 selectionChanged
@@ -1246,9 +1250,9 @@
                         update:false) 
                     ifTrue:[
                         newFilename := filename directory construct:newFileString.
-                        self withWaitCursorDo:[
+"/                        self withWaitCursorDo:[
                             self updateAndSelect:(OrderedCollection with:newFilename)
-                        ]
+"/                        ]
                     ]
                 ].
                 aGC closeEditor.
@@ -1265,6 +1269,8 @@
         field contents:(item label)
     ].
     ^ field
+
+    "Modified: / 25-07-2006 / 09:08:45 / cg"
 !
 
 postBuildDirBrowser:aWidget 
@@ -1331,5 +1337,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.101 2006-04-13 17:42:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.102 2006-07-25 09:24:55 cg Exp $'
 ! !