--- a/FileSelectionBrowser.st Fri Dec 12 13:55:14 2008 +0100
+++ b/FileSelectionBrowser.st Tue Dec 16 16:42:47 2008 +0100
@@ -400,8 +400,7 @@
prevDir := directory.
directory := directory ? ((aFileName ? '') asFilename asAbsoluteFilename directoryName).
- "/ on systems with volumes, we might have to update
- "/ the root here.
+ "/ on systems with volumes, we might have to update the root here.
(prevDir isNil
or:[directory asFilename volume ~= prevDir asFilename volume]) ifTrue:[
self setRootForFile:directory asFilename.
@@ -632,6 +631,7 @@
nm := Filename currentDirectory asAbsoluteFilename name.
].
].
+
self directoryTreeView selectPathname:nm.
self directoryInputField