equal
deleted
inserted
replaced
2252 diskUsageInKiloBytesFor:aDirectory |
2252 diskUsageInKiloBytesFor:aDirectory |
2253 |line kb| |
2253 |line kb| |
2254 |
2254 |
2255 OperatingSystem isUNIXlike ifTrue:[ |
2255 OperatingSystem isUNIXlike ifTrue:[ |
2256 line := OperatingSystem getCommandOutputFrom:('du -s -k ' , aDirectory pathName). |
2256 line := OperatingSystem getCommandOutputFrom:('du -s -k ' , aDirectory pathName). |
2257 kb := Number readFrom:line readStream. |
2257 line notNil ifTrue:[ |
|
2258 kb := Number readFrom:line readStream. |
|
2259 ]. |
2258 ^ kb |
2260 ^ kb |
2259 ]. |
2261 ]. |
2260 |
2262 |
2261 ^ nil "/ unknown - for now. |
2263 ^ nil "/ unknown - for now. |
2262 ! |
2264 ! |
2329 [ |
2331 [ |
2330 |kiloBytes| |
2332 |kiloBytes| |
2331 |
2333 |
2332 self notify:('collecting disk usage of %1...' bindWith:directory baseName). |
2334 self notify:('collecting disk usage of %1...' bindWith:directory baseName). |
2333 kiloBytes := self diskUsageInKiloBytesFor:directory. |
2335 kiloBytes := self diskUsageInKiloBytesFor:directory. |
2334 diskUsageInfo at:dirPath put:(AbsoluteTime now -> kiloBytes). |
2336 kiloBytes notNil ifTrue:[ |
2335 self showDiskUsageInfoFor:directory as:kiloBytes. |
2337 diskUsageInfo at:dirPath put:(AbsoluteTime now -> kiloBytes). |
|
2338 self showDiskUsageInfoFor:directory as:kiloBytes. |
|
2339 ] |
2336 ] fork. |
2340 ] fork. |
2337 ! ! |
2341 ! ! |
2338 |
2342 |
2339 !DirectoryContentsBrowser methodsFor:'update task trigger'! |
2343 !DirectoryContentsBrowser methodsFor:'update task trigger'! |
2340 |
2344 |
2861 ! ! |
2865 ! ! |
2862 |
2866 |
2863 !DirectoryContentsBrowser class methodsFor:'documentation'! |
2867 !DirectoryContentsBrowser class methodsFor:'documentation'! |
2864 |
2868 |
2865 version |
2869 version |
2866 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.78 2003-02-13 16:13:28 cg Exp $' |
2870 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.79 2003-02-13 23:43:09 cg Exp $' |
2867 ! ! |
2871 ! ! |