Mercurial > hg > xemacs-beta

comparison lisp/custom/widget.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 0d2f883870bc
children a145efe76779
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
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.40 7 ;; Version: 1.44
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.
40 :button-face-get :button-face :value-face :keymap :entry-from 40 :button-face-get :button-face :value-face :keymap :entry-from
41 :entry-to :help-echo :documentation-property :hide-front-space 41 :entry-to :help-echo :documentation-property :hide-front-space
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 (unless (fboundp 'load-gc)
46 (autoload 'widget-insert "widget-edit") 46 (autoload 'widget-create "widget-edit")
47 (autoload 'widget-browse "widget-browse" nil t) 47 (autoload 'widget-insert "widget-edit")
48 (autoload 'widget-browse-at "widget-browse" nil t) 48 (autoload 'widget-browse "widget-browse" nil t)
49 (autoload 'widget-browse-at "widget-browse" nil t))
49 50
50 ;;;###autoload
51 (defun define-widget (name class doc &rest args) 51 (defun define-widget (name class doc &rest args)
52 "Define a new widget type named NAME from CLASS. 52 "Define a new widget type named NAME from CLASS.
53 53
54 NAME and CLASS should both be symbols, CLASS should be one of the 54 NAME and CLASS should both be symbols, CLASS should be one of the
55 existing widget types, or nil to create the widget from scratch. 55 existing widget types, or nil to create the widget from scratch.