Function: widget-radio-action

widget-radio-action is a byte-compiled function defined in wid-edit.el.gz.

Signature

(widget-radio-action WIDGET CHILD EVENT)

Source Code

;; Defined in /usr/src/emacs/lisp/wid-edit.el.gz
(defun widget-radio-action (widget child event)
  ;; Check if a radio button was pressed.
  (let ((buttons (widget-get widget :buttons)))
    (when (memq child buttons)
      (dolist (current (widget-get widget :children))
	(let* ((button (widget-get current :button))
               (from (widget-get current :from))
	       (to (widget-get current :to)))
	  (cond ((eq child button)
		 (widget-value-set button t)
		 (widget-apply current :activate)
                 (widget-specify-selected current))
		((widget-value button)
		 (widget-value-set button nil)
                 (widget-specify-unselected current from to)))))))
  ;; Pass notification to parent.
  (widget-apply widget :notify child event))