blob: 7bbfe5963c44ace3d31d6787925cef683aa0e477 (
plain)
1
2
3
4
5
6
7
8
9
|
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
|