gtk2: add gdk cairo functions (patch from Martin Sucha with modifications)

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13017 3ad0048d-3df7-0310-abae-a5850022a9f2

2 files changed, 23 insertions, 0 deletions

diff --git a/packages/gtk2/src/gtk+/gdk/gdkcairo.inc b/packages/gtk2/src/gtk+/gdk/gdkcairo.inc
new file mode 100644
index 0000000000..b282213c60
--- /dev/null
+++ b/packages/gtk2/src/gtk+/gdk/gdkcairo.inc
@@ -0,0 +1,22 @@
+// included by gdk2.pp
+
+{$IFDEF read_interface_types}
+  Pcairo_t = pointer;
+{$ENDIF read_interface_types}
+
+//------------------------------------------------------------------------------
+
+{$IFDEF read_interface_rest}
+function gdk_cairo_create(drawable:PGdkDrawable):Pcairo_t;cdecl;external gdklib;
+procedure gdk_cairo_set_source_color(cr:Pcairo_t; color:PGdkColor);cdecl;external gdklib;
+procedure gdk_cairo_set_source_pixbuf(cr:Pcairo_t; pixbuf:PGdkPixbuf; pixbuf_x:double; pixbuf_y:double);cdecl;external gdklib;
+procedure gdk_cairo_set_source_pixmap(cr:Pcairo_t; pixmap:PGdkPixmap; pixmap_x:double; pixmap_y:double);cdecl;external gdklib;
+procedure gdk_cairo_rectangle(cr:Pcairo_t; rectangle:PGdkRectangle);cdecl;external gdklib;
+procedure gdk_cairo_region(cr:Pcairo_t; region:PGdkRegion);cdecl;external gdklib;
+{$endif read_interface_rest}
+
+//------------------------------------------------------------------------------
+
+{$IFDEF read_implementation}
+{$ENDIF}
+
diff --git a/packages/gtk2/src/gtk+/gdk/gdkincludes.inc b/packages/gtk2/src/gtk+/gdk/gdkincludes.inc
index 49a13aa17d..826dc695eb 100644
--- a/packages/gtk2/src/gtk+/gdk/gdkincludes.inc
+++ b/packages/gtk2/src/gtk+/gdk/gdkincludes.inc
@@ -28,4 +28,5 @@
 {$include gdktypes.inc}
 {$include gdkvisual.inc}
 {$include gdkwindow.inc}
+{$include gdkcairo.inc}