From aadaf8fb0d034374e4d4ad253bc37608c13c96e3 Mon Sep 17 00:00:00 2001
Message-Id: <aadaf8fb0d034374e4d4ad253bc37608c13c96e3.1714791317.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Fri, 6 Apr 2007 14:25:20 +0000
Subject: [PATCH] Added function to get the GDK window associated to a Cairo
 xlib surface
Organization: Straylight/Edgeware

From: espen <espen>

---
 gdk/alien/glue.c | 8 +++++++-
 gdk/gdk.lisp     | 6 +++++-
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/gdk/alien/glue.c b/gdk/alien/glue.c
index b2bcc10..c165b52 100644
--- a/gdk/alien/glue.c
+++ b/gdk/alien/glue.c
@@ -21,7 +21,7 @@
  * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  */
 
-/* $Id: glue.c,v 1.3 2005-04-23 16:48:50 espen Exp $ */
+/* $Id: glue.c,v 1.4 2007-04-06 14:25:20 espen Exp $ */
 
 
 #include <gdk/gdk.h>
@@ -37,3 +37,9 @@ gint clg_gdk_connection_number (GdkDisplay *display)
 {
   return ConnectionNumber (((struct _GdkDisplayX11 *)display)->xdisplay);
 }
+
+
+GdkWindow *clg_gdk_cairo_xlib_surface_get_window (cairo_surface_t *surface)
+{
+  return gdk_window_lookup (cairo_xlib_surface_get_drawable (surface));
+}
diff --git a/gdk/gdk.lisp b/gdk/gdk.lisp
index f802e65..5e18e2e 100644
--- a/gdk/gdk.lisp
+++ b/gdk/gdk.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: gdk.lisp,v 1.34 2007-04-06 14:19:08 espen Exp $
+;; $Id: gdk.lisp,v 1.35 2007-04-06 14:25:20 espen Exp $
 
 
 (in-package "GDK")
@@ -1048,6 +1048,10 @@   (defbinding cairo-rectangle () nil
 ;;   (defbinding cairo-region () nil
 ;;     (cr cairo:context)
 ;;     (region region))
+
+  (defbinding (cairo-xlib-surface-get-window 
+	       "clg_gdk_cairo_xlib_surface_get_window") () window
+  (surface cairo:xlib-surface))
 )
 
 
-- 
[mdw]