From: Miles Bader <miles@gnu.org>
Date: Sat, 20 Oct 2001 15:16:30 +0000 (+0000)
Subject: (checkbox): Swap bg/fg colors in images, and invert
X-Git-Tag: ttn-vms-21-2-B4~19323
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b6715b9f8a69966c552e4f88fca7d791c0055ffb;p=emacs.git

(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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7713340b855..96403ac69e5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-10-21  Miles Bader  <miles@gnu.org>
+
+	* wid-edit.el (checkbox): Swap bg/fg colors in image, and invert
+	image bits to compensate.  Use `make-string' instead of
+	`make-bool-vector' (XBM apparently wants byte-aligned rows).
+
 2001-10-20  Kim F. Storm  <storm@cua.dk>
 
 	* simple.el (kill-ring-save): Don't show extent of copied region
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 71af16d28bf..17f50794948 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -2020,16 +2020,17 @@ 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 "\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."