[Emacs-diffs] Changes to emacs/lisp/wid-edit.el

[Kim F. Storm]

Index: emacs/lisp/wid-edit.el
diff -c emacs/lisp/wid-edit.el:1.108 emacs/lisp/wid-edit.el:1.109
*** emacs/lisp/wid-edit.el:1.108        Mon Apr 15 02:18:13 2002
--- emacs/lisp/wid-edit.el      Wed May  8 18:27:59 2002
***************
*** 2047,2064 ****
    ;; 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
                           :background "grey75" ; like default mode line
                           :foreground "black"
!                          :relief -3
                           :ascent 'center)
    :off "[ ]"
!   :off-glyph '(create-image (make-string 7 0)
!                           'xbm t :width 7 :height 7
                            :background "grey75"
                            :foreground "black"
!                           :relief 3
                            :ascent 'center)
    :help-echo "Toggle this item."
    :action 'widget-checkbox-action)
--- 2047,2064 ----
    ;; 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 "\300\300\141\143\067\076\034\030"
!                          'xbm t :width 8 :height 8
                           :background "grey75" ; like default mode line
                           :foreground "black"
!                          :relief -2
                           :ascent 'center)
    :off "[ ]"
!   :off-glyph '(create-image (make-string 8 0)
!                           'xbm t :width 8 :height 8
                            :background "grey75"
                            :foreground "black"
!                           :relief -2
                            :ascent 'center)
    :help-echo "Toggle this item."
    :action 'widget-checkbox-action)