(************************************************************
   selection_test.ml	Created      : Sat Sep  6 17:10:41 2003
  			Last modified: Sat Sep 06 17:17:02 2003
  Compile: ocamlc -I +labltk labltk.cma selection_test.ml -o selection_test #
  FTP Directory: sources/ocaml #
************************************************************)
(**
   label が selection を得るってどういうこと?? 

結果。
  pos 0
  len 4000

len 4000 って。。。。

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

*)
let _ =
  let window = Tk.openTk () in
  let label = Label.create ~text:"Touch me" window in
  Tk.pack ~side:`Top [label];
  Selection.handle_set ~command:(fun ~pos ~len -> Printf.sprintf "pos %d\nlen %d\n" pos len)
    label;
  Tk.bind ~events:[`ButtonPressDetail(2)] ~extend:false
    ~action:(fun e -> Selection.own_set label) label;
  Tk.mainLoop ()