# HG changeset patch # User Claus Gittinger # Date 1229442167 -3600 # Node ID d5b2e523859bb3fbb887baf6b8aea755c65bc63c # Parent 3e1e97529487d1a0d8e2efc29265022b58256eb3 comment diff -r 3e1e97529487 -r d5b2e523859b FileSelectionBrowser.st --- 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