DirectoryContentsBrowser.st
changeset 4559 6f586dd4661b
parent 4556 f58fa5209587
child 4577 52c443045ead
--- a/DirectoryContentsBrowser.st	Thu Feb 13 22:13:18 2003 +0100
+++ b/DirectoryContentsBrowser.st	Fri Feb 14 00:43:09 2003 +0100
@@ -2254,7 +2254,9 @@
 
     OperatingSystem isUNIXlike ifTrue:[
         line := OperatingSystem getCommandOutputFrom:('du -s -k ' , aDirectory pathName).
-        kb := Number readFrom:line readStream.
+        line notNil ifTrue:[
+            kb := Number readFrom:line readStream.
+        ].
         ^ kb
     ].
 
@@ -2331,8 +2333,10 @@
 
             self notify:('collecting disk usage of %1...' bindWith:directory baseName).
             kiloBytes := self diskUsageInKiloBytesFor:directory.
-            diskUsageInfo at:dirPath put:(AbsoluteTime now -> kiloBytes).
-            self showDiskUsageInfoFor:directory as:kiloBytes.
+            kiloBytes notNil ifTrue:[
+                diskUsageInfo at:dirPath put:(AbsoluteTime now -> kiloBytes).
+                self showDiskUsageInfoFor:directory as:kiloBytes.
+            ]
         ] fork.
 ! !
 
@@ -2863,5 +2867,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.78 2003-02-13 16:13:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.79 2003-02-13 23:43:09 cg Exp $'
 ! !