--- a/Tools__ProjectBuilderAssistantApplication.st Sat Jul 21 18:58:03 2012 +0200
+++ b/Tools__ProjectBuilderAssistantApplication.st Sat Jul 21 18:58:50 2012 +0200
@@ -1680,9 +1680,9 @@
!
doOpenExplorer
- OperatingSystem
- openApplicationForDocument:(projectBuilder packageBuildDirectory)
- operation:#explore.
+ projectBuilder packageBuildDirectory asFilename openExplorer
+
+ "Modified: / 21-07-2012 / 12:29:21 / cg"
!
doStartMakeAll
@@ -2255,7 +2255,7 @@
!
openOn:aProjectDefinitionClass
- |type apps startupClass|
+ |type apps startupClass pageToGo|
self allButOpen.
aProjectDefinitionClass isLibraryDefinition ifTrue:[
@@ -2273,14 +2273,17 @@
self selectedProjectIndexHolder value:(self listOfMatchingPackageIds value indexOf:aProjectDefinitionClass package).
self hasProjectSelectedHolder value:true.
- self gotoPage:3.
+ pageToGo := 3.
type == ProjectDefinition guiApplicationType ifTrue:[
(startupClass := aProjectDefinitionClass startupClass) notNil ifTrue:[
+ self updateListOfStartupClassesInProject.
selectedStartupClass := startupClass.
- self gotoPage:4.
+ self selectedStartupClassIndexHolder value:(self listOfStartupClassesInProject value indexOf:startupClass).
+ pageToGo := 5.
].
"/ apps := (aProjectDefinitionClass classes select:[:cls | cls isKindOf:ApplicationModel])
].
+ self gotoPage:pageToGo.
self openWindow.
"Created: / 20-07-2012 / 12:34:02 / cg"