checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 24 Aug 1998 18:28:30 +0200
changeset 969 c6530cd784bd
parent 968 f52b5744063b
child 970 23d20044894f
checkin from browser
FileSelectionBrowser.st
--- 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'!