otherlibs/labltk/builtin/builtini_GetBitmap.ml


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