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
|
##ifdef CAMLTK
let cCAMLtoTKbindings = function
| WidgetBindings v1 -> cCAMLtoTKwidget widget_any_table v1
| TagBindings v1 -> TkToken v1
;;
(* this doesn't really belong here *)
let cTKtoCAMLbindings s =
if String.length s > 0 && s.[0] = '.' then
WidgetBindings (cTKtoCAMLwidget s)
else TagBindings s
;;
##else
let cCAMLtoTKbindings = function
| `Widget v1 -> cCAMLtoTKwidget v1
| `Tag v1 -> TkToken v1
;;
(* this doesn't really belong here *)
let cTKtoCAMLbindings s =
if String.length s > 0 && s.[0] = '.' then
`Widget (cTKtoCAMLwidget s)
else `Tag s
;;
##endif
|
