Légère correction de bug visuel.

diff --git a/marbrures/main.ml b/marbrures/main.ml
index e8dcb45db0f8c7977edb27cbfbc6ace3f9c01c14..750ecfc9819873e2df241e2642ef72cdf5dbbb07 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 ();