+; ignored: gtk_widget_send_expose
+
+(defcfun gtk-widget-style-get-property :void
+ (widget g-object)
+ (property-name :string)
+ (value (:pointer g-value)))
+
+(defcfun gtk-widget-class-find-style-property (:pointer g-param-spec)
+ (class :pointer)
+ (property-name :string))
+
+(defcfun gtk-widget-class-list-style-properties (:pointer (:pointer g-param-spec))
+ (class :pointer)
+ (n-properties (:pointer :int)))
+
+(defun widget-get-style-properties (type)
+ (setf type (gtype type))
+ (let ((class (g-type-class-ref type)))
+ (unwind-protect
+ (with-foreign-object (np :int)
+ (let ((specs (gtk-widget-class-list-style-properties class np)))
+ (unwind-protect
+ (loop
+ repeat (mem-ref np :int)
+ for i from 0
+ for spec = (mem-aref specs :pointer i)
+ collect (parse-g-param-spec spec))
+ (g-free specs))))
+ (g-type-class-unref class))))
+
+(export 'widget-get-style-properties)
+
+(defun widget-style-property-info (type property-name)
+ (let ((class (g-type-class-ref type)))
+ (unwind-protect
+ (let ((g-param-spec (gtk-widget-class-find-style-property class property-name)))
+ (parse-g-param-spec g-param-spec))
+ (g-type-class-unref class))))
+
+(export 'widget-style-property-info)
+
+(defun widget-style-property-type (widget property-name)
+ (let ((property-info (widget-style-property-info (g-type-from-object widget) property-name)))
+ (g-class-property-definition-type property-info)))
+
+(defun widget-style-property-value (widget property-name &optional property-type)
+ (unless property-type (setf property-type (widget-style-property-type widget property-name)))
+ (setf property-type (gtype property-type))
+ (with-foreign-object (gvalue 'g-value)
+ (g-value-zero gvalue)
+ (g-value-init gvalue property-type)
+ (prog1 (gtk-widget-style-get-property widget property-name gvalue)
+ (g-value-unset gvalue))))
+
+(export 'widget-style-property-value)