From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Tue, 19 Jan 2010 00:39:34 +0000 (+0300)
Subject: Add GdkWindow.cursor property
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=973b93adad818f19fc751c99b5c1c11ef870c021;p=cl-gtk2.git

Add GdkWindow.cursor property
---

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)