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