Mercurial > hg > xemacs-beta

comparison lisp/custom/widget.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents 859a2309aef8
children 4103f0995bd7
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
1 ;;; widget.el --- a library of user interface components. 1 ;;; widget.el --- a library of user interface components.
2 ;; 2 ;;
3 ;; Copyright (C) 1996 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.30 7 ;; Version: 1.40
8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ 8 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
9 9
10 ;;; Commentary: 10 ;;; Commentary:
11 ;; 11 ;;
12 ;; If you want to use this code, please visit the URL above. 12 ;; If you want to use this code, please visit the URL above.
25 (while keywords 25 (while keywords
26 (or (boundp (car keywords)) 26 (or (boundp (car keywords))
27 (set (car keywords) (car keywords))) 27 (set (car keywords) (car keywords)))
28 (setq keywords (cdr keywords))))))) 28 (setq keywords (cdr keywords)))))))
29 29
30 (define-widget-keywords :valid-regexp 30 (define-widget-keywords :tag-glyph :off-glyph :on-glyph :valid-regexp
31 :secret :sample-face :sample-face-get :case-fold :widget-doc 31 :secret :sample-face :sample-face-get :case-fold :widget-doc
32 :create :convert-widget :format :value-create :offset :extra-offset 32 :create :convert-widget :format :value-create :offset :extra-offset
33 :tag :doc :from :to :args :value :value-from :value-to :action 33 :tag :doc :from :to :args :value :value-from :value-to :action
34 :value-set :value-delete :match :parent :delete :menu-tag-get 34 :value-set :value-delete :match :parent :delete :menu-tag-get
35 :value-get :choice :void :menu-tag :on :off :on-type :off-type 35 :value-get :choice :void :menu-tag :on :off :on-type :off-type
42 :hide-rear-space) 42 :hide-rear-space)
43 43
44 ;; These autoloads should be deleted when the file is added to Emacs. 44 ;; These autoloads should be deleted when the file is added to Emacs.
45 (autoload 'widget-create "widget-edit") 45 (autoload 'widget-create "widget-edit")
46 (autoload 'widget-insert "widget-edit") 46 (autoload 'widget-insert "widget-edit")
47 (autoload 'widget-browse "widget-browse" nil t)
48 (autoload 'widget-browse-at "widget-browse" nil t)
47 49
48 ;;;###autoload 50 ;;;###autoload
49 (defun define-widget (name class doc &rest args) 51 (defun define-widget (name class doc &rest args)
50 "Define a new widget type named NAME from CLASS. 52 "Define a new widget type named NAME from CLASS.
51 53