equal
deleted
inserted
replaced
1678 inDirectory:(projectBuilder packageBuildDirectory) |
1678 inDirectory:(projectBuilder packageBuildDirectory) |
1679 ] |
1679 ] |
1680 ! |
1680 ! |
1681 |
1681 |
1682 doOpenExplorer |
1682 doOpenExplorer |
1683 OperatingSystem |
1683 projectBuilder packageBuildDirectory asFilename openExplorer |
1684 openApplicationForDocument:(projectBuilder packageBuildDirectory) |
1684 |
1685 operation:#explore. |
1685 "Modified: / 21-07-2012 / 12:29:21 / cg" |
1686 ! |
1686 ! |
1687 |
1687 |
1688 doStartMakeAll |
1688 doStartMakeAll |
1689 <resource: #uiCallback> |
1689 <resource: #uiCallback> |
1690 |
1690 |
2253 ]. |
2253 ]. |
2254 ^ browser. |
2254 ^ browser. |
2255 ! |
2255 ! |
2256 |
2256 |
2257 openOn:aProjectDefinitionClass |
2257 openOn:aProjectDefinitionClass |
2258 |type apps startupClass| |
2258 |type apps startupClass pageToGo| |
2259 |
2259 |
2260 self allButOpen. |
2260 self allButOpen. |
2261 aProjectDefinitionClass isLibraryDefinition ifTrue:[ |
2261 aProjectDefinitionClass isLibraryDefinition ifTrue:[ |
2262 type := ProjectDefinition libraryType |
2262 type := ProjectDefinition libraryType |
2263 ] ifFalse:[ |
2263 ] ifFalse:[ |
2271 self hideSTXProjects value:false. |
2271 self hideSTXProjects value:false. |
2272 selectedProjectDefinition := aProjectDefinitionClass. |
2272 selectedProjectDefinition := aProjectDefinitionClass. |
2273 self selectedProjectIndexHolder value:(self listOfMatchingPackageIds value indexOf:aProjectDefinitionClass package). |
2273 self selectedProjectIndexHolder value:(self listOfMatchingPackageIds value indexOf:aProjectDefinitionClass package). |
2274 self hasProjectSelectedHolder value:true. |
2274 self hasProjectSelectedHolder value:true. |
2275 |
2275 |
2276 self gotoPage:3. |
2276 pageToGo := 3. |
2277 type == ProjectDefinition guiApplicationType ifTrue:[ |
2277 type == ProjectDefinition guiApplicationType ifTrue:[ |
2278 (startupClass := aProjectDefinitionClass startupClass) notNil ifTrue:[ |
2278 (startupClass := aProjectDefinitionClass startupClass) notNil ifTrue:[ |
|
2279 self updateListOfStartupClassesInProject. |
2279 selectedStartupClass := startupClass. |
2280 selectedStartupClass := startupClass. |
2280 self gotoPage:4. |
2281 self selectedStartupClassIndexHolder value:(self listOfStartupClassesInProject value indexOf:startupClass). |
|
2282 pageToGo := 5. |
2281 ]. |
2283 ]. |
2282 "/ apps := (aProjectDefinitionClass classes select:[:cls | cls isKindOf:ApplicationModel]) |
2284 "/ apps := (aProjectDefinitionClass classes select:[:cls | cls isKindOf:ApplicationModel]) |
2283 ]. |
2285 ]. |
|
2286 self gotoPage:pageToGo. |
2284 self openWindow. |
2287 self openWindow. |
2285 |
2288 |
2286 "Created: / 20-07-2012 / 12:34:02 / cg" |
2289 "Created: / 20-07-2012 / 12:34:02 / cg" |
2287 ! |
2290 ! |
2288 |
2291 |