equal
deleted
inserted
replaced
767 file isDirectory ifTrue:[ |
767 file isDirectory ifTrue:[ |
768 list directory:file |
768 list directory:file |
769 ] |
769 ] |
770 ]. |
770 ]. |
771 self rootHolder value:(list directory asString) withoutNotifying:self. |
771 self rootHolder value:(list directory asString) withoutNotifying:self. |
772 list size = 1 ifTrue:[list first expand:true] |
772 (list size = 1 and:[list first isDirectory]) ifTrue:[list first expand:true] |
773 ! |
773 ! |
774 |
774 |
775 selectionChanged |
775 selectionChanged |
776 |
776 |
777 |sel currentFileDir| |
777 |sel currentFileDir| |
1309 ! ! |
1309 ! ! |
1310 |
1310 |
1311 !DirectoryTreeBrowser class methodsFor:'documentation'! |
1311 !DirectoryTreeBrowser class methodsFor:'documentation'! |
1312 |
1312 |
1313 version |
1313 version |
1314 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.75 2003-09-26 11:14:31 penk Exp $' |
1314 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.76 2003-09-26 13:39:33 penk Exp $' |
1315 ! ! |
1315 ! ! |