diff options
Diffstat (limited to 'lisp/widget.el')
| -rw-r--r-- | lisp/widget.el | 61 |
1 files changed, 31 insertions, 30 deletions
diff --git a/lisp/widget.el b/lisp/widget.el index 8e9b0977c05..1985efb7cd6 100644 --- a/lisp/widget.el +++ b/lisp/widget.el | |||
| @@ -39,37 +39,37 @@ | |||
| 39 | ;; external libraries call it. We save a kb or two of purespace by | 39 | ;; external libraries call it. We save a kb or two of purespace by |
| 40 | ;; dummying-out such definitions generally. | 40 | ;; dummying-out such definitions generally. |
| 41 | (defmacro define-widget-keywords (&rest keys) | 41 | (defmacro define-widget-keywords (&rest keys) |
| 42 | ;;; ;; Don't use backquote, since that makes trouble trying to | 42 | ;; ;; Don't use backquote, since that makes trouble trying to |
| 43 | ;;; ;; re-bootstrap from just the .el files. | 43 | ;; ;; re-bootstrap from just the .el files. |
| 44 | ;;; (list 'eval-and-compile | 44 | ;; (list 'eval-and-compile |
| 45 | ;;; (list 'let (list (list 'keywords (list 'quote keys))) | 45 | ;; (list 'let (list (list 'keywords (list 'quote keys))) |
| 46 | ;;; (list 'while 'keywords | 46 | ;; (list 'while 'keywords |
| 47 | ;;; (list 'or (list 'boundp (list 'car 'keywords)) | 47 | ;; (list 'or (list 'boundp (list 'car 'keywords)) |
| 48 | ;;; (list 'set (list 'car 'keywords) (list 'car 'keywords))) | 48 | ;; (list 'set (list 'car 'keywords) (list 'car 'keywords))) |
| 49 | ;;; (list 'setq 'keywords (list 'cdr 'keywords))))) | 49 | ;; (list 'setq 'keywords (list 'cdr 'keywords))))) |
| 50 | ) | 50 | ) |
| 51 | 51 | ||
| 52 | ;;;(define-widget-keywords :documentation-indent | 52 | ;;(define-widget-keywords :documentation-indent |
| 53 | ;;; :complete-function :complete :button-overlay | 53 | ;; :complete-function :complete :button-overlay |
| 54 | ;;; :field-overlay | 54 | ;; :field-overlay |
| 55 | ;;; :documentation-shown :button-prefix | 55 | ;; :documentation-shown :button-prefix |
| 56 | ;;; :button-suffix :mouse-down-action :glyph-up :glyph-down :glyph-inactive | 56 | ;; :button-suffix :mouse-down-action :glyph-up :glyph-down :glyph-inactive |
| 57 | ;;; :prompt-internal :prompt-history :prompt-match | 57 | ;; :prompt-internal :prompt-history :prompt-match |
| 58 | ;;; :prompt-value :deactivate :active | 58 | ;; :prompt-value :deactivate :active |
| 59 | ;;; :inactive :activate :sibling-args :delete-button-args | 59 | ;; :inactive :activate :sibling-args :delete-button-args |
| 60 | ;;; :insert-button-args :append-button-args :button-args | 60 | ;; :insert-button-args :append-button-args :button-args |
| 61 | ;;; :tag-glyph :off-glyph :on-glyph :valid-regexp | 61 | ;; :tag-glyph :off-glyph :on-glyph :valid-regexp |
| 62 | ;;; :secret :sample-face :sample-face-get :case-fold | 62 | ;; :secret :sample-face :sample-face-get :case-fold |
| 63 | ;;; :create :convert-widget :format :value-create :offset :extra-offset | 63 | ;; :create :convert-widget :format :value-create :offset :extra-offset |
| 64 | ;;; :tag :doc :from :to :args :value :action | 64 | ;; :tag :doc :from :to :args :value :action |
| 65 | ;;; :value-set :value-delete :match :parent :delete :menu-tag-get | 65 | ;; :value-set :value-delete :match :parent :delete :menu-tag-get |
| 66 | ;;; :value-get :choice :void :menu-tag :on :off :on-type :off-type | 66 | ;; :value-get :choice :void :menu-tag :on :off :on-type :off-type |
| 67 | ;;; :notify :entry-format :button :children :buttons :insert-before | 67 | ;; :notify :entry-format :button :children :buttons :insert-before |
| 68 | ;;; :delete-at :format-handler :widget :value-pos :value-to-internal | 68 | ;; :delete-at :format-handler :widget :value-pos :value-to-internal |
| 69 | ;;; :indent :size :value-to-external :validate :error :directory | 69 | ;; :indent :size :value-to-external :validate :error :directory |
| 70 | ;;; :must-match :type-error :value-inline :inline :match-inline :greedy | 70 | ;; :must-match :type-error :value-inline :inline :match-inline :greedy |
| 71 | ;;; :button-face-get :button-face :value-face :keymap :entry-from | 71 | ;; :button-face-get :button-face :value-face :keymap :entry-from |
| 72 | ;;; :entry-to :help-echo :documentation-property :tab-order) | 72 | ;; :entry-to :help-echo :documentation-property :tab-order) |
| 73 | 73 | ||
| 74 | (defun define-widget (name class doc &rest args) | 74 | (defun define-widget (name class doc &rest args) |
| 75 | "Define a new widget type named NAME from CLASS. | 75 | "Define a new widget type named NAME from CLASS. |
| @@ -85,6 +85,7 @@ create identical widgets: | |||
| 85 | * (apply 'widget-create CLASS ARGS) | 85 | * (apply 'widget-create CLASS ARGS) |
| 86 | 86 | ||
| 87 | The third argument DOC is a documentation string for the widget." | 87 | The third argument DOC is a documentation string for the widget." |
| 88 | (declare (doc-string 3)) | ||
| 88 | (put name 'widget-type (cons class args)) | 89 | (put name 'widget-type (cons class args)) |
| 89 | (put name 'widget-documentation doc) | 90 | (put name 'widget-documentation doc) |
| 90 | name) | 91 | name) |
| @@ -96,5 +97,5 @@ The third argument DOC is a documentation string for the widget." | |||
| 96 | 97 | ||
| 97 | (provide 'widget) | 98 | (provide 'widget) |
| 98 | 99 | ||
| 99 | ;;; arch-tag: 932c71a3-9aeb-4827-a293-8b88b26d5c58 | 100 | ;; arch-tag: 932c71a3-9aeb-4827-a293-8b88b26d5c58 |
| 100 | ;;; widget.el ends here | 101 | ;;; widget.el ends here |