annotate lwlib/xlwcheckboxP.h @ 5872:f9e59cd39a9a

Clean up #'read-quoted-char, support help-event-list there. lisp/changeLog addition: 2015-03-14 Aidan Kehoe <kehoea@parhasard.net> * simple.el (quoted-insert): Update the docstring here, syncing GNU's, especially mentioning read-quoted-char-radix. * cmdloop.el: * cmdloop.el (read-quoted-char-radix): Move this up here, outside the functions. * cmdloop.el (read-function-key-map): New label, reading and replacing characters from function-key-map if appropriate. * cmdloop.el (read-quoted-char): Multiple changes: -- Take advantage of help-event-list, but be careful not to have any keystrokes with character equivalents in it, so the user can type C-q C-h and have the expected result. -- Use function-key-map, as does #'read-char and #'read-exclusive-char, helpful for character composition under X11. -- Pop up the help window ourselves if, e.g. F1 arrives on a TTY via function-key-map, event-stream won't have done it. -- Error if no keystroke that can be converted into a character is specified, don't just insert ?\x00 as we used to and as does GNU -- Use #'digit-char-p instead of reimplementing it. -- Fix a bug of mine where I wasn't consistent about treating character codes as Unicode.
author Aidan Kehoe <kehoea@parhasard.net>
date Tue, 17 Mar 2015 12:22:50 +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 */