object
  val virtual obj : [> `fontselection ] Gobject.obj
  method font_name : string
  method preview_text : string
  method set_font_name : string -> unit
  method set_preview_text : string -> unit
end