(************************************************************
   japanese.ml		Created      : Sat Mar 15 05:39:59 2003
  			Last modified: Sat Mar 15 05:41:32 2003
  Compile: ocamlc -I +labltk labltk.cma japanese.ml -o japanese #
  FTP Directory: sources/ocaml #
************************************************************)
(**

  @author Takashi Masuyama <mamewo@dk9.so-net.ne.jp>

*)

open Tk

let _ =
  let window = openTk () in
  let label = Label.create ~text:"¤Þ¤á¤ò" window in
  pack [label];
  mainLoop ()