Tree - source-git/ocaml-labltk

Blob History Raw

Packit	bd2e5d	`(* Tk_GetBitmap emulation *)`
Packit	bd2e5d
Packit	bd2e5d	`##ifdef CAMLTK`
Packit	bd2e5d
Packit	bd2e5d	`(* type *)`
Packit	bd2e5d	`type bitmap =`
Packit	bd2e5d	`\| BitmapFile of string (* path of file *)`
Packit	bd2e5d	`\| Predefined of string (* bitmap name *)`
Packit	bd2e5d	`;;`
Packit	bd2e5d	`(* /type *)`
Packit	bd2e5d
Packit	bd2e5d	`##else`
Packit	bd2e5d
Packit	bd2e5d	`(* type *)`
Packit	bd2e5d	`type bitmap = [`
Packit	bd2e5d	\| `File of string (* path of file *)
Packit	bd2e5d	\| `Predefined of string (* bitmap name *)
Packit	bd2e5d	`]`
Packit	bd2e5d	`;;`
Packit	bd2e5d	`(* /type *)`
Packit	bd2e5d
Packit	bd2e5d	`##endif`