# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1224323472 -7200
# Node ID e71445e7174c03dd3b10db0c8a59eada44d4111a
# Parent  05e2b9049f248e04263db1334708272958a90d14
*** empty log message ***

diff -r 05e2b9049f24 -r e71445e7174c Tools__InternationalLanguageTranslationEditor.st
--- 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.