Added function to get the GDK window associated to a Cairo xlib surface

diff --git a/gdk/alien/glue.c b/gdk/alien/glue.c
index b2bcc1071953222c40efe49434ff1cf73c4138f5..c165b5299d92a0528f2c592ba0c7128def780773 100644 (file)
--- 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 f802e65ef965e8f0857bc90332a294564f760838..5e18e2ec69bcc0d5e3999ee6a2062ee3b3abe7a4 100644 (file)
--- 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))
 )