annotate lwlib/xlwcheckboxP.h @ 5612:2c20bc575989

Use the old #'labels implementation if #'lexical-let changes lambdas. lisp/ChangeLog addition: 2011-12-13 Aidan Kehoe <kehoea@parhasard.net> * bytecomp.el (byte-compile-initial-macro-environment): If lexical let has played with our lambas, give up on constructing the compiled functions at compiled time, that strategy doesn't work.
author Aidan Kehoe <kehoea@parhasard.net>
date Tue, 13 Dec 2011 20:28:32 +0000
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 */