equal
deleted
inserted
replaced
217 |
217 |
218 !FileSelectionBrowser methodsFor:'accessing'! |
218 !FileSelectionBrowser methodsFor:'accessing'! |
219 |
219 |
220 directory: aDirectory |
220 directory: aDirectory |
221 |
221 |
222 directory := (aDirectory ? Filename homeDirectory) asFilename asAbsoluteFilename name |
222 directory := (aDirectory ? Filename homeDirectory) asFilename asAbsoluteFilename directoryName |
223 ! |
223 ! |
224 |
224 |
225 directoryView |
225 directoryView |
226 |
226 |
227 ^directoryView ? (directoryView := DirectoryView new) |
227 ^directoryView ? (directoryView := DirectoryView new) |
334 directoryView fileSelectAction: [:aFileName |self valueOfFileName value: aFileName asFilename baseName]. |
334 directoryView fileSelectAction: [:aFileName |self valueOfFileName value: aFileName asFilename baseName]. |
335 directoryView fileDoubleClickAction: [:aFileName |self fileDoubleClicked: aFileName asFilename baseName]. |
335 directoryView fileDoubleClickAction: [:aFileName |self fileDoubleClicked: aFileName asFilename baseName]. |
336 directoryView fileFilterSelectAction: [:fileFilter| |
336 directoryView fileFilterSelectAction: [:fileFilter| |
337 self valueOfFileName value: ( |
337 self valueOfFileName value: ( |
338 ((self valueOfFileName value ? 'unknown') readStream upTo: $.), '.', |
338 ((self valueOfFileName value ? 'unknown') readStream upTo: $.), '.', |
339 (fileFilter copy reverse readStream upTo: $.) reverse)]. |
339 (fileFilter copy reverse readStream upTo: $.) reverse)]. |
340 self directoryTreeView selectPathname: directory ? self class lastSelection ? '/'. |
340 self directoryTreeView selectPathname: directory ? self class lastSelection ? '/'. |
341 |
341 |
342 self directoryInputField entryCompletionBlock: |
342 self directoryInputField entryCompletionBlock: |
343 [:f| |
343 [:f| |
344 |completedDirectory| |
344 |completedDirectory| |