(************************************************************
   gtk2_treeview_list.ml	Created      : Wed Jun  8 00:19:42 2005
  			Last modified: Thu Jun 09 00:14:21 2005
  Compile: ocamlc -dtypes -I +lablgtk2 -w -s lablgtk.cma gtkInit.cmo gtk2_treeview_list.ml -o gtk2_treeview_list #
  FTP Directory: sources/ocaml #
************************************************************)
(**

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

*)

open GtkWindow
open GtkTree
open Gobject
open Gobject.Data

let w = Window.create ~kind:`TOPLEVEL []
;;
let liststore = ListStore.create [| Type.from_name "gchararray" |]
;;
let column = 
  let col = TreeViewColumn.create [ param TreeViewColumn.P.title "name"; param TreeViewColumn.P.visible true] in
  let renderer = CellRendererText.create [] in
  begin
    TreeViewColumn.pack_start col renderer false;
    TreeViewColumn.add_attribute col renderer "text" 0;
    col
  end
;;
begin
  let iter = ListStore.append liststore () in
  ListStore.set_value liststore ~row:iter ~column:0 (to_value string "tak");
  let iter = ListStore.append liststore () in
  ListStore.set_value liststore ~row:iter ~column:0 (to_value string "mamewo");
  let treeview = TreeView.make_params ~cont:(fun pl () -> (TreeView.create pl)) ~model:(liststore :> Gtk.tree_model) [ param TreeView.P.headers_visible false ] () in
  TreeView.append_column treeview column;
  GtkBase.Container.add w treeview;
  GtkBase.Widget.show_all w;
  GtkMain.Main.main ()
end

(*
 * Local Variables:
 *  namazu-default-dir "/home/tak/.indexes/ocaml"
 * End:
 *)