equal
deleted
inserted
replaced
79 "self request: 'Select A File' pathName: '' fileFilters: #('.*')" |
79 "self request: 'Select A File' pathName: '' fileFilters: #('.*')" |
80 |
80 |
81 ^self new |
81 ^self new |
82 title: aTitle; |
82 title: aTitle; |
83 fileName: aPath; |
83 fileName: aPath; |
84 directory: aPath; |
|
85 listOfFileFilters: fileFilters; |
84 listOfFileFilters: fileFilters; |
86 open |
85 open |
87 ! |
86 ! |
88 |
87 |
89 requestFileName |
88 requestFileName |
217 |
216 |
218 !FileSelectionBrowser methodsFor:'accessing'! |
217 !FileSelectionBrowser methodsFor:'accessing'! |
219 |
218 |
220 directory: aDirectory |
219 directory: aDirectory |
221 |
220 |
222 directory := (aDirectory ? Filename homeDirectory) asFilename asAbsoluteFilename directoryName |
221 directory := (aDirectory ? Filename homeDirectory) asFilename asAbsoluteFilename name |
223 ! |
222 ! |
224 |
223 |
225 directoryView |
224 directoryView |
226 |
225 |
227 ^directoryView ? (directoryView := DirectoryView new) |
226 ^directoryView ? (directoryView := DirectoryView new) |