--- a/Tools__InternationalLanguageTranslationEditor.st Wed Oct 15 17:55:59 2008 +0200
+++ b/Tools__InternationalLanguageTranslationEditor.st Sat Oct 18 11:51:12 2008 +0200
@@ -1469,10 +1469,19 @@
!
requestPackage
- |package|
+ |package allProjects projectsWithResources|
+
+ allProjects := Smalltalk allProjectIDs.
+ projectsWithResources := allProjects
+ select:[:pID |
+ |dir|
+ dir := Smalltalk projectDirectoryForPackage:pID.
+ (dir asFilename construct:'resources') exists
+ ].
package := Dialog
requestProject:(resources string:'Name of Package:')
+ from:projectsWithResources
initialAnswer:LastProject
suggestions:nil.