`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`