Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

macosx tk says page 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@10231 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Jacques Garrigue 2010-04-04 02:09:57 +00:00
parent f5fc4d5207
commit 5ed9193051
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
otherlibs/labltk/builtin/builtini_ScrollValue.ml
View File

@ -11,13 +11,13 @@ let cCAMLtoTKscrollValue = function
(* str l -> scrllv -> str l *)
let cTKtoCAMLscrollValue = function
"scroll"::n::"pages"::l ->
"scroll"::n::("pages"|"page")::l ->
ScrollPage (int_of_string n), l
| "scroll"::n::"units"::l ->
ScrollUnit (int_of_string n), l
| "moveto"::f::l ->
MoveTo (float_of_string f), l
| _ -> raise (Invalid_argument "TKtoCAMLscrollValue")
| l -> raise (Invalid_argument (String.concat " " ("TKtoCAMLscrollValue"::l)))
;;
##else
@ -33,13 +33,13 @@ let cCAMLtoTKscrollValue : scrollValue -> tkArgs = function
(* str l -> scrllv -> str l *)
let cTKtoCAMLscrollValue = function
| "scroll" :: n :: "pages" :: l ->
| "scroll" :: n :: ("pages"|"page") :: 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")
| l -> raise (Invalid_argument (String.concat " " ("TKtoCAMLscrollValue"::l)))
;;
##endif