1999-11-30 06:59:39 -08:00
|
|
|
let cCAMLtoTKbitmap : bitmap -> tkArgs = function
|
2000-02-16 03:51:37 -08:00
|
|
|
| `File s -> TkToken ("@" ^ s)
|
|
|
|
|
| `Predefined s -> TkToken s
|
1999-11-30 06:59:39 -08:00
|
|
|
|
|
|
|
|
let cTKtoCAMLbitmap s =
|
|
|
|
|
if String.get s 0 = '@'
|
2000-04-11 20:43:25 -07:00
|
|
|
then `File (String.sub s ~pos:1 ~len:(String.length s - 1))
|
1999-11-30 06:59:39 -08:00
|
|
|
else `Predefined s
|
|
|
|
|
|
|
|
|
|
|
