blob: 28110337d893e39a2b3b48239cbccc2bc8fd1aa2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
let cCAMLtoTKscrollValue : scrollValue -> tkArgs = function
| `Page v1 ->
TkTokenList [TkToken"scroll"; TkToken (string_of_int v1); TkToken"pages"]
| `Unit v1 ->
TkTokenList [TkToken"scroll"; TkToken (string_of_int v1); TkToken"units"]
| `Moveto v1 ->
TkTokenList [TkToken"moveto"; TkToken (string_of_float v1)]
(* str l -> scrllv -> str l *)
let cTKtoCAMLscrollValue = function
| "scroll" :: n :: "pages" :: l ->
`Page (int_of_string n), l
| "scroll" :: n :: "units" :: l ->
`Unit (int_of_string n), l
| "moveto" :: f :: l ->
`Moveto (float_of_string f), l
| _ -> raise (Invalid_argument "TKtoCAMLscrollValue")
|