From af878937991af85f7b7584a2e614f89fc5e49683 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Am=C3=A9lia=20Coutard-Sander?= Date: Sun, 27 Jul 2025 11:36:55 +0200 Subject: [PATCH] =?utf8?q?L=C3=A9g=C3=A8re=20correction=20de=20bug=20visue?= =?utf8?q?l.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- marbrures/main.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 (); -- 2.51.0