added LTL Lithuanian Litas to Euro Converter

Change-Id: Id4eeb42bbbaec979f60b57ddab2794b38f1e3157
Reviewed-on: https://gerrit.libreoffice.org/11090Reviewed-by: Thomas Arnhold <thomas@arnhold.org>
Tested-by: Thomas Arnhold <thomas@arnhold.org>

wizards/source/euro/Init.xba

@@ -90,6 +90,7 @@ Public sCurrMALTESE as String
 Public sCurrSLOVAK as String
 Public sCurrESTONIAN as String
 Public sCurrLATVIAN as String
+Public sCurrLITHUANIAN as String
 Public sCurrUNKNOWN as String
 Public sCurrSYSUNKNOWN as String
 
@@ -134,8 +135,8 @@ Public CurExtension(2) as String
 Public Currfactor as Double
 Public CurrSymbolList(2) as String
 Public CurrLanguage as String
-Public CurrValue(17,5)
-Public LangIDValue(17,2,2) as String
+Public CurrValue(18,5)
+Public LangIDValue(18,2,2) as String
 Public PreName as String
 Public Separator as String
 Public BitmapDir as String
@@ -216,8 +217,9 @@ Dim LocWorkPath as String
 		sCurrSLOVAK = GetResText(1515)
 		sCurrESTONIAN = GetResText(1516)
 		sCurrLATVIAN = GetResText(1517)
-		sCurrUNKNOWN = GetResText(1518)
-		sCurrSYSUNKNOWN = GetResText(1519)
+		sCurrLITHUANIAN = GetResText(1518)
+		sCurrUNKNOWN = GetResText(1519)
+		sCurrSYSUNKNOWN = GetResText(1520)
 		.cmdCancel.Label =  sCANCEL
 		.cmdHelp.Label =  sHELP
 		.cmdBack.Label =  GetResText(1002)
@@ -392,6 +394,11 @@ Sub InitializeLanguages()
     LangIDValue(17,1,1) = "LV"
     LangIDValue(17,1,2) = "-64B"
 
+' CURRENCIES_LITHUANIAN
+    LangIDValue(18,0,0) = "lt"
+    LangIDValue(18,0,1) = "LT"
+    LangIDValue(18,0,2) = "-427"
+
 End Sub
 
 
@@ -562,6 +569,15 @@ Dim i as Integer
 	CurrValue(17,4) = "Ls"
 	CurrValue(17,5) = "LVL"
 
+	CurrValue(18,0) = sCurrLITHUANIAN
+	' real conversion rate
+	CurrValue(18,1) = 3.45280
+	' rounded conversion rate
+	CurrValue(18,2) = 3.5
+	CurrValue(18,3) = "Lt"
+	CurrValue(18,4) = "Lt"
+	CurrValue(18,5) = "LTL"
+
 	i = -1
 	CurrSymbolList(0) = ""
 	CurrSymbolList(1) = ""

wizards/source/euro/euro.src

@@ -412,11 +412,16 @@ Text [ en-US ] = "Latvian Lats";
 
 String CURRENCIES + 18
 {
-Text [ en-US ] = "The currency set for the document is not a European currency!";
+Text [ en-US ] = "Lithuanian Litas";
 };
 
 String CURRENCIES + 19
 {
+Text [ en-US ] = "The currency set for the document is not a European currency!";
+};
+
+String CURRENCIES + 20
+{
 Text [ en-US ] = "The language set for your operating system is not a language of the European Monetary Union.";
 };