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
|
(**************************************************************************)
(* Lablgtk - Examples *)
(* *)
(* This code is in the public domain. *)
(* You may freely copy parts of it in your application. *)
(* *)
(**************************************************************************)
(* ocamlc -g -I ../src lablgtk.cma about.ml -o about *)
let show () =
let dialog =
GWindow.about_dialog
~name:"Name"
~authors:["Me" ;
"Myself";
]
~copyright:"Copyright: copyleft"
~license:"Open"
~website:"http://www.world.com"
~website_label:"Questions and support"
~version:"0.0"
()
in
ignore (dialog#connect#response
~callback:(fun _ -> dialog#show ()
));
ignore (dialog#run ())
let () =
GMain.Main.init ();
show ()
|
