sig
  val clicked : Evas.obj -> (Evas.obj -> unit) -> unit
  val drag_start : Evas.obj -> (Evas.obj -> unit) -> unit
  val drag_end : Evas.obj -> (Evas.obj -> unit) -> unit
end