equal
deleted
inserted
replaced
1601 requestPackage |
1601 requestPackage |
1602 |package allProjects projectsWithResources| |
1602 |package allProjects projectsWithResources| |
1603 |
1603 |
1604 allProjects := Smalltalk allPackageIDs. |
1604 allProjects := Smalltalk allPackageIDs. |
1605 projectsWithResources := allProjects |
1605 projectsWithResources := allProjects |
1606 select:[:pID | |
1606 select:[:pID | |
1607 |dir| |
1607 |dir| |
1608 dir := Smalltalk projectDirectoryForPackage:pID. |
1608 dir := Smalltalk projectDirectoryForPackage:pID. |
1609 dir notNil and:[ |
1609 dir notNil and:[ (dir asFilename construct:'resources') exists] |
1610 (dir asFilename construct:'resources') exists] |
1610 ]. |
1611 ]. |
|
1612 |
1611 |
1613 package := Dialog |
1612 package := Dialog |
1614 requestProject:(resources string:'Name of Package:') |
1613 requestProject:(resources string:'Name of Package:') |
1615 from:projectsWithResources |
1614 from:projectsWithResources |
1616 initialAnswer:LastProject |
1615 initialAnswer:LastProject |
1617 suggestions:nil. |
1616 suggestions:nil. |
1618 |
1617 |
1619 package isEmptyOrNil ifTrue:[^ nil ]. |
1618 package isEmptyOrNil ifTrue:[^ nil ]. |
1620 LastProject := package. |
1619 LastProject := package. |
1621 ^ package |
1620 ^ package |
1622 ! ! |
1621 ! ! |