FileSelectionBrowser.st
changeset 969 c6530cd784bd
parent 957 c09018dc6954
child 992 4d408220a60b
--- a/FileSelectionBrowser.st	Mon Aug 24 13:09:47 1998 +0200
+++ b/FileSelectionBrowser.st	Mon Aug 24 18:28:30 1998 +0200
@@ -385,7 +385,7 @@
        |completedDirectory|
        (completedDirectory := Filename 
             filenameCompletionFor: self directoryInputField contents
-            directory:directory 
+            directory:(directory asFilename)
             directoriesOnly:true 
             filesOnly:false 
             ifMultiple:
@@ -406,6 +406,8 @@
         (directoryView listOfFiles detect: [:row| row baseName = self valueOfFileName value] ifNone: nil).
 
     ^super postBuildWith:aBuilder
+
+    "Modified: / 24.8.1998 / 17:43:44 / cg"
 ! !
 
 !FileSelectionBrowser class methodsFor:'documentation'!