Légère correction de bug visuel.

diff --git a/marbrures/main.ml b/marbrures/main.ml
index 69cb951520d064f86dccc8f188a5d28c23eca595..48b933dea0e529418573a99da7556c48972e4ea9 100644 (file)
--- 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 ();