# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1003590830 0
# Node ID bf0285fb72c7ae743a59f87abd3eb6f6ec6d3cee
# Parent  ae25d07511c883e81a4010535f20d3649c9491ba
(checkbox): Swap bg/fg colors in images, and invert
image bits to compensate.  Use `make-string' instead of
`make-bool-vector' (XBM apparently wants byte-aligned rows).

diff -r ae25d07511c8 -r bf0285fb72c7 lisp/wid-edit.el
--- a/lisp/wid-edit.el	Sat Oct 20 15:11:10 2001 +0000
+++ b/lisp/wid-edit.el	Sat Oct 20 15:13:50 2001 +0000
@@ -2020,16 +2020,17 @@
   ;; 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 "\377\311\301\343\301\311\377"  ; this is an `X'
+  :on-glyph (create-image "\000\066\076\034\076\066\000"
 			  'xbm t :width 7 :height 7
-			  :foreground "grey75" ; like default mode line
-			  :background "black"
+			  :background "grey75" ; like default mode line
+			  :foreground "black"
 			  :relief -3
 			  :ascent 'center)
   :off "[ ]"
-  :off-glyph (create-image (make-bool-vector 49 1)
+  :off-glyph (create-image (make-string 7 0)
 			   'xbm t :width 7 :height 7
-			   :foreground "grey75"
+			   :background "grey75"
+			   :foreground "black"
 			   :relief 3
 			   :ascent 'center)
   :help-echo "Toggle this item."