equal
deleted
inserted
replaced
1523 with:(resources string:'directory')allItalic). |
1523 with:(resources string:'directory')allItalic). |
1524 ^ self |
1524 ^ self |
1525 ]. |
1525 ]. |
1526 |
1526 |
1527 self withWaitCursorDo:[ |
1527 self withWaitCursorDo:[ |
1528 projectDefinitionType := ProjectDefinition perform:(self projectTypeHolder value). |
1528 projectDefinitionType := self projectType. "/ ProjectDefinition perform:(self projectTypeHolder value). |
1529 |
1529 |
1530 projectDefinitionClass := ProjectDefinition |
1530 projectDefinitionClass := ProjectDefinition |
1531 definitionClassForPackage:newProjectID |
1531 definitionClassForPackage:newProjectID |
1532 projectType: projectDefinitionType |
1532 projectType: projectDefinitionType |
1533 createIfAbsent:true. |
1533 createIfAbsent:true. |
1555 "/ ]. |
1555 "/ ]. |
1556 "/ ]. |
1556 "/ ]. |
1557 |
1557 |
1558 ]. |
1558 ]. |
1559 |
1559 |
1560 "Modified: / 06-08-2011 / 15:48:01 / cg" |
1560 "Modified: / 06-08-2012 / 16:55:54 / cg" |
1561 ! |
1561 ! |
1562 |
1562 |
1563 createNewStartupClass |
1563 createNewStartupClass |
1564 <resource: #uiCallback> |
1564 <resource: #uiCallback> |
1565 |
1565 |