|
Packit |
bd2e5d |
##ifdef CAMLTK
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
let cCAMLtoTKscrollValue = function
|
|
Packit |
bd2e5d |
ScrollPage v1 ->
|
|
Packit |
bd2e5d |
TkTokenList [TkToken"scroll"; TkToken (string_of_int v1); TkToken"pages"]
|
|
Packit |
bd2e5d |
| ScrollUnit v1 ->
|
|
Packit |
bd2e5d |
TkTokenList [TkToken"scroll"; TkToken (string_of_int v1); TkToken"units"]
|
|
Packit |
bd2e5d |
| MoveTo v1 ->
|
|
Packit |
bd2e5d |
TkTokenList [TkToken"moveto"; TkToken (Printf.sprintf "%g" v1)]
|
|
Packit |
bd2e5d |
;;
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
(* str l -> scrllv -> str l *)
|
|
Packit |
bd2e5d |
let cTKtoCAMLscrollValue = function
|
|
Packit |
bd2e5d |
"scroll"::n::("pages"|"page")::l ->
|
|
Packit |
bd2e5d |
ScrollPage (int_of_string n), l
|
|
Packit |
bd2e5d |
| "scroll"::n::"units"::l ->
|
|
Packit |
bd2e5d |
ScrollUnit (int_of_string n), l
|
|
Packit |
bd2e5d |
| "moveto"::f::l ->
|
|
Packit |
bd2e5d |
MoveTo (float_of_string f), l
|
|
Packit |
bd2e5d |
| l -> raise (Invalid_argument (String.concat " " ("TKtoCAMLscrollValue"::l)))
|
|
Packit |
bd2e5d |
;;
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
##else
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
let cCAMLtoTKscrollValue : scrollValue -> tkArgs = function
|
|
Packit |
bd2e5d |
| `Page v1 ->
|
|
Packit |
bd2e5d |
TkTokenList [TkToken"scroll"; TkToken (string_of_int v1); TkToken"pages"]
|
|
Packit |
bd2e5d |
| `Unit v1 ->
|
|
Packit |
bd2e5d |
TkTokenList [TkToken"scroll"; TkToken (string_of_int v1); TkToken"units"]
|
|
Packit |
bd2e5d |
| `Moveto v1 ->
|
|
Packit |
bd2e5d |
TkTokenList [TkToken"moveto"; TkToken (Printf.sprintf "%g" v1)]
|
|
Packit |
bd2e5d |
;;
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
(* str l -> scrllv -> str l *)
|
|
Packit |
bd2e5d |
let cTKtoCAMLscrollValue = function
|
|
Packit |
bd2e5d |
| "scroll" :: n :: ("pages"|"page") :: l ->
|
|
Packit |
bd2e5d |
`Page (int_of_string n), l
|
|
Packit |
bd2e5d |
| "scroll" :: n :: "units" :: l ->
|
|
Packit |
bd2e5d |
`Unit (int_of_string n), l
|
|
Packit |
bd2e5d |
| "moveto" :: f :: l ->
|
|
Packit |
bd2e5d |
`Moveto (float_of_string f), l
|
|
Packit |
bd2e5d |
| l -> raise (Invalid_argument (String.concat " " ("TKtoCAMLscrollValue"::l)))
|
|
Packit |
bd2e5d |
;;
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
##endif
|