(n-properties (:pointer :int)))
(defun widget-get-style-properties (type)
- (setf type (ensure-g-type type))
+ (setf type (gtype type))
(let ((class (g-type-class-ref type)))
(unwind-protect
(with-foreign-object (np :int)
(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 (ensure-g-type property-type))
+ (setf property-type (gtype property-type))
(with-foreign-object (gvalue 'g-value)
(g-value-zero gvalue)
(g-value-init gvalue property-type)