# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 975065690 0
# Node ID 3482161a3a4c20fef0bce462d65498f876380f21
# Parent  7cc44a554cb0cfc60c84582f8ee0e88d6dbf1a49
(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.

diff -r 7cc44a554cb0 -r 3482161a3a4c lisp/wid-edit.el
--- 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)