diff options
| author | Caolán McNamara <caolanm@redhat.com> | 2011-08-17 23:21:11 +0100 |
|---|---|---|
| committer | Caolán McNamara <caolanm@redhat.com> | 2011-08-18 09:16:28 +0100 |
| commit | f0cb9d723ed4b561ec771abbb9f1888c66ba348e (patch) | |
| tree | a005db94478bfca79ab6eafa44aaefd3621f95b0 /wizards/source/euro | |
| parent | f7165615197c6352cd8f02b31dc9c94a4f99fc98 (diff) | |
Related: fdo#33160 Add Estonian Kroon to Euro converter
Diffstat (limited to 'wizards/source/euro')
| -rw-r--r-- | wizards/source/euro/Init.xba | 26 | ||||
| -rw-r--r-- | wizards/source/euro/euro.src | 7 |
2 files changed, 27 insertions, 6 deletions
diff --git a/wizards/source/euro/Init.xba b/wizards/source/euro/Init.xba index 2de1252c7e48..9cd6710c67bc 100644 --- a/wizards/source/euro/Init.xba +++ b/wizards/source/euro/Init.xba @@ -71,6 +71,7 @@ Public sCurrSLOVENIAN as String Public sCurrCYPRIOT as String Public sCurrMALTESE as String Public sCurrSLOVAK as String +Public sCurrESTONIAN as String Public sCurrUNKNOWN as String Public sCurrSYSUNKNOWN as String @@ -79,7 +80,7 @@ Public sPrgsCONVERTING as String Public sPrgsUNPROTECT as String Public sInclusiveSubDir as String -Public Const SBCOUNTRYCOUNT = 15 +Public Const SBCOUNTRYCOUNT = 17 Public CurMimeType as String Public CurCellCount as Long Public oSheets as Object @@ -115,8 +116,8 @@ Public CurExtension(2) as String Public Currfactor as Double Public CurrSymbolList(2) as String Public CurrLanguage as String -Public CurrValue(15,5) -Public LangIDValue(15,2,2) as String +Public CurrValue(16,5) +Public LangIDValue(16,2,2) as String Public PreName as String Public Separator as String Public BitmapDir as String @@ -195,8 +196,9 @@ Dim LocWorkPath as String sCurrCYPRIOT = GetResText(1513) sCurrMALTESE = GetResText(1514) sCurrSLOVAK = GetResText(1515) - sCurrUNKNOWN = GetResText(1516) - sCurrSYSUNKNOWN = GetResText(1517) + sCurrESTONIAN = GetResText(1516) + sCurrUNKNOWN = GetResText(1517) + sCurrSYSUNKNOWN = GetResText(1518) .cmdCancel.Label = sCANCEL .cmdHelp.Label = sHELP .cmdBack.Label = GetResText(1002) @@ -357,6 +359,11 @@ Sub InitializeLanguages() LangIDValue(15,0,1) = "SK" LangIDValue(15,0,2) = "-41B" +' CURRENCIES_ESTONIAN + LangIDValue(16,0,0) = "et" + LangIDValue(16,0,1) = "ET" + LangIDValue(16,0,2) = "-425" + End Sub @@ -509,6 +516,15 @@ Dim i as Integer CurrValue(15,4) = "Sk" CurrValue(15,5) = "SKK" + CurrValue(16,0) = sCurrESTONIAN + ' real conversion rate + CurrValue(16,1) = 15.6466 + ' rounded conversion rate + CurrValue(16,2) = 16 + CurrValue(16,3) = "kr" + CurrValue(16,4) = "kr" + CurrValue(16,5) = "EEK" + i = -1 CurrSymbolList(0) = "" CurrSymbolList(1) = "" diff --git a/wizards/source/euro/euro.src b/wizards/source/euro/euro.src index 257632f8bbb4..d984177caaa3 100644 --- a/wizards/source/euro/euro.src +++ b/wizards/source/euro/euro.src @@ -441,11 +441,16 @@ Text [ en-US ] = "Slovak Koruna"; String CURRENCIES + 16 { -Text [ en-US ] = "The currency set for the document is not a European currency!"; +Text [ en-US ] = "Estonian Kroon"; }; String CURRENCIES + 17 { +Text [ en-US ] = "The currency set for the document is not a European currency!"; +}; + +String CURRENCIES + 18 +{ Text [ en-US ] = "The language set for your operating system is not a language of the European Monetary Union."; }; |