# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 886079106 -3600
# Node ID 1b64e990e49554a58bacf2ef9a756001ab9f4e74
# Parent  5ac07e96e4483706bf9fadf4f3f38b11024bb35a
Fix copyright.

diff -r 5ac07e96e448 -r 1b64e990e495 FileSelectionBrowser.st
--- a/FileSelectionBrowser.st	Thu Jan 29 10:14:28 1998 +0100
+++ b/FileSelectionBrowser.st	Thu Jan 29 14:05:06 1998 +0100
@@ -316,15 +316,13 @@
 open
 
     super open.
-    accept value
-    ifTrue:
-    [
-        ^(self selectionOfDirectory value ? '') , Filename separator, (self valueOfFileName value ? '')
+    accept value ifTrue:[
+        ^ (self selectionOfDirectory value ? '') asFilename 
+                constructString:(self valueOfFileName value ? '')
     ].
-    ^nil
+    ^ nil
 
-
-
+    "Modified: / 28.1.1998 / 15:21:40 / stefan"
 !
 
 postBuildWith:aBuilder