changed #requestPackage expecco_1_7_1rc1 expecco_1_7_1rc2 expecco_1_7_1rc3 expecco_1_7_1rc4
authorClaus Gittinger <cg@exept.de>
Wed, 29 Jul 2009 20:02:02 +0200
changeset 25704e663bc64364
parent 2569 b55aeaecefda
child 2571 8b182cc4cac7
changed #requestPackage
Tools__InternationalLanguageTranslationEditor.st
     1.1 --- a/Tools__InternationalLanguageTranslationEditor.st	Thu Jul 09 20:07:35 2009 +0200
     1.2 +++ b/Tools__InternationalLanguageTranslationEditor.st	Wed Jul 29 20:02:02 2009 +0200
     1.3 @@ -1486,17 +1486,18 @@
     1.4  
     1.5      allProjects := Smalltalk allProjectIDs.
     1.6      projectsWithResources := allProjects
     1.7 -				select:[:pID |
     1.8 -				    |dir|
     1.9 -				    dir := Smalltalk projectDirectoryForPackage:pID.
    1.10 -				    (dir asFilename construct:'resources') exists
    1.11 -				].
    1.12 +                                select:[:pID |
    1.13 +                                    |dir|
    1.14 +                                    dir := Smalltalk projectDirectoryForPackage:pID.
    1.15 +                                    dir notNil and:[
    1.16 +                                    (dir asFilename construct:'resources') exists]
    1.17 +                                ].
    1.18  
    1.19      package := Dialog
    1.20 -	requestProject:(resources string:'Name of Package:')
    1.21 -	from:projectsWithResources
    1.22 -	initialAnswer:LastProject
    1.23 -	suggestions:nil.
    1.24 +        requestProject:(resources string:'Name of Package:')
    1.25 +        from:projectsWithResources
    1.26 +        initialAnswer:LastProject
    1.27 +        suggestions:nil.
    1.28  
    1.29      package isEmptyOrNil ifTrue:[^ nil ].
    1.30      LastProject := package.