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 84190c23407f330a01c4f09cf5831974e6a2df89..8b56b7ffa7b218cc8cdbaee03588cd5c485226ad 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.
  */
 
  * 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>
 
 
 #include <gdk/gdk.h>


@@ -37,3 +37,9 @@ gint clg_gdk_connection_number (GdkDisplay *display)
 {
   return ConnectionNumber (((struct _GdkDisplayX11 *)display)->xdisplay);
 }
 {
   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 f064b9690dd278b599b1b289cc84830f10106db6..9a8a60af64a0240eb11c2c42e613cca98a8b64ad 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.
 
 ;; 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")
 
 
 (in-package "GDK")


@@ -1048,6 +1048,10 @@   (defbinding cairo-rectangle () nil
 ;;   (defbinding cairo-region () nil
 ;;     (cr cairo:context)
 ;;     (region region))
 ;;   (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))

 )
 
 
 )