# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 903976110 -7200
# Node ID c6530cd784bd941185a28705cf245fdd88488519
# Parent  f52b5744063bb8f1e9fa2ec305f2823b0adbbd7c
checkin from browser

diff -r f52b5744063b -r c6530cd784bd 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'!