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