gtk 2.16 compatibility downgrade

[cl-gtk2.git] / gdk / gdk.windows.lisp

diff --git a/gdk/gdk.windows.lisp b/gdk/gdk.windows.lisp
index c352116..cba0f6c 100644 (file)
--- a/gdk/gdk.windows.lisp
+++ b/gdk/gdk.windows.lisp
@@ -163,12 +163,14 @@
 
 (export 'gdk-window-lower)
 
+#|
 (defcfun gdk-window-restack :void
   (window (g-object gdk-window))
   (sibling (g-object gdk-window))
   (above :boolean))
 
 (export 'gdk-window-restack)
+|#
 
 (defcfun gdk-window-focus :void
   (window (g-object gdk-window))
@@ -483,6 +485,7 @@
 ;;                                                          gint *x,
 ;;                                                          gint *y);
 
+#|
 (defcfun gdk_window_get_root_coords :void
   (window (g-object gdk-window))
   (x :int)
@@ -494,20 +497,21 @@
   (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))))
+|#
 
 (defcfun gdk_window_get_pointer (g-object gdk-window)
   (window (g-object gdk-window))
   (x (:pointer :int))
   (y (:pointer :int))
-  (mask (:pointer gdk-modifier-type)))
+  (mask (:pointer modifier-type)))
 
 (defun gdk-window-get-pointer (window)
-  (with-foreign-objects ((x :int) (y :int) (mask 'gdk-modifier-type))
+  (with-foreign-objects ((x :int) (y :int) (mask 'modifier-type))
     (let ((w (gdk_window_get_pointer window x y mask)))
       (values w
               (mem-ref x :int)
               (mem-ref y :int)
-              (mem-ref mask 'gdk-modifier-type)))))
+              (mem-ref mask 'modifier-type)))))
 
 (export 'gdk-window-get-pointer)
 
@@ -539,6 +543,7 @@
 ;;                     GdkPointerHooks;
 ;; GdkPointerHooks *   gdk_set_pointer_hooks               (const GdkPointerHooks *new_hooks);
 
+#|
 (defcfun gdk-offscreen-window-get-pixmap (g-object pixmap)
   (window (g-object gdk-window)))
 
@@ -560,6 +565,7 @@
   (window (g-object gdk-window)))
 
 (export 'gdk-window-geometry-changed)
+|#
 
 (defcfun gdk-window-redirect-to-drawable :void
   (window (g-object gdk-window))