projects
/
cl-gtk2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1358bee
)
In gdk <2.18, make GdkWindow:cursor property use accessors
author
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Mon, 25 Jan 2010 01:10:57 +0000
(
04:10
+0300)
committer
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Mon, 25 Jan 2010 01:10:57 +0000
(
04:10
+0300)
gdk/gdk.objects.lisp
patch
|
blob
|
history
diff --git
a/gdk/gdk.objects.lisp
b/gdk/gdk.objects.lisp
index
e3d93b8
..
9a0065f
100644
(file)
--- 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)
"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)
"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
(:cffi window-type gdk-window-window-type gdk-window-type
"gdk_window_get_window_type" nil)
(:cffi is-destroyed gdk-window-is-destroyed :boolean