diff -r 11282af806b0 -r 3ac0b3a85397 DirectoryContentsBrowser.st
--- a/DirectoryContentsBrowser.st	Tue Mar 06 14:28:28 2007 +0100
+++ b/DirectoryContentsBrowser.st	Tue Mar 06 16:38:30 2007 +0100
@@ -1115,29 +1115,15 @@
 doUpdate
 "/    DirectoryContents flushCache.
     self wakeUpForDirectoryChanged.
-
-    directory notNil ifTrue:[
-        self flushRememberedDiskUsageInfoFor:directory.
-    ] ifFalse:[
-        self flushRememberedDiskUsageInfo.
-    ].
-    self startDiskUsageInfoProcess.
-
-    updateCycleSemaphore wait.
+    self updateDiskUsage.
+    "/ updateCycleSemaphore wait.
 !
 
 doUpdateDirectoryContents
 "/    DirectoryContents flushCache.
     self wakeUpForDirectoryContentsChanged.
-
-    directory notNil ifTrue:[
-        self flushRememberedDiskUsageInfoFor:directory.
-    ] ifFalse:[
-        self flushRememberedDiskUsageInfo.
-    ].
-    self startDiskUsageInfoProcess.
-
-    updateCycleSemaphore wait.
+    self updateDiskUsage.
+    "/ updateCycleSemaphore wait.
 !
 
 doubleClickedAt:anItemIndex
@@ -1218,6 +1204,15 @@
     ].
 "/    Transcript showCR:'after insert list', Timestamp now asString.
     self selectCurrentFiles.
+!
+
+updateDiskUsage
+    directory notNil ifTrue:[
+        self flushRememberedDiskUsageInfoFor:directory.
+    ] ifFalse:[
+        self flushRememberedDiskUsageInfo.
+    ].
+    self startDiskUsageInfoProcess.
 ! !
 
 !DirectoryContentsBrowser methodsFor:'aspects'!
@@ -1412,7 +1407,7 @@
 
 filterBlockHolderChanged
 
-    self matchBlock:self filterBlockHolder value.
+    self matchBlock:(self filterBlockHolder value).
     self wakeUpForFilterChanged.
 !
 
@@ -1995,7 +1990,7 @@
 postOpenFromMaster:fromMaster
 
     self sortFileListsBy:(self sortBlockProperty value) withReverse:(self currentSortOrder value).
-    self matchBlock:self filterBlockHolder value.
+    self matchBlock:(self filterBlockHolder value).
     fromMaster ifFalse:[
         self currentFileNameHolderChangedForCommon.
     ].
@@ -3262,5 +3257,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.204 2007-02-28 14:41:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.205 2007-03-06 15:38:30 cg Exp $'
 ! !