equal
deleted
inserted
replaced
2761 |kiloBytes| |
2761 |kiloBytes| |
2762 |
2762 |
2763 self notify:('collecting disk usage of %1...' bindWith:directory baseName). |
2763 self notify:('collecting disk usage of %1...' bindWith:directory baseName). |
2764 kiloBytes := self diskUsageInKiloBytesFor:directory. |
2764 kiloBytes := self diskUsageInKiloBytesFor:directory. |
2765 kiloBytes notNil ifTrue:[ |
2765 kiloBytes notNil ifTrue:[ |
2766 diskUsageInfo at:dirPath put:(Timestamp now -> kiloBytes). |
2766 diskUsageInfo notNil ifTrue:[ |
2767 self showDiskUsageInfoFor:directory as:kiloBytes. |
2767 diskUsageInfo at:dirPath put:(Timestamp now -> kiloBytes). |
|
2768 self showDiskUsageInfoFor:directory as:kiloBytes. |
|
2769 ]. |
2768 ] |
2770 ] |
2769 ] fork. |
2771 ] fork. |
2770 ! ! |
2772 ! ! |
2771 |
2773 |
2772 !DirectoryContentsBrowser::DirectoryContentsItem class methodsFor:'instance creation'! |
2774 !DirectoryContentsBrowser::DirectoryContentsItem class methodsFor:'instance creation'! |
3283 ! ! |
3285 ! ! |
3284 |
3286 |
3285 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3287 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3286 |
3288 |
3287 version |
3289 version |
3288 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.227 2009-10-28 15:40:37 cg Exp $' |
3290 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.228 2009-10-28 18:54:31 cg Exp $' |
3289 ! |
3291 ! |
3290 |
3292 |
3291 version_CVS |
3293 version_CVS |
3292 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.227 2009-10-28 15:40:37 cg Exp $' |
3294 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.228 2009-10-28 18:54:31 cg Exp $' |
3293 ! ! |
3295 ! ! |