@@ -1,11 +1,15 @@ (in-package :cffi-clutter) (defun g-type-for-object-property (object property) - (foreign-slot-value (%g-object-class-find-property + (let ((param-spec (%g-object-class-find-property (foreign-slot-value object 'g-type-instance 'g-class) - property) - 'g-param-spec - 'value-type)) + property))) + (if (null-pointer-p) + (error "Object ~a of type ~a does not have property ~s" + object + (%g-type-name (g-type-from-instance object)) + property) + (foreign-slot-value param-spec 'g-param-spec 'value-type)))) (defun call-with-properties (function actor properties) (assert (zerop (mod (length properties) 2))) animations.lisp 9eaff2f235de36c32fbbe487a05efef3d42ed630 Ramarren ramarren@gmail.com http://github.com/Ramarren/cffi-clutter/commit/9a8cf7f4bf95e683788c4286488a81fabe86459c 9a8cf7f4bf95e683788c4286488a81fabe86459c 2009-07-09T02:25:55-07:00 2009-07-09T02:25:55-07:00 Check for missing properties. 7d61b2a2c42cf798f8ff6a1a744e970ad5115664 Ramarren ramarren@gmail.com