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