Merge pull request #213 from spalmer25/ot_tip_get_the_right_document_…

…width [ot-tip] Use document client width instead of window inner width
ocsigen · Sep 16, 2021 · 9148587 · 9148587
2 parents 32f5489 + 09d8dc1
commit 9148587
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 6 deletions.
diff --git a/opam b/opam
@@ -1,6 +1,6 @@
 opam-version: "2.0"
 name: "ocsigen-toolkit"
-version: "2.13.0"
+version: "3.0.1"
 maintainer: "[email protected]"
 synopsis: "Reusable UI components for Eliom applications (client only, or client-server)"
 description: "The Ocsigen Toolkit is a set of user interface widgets that facilitate the development of Eliom applications."

diff --git a/src/widgets/ot_tip.eliom b/src/widgets/ot_tip.eliom
@@ -47,11 +47,7 @@ let%client display ?(container_a = [a_class ["ot-tip-container"]])
     @@ Js.Optdef.get Dom_html.window##.innerHeight
     @@ fun () -> Dom_html.document##.documentElement##.clientHeight
   in
-  let d_width =
-    float
-    @@ Js.Optdef.get Dom_html.window##.innerWidth
-    @@ fun () -> Dom_html.document##.documentElement##.clientWidth
-  in
+  let d_width = float Dom_html.document##.documentElement##.clientWidth in
   let o_bounds = origin##getBoundingClientRect in
   let o_left = o_bounds##.left in
   let o_right = o_bounds##.right in