equal
deleted
inserted
replaced
1212 "/ bugfix - first remove all entries in list |
1212 "/ bugfix - first remove all entries in list |
1213 browserList removeAll. |
1213 browserList removeAll. |
1214 browserList contents:locItems. |
1214 browserList contents:locItems. |
1215 ]. |
1215 ]. |
1216 self selectCurrentFiles. |
1216 self selectCurrentFiles. |
|
1217 |
|
1218 "Modified: / 23-01-2012 / 15:31:43 / cg" |
1217 ! |
1219 ! |
1218 |
1220 |
1219 updateDiskUsage |
1221 updateDiskUsage |
1220 directory notNil ifTrue:[ |
1222 directory notNil ifTrue:[ |
1221 self flushRememberedDiskUsageInfoFor:directory. |
1223 self flushRememberedDiskUsageInfoFor:directory. |
2384 directoryChanged |
2386 directoryChanged |
2385 "reread the whole list of items" |
2387 "reread the whole list of items" |
2386 |
2388 |
2387 |pos| |
2389 |pos| |
2388 |
2390 |
2389 self setBrowserItemList:#(). |
2391 "/ self setBrowserItemList:#(). |
2390 self createItemList. |
2392 self createItemList. |
2391 |
2393 |
2392 directory notNil ifTrue:[ |
2394 directory notNil ifTrue:[ |
2393 pos := AbstractFileBrowser directoryHistory getPositionFor:(directory pathName). |
2395 pos := AbstractFileBrowser directoryHistory getPositionFor:(directory pathName). |
2394 "/ self halt. |
2396 "/ self halt. |
2395 pos notNil ifTrue:[ |
2397 pos notNil ifTrue:[ |
2396 browser scrollToLine:pos. |
2398 browser scrollToLine:pos. |
2397 ] |
2399 ] |
2398 ]. |
2400 ]. |
|
2401 |
|
2402 "Modified (format): / 23-01-2012 / 15:41:20 / cg" |
2399 ! |
2403 ! |
2400 |
2404 |
2401 directoryContentsChanged |
2405 directoryContentsChanged |
2402 |oldItems itemsToAdd itemsToRemove newItems newAllItems oldAllItems| |
2406 |oldItems itemsToAdd itemsToRemove newItems newAllItems oldAllItems| |
2403 |
2407 |
3370 ! ! |
3374 ! ! |
3371 |
3375 |
3372 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3376 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3373 |
3377 |
3374 version |
3378 version |
3375 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.241 2012-01-07 17:09:40 cg Exp $' |
3379 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.242 2012-01-23 14:41:54 cg Exp $' |
3376 ! |
3380 ! |
3377 |
3381 |
3378 version_CVS |
3382 version_CVS |
3379 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.241 2012-01-07 17:09:40 cg Exp $' |
3383 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.242 2012-01-23 14:41:54 cg Exp $' |
3380 ! ! |
3384 ! ! |