(defun widget-style-property-value (widget property-name &optional property-type)
(unless property-type (setf property-type (widget-style-property-type widget property-name)))
(defun widget-style-property-value (widget property-name &optional property-type)
(unless property-type (setf property-type (widget-style-property-type widget property-name)))