author | Claus Gittinger <cg@exept.de> |
Thu, 18 Dec 2008 02:54:58 +0100 | |
changeset 2450 | ede256dd19a1 |
parent 2449 | 5ef668d71314 |
child 2451 | cbda60900ced |
--- a/FileSelectionBrowser.st Thu Dec 18 01:06:46 2008 +0100 +++ b/FileSelectionBrowser.st Thu Dec 18 02:54:58 2008 +0100 @@ -549,7 +549,11 @@ inputField := self directoryInputField. f := inputField contents. - dir := f asFilename directoryName. + f asFilename isRootDirectory ifTrue:[ + dir := f. + ] ifFalse:[ + dir := f asFilename directoryName. + ]. completedDirectory := Filename filenameCompletionFor:f