-#|
-(defcfun gdk_window_get_root_coords :void
- (window (g-object gdk-window))
- (x :int)
- (y :int)
- (root-x :int)
- (root-y :int))
-
-(defun gdk-window-get-root-coords (window x y)
- (with-foreign-objects ((root-x :int) (root-y :int))
- (gdk_window_get_root_coords window x y root-x root-y)
- (values (mem-ref root-x :int) (mem-ref root-y :int))))
-|#
+#+gtk-2.18
+(progn
+ (defcfun gdk_window_get_root_coords :void
+ (window (g-object gdk-window))
+ (x :int)
+ (y :int)
+ (root-x :int)
+ (root-y :int))
+
+ (defun gdk-window-get-root-coords (window x y)
+ (with-foreign-objects ((root-x :int) (root-y :int))
+ (gdk_window_get_root_coords window x y root-x root-y)
+ (values (mem-ref root-x :int) (mem-ref root-y :int))))
+
+ (export 'gdk-window-get-root-coords))