comparison lisp/w3/widget.el @ 86:364816949b59 r20-0b93

Import from CVS: tag r20-0b93
author cvs
date Mon, 13 Aug 2007 09:09:02 +0200
parents 6a378aca36af
children 821dec489c24
comparison
equal deleted inserted replaced
85:c661705957e0 86:364816949b59
2 ;; 2 ;;
3 ;; Copyright (C) 1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 1996 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.18 7 ;; Version: 1.20
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 :case-fold :widget-doc 30 (define-widget-keywords :sample-face :sample-face-get :case-fold
31 :widget-doc
31 :create :convert-widget :format :value-create :offset :extra-offset 32 :create :convert-widget :format :value-create :offset :extra-offset
32 :tag :doc :from :to :args :value :value-from :value-to :action 33 :tag :doc :from :to :args :value :value-from :value-to :action
33 :value-set :value-delete :match :parent :delete :menu-tag-get 34 :value-set :value-delete :match :parent :delete :menu-tag-get
34 :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
35 :notify :entry-format :button :children :buttons :insert-before 36 :notify :entry-format :button :children :buttons :insert-before