equal
deleted
inserted
replaced
1382 subclass:newAppName asSymbol |
1382 subclass:newAppName asSymbol |
1383 instanceVariableNames:'' |
1383 instanceVariableNames:'' |
1384 classVariableNames:'' |
1384 classVariableNames:'' |
1385 poolDictionaries:'' |
1385 poolDictionaries:'' |
1386 category:'Applications'. |
1386 category:'Applications'. |
1387 CodeGeneratorTool createApplicationCodeFor:newAppClass. |
1387 SmalltalkCodeGeneratorTool createApplicationCodeFor:newAppClass. |
1388 ]. |
1388 ]. |
1389 self updateListOfApplicationsInProject. |
1389 self updateListOfApplicationsInProject. |
1390 self selectedApplicationIndexHolder value:(listOfApplicationsInProject value indexOf:newAppClass). |
1390 self selectedApplicationIndexHolder value:(listOfApplicationsInProject value indexOf:newAppClass). |
1391 ]. |
1391 ]. |
|
1392 |
|
1393 "Modified: / 31-01-2011 / 18:29:50 / cg" |
1392 ! |
1394 ! |
1393 |
1395 |
1394 createNewProject |
1396 createNewProject |
1395 <resource: #uiCallback> |
1397 <resource: #uiCallback> |
1396 |
1398 |
1471 classVariableNames:'' |
1473 classVariableNames:'' |
1472 poolDictionaries:'' |
1474 poolDictionaries:'' |
1473 category:'Applications'. |
1475 category:'Applications'. |
1474 |
1476 |
1475 self projectTypeIsGuiApplication ifTrue: [startupApplication := selectedApplication]. |
1477 self projectTypeIsGuiApplication ifTrue: [startupApplication := selectedApplication]. |
1476 CodeGeneratorTool createStartupCodeFor:newStartupClass forStartOf:startupApplication. |
1478 SmalltalkCodeGeneratorTool createStartupCodeFor:newStartupClass forStartOf:startupApplication. |
1477 ]. |
1479 ]. |
1478 self updateListOfStartupClassesInProject. |
1480 self updateListOfStartupClassesInProject. |
1479 self selectedStartupClassIndexHolder value:(listOfStartupClassesInProject value indexOf:newStartupClass). |
1481 self selectedStartupClassIndexHolder value:(listOfStartupClassesInProject value indexOf:newStartupClass). |
1480 ]. |
1482 ]. |
|
1483 |
|
1484 "Modified: / 31-01-2011 / 18:29:47 / cg" |
1481 ! |
1485 ! |
1482 |
1486 |
1483 doAddClassToProject |
1487 doAddClassToProject |
1484 <resource: #uiCallback> |
1488 <resource: #uiCallback> |
1485 |
1489 |
1723 ]. |
1727 ]. |
1724 self hasStartupClassSelectedHolder value:(selectedStartupClass notNil). |
1728 self hasStartupClassSelectedHolder value:(selectedStartupClass notNil). |
1725 |
1729 |
1726 selectedStartupClass notNil ifTrue:[ |
1730 selectedStartupClass notNil ifTrue:[ |
1727 "/ generate startupClass code |
1731 "/ generate startupClass code |
1728 CodeGeneratorTool |
1732 SmalltalkCodeGeneratorTool |
1729 compile:(selectedProjectDefinition startupClassName_codeFor:(selectedStartupClass name)) |
1733 compile:(selectedProjectDefinition startupClassName_codeFor:(selectedStartupClass name)) |
1730 forClass:selectedProjectDefinition theMetaclass |
1734 forClass:selectedProjectDefinition theMetaclass |
1731 inCategory:'description - startup'. |
1735 inCategory:'description - startup'. |
1732 ]. |
1736 ]. |
1733 self updateButtonEnableState. |
1737 self updateButtonEnableState. |
|
1738 |
|
1739 "Modified: / 31-01-2011 / 18:29:42 / cg" |
1734 ! ! |
1740 ! ! |
1735 |
1741 |
1736 !ProjectBuilderAssistantApplication methodsFor:'aspects'! |
1742 !ProjectBuilderAssistantApplication methodsFor:'aspects'! |
1737 |
1743 |
1738 buildDirectoryHolder |
1744 buildDirectoryHolder |
2206 |
2212 |
2207 Class packageQuerySignal answer:(selectedProjectDefinition package) |
2213 Class packageQuerySignal answer:(selectedProjectDefinition package) |
2208 do:[ |
2214 do:[ |
2209 selectedProjectDefinition |
2215 selectedProjectDefinition |
2210 forEachContentsMethodsCodeToCompileDo:[:code :category | |
2216 forEachContentsMethodsCodeToCompileDo:[:code :category | |
2211 CodeGeneratorTool |
2217 SmalltalkCodeGeneratorTool |
2212 compile:code |
2218 compile:code |
2213 forClass:selectedProjectDefinition theMetaclass |
2219 forClass:selectedProjectDefinition theMetaclass |
2214 inCategory:category. |
2220 inCategory:category. |
2215 ] |
2221 ] |
2216 ignoreOldDefinition:true |
2222 ignoreOldDefinition:true |
2217 ]. |
2223 ]. |
2218 self updateListOfClassesInProject |
2224 self updateListOfClassesInProject |
|
2225 |
|
2226 "Modified: / 31-01-2011 / 18:29:44 / cg" |
2219 ! |
2227 ! |
2220 |
2228 |
2221 hasApplicationSelected |
2229 hasApplicationSelected |
2222 ^ self selectedApplicationIndexHolder value notNil |
2230 ^ self selectedApplicationIndexHolder value notNil |
2223 ! |
2231 ! |