' Gambas module file Private $cTr As New Collection Public Sub Load() $cTr.Clear '{ $cTr["Architecture"] = ("Architecture") $cTr["Gambas is a free development environment based on a Basic interpreter with object extensions, a bit like Visual Basic™ (but it is NOT a clone !)."] = ("Gambas is a free development environment based on a Basic interpreter with object extensions, a bit like Visual Basic™ (but it is NOT a clone !).") $cTr["Read the introduction for more information."] = ("Read the introduction for more information.") $cTr["Click there to see all news"] = ("Click there to see all news") $cTr["Download"] = ("Download") $cTr["Release Notes"] = ("Release Notes") $cTr["Donate with PayPal"] = ("Donate with PayPal") $cTr["Flattr this"] = ("Flattr this") $cTr["You can support Gambas by making a small donation with"] = ("You can support Gambas by making a small donation with") $cTr["or by using"] = ("or by using") $cTr["Hall Of Fame"] = ("Hall Of Fame") $cTr["Developers"] = ("Developers") $cTr["Developer"] = ("Developer") $cTr["Country"] = ("Country") $cTr["Working or have worked on..."] = ("Working or have worked on...") $cTr["If you are developing anything directly related to Gambas or its IDE, and not on the previous list, or if you find a mistake in this list, then write me! And explain me who you are and what you have done, so that I add you to the Hall Of Fame."] = ("If you are developing anything directly related to Gambas or its IDE, and not on the previous list, or if you find a mistake in this list, then write me! And explain me who you are and what you have done, so that I add you to the Hall Of Fame.") $cTr["Translations"] = ("Translations") $cTr["Language"] = ("Language") $cTr["Translator(s)"] = ("Translator(s)") $cTr["If you want to translate Gambas, write me so that I add you on the previous table, and read the How To carefully."] = ("If you want to translate Gambas, write me so that I add you on the previous table, and read the How To carefully.") $cTr["If you want to work on an already existing translation, contact the translators."] = ("If you want to work on an already existing translation, contact the translators.") $cTr["English"] = ("English") $cTr["French"] = ("French") $cTr["Spanish"] = ("Spanish") $cTr["Catalonia"] = ("Catalonia") $cTr["German"] = ("German") $cTr["Dutch"] = ("Dutch") $cTr["Czech Republic"] = ("Czech Republic") $cTr["Turkish"] = ("Turkish") $cTr["Arabic"] = ("Arabic") $cTr["Korean"] = ("Korean") $cTr["Chinese"] = ("Chinese") $cTr["Home"] = ("Home") $cTr["Introduction"] = ("Introduction") $cTr["What is Gambas?"] = ("What is Gambas?") $cTr["F. A. Q."] = ("F. A. Q.") $cTr["Reporting a problem"] = ("Reporting a problem") $cTr["Resources"] = ("Resources") $cTr["Bug tracker"] = ("Bug tracker") $cTr["Compilation & Installation"] = ("Compilation & Installation") $cTr["Distributions & O.S."] = ("Distributions & O.S.") $cTr["Mailing lists/Forums"] = ("Mailing lists/Forums") $cTr["Screenshots"] = ("Screenshots") $cTr["Some Applications"] = ("Some Applications") $cTr["Documentation"] = ("Documentation") $cTr["Books"] = ("Books") $cTr["License"] = ("License") $cTr["Wiki Encyclopaedia"] = ("Wiki Encyclopaedia") $cTr["Browse Source Code"] = ("Browse Source Code") $cTr["No software patents in Europe!"] = ("No software patents in Europe!") $cTr["The greatest formula of the world!"] = ("The greatest formula of the world!") '} End Public Sub _get(sStr As String) As String If $cTr.Exist(sStr) Then Return $cTr[sStr] Return sStr End