From b6715b9f8a69966c552e4f88fca7d791c0055ffb Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Sat, 20 Oct 2001 15:16:30 +0000 Subject: [PATCH] (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). --- lisp/ChangeLog | 6 ++++++ lisp/wid-edit.el | 11 ++++++----- 2 files changed, 12 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7713340b855..96403ac69e5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2001-10-21 Miles Bader + + * wid-edit.el (checkbox): Swap bg/fg colors in image, and invert + image bits to compensate. Use `make-string' instead of + `make-bool-vector' (XBM apparently wants byte-aligned rows). + 2001-10-20 Kim F. Storm * simple.el (kill-ring-save): Don't show extent of copied region diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 71af16d28bf..17f50794948 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -2020,16 +2020,17 @@ when he invoked the menu." ;; 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." -- 2.39.5