6 let window = GWindow.window ~title:"CList example" ~width:300 ~height:150 () in
7 window#connect#destroy ~callback:Main.quit;
9 let vbox = GPack.vbox ~border_width:5 ~packing:window#add () in
11 let hbox = GPack.hbox ~packing:vbox#add () in
13 GRange.scrollbar `VERTICAL ~packing:(hbox#pack ~from:`END) () in
15 GList.clist ~titles:["Ingredients";"Amount"] ~shadow_type:`OUT
16 ~packing:hbox#add ~vadjustment:sb#adjustment () in
17 clist#connect#select_row ~callback:
18 begin fun ~row ~column ~event ->
19 let text = clist#cell_text row column in
20 Printf.printf "You selected row %d. More specifically you clicked in column %d, and the text in this cell is %s\n\n" row column text;
24 let hbox = GPack.hbox ~packing:vbox#pack () in
26 let button_add = GButton.button ~label:"Add List" ~packing:hbox#add () in
27 button_add#connect#clicked ~callback:
29 List.iter ~f:(fun t -> ignore (clist#append t))
36 let button_clear = GButton.button ~label:"Clear List" ~packing:hbox#add () in
37 button_clear#connect#clicked ~callback:clist#clear;
39 let button_hide_show =
40 GButton.button ~label:"Hide/Show titles" ~packing:hbox#add () in
41 let flag = ref false in
42 button_hide_show#connect#clicked ~callback:
44 clist#set_titles_show !flag;