From 8cf3012886b344f1863b9ebf2f2208af614a8b77 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Wed, 8 May 2002 22:27:59 +0000 Subject: [PATCH] (checkbox): New check-mark image. --- lisp/wid-edit.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 2079a901427..59edfeff0bd 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -2047,18 +2047,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 "\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) -- 2.39.5