--- 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