otherlibs/labltk/builtin/builtini_GetBitmap.ml


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