diff options
Diffstat (limited to 'otherlibs/labltk/builtin/builtini_GetBitmap.ml')
| -rw-r--r-- | otherlibs/labltk/builtin/builtini_GetBitmap.ml | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/otherlibs/labltk/builtin/builtini_GetBitmap.ml b/otherlibs/labltk/builtin/builtini_GetBitmap.ml new file mode 100644 index 000000000..d18111127 --- /dev/null +++ b/otherlibs/labltk/builtin/builtini_GetBitmap.ml @@ -0,0 +1,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 + + |