Mercurial > emacs
changeset 29567:db8d9c0d471f
(widget-specify-button): Really suppress the face if required.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sun, 11 Jun 2000 23:00:42 +0000 |
| parents | 3334012b1cb4 |
| children | de6c4562da6d |
| files | lisp/wid-edit.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/wid-edit.el Sun Jun 11 22:35:19 2000 +0000 +++ b/lisp/wid-edit.el Sun Jun 11 23:00:42 2000 +0000 @@ -339,8 +339,7 @@ (overlay-put overlay 'mouse-face widget-mouse-face)) ;;(overlay-put overlay 'balloon-help help-echo) (if (stringp help-echo) - (overlay-put overlay 'help-echo help-echo)) - (overlay-put overlay 'face face))) + (overlay-put overlay 'help-echo help-echo)))) (defun widget-specify-sample (widget from to) "Specify sample for WIDGET between FROM and TO." @@ -1956,6 +1955,9 @@ :button-prefix "" :format "%[%v%]" :on "[X]" + ;; 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 (make-bool-vector 49 1) 'xbm t :width 7 :height 7 :foreground "grey75" ; like default mode line