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