sig
  val animate_begin : Evas.obj -> (Evas.obj -> unit) -> unit
  val animate_done : Evas.obj -> (Evas.obj -> unit) -> unit
end