34 lines
803 B
OCaml
34 lines
803 B
OCaml
##ifdef CAMLTK
|
|
|
|
let cTKtoCAMLimage s =
|
|
let res = tkEval [|TkToken "image"; TkToken "type"; TkToken s|] in
|
|
match res with
|
|
| "bitmap" -> ImageBitmap (BitmapImage s)
|
|
| "photo" -> ImagePhoto (PhotoImage s)
|
|
| _ -> raise (TkError ("unknown image type \"" ^ res ^ "\""))
|
|
;;
|
|
|
|
let names () =
|
|
let res = tkEval [|TkToken "image"; TkToken "names"|] in
|
|
let names = splitlist res in
|
|
List.map cTKtoCAMLimage names
|
|
;;
|
|
|
|
##else
|
|
|
|
let cTKtoCAMLimage s =
|
|
let res = tkEval [|TkToken "image"; TkToken "type"; TkToken s|] in
|
|
match res with
|
|
| "bitmap" -> `Bitmap s
|
|
| "photo" -> `Photo s
|
|
| _ -> raise (TkError ("unknown image type \"" ^ res ^ "\""))
|
|
;;
|
|
|
|
let names () =
|
|
let res = tkEval [|TkToken "image"; TkToken "names"|] in
|
|
let names = splitlist res in
|
|
List.map cTKtoCAMLimage names
|
|
;;
|
|
|
|
##endif
|