equal
deleted
inserted
replaced
1939 ! ! |
1939 ! ! |
1940 |
1940 |
1941 !ProjectBrowser class methodsFor:'startup'! |
1941 !ProjectBrowser class methodsFor:'startup'! |
1942 |
1942 |
1943 openOnFile:aFilename |
1943 openOnFile:aFilename |
1944 |browser nodes| |
1944 |project browser nodes theNode| |
1945 |
1945 |
1946 browser := self new. |
1946 browser := self new. |
1947 browser allButOpen. |
1947 browser allButOpen. |
1948 browser loadFromProjectFile:aFilename. |
1948 project := browser loadFromProjectFile:aFilename. |
1949 nodes := browser projectTreeHolder root children. |
1949 |
1950 nodes size > 0 ifTrue:[ |
1950 theNode := browser projectTreeHolder |
1951 "/ browser projectTreeHolder selectNode:nodes first. |
1951 detectFirstItem:[:item | item contents == project]. |
1952 browser projectTreeHolder expand:nodes first. |
1952 |
|
1953 [theNode notNil] whileTrue:[ |
|
1954 browser projectTreeHolder expand:theNode. |
|
1955 theNode := theNode parent. |
1953 ]. |
1956 ]. |
1954 |
1957 |
1955 browser openWindow |
1958 browser openWindow |
1956 ! ! |
1959 ! ! |
1957 |
1960 |
3713 self withReadCursorDo:[ |
3716 self withReadCursorDo:[ |
3714 newProject := Project new loadFromProjectFile:aFilenameString. |
3717 newProject := Project new loadFromProjectFile:aFilenameString. |
3715 newProject notNil ifTrue:[ |
3718 newProject notNil ifTrue:[ |
3716 self newProject:newProject |
3719 self newProject:newProject |
3717 ] |
3720 ] |
3718 ] |
3721 ]. |
|
3722 ^ newProject |
3719 ! |
3723 ! |
3720 |
3724 |
3721 loadProjectCode |
3725 loadProjectCode |
3722 |project filesToLoad methodsFile ns anyPatchClassMissing anyPatches |
3726 |project filesToLoad methodsFile ns anyPatchClassMissing anyPatches |
3723 nMissingSuper prevNMissingSuper| |
3727 nMissingSuper prevNMissingSuper| |