Mercurial > emacs
changeset 33846:3482161a3a4c
(checkbox): Add a small `X' to the the :on-glyph, so that it's
distinguishable from the :off-glyph on dark-background displays. Set
its background color too.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 24 Nov 2000 11:34:50 +0000 |
| parents | 7cc44a554cb0 |
| children | 8927e1626326 |
| files | lisp/wid-edit.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/wid-edit.el Fri Nov 24 09:12:12 2000 +0000 +++ b/lisp/wid-edit.el Fri Nov 24 11:34:50 2000 +0000 @@ -1992,15 +1992,18 @@ ;; 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 (create-image (make-bool-vector 49 1) + :on-glyph (create-image "\377\311\301\343\301\311\377" ; this is an `X' 'xbm t :width 7 :height 7 :foreground "grey75" ; like default mode line - :relief -3 :ascent 'center) + :background "black" + :relief -3 + :ascent 'center) :off "[ ]" :off-glyph (create-image (make-bool-vector 49 1) 'xbm t :width 7 :height 7 :foreground "grey75" - :relief 3 :ascent 'center) + :relief 3 + :ascent 'center) :help-echo "Toggle this item." :action 'widget-checkbox-action)