Tools__InternationalLanguageTranslationEditor.st
changeset 2419 e71445e7174c
parent 2416 98dbabd36558
child 2433 88fbe1703c31
equal deleted inserted replaced
2418:05e2b9049f24 2419:e71445e7174c
  1467         fromList:languagesList
  1467         fromList:languagesList
  1468         lines:10
  1468         lines:10
  1469 !
  1469 !
  1470 
  1470 
  1471 requestPackage
  1471 requestPackage
  1472     |package|
  1472     |package allProjects projectsWithResources|
       
  1473 
       
  1474     allProjects := Smalltalk allProjectIDs.
       
  1475     projectsWithResources := allProjects
       
  1476                                 select:[:pID |
       
  1477                                     |dir|    
       
  1478                                     dir := Smalltalk projectDirectoryForPackage:pID.    
       
  1479                                     (dir asFilename construct:'resources') exists    
       
  1480                                 ].
  1473 
  1481 
  1474     package := Dialog
  1482     package := Dialog
  1475         requestProject:(resources string:'Name of Package:') 
  1483         requestProject:(resources string:'Name of Package:') 
       
  1484         from:projectsWithResources
  1476         initialAnswer:LastProject 
  1485         initialAnswer:LastProject 
  1477         suggestions:nil.
  1486         suggestions:nil.
  1478 
  1487 
  1479     package isEmptyOrNil ifTrue:[^ nil ].
  1488     package isEmptyOrNil ifTrue:[^ nil ].
  1480     LastProject := package.
  1489     LastProject := package.