sig
  val cast : 'a Gobject.obj -> Gtk.font_selection Gtk.obj
  module P :
    sig
      val font_name : ([> `fontselection ], string) Gobject.property
      val preview_text : ([> `fontselection ], string) Gobject.property
    end
  val create :
    Gtk.font_selection Gobject.param list -> Gtk.font_selection Gtk.obj
  val make_params :
    cont:(([> `fontselection ] as 'a) Gobject.param list -> 'b) ->
    'a Gobject.param list -> ?font_name:string -> ?preview_text:string -> 'b
end