equal
deleted
inserted
replaced
1467 fromList:languagesList |
1467 fromList:languagesList |
1468 lines:10 |
1468 lines:10 |
1469 ! |
1469 ! |
1470 |
1470 |
1471 requestPackage |
1471 requestPackage |
1472 |package| |
1472 |package allProjects projectsWithResources| |
|
1473 |
|
1474 allProjects := Smalltalk allProjectIDs. |
|
1475 projectsWithResources := allProjects |
|
1476 select:[:pID | |
|
1477 |dir| |
|
1478 dir := Smalltalk projectDirectoryForPackage:pID. |
|
1479 (dir asFilename construct:'resources') exists |
|
1480 ]. |
1473 |
1481 |
1474 package := Dialog |
1482 package := Dialog |
1475 requestProject:(resources string:'Name of Package:') |
1483 requestProject:(resources string:'Name of Package:') |
|
1484 from:projectsWithResources |
1476 initialAnswer:LastProject |
1485 initialAnswer:LastProject |
1477 suggestions:nil. |
1486 suggestions:nil. |
1478 |
1487 |
1479 package isEmptyOrNil ifTrue:[^ nil ]. |
1488 package isEmptyOrNil ifTrue:[^ nil ]. |
1480 LastProject := package. |
1489 LastProject := package. |