freepascal.compiler/packages/extra/gtk2/gtk+/gtk/gtkactiongroup.inc

{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}

{$IFDEF read_interface_types}
type
   PGtkActionGroupPrivate = pointer;

   PGtkActionGroup = ^TGtkActionGroup;
   TGtkActionGroup = record
        parent : TGObject;
        private_data : PGtkActionGroupPrivate;
     end;

{ Padding for future expansion  }
   PGtkActionGroupClass = ^TGtkActionGroupClass;
   TGtkActionGroupClass = record
        parent_class : TGObjectClass;
        get_action : function (action_group:PGtkActionGroup; action_name:Pgchar):PGtkAction;cdecl;
        _gtk_reserved1 : procedure ;
        _gtk_reserved2 : procedure ;
        _gtk_reserved3 : procedure ;
        _gtk_reserved4 : procedure ;
     end;

  (* prefixed pgchar types  with sz due name conflict with label *)
   PGtkActionEntry = ^TGtkActionEntry;
   TGtkActionEntry = record
        szName : Pgchar;
        szStock_id : Pgchar;
        szLabel : Pgchar;
        szAccelerator : Pgchar;
        szTooltip : Pgchar;
        callback : TGCallback;
     end;

   PGtkToggleActionEntry = ^TGtkToggleActionEntry;
   TGtkToggleActionEntry = record
        szName : Pgchar;
        szStock_id : Pgchar;
        szLabel : Pgchar;
        szAccelerator : Pgchar;
        szTooltip : Pgchar;
        callback : TGCallback;
        is_active : gboolean;
     end;

   PGtkRadioActionEntry = ^TGtkRadioActionEntry;
   TGtkRadioActionEntry = record
        szName : Pgchar;
        szStock_id : Pgchar;
        szLabel : Pgchar;
        szAccelerator : Pgchar;
        szTooltip : Pgchar;
        value : gint;
     end;

{$ENDIF read_interface_types}

{$IFDEF read_interface_rest}

function GTK_TYPE_ACTION_GROUP : GType;
function GTK_ACTION_GROUP(obj : pointer) : PGtkActionGroup;
function GTK_ACTION_GROUP_CLASS(vtable : pointer) : PGtkActionGroupClass;
function GTK_IS_ACTION_GROUP(obj : pointer) : gboolean;
function GTK_IS_ACTION_GROUP_CLASS(vtable : pointer) : gboolean;
function GTK_ACTION_GROUP_GET_CLASS(inst : pointer) : PGtkActionGroupClass;



function gtk_action_group_get_type:GType;cdecl;external gtklib name 'gtk_action_group_get_type';

function gtk_action_group_new(name:Pgchar):PGtkActionGroup;cdecl;external gtklib name 'gtk_action_group_new';

function gtk_action_group_get_name(action_group:PGtkActionGroup):Pgchar;cdecl;external gtklib name 'gtk_action_group_get_name';
function gtk_action_group_get_sensitive(action_group:PGtkActionGroup):gboolean;cdecl;external gtklib name 'gtk_action_group_get_sensitive';
procedure gtk_action_group_set_sensitive(action_group:PGtkActionGroup; sensitive:gboolean);cdecl;external gtklib name 'gtk_action_group_set_sensitive';
function gtk_action_group_get_visible(action_group:PGtkActionGroup):gboolean;cdecl;external gtklib name 'gtk_action_group_get_visible';
procedure gtk_action_group_set_visible(action_group:PGtkActionGroup; visible:gboolean);cdecl;external gtklib name 'gtk_action_group_set_visible';

function gtk_action_group_get_action(action_group:PGtkActionGroup; action_name:Pgchar):PGtkAction;cdecl;external gtklib name 'gtk_action_group_get_action';
function gtk_action_group_list_actions(action_group:PGtkActionGroup):PGList;cdecl;external gtklib name 'gtk_action_group_list_actions';
procedure gtk_action_group_add_action(action_group:PGtkActionGroup; action:PGtkAction);cdecl;external gtklib name 'gtk_action_group_add_action';

procedure 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';
procedure gtk_action_group_remove_action(action_group:PGtkActionGroup; action:PGtkAction);cdecl;external gtklib name 'gtk_action_group_remove_action';
procedure 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';
procedure 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';
procedure gtk_action_group_add_radio_actions(action_group:PGtkActionGroup; entries:PGtkRadioActionEntry; n_entries:guint; value:gint; on_change:TGCallback;
            user_data:gpointer);cdecl;external gtklib name 'gtk_action_group_add_radio_actions';
procedure 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';
procedure 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';
procedure gtk_action_group_add_radio_actions_full(action_group:PGtkActionGroup; entries:PGtkRadioActionEntry; n_entries:guint; value:gint; on_change:TGCallback;
            user_data:gpointer; destroy:TGDestroyNotify);cdecl;external gtklib name 'gtk_action_group_add_radio_actions_full';

procedure 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';

procedure gtk_action_group_set_translation_domain(action_group:PGtkActionGroup; domain:Pgchar);cdecl;external gtklib name 'gtk_action_group_set_translation_domain';


{ Protected for use by GtkAction  }
procedure _gtk_action_group_emit_connect_proxy(action_group:PGtkActionGroup; action:PGtkAction; proxy:PGtkWidget);cdecl;external gtklib name '_gtk_action_group_emit_connect_proxy';
procedure _gtk_action_group_emit_disconnect_proxy(action_group:PGtkActionGroup; action:PGtkAction; proxy:PGtkWidget);cdecl;external gtklib name '_gtk_action_group_emit_disconnect_proxy';
procedure _gtk_action_group_emit_pre_activate(action_group:PGtkActionGroup; action:PGtkAction);cdecl;external gtklib name '_gtk_action_group_emit_pre_activate';
procedure _gtk_action_group_emit_post_activate(action_group:PGtkActionGroup; action:PGtkAction);cdecl;external gtklib name '_gtk_action_group_emit_post_activate';

{$endif read_interface_rest}

{$ifdef read_implementation}

function GTK_TYPE_ACTION_GROUP : GType;
begin
   GTK_TYPE_ACTION_GROUP:=gtk_action_group_get_type;
end;

function GTK_ACTION_GROUP(obj : pointer) : PGtkActionGroup;
begin
   GTK_ACTION_GROUP:=PGtkActionGroup(G_TYPE_CHECK_INSTANCE_CAST(obj,GTK_TYPE_ACTION_GROUP));
end;

function GTK_ACTION_GROUP_CLASS(vtable : pointer) : PGtkActionGroupClass;
begin
   GTK_ACTION_GROUP_CLASS:=PGtkActionGroupClass(G_TYPE_CHECK_CLASS_CAST(vtable,GTK_TYPE_ACTION_GROUP));
end;

function GTK_IS_ACTION_GROUP(obj : pointer) : gboolean;
begin
   GTK_IS_ACTION_GROUP:=G_TYPE_CHECK_INSTANCE_TYPE(obj,GTK_TYPE_ACTION_GROUP);
end;

function GTK_IS_ACTION_GROUP_CLASS(vtable : pointer) : gboolean;
begin
   GTK_IS_ACTION_GROUP_CLASS:=G_TYPE_CHECK_CLASS_TYPE(vtable,GTK_TYPE_ACTION_GROUP);
end;

function GTK_ACTION_GROUP_GET_CLASS(inst : pointer) : PGtkActionGroupClass;
begin
   GTK_ACTION_GROUP_GET_CLASS:=PGtkActionGroupClass(G_TYPE_INSTANCE_GET_CLASS(inst,GTK_TYPE_ACTION_GROUP));
end;


{$endif read_implementation}