From 1ed744312dcb5df2f0c72ac0a2ee46357c054753 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Fri, 24 Nov 2000 11:36:27 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 4 ++++ lisp/wid-edit.el | 9 ++++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7f41204fea5..a65ca378fb5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -10,6 +10,10 @@ functions. Add some IN-FILTER and OUT-FILTER functions in the few cases they're needed. + * wid-edit.el (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. + 2000-11-24 Michael Kifer * ediff-diff.el: Moved variables around to have it compile under NT. diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index dc43f76700c..db65fc1dfd4 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -1992,15 +1992,18 @@ 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 (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) -- 2.39.5