--- 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 $'
! !