(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 7f41204fea5da5437f586755e9e8c85619fa56c5..a65ca378fb5e54a41985c745dfb4a2003d28d596 100644 (file)
--- 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 dc43f76700cca11dc1446698592e4b868378973f..db65fc1dfd495652e92850ff7db8212d51c0d6c6 100644 (file)
--- 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)