(************************************************************
   scrollbar_test.ml	Created      : Sat Nov 22 01:56:33 2003
  			Last modified: Sat Nov 22 02:16:11 2003
  Compile: ocamlc -I +labltk -dtypes labltk.cma scrollbar_test.ml -o scrollbar_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
  let scroll = Scrollbar.create (Winfo.parent list) ~command:(Listbox.yview list)in
  Listbox.configure list ~yscrollcommand:(Scrollbar.set scroll);
  Listbox.insert list ~index:(`Num(0)) ~texts:[ "aki"; "mamewo"; "tak"; "tak"; "tak";"tak";"tak";"tak";"tak";"tak";"tak";"tak";"tak";"tak";"tak";"tak";"tak";"tak";"tak";"tak";"tak";"tak";"tak";];
  pack ~side:`Left ~anchor:`W [ list ];
  pack ~side:`Right ~anchor:`E ~fill:`Both [ scroll ];
  mainLoop ()
;;