--- 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 $'
! !