sig
  val focused : Evas.obj -> (Evas.obj -> unit) -> unit
  val unfocused : Evas.obj -> (Evas.obj -> unit) -> unit
  val theme_changed : Evas.obj -> (Evas.obj -> unit) -> unit
  val language_changed : Evas.obj -> (Evas.obj -> unit) -> unit
end