-(defun widget-child-property-value (widget property-name &optional property-type)
- (unless property-type (setf property-type (widget-child-property-type widget property-name)))
+(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)))