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