From dadbbf3057c08313df0fe659e54f386b81f28d6b Mon Sep 17 00:00:00 2001 From: Jake Donham Date: Sun, 11 Jul 2010 07:38:13 -0400 Subject: [PATCH] oops clicks should be a mouseEvent --- src/froc-dom/froc_dom.ml | 2 +- src/froc-dom/froc_dom.mli | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/froc-dom/froc_dom.ml b/src/froc-dom/froc_dom.ml index 4e70dad..175ba2f 100644 --- 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 index a5065c9..094c473 100644 --- 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