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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
(*********************************************************************************)
(* Cameleon *)
(* *)
(* Copyright (C) 2004-2010 Institut National de Recherche en Informatique *)
(* et en Automatique. All rights reserved. *)
(* *)
(* This program is free software; you can redistribute it and/or modify *)
(* it under the terms of the GNU Library General Public License as *)
(* published by the Free Software Foundation; either version 2 of the *)
(* License, or any later version. *)
(* *)
(* This program is distributed in the hope that it will be useful, *)
(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *)
(* GNU Library General Public License for more details. *)
(* *)
(* You should have received a copy of the GNU Library General Public *)
(* License along with this program; if not, write to the Free Software *)
(* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA *)
(* 02111-1307 USA *)
(* *)
(* Contact: Maxence.Guesdon@inria.fr *)
(* *)
(*********************************************************************************)
(* Compile with
ocamlfind ocamlc -package lablgtk2-extras.configwin -linkpkg \
-o configwin_example.x <this_file>
*)
open Configwin
let _ = GMain.Main.init ()
let param1 = string ~help: "a string" "a string" "a value"
let param2 = bool ~help: "bool value" "a boolean" true
let param3 = filename ~help: "a file name" "a file name" "foo"
let param4 = strings
~help: "a list of strings"
~eq: (fun _ -> fun _ -> false)
~add: (fun () -> [ Glib.Convert.locale_to_utf8 "another string" ;
Glib.Convert.locale_to_utf8 "and another string"])
"a string list" ["foo" ; "bar"]
let param5 = color ~help: "a color" "a color" "Red"
let param6 = font ~help: "a font" "a font" "7x13bold"
let param7 = date ~help: "a date" "a date" (1, 0, 2002)
let n = ref 0
let param8 = list
~help: "a list of int"
~add: (fun () -> incr n; [!n])
~titles: [ Glib.Convert.locale_to_utf8 "n" ;
Glib.Convert.locale_to_utf8 "n*n"]
"an int list"
(fun n -> [ Glib.Convert.locale_to_utf8 (string_of_int n) ;
Glib.Convert.locale_to_utf8 (string_of_int (n*n))
])
[1 ; 2 ; 3]
let param9 = filenames ~help: "a list of filenames" "filenames" []
let param10 = hotkey ~help: "a hot key"
"hot key" ([`CONTROL], GdkKeysyms._C)
let param11 = html ~help: "HTML code" ~expand: true "HTML"
(Glib.Convert.locale_to_utf8 "Type your HTML code here")
let structure = Section_list ("Section 1",
[
Section ("Section 1.1",
[ param1 ; param2 ; param5 ; param6 ; param7 ; param9]);
Section ("Section 1.2",
[ param3 ; param4; (*param8 ;*)param10]) ;
Section ("Section 1.3",
[ param11 ]) ;
]
)
(*
let _ = Configwin.edit ~apply: (fun () -> prerr_endline "Apply!") "Titre" [structure]
let _ = Configwin.edit "Titre" [structure]
let _ = Configwin.simple_get "simple_get"
[ param1 ; param2 ; param5 ; param6 ; param7 ; param9 ; param10 ; param11]
*)
let param12 = html ~help: "HTML code" ~expand: true "HTML"
(Glib.Convert.locale_to_utf8 "PARAM 12 Type your HTML code here")
let f p =
Gc.major ();
let _ = Configwin.edit "Titre"
[Section ("coucou",
[
(*
*)
p ;
param1 ;
param2 ;
param3 ;
param4 ;
param5 ;
param6 ;
param7 ;
param8 ;
param9 ;
param10 ;
(*
*)
]
)
]
in
()
let _ = List.iter f [param11 ; param12]
|
