# HG changeset patch
# User tz
# Date 885562647 -3600
# Node ID 90b8b353cd2f2e70346de3ddb8db4e29574a01cb
# Parent  aed297a2d39580a67aec2bc3db33254eac2fd185
*** empty log message ***

diff -r aed297a2d395 -r 90b8b353cd2f FileSelectionBrowser.st
--- a/FileSelectionBrowser.st	Fri Jan 23 13:47:10 1998 +0100
+++ b/FileSelectionBrowser.st	Fri Jan 23 14:37:27 1998 +0100
@@ -59,17 +59,6 @@
         open
 !
 
-request: aTitle fileName: aFileName fileFilters: fileFilters
-
-    "self request: 'Select A File' fileName: '' fileFilters: #('.*')"
-    
-    ^self new
-        title: aTitle;
-        fileName: aFileName;
-        listOfFileFilters: fileFilters;
-        open
-!
-
 request: aTitle fileName: aFileName inDirectory: dir withFileFilters: fileFilters
 
     "self 
@@ -86,6 +75,18 @@
         open
 !
 
+request: aTitle pathName: aPath fileFilters: fileFilters
+
+    "self request: 'Select A File' pathName: '' fileFilters: #('.*')"
+
+    ^self new
+        title: aTitle;
+        fileName: aPath;
+        directory: aPath;
+        listOfFileFilters: fileFilters;
+        open
+!
+
 requestFileName
 
     "self requestFileName"
@@ -215,7 +216,7 @@
 
 directory: aDirectory
 
-    directory := aDirectory asFilename asAbsoluteFilename name
+    directory := (aDirectory ? Filename homeDirectory) asFilename asAbsoluteFilename name
 !
 
 directoryView
@@ -317,7 +318,7 @@
     accept value
     ifTrue:
     [
-        ^self valueOfFileName value ? ''
+        ^(self selectionOfDirectory value ? '') , Filename separator, (self valueOfFileName value ? '')
     ].
     ^nil
 
@@ -328,14 +329,13 @@
 postBuildWith:aBuilder
 
     directoryView listOfFileFilters: listOfFileFilters ? #('*').
-    directoryView fileSelectAction: [:aFileName |self valueOfFileName value: aFileName].
-    directoryView fileDoubleClickAction: [:aFileName |self fileDoubleClicked: aFileName].
+    directoryView fileSelectAction: [:aFileName |self valueOfFileName value: aFileName asFilename baseName].
+    directoryView fileDoubleClickAction: [:aFileName |self fileDoubleClicked: aFileName asFilename baseName].
     directoryView fileFilterSelectAction: [:fileFilter|
     self valueOfFileName value: (
         ((self valueOfFileName value ? 'unknown') readStream upTo: $.), '.',
         (fileFilter copy reverse readStream upTo: $.) reverse)].
     self directoryTreeView selectPathname: directory ? self class lastSelection.
-    self directoryTreeView monitoring: true.
 
     ^super postBuildWith:aBuilder
 ! !