mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added LTL Lithuanian Litas to Euro Converter

Browse Source 
Change-Id: Id4eeb42bbbaec979f60b57ddab2794b38f1e3157
Reviewed-on: https://gerrit.libreoffice.org/11090
Reviewed-by: Thomas Arnhold <thomas@arnhold.org>
Tested-by: Thomas Arnhold <thomas@arnhold.org>
This commit is contained in:
Aurimas Fišeras
2014-08-23 12:12:12 +03:00
committed by Thomas Arnhold
parent a150d06bc5
commit 0b3e1d9b22
2 changed files with 26 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
wizards/source/euro/Init.xba
View File

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

7
wizards/source/euro/euro.src
View File

@@ -412,11 +412,16 @@ Text [ en-US ] = "Latvian Lats";
String CURRENCIES + 18 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 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."; Text [ en-US ] = "The language set for your operating system is not a language of the European Monetary Union.";
}; };