2518 self hideSTXProjects value:false. |
2518 self hideSTXProjects value:false. |
2519 selectedProjectDefinition := aProjectDefinitionClass. |
2519 selectedProjectDefinition := aProjectDefinitionClass. |
2520 self selectedProjectIndexHolder value:(self listOfMatchingPackageIds value indexOf:aProjectDefinitionClass package). |
2520 self selectedProjectIndexHolder value:(self listOfMatchingPackageIds value indexOf:aProjectDefinitionClass package). |
2521 self hasProjectSelectedHolder value:true. |
2521 self hasProjectSelectedHolder value:true. |
2522 |
2522 |
2523 pageToGo := 3. |
2523 pageToGo := 2. |
2524 type == ProjectDefinition guiApplicationType ifTrue:[ |
2524 type == ProjectDefinition guiApplicationType ifTrue:[ |
|
2525 pageToGo := 3. |
2525 (startupClass := aProjectDefinitionClass startupClass) notNil ifTrue:[ |
2526 (startupClass := aProjectDefinitionClass startupClass) notNil ifTrue:[ |
2526 self updateListOfStartupClassesInProject. |
2527 self updateListOfStartupClassesInProject. |
2527 selectedStartupClass := startupClass. |
2528 selectedStartupClass := startupClass. |
2528 self selectedStartupClassIndexHolder value:(self listOfStartupClassesInProject value indexOf:startupClass). |
2529 self selectedStartupClassIndexHolder value:(self listOfStartupClassesInProject value indexOf:startupClass). |
2529 pageToGo := 5. |
2530 pageToGo := 5. |
2530 ]. |
2531 ]. |
2531 "/ apps := (aProjectDefinitionClass classes select:[:cls | cls isKindOf:ApplicationModel]) |
2532 "/ apps := (aProjectDefinitionClass classes select:[:cls | cls isKindOf:ApplicationModel]) |
|
2533 ]. |
|
2534 type == ProjectDefinition nonGuiApplicationType ifTrue:[ |
|
2535 pageToGo := 4. |
|
2536 (startupClass := aProjectDefinitionClass startupClass) notNil ifTrue:[ |
|
2537 self updateListOfStartupClassesInProject. |
|
2538 selectedStartupClass := startupClass. |
|
2539 self selectedStartupClassIndexHolder value:(self listOfStartupClassesInProject value indexOf:startupClass). |
|
2540 pageToGo := 5. |
|
2541 ]. |
2532 ]. |
2542 ]. |
2533 self gotoPage:pageToGo. |
2543 self gotoPage:pageToGo. |
2534 self openWindow. |
2544 self openWindow. |
2535 |
2545 |
2536 "Created: / 20-07-2012 / 12:34:02 / cg" |
2546 "Created: / 20-07-2012 / 12:34:02 / cg" |