(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.

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  <kifer@cs.sunysb.edu>
         
         * 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)