From: Amélia Coutard-Sander <git@f4mnq.fr>
Date: Wed, 7 Jan 2026 14:07:10 +0000 (+0100)
Subject: Légère correction de bug visuel.
X-Git-Url: https://git.f4mnq.fr/?a=commitdiff_plain;h=98b93a4d257f4eb640f1528956c69039c5b52549;p=marbrures.git

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

diff --git a/marbrures/main.ml b/marbrures/main.ml
index 69cb951..48b933d 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 ();