From: Miles Bader <miles@gnu.org>
Date: Fri, 24 Nov 2000 11:36:27 +0000 (+0000)
Subject: (checkbox): Add a small `X' to the the :on-glyph, so that it's
X-Git-Tag: emacs-pretest-21.0.92~100
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1ed744312dcb5df2f0c72ac0a2ee46357c054753;p=emacs.git

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