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