25 |
;; Boston, MA 02111-1307, USA. |
;; Boston, MA 02111-1307, USA. |
26 |
|
|
27 |
;;; Commentary: |
;;; Commentary: |
28 |
;; |
;; |
29 |
;; The widget library is partially documented in the `widget' Info |
;; The widget library is partially documented in the `widget' Info |
30 |
;; file. |
;; file. |
31 |
;; |
;; |
50 |
|
|
51 |
;;;(define-widget-keywords :documentation-indent |
;;;(define-widget-keywords :documentation-indent |
52 |
;;; :complete-function :complete :button-overlay |
;;; :complete-function :complete :button-overlay |
53 |
;;; :field-overlay |
;;; :field-overlay |
54 |
;;; :documentation-shown :button-prefix |
;;; :documentation-shown :button-prefix |
55 |
;;; :button-suffix :mouse-down-action :glyph-up :glyph-down :glyph-inactive |
;;; :button-suffix :mouse-down-action :glyph-up :glyph-down :glyph-inactive |
56 |
;;; :prompt-internal :prompt-history :prompt-match |
;;; :prompt-internal :prompt-history :prompt-match |
57 |
;;; :prompt-value :deactivate :active |
;;; :prompt-value :deactivate :active |
58 |
;;; :inactive :activate :sibling-args :delete-button-args |
;;; :inactive :activate :sibling-args :delete-button-args |
59 |
;;; :insert-button-args :append-button-args :button-args |
;;; :insert-button-args :append-button-args :button-args |
60 |
;;; :tag-glyph :off-glyph :on-glyph :valid-regexp |
;;; :tag-glyph :off-glyph :on-glyph :valid-regexp |
61 |
;;; :secret :sample-face :sample-face-get :case-fold |
;;; :secret :sample-face :sample-face-get :case-fold |
62 |
;;; :create :convert-widget :format :value-create :offset :extra-offset |
;;; :create :convert-widget :format :value-create :offset :extra-offset |
63 |
;;; :tag :doc :from :to :args :value :action |
;;; :tag :doc :from :to :args :value :action |
64 |
;;; :value-set :value-delete :match :parent :delete :menu-tag-get |
;;; :value-set :value-delete :match :parent :delete :menu-tag-get |
68 |
;;; :indent :size :value-to-external :validate :error :directory |
;;; :indent :size :value-to-external :validate :error :directory |
69 |
;;; :must-match :type-error :value-inline :inline :match-inline :greedy |
;;; :must-match :type-error :value-inline :inline :match-inline :greedy |
70 |
;;; :button-face-get :button-face :value-face :keymap :entry-from |
;;; :button-face-get :button-face :value-face :keymap :entry-from |
71 |
;;; :entry-to :help-echo :documentation-property :tab-order) |
;;; :entry-to :help-echo :documentation-property :tab-order) |
72 |
|
|
73 |
(defun define-widget (name class doc &rest args) |
(defun define-widget (name class doc &rest args) |
74 |
"Define a new widget type named NAME from CLASS. |
"Define a new widget type named NAME from CLASS. |