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:
a3a7927
)
Slot setters for gobject-class metaclass classes return the new value
author
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Sat, 12 Sep 2009 12:19:44 +0000
(16:19 +0400)
committer
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Sat, 12 Sep 2009 12:19:44 +0000
(16:19 +0400)
glib/gobject.meta.lisp
patch
|
blob
|
history
diff --git
a/glib/gobject.meta.lisp
b/glib/gobject.meta.lisp
index
deac5b9
..
79ab9d0
100644
(file)
--- a/
glib/gobject.meta.lisp
+++ b/
glib/gobject.meta.lisp
@@
-231,7
+231,8
@@
(g-object-call-set-property (pointer object)
(gobject-property-effective-slot-definition-g-property-name slot)
new-value
(g-object-call-set-property (pointer object)
(gobject-property-effective-slot-definition-g-property-name slot)
new-value
- (gobject-effective-slot-definition-g-property-type slot)))
+ (gobject-effective-slot-definition-g-property-type slot))
+ new-value)
(defmethod slot-boundp-using-class ((class gobject-class) object (slot gobject-fn-effective-slot-definition))
(not (null (gobject-fn-effective-slot-definition-g-getter-fn slot))))
(defmethod slot-boundp-using-class ((class gobject-class) object (slot gobject-fn-effective-slot-definition))
(not (null (gobject-fn-effective-slot-definition-g-getter-fn slot))))
@@
-241,7
+242,8
@@
(funcall fn object)))
(defmethod (setf slot-value-using-class) (new-value (class gobject-class) object (slot gobject-fn-effective-slot-definition))
(funcall fn object)))
(defmethod (setf slot-value-using-class) (new-value (class gobject-class) object (slot gobject-fn-effective-slot-definition))
- (funcall (gobject-fn-effective-slot-definition-g-setter-fn slot) object new-value))
+ (funcall (gobject-fn-effective-slot-definition-g-setter-fn slot) object new-value)
+ new-value)
(defmethod slot-boundp-using-class ((class gobject-class) object (slot gobject-effective-slot-definition))
t)
(defmethod slot-boundp-using-class ((class gobject-class) object (slot gobject-effective-slot-definition))
t)