# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1364170845 -3600
# Node ID 9e8fd363e24766eb5e7dd3d54689df879c72f69d
# Parent  f3895651ef5ff5a23f6ddaee3b3f2f90d679dfa2
class: Tools::ProjectBuilderAssistantApplication
changed: #openOn:

diff -r f3895651ef5f -r 9e8fd363e247 Tools__ProjectBuilderAssistantApplication.st
--- a/Tools__ProjectBuilderAssistantApplication.st	Fri Mar 22 16:34:45 2013 +0100
+++ b/Tools__ProjectBuilderAssistantApplication.st	Mon Mar 25 01:20:45 2013 +0100
@@ -2520,8 +2520,9 @@
     self selectedProjectIndexHolder value:(self listOfMatchingPackageIds value indexOf:aProjectDefinitionClass package).
     self hasProjectSelectedHolder value:true.
 
-    pageToGo := 3.
+    pageToGo := 2.
     type == ProjectDefinition guiApplicationType ifTrue:[
+        pageToGo := 3.
         (startupClass := aProjectDefinitionClass startupClass) notNil ifTrue:[
             self updateListOfStartupClassesInProject.
             selectedStartupClass := startupClass.
@@ -2530,6 +2531,15 @@
         ]. 
 "/    apps := (aProjectDefinitionClass classes select:[:cls | cls isKindOf:ApplicationModel])
     ].
+    type == ProjectDefinition nonGuiApplicationType ifTrue:[
+        pageToGo := 4.
+        (startupClass := aProjectDefinitionClass startupClass) notNil ifTrue:[
+            self updateListOfStartupClassesInProject.
+            selectedStartupClass := startupClass.
+            self selectedStartupClassIndexHolder value:(self listOfStartupClassesInProject value indexOf:startupClass).
+            pageToGo := 5.
+        ]. 
+    ].
     self gotoPage:pageToGo.
     self openWindow.