object
  val virtual obj : [> `dialog ] Gobject.obj
  method has_separator : bool
  method set_has_separator : bool -> unit
end