Commit 35a7ac84 authored by Dave Love's avatar Dave Love

(widget-specify-button): Really suppress the face if required.

parent 2c0ec709
2000-06-12 Dave Love <fx@gnu.org>
* wid-edit.el (widget-specify-button): Really suppress the face if
required.
2000-06-11 Gerd Moellmann <gerd@gnu.org> 2000-06-11 Gerd Moellmann <gerd@gnu.org>
* term/x-win.el (x-colors): Add colors from recent rgb.txt. * term/x-win.el (x-colors): Add colors from recent rgb.txt.
......
...@@ -339,8 +339,7 @@ new value.") ...@@ -339,8 +339,7 @@ new value.")
(overlay-put overlay 'mouse-face widget-mouse-face)) (overlay-put overlay 'mouse-face widget-mouse-face))
;;(overlay-put overlay 'balloon-help help-echo) ;;(overlay-put overlay 'balloon-help help-echo)
(if (stringp help-echo) (if (stringp help-echo)
(overlay-put overlay 'help-echo help-echo)) (overlay-put overlay 'help-echo help-echo))))
(overlay-put overlay 'face face)))
(defun widget-specify-sample (widget from to) (defun widget-specify-sample (widget from to)
"Specify sample for WIDGET between FROM and TO." "Specify sample for WIDGET between FROM and TO."
...@@ -1956,6 +1955,9 @@ when he invoked the menu." ...@@ -1956,6 +1955,9 @@ when he invoked the menu."
:button-prefix "" :button-prefix ""
:format "%[%v%]" :format "%[%v%]"
:on "[X]" :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) :on-glyph (create-image (make-bool-vector 49 1)
'xbm t :width 7 :height 7 'xbm t :width 7 :height 7
:foreground "grey75" ; like default mode line :foreground "grey75" ; like default mode line
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment