2
// included by gtk2.pas
4
{$IFDEF read_forward_definitions}
5
{$ENDIF read_forward_definitions}
7
{$IFDEF read_interface_types}
9
PGtkRadioActionPrivate = pointer;
11
PGtkRadioAction = ^TGtkRadioAction;
12
TGtkRadioAction = record
13
parent : TGtkToggleAction;
14
private_data : PGtkRadioActionPrivate;
17
{ Padding for future expansion }
18
PGtkRadioActionClass = ^TGtkRadioActionClass;
19
TGtkRadioActionClass = record
20
parent_class : TGtkToggleActionClass;
21
changed : procedure (action:PGtkRadioAction; current:PGtkRadioAction);cdecl;
22
_gtk_reserved1 : procedure ;
23
_gtk_reserved2 : procedure ;
24
_gtk_reserved3 : procedure ;
25
_gtk_reserved4 : procedure ;
28
{$ENDIF read_interface_types}
30
{$IFDEF read_interface_rest}
31
function GTK_TYPE_RADIO_ACTION : GType;
33
function GTK_RADIO_ACTION(obj : pointer) : PGtkRadioAction;
35
function GTK_RADIO_ACTION_CLASS(klass : pointer) : PGtkRadioActionClass;
37
function GTK_IS_RADIO_ACTION(obj : pointer) : gboolean;
39
function GTK_IS_RADIO_ACTION_CLASS(klass : pointer) : gboolean;
41
function GTK_RADIO_ACTION_GET_CLASS(obj : pointer) : PGtkRadioActionClass;
43
function gtk_radio_action_get_type:GType;cdecl;external gtklib name 'gtk_radio_action_get_type';
45
function gtk_radio_action_new(name:Pgchar; szLabel:Pgchar; tooltip:Pgchar; stock_id:Pgchar; value:gint):PGtkRadioAction;cdecl;external gtklib name 'gtk_radio_action_new';
47
function gtk_radio_action_get_group(action:PGtkRadioAction):PGSList;cdecl;external gtklib name 'gtk_radio_action_get_group';
49
procedure gtk_radio_action_set_group(action:PGtkRadioAction; group:PGSList);cdecl;external gtklib name 'gtk_radio_action_set_group';
51
function gtk_radio_action_get_current_value(action:PGtkRadioAction):gint;cdecl;external gtklib name 'gtk_radio_action_get_current_value';
53
{$ENDIF read_interface_rest}
55
{$IFDEF read_implementation}
56
function GTK_TYPE_RADIO_ACTION : GType;
58
GTK_TYPE_RADIO_ACTION:=gtk_radio_action_get_type;
61
function GTK_RADIO_ACTION(obj : pointer) : PGtkRadioAction;
63
GTK_RADIO_ACTION:=PGtkRadioAction(G_TYPE_CHECK_INSTANCE_CAST(obj,GTK_TYPE_RADIO_ACTION));
66
function GTK_RADIO_ACTION_CLASS(klass : pointer) : PGtkRadioActionClass;
68
GTK_RADIO_ACTION_CLASS:=PGtkRadioActionClass(G_TYPE_CHECK_CLASS_CAST(klass,GTK_TYPE_RADIO_ACTION));
71
function GTK_IS_RADIO_ACTION(obj : pointer) : gboolean;
73
GTK_IS_RADIO_ACTION:=G_TYPE_CHECK_INSTANCE_TYPE(obj,GTK_TYPE_RADIO_ACTION);
76
function GTK_IS_RADIO_ACTION_CLASS(klass : pointer) : gboolean;
78
GTK_IS_RADIO_ACTION_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,GTK_TYPE_RADIO_ACTION);
81
function GTK_RADIO_ACTION_GET_CLASS(obj : pointer) : PGtkRadioActionClass;
83
GTK_RADIO_ACTION_GET_CLASS:=PGtkRadioActionClass(G_TYPE_INSTANCE_GET_CLASS(obj,GTK_TYPE_RADIO_ACTION));
86
{$ENDIF read_implementation}