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

{$IfDef read_interface}

type
   PGnomeCanvasLine = ^TGnomeCanvasLine;
   TGnomeCanvasLine = record
        item : TGnomeCanvasItem;
        num_points : longint;
        coords : Pdouble;
        width : double;
        fill_color : guint;
        fill_pixel : gulong;
        stipple : PGdkBitmap;
        cap : TGdkCapStyle;
        join : TGdkJoinStyle;
        line_style : TGdkLineStyle;
        shape_a : double;
        shape_b : double;
        shape_c : double;
        first_coords : Pdouble;
        last_coords : Pdouble;
        spline_steps : longint;
        gc : PGdkGC;
        flag0 : word;
        fill_rgba : guint32;
        fill_svp : PArtSVP;
        first_svp : PArtSVP;
        last_svp : PArtSVP;
     end;
   GNOME_CANVAS_LINE = PGnomeCanvasLine;

const
   bm__GnomeCanvasLine_width_pixels = $1;
   bp__GnomeCanvasLine_width_pixels = 0;
   bm__GnomeCanvasLine_first_arrow = $2;
   bp__GnomeCanvasLine_first_arrow = 1;
   bm__GnomeCanvasLine_last_arrow = $4;
   bp__GnomeCanvasLine_last_arrow = 2;
   bm__GnomeCanvasLine_smooth = $8;
   bp__GnomeCanvasLine_smooth = 3;
function width_pixels(var a : TGnomeCanvasLine) : guint;
procedure set_width_pixels(var a : TGnomeCanvasLine; __width_pixels : guint);
function first_arrow(var a : TGnomeCanvasLine) : guint;
procedure set_first_arrow(var a : TGnomeCanvasLine; __first_arrow : guint);
function last_arrow(var a : TGnomeCanvasLine) : guint;
procedure set_last_arrow(var a : TGnomeCanvasLine; __last_arrow : guint);
function smooth(var a : TGnomeCanvasLine) : guint;
procedure set_smooth(var a : TGnomeCanvasLine; __smooth : guint);
type
   PGnomeCanvasLineClass = ^TGnomeCanvasLineClass;
   TGnomeCanvasLineClass = record
        parent_class : TGnomeCanvasItemClass;
     end;
   GNOME_CANVAS_LINE_CLASS = PGnomeCanvasLineClass;

function GNOME_TYPE_CANVAS_LINE : TGTKType;
function GNOME_IS_CANVAS_LINE(obj : Pointer) : Boolean;
function GNOME_IS_CANVAS_LINE_CLASS(klass : Pointer) : Boolean;

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

{$EndIf read_interface}

{$Ifdef read_implementation}

function GNOME_TYPE_CANVAS_LINE : TGTKType;
begin
  GNOME_TYPE_CANVAS_LINE:=gnome_canvas_line_get_type;
end;

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

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

function width_pixels(var a : TGnomeCanvasLine) : guint;
begin
   width_pixels:=(a.flag0 and bm__GnomeCanvasLine_width_pixels) shr bp__GnomeCanvasLine_width_pixels;
end;

procedure set_width_pixels(var a : TGnomeCanvasLine; __width_pixels : guint);
begin
   a.flag0:=a.flag0 or ((__width_pixels shl bp__GnomeCanvasLine_width_pixels) and bm__GnomeCanvasLine_width_pixels);
end;

function first_arrow(var a : TGnomeCanvasLine) : guint;
begin
   first_arrow:=(a.flag0 and bm__GnomeCanvasLine_first_arrow) shr bp__GnomeCanvasLine_first_arrow;
end;

procedure set_first_arrow(var a : TGnomeCanvasLine; __first_arrow : guint);
begin
   a.flag0:=a.flag0 or ((__first_arrow shl bp__GnomeCanvasLine_first_arrow) and bm__GnomeCanvasLine_first_arrow);
end;

function last_arrow(var a : TGnomeCanvasLine) : guint;
begin
   last_arrow:=(a.flag0 and bm__GnomeCanvasLine_last_arrow) shr bp__GnomeCanvasLine_last_arrow;
end;

procedure set_last_arrow(var a : TGnomeCanvasLine; __last_arrow : guint);
begin
   a.flag0:=a.flag0 or ((__last_arrow shl bp__GnomeCanvasLine_last_arrow) and bm__GnomeCanvasLine_last_arrow);
end;

function smooth(var a : TGnomeCanvasLine) : guint;
begin
   smooth:=(a.flag0 and bm__GnomeCanvasLine_smooth) shr bp__GnomeCanvasLine_smooth;
end;

procedure set_smooth(var a : TGnomeCanvasLine; __smooth : guint);
begin
   a.flag0:=a.flag0 or ((__smooth shl bp__GnomeCanvasLine_smooth) and bm__GnomeCanvasLine_smooth);
end;

{$Endif read_implementation}