changed: stx_6_2_2
authorClaus Gittinger <cg@exept.de>
Sat, 21 Jul 2012 18:58:50 +0200
changeset 2899da83d0544556
parent 2898 c7f6c498df6a
child 2900 1a7874e7d36a
changed:
#doOpenExplorer
#openOn:
Tools__ProjectBuilderAssistantApplication.st
     1.1 --- a/Tools__ProjectBuilderAssistantApplication.st	Sat Jul 21 18:58:03 2012 +0200
     1.2 +++ b/Tools__ProjectBuilderAssistantApplication.st	Sat Jul 21 18:58:50 2012 +0200
     1.3 @@ -1680,9 +1680,9 @@
     1.4  !
     1.5  
     1.6  doOpenExplorer
     1.7 -    OperatingSystem
     1.8 -        openApplicationForDocument:(projectBuilder packageBuildDirectory) 
     1.9 -        operation:#explore.
    1.10 +    projectBuilder packageBuildDirectory asFilename openExplorer
    1.11 +
    1.12 +    "Modified: / 21-07-2012 / 12:29:21 / cg"
    1.13  !
    1.14  
    1.15  doStartMakeAll
    1.16 @@ -2255,7 +2255,7 @@
    1.17  !
    1.18  
    1.19  openOn:aProjectDefinitionClass
    1.20 -    |type apps startupClass|
    1.21 +    |type apps startupClass pageToGo|
    1.22  
    1.23      self allButOpen.
    1.24      aProjectDefinitionClass isLibraryDefinition ifTrue:[
    1.25 @@ -2273,14 +2273,17 @@
    1.26      self selectedProjectIndexHolder value:(self listOfMatchingPackageIds value indexOf:aProjectDefinitionClass package).
    1.27      self hasProjectSelectedHolder value:true.
    1.28  
    1.29 -    self gotoPage:3.
    1.30 +    pageToGo := 3.
    1.31      type == ProjectDefinition guiApplicationType ifTrue:[
    1.32          (startupClass := aProjectDefinitionClass startupClass) notNil ifTrue:[
    1.33 +            self updateListOfStartupClassesInProject.
    1.34              selectedStartupClass := startupClass.
    1.35 -            self gotoPage:4.
    1.36 +            self selectedStartupClassIndexHolder value:(self listOfStartupClassesInProject value indexOf:startupClass).
    1.37 +            pageToGo := 5.
    1.38          ]. 
    1.39  "/    apps := (aProjectDefinitionClass classes select:[:cls | cls isKindOf:ApplicationModel])
    1.40      ].
    1.41 +    self gotoPage:pageToGo.
    1.42      self openWindow.
    1.43  
    1.44      "Created: / 20-07-2012 / 12:34:02 / cg"