--- a/Tools__InternationalLanguageTranslationEditor.st Thu Jul 09 20:07:35 2009 +0200
+++ b/Tools__InternationalLanguageTranslationEditor.st Wed Jul 29 20:02:02 2009 +0200
@@ -1486,17 +1486,18 @@
allProjects := Smalltalk allProjectIDs.
projectsWithResources := allProjects
- select:[:pID |
- |dir|
- dir := Smalltalk projectDirectoryForPackage:pID.
- (dir asFilename construct:'resources') exists
- ].
+ select:[:pID |
+ |dir|
+ dir := Smalltalk projectDirectoryForPackage:pID.
+ dir notNil and:[
+ (dir asFilename construct:'resources') exists]
+ ].
package := Dialog
- requestProject:(resources string:'Name of Package:')
- from:projectsWithResources
- initialAnswer:LastProject
- suggestions:nil.
+ requestProject:(resources string:'Name of Package:')
+ from:projectsWithResources
+ initialAnswer:LastProject
+ suggestions:nil.
package isEmptyOrNil ifTrue:[^ nil ].
LastProject := package.