package Implements_Gaction is new Glib.Types.Implements (Glib.Action.Gaction, Gsimple_Action_Record, Gsimple_Action);
type Gsimple_Action_Record is new GObject_Record with null record;
type Gsimple_Action is access all Gsimple_Action_Record'Class;
type Cb_Gsimple_Action_Gvariant_Void is not null access procedure (Self : access Gsimple_Action_Record'Class; Parameter : Glib.Variant.Gvariant);
type Cb_GObject_Gvariant_Void is not null access procedure (Self : access Glib.Object.GObject_Record'Class; Parameter : Glib.Variant.Gvariant);
Enabled_Property : constant Glib.Properties.Property_Boolean;
Name_Property : constant Glib.Properties.Property_String;
Parameter_Type_Property : constant Glib.Properties.Property_Boxed;
State_Property : constant Glib.Properties.Property_Object;
State_Type_Property : constant Glib.Properties.Property_Boxed;
Signal_Activate : constant Glib.Signal_Name := "activate";
Signal_Change_State : constant Glib.Signal_Name := "change-state";
procedure G_New
( | Self | : out Gsimple_Action; |
Name | : UTF8_String; | |
Parameter_Type | : Glib.Variant.Gvariant_Type); |
procedure Initialize
( | Self | : not null access Gsimple_Action_Record'Class; |
Name | : UTF8_String; | |
Parameter_Type | : Glib.Variant.Gvariant_Type); |
function Gsimple_Action_New
( | Name | : UTF8_String; |
Parameter_Type | : Glib.Variant.Gvariant_Type) return Gsimple_Action; |
procedure G_New_Stateful
( | Self | : out Gsimple_Action; |
Name | : UTF8_String; | |
Parameter_Type | : Glib.Variant.Gvariant_Type; | |
State | : Glib.Variant.Gvariant); |
procedure Initialize_Stateful
( | Self | : not null access Gsimple_Action_Record'Class; |
Name | : UTF8_String; | |
Parameter_Type | : Glib.Variant.Gvariant_Type; | |
State | : Glib.Variant.Gvariant); |
function Gsimple_Action_New_Stateful
( | Name | : UTF8_String; |
Parameter_Type | : Glib.Variant.Gvariant_Type; | |
State | : Glib.Variant.Gvariant) return Gsimple_Action; |
function Get_Type return Glib.GType;
procedure Set_Enabled
( | Self | : not null access Gsimple_Action_Record; |
Enabled | : Boolean); |
procedure Set_State
( | Self | : not null access Gsimple_Action_Record; |
Value | : Glib.Variant.Gvariant); |
procedure Activate
( | Self | : not null access Gsimple_Action_Record; |
Parameter | : Glib.Variant.Gvariant); |
procedure Change_State
( | Self | : not null access Gsimple_Action_Record; |
Value | : Glib.Variant.Gvariant); |
function Get_Enabled
( | Self | : not null access Gsimple_Action_Record) return Boolean; |
function Get_Name
( | Self | : not null access Gsimple_Action_Record) return UTF8_String; |
function Get_Parameter_Type
( | Self | : not null access Gsimple_Action_Record) return Glib.Variant.Gvariant_Type; |
function Get_State
( | Self | : not null access Gsimple_Action_Record) return Glib.Variant.Gvariant; |
function Get_State_Hint
( | Self | : not null access Gsimple_Action_Record) return Glib.Variant.Gvariant; |
function Get_State_Type
( | Self | : not null access Gsimple_Action_Record) return Glib.Variant.Gvariant_Type; |
procedure On_Activate
( | Self | : not null access Gsimple_Action_Record; |
Call | : Cb_Gsimple_Action_Gvariant_Void; | |
After | : Boolean := False); |
procedure On_Activate
( | Self | : not null access Gsimple_Action_Record; |
Call | : Cb_GObject_Gvariant_Void; | |
Slot | : not null access Glib.Object.GObject_Record'Class; | |
After | : Boolean := False); |
procedure On_Change_State
( | Self | : not null access Gsimple_Action_Record; |
Call | : Cb_Gsimple_Action_Gvariant_Void; | |
After | : Boolean := False); |
procedure On_Change_State
( | Self | : not null access Gsimple_Action_Record; |
Call | : Cb_GObject_Gvariant_Void; | |
Slot | : not null access Glib.Object.GObject_Record'Class; | |
After | : Boolean := False); |
function "+"
( | Widget | : access Gsimple_Action_Record'Class) return Glib.Action.Gaction renames Implements_Gaction.To_Interface; |
function "-"
( | Interf | : Glib.Action.Gaction) return Gsimple_Action renames Implements_Gaction.To_Object; |
A Glib.Simple_Action.Gsimple_Action is the obvious simple implementation of the Glib.Action.Gaction interface. This is the easiest way to create an action for purposes of adding it to a Glib.Simple_Action_Group.Gsimple_Action_Group.
See also Gtk.Action.Gtk_Action.