1163 (%2 can be a path like "dir/dir/...").' with:(resources string:'module')allItalic |
1163 (%2 can be a path like "dir/dir/...").' with:(resources string:'module')allItalic |
1164 with:(resources string:'directory')allItalic). |
1164 with:(resources string:'directory')allItalic). |
1165 ^ self |
1165 ^ self |
1166 ]. |
1166 ]. |
1167 |
1167 |
1168 projectDefinitionType := ProjectDefinition perform:(self projectTypeHolder value). |
1168 self withWaitCursorDo:[ |
1169 |
1169 projectDefinitionType := ProjectDefinition perform:(self projectTypeHolder value). |
1170 projectDefinitionClass := ProjectDefinition |
1170 |
1171 definitionClassForPackage:newProjectID |
1171 projectDefinitionClass := ProjectDefinition |
1172 projectType: projectDefinitionType |
1172 definitionClassForPackage:newProjectID |
1173 createIfAbsent:true. |
1173 projectType: projectDefinitionType |
1174 |
1174 createIfAbsent:true. |
1175 projectDefinitionClass compileDescriptionMethods. |
1175 |
1176 self updateListOfMatchingProjects. |
1176 projectDefinitionClass compileDescriptionMethods. |
1177 self updateListOfNewProjectsName. |
1177 self updateListOfMatchingProjects. |
1178 |
1178 self updateListOfNewProjectsName. |
1179 self selectedProjectIndexHolder value:( self listOfMatchingProjects value indexOf:projectDefinitionClass). |
1179 |
1180 |
1180 self selectedProjectIndexHolder value:( self listOfMatchingProjects value indexOf:projectDefinitionClass). |
1181 projectClasses := projectDefinitionClass allClassNames |
1181 |
1182 collect:[:nm |Smalltalk classNamed:nm]. |
1182 projectClasses := projectDefinitionClass allClassNames |
|
1183 collect:[:nm |Smalltalk classNamed:nm]. |
1183 |
1184 |
1184 "/ projectDefinitionClass isGUIApplication ifTrue:[ |
1185 "/ projectDefinitionClass isGUIApplication ifTrue:[ |
1185 "/ "/ see if it has an AppModel class |
1186 "/ "/ see if it has an AppModel class |
1186 "/ (projectClasses contains:[:cls | cls isVisualStartable]) ifFalse:[ |
1187 "/ (projectClasses contains:[:cls | cls isVisualStartable]) ifFalse:[ |
1187 "/ (Dialog confirm:'Create an Application Class ?') ifTrue:[ |
1188 "/ (Dialog confirm:'Create an Application Class ?') ifTrue:[ |
1193 "/ projectDefinitionClass isLibrary ifFalse:[ |
1194 "/ projectDefinitionClass isLibrary ifFalse:[ |
1194 "/ "/ see if it has a Startup class |
1195 "/ "/ see if it has a Startup class |
1195 "/ (projectClasses contains:[:cls | cls isStartable]) ifFalse:[ |
1196 "/ (projectClasses contains:[:cls | cls isStartable]) ifFalse:[ |
1196 "/ ]. |
1197 "/ ]. |
1197 "/ ]. |
1198 "/ ]. |
|
1199 |
|
1200 ]. |
1198 ! |
1201 ! |
1199 |
1202 |
1200 createNewStartupClass |
1203 createNewStartupClass |
1201 <resource: #uiCallback> |
1204 <resource: #uiCallback> |
1202 |
1205 |