annotate lwlib/xlwcheckboxP.h @ 5574:d4f334808463

Support inlining labels, bytecomp.el. lisp/ChangeLog addition: 2011-10-02 Aidan Kehoe <kehoea@parhasard.net> * bytecomp.el (byte-compile-initial-macro-environment): Add #'declare to this, so it doesn't need to rely on #'cl-compiling file to determine when we're byte-compiling. Update #'labels to support declaring labels inline, as Common Lisp requires. * bytecomp.el (byte-compile-function-form): Don't error if FUNCTION is quoting a non-lambda, non-symbol, just return it. * cl-extra.el (cl-macroexpand-all): If a label name has been quoted, expand to the label placeholder quoted with 'function. This allows the byte compiler to distinguish between uses of the placeholder as data and uses in contexts where it should be inlined. * cl-macs.el: * cl-macs.el (cl-do-proclaim): When proclaming something as inline, if it is bound as a label, don't modify the symbol's plist; instead, treat the first element of its placeholder constant vector as a place to store compile information. * cl-macs.el (declare): Leave processing declarations while compiling to the implementation of #'declare in byte-compile-initial-macro-environment. tests/ChangeLog addition: 2011-10-02 Aidan Kehoe <kehoea@parhasard.net> * automated/lisp-tests.el: * automated/lisp-tests.el (+): Test #'labels and inlining.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 02 Oct 2011 15:32:16 +0100
parents 308d34e9f07d
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
1 /* Checkbox Widget for XEmacs.
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
2 Copyright (C) 1999 Edward A. Falk
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
3
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
4 This file is part of XEmacs.
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
5
5402
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 398
diff changeset
6 XEmacs is free software: you can redistribute it and/or modify it
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
7 under the terms of the GNU General Public License as published by the
5402
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 398
diff changeset
8 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: 398
diff changeset
9 option) any later version.
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
10
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
14 for more details.
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
15
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
16 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: 398
diff changeset
17 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
18
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
19 /*
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
20 * CheckboxP.h - Private definitions for Checkbox widget
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
21 *
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
22 * Author: Edward A. Falk
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
23 * falk@falconer.vip.best.com
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
24 *
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
25 * Date: June 30, 1997
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
26 */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
27
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
28 #ifndef _XawCheckboxP_h
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
29 #define _XawCheckboxP_h
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
30
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
31 #include "xlwcheckbox.h"
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
32 #include "xlwradioP.h"
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
33
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
34 /************************************
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
35 *
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
36 * Class structure
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
37 *
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
38 ***********************************/
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
39
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
40 /* New fields for the Checkbox widget class record */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
41 typedef struct _CheckboxClass {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
42 XtPointer extension;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
43 } CheckboxClassPart;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
44
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
45 /* Full class record declaration */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
46 typedef struct _CheckboxClassRec {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
47 CoreClassPart core_class;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
48 SimpleClassPart simple_class;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
49 #ifdef _ThreeDP_h
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
50 ThreeDClassPart threeD_class;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
51 #endif
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
52 LabelClassPart label_class;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
53 CommandClassPart command_class;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
54 ToggleClassPart toggle_class;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
55 RadioClassPart radio_class;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
56 CheckboxClassPart checkbox_class;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
57 } CheckboxClassRec;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
58
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
59 extern CheckboxClassRec checkboxClassRec;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
60
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
61 /***************************************
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
62 *
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
63 * Instance (widget) structure
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
64 *
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
65 **************************************/
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
66
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
67 /* New fields for the Checkbox widget record */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
68 typedef struct {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
69 /* resources */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
70 Boolean tristate ;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
71
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
72 /* private data */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
73 Boolean pressed ;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
74 Pixmap checkmark ; /* TODO: share these via xmu? */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
75 GC checkmark_GC ;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
76 XtPointer extension;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
77 } CheckboxPart;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
78
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
79 /* Full widget declaration */
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
80 typedef struct _CheckboxRec {
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
81 CorePart core;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
82 SimplePart simple;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
83 #ifdef _ThreeDP_h
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
84 ThreeDPart threeD;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
85 #endif
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
86 LabelPart label;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
87 CommandPart command;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
88 TogglePart toggle;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
89 RadioPart radio;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
90 CheckboxPart checkbox;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
91 } CheckboxRec;
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
92
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
93 #endif /* _XawCheckboxP_h */