equal
deleted
inserted
replaced
2576 aDirectory recursiveDirectoryContentsDo:[:fnString | |
2576 aDirectory recursiveDirectoryContentsDo:[:fnString | |
2577 |fn| |
2577 |fn| |
2578 |
2578 |
2579 fn := aDirectory construct:fnString. |
2579 fn := aDirectory construct:fnString. |
2580 fn isDirectory ifFalse:[ |
2580 fn isDirectory ifFalse:[ |
2581 sum := sum + fn fileSize |
2581 fn exists ifTrue:[ "/ cares for missing links in WinNT |
|
2582 sum := sum + fn fileSize |
|
2583 ]. |
2582 ]. |
2584 ]. |
2583 ]. |
2585 ]. |
2584 ^ sum / 1024 |
2586 ^ sum / 1024 |
|
2587 |
|
2588 "Modified: / 04-07-2006 / 11:27:38 / cg" |
2585 ! |
2589 ! |
2586 |
2590 |
2587 flushRememberedDiskUsageInfo |
2591 flushRememberedDiskUsageInfo |
2588 diskUsageInfo := nil. |
2592 diskUsageInfo := nil. |
2589 ! |
2593 ! |
3203 ! ! |
3207 ! ! |
3204 |
3208 |
3205 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3209 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3206 |
3210 |
3207 version |
3211 version |
3208 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.191 2006-04-21 14:22:07 cg Exp $' |
3212 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.192 2006-07-04 09:42:45 cg Exp $' |
3209 ! ! |
3213 ! ! |