55212af1 |
1 | /* Common Lisp bindings for GTK+ v2.x |
0720bb75 |
2 | * Copyright 1999-2007 Espen S. Johnsen <espen@users.sf.net> |
3aedf9ef |
3 | * |
55212af1 |
4 | * Permission is hereby granted, free of charge, to any person obtaining |
5 | * a copy of this software and associated documentation files (the |
6 | * "Software"), to deal in the Software without restriction, including |
7 | * without limitation the rights to use, copy, modify, merge, publish, |
8 | * distribute, sublicense, and/or sell copies of the Software, and to |
9 | * permit persons to whom the Software is furnished to do so, subject to |
10 | * the following conditions: |
3aedf9ef |
11 | * |
55212af1 |
12 | * The above copyright notice and this permission notice shall be |
13 | * included in all copies or substantial portions of the Software. |
3aedf9ef |
14 | * |
55212af1 |
15 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, |
16 | * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF |
17 | * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. |
18 | * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY |
19 | * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, |
20 | * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE |
21 | * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. |
3aedf9ef |
22 | */ |
23 | |
cda9fdb0 |
24 | /* $Id: glue.c,v 1.6 2007/06/01 09:23:41 espen Exp $ */ |
3aedf9ef |
25 | |
26 | |
27 | #include <gdk/gdk.h> |
3aedf9ef |
28 | |
0720bb75 |
29 | #ifdef GDK_WINDOWING_X11 |
30 | #include <gdk/gdkx.h> |
cda9fdb0 |
31 | #endif |
3aedf9ef |
32 | |
a73e8923 |
33 | gint clg_gdk_connection_number (GdkDisplay *display) |
3aedf9ef |
34 | { |
cda9fdb0 |
35 | #ifdef GDK_WINDOWING_X11 |
0720bb75 |
36 | return ConnectionNumber (GDK_DISPLAY_XDISPLAY (display)); |
0720bb75 |
37 | #else |
0720bb75 |
38 | return -1; |
0720bb75 |
39 | #endif |
cda9fdb0 |
40 | } |
d3849f30 |
41 | |
42 | |
0720bb75 |
43 | GdkWindow *clg_gdk_cairo_surface_get_window (cairo_surface_t *surface) |
d3849f30 |
44 | { |
0720bb75 |
45 | /* If 'surface_info_key' had been public we would have had a |
46 | portable way to find the GdkWindow of a Cairo surface. */ |
47 | |
48 | #ifdef GDK_WINDOWING_X11 |
49 | Display* display = cairo_xlib_surface_get_display (surface); |
50 | Drawable window = cairo_xlib_surface_get_drawable (surface); |
51 | if (display && window) |
52 | return gdk_window_lookup_for_display (window, display); |
53 | else |
54 | return NULL; |
55 | #elif defined (G_OS_WIN32) |
56 | HDC hdc = cairo_win32_surface_get_dc (surface); |
57 | if (hdc) |
58 | return gdk_window_lookup (hdc); |
59 | else |
60 | return NULL; |
61 | #else |
62 | return NULL; |
63 | #endif |
d3849f30 |
64 | } |