From 973b93adad818f19fc751c99b5c1c11ef870c021 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Tue, 19 Jan 2010 03:39:34 +0300 Subject: [PATCH] Add GdkWindow.cursor property --- gdk/gdk.objects.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gdk/gdk.objects.lisp b/gdk/gdk.objects.lisp index 95f9068..e3d93b8 100644 --- a/gdk/gdk.objects.lisp +++ b/gdk/gdk.objects.lisp @@ -596,7 +596,9 @@ "gdk_drawable_get_visible_region" nil))) (define-g-object-class "GdkWindow" gdk-window (:superclass drawable) - ((:cffi window-type gdk-window-window-type gdk-window-type + ((cursor gdk-window-cursor "cursor" + "GdkCursor" t t) + (:cffi window-type gdk-window-window-type gdk-window-type "gdk_window_get_window_type" nil) (:cffi is-destroyed gdk-window-is-destroyed :boolean "gdk_window_is_destroyed" nil) -- 1.7.10.4