/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

  1. {%MainUnit ../gdk2x.pas}
  2. {$IFDEF read_interface_rest}
  3. { Pixmap implementation for X11 }
  4. type
  5. PGdkPixmapImplX11 = ^TGdkPixmapImplX11;
  6. TGdkPixmapImplX11 = record
  7. parent_instance : TGdkDrawableImplX11;
  8. width : gint;
  9. height : gint;
  10. flag0 : word;
  11. end;
  12. type
  13. PGdkPixmapImplX11Class = ^TGdkPixmapImplX11Class;
  14. TGdkPixmapImplX11Class = record
  15. parent_class : TGdkDrawableImplX11Class;
  16. end;
  17. // Private function GDK_TYPE_PIXMAP_IMPL_X11 : GType;
  18. function GDK_PIXMAP_IMPL_X11(obj : pointer) : PGdkPixmapImplX11;
  19. function GDK_PIXMAP_IMPL_X11_CLASS(klass : pointer) : PGdkPixmapImplX11Class;
  20. // Private function GDK_IS_PIXMAP_IMPL_X11(obj : pointer) : boolean;
  21. // Private function GDK_IS_PIXMAP_IMPL_X11_CLASS(klass : pointer) : boolean;
  22. // Private function GDK_PIXMAP_IMPL_X11_GET_CLASS(obj : pointer) : PGdkPixmapImplX11Class;
  23. const
  24. bm_TGdkPixmapImplX11_is_foreign = $1;
  25. bp_TGdkPixmapImplX11_is_foreign = 0;
  26. function is_foreign(a : PGdkPixmapImplX11) : guint;
  27. procedure set_is_foreign(a : PGdkPixmapImplX11; __is_foreign : guint);
  28. {$ENDIF read_interface_rest}
  29. //------------------------------------------------------------------------------
  30. {$IFDEF read_implementation}
  31. { Private
  32. function gdk_pixmap_impl_x11_get_type: GType; cdecl; external;
  33. function GDK_TYPE_PIXMAP_IMPL_X11 : GType;
  34. begin
  35. GDK_TYPE_PIXMAP_IMPL_X11:=gdk_pixmap_impl_x11_get_type;
  36. end; }
  37. function GDK_PIXMAP_IMPL_X11(obj : pointer) : PGdkPixmapImplX11;
  38. begin
  39. GDK_PIXMAP_IMPL_X11:=PGdkPixmapImplX11(obj);
  40. //GDK_PIXMAP_IMPL_X11:=PGdkPixmapImplX11(G_TYPE_CHECK_INSTANCE_CAST(obj,GDK_TYPE_PIXMAP_IMPL_X11));
  41. end;
  42. function GDK_PIXMAP_IMPL_X11_CLASS(klass : pointer) : PGdkPixmapImplX11Class;
  43. begin
  44. GDK_PIXMAP_IMPL_X11_CLASS:=PGdkPixmapImplX11Class(klass);
  45. //GDK_PIXMAP_IMPL_X11_CLASS:=PGdkPixmapImplX11Class(G_TYPE_CHECK_CLASS_CAST(klass,GDK_TYPE_PIXMAP_IMPL_X11));
  46. end;
  47. { Private
  48. function GDK_IS_PIXMAP_IMPL_X11(obj : pointer) : boolean;
  49. begin
  50. GDK_IS_PIXMAP_IMPL_X11:=G_TYPE_CHECK_INSTANCE_TYPE(obj,GDK_TYPE_PIXMAP_IMPL_X11);
  51. end;
  52. function GDK_IS_PIXMAP_IMPL_X11_CLASS(klass : pointer) : boolean;
  53. begin
  54. GDK_IS_PIXMAP_IMPL_X11_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,GDK_TYPE_PIXMAP_IMPL_X11);
  55. end;
  56. function GDK_PIXMAP_IMPL_X11_GET_CLASS(obj : pointer) : PGdkPixmapImplX11Class;
  57. begin
  58. GDK_PIXMAP_IMPL_X11_GET_CLASS:=PGdkPixmapImplX11Class(G_TYPE_INSTANCE_GET_CLASS(obj,GDK_TYPE_PIXMAP_IMPL_X11));
  59. end; }
  60. function is_foreign(a : PGdkPixmapImplX11) : guint;
  61. begin
  62. is_foreign:=(a^.flag0 and bm_TGdkPixmapImplX11_is_foreign) shr bp_TGdkPixmapImplX11_is_foreign;
  63. end;
  64. procedure set_is_foreign(a : PGdkPixmapImplX11; __is_foreign : guint);
  65. begin
  66. a^.flag0:=a^.flag0 or ((__is_foreign shl bp_TGdkPixmapImplX11_is_foreign) and bm_TGdkPixmapImplX11_is_foreign);
  67. end;
  68. {$ENDIF read_implementation}