/[emacs]/emacs/lisp/wid-edit.el
ViewVC logotype

Diff of /emacs/lisp/wid-edit.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.108 by miles, Mon Apr 15 06:18:13 2002 UTC revision 1.109 by kfstorm, Wed May 8 22:27:59 2002 UTC
# Line 2047  when he invoked the menu." Line 2047  when he invoked the menu."
2047    ;; We could probably do the same job as the images using single    ;; We could probably do the same job as the images using single
2048    ;; space characters in a boxed face with a stretch specification to    ;; space characters in a boxed face with a stretch specification to
2049    ;; make them square.    ;; make them square.
2050    :on-glyph '(create-image "\000\066\076\034\076\066\000"    :on-glyph '(create-image "\300\300\141\143\067\076\034\030"
2051                             'xbm t :width 7 :height 7                             'xbm t :width 8 :height 8
2052                             :background "grey75" ; like default mode line                             :background "grey75" ; like default mode line
2053                             :foreground "black"                             :foreground "black"
2054                             :relief -3                             :relief -2
2055                             :ascent 'center)                             :ascent 'center)
2056    :off "[ ]"    :off "[ ]"
2057    :off-glyph '(create-image (make-string 7 0)    :off-glyph '(create-image (make-string 8 0)
2058                              'xbm t :width 7 :height 7                              'xbm t :width 8 :height 8
2059                              :background "grey75"                              :background "grey75"
2060                              :foreground "black"                              :foreground "black"
2061                              :relief 3                              :relief -2
2062                              :ascent 'center)                              :ascent 'center)
2063    :help-echo "Toggle this item."    :help-echo "Toggle this item."
2064    :action 'widget-checkbox-action)    :action 'widget-checkbox-action)

Legend:
Removed from v.1.108  
changed lines
  Added in v.1.109

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26