*** empty log message ***
authorpenk
Tue, 05 Nov 2002 10:18:23 +0100
changeset 4172 d2f6ba6a98ed
parent 4171 21af92daaa25
child 4173 ad23671bdc56
*** empty log message ***
FileBrowserV2.st
--- a/FileBrowserV2.st	Tue Nov 05 10:14:49 2002 +0100
+++ b/FileBrowserV2.st	Tue Nov 05 10:18:23 2002 +0100
@@ -74,7 +74,11 @@
 
     |instance files|
     instance := self new createBuilder.
-    files := aDirectoryPath isCollection ifTrue:[aDirectoryPath] ifFalse:[(Array with:aDirectoryPath)].
+    aDirectoryPath isCollection ifTrue:[
+        files := aDirectoryPath
+    ] ifFalse:[
+        files := Array with:aDirectoryPath.
+    ].
     instance currentFileNameHolder value:files.
     ^ instance
 
@@ -1232,7 +1236,7 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.36 2002-11-04 15:31:37 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.37 2002-11-05 09:18:23 penk Exp $'
 ! !
 
 FileBrowserV2 initialize!