# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1450104250 -3600
# Node ID 034fe0de47bd181876ef2ad2cd5908131d1aaca7
# Parent  ff9a2e01e0a592a3a8e8f282f93a54c20eb5d2e5
#BUGFIX
class: Tools::InternationalLanguageTranslationEditor
changed:
	#addAllTranslations:
	#removeLanguage

diff -r ff9a2e01e0a5 -r 034fe0de47bd Tools__InternationalLanguageTranslationEditor.st
--- a/Tools__InternationalLanguageTranslationEditor.st	Mon Dec 14 11:04:21 2015 +0100
+++ b/Tools__InternationalLanguageTranslationEditor.st	Mon Dec 14 15:44:10 2015 +0100
@@ -1910,13 +1910,13 @@
 !
 
 removeLanguage
-    |lang|
-
-    lang := Dialog choose:'Which language do you want to remove?' fromList:languagesList lines:10.
-    lang isNil ifTrue:[^ self ].
-    (Dialog confirm: 'Are you sure to remove the language ', lang ) ifTrue:[
-	  self languagesList remove:lang.
-	  self shownLanguages remove:lang.
+    |languagesToRemove|
+
+    languagesToRemove := Dialog chooseMultiple:'Which language(s) do you want to remove?' fromList:languagesList lines:10.
+    languagesToRemove isEmptyOrNil ifTrue:[^ self ].
+    (Dialog confirm: 'Are you sure to remove the languages: ', languagesToRemove printString) ifTrue:[
+          self languagesList removeAll:languagesToRemove.
+          self shownLanguages removeAll:languagesToRemove.
     ].
 !
 
@@ -2121,15 +2121,18 @@
     newTranslationKeys := newTranslationKeys select:[:k | (keyStringsToLanguageMappings includesKey:k) not].
     newTranslationKeys := newTranslationKeys
                                 collect:[:k |
-                                        (k endsWith:'...') ifTrue:[
+                                        (k endsWith:' ...') ifTrue:[
+                                            k copyButLast:4.
+                                        ] ifFalse:[(k endsWith:'...') ifTrue:[
                                             k copyButLast:3.
                                         ] ifFalse:[
-                                            ('.:?' includes:k last) ifTrue:[
+                                            ('\.:?=,!! ' includes:k last) ifTrue:[
                                                 k copyButLast:1.
                                             ] ifFalse:[
                                                 k
-                                        ]]].
+                                        ]]]].
     newTranslationKeys := newTranslationKeys asSet.
+    newTranslationKeys := newTranslationKeys select:[:k | (keyStringsToLanguageMappings includesKey:k) not].
 
     newTranslationKeys notEmpty ifTrue:[
         stringKeys := newTranslationKeys select:[:k | k isString].
@@ -3248,5 +3251,9 @@
 
 version
     ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
 ! !