From: Amélia Coutard-Sander <git@ameliathe1st.gay>
Date: Sun, 27 Jul 2025 09:36:55 +0000 (+0200)
Subject: Légère correction de bug visuel.
X-Git-Url: https://git.ameliathe1st.gay/?a=commitdiff_plain;h=af878937991af85f7b7584a2e614f89fc5e49683;p=marbrures.git

Légère correction de bug visuel.
---

diff --git a/marbrures/main.ml b/marbrures/main.ml
index e8dcb45..750ecfc 100644
--- a/marbrures/main.ml
+++ b/marbrures/main.ml
@@ -54,7 +54,7 @@ let main () =
 
 let _interval_id = Dom_html.window##setInterval (Js.wrap_callback main) (1000.0 /. 60.0)
 
-let _mouse_listener, _click_listener, _mouseout_listener =
+let _mousemove_listener, _mousedown_listener, _mouseout_listener =
         let r = ref 0.
         and color = ref (Js.string "") in
         let reset () =
@@ -75,7 +75,7 @@ let _mouse_listener, _click_listener, _mouseout_listener =
                  marbling_view := add_drop (float_of_int ev##.offsetX, float_of_int ev##.offsetY) !r !color !marbling;
                  Js.bool true))
             (Js.bool false),
-          Dom_html.addEventListener canvas Dom_html.Event.click
+          Dom_html.addEventListener canvas Dom_html.Event.mousedown
             (Dom.handler (fun ev ->
                  marbling := add_drop (float_of_int ev##.offsetX, float_of_int ev##.offsetY) !r !color !marbling;
                  reset ();