(***********************************************************************)

(*                                                                     *)

(*                 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", "�����������";

     "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 (�������)", "�������, ������";

     "Tigrigna (ትግርኛ)", "ሰላማት";

     "Turkish (Türkçe)", "Merhaba";

     "Vietnamese (Tiếng Việt)", "Chào bạn";

     "Japanese (日本語)", "こんにちは";

     "Chinese (中文,普通话,汉语)", "你好";

     "Cantonese (粵語,廣東話)", "早晨, 你好";

     "Hangul (한글)", "안녕하세요, 안녕하십니까" ]

;;

let _ = Printexc.print mainLoop ()