X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gdk%2Fgdk.objects.lisp;h=9a0065facd28fbe957140c527921c04c9ce33098;hb=c57708f3b1f253e0daa9f7c9b436faee8d96e18e;hp=e3d93b8f0760504a708925168d8e2f2f0d4a7b4c;hpb=1358bee22eca675fb53998de23b064008cdab1f4;p=cl-gtk2.git

diff --git a/gdk/gdk.objects.lisp b/gdk/gdk.objects.lisp
index e3d93b8..9a0065f 100644
--- a/gdk/gdk.objects.lisp
+++ b/gdk/gdk.objects.lisp
@@ -596,8 +596,12 @@
           "gdk_drawable_get_visible_region" nil)))
 
 (define-g-object-class "GdkWindow" gdk-window (:superclass drawable)
-   ((cursor gdk-window-cursor "cursor"
+   (#+gtk-2.18
+    (cursor gdk-window-cursor "cursor"
             "GdkCursor" t t)
+    #-gtk-2.18
+    (:cffi cursor gdk-window-cursor (g-boxed-foreign cursor :return)
+           "gdk_window_get_cursor" "gdk_window_set_cursor")
     (:cffi window-type gdk-window-window-type gdk-window-type
            "gdk_window_get_window_type" nil)
     (:cffi is-destroyed gdk-window-is-destroyed :boolean