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

// included by gtk2.pas

{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}

//------------------------------------------------------------------------------

{$IFDEF read_interface_types}
   PGtkCheckMenuItem = ^TGtkCheckMenuItem;
   TGtkCheckMenuItem = record
        menu_item : TGtkMenuItem;
        flag0 : word;
     end;

{ Padding for future expansion  }
   PGtkCheckMenuItemClass = ^TGtkCheckMenuItemClass;
   TGtkCheckMenuItemClass = record
        parent_class : TGtkMenuItemClass;
        toggled : procedure (check_menu_item:PGtkCheckMenuItem); cdecl;
        draw_indicator : procedure (check_menu_item:PGtkCheckMenuItem; area:PGdkRectangle); cdecl;
        _gtk_reserved1 : procedure ; cdecl;
        _gtk_reserved2 : procedure ; cdecl;
        _gtk_reserved3 : procedure ; cdecl;
        _gtk_reserved4 : procedure ; cdecl;
     end;
{$ENDIF read_interface_types}

//------------------------------------------------------------------------------

{$IFDEF read_interface_rest}
const
   bm_TGtkCheckMenuItem_active = $1;
   bp_TGtkCheckMenuItem_active = 0;
   bm_TGtkCheckMenuItem_always_show_toggle = $2;
   bp_TGtkCheckMenuItem_always_show_toggle = 1;
   bm_TGtkCheckMenuItem_inconsistent = $4;
   bp_TGtkCheckMenuItem_inconsistent = 2;
function GTK_TYPE_CHECK_MENU_ITEM : GType;
function GTK_CHECK_MENU_ITEM(obj: pointer) : PGtkCheckMenuItem;
function GTK_CHECK_MENU_ITEM_CLASS(klass: pointer) : PGtkCheckMenuItemClass;
function GTK_IS_CHECK_MENU_ITEM(obj: pointer) : boolean;
function GTK_IS_CHECK_MENU_ITEM_CLASS(klass: pointer) : boolean;
function GTK_CHECK_MENU_ITEM_GET_CLASS(obj: pointer) : PGtkCheckMenuItemClass;

function active(var a : TGtkCheckMenuItem) : guint; overload;
procedure set_active(var a : TGtkCheckMenuItem; __active : guint); overload;
function always_show_toggle(var a : TGtkCheckMenuItem) : guint;
procedure set_always_show_toggle(var a : TGtkCheckMenuItem; __always_show_toggle : guint);
function inconsistent(var a : TGtkCheckMenuItem) : guint; overload;
procedure set_inconsistent(var a : TGtkCheckMenuItem; __inconsistent : guint); overload;


function gtk_check_menu_item_get_type:TGtkType; cdecl; external gtklib;
function gtk_check_menu_item_new:PGtkWidget; cdecl; external gtklib;
function gtk_check_menu_item_new_with_label(_label:Pgchar):PGtkWidget; cdecl; external gtklib;
function gtk_check_menu_item_new_with_mnemonic(_label:Pgchar):PGtkWidget; cdecl; external gtklib;
procedure gtk_check_menu_item_set_active(check_menu_item:PGtkCheckMenuItem; is_active:gboolean); cdecl; external gtklib;
function gtk_check_menu_item_get_active(check_menu_item:PGtkCheckMenuItem):gboolean; cdecl; external gtklib;
procedure gtk_check_menu_item_toggled(check_menu_item:PGtkCheckMenuItem); cdecl; external gtklib;
procedure gtk_check_menu_item_set_inconsistent(check_menu_item:PGtkCheckMenuItem; setting:gboolean); cdecl; external gtklib;
function gtk_check_menu_item_get_inconsistent(check_menu_item:PGtkCheckMenuItem):gboolean; cdecl; external gtklib;

{$ifndef GTK_DISABLE_DEPRECATED}
procedure gtk_check_menu_item_set_show_toggle(menu_item:PGtkCheckMenuItem; always:gboolean); cdecl; external gtklib;

procedure gtk_check_menu_item_set_state(check_menu_item:PGtkCheckMenuItem; is_active:gboolean);
{$endif}
{$ENDIF read_interface_rest}

//------------------------------------------------------------------------------

{$IFDEF read_implementation}
function GTK_TYPE_CHECK_MENU_ITEM : GType;
begin
   GTK_TYPE_CHECK_MENU_ITEM:=gtk_check_menu_item_get_type;
end;

function GTK_CHECK_MENU_ITEM(obj: pointer) : PGtkCheckMenuItem;
begin
   GTK_CHECK_MENU_ITEM:=PGtkCheckMenuItem(GTK_CHECK_CAST(obj,GTK_TYPE_CHECK_MENU_ITEM));
end;

function GTK_CHECK_MENU_ITEM_CLASS(klass: pointer) : PGtkCheckMenuItemClass;
begin
   GTK_CHECK_MENU_ITEM_CLASS:=PGtkCheckMenuItemClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_CHECK_MENU_ITEM));
end;

function GTK_IS_CHECK_MENU_ITEM(obj: pointer) : boolean;
begin
   GTK_IS_CHECK_MENU_ITEM:=GTK_CHECK_TYPE(obj,GTK_TYPE_CHECK_MENU_ITEM);
end;

function GTK_IS_CHECK_MENU_ITEM_CLASS(klass: pointer) : boolean;
begin
   GTK_IS_CHECK_MENU_ITEM_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_CHECK_MENU_ITEM);
end;

function GTK_CHECK_MENU_ITEM_GET_CLASS(obj: pointer) : PGtkCheckMenuItemClass;
begin
   GTK_CHECK_MENU_ITEM_GET_CLASS:=PGtkCheckMenuItemClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_CHECK_MENU_ITEM));
end;

function active(var a : TGtkCheckMenuItem) : guint;
begin
   active:=(a.flag0 and bm_TGtkCheckMenuItem_active) shr bp_TGtkCheckMenuItem_active;
end;

procedure set_active(var a : TGtkCheckMenuItem; __active : guint);
begin
   a.flag0:=a.flag0 or ((__active shl bp_TGtkCheckMenuItem_active) and bm_TGtkCheckMenuItem_active);
end;

function always_show_toggle(var a : TGtkCheckMenuItem) : guint;
begin
   always_show_toggle:=(a.flag0 and bm_TGtkCheckMenuItem_always_show_toggle) shr bp_TGtkCheckMenuItem_always_show_toggle;
end;

procedure set_always_show_toggle(var a : TGtkCheckMenuItem; __always_show_toggle : guint);
begin
   a.flag0:=a.flag0 or ((__always_show_toggle shl bp_TGtkCheckMenuItem_always_show_toggle) and bm_TGtkCheckMenuItem_always_show_toggle);
end;

function inconsistent(var a : TGtkCheckMenuItem) : guint;
begin
   inconsistent:=(a.flag0 and bm_TGtkCheckMenuItem_inconsistent) shr bp_TGtkCheckMenuItem_inconsistent;
end;

procedure set_inconsistent(var a : TGtkCheckMenuItem; __inconsistent : guint);
begin
   a.flag0:=a.flag0 or ((__inconsistent shl bp_TGtkCheckMenuItem_inconsistent) and bm_TGtkCheckMenuItem_inconsistent);
end;

{$ifndef GTK_DISABLE_DEPRECATED}
procedure gtk_check_menu_item_set_state(check_menu_item:PGtkCheckMenuItem; is_active:gboolean);
begin
  gtk_check_menu_item_set_active(check_menu_item,is_active);
end;
{$endif}

{$ENDIF read_implementation}
// included by gtk2.pas