Mercurial > emacs
comparison lisp/wid-edit.el @ 73646:76ebfa6768df
(widget-image-enable): Use "non-nil" in docstrings.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 03 Nov 2006 15:08:02 +0000 |
| parents | 400487787181 |
| children | 5de4748cd80f 02cf29720f31 |
comparison
equal
deleted
inserted
replaced
| 73645:4dac62a8a77b | 73646:76ebfa6768df |
|---|---|
| 596 automatically." | 596 automatically." |
| 597 :group 'widgets | 597 :group 'widgets |
| 598 :type 'directory) | 598 :type 'directory) |
| 599 | 599 |
| 600 (defcustom widget-image-enable t | 600 (defcustom widget-image-enable t |
| 601 "If non nil, use image buttons in widgets when available." | 601 "If non-nil, use image buttons in widgets when available." |
| 602 :version "21.1" | 602 :version "21.1" |
| 603 :group 'widgets | 603 :group 'widgets |
| 604 :type 'boolean) | 604 :type 'boolean) |
| 605 | 605 |
| 606 (defcustom widget-image-conversion | 606 (defcustom widget-image-conversion |
| 1717 (widget-apply widget :notify widget event)) | 1717 (widget-apply widget :notify widget event)) |
| 1718 | 1718 |
| 1719 ;;; The `push-button' Widget. | 1719 ;;; The `push-button' Widget. |
| 1720 | 1720 |
| 1721 ;; (defcustom widget-push-button-gui t | 1721 ;; (defcustom widget-push-button-gui t |
| 1722 ;; "If non nil, use GUI push buttons when available." | 1722 ;; "If non-nil, use GUI push buttons when available." |
| 1723 ;; :group 'widgets | 1723 ;; :group 'widgets |
| 1724 ;; :type 'boolean) | 1724 ;; :type 'boolean) |
| 1725 | 1725 |
| 1726 ;; Cache already created GUI objects. | 1726 ;; Cache already created GUI objects. |
| 1727 ;; (defvar widget-push-button-cache nil) | 1727 ;; (defvar widget-push-button-cache nil) |
| 2560 :delete-at (widget-get widget :widget))) | 2560 :delete-at (widget-get widget :widget))) |
| 2561 | 2561 |
| 2562 ;;; The `editable-list' Widget. | 2562 ;;; The `editable-list' Widget. |
| 2563 | 2563 |
| 2564 ;; (defcustom widget-editable-list-gui nil | 2564 ;; (defcustom widget-editable-list-gui nil |
| 2565 ;; "If non nil, use GUI push-buttons in editable list when available." | 2565 ;; "If non-nil, use GUI push-buttons in editable list when available." |
| 2566 ;; :type 'boolean | 2566 ;; :type 'boolean |
| 2567 ;; :group 'widgets) | 2567 ;; :group 'widgets) |
| 2568 | 2568 |
| 2569 (define-widget 'editable-list 'default | 2569 (define-widget 'editable-list 'default |
| 2570 "A variable list of widgets of the same type." | 2570 "A variable list of widgets of the same type." |