FileDialog.st
changeset 5929 456900f1aba5
parent 5927 1f8faa30e394
child 5930 e334dcfffb9e
--- a/FileDialog.st	Wed Jun 23 11:30:24 2004 +0200
+++ b/FileDialog.st	Wed Jun 23 11:33:33 2004 +0200
@@ -1307,7 +1307,7 @@
 !FileDialog methodsFor:'initialization & release'!
 
 commonPostOpen
-    |directory rootDirectory|
+    |directory rootDirectory selection|
 
 "/     self windowGroup addPreEventHook:self.
 
@@ -1335,7 +1335,13 @@
     ].
     self filenameHolder value:self startFilename.
     treeBrowser expandEnforceSelectedItems.
-    
+
+    selection := treeBrowser treeSelectionHolder value.
+    selection notEmptyOrNil ifTrue:[
+        selection := selection first.
+        selection enforcedExpand.
+        treeBrowser browser makeItemVisible:selection withMinimumLines:5.
+    ].
     self window label:self initialText.
 !
 
@@ -1477,5 +1483,5 @@
 !FileDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.65 2004-06-23 07:53:31 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.66 2004-06-23 09:33:33 martin Exp $'
 ! !