# HG changeset patch # User Claus Gittinger # Date 1539431140 -7200 # Node ID c0f9b9ddd6bd03f3bc80ca154e8db4ddf88c8f4a # Parent 2a3ea8ecea4d7162707071193f30379f139b9326 #DOCUMENTATION by cg class: Tools::InternationalLanguageTranslationEditor comment/format in: #requestPackage diff -r 2a3ea8ecea4d -r c0f9b9ddd6bd Tools__InternationalLanguageTranslationEditor.st --- a/Tools__InternationalLanguageTranslationEditor.st Fri Oct 12 15:21:07 2018 +0200 +++ b/Tools__InternationalLanguageTranslationEditor.st Sat Oct 13 13:45:40 2018 +0200 @@ -1603,18 +1603,17 @@ allProjects := Smalltalk allPackageIDs. projectsWithResources := allProjects - select:[:pID | - |dir| - dir := Smalltalk projectDirectoryForPackage:pID. - dir notNil and:[ - (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.