pragma Ada_2005;
pragma Warnings (Off, "*is already use-visible*");
with Glib; use Glib;
with Glib.Object; use Glib.Object;
with Glib.Types; use Glib.Types;
with Gtk.Buildable; use Gtk.Buildable;
with Gtk.Text_Tag; use Gtk.Text_Tag;
package Gtk.Text_Tag_Table is
type Gtk_Text_Tag_Table_Record is new GObject_Record with null record;
type Gtk_Text_Tag_Table is access all Gtk_Text_Tag_Table_Record'Class;
type Gtk_Text_Tag_Table_Foreach is access procedure
(Tag : not null access Gtk.Text_Tag.Gtk_Text_Tag_Record'Class);
procedure Gtk_New (Table : out Gtk_Text_Tag_Table);
procedure Initialize
(Table : not null access Gtk_Text_Tag_Table_Record'Class);
function Gtk_Text_Tag_Table_New return Gtk_Text_Tag_Table;
function Get_Type return Glib.GType;
pragma Import (C, Get_Type, "gtk_text_tag_table_get_type");
procedure Add
(Table : not null access Gtk_Text_Tag_Table_Record;
Tag : not null access Gtk.Text_Tag.Gtk_Text_Tag_Record'Class);
procedure Foreach
(Table : not null access Gtk_Text_Tag_Table_Record;
Func : Gtk_Text_Tag_Table_Foreach);
generic
type User_Data_Type (<>) is private;
with procedure Destroy (Data : in out User_Data_Type) is null;
package Foreach_User_Data is
type Gtk_Text_Tag_Table_Foreach is access procedure
(Tag : not null access Gtk.Text_Tag.Gtk_Text_Tag_Record'Class;
Data : User_Data_Type);
procedure Foreach
(Table : not null access Gtk.Text_Tag_Table.Gtk_Text_Tag_Table_Record'Class;
Func : Gtk_Text_Tag_Table_Foreach;
Data : User_Data_Type);
end Foreach_User_Data;
function Get_Size
(Table : not null access Gtk_Text_Tag_Table_Record) return Gint;
function Lookup
(Table : not null access Gtk_Text_Tag_Table_Record;
Name : UTF8_String) return Gtk.Text_Tag.Gtk_Text_Tag;
procedure Remove
(Table : not null access Gtk_Text_Tag_Table_Record;
Tag : not null access Gtk.Text_Tag.Gtk_Text_Tag_Record'Class);
type Cb_Gtk_Text_Tag_Table_Gtk_Text_Tag_Void is not null access procedure
(Self : access Gtk_Text_Tag_Table_Record'Class;
Tag : not null access Gtk.Text_Tag.Gtk_Text_Tag_Record'Class);
type Cb_GObject_Gtk_Text_Tag_Void is not null access procedure
(Self : access Glib.Object.GObject_Record'Class;
Tag : not null access Gtk.Text_Tag.Gtk_Text_Tag_Record'Class);
Signal_Tag_Added : constant Glib.Signal_Name := "tag-added";
procedure On_Tag_Added
(Self : not null access Gtk_Text_Tag_Table_Record;
Call : Cb_Gtk_Text_Tag_Table_Gtk_Text_Tag_Void;
After : Boolean := False);
procedure On_Tag_Added
(Self : not null access Gtk_Text_Tag_Table_Record;
Call : Cb_GObject_Gtk_Text_Tag_Void;
Slot : not null access Glib.Object.GObject_Record'Class;
After : Boolean := False);
type Cb_Gtk_Text_Tag_Table_Gtk_Text_Tag_Boolean_Void is not null access procedure
(Self : access Gtk_Text_Tag_Table_Record'Class;
Tag : not null access Gtk.Text_Tag.Gtk_Text_Tag_Record'Class;
Size_Changed : Boolean);
type Cb_GObject_Gtk_Text_Tag_Boolean_Void is not null access procedure
(Self : access Glib.Object.GObject_Record'Class;
Tag : not null access Gtk.Text_Tag.Gtk_Text_Tag_Record'Class;
Size_Changed : Boolean);
Signal_Tag_Changed : constant Glib.Signal_Name := "tag-changed";
procedure On_Tag_Changed
(Self : not null access Gtk_Text_Tag_Table_Record;
Call : Cb_Gtk_Text_Tag_Table_Gtk_Text_Tag_Boolean_Void;
After : Boolean := False);
procedure On_Tag_Changed
(Self : not null access Gtk_Text_Tag_Table_Record;
Call : Cb_GObject_Gtk_Text_Tag_Boolean_Void;
Slot : not null access Glib.Object.GObject_Record'Class;
After : Boolean := False);
Signal_Tag_Removed : constant Glib.Signal_Name := "tag-removed";
procedure On_Tag_Removed
(Self : not null access Gtk_Text_Tag_Table_Record;
Call : Cb_Gtk_Text_Tag_Table_Gtk_Text_Tag_Void;
After : Boolean := False);
procedure On_Tag_Removed
(Self : not null access Gtk_Text_Tag_Table_Record;
Call : Cb_GObject_Gtk_Text_Tag_Void;
Slot : not null access Glib.Object.GObject_Record'Class;
After : Boolean := False);
package Implements_Gtk_Buildable is new Glib.Types.Implements
(Gtk.Buildable.Gtk_Buildable, Gtk_Text_Tag_Table_Record, Gtk_Text_Tag_Table);
function "+"
(Widget : access Gtk_Text_Tag_Table_Record'Class)
return Gtk.Buildable.Gtk_Buildable
renames Implements_Gtk_Buildable.To_Interface;
function "-"
(Interf : Gtk.Buildable.Gtk_Buildable)
return Gtk_Text_Tag_Table
renames Implements_Gtk_Buildable.To_Object;
end Gtk.Text_Tag_Table;