From c57708f3b1f253e0daa9f7c9b436faee8d96e18e Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Mon, 25 Jan 2010 04:10:57 +0300 Subject: [PATCH] In gdk <2.18, make GdkWindow:cursor property use accessors --- gdk/gdk.objects.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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 -- 1.7.10.4