specs)
(dolist (elt widget-image-conversion)
(dolist (ext (cdr elt))
- (push (list :type (car elt) :file (concat image ext)) specs)))
+ (push (list :type (car elt) :file (concat image ext)
+ :ascent 'center) specs)))
(find-image (nreverse specs))))
(t
;; Oh well.
;; We could probably do the same job as the images using single
;; space characters in a boxed face with a stretch specification to
;; make them square.
- :on-glyph image-checkbox-checked
+ :on-glyph "checked"
:off "[ ]"
- :off-glyph image-checkbox-unchecked
+ :off-glyph "unchecked"
:help-echo "Toggle this item."
:action 'widget-checkbox-action)