--- 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
! !