--- a/DirectoryTreeBrowser.st Mon Oct 14 13:52:28 2002 +0200
+++ b/DirectoryTreeBrowser.st Mon Oct 14 17:09:24 2002 +0200
@@ -1000,14 +1000,13 @@
|selection|
+ selection := aColOfItems.
aColOfItems notEmpty ifTrue:[
+ self multipleSelect ifFalse:[
+ selection := aColOfItems first.
+ ].
aColOfItems first makeVisible.
].
- self multipleSelect ifTrue:[
- selection := aColOfItems.
- ] ifFalse:[
- selection := aColOfItems first.
- ].
self treeSelectionHolder value:selection.
!
@@ -1181,5 +1180,5 @@
!DirectoryTreeBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.17 2002-10-14 09:14:57 penk Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.18 2002-10-14 15:09:24 stefan Exp $'
! !