1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
(* $Id: clist.ml,v 1.7 2001/09/06 08:47:55 garrigue Exp $ *)
open StdLabels
open GMain
let main () =
let window = GWindow.window ~title:"CList example" ~width:300 ~height:150 () in
window#connect#destroy ~callback:Main.quit;
let vbox = GPack.vbox ~border_width:5 ~packing:window#add () in
let hbox = GPack.hbox ~packing:vbox#add () in
let sb =
GRange.scrollbar `VERTICAL ~packing:(hbox#pack ~from:`END) () in
let clist =
GList.clist ~titles:["Ingredients";"Amount"] ~shadow_type:`OUT
~packing:hbox#add ~vadjustment:sb#adjustment () in
clist#connect#select_row ~callback:
begin fun ~row ~column ~event ->
let text = clist#cell_text row column in
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;
flush stdout
end;
let hbox = GPack.hbox ~packing:vbox#pack () in
let button_add = GButton.button ~label:"Add List" ~packing:hbox#add () in
button_add#connect#clicked ~callback:
begin fun () ->
List.iter ~f:(fun t -> ignore (clist#append t))
[ ["Milk"; "3 Oz"];
["Water"; "6 l"];
["Carrots"; "2"];
["Snakes"; "55"] ]
end;
let button_clear = GButton.button ~label:"Clear List" ~packing:hbox#add () in
button_clear#connect#clicked ~callback:clist#clear;
let button_hide_show =
GButton.button ~label:"Hide/Show titles" ~packing:hbox#add () in
let flag = ref false in
button_hide_show#connect#clicked ~callback:
begin fun () ->
clist#set_titles_show !flag;
flag := not !flag
end;
window#show ();
Main.main ()
let _ = main ()
|
