1{$IFDEF read_forward_definitions}
2{$ENDIF read_forward_definitions}
3
4{$IFDEF read_interface_types}
5type
6   PGtkActionGroupPrivate = pointer;
7
8   PGtkActionGroup = ^TGtkActionGroup;
9   TGtkActionGroup = record
10        parent : TGObject;
11        private_data : PGtkActionGroupPrivate;
12     end;
13
14{ Padding for future expansion  }
15   PGtkActionGroupClass = ^TGtkActionGroupClass;
16   TGtkActionGroupClass = record
17        parent_class : TGObjectClass;
18        get_action : function (action_group:PGtkActionGroup; action_name:Pgchar):PGtkAction;cdecl;
19        _gtk_reserved1 : procedure ;
20        _gtk_reserved2 : procedure ;
21        _gtk_reserved3 : procedure ;
22        _gtk_reserved4 : procedure ;
23     end;
24
25  (* prefixed pgchar types  with sz due name conflict with label *)
26   PGtkActionEntry = ^TGtkActionEntry;
27   TGtkActionEntry = record
28        szName : Pgchar;
29        szStock_id : Pgchar;
30        szLabel : Pgchar;
31        szAccelerator : Pgchar;
32        szTooltip : Pgchar;
33        callback : TGCallback;
34     end;
35
36   PGtkToggleActionEntry = ^TGtkToggleActionEntry;
37   TGtkToggleActionEntry = record
38        szName : Pgchar;
39        szStock_id : Pgchar;
40        szLabel : Pgchar;
41        szAccelerator : Pgchar;
42        szTooltip : Pgchar;
43        callback : TGCallback;
44        is_active : gboolean;
45     end;
46
47   PGtkRadioActionEntry = ^TGtkRadioActionEntry;
48   TGtkRadioActionEntry = record
49        szName : Pgchar;
50        szStock_id : Pgchar;
51        szLabel : Pgchar;
52        szAccelerator : Pgchar;
53        szTooltip : Pgchar;
54        value : gint;
55     end;
56
57{$ENDIF read_interface_types}
58
59{$IFDEF read_interface_rest}
60
61function GTK_TYPE_ACTION_GROUP : GType;
62function GTK_ACTION_GROUP(obj : pointer) : PGtkActionGroup;
63function GTK_ACTION_GROUP_CLASS(vtable : pointer) : PGtkActionGroupClass;
64function GTK_IS_ACTION_GROUP(obj : pointer) : gboolean;
65function GTK_IS_ACTION_GROUP_CLASS(vtable : pointer) : gboolean;
66function GTK_ACTION_GROUP_GET_CLASS(inst : pointer) : PGtkActionGroupClass;
67
68
69
70function gtk_action_group_get_type:GType;cdecl;external gtklib name 'gtk_action_group_get_type';
71
72function gtk_action_group_new(name:Pgchar):PGtkActionGroup;cdecl;external gtklib name 'gtk_action_group_new';
73
74function gtk_action_group_get_name(action_group:PGtkActionGroup):Pgchar;cdecl;external gtklib name 'gtk_action_group_get_name';
75function gtk_action_group_get_sensitive(action_group:PGtkActionGroup):gboolean;cdecl;external gtklib name 'gtk_action_group_get_sensitive';
76procedure gtk_action_group_set_sensitive(action_group:PGtkActionGroup; sensitive:gboolean);cdecl;external gtklib name 'gtk_action_group_set_sensitive';
77function gtk_action_group_get_visible(action_group:PGtkActionGroup):gboolean;cdecl;external gtklib name 'gtk_action_group_get_visible';
78procedure gtk_action_group_set_visible(action_group:PGtkActionGroup; visible:gboolean);cdecl;external gtklib name 'gtk_action_group_set_visible';
79
80function gtk_action_group_get_action(action_group:PGtkActionGroup; action_name:Pgchar):PGtkAction;cdecl;external gtklib name 'gtk_action_group_get_action';
81function gtk_action_group_list_actions(action_group:PGtkActionGroup):PGList;cdecl;external gtklib name 'gtk_action_group_list_actions';
82procedure gtk_action_group_add_action(action_group:PGtkActionGroup; action:PGtkAction);cdecl;external gtklib name 'gtk_action_group_add_action';
83
84procedure gtk_action_group_add_action_with_accel(action_group:PGtkActionGroup; action:PGtkAction; accelerator:Pgchar);cdecl;external gtklib name 'gtk_action_group_add_action_with_accel';
85procedure gtk_action_group_remove_action(action_group:PGtkActionGroup; action:PGtkAction);cdecl;external gtklib name 'gtk_action_group_remove_action';
86procedure gtk_action_group_add_actions(action_group:PGtkActionGroup; entries:PGtkActionEntry; n_entries:guint; user_data:gpointer);cdecl;external gtklib name 'gtk_action_group_add_actions';
87procedure gtk_action_group_add_toggle_actions(action_group:PGtkActionGroup; entries:PGtkToggleActionEntry; n_entries:guint; user_data:gpointer);cdecl;external gtklib name 'gtk_action_group_add_toggle_actions';
88procedure gtk_action_group_add_radio_actions(action_group:PGtkActionGroup; entries:PGtkRadioActionEntry; n_entries:guint; value:gint; on_change:TGCallback;
89            user_data:gpointer);cdecl;external gtklib name 'gtk_action_group_add_radio_actions';
90procedure gtk_action_group_add_actions_full(action_group:PGtkActionGroup; entries:PGtkActionEntry; n_entries:guint; user_data:gpointer; destroy:TGDestroyNotify);cdecl;external gtklib name 'gtk_action_group_add_actions_full';
91procedure gtk_action_group_add_toggle_actions_full(action_group:PGtkActionGroup; entries:PGtkToggleActionEntry; n_entries:guint; user_data:gpointer; destroy:TGDestroyNotify);cdecl;external gtklib name 'gtk_action_group_add_toggle_actions_full';
92procedure gtk_action_group_add_radio_actions_full(action_group:PGtkActionGroup; entries:PGtkRadioActionEntry; n_entries:guint; value:gint; on_change:TGCallback;
93            user_data:gpointer; destroy:TGDestroyNotify);cdecl;external gtklib name 'gtk_action_group_add_radio_actions_full';
94
95procedure gtk_action_group_set_translate_func(action_group:PGtkActionGroup; func:TGtkTranslateFunc; data:gpointer; notify:TGtkDestroyNotify);cdecl;external gtklib name 'gtk_action_group_set_translate_func';
96
97procedure gtk_action_group_set_translation_domain(action_group:PGtkActionGroup; domain:Pgchar);cdecl;external gtklib name 'gtk_action_group_set_translation_domain';
98
99
100{ Protected for use by GtkAction  }
101procedure _gtk_action_group_emit_connect_proxy(action_group:PGtkActionGroup; action:PGtkAction; proxy:PGtkWidget);cdecl;external gtklib name '_gtk_action_group_emit_connect_proxy';
102procedure _gtk_action_group_emit_disconnect_proxy(action_group:PGtkActionGroup; action:PGtkAction; proxy:PGtkWidget);cdecl;external gtklib name '_gtk_action_group_emit_disconnect_proxy';
103procedure _gtk_action_group_emit_pre_activate(action_group:PGtkActionGroup; action:PGtkAction);cdecl;external gtklib name '_gtk_action_group_emit_pre_activate';
104procedure _gtk_action_group_emit_post_activate(action_group:PGtkActionGroup; action:PGtkAction);cdecl;external gtklib name '_gtk_action_group_emit_post_activate';
105
106{$endif read_interface_rest}
107
108{$ifdef read_implementation}
109
110function GTK_TYPE_ACTION_GROUP : GType;
111begin
112   GTK_TYPE_ACTION_GROUP:=gtk_action_group_get_type;
113end;
114
115function GTK_ACTION_GROUP(obj : pointer) : PGtkActionGroup;
116begin
117   GTK_ACTION_GROUP:=PGtkActionGroup(G_TYPE_CHECK_INSTANCE_CAST(obj,GTK_TYPE_ACTION_GROUP));
118end;
119
120function GTK_ACTION_GROUP_CLASS(vtable : pointer) : PGtkActionGroupClass;
121begin
122   GTK_ACTION_GROUP_CLASS:=PGtkActionGroupClass(G_TYPE_CHECK_CLASS_CAST(vtable,GTK_TYPE_ACTION_GROUP));
123end;
124
125function GTK_IS_ACTION_GROUP(obj : pointer) : gboolean;
126begin
127   GTK_IS_ACTION_GROUP:=G_TYPE_CHECK_INSTANCE_TYPE(obj,GTK_TYPE_ACTION_GROUP);
128end;
129
130function GTK_IS_ACTION_GROUP_CLASS(vtable : pointer) : gboolean;
131begin
132   GTK_IS_ACTION_GROUP_CLASS:=G_TYPE_CHECK_CLASS_TYPE(vtable,GTK_TYPE_ACTION_GROUP);
133end;
134
135function GTK_ACTION_GROUP_GET_CLASS(inst : pointer) : PGtkActionGroupClass;
136begin
137   GTK_ACTION_GROUP_GET_CLASS:=PGtkActionGroupClass(G_TYPE_INSTANCE_GET_CLASS(inst,GTK_TYPE_ACTION_GROUP));
138end;
139
140
141{$endif read_implementation}
142