+(defun class-property-info (g-type property-name)
+ (with-unwind (g-class (g-type-class-ref g-type) g-type-class-unref)
+ (let* ((param-spec (g-object-class-find-property g-class property-name)))
+ (when param-spec (parse-g-param-spec param-spec)))))
+