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

// included by gtk2.pas

{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}

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

{$IFDEF read_interface_types}
   PGtkCellRendererToggle = ^TGtkCellRendererToggle;
   TGtkCellRendererToggle = record
        parent : TGtkCellRenderer;
        flag0 : word;
     end;

{ Padding for future expansion  }
   PGtkCellRendererToggleClass = ^TGtkCellRendererToggleClass;
   TGtkCellRendererToggleClass = record
        parent_class : TGtkCellRendererClass;
        toggled : procedure (cell_renderer_toggle:PGtkCellRendererToggle; path:Pgchar); 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_TGtkCellRendererToggle_active = $1;
   bp_TGtkCellRendererToggle_active = 0;
   bm_TGtkCellRendererToggle_activatable = $2;
   bp_TGtkCellRendererToggle_activatable = 1;
   bm_TGtkCellRendererToggle_radio = $4;
   bp_TGtkCellRendererToggle_radio = 2;


function GTK_TYPE_CELL_RENDERER_TOGGLE : GType;
function GTK_CELL_RENDERER_TOGGLE(obj: pointer) : PGtkCellRendererToggle;
function GTK_CELL_RENDERER_TOGGLE_CLASS(klass: pointer) : PGtkCellRendererToggleClass;
function GTK_IS_CELL_RENDERER_TOGGLE(obj: pointer) : boolean;
function GTK_IS_CELL_RENDERER_TOGGLE_CLASS(klass: pointer) : boolean;
function GTK_CELL_RENDERER_TOGGLE_GET_CLASS(obj: pointer) : PGtkCellRendererToggleClass;


function active(var a : TGtkCellRendererToggle) : guint; overload;
procedure set_active(var a : TGtkCellRendererToggle; __active : guint); overload;
function activatable(var a : TGtkCellRendererToggle) : guint;
procedure set_activatable(var a : TGtkCellRendererToggle; __activatable : guint);
function radio(var a : TGtkCellRendererToggle) : guint;
procedure set_radio(var a : TGtkCellRendererToggle; __radio : guint);


function gtk_cell_renderer_toggle_get_type:TGtkType; cdecl; external gtklib;
function gtk_cell_renderer_toggle_new:PGtkCellRenderer; cdecl; external gtklib;
function gtk_cell_renderer_toggle_get_radio(toggle:PGtkCellRendererToggle):gboolean; cdecl; external gtklib;
procedure gtk_cell_renderer_toggle_set_radio(toggle:PGtkCellRendererToggle; radio:gboolean); cdecl; external gtklib;
function gtk_cell_renderer_toggle_get_active(toggle:PGtkCellRendererToggle):gboolean; cdecl; external gtklib;
procedure gtk_cell_renderer_toggle_set_active(toggle:PGtkCellRendererToggle; setting:gboolean); cdecl; external gtklib;
{$ENDIF read_interface_rest}

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

{$IFDEF read_implementation}
function GTK_TYPE_CELL_RENDERER_TOGGLE : GType;
begin
   GTK_TYPE_CELL_RENDERER_TOGGLE:=gtk_cell_renderer_toggle_get_type;
end;

function GTK_CELL_RENDERER_TOGGLE(obj: pointer) : PGtkCellRendererToggle;
begin
   GTK_CELL_RENDERER_TOGGLE:=PGtkCellRendererToggle(GTK_CHECK_CAST(obj,GTK_TYPE_CELL_RENDERER_TOGGLE));
end;

function GTK_CELL_RENDERER_TOGGLE_CLASS(klass: pointer) : PGtkCellRendererToggleClass;
begin
   GTK_CELL_RENDERER_TOGGLE_CLASS:=PGtkCellRendererToggleClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_CELL_RENDERER_TOGGLE));
end;

function GTK_IS_CELL_RENDERER_TOGGLE(obj: pointer) : boolean;
begin
   GTK_IS_CELL_RENDERER_TOGGLE:=GTK_CHECK_TYPE(obj,GTK_TYPE_CELL_RENDERER_TOGGLE);
end;

function GTK_IS_CELL_RENDERER_TOGGLE_CLASS(klass: pointer) : boolean;
begin
   GTK_IS_CELL_RENDERER_TOGGLE_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_CELL_RENDERER_TOGGLE);
end;

function GTK_CELL_RENDERER_TOGGLE_GET_CLASS(obj: pointer) : PGtkCellRendererToggleClass;
begin
   GTK_CELL_RENDERER_TOGGLE_GET_CLASS:=PGtkCellRendererToggleClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_CELL_RENDERER_TOGGLE));
end;

function active(var a : TGtkCellRendererToggle) : guint;
begin
   active:=(a.flag0 and bm_TGtkCellRendererToggle_active) shr bp_TGtkCellRendererToggle_active;
end;

procedure set_active(var a : TGtkCellRendererToggle; __active : guint);
begin
   a.flag0:=a.flag0 or ((__active shl bp_TGtkCellRendererToggle_active) and bm_TGtkCellRendererToggle_active);
end;

function activatable(var a : TGtkCellRendererToggle) : guint;
begin
   activatable:=(a.flag0 and bm_TGtkCellRendererToggle_activatable) shr bp_TGtkCellRendererToggle_activatable;
end;

procedure set_activatable(var a : TGtkCellRendererToggle; __activatable : guint);
begin
   a.flag0:=a.flag0 or ((__activatable shl bp_TGtkCellRendererToggle_activatable) and bm_TGtkCellRendererToggle_activatable);
end;

function radio(var a : TGtkCellRendererToggle) : guint;
begin
   radio:=(a.flag0 and bm_TGtkCellRendererToggle_radio) shr bp_TGtkCellRendererToggle_radio;
end;

procedure set_radio(var a : TGtkCellRendererToggle; __radio : guint);
begin
   a.flag0:=a.flag0 or ((__radio shl bp_TGtkCellRendererToggle_radio) and bm_TGtkCellRendererToggle_radio);
end;

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