# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 937993056 -7200
# Node ID 825e6e9fc37f4b70ed90c0fbc9719517ec791848
# Parent  23a55549641a58e23a0b4933a08650232680e177
expand the path to the load project

diff -r 23a55549641a -r 825e6e9fc37f ProjectBrowser.st
--- a/ProjectBrowser.st	Wed Sep 22 11:10:43 1999 +0200
+++ b/ProjectBrowser.st	Wed Sep 22 11:37:36 1999 +0200
@@ -1941,15 +1941,18 @@
 !ProjectBrowser class methodsFor:'startup'!
 
 openOnFile:aFilename
-    |browser nodes|
+    |project browser nodes theNode|
 
     browser := self new.
     browser allButOpen.
-    browser loadFromProjectFile:aFilename.
-    nodes := browser projectTreeHolder root children.
-    nodes size > 0 ifTrue:[
-"/        browser projectTreeHolder selectNode:nodes first.
-        browser projectTreeHolder expand:nodes first.
+    project := browser loadFromProjectFile:aFilename.
+
+    theNode := browser projectTreeHolder 
+                    detectFirstItem:[:item | item contents == project].
+
+    [theNode notNil] whileTrue:[
+        browser projectTreeHolder expand:theNode.
+        theNode := theNode parent.
     ].
 
     browser openWindow
@@ -3715,7 +3718,8 @@
         newProject notNil ifTrue:[
             self newProject:newProject
         ]
-    ]
+    ].
+    ^ newProject
 !
 
 loadProjectCode