sig
  val thumb_done : Evas.obj -> (Evas.obj -> unit) -> unit
  val thumb_error : Evas.obj -> (Evas.obj -> unit) -> unit
  val drop : Evas.obj -> (Evas.obj -> string -> unit) -> unit
  val clicked : Evas.obj -> (Evas.obj -> unit) -> unit
end