package Gtk.Radio_Action is
package Implements_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;
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 | : access Gtk_Radio_Action_Record'Class; |
Name | : UTF8_String; | |
Label | : UTF8_String := ""; | |
Tooltip | : UTF8_String := ""; | |
Stock_Id | : UTF8_String := ""; | |
Value | : Gint); |
function Get_Type return Glib.GType;
function Get_Current_Value
( | Action | : access Gtk_Radio_Action_Record) return Gint; |
procedure Set_Current_Value
( | Action | : access Gtk_Radio_Action_Record; |
Current_Value | : Gint); |
function Get_Group
( | Action | : access Gtk_Radio_Action_Record) return Gtk.Widget.Widget_SList.GSlist; |
procedure Set_Group
( | Action | : access Gtk_Radio_Action_Record; |
Group | : Gtk.Widget.Widget_SList.GSlist); |
function "+"
( | Widget | : access Gtk_Radio_Action_Record'Class) return Gtk.Buildable.Gtk_Buildable renames Implements_Buildable.To_Interface; |
function "-"
( | Interf | : Gtk.Buildable.Gtk_Buildable) return Gtk_Radio_Action renames Implements_Buildable.To_Object; |