changed: #startDiskUsageInfoProcessFor:
authorClaus Gittinger <cg@exept.de>
Wed, 28 Oct 2009 19:54:31 +0100
changeset 9116 469bd38ba4c6
parent 9115 72d58586f5a5
child 9117 e1a6bddb1943
changed: #startDiskUsageInfoProcessFor:
DirectoryContentsBrowser.st
--- 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 $'
 ! !