comparison lisp/wid-edit.el @ 29567:db8d9c0d471f

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

29566:3334012b1cb4

    (unless (widget-get widget :suppress-face)
      (overlay-put overlay 'face face)
      (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)))

(defun widget-specify-sample (widget from to)
  "Specify sample for WIDGET between FROM and TO."
  (let ((face (widget-apply widget :sample-face-get))
	(overlay (make-overlay from to nil t nil)))

  "A checkbox toggle."
  :button-suffix ""
  :button-prefix ""
  :format "%[%v%]"
  :on "[X]"
  :on-glyph (create-image (make-bool-vector 49 1)
			  'xbm t :width 7 :height 7
			  :foreground "grey75" ; like default mode line
			  :relief -3 :ascent 'center)
  :off "[ ]"

29567:db8d9c0d471f

    (unless (widget-get widget :suppress-face)
      (overlay-put overlay 'face face)
      (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))))

(defun widget-specify-sample (widget from to)
  "Specify sample for WIDGET between FROM and TO."
  (let ((face (widget-apply widget :sample-face-get))
	(overlay (make-overlay from to nil t nil)))

  "A checkbox toggle."
  :button-suffix ""
  :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
			  :relief -3 :ascent 'center)
  :off "[ ]"