[perl-Gtk2] Wrap overlooked gdk 2.18 API

[Torsten Schönfeld <tsch src gnome org>]

commit e88c9c98060936b170f0d1bbcf34042873a4313e
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Fri Dec 31 02:12:01 2010 +0100

    Wrap overlooked gdk 2.18 API

 NEWS            |    3 ++-
 t/GdkWindow.t   |    8 ++++++--
 xs/GdkWindow.xs |    4 ++++
 3 files changed, 12 insertions(+), 3 deletions(-)
---
diff --git a/NEWS b/NEWS
index 1e4c6da..74e3731 100644
--- a/NEWS
+++ b/NEWS
@@ -1,9 +1,10 @@
 Overview of changes in the next unstable release
 ================================================
 
-* Wrap missing gtk+ 2.8, 2.10, 2.12, 2.14, 2.16, 2.18 and 2.20 API.
 * Wrap gtk+ 2.22 API.
 * Wrap gdk 2.20 and 2.22 API.
+* Wrap missing gtk+ 2.8, 2.10, 2.12, 2.14, 2.16, 2.18 and 2.20 API.
+* Wrap missing gdk 2.18 API.
 * Gtk2::Notebook: fix invocation of window creation hooks.
 * Fix length of Gtk2::Gdk::Pixbuf->get_pixels() return.
 * Allow Gtk2::Buildable implementations to return undef from
diff --git a/t/GdkWindow.t b/t/GdkWindow.t
index e5d9949..e65931b 100644
--- a/t/GdkWindow.t
+++ b/t/GdkWindow.t
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 use strict;
-use Gtk2::TestHelper tests => 56;
+use Gtk2::TestHelper tests => 58;
 
 # $Id$
 
@@ -329,7 +329,7 @@ SKIP: {
 $window -> hide();
 
 SKIP: {
-  skip 'new 2.18 stuff', 5
+  skip 'new 2.18 stuff', 7
     unless Gtk2->CHECK_VERSION(2, 18, 0);
 
   my $window = Gtk2::Gdk::Window -> new(undef, { window_type => 'toplevel' });
@@ -352,6 +352,10 @@ SKIP: {
   $offscreen->set_embedder($gtkwindow->window);
   isa_ok($offscreen->get_pixmap,  'Gtk2::Gdk::Pixmap');
   isa_ok($offscreen->get_embedder,'Gtk2::Gdk::Window');
+
+  my ($rx, $ry) = $window->get_root_coords(0, 0);
+  ok(defined $rx && defined $ry);
+  ok(defined $window->is_destroyed());
 }
 
 SKIP: {
diff --git a/xs/GdkWindow.xs b/xs/GdkWindow.xs
index 63c51ba..fc614ca 100644
--- a/xs/GdkWindow.xs
+++ b/xs/GdkWindow.xs
@@ -1039,6 +1039,10 @@ Only useful for offscreen C<Gtk2::Gdk::Windows>.
 =cut
 void gdk_window_geometry_changed (GdkWindow *window);
 
+void gdk_window_get_root_coords (GdkWindow *window, gint x, gint y, OUTLIST gint root_x, OUTLIST gint root_y);
+
+gboolean gdk_window_is_destroyed (GdkWindow *window);
+
 #endif /* 2.18 */
 
 #if GTK_CHECK_VERSION (2, 22, 0)