object ('a)
  method after : 'a
  method destroy : callback:(unit -> unit) -> GtkSignal.id
end