PageRenderTime 19ms CodeModel.GetById 13ms app.highlight 4ms RepoModel.GetById 0ms app.codeStats 0ms

/packages/gtk2/src/gtk2x11/include/gdkpixmap-x11.inc

https://github.com/slibre/freepascal
Pascal | 90 lines | 36 code | 19 blank | 35 comment | 0 complexity | 13f335dab78223ea2f33de1a4aa4f0f3 MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
 1{%MainUnit ../gdk2x.pas}
 2
 3{$IFDEF read_interface_rest}
 4
 5{ Pixmap implementation for X11 }
 6
 7type
 8   PGdkPixmapImplX11 = ^TGdkPixmapImplX11;
 9   TGdkPixmapImplX11 = record
10        parent_instance : TGdkDrawableImplX11;
11        width : gint;
12        height : gint;
13        flag0 : word;
14     end;
15
16type
17   PGdkPixmapImplX11Class = ^TGdkPixmapImplX11Class;
18   TGdkPixmapImplX11Class = record
19        parent_class : TGdkDrawableImplX11Class;
20     end;
21
22// Private function GDK_TYPE_PIXMAP_IMPL_X11 : GType;
23function GDK_PIXMAP_IMPL_X11(obj : pointer) : PGdkPixmapImplX11;
24function GDK_PIXMAP_IMPL_X11_CLASS(klass : pointer) : PGdkPixmapImplX11Class;
25// Private function GDK_IS_PIXMAP_IMPL_X11(obj : pointer) : boolean;
26// Private function GDK_IS_PIXMAP_IMPL_X11_CLASS(klass : pointer) : boolean;
27// Private function GDK_PIXMAP_IMPL_X11_GET_CLASS(obj : pointer) : PGdkPixmapImplX11Class;
28
29
30const
31   bm_TGdkPixmapImplX11_is_foreign = $1;
32   bp_TGdkPixmapImplX11_is_foreign = 0;
33
34function is_foreign(a : PGdkPixmapImplX11) : guint;
35procedure set_is_foreign(a : PGdkPixmapImplX11; __is_foreign : guint);
36
37{$ENDIF read_interface_rest}
38
39//------------------------------------------------------------------------------
40
41{$IFDEF read_implementation}
42
43{ Private
44function gdk_pixmap_impl_x11_get_type: GType; cdecl; external;
45
46function GDK_TYPE_PIXMAP_IMPL_X11 : GType;
47begin
48   GDK_TYPE_PIXMAP_IMPL_X11:=gdk_pixmap_impl_x11_get_type;
49end;     }
50
51function GDK_PIXMAP_IMPL_X11(obj : pointer) : PGdkPixmapImplX11;
52begin
53   GDK_PIXMAP_IMPL_X11:=PGdkPixmapImplX11(obj);
54   //GDK_PIXMAP_IMPL_X11:=PGdkPixmapImplX11(G_TYPE_CHECK_INSTANCE_CAST(obj,GDK_TYPE_PIXMAP_IMPL_X11));
55end;
56
57function GDK_PIXMAP_IMPL_X11_CLASS(klass : pointer) : PGdkPixmapImplX11Class;
58begin
59   GDK_PIXMAP_IMPL_X11_CLASS:=PGdkPixmapImplX11Class(klass);
60   //GDK_PIXMAP_IMPL_X11_CLASS:=PGdkPixmapImplX11Class(G_TYPE_CHECK_CLASS_CAST(klass,GDK_TYPE_PIXMAP_IMPL_X11));
61end;
62
63{ Private
64function GDK_IS_PIXMAP_IMPL_X11(obj : pointer) : boolean;
65begin
66   GDK_IS_PIXMAP_IMPL_X11:=G_TYPE_CHECK_INSTANCE_TYPE(obj,GDK_TYPE_PIXMAP_IMPL_X11);
67end;
68
69function GDK_IS_PIXMAP_IMPL_X11_CLASS(klass : pointer) : boolean;
70begin
71   GDK_IS_PIXMAP_IMPL_X11_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,GDK_TYPE_PIXMAP_IMPL_X11);
72end;
73
74function GDK_PIXMAP_IMPL_X11_GET_CLASS(obj : pointer) : PGdkPixmapImplX11Class;
75begin
76   GDK_PIXMAP_IMPL_X11_GET_CLASS:=PGdkPixmapImplX11Class(G_TYPE_INSTANCE_GET_CLASS(obj,GDK_TYPE_PIXMAP_IMPL_X11));
77end; }
78
79function is_foreign(a : PGdkPixmapImplX11) : guint;
80begin
81   is_foreign:=(a^.flag0 and bm_TGdkPixmapImplX11_is_foreign) shr bp_TGdkPixmapImplX11_is_foreign;
82end;
83
84procedure set_is_foreign(a : PGdkPixmapImplX11; __is_foreign : guint);
85begin
86   a^.flag0:=a^.flag0 or ((__is_foreign shl bp_TGdkPixmapImplX11_is_foreign) and bm_TGdkPixmapImplX11_is_foreign);
87end;
88
89{$ENDIF read_implementation}
90