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
|
##ifdef CAMLTK
let cCAMLtoTKbitmap = function
BitmapFile s -> TkToken ("@" ^ s)
| Predefined s -> TkToken s
;;
let cTKtoCAMLbitmap s =
if s = "" then Predefined ""
else if String.get s 0 = '@'
then BitmapFile (String.sub s 1 (String.length s - 1))
else Predefined s
;;
##else
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
;;
##endif
|
