Blame builtin/builtin_ScrollValue.ml
|
Packit |
bd2e5d |
##ifdef CAMLTK
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
(* type *)
|
|
Packit |
bd2e5d |
type scrollValue =
|
|
Packit |
bd2e5d |
| ScrollPage of int (* tk option: scroll <int> page *)
|
|
Packit |
bd2e5d |
| ScrollUnit of int (* tk option: scroll <int> unit *)
|
|
Packit |
bd2e5d |
| MoveTo of float (* tk option: moveto <float> *)
|
|
Packit |
bd2e5d |
;;
|
|
Packit |
bd2e5d |
(* /type *)
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
##else
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
(* type *)
|
|
Packit |
bd2e5d |
type scrollValue = [
|
|
Packit |
bd2e5d |
| `Page of int (* tk option: scroll <int> page *)
|
|
Packit |
bd2e5d |
| `Unit of int (* tk option: scroll <int> unit *)
|
|
Packit |
bd2e5d |
| `Moveto of float (* tk option: moveto <float> *)
|
|
Packit |
bd2e5d |
]
|
|
Packit |
bd2e5d |
;;
|
|
Packit |
bd2e5d |
(* /type *)
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
##endif
|