pragma Ada_2005;
pragma Warnings (Off, "*is already use-visible*");
with GNAT.Strings; use GNAT.Strings;
with Glib; use Glib;
with Glib.Action; use Glib.Action;
with Glib.Action_Group; use Glib.Action_Group;
with Glib.Action_Map; use Glib.Action_Map;
with Glib.Object; use Glib.Object;
with Glib.Types; use Glib.Types;
with Glib.Variant; use Glib.Variant;
package Glib.Simple_Action_Group is
type Gsimple_Action_Group_Record is new GObject_Record with null record;
type Gsimple_Action_Group is access all Gsimple_Action_Group_Record'Class;
procedure G_New (Self : out Gsimple_Action_Group);
procedure Initialize
(Self : not null access Gsimple_Action_Group_Record'Class);
function Gsimple_Action_Group_New return Gsimple_Action_Group;
function Get_Type return Glib.GType;
pragma Import (C, Get_Type, "g_simple_action_group_get_type");
procedure Add_Entries
(Self : not null access Gsimple_Action_Group_Record;
Entries : Glib.Action_Map.GAction_Entry_Array;
User_Data : System.Address := System.Null_Address);
procedure Insert
(Self : not null access Gsimple_Action_Group_Record;
Action : Glib.Action.Gaction);
function Lookup
(Self : not null access Gsimple_Action_Group_Record;
Action_Name : UTF8_String) return Glib.Action.Gaction;
procedure Remove
(Self : not null access Gsimple_Action_Group_Record;
Action_Name : UTF8_String);
procedure Action_Added
(Self : not null access Gsimple_Action_Group_Record;
Action_Name : UTF8_String);
procedure Action_Enabled_Changed
(Self : not null access Gsimple_Action_Group_Record;
Action_Name : UTF8_String;
Enabled : Boolean);
procedure Action_Removed
(Self : not null access Gsimple_Action_Group_Record;
Action_Name : UTF8_String);
procedure Action_State_Changed
(Self : not null access Gsimple_Action_Group_Record;
Action_Name : UTF8_String;
State : Glib.Variant.Gvariant);
procedure Activate_Action
(Self : not null access Gsimple_Action_Group_Record;
Action_Name : UTF8_String;
Parameter : Glib.Variant.Gvariant);
procedure Change_Action_State
(Self : not null access Gsimple_Action_Group_Record;
Action_Name : UTF8_String;
Value : Glib.Variant.Gvariant);
function Get_Action_Enabled
(Self : not null access Gsimple_Action_Group_Record;
Action_Name : UTF8_String) return Boolean;
function Get_Action_Parameter_Type
(Self : not null access Gsimple_Action_Group_Record;
Action_Name : UTF8_String) return Glib.Variant.Gvariant_Type;
function Get_Action_State
(Self : not null access Gsimple_Action_Group_Record;
Action_Name : UTF8_String) return Glib.Variant.Gvariant;
function Get_Action_State_Hint
(Self : not null access Gsimple_Action_Group_Record;
Action_Name : UTF8_String) return Glib.Variant.Gvariant;
function Get_Action_State_Type
(Self : not null access Gsimple_Action_Group_Record;
Action_Name : UTF8_String) return Glib.Variant.Gvariant_Type;
function Has_Action
(Self : not null access Gsimple_Action_Group_Record;
Action_Name : UTF8_String) return Boolean;
function List_Actions
(Self : not null access Gsimple_Action_Group_Record)
return GNAT.Strings.String_List;
function Query_Action
(Self : not null access Gsimple_Action_Group_Record;
Action_Name : UTF8_String;
Enabled : access Boolean;
Parameter_Type : access Glib.Variant.Gvariant_Type;
State_Type : access Glib.Variant.Gvariant_Type;
State_Hint : access Glib.Variant.Gvariant;
State : access Glib.Variant.Gvariant) return Boolean;
procedure Add_Action
(Self : not null access Gsimple_Action_Group_Record;
Action : Glib.Action.Gaction);
procedure Add_Action_Entries
(Self : not null access Gsimple_Action_Group_Record;
Entries : GAction_Entry_Array;
User_Data : System.Address := System.Null_Address);
function Lookup_Action
(Self : not null access Gsimple_Action_Group_Record;
Action_Name : UTF8_String) return Glib.Action.Gaction;
procedure Remove_Action
(Self : not null access Gsimple_Action_Group_Record;
Action_Name : UTF8_String);
package Implements_Gaction_Group is new Glib.Types.Implements
(Glib.Action_Group.Gaction_Group, Gsimple_Action_Group_Record, Gsimple_Action_Group);
function "+"
(Widget : access Gsimple_Action_Group_Record'Class)
return Glib.Action_Group.Gaction_Group
renames Implements_Gaction_Group.To_Interface;
function "-"
(Interf : Glib.Action_Group.Gaction_Group)
return Gsimple_Action_Group
renames Implements_Gaction_Group.To_Object;
package Implements_Gaction_Map is new Glib.Types.Implements
(Glib.Action_Map.Gaction_Map, Gsimple_Action_Group_Record, Gsimple_Action_Group);
function "+"
(Widget : access Gsimple_Action_Group_Record'Class)
return Glib.Action_Map.Gaction_Map
renames Implements_Gaction_Map.To_Interface;
function "-"
(Interf : Glib.Action_Map.Gaction_Map)
return Gsimple_Action_Group
renames Implements_Gaction_Map.To_Object;
end Glib.Simple_Action_Group;