blob: 1398ae45a425faab498df550d657b04c8242a61b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
// included by gtk2.pas
{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}
{$IFDEF read_interface_types}
type
PGtkRadioActionPrivate = pointer;
PGtkRadioAction = ^TGtkRadioAction;
TGtkRadioAction = record
parent : TGtkToggleAction;
private_data : PGtkRadioActionPrivate;
end;
{ Padding for future expansion }
PGtkRadioActionClass = ^TGtkRadioActionClass;
TGtkRadioActionClass = record
parent_class : TGtkToggleActionClass;
changed : procedure (action:PGtkRadioAction; current:PGtkRadioAction);cdecl;
_gtk_reserved1 : procedure ;
_gtk_reserved2 : procedure ;
_gtk_reserved3 : procedure ;
_gtk_reserved4 : procedure ;
end;
{$ENDIF read_interface_types}
{$IFDEF read_interface_rest}
function GTK_TYPE_RADIO_ACTION : GType;
function GTK_RADIO_ACTION(obj : pointer) : PGtkRadioAction;
function GTK_RADIO_ACTION_CLASS(klass : pointer) : PGtkRadioActionClass;
function GTK_IS_RADIO_ACTION(obj : pointer) : gboolean;
function GTK_IS_RADIO_ACTION_CLASS(klass : pointer) : gboolean;
function GTK_RADIO_ACTION_GET_CLASS(obj : pointer) : PGtkRadioActionClass;
function gtk_radio_action_get_type:GType;cdecl;external gtklib name 'gtk_radio_action_get_type';
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';
function gtk_radio_action_get_group(action:PGtkRadioAction):PGSList;cdecl;external gtklib name 'gtk_radio_action_get_group';
procedure gtk_radio_action_set_group(action:PGtkRadioAction; group:PGSList);cdecl;external gtklib name 'gtk_radio_action_set_group';
function gtk_radio_action_get_current_value(action:PGtkRadioAction):gint;cdecl;external gtklib name 'gtk_radio_action_get_current_value';
{$ENDIF read_interface_rest}
{$IFDEF read_implementation}
function GTK_TYPE_RADIO_ACTION : GType;
begin
GTK_TYPE_RADIO_ACTION:=gtk_radio_action_get_type;
end;
function GTK_RADIO_ACTION(obj : pointer) : PGtkRadioAction;
begin
GTK_RADIO_ACTION:=PGtkRadioAction(G_TYPE_CHECK_INSTANCE_CAST(obj,GTK_TYPE_RADIO_ACTION));
end;
function GTK_RADIO_ACTION_CLASS(klass : pointer) : PGtkRadioActionClass;
begin
GTK_RADIO_ACTION_CLASS:=PGtkRadioActionClass(G_TYPE_CHECK_CLASS_CAST(klass,GTK_TYPE_RADIO_ACTION));
end;
function GTK_IS_RADIO_ACTION(obj : pointer) : gboolean;
begin
GTK_IS_RADIO_ACTION:=G_TYPE_CHECK_INSTANCE_TYPE(obj,GTK_TYPE_RADIO_ACTION);
end;
function GTK_IS_RADIO_ACTION_CLASS(klass : pointer) : gboolean;
begin
GTK_IS_RADIO_ACTION_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,GTK_TYPE_RADIO_ACTION);
end;
function GTK_RADIO_ACTION_GET_CLASS(obj : pointer) : PGtkRadioActionClass;
begin
GTK_RADIO_ACTION_GET_CLASS:=PGtkRadioActionClass(G_TYPE_INSTANCE_GET_CLASS(obj,GTK_TYPE_RADIO_ACTION));
end;
{$ENDIF read_implementation}
|
