Mercurial > hg > xemacs-beta
annotate lisp/widget.el @ 5724:ede80ef92a74
Make soft links in src for module source files, if built in to the executable.
This ensures that those files are built with the same compiler flags as all
other source files.
See these xemacs-beta messages:
<CAHCOHQn+q=Xuwq+y68dvqi7afAP9f-TdB7=8YiZ8VYO816sjHg@mail.gmail.com>
<f5by5ejqiyk.fsf@calexico.inf.ed.ac.uk>
| author | Jerry James <james@xemacs.org> |
|---|---|
| date | Sat, 02 Mar 2013 14:32:37 -0700 |
| parents | b7ae5f44b950 |
| children |
| rev | line source |
|---|---|
| 428 | 1 ;;; widget.el --- a library of user interface components. |
| 2 | |
| 3 ;; Copyright (C) 1996, 1997 Free Software Foundation, Inc. | |
| 4 | |
| 5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> | |
| 6 ;; Maintainer: Hrvoje Niksic <hniksic@xemacs.org> | |
| 7 ;; Keywords: help, extensions, faces, hypermedia, dumped | |
| 8 ;; Version: 1.9960-x | |
| 9 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/ | |
| 10 | |
| 11 ;; This file is part of XEmacs. | |
| 12 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
13 ;; XEmacs is free software: you can redistribute it and/or modify it |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
14 ;; under the terms of the GNU General Public License as published by the |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
15 ;; Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
16 ;; option) any later version. |
| 428 | 17 |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
18 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
19 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
20 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
21 ;; for more details. |
| 428 | 22 |
| 23 ;; You should have received a copy of the GNU General Public License | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
24 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
| 428 | 25 |
| 26 ;;; Commentary: | |
| 27 | |
| 28 ;; This file is dumped with XEmacs. | |
| 29 | |
| 30 ;; If you want to use this code, please visit the URL above. | |
| 31 | |
| 32 ;; This file only contain the code needed to define new widget types. | |
| 33 ;; Everything else is autoloaded from `wid-edit.el'. | |
| 34 | |
| 35 ;;; Code: | |
| 36 | |
| 37 (defun define-widget (name class doc &rest args) | |
| 38 "Define a new widget type named NAME from CLASS. | |
| 39 | |
| 40 NAME and CLASS should both be symbols, CLASS should be one of the | |
| 41 existing widget types, or nil to create the widget from scratch. | |
| 42 | |
| 43 After the new widget has been defined, the following two calls will | |
| 44 create identical widgets: | |
| 45 | |
| 46 * (widget-create NAME) | |
| 47 | |
| 48 * (apply 'widget-create CLASS ARGS) | |
| 49 | |
| 50 The third argument DOC is a documentation string for the widget." | |
| 51 (check-argument-type 'symbolp name) | |
| 52 (check-argument-type 'symbolp class) | |
| 53 (put name 'widget-type (cons class args)) | |
| 54 (put name 'widget-documentation doc) | |
| 55 name) | |
| 56 | |
| 57 ;;; The End. | |
| 58 | |
| 59 (provide 'widget) | |
| 60 | |
| 61 ;;; widget.el ends here |