author | tz |
Sat, 07 Feb 1998 21:28:21 +0100 | |
changeset 626 | 402a50b931d5 |
parent 625 | 8448535a3334 |
child 627 | e28ca0319230 |
--- a/FileSelectionBrowser.st Sat Feb 07 21:25:28 1998 +0100 +++ b/FileSelectionBrowser.st Sat Feb 07 21:28:21 1998 +0100 @@ -360,6 +360,9 @@ ifFalse: [self directoryInputField flash] ]. + directoryView selectionOfFile value: + (directoryView listOfFiles detect: [:row| row baseName = self valueOfFileName value] ifNone: nil). + ^super postBuildWith:aBuilder ! !