allow multiple selection settings before open
authormartin
Tue, 18 Mar 2003 10:11:13 +0100
changeset 4670 a7169a7b43c3
parent 4669 f3d333643487
child 4671 a6eea3205630
allow multiple selection settings before open
DirectoryTreeBrowser.st
--- a/DirectoryTreeBrowser.st	Mon Mar 17 18:13:54 2003 +0100
+++ b/DirectoryTreeBrowser.st	Tue Mar 18 10:11:13 2003 +0100
@@ -631,7 +631,9 @@
 multipleSelect:aBoolean
 
     multipleSelect := aBoolean.
-    dirBrowser multipleSelectOk:aBoolean.
+    dirBrowser notNil ifTrue:[
+        dirBrowser multipleSelectOk:aBoolean.
+    ].
 !
 
 newVisibilityHolder
@@ -1278,6 +1280,7 @@
     dirBrowser closeEditorAction:[:ln |
         ln acceptAction value:ln list.
     ].
+    dirBrowser multipleSelectOk:self multipleSelect.
 !
 
 postBuildWith:aBuilder
@@ -1356,5 +1359,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.48 2003-02-26 14:48:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.49 2003-03-18 09:11:13 martin Exp $'
 ! !