# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1020896879 0
# Node ID 411711e43201730c2abeb5753ab3f108ca7a0d00
# Parent  fc5298a6be2602b210eb352f3d098a45feba28ba
(checkbox): New check-mark image.

diff -r fc5298a6be26 -r 411711e43201 lisp/wid-edit.el
--- a/lisp/wid-edit.el	Wed May 08 22:27:26 2002 +0000
+++ b/lisp/wid-edit.el	Wed May 08 22:27:59 2002 +0000
@@ -2047,18 +2047,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 "\000\066\076\034\076\066\000"
-			   'xbm t :width 7 :height 7
+  :on-glyph '(create-image "\300\300\141\143\067\076\034\030"
+			   'xbm t :width 8 :height 8
 			   :background "grey75"	; like default mode line
 			   :foreground "black"
-			   :relief -3
+			   :relief -2
 			   :ascent 'center)
   :off "[ ]"
-  :off-glyph '(create-image (make-string 7 0)
-			    'xbm t :width 7 :height 7
+  :off-glyph '(create-image (make-string 8 0)
+			    'xbm t :width 8 :height 8
 			    :background "grey75"
 			    :foreground "black"
-			    :relief 3
+			    :relief -2
 			    :ascent 'center)
   :help-echo "Toggle this item."
   :action 'widget-checkbox-action)