sig
  val timeout : Evas.obj -> (Evas.obj -> unit) -> unit
  val block_clicked : Evas.obj -> (Evas.obj -> unit) -> unit
end