ocaml/otherlibs/labltk/examples_labltk/lang.ml

(***********************************************************************)
(*                                                                     *)
(*                 MLTk, Tcl/Tk interface of OCaml                     *)
(*                                                                     *)
(*    Francois Rouaix, Francois Pessaux, Jun Furuse and Pierre Weis    *)
(*               projet Cristal, INRIA Rocquencourt                    *)
(*            Jacques Garrigue, Kyoto University RIMS                  *)
(*                                                                     *)
(*  Copyright 2002 Institut National de Recherche en Informatique et   *)
(*  en Automatique and Kyoto University.  All rights reserved.         *)
(*  This file is distributed under the terms of the GNU Library        *)
(*  General Public License, with the special exception on linking      *)
(*  described in file LICENSE found in the OCaml source tree.          *)
(*                                                                     *)
(***********************************************************************)

(* language encoding using UTF-8 *)
open Tk

let top = opentk ()

(* declare Tk that we use utf-8 to communicate *)
(* problem: Text display is highly dependent on your font installation
   and configulation. The fonts with no-scale setting are selected
   only if the point sizes are exactly same???
*)
let _ =
  Encoding.system_set "utf-8";
  let l = Label.create top ~text: "???" in
  pack [l];
  let t = Text.create top in
  pack [t];

  let create_hello lang hello =
    let b = Button.create t ~text: lang ~command: (fun () ->
      Label.configure l ~text: hello)
    in
    Text.window_create t ~index: (`End,[]) ~window: b
  in
  List.iter (fun (lang, hello) -> create_hello lang hello)
    ["Amharic(አማርኛ)", "ሠላም";
     "Arabic", "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
     "Croatian (Hrvatski)", "Bog (Bok), Dobar dan";
     "Czech (česky)",       "Dobrý den";
     "Danish (Dansk)", "Hej, Goddag";
     "English", "Hello";
     "Esperanto", "Saluton";
     "Estonian", "Tere, Tervist";
     "FORTRAN", "PROGRAM";
     "Finnish (Suomi)", "Hei";
     "French (Français)", "Bonjour, Salut";
     "German (Deutsch Nord)", "Guten Tag";
     "German (Deutsch Süd)", "Grüß Gott";
     "Greek (Ελληνικά)", "Γειά σας";
     "Hebrew", "שלום";
     "Italiano", "Ciao, Buon giorno";
     "Maltese", "Ciao";
     "Nederlands, Vlaams", "Hallo, Hoi, Goedendag";
     "Norwegian (Norsk)", "Hei, God dag";
     "Polish", "Cześć!";
     "Russian (Русский)", "Здравствуйте!";
     "Slovak", "Dobrý deň";
     "Spanish (Español)", "¡Hola!";
     "Swedish (Svenska)", "Hej, Goddag";
     "Thai (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)", "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
     "Tigrigna (ትግርኛ)", "ሰላማት";
     "Turkish (Türkçe)", "Merhaba";
     "Vietnamese (Tiếng Việt)", "Chào bạn";
     "Japanese (日本語)", "こんにちは";
     "Chinese (中文,普通话,汉语)", "你好";
     "Cantonese (粵語,廣東話)", "早晨, 你好";
     "Hangul (한글)", "안녕하세요, 안녕하십니까" ]
;;

let _ = Printexc.print mainLoop ()