oops clicks should be a mouseEvent

avsm · Jul 11, 2010 · dadbbf3 · dadbbf3
1 parent 36f440d
commit dadbbf3
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/froc-dom/froc_dom.ml b/src/froc-dom/froc_dom.ml
@@ -165,4 +165,4 @@ let keyEvent name (elem : #Dom.element) =
   cleanup (fun () -> elem#removeEventListener_keyEvent_ name f false);
   e
 
-let clicks (elem : #Dom.element) = event "click" elem
+let clicks (elem : #Dom.element) = mouseEvent "click" elem
diff --git a/src/froc-dom/froc_dom.mli b/src/froc-dom/froc_dom.mli
@@ -50,7 +50,7 @@ val attach_fontSize_b : #Dom.element -> string Froc.behavior -> unit
 val appendChild : #Dom.node -> #Dom.node Froc.behavior -> unit
 val replaceNode : #Dom.node -> #Dom.node Froc.behavior -> unit
 
-val clicks : #Dom.element -> Dom.event Froc.event
+val clicks : #Dom.element -> Dom.mouseEvent Froc.event
 
 val event : string -> #Dom.element -> Dom.event Froc.event
 val mouseEvent : string -> #Dom.element -> Dom.mouseEvent Froc.event