(************************************************************
   clipboard_test.ml	Created      : Wed Aug  6 19:54:34 2003
  			Last modified: Wed Aug 06 20:06:07 2003
  Compile: ocamlc -I +labltk labltk.cma clipboard_test.ml -o clipboard_test #
  FTP Directory: sources/ocaml #
************************************************************)
(**
   @author Takashi Masuyama <mamewo@dk9.so-net.ne.jp>

   Clipboard は Tk アプリケーションのなかで閉じているクリップボード
   \C-v で張り付け出来る

   Touch me を触るとクリップボードにデータを付け加える。テキストエントリ内
  で \C-v を押してみよう。
*)

let _ =
  let window = Tk.openTk () in
  let label = Label.create ~text:"Touch me" window in
  let e = Entry.create ~width:10 ~state:`Normal window in
  Tk.pack ~side:`Top [label];
  Tk.pack ~side:`Top [e];
  Tk.bind ~events:[`ButtonPressDetail(1)] ~extend:false
    ~action:(fun e -> Clipboard.append ~data:"aki" (); print_endline "hello"; flush stdout)
    label;
  Tk.mainLoop ()