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