--- a/FileSelectionBrowser.st Thu Feb 05 17:02:55 1998 +0100
+++ b/FileSelectionBrowser.st Thu Feb 05 17:12:48 1998 +0100
@@ -219,7 +219,7 @@
directory: aDirectory
- directory := (aDirectory ? Filename homeDirectory) asFilename asAbsoluteFilename name
+ directory := (aDirectory ? Filename homeDirectory) asFilename asAbsoluteFilename directoryName
!
directoryView
@@ -336,7 +336,7 @@
directoryView fileFilterSelectAction: [:fileFilter|
self valueOfFileName value: (
((self valueOfFileName value ? 'unknown') readStream upTo: $.), '.',
- (fileFilter copy reverse readStream upTo: $.) reverse)].
+ (fileFilter copy reverse readStream upTo: $.) reverse)].
self directoryTreeView selectPathname: directory ? self class lastSelection ? '/'.
self directoryInputField entryCompletionBlock: