--- a/Tools__InternationalLanguageTranslationEditor.st	Sun Feb 15 11:29:55 2015 +0100
+++ b/Tools__InternationalLanguageTranslationEditor.st	Mon Feb 16 18:03:18 2015 +0100
@@ -1684,18 +1684,9 @@
 extractTranslationsFromProject
     |box projectID newTranslations|
 
-    box := ListSelectionBox new.
-"/    box useComboBoxWithList:(Smalltalk allProjectIDs).
-    box title:(resources string:'Project to extract translations from:').
-    box list:Smalltalk allProjectIDs.
-    box okAction:[:sel | projectID := sel].
-    box initialText:(lastExtractedProject ? LastExtractedProject).
-    box label:'Find Translations in Project'.
-
-    box showAtPointer.
-
+    projectID := Dialog requestProject:(resources string:'Package to extract translations from:') initialAnswer:(lastExtractedProject ? LastExtractedProject) suggestions:(lastExtractedProject ? LastExtractedProject).
     projectID notNil ifTrue:[
-	projectID := projectID withoutSeparators asSymbol.
+        projectID := projectID withoutSeparators asSymbol.
     ].
     projectID isEmptyOrNil ifTrue:[^ self ].
 
@@ -1704,13 +1695,15 @@
     newTranslations := Set new.
 
     Smalltalk allClassesDo:[:eachClass |
-	eachClass theNonMetaclass package == projectID ifTrue:[
+        eachClass theNonMetaclass package == projectID ifTrue:[
 "/ eachClass isLoaded ifTrue:[ self halt. ].
-	    newTranslations addAll:( self extractTranslationsFromClass:eachClass theNonMetaclass).
-	]
+            newTranslations addAll:( self extractTranslationsFromClass:eachClass theNonMetaclass).
+        ]
     ].
 
     self addAllTranslations:newTranslations.
+
+    "Modified: / 16-02-2015 / 16:54:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 importExistingTranslationsFromFile