--- a/DirectoryContentsBrowser.st Wed Oct 28 19:53:45 2009 +0100
+++ b/DirectoryContentsBrowser.st Wed Oct 28 19:54:31 2009 +0100
@@ -2763,8 +2763,10 @@
self notify:('collecting disk usage of %1...' bindWith:directory baseName).
kiloBytes := self diskUsageInKiloBytesFor:directory.
kiloBytes notNil ifTrue:[
- diskUsageInfo at:dirPath put:(Timestamp now -> kiloBytes).
- self showDiskUsageInfoFor:directory as:kiloBytes.
+ diskUsageInfo notNil ifTrue:[
+ diskUsageInfo at:dirPath put:(Timestamp now -> kiloBytes).
+ self showDiskUsageInfoFor:directory as:kiloBytes.
+ ].
]
] fork.
! !
@@ -3285,9 +3287,9 @@
!DirectoryContentsBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.227 2009-10-28 15:40:37 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.228 2009-10-28 18:54:31 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.227 2009-10-28 15:40:37 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.228 2009-10-28 18:54:31 cg Exp $'
! !