From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Wed, 15 Apr 2009 20:09:32 +0000 (+0400)
Subject: handle NILs in arg-types in gobject property setter
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=c52f3751b0e1a4ad7e55775fb83450b58c2c6859;p=cl-gtk2.git

handle NILs in arg-types in gobject property setter
---

diff --git a/glib/gobject.foreign-gobject.lisp b/glib/gobject.foreign-gobject.lisp
index 0ea990a..5cbe65c 100644
--- a/glib/gobject.foreign-gobject.lisp
+++ b/glib/gobject.foreign-gobject.lisp
@@ -251,7 +251,7 @@
          for arg-name in args-names
          for arg-value in args-values
          for arg-type in args-types
-         for arg-g-type = (ensure-g-type arg-type)
+         for arg-g-type = (if arg-type (ensure-g-type arg-type) (g-object-type-property-type object-type arg-name))
          for parameter = (mem-aref parameters 'g-parameter i)
          do (setf (foreign-slot-value parameter 'g-parameter 'name) arg-name)
          do (set-g-value (foreign-slot-value parameter 'g-parameter 'value)