package Gtk.Radio_Action is
package Implements_Gtk_Buildable is new Glib.Types.Implements (Gtk.Buildable.Gtk_Buildable, Gtk_Radio_Action_Record, Gtk_Radio_Action);
type Gtk_Radio_Action_Record is new Gtk_Toggle_Action_Record with null record;
type Gtk_Radio_Action is access all Gtk_Radio_Action_Record'Class;
type Cb_Gtk_Radio_Action_Gtk_Radio_Action_Void is not null access procedure (Self : access Gtk_Radio_Action_Record'Class; Current : not null access Gtk_Radio_Action_Record'Class);
type Cb_GObject_Gtk_Radio_Action_Void is not null access procedure (Self : access Glib.Object.GObject_Record'Class; Current : not null access Gtk_Radio_Action_Record'Class);
Current_Value_Property : constant Glib.Properties.Property_Int;
Group_Property : constant Glib.Properties.Property_Object;
Value_Property : constant Glib.Properties.Property_Int;
Signal_Changed : constant Glib.Signal_Name := "changed";
procedure Gtk_New
( | Action | : out Gtk_Radio_Action; |
Name | : UTF8_String; | |
Label | : UTF8_String := ""; | |
Tooltip | : UTF8_String := ""; | |
Stock_Id | : UTF8_String := ""; | |
Value | : Gint); |
procedure Initialize
( | Action | : not null access Gtk_Radio_Action_Record'Class; |
Name | : UTF8_String; | |
Label | : UTF8_String := ""; | |
Tooltip | : UTF8_String := ""; | |
Stock_Id | : UTF8_String := ""; | |
Value | : Gint); |
function Gtk_Radio_Action_New
( | Name | : UTF8_String; |
Label | : UTF8_String := ""; | |
Tooltip | : UTF8_String := ""; | |
Stock_Id | : UTF8_String := ""; | |
Value | : Gint) return Gtk_Radio_Action; |
function Get_Type return Glib.GType;
function Get_Current_Value
( | Action | : not null access Gtk_Radio_Action_Record) return Gint; |
procedure Set_Current_Value
( | Action | : not null access Gtk_Radio_Action_Record; |
Current_Value | : Gint); |
function Get_Group
( | Action | : not null access Gtk_Radio_Action_Record) return Gtk.Widget.Widget_SList.GSlist; |
procedure Set_Group
( | Action | : not null access Gtk_Radio_Action_Record; |
Group | : Gtk.Widget.Widget_SList.GSlist); |
procedure Join_Group
( | Action | : not null access Gtk_Radio_Action_Record; |
Group_Source | : access Gtk_Radio_Action_Record'Class); |
procedure On_Changed
( | Self | : not null access Gtk_Radio_Action_Record; |
Call | : Cb_Gtk_Radio_Action_Gtk_Radio_Action_Void; | |
After | : Boolean := False); |
procedure On_Changed
( | Self | : not null access Gtk_Radio_Action_Record; |
Call | : Cb_GObject_Gtk_Radio_Action_Void; | |
Slot | : not null access Glib.Object.GObject_Record'Class; | |
After | : Boolean := False); |
function "+"
( | Widget | : access Gtk_Radio_Action_Record'Class) return Gtk.Buildable.Gtk_Buildable renames Implements_Gtk_Buildable.To_Interface; |
function "-"
( | Interf | : Gtk.Buildable.Gtk_Buildable) return Gtk_Radio_Action renames Implements_Gtk_Buildable.To_Object; |