equal
deleted
inserted
replaced
1427 self updateListOfMatchingProjects. |
1427 self updateListOfMatchingProjects. |
1428 self updateListOfNewProjectsName. |
1428 self updateListOfNewProjectsName. |
1429 |
1429 |
1430 self selectedProjectIndexHolder value:( self listOfMatchingProjects value indexOf:projectDefinitionClass). |
1430 self selectedProjectIndexHolder value:( self listOfMatchingProjects value indexOf:projectDefinitionClass). |
1431 |
1431 |
1432 projectClasses := projectDefinitionClass allClassNames |
1432 projectClasses := projectDefinitionClass allClasses. |
1433 collect:[:nm |Smalltalk classNamed:nm]. |
|
1434 |
1433 |
1435 "/ projectDefinitionClass isGUIApplication ifTrue:[ |
1434 "/ projectDefinitionClass isGUIApplication ifTrue:[ |
1436 "/ "/ see if it has an AppModel class |
1435 "/ "/ see if it has an AppModel class |
1437 "/ (projectClasses contains:[:cls | cls isVisualStartable]) ifFalse:[ |
1436 "/ (projectClasses contains:[:cls | cls isVisualStartable]) ifFalse:[ |
1438 "/ (Dialog confirm:'Create an Application Class ?') ifTrue:[ |
1437 "/ (Dialog confirm:'Create an Application Class ?') ifTrue:[ |
1446 "/ (projectClasses contains:[:cls | cls isStartable]) ifFalse:[ |
1445 "/ (projectClasses contains:[:cls | cls isStartable]) ifFalse:[ |
1447 "/ ]. |
1446 "/ ]. |
1448 "/ ]. |
1447 "/ ]. |
1449 |
1448 |
1450 ]. |
1449 ]. |
|
1450 |
|
1451 "Modified: / 06-08-2011 / 15:48:01 / cg" |
1451 ! |
1452 ! |
1452 |
1453 |
1453 createNewStartupClass |
1454 createNewStartupClass |
1454 <resource: #uiCallback> |
1455 <resource: #uiCallback> |
1455 |
1456 |