+(defcfun gtk-container-class-find-child-property :pointer
+ (class :pointer)
+ (property-name :string))
+
+(defun container-child-property-info (type property-name)
+ (let ((class (g-type-class-ref type)))
+ (unwind-protect
+ (let ((g-param-spec (gtk-container-class-find-child-property class property-name)))
+ (parse-g-param-spec g-param-spec))
+ (g-type-class-unref class))))
+
+(export 'container-child-property-info)
+