Mercurial > hg > xemacs-beta

comparison lisp/custom/widget.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 25f70ba0133c
children 6b37e6ddd302
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
2 ;; 2 ;;
3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
4 ;; 4 ;;
5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> 5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
6 ;; Keywords: help, extensions, faces, hypermedia 6 ;; Keywords: help, extensions, faces, hypermedia
7 ;; Version: 1.98 7 ;; Version: 1.9907
8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ 8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
42 (while keywords 42 (while keywords
43 (or (boundp (car keywords)) 43 (or (boundp (car keywords))
44 (set (car keywords) (car keywords))) 44 (set (car keywords) (car keywords)))
45 (setq keywords (cdr keywords))))))) 45 (setq keywords (cdr keywords)))))))
46 46
47 (define-widget-keywords :button-prefix :button-suffix 47 (define-widget-keywords :complete-function :complete :button-overlay
48 :mouse-down-action :glyph-up :glyph-down :glyph-inactive 48 :field-overlay
49 :documentation-shown :button-prefix
50 :button-suffix :mouse-down-action :glyph-up :glyph-down :glyph-inactive
49 :prompt-internal :prompt-history :prompt-match 51 :prompt-internal :prompt-history :prompt-match
50 :prompt-value :deactivate :active 52 :prompt-value :deactivate :active
51 :inactive :activate :sibling-args :delete-button-args 53 :inactive :activate :sibling-args :delete-button-args
52 :insert-button-args :append-button-args :button-args 54 :insert-button-args :append-button-args :button-args
53 :tag-glyph :off-glyph :on-glyph :valid-regexp 55 :tag-glyph :off-glyph :on-glyph :valid-regexp
54 :secret :sample-face :sample-face-get :case-fold :widget-doc 56 :secret :sample-face :sample-face-get :case-fold
55 :create :convert-widget :format :value-create :offset :extra-offset 57 :create :convert-widget :format :value-create :offset :extra-offset
56 :tag :doc :from :to :args :value :value-from :value-to :action 58 :tag :doc :from :to :args :value :action
57 :value-set :value-delete :match :parent :delete :menu-tag-get 59 :value-set :value-delete :match :parent :delete :menu-tag-get
58 :value-get :choice :void :menu-tag :on :off :on-type :off-type 60 :value-get :choice :void :menu-tag :on :off :on-type :off-type
59 :notify :entry-format :button :children :buttons :insert-before 61 :notify :entry-format :button :children :buttons :insert-before
60 :delete-at :format-handler :widget :value-pos :value-to-internal 62 :delete-at :format-handler :widget :value-pos :value-to-internal
61 :indent :size :value-to-external :validate :error :directory 63 :indent :size :value-to-external :validate :error :directory
62 :must-match :type-error :value-inline :inline :match-inline :greedy 64 :must-match :type-error :value-inline :inline :match-inline :greedy
63 :button-face-get :button-face :value-face :keymap :entry-from 65 :button-face-get :button-face :value-face :keymap :entry-from
64 :entry-to :help-echo :documentation-property :hide-front-space 66 :entry-to :help-echo :documentation-property :tab-order)
65 :hide-rear-space :tab-order)
66 67
67 ;; These autoloads should be deleted when the file is added to Emacs. 68 ;; These autoloads should be deleted when the file is added to Emacs.
68 (unless (fboundp 'load-gc) 69 (unless (fboundp 'load-gc)
69 (autoload 'widget-apply "wid-edit") 70 (autoload 'widget-apply "wid-edit")
70 (autoload 'widget-create "wid-edit") 71 (autoload 'widget-create "wid-edit")