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