(************************************************************
   listbox_test.ml	Created      : Sat Nov 22 00:54:19 2003
  			Last modified: Sat Nov 22 01:07:03 2003
  Compile: ocamlc -dtypes -I +labltk labltk.cma listbox_test.ml -o listbox_test #
  FTP Directory: sources/ocaml #
************************************************************)
(**

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

*)

open Tk

let _ =
  let window = openTk () in
  let list = Listbox.create window in
  Listbox.insert list ~index:(`Num(0)) ~texts:[ "aki"; "mamewo"; "tak" ];
  pack [ list ];
  mainLoop ()
;;