--- 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!