Function: widget-push-button-value-create

widget-push-button-value-create is a byte-compiled function defined in wid-edit.el.gz.

Signature

(widget-push-button-value-create WIDGET)

Documentation

Insert text representing the on and off states.

Source Code

;; Defined in /usr/src/emacs/lisp/wid-edit.el.gz
(defun widget-push-button-value-create (widget)
  "Insert text representing the `on' and `off' states."
  (let* ((tag (or (substitute-command-keys (widget-get widget :tag))
		  (widget-get widget :value)))
	 (tag-glyph (widget-get widget :tag-glyph))
	 (text (concat widget-push-button-prefix
		       tag widget-push-button-suffix)))
    (if tag-glyph
	(widget-image-insert widget text tag-glyph)
      (insert text))))