pragma Ada_2005;
pragma Warnings (Off, "*is already use-visible*");
with Glib; use Glib;
with Glib.Types; use Glib.Types;
with Gtk.Box; use Gtk.Box;
with Gtk.Buildable; use Gtk.Buildable;
with Gtk.Enums; use Gtk.Enums;
with Gtk.Font_Chooser; use Gtk.Font_Chooser;
with Gtk.Orientable; use Gtk.Orientable;
with Pango.Font; use Pango.Font;
with Pango.Font_Face; use Pango.Font_Face;
with Pango.Font_Family; use Pango.Font_Family;
package Gtk.Font_Chooser_Widget is
type Gtk_Font_Chooser_Widget_Record is new Gtk_Box_Record with null record;
type Gtk_Font_Chooser_Widget is access all Gtk_Font_Chooser_Widget_Record'Class;
type Gtk_Font_Filter_Func is access function
(Family : not null access Pango.Font_Family.Pango_Font_Family_Record'Class;
Face : not null access Pango.Font_Face.Pango_Font_Face_Record'Class)
return Boolean;
procedure Gtk_New (Self : out Gtk_Font_Chooser_Widget);
procedure Initialize
(Self : not null access Gtk_Font_Chooser_Widget_Record'Class);
function Gtk_Font_Chooser_Widget_New return Gtk_Font_Chooser_Widget;
function Get_Type return Glib.GType;
pragma Import (C, Get_Type, "gtk_font_chooser_widget_get_type");
procedure Set_Filter_Func
(Self : not null access Gtk_Font_Chooser_Widget_Record;
Filter : Gtk_Font_Filter_Func);
generic
type User_Data_Type (<>) is private;
with procedure Destroy (Data : in out User_Data_Type) is null;
package Set_Filter_Func_User_Data is
type Gtk_Font_Filter_Func is access function
(Family : not null access Pango.Font_Family.Pango_Font_Family_Record'Class;
Face : not null access Pango.Font_Face.Pango_Font_Face_Record'Class;
Data : User_Data_Type) return Boolean;
procedure Set_Filter_Func
(Self : not null access Gtk.Font_Chooser_Widget.Gtk_Font_Chooser_Widget_Record'Class;
Filter : Gtk_Font_Filter_Func;
User_Data : User_Data_Type);
end Set_Filter_Func_User_Data;
function Get_Font
(Self : not null access Gtk_Font_Chooser_Widget_Record)
return UTF8_String;
procedure Set_Font
(Self : not null access Gtk_Font_Chooser_Widget_Record;
Fontname : UTF8_String);
function Get_Font_Desc
(Self : not null access Gtk_Font_Chooser_Widget_Record)
return Pango.Font.Pango_Font_Description;
procedure Set_Font_Desc
(Self : not null access Gtk_Font_Chooser_Widget_Record;
Font_Desc : Pango.Font.Pango_Font_Description);
function Get_Font_Face
(Self : not null access Gtk_Font_Chooser_Widget_Record)
return Pango.Font_Face.Pango_Font_Face;
function Get_Font_Family
(Self : not null access Gtk_Font_Chooser_Widget_Record)
return Pango.Font_Family.Pango_Font_Family;
function Get_Font_Size
(Self : not null access Gtk_Font_Chooser_Widget_Record) return Gint;
function Get_Preview_Text
(Self : not null access Gtk_Font_Chooser_Widget_Record)
return UTF8_String;
procedure Set_Preview_Text
(Self : not null access Gtk_Font_Chooser_Widget_Record;
Text : UTF8_String);
function Get_Show_Preview_Entry
(Self : not null access Gtk_Font_Chooser_Widget_Record) return Boolean;
procedure Set_Show_Preview_Entry
(Self : not null access Gtk_Font_Chooser_Widget_Record;
Show_Preview_Entry : Boolean);
function Get_Orientation
(Self : not null access Gtk_Font_Chooser_Widget_Record)
return Gtk.Enums.Gtk_Orientation;
procedure Set_Orientation
(Self : not null access Gtk_Font_Chooser_Widget_Record;
Orientation : Gtk.Enums.Gtk_Orientation);
package Implements_Gtk_Buildable is new Glib.Types.Implements
(Gtk.Buildable.Gtk_Buildable, Gtk_Font_Chooser_Widget_Record, Gtk_Font_Chooser_Widget);
function "+"
(Widget : access Gtk_Font_Chooser_Widget_Record'Class)
return Gtk.Buildable.Gtk_Buildable
renames Implements_Gtk_Buildable.To_Interface;
function "-"
(Interf : Gtk.Buildable.Gtk_Buildable)
return Gtk_Font_Chooser_Widget
renames Implements_Gtk_Buildable.To_Object;
package Implements_Gtk_Font_Chooser is new Glib.Types.Implements
(Gtk.Font_Chooser.Gtk_Font_Chooser, Gtk_Font_Chooser_Widget_Record, Gtk_Font_Chooser_Widget);
function "+"
(Widget : access Gtk_Font_Chooser_Widget_Record'Class)
return Gtk.Font_Chooser.Gtk_Font_Chooser
renames Implements_Gtk_Font_Chooser.To_Interface;
function "-"
(Interf : Gtk.Font_Chooser.Gtk_Font_Chooser)
return Gtk_Font_Chooser_Widget
renames Implements_Gtk_Font_Chooser.To_Object;
package Implements_Gtk_Orientable is new Glib.Types.Implements
(Gtk.Orientable.Gtk_Orientable, Gtk_Font_Chooser_Widget_Record, Gtk_Font_Chooser_Widget);
function "+"
(Widget : access Gtk_Font_Chooser_Widget_Record'Class)
return Gtk.Orientable.Gtk_Orientable
renames Implements_Gtk_Orientable.To_Interface;
function "-"
(Interf : Gtk.Orientable.Gtk_Orientable)
return Gtk_Font_Chooser_Widget
renames Implements_Gtk_Orientable.To_Object;
end Gtk.Font_Chooser_Widget;