equal
deleted
inserted
replaced
980 ! |
980 ! |
981 |
981 |
982 doUpdate |
982 doUpdate |
983 "/ DirectoryContents flushCache. |
983 "/ DirectoryContents flushCache. |
984 self wakeUpForDirectoryContentsChanged. |
984 self wakeUpForDirectoryContentsChanged. |
|
985 |
|
986 directory notNil ifTrue:[ |
|
987 self flushRememberedDiskUsageInfoFor:directory. |
|
988 ] ifFalse:[ |
|
989 self flushRememberedDiskUsageInfo. |
|
990 ]. |
|
991 self startDiskUsageInfoProcess. |
985 ! |
992 ! |
986 |
993 |
987 doubleClickedAt:anItemIndex |
994 doubleClickedAt:anItemIndex |
988 |
995 |
989 self withWaitCursorDo:[ |
996 self withWaitCursorDo:[ |
2164 |
2171 |
2165 flushRememberedDiskUsageInfo |
2172 flushRememberedDiskUsageInfo |
2166 diskUsageInfo := nil. |
2173 diskUsageInfo := nil. |
2167 ! |
2174 ! |
2168 |
2175 |
|
2176 flushRememberedDiskUsageInfoFor:aDirectory |
|
2177 |dirPath keysToRemove| |
|
2178 |
|
2179 dirPath := aDirectory pathName. |
|
2180 keysToRemove := diskUsageInfo keys |
|
2181 select:[:key | |
|
2182 key startsWith:dirPath |
|
2183 ]. |
|
2184 diskUsageInfo removeAllKeys:keysToRemove. |
|
2185 ! |
|
2186 |
2169 isDiskUsageInfoStillValid:infoForDirectory for:aDirectoryPath |
2187 isDiskUsageInfoStillValid:infoForDirectory for:aDirectoryPath |
2170 |diskUsageRememberTime infoTimestamp infoKiloBytes infoMegaBytes| |
2188 |diskUsageRememberTime infoTimestamp infoKiloBytes infoMegaBytes| |
2171 |
2189 |
2172 diskUsageRememberTime := 30. |
2190 diskUsageRememberTime := 30. |
2173 |
2191 |
2788 ! ! |
2806 ! ! |
2789 |
2807 |
2790 !DirectoryContentsBrowser class methodsFor:'documentation'! |
2808 !DirectoryContentsBrowser class methodsFor:'documentation'! |
2791 |
2809 |
2792 version |
2810 version |
2793 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.98 2003-04-05 14:05:12 cg Exp $' |
2811 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.99 2003-04-05 14:13:38 cg Exp $' |
2794 ! ! |
2812 ! ! |