blob: d18111127daaf49521218027fea62cad1dcd0e29 (
plain)
1
2
3
4
5
6
7
8
9
10
|
let cCAMLtoTKbitmap : bitmap -> tkArgs = function
`File s -> TkToken ("@" ^ s)
| `Predefined s -> TkToken s
let cTKtoCAMLbitmap s =
if String.get s 0 = '@'
then `File (String.sub s pos:1 len:(String.length s - 1))
else `Predefined s
|