sig
  val callback_add_ : Evas.obj -> string -> Evas.smart_cb -> unit
  val callback_add : Evas.obj -> 'a Evas.Signal.t -> 'a -> unit
  type sig_with_cb
  val create_sig_with_cb :
    'a Evas.Signal.t -> 'a -> Evas_object_smart.sig_with_cb
  val connect : Evas_object_smart.sig_with_cb -> Evas.obj -> unit
end