# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 903341779 -7200
# Node ID c09018dc695446dc6e8126887cba03a9559602c7
# Parent  dc4df8952e82921539960d6f78f18aec2b53e1c6
comments

diff -r dc4df8952e82 -r c09018dc6954 FileSelectionBrowser.st
--- a/FileSelectionBrowser.st	Sat Aug 15 16:03:54 1998 +0200
+++ b/FileSelectionBrowser.st	Mon Aug 17 10:16:19 1998 +0200
@@ -54,6 +54,13 @@
 !FileSelectionBrowser class methodsFor:'instance creation'!
 
 request: aTitle fileName: aFileName inDirectory: dir withFileFilters: fileFilters
+    ^self new
+        title: aTitle;
+        fileName: aFileName;
+        directory: dir;
+        listOfFileFilters: fileFilters;
+        open
+
     "
     self 
         request: 'Select Your Profile File' 
@@ -62,15 +69,16 @@
         withFileFilters: #('.*')
     "
 
+    "Modified: / 17.8.1998 / 10:15:50 / cg"
+!
+
+request: aTitle fileName: aFileName withFileFilters: fileFilters
     ^self new
         title: aTitle;
         fileName: aFileName;
-        directory: dir;
         listOfFileFilters: fileFilters;
         open
-!
 
-request: aTitle fileName: aFileName withFileFilters: fileFilters
     "
     self 
         request: 'Select Your Profile File' 
@@ -78,14 +86,16 @@
         withFileFilters: #('*')  
     "
 
-    ^self new
-        title: aTitle;
-        fileName: aFileName;
-        listOfFileFilters: fileFilters;
-        open
+    "Modified: / 17.8.1998 / 10:15:50 / cg"
 !
 
 request: aTitle pathName: aPath withFileFilters: fileFilters
+    ^self new
+        title: aTitle;
+        directory: aPath;
+        listOfFileFilters: fileFilters;
+        open
+
     "
     self 
         request: 'Select A File' 
@@ -93,31 +103,28 @@
         withFileFilters: #('*.conf')
     "
 
-    ^self new
-        title: aTitle;
-        directory: aPath;
-        listOfFileFilters: fileFilters;
-        open
+    "Modified: / 17.8.1998 / 10:15:50 / cg"
 !
 
 request: aTitle withFileFilters: fileFilters
+    ^self new
+        title: aTitle;
+        listOfFileFilters: fileFilters;
+        open
     "
     self request: 'Select A File' fileFilters: #('.*')
     "
 
-    ^self new
-        title: aTitle;
-        listOfFileFilters: fileFilters;
-        open
+    "Modified: / 17.8.1998 / 10:15:49 / cg"
 !
 
 requestFileName
+    ^self new title: 'Select A File'; open
     "
     self requestFileName
     "
 
-    ^self new title: 'Select A File'; open
-
+    "Modified: / 17.8.1998 / 10:15:48 / cg"
 ! !
 
 !FileSelectionBrowser class methodsFor:'accessing'!
@@ -248,8 +255,9 @@
 
 directory: aDirectory
 
-    directory := (aDirectory ? Filename currentDirectory) asFilename asAbsoluteFilename name
+    directory := (aDirectory ? Filename currentDirectory) asFilename asAbsoluteFilename pathName
 
+    "Modified: / 17.8.1998 / 10:15:53 / cg"
 !
 
 directoryView
@@ -260,8 +268,9 @@
 fileName: aFileName
 
     self valueOfFileName value: (aFileName ? '') asFilename baseName.
-    directory := directory ? ((aFileName ? '') asFilename directoryName).
-                       
+    directory := directory ? ((aFileName ? '') asFilename asAbsoluteFilename directoryName).
+
+    "Modified: / 17.8.1998 / 10:15:54 / cg"
 !
 
 listOfFileFilters: anArray
@@ -356,6 +365,8 @@
                 constructString:(self valueOfFileName value ? '')
     ].
     ^ nil
+
+    "Modified: / 17.8.1998 / 10:15:55 / cg"
 !
 
 postBuildWith:aBuilder