equal
deleted
inserted
replaced
485 selection := self selectedItems asOrderedCollection. |
485 selection := self selectedItems asOrderedCollection. |
486 selectedItemNotUnderIndicatorItem := selection detect:[:anItem | |
486 selectedItemNotUnderIndicatorItem := selection detect:[:anItem | |
487 (anItem fileName directory asString startsWith:(indicatorItem fileName asString)) not] |
487 (anItem fileName directory asString startsWith:(indicatorItem fileName asString)) not] |
488 ifNone:[nil]. |
488 ifNone:[nil]. |
489 selectedItemNotUnderIndicatorItem isNil ifTrue:[ |
489 selectedItemNotUnderIndicatorItem isNil ifTrue:[ |
490 self currentFileNameHolder value:(OrderedCollection with:indicatorItem fileName). |
490 self setCurrentFileName:(indicatorItem fileName). |
491 ]. |
491 ]. |
492 self toggleExpand:indicatorItem. |
492 self toggleExpand:indicatorItem. |
493 ! |
493 ! |
494 |
494 |
495 doSetSelectionToRoot |
495 doSetSelectionToRoot |
497 |
497 |
498 selDir := self firstSelectedDirectory. |
498 selDir := self firstSelectedDirectory. |
499 selDir notNil ifTrue:[ |
499 selDir notNil ifTrue:[ |
500 self rootHolder value asFilename = selDir ifTrue:[ ^ self]. |
500 self rootHolder value asFilename = selDir ifTrue:[ ^ self]. |
501 self rootHolder value:selDir. |
501 self rootHolder value:selDir. |
502 self currentFileNameHolder value:(OrderedCollection with:selDir). |
502 self setCurrentFileName:selDir. |
503 ]. |
503 ]. |
504 ! |
504 ! |
505 |
505 |
506 doUpdate |
506 doUpdate |
507 "/ DirectoryContents flushCache. |
507 "/ DirectoryContents flushCache. |
799 sel first = currentFileDir ifTrue:[ |
799 sel first = currentFileDir ifTrue:[ |
800 ^ self. |
800 ^ self. |
801 ]. |
801 ]. |
802 ]. |
802 ]. |
803 ]. |
803 ]. |
804 self currentFileNameHolder value:sel. |
804 self setCurrentFileNames:sel. |
805 ! |
805 ! |
806 |
806 |
807 update:something with:aParameter from:aModel |
807 update:something with:aParameter from:aModel |
808 "one of my models changed" |
808 "one of my models changed" |
809 |
809 |
1310 ! ! |
1310 ! ! |
1311 |
1311 |
1312 !DirectoryTreeBrowser class methodsFor:'documentation'! |
1312 !DirectoryTreeBrowser class methodsFor:'documentation'! |
1313 |
1313 |
1314 version |
1314 version |
1315 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.88 2004-06-23 07:52:25 penk Exp $' |
1315 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.89 2004-08-03 09:30:09 cg Exp $' |
1316 ! ! |
1316 ! ! |