Punt deprecated gdk_window_get_pointer.

diff --git a/src/gtk/Includes/gdkwindow.cdecl b/src/gtk/Includes/gdkwindow.cdecl
index c53ac372149e7ef62968dbf4df27f16b5b87601f..639d9656b81a164c35e1639e748c9de4dc1c6c00 100644 (file)
--- a/src/gtk/Includes/gdkwindow.cdecl
+++ b/src/gtk/Includes/gdkwindow.cdecl
@@ -145,7 +145,7 @@ gdk/gdkwindow.h |#
        (window (* GdkWindow))
        (rgba (* GdkRGBA)))
 
-(extern (* GdkWindow) gdk_window_get_pointer
+#;(extern (* GdkWindow) gdk_window_get_pointer
        (window (* GdkWindow))
        (x (* gint))
        (y (* gint))

diff --git a/src/gtk/fix-layout.scm b/src/gtk/fix-layout.scm
index a99e066ae61a7f34299416fda8fa89e141f74fb2..ee2c01542abd97cdc4845841448ba47dc1b7c83f 100644 (file)
--- a/src/gtk/fix-layout.scm
+++ b/src/gtk/fix-layout.scm
@@ -260,16 +260,13 @@ USA.
   (guarantee-fix-widget widget 'set-fix-widget-motion-handler!)
   (guarantee-procedure-of-arity handler 4 'set-fix-widget-motion-handler!)
   (vector-set!
-   (fix-widget-event-handlers widget) (C-enum "GDK_MOTION_NOTIFY")
+   (fix-widget-event-handlers widget)
+   (C-enum "GDK_MOTION_NOTIFY")
    (named-lambda (fix-widget-motion-handler widget GdkEvent)
-     (let ((handled?
-           (handler widget
-                    (->modifiers (C-> GdkEvent "GdkEventMotion state"))
-                    (floor->exact (C-> GdkEvent "GdkEventMotion x"))
-                    (floor->exact (C-> GdkEvent "GdkEventMotion y")))))
-       (C-call "gdk_window_get_pointer" #f
-              (C-> GdkEvent "GdkEventMotion window") 0 0 0)
-       handled?))))
+     (handler widget
+             (->modifiers (C-> GdkEvent "GdkEventMotion state"))
+             (floor->exact (C-> GdkEvent "GdkEventMotion x"))
+             (floor->exact (C-> GdkEvent "GdkEventMotion y"))))))
 
 (define ->modifiers
   (let ((names (make-vector 32 #f)))

diff --git a/src/gtk/gtk-ev.scm b/src/gtk/gtk-ev.scm
index bc7e027a960dcb9f942ede9d1f4b894a37d4335e..a77614371ff6946604ecc267e8d0bfebbf6c7514 100644 (file)
--- a/src/gtk/gtk-ev.scm
+++ b/src/gtk/gtk-ev.scm
@@ -191,7 +191,8 @@ USA.
        ;; Test debugging in a callback.
        (bkpt 'Test))
 
-    (if (= type (C-enum "GDK_MOTION_NOTIFY"))
+    ;; Unnecessary and deprecated.
+    #;(if (= type (C-enum "GDK_MOTION_NOTIFY"))
        (C-call "gdk_window_get_pointer" #f
                (C-> GdkEvent "GdkEventMotion window") 0 0 0))
     #f ;; continue handling.