Scroll positions are now floats

Adapt to Dom_html API change
(ocsigen/js_of_ocaml#1747).

Author: vouillon

dune-project

@@ -26,13 +26,13 @@ The client-side code is compiled to JS using Ocsigen Js_of_ocaml or to Wasm usin
   ocamlfind
   ppx_deriving
   (ppxlib (>= 0.15))
-  (js_of_ocaml-compiler (and (>= 5.5) (< 6.0)))
-  (js_of_ocaml (>= 5.5))
-  (js_of_ocaml-lwt (>= 5.5))
+  (js_of_ocaml-compiler (>= 6.0))
+  (js_of_ocaml (>= 6.0))
+  (js_of_ocaml-lwt (>= 6.0))
   (js_of_ocaml-ocamlbuild :build)
-  (js_of_ocaml-ppx (>= 5.5))
-  (js_of_ocaml-ppx_deriving_json (>= 5.5))
-  (js_of_ocaml-tyxml (>= 5.5))
+  (js_of_ocaml-ppx (>= 6.0))
+  (js_of_ocaml-ppx_deriving_json (>= 6.0))
+  (js_of_ocaml-tyxml (>= 6.0))
   lwt_log
   (tyxml (and (>= 4.6) (< 4.7)))
   (ocsigenserver (and (>= 6.0) (< 7.0)))

eliom.opam

@@ -22,13 +22,13 @@ depends: [
   "ocamlfind"
   "ppx_deriving"
   "ppxlib" {>= "0.15"}
-  "js_of_ocaml-compiler" {>= "5.5" & < "6.0"}
-  "js_of_ocaml" {>= "5.5"}
-  "js_of_ocaml-lwt" {>= "5.5"}
+  "js_of_ocaml-compiler" {>= "6.0"}
+  "js_of_ocaml" {>= "6.0"}
+  "js_of_ocaml-lwt" {>= "6.0"}
   "js_of_ocaml-ocamlbuild" {build}
-  "js_of_ocaml-ppx" {>= "5.5"}
-  "js_of_ocaml-ppx_deriving_json" {>= "5.5"}
-  "js_of_ocaml-tyxml" {>= "5.5"}
+  "js_of_ocaml-ppx" {>= "6.0"}
+  "js_of_ocaml-ppx_deriving_json" {>= "6.0"}
+  "js_of_ocaml-tyxml" {>= "6.0"}
   "lwt_log"
   "tyxml" {>= "4.6" & < "4.7"}
   "ocsigenserver" {>= "6.0" & < "7.0"}

src/lib/client/eliommod_dom.ml

@@ -687,18 +687,18 @@ let preload_css (doc : Dom_html.element Js.t) =
 [@@@warning "-39"]
 
 type position =
-  {html_top : int; html_left : int; body_top : int; body_left : int}
+  {html_top : float; html_left : float; body_top : float; body_left : float}
 [@@deriving json]
 
 [@@@warning "+39"]
 
-let top_position = {html_top = 0; html_left = 0; body_top = 0; body_left = 0}
+let top_position = {html_top = 0.; html_left = 0.; body_top = 0.; body_left = 0.}
 
 let createDocumentScroll () =
-  { html_top = Dom_html.document##.documentElement##.scrollTop
-  ; html_left = Dom_html.document##.documentElement##.scrollLeft
-  ; body_top = Dom_html.document##.body##.scrollTop
-  ; body_left = Dom_html.document##.body##.scrollLeft }
+  { html_top = Js.to_float Dom_html.document##.documentElement##.scrollTop
+  ; html_left = Js.to_float Dom_html.document##.documentElement##.scrollLeft
+  ; body_top = Js.to_float Dom_html.document##.body##.scrollTop
+  ; body_left = Js.to_float Dom_html.document##.body##.scrollLeft }
 
 (* With firefox, the scroll position is restored before to fire the
    popstate event. We maintain our own position. *)
@@ -719,10 +719,10 @@ let _ =
 let getDocumentScroll () = !current_position
 
 let setDocumentScroll pos =
-  Dom_html.document##.documentElement##.scrollTop := pos.html_top;
-  Dom_html.document##.documentElement##.scrollLeft := pos.html_left;
-  Dom_html.document##.body##.scrollTop := pos.body_top;
-  Dom_html.document##.body##.scrollLeft := pos.body_left;
+  Dom_html.document##.documentElement##.scrollTop := Js.float pos.html_top;
+  Dom_html.document##.documentElement##.scrollLeft := Js.float pos.html_left;
+  Dom_html.document##.body##.scrollTop := Js.float pos.body_top;
+  Dom_html.document##.body##.scrollLeft := Js.float pos.body_left;
   current_position := pos
 
 (* UGLY HACK for Opera bug: Opera seem does not always take into

src/lib/client/eliommod_dom.mli

@@ -86,7 +86,7 @@ val iter_attrList :
 (** Window scrolling. *)
 
 type position =
-  {html_top : int; html_left : int; body_top : int; body_left : int}
+  {html_top : float; html_left : float; body_top : float; body_left : float}
 [@@deriving json]
 
 val top_position : position