SL/HowTo localize qatesttool environment into Slovenian

This page contains detailed instructions for qatesttool environment changes to support Slovenian.
WARNING: It is work in progress and it is linked here from issue 107893.

file: testautomation/framework/tools/input/i18ndata.txt

• WARNING: this file contains wrong Slovenian language codes, so this was edited, not added! Look for slovenian and slovenia!
  

       50=slovenian

file: testautomation/global/system/includes/iniinfo.inc
sub GetLanguageInformation
@: select case lcase ( sLanOutIni )

        case "sl_si", "sl-si", "sl" : iSprache = 50        ' Slovenian

function ConvertLanguage
@: select case lCase ( Sprache )

     case "slovenian", "slovenisch"                        : ConvertLanguage = 50

function GetLanguageText
@: select case iLan

     case 50   : GetlanguageText = "Slovenian"

function ConvertLanguage2
@: select case lCase ( sSprache )

        case "sl_si", "sl-si", "sl" : ConvertLanguage2 = 50        ' Slovenian

function ConvertCodeToLanguage
@: select case lCase ( sSprache )

        case "1060" : ConvertCodeToLanguage = 50        ' Slovenian

file: testautomation\writer\optional\includes\regexp\search.inc
testcase tCallDialog
@: select case iSprache

        case 50 : Shortcut = "<Mod1 f>"

testcase tUnderline_Search
@: Select Case iSprache (v obeh vejah/in both if&else!)
if:

        case 50: ToggleAttribute(15,"True")

else:

        case 50: ToggleAttribute(24,"True")             ' Podčrtano

testcase tUnderline_Replace
@: Select Case iSprache (v obeh vejah/in both if&else!)
if:
case 50: ToggleAttribute(15,"True") else:
case 50: ToggleAttribute(24,"True") ' Podčrtano

testcase tParagraphStyle_Search
@: Select Case iSprache
Case 50 : Such_Text = "Naslov"

sub Meldungs_Test
@: select case iSprache
Case 50 : Text_In_Meldung = sProduct & " Writer je preiskal do konca dokumenta. Ali želite nadaljevati na začetku?"

file: testautomation/writer/tools/includes/w_locale_strings2.inc
function wGetLanguageGuessString
@: ***'///already covered Office languages: ///'
'///slovenian 50 ///'

function wGetLanguageGuessString
@:

   Case 50        'Case 50: slovenian
       Select Case iLanguageCount
       Case 1: WordPreSet      = "Jezik besede je angleški (ZDA)"
           ParagraphPreSet = "Jezik odstavka je angleški (ZDA)"
       Case 2: WordPreSet      = "Jezik besede je portugalski (Portugalska)"
           ParagraphPreSet = "Jezik odstavka je portugalski (Portugalska)"
       Case 3: WordPreSet      = "Jezik besede je ruski"
           ParagraphPreSet = "Jezik odstavka je ruski"
       Case 4: WordPreSet      = "Jezik besede je nizozemski (Nizozemska)"
           ParagraphPreSet = "Jezik odstavka je nizozemski (Nizozemska)"
       Case 5: WordPreSet      = "Jezik besede je francoski (Francija)"
           ParagraphPreSet = "Jezik odstavka je francoski (Francija)"
       Case 6: WordPreSet      = "Jezik besede je španski (Španija)"
           ParagraphPreSet = "Jezik odstavka je španski (Španija)"
       Case 7: WordPreSet      = "Jezik besede je madžarski"
           ParagraphPreSet = "Jezik odstavka je madžarski"
       Case 8: WordPreSet      = "Jezik besede je italijanski (Italija)"
           ParagraphPreSet = "Jezik odstavka je italijanski (Italija)"
       Case 9: WordPreSet      = "Jezik besede je švedski (Švedska)"
           ParagraphPreSet = "Jezik odstavka je švedski (Švedska)"
       Case 10:WordPreSet      = "Jezik besede je poljski"
           ParagraphPreSet = "Jezik odstavka je poljski"
       Case 11:WordPreSet      = "Jezik besede je nemški (Nemčija)"
           ParagraphPreSet = "Jezik odstavka je nemški (Nemčija)"
       end select
       '-----------------------------------------------------------------------

file: testautomation\dbaccess\optional\includes\frm_FormFilter.inc
testcase tFF_Navigator
@: elseif iSprache = 50 then if FilterNavigator.getSelText <> "KOT '*value*'" then

           warnlog "The text is not right in the filter navigator. It have to be KOT '*value*' but it is " + FilterNavigator.getSelText
       endif

PREGLEJ ŠE Z GREP: "case 49", " 49"