Mercurial > hg > xemacs-beta
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 |