Mercurial > emacs
changeset 40090:bf0285fb72c7
(checkbox): Swap bg/fg colors in images, and invert
image bits to compensate. Use `make-string' instead of
`make-bool-vector' (XBM apparently wants byte-aligned rows).
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sat, 20 Oct 2001 15:13:50 +0000 |
| parents | ae25d07511c8 |
| children | 50e15b7c1a95 |
| files | lisp/wid-edit.el |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/wid-edit.el Sat Oct 20 15:11:10 2001 +0000 +++ b/lisp/wid-edit.el Sat Oct 20 15:13:50 2001 +0000 @@ -2020,16 +2020,17 @@ ;; 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 "\377\311\301\343\301\311\377" ; this is an `X' + :on-glyph (create-image "\000\066\076\034\076\066\000" 'xbm t :width 7 :height 7 - :foreground "grey75" ; like default mode line - :background "black" + :background "grey75" ; like default mode line + :foreground "black" :relief -3 :ascent 'center) :off "[ ]" - :off-glyph (create-image (make-bool-vector 49 1) + :off-glyph (create-image (make-string 7 0) 'xbm t :width 7 :height 7 - :foreground "grey75" + :background "grey75" + :foreground "black" :relief 3 :ascent 'center) :help-echo "Toggle this item."