Lines Matching +defs:action +defs:prefix
82 :prefix "widget-"
244 ;; Define SPC as a prefix char to get to this menu.
536 (defun widget-apply-action (widget &optional event)
537 "Apply :action in WIDGET in response to EVENT."
539 (widget-apply widget :action event)
540 (error "Attempt to perform action on inactive widget")))
676 (defcustom widget-button-prefix ""
677 "String used as prefix for buttons."
900 (widget-apply-action field event)
953 ;; action. For mouse-2, just highlight/
960 (unless (widget-apply button :mouse-down-action event)
982 ;; its action function.
985 (widget-apply-action button event)
992 ;; This loses if the widget action switches windows. -- cyd
1027 (widget-apply-action button event)
1323 (defun widget-parent-action (widget &optional event)
1324 "Tell :parent of WIDGET to handle the :action.
1325 Optional EVENT is the event that triggered the action."
1326 (widget-apply (widget-get widget :parent) :action event))
1413 :button-prefix 'widget-button-prefix
1434 :mouse-down-action #'ignore
1435 :action 'widget-default-action
1463 (insert (widget-get-indirect widget :button-prefix)))
1657 (defun widget-default-action (widget &optional event)
1665 (widget-default-action widget event))
1685 :action 'widget-item-action
1716 (defun widget-item-action (widget &optional event)
1730 (defcustom widget-push-button-prefix "["
1731 "String used as prefix for buttons."
1742 :button-prefix ""
1752 (text (concat widget-push-button-prefix
1758 ;; (defun widget-gui-action (widget)
1759 ;; "Apply :action for WIDGET."
1760 ;; (widget-apply-action widget (this-command-keys)))
1764 (defcustom widget-link-prefix "["
1765 "String used as prefix for links."
1776 :button-prefix 'widget-link-prefix
1786 :action 'widget-info-link-action)
1788 (defun widget-info-link-action (widget &optional event)
1796 :action 'widget-url-link-action)
1798 (defun widget-url-link-action (widget &optional event)
1806 :action 'widget-function-link-action)
1808 (defun widget-function-link-action (widget &optional event)
1816 :action 'widget-variable-link-action)
1818 (defun widget-variable-link-action (widget &optional event)
1826 :action 'widget-file-link-action)
1828 (defun widget-file-link-action (widget &optional event)
1836 :action 'widget-emacs-library-link-action)
1838 (defun widget-emacs-library-link-action (widget &optional event)
1846 :action 'widget-emacs-commentary-link-action)
1848 (defun widget-emacs-commentary-link-action (widget &optional event)
1866 :action 'widget-field-action
1898 (defun widget-field-action (widget &optional event)
1992 :mouse-down-action 'widget-choice-mouse-down-action
1993 :action 'widget-choice-action
2039 (defun widget-choice-mouse-down-action (widget &optional event)
2062 (defun widget-choice-action (widget &optional event)
2139 :action 'widget-toggle-action
2162 (defun widget-toggle-action (widget &optional event)
2173 :button-prefix ""
2193 :action 'widget-checkbox-action)
2195 (defun widget-checkbox-action (widget &optional event)
2197 (widget-toggle-action widget event)
2361 "Button items that delegate action events to their parents."
2362 :action 'widget-parent-action
2372 :button-prefix ""
2380 (widget-apply (widget-get widget :parent) :action widget event))
2399 :action 'widget-radio-action)
2520 (defun widget-radio-action (widget child event)
2545 :action 'widget-insert-button-action)
2547 (defun widget-insert-button-action (widget &optional event)
2558 :action 'widget-delete-button-action)
2560 (defun widget-delete-button-action (widget &optional event)
2810 :button-prefix ""
2815 :action 'widget-toggle-action
2823 (setq on (concat widget-push-button-prefix
2828 (setq off (concat widget-push-button-prefix
2844 :action 'widget-documentation-link-action)
2846 (defun widget-documentation-link-action (widget &optional event)
2915 :action 'widget-documentation-string-action
2937 :action 'widget-parent-action
2950 (defun widget-documentation-string-action (widget &rest ignore)
3076 ;;;(defun widget-file-action (widget &optional event)
3139 :action 'widget-field-action
3172 :action 'widget-coding-system-action
3193 (defun widget-coding-system-action (widget &optional event)
3224 :action 'widget-field-action
3600 :button-prefix 'widget-push-button-prefix
3667 :button-prefix 'widget-push-button-prefix
3690 :action 'widget-color-action)
3695 (let* ((prefix (buffer-substring-no-properties (widget-field-start widget)
3698 (completion (try-completion prefix list)))
3702 (error "Can't find completion for \"%s\"" prefix))
3703 ((not (string-equal prefix completion))
3704 (insert-and-inherit (substring completion (length prefix))))
3708 (display-completion-list (all-completions prefix list nil)
3709 prefix))
3720 (defun widget-color-action (widget &optional event)