blob: 75a509e69aa141d412fb85f43f1438d8c4468ccb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
##ifdef CAMLTK
(* type *)
type scrollValue =
| ScrollPage of int (* tk option: scroll <int> page *)
| ScrollUnit of int (* tk option: scroll <int> unit *)
| MoveTo of float (* tk option: moveto <float> *)
;;
(* /type *)
##else
(* type *)
type scrollValue = [
| `Page of int (* tk option: scroll <int> page *)
| `Unit of int (* tk option: scroll <int> unit *)
| `Moveto of float (* tk option: moveto <float> *)
]
;;
(* /type *)
##endif
|
