changed #entryCompletion
authorClaus Gittinger <cg@exept.de>
Thu, 18 Dec 2008 02:54:58 +0100
changeset 2450 ede256dd19a1
parent 2449 5ef668d71314
child 2451 cbda60900ced
changed #entryCompletion
FileSelectionBrowser.st
--- 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