Tools__InternationalLanguageTranslationEditor.st
changeset 2570 4e663bc64364
parent 2434 6ad1f853d2e9
child 2880 263e41303b0a
equal deleted inserted replaced
2569:b55aeaecefda 2570:4e663bc64364
  1484 requestPackage
  1484 requestPackage
  1485     |package allProjects projectsWithResources|
  1485     |package allProjects projectsWithResources|
  1486 
  1486 
  1487     allProjects := Smalltalk allProjectIDs.
  1487     allProjects := Smalltalk allProjectIDs.
  1488     projectsWithResources := allProjects
  1488     projectsWithResources := allProjects
  1489 				select:[:pID |
  1489                                 select:[:pID |
  1490 				    |dir|
  1490                                     |dir|
  1491 				    dir := Smalltalk projectDirectoryForPackage:pID.
  1491                                     dir := Smalltalk projectDirectoryForPackage:pID.
  1492 				    (dir asFilename construct:'resources') exists
  1492                                     dir notNil and:[
  1493 				].
  1493                                     (dir asFilename construct:'resources') exists]
       
  1494                                 ].
  1494 
  1495 
  1495     package := Dialog
  1496     package := Dialog
  1496 	requestProject:(resources string:'Name of Package:')
  1497         requestProject:(resources string:'Name of Package:')
  1497 	from:projectsWithResources
  1498         from:projectsWithResources
  1498 	initialAnswer:LastProject
  1499         initialAnswer:LastProject
  1499 	suggestions:nil.
  1500         suggestions:nil.
  1500 
  1501 
  1501     package isEmptyOrNil ifTrue:[^ nil ].
  1502     package isEmptyOrNil ifTrue:[^ nil ].
  1502     LastProject := package.
  1503     LastProject := package.
  1503     ^ package
  1504     ^ package
  1504 ! !
  1505 ! !