freepascal.compiler/packages/extra/gnome1/gnome/libgnomeui/gnomecanvaswidget.inc

{$IfDef read_interface}

type
   PGnomeCanvasWidget = ^TGnomeCanvasWidget;
   TGnomeCanvasWidget = record
        item : TGnomeCanvasItem;
        widget : PGtkWidget;
        x : double;
        y : double;
        width : double;
        height : double;
        anchor : TGtkAnchorType;
        cx : longint;
        cy : longint;
        cwidth : longint;
        cheight : longint;
        destroy_id : guint;
        flag0 : word;
     end;
   GNOME_CANVAS_WIDGET = PGnomeCanvasWidget;

const
   bm__GnomeCanvasWidget_size_pixels = $1;
   bp__GnomeCanvasWidget_size_pixels = 0;
   bm__GnomeCanvasWidget_in_destroy = $2;
   bp__GnomeCanvasWidget_in_destroy = 1;
function size_pixels(var a : TGnomeCanvasWidget) : guint;
procedure set_size_pixels(var a : TGnomeCanvasWidget; __size_pixels : guint);
function in_destroy(var a : TGnomeCanvasWidget) : guint;
procedure set_in_destroy(var a : TGnomeCanvasWidget; __in_destroy : guint);
type
   PGnomeCanvasWidgetClass = ^TGnomeCanvasWidgetClass;
   TGnomeCanvasWidgetClass = record
        parent_class : TGnomeCanvasItemClass;
     end;
   GNOME_CANVAS_WIDGET_CLASS = PGnomeCanvasWidgetClass;

function GNOME_TYPE_CANVAS_WIDGET : TGTKType;
function GNOME_IS_CANVAS_WIDGET(obj : Pointer) : Boolean;
function GNOME_IS_CANVAS_WIDGET_CLASS(klass : Pointer) : Boolean;

function gnome_canvas_widget_get_type:TGtkType;cdecl;external libgnomeuidll name 'gnome_canvas_widget_get_type';

{$EndIf read_interface}

{$Ifdef read_implementation}

function GNOME_TYPE_CANVAS_WIDGET : TGTKType;
begin
  GNOME_TYPE_CANVAS_WIDGET:=gnome_canvas_widget_get_type;
end;

function GNOME_IS_CANVAS_WIDGET(obj : Pointer) : Boolean;
begin
   GNOME_IS_CANVAS_WIDGET:=(obj<>nil) and GNOME_IS_CANVAS_WIDGET_CLASS(PGtkTypeObject(obj)^.klass);
end;

function GNOME_IS_CANVAS_WIDGET_CLASS(klass : Pointer) : Boolean;
begin
   GNOME_IS_CANVAS_WIDGET_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GNOME_TYPE_CANVAS_WIDGET);
end;

function size_pixels(var a : TGnomeCanvasWidget) : guint;
begin
   size_pixels:=(a.flag0 and bm__GnomeCanvasWidget_size_pixels) shr bp__GnomeCanvasWidget_size_pixels;
end;

procedure set_size_pixels(var a : TGnomeCanvasWidget; __size_pixels : guint);
begin
   a.flag0:=a.flag0 or ((__size_pixels shl bp__GnomeCanvasWidget_size_pixels) and bm__GnomeCanvasWidget_size_pixels);
end;

function in_destroy(var a : TGnomeCanvasWidget) : guint;
begin
   in_destroy:=(a.flag0 and bm__GnomeCanvasWidget_in_destroy) shr bp__GnomeCanvasWidget_in_destroy;
end;

procedure set_in_destroy(var a : TGnomeCanvasWidget; __in_destroy : guint);
begin
   a.flag0:=a.flag0 or ((__in_destroy shl bp__GnomeCanvasWidget_in_destroy) and bm__GnomeCanvasWidget_in_destroy);
end;

{$Endif read_implementation}