annotate lwlib/lwlib.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 ade4c7e2c6cb
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
5422
ade4c7e2c6cb Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 4528
diff changeset
1 /* A general interface to the widgets of different toolkits.
ade4c7e2c6cb Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 4528
diff changeset
2 Copyright (C) 1992, 1993, 1994 Lucid, Inc.
ade4c7e2c6cb Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 4528
diff changeset
3 Copyright (C) 1995 Tinker Systems and INS Engineering Corp.
ade4c7e2c6cb Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 4528
diff changeset
4
ade4c7e2c6cb Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 4528
diff changeset
5 This file is part of the Lucid Widget Library.
ade4c7e2c6cb Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 4528
diff changeset
6
ade4c7e2c6cb Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 4528
diff changeset
7 The Lucid Widget Library is free software: you can redistribute it
ade4c7e2c6cb Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 4528
diff changeset
8 and/or modify it under the terms of the GNU General Public License as
ade4c7e2c6cb Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 4528
diff changeset
9 published by the Free Software Foundation, either version 3 of the
ade4c7e2c6cb Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 4528
diff changeset
10 License, or (at your option) any later version.
ade4c7e2c6cb Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 4528
diff changeset
11
ade4c7e2c6cb Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 4528
diff changeset
12 The Lucid Widget Library is distributed in the hope that it will be
ade4c7e2c6cb Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 4528
diff changeset
13 useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
ade4c7e2c6cb Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 4528
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
ade4c7e2c6cb Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 4528
diff changeset
15 General Public License for more details.
ade4c7e2c6cb Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 4528
diff changeset
16
ade4c7e2c6cb Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 4528
diff changeset
17 You should have received a copy of the GNU General Public License
ade4c7e2c6cb Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 4528
diff changeset
18 along with the Lucid Widget Library. If not, see
ade4c7e2c6cb Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 4528
diff changeset
19 <http://www.gnu.org/licenses/>. */
ade4c7e2c6cb Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents: 4528
diff changeset
20
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 434
diff changeset
21 #ifndef INCLUDED_lwlib_h_
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 434
diff changeset
22 #define INCLUDED_lwlib_h_
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24 #include <X11/Intrinsic.h>
4528
726060ee587c First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents: 4522
diff changeset
25 #include "xt-wrappers.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27 #if defined (LWLIB_MENUBARS_LUCID) || defined (LWLIB_MENUBARS_MOTIF) || defined (LWLIB_MENUBARS_ATHENA)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
28 #define NEED_MENUBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
29 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30 #if defined (LWLIB_SCROLLBARS_LUCID) || defined (LWLIB_SCROLLBARS_MOTIF) || defined (LWLIB_SCROLLBARS_ATHENA)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
31 #define NEED_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33 #if defined (LWLIB_DIALOGS_LUCID) || defined (LWLIB_DIALOGS_MOTIF) || defined (LWLIB_DIALOGS_ATHENA)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
34 #define NEED_DIALOGS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
36
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38 ** Widget values depend on the Widget type:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 **
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40 ** widget: (name value key enabled data contents/selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41 **
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42 ** label: ("name" "string" NULL NULL NULL NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43 ** BUTTON: ("name" "string" "key" T/F data <default-button-p>)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44 ** CASCADE (button w/menu):
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45 ** ("name" "string" "key" T/F data (label|button|button w/menu...))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46 ** INCREMENTAL (button w/menu construction callback):
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47 ** ("name" "string" NULL T/F <opaque pointer>)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48 ** menubar: ("name" NULL NULL T/F data (button w/menu))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49 ** scrollbar:("name" NULL NULL T/F NULL NULL)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 ** selectable thing:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51 ** ("name" "string" "key" T/F data T/F)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52 ** checkbox: selectable thing
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53 ** radio: ("name" NULL NULL T/F data (selectable thing...))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54 ** strings: ("name" NULL NULL T/F data (selectable thing...))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55 ** TEXT: ("name" "string" <ign> T/F data)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56 **
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57 ** Note that the above is EXTREMELY bogus. The "type" of the various entities
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
58 ** that a widget_value structure can represent is implicit in the contents of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59 ** half a dozen slots, instead of there simply being a type field. This
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 ** should all be rethunk. I've added a type field, but for now it's only used
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 ** by the new xlwmenu code.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 typedef unsigned long LWLIB_ID;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 typedef enum _change_type
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68 NO_CHANGE = 0,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69 INVISIBLE_CHANGE = 1,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 VISIBLE_CHANGE = 2,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 STRUCTURAL_CHANGE = 3
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72 } change_type;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74 typedef enum _widget_value_type
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 UNSPECIFIED_TYPE = 0,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77 BUTTON_TYPE = 1,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78 TOGGLE_TYPE = 2,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79 RADIO_TYPE = 3,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 TEXT_TYPE = 4,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 SEPARATOR_TYPE = 5,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 CASCADE_TYPE = 6,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83 PUSHRIGHT_TYPE = 7,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 INCREMENTAL_TYPE = 8
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85 } widget_value_type;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 typedef enum _scroll_action
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89 SCROLLBAR_LINE_UP = 0,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90 SCROLLBAR_LINE_DOWN = 1,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91 SCROLLBAR_PAGE_UP = 2,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92 SCROLLBAR_PAGE_DOWN = 3,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93 SCROLLBAR_DRAG = 4,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94 SCROLLBAR_CHANGE = 5,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95 SCROLLBAR_TOP = 6,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
96 SCROLLBAR_BOTTOM = 7
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97 } scroll_action;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 typedef struct _scroll_event
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101 scroll_action action;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
102 int slider_value;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
103 Time time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104 } scroll_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
105
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
106 typedef struct _scrollbar_values
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
108 int line_increment;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
109 int page_increment;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111 int minimum;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 int maximum;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114 int slider_size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115 int slider_position;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 int scrollbar_width, scrollbar_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118 int scrollbar_x, scrollbar_y;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119 } scrollbar_values;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
121 typedef struct _widget_args
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
122 {
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
123 /* some things are only possible at creation time. args are applied
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
124 to widgets at creation time. */
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
125 ArgList args;
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
126 int nargs;
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
127 /* Copying args is impossible so we make the caller give us heap allocated
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
128 args and free them when no one wants them any more. */
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
129 int ref_count;
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 444
diff changeset
130 /* Since we are reference counting we need to be able to determine
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 444
diff changeset
131 when something has changed. */
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 444
diff changeset
132 Boolean args_changed;
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
133 } widget_args;
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
134
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
135 typedef struct _widget_value
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
136 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
137 /* This slot is only partially utilized right now. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
138 widget_value_type type;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
139
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
140 /* name of widget */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
141 char* name;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
142 /* value (meaning BOGUSLY depends on widget type) */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143 char* value;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144 /* keyboard equivalent. no implications for XtTranslations */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145 char* key;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
146 /* accelerator key. For XEmacs, this should be a Lisp_Object holding a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147 char or symbol suitable for passing to event_matches_key_specifier_p.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148 Outside of emacs, this can be anything: an X KeySym is a good idea.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149 lwlib provides support functions for keyboard traversal of menus. Actual
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150 implementation of those accelerators is up to the application.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152 XtPointer accel;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 /* true if enabled */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
154 Boolean enabled;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
155 /* true if selected */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
156 Boolean selected;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
157 /* true if was edited (maintained by get_value) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
158 Boolean edited;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159 /* true if has changed (maintained by lw library) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
160 change_type change;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
161 /* Contents of sub-widgets, also selected slot for checkbox */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
162 struct _widget_value* contents;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163 /* data passed to callback */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164 XtPointer call_data;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
165 /* next in the list of siblings */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166 struct _widget_value* next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
167 /* slot for the toolkit dependent part. Always initialize to NULL. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
168 void* toolkit_data;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
169 /* tell us if we should free the toolkit data slot when freeing the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
170 widget_value itself. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
171 Boolean free_toolkit_data;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
172
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173 /* data defining a scrollbar; only valid if type == "scrollbar" */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174 scrollbar_values *scrollbar_data;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
175
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
176 /* A reference counted arg structure. */
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
177 struct _widget_args *args;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178 /* we resource the widget_value structures; this points to the next
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
179 one on the free list if this one has been deallocated. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
180 struct _widget_value *free_list;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182 } widget_value;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
183
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185 typedef void (*lw_callback) (Widget w, LWLIB_ID id, XtPointer data);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 /* menu stuff */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 /* maybe this should go into a generic lwmenu.h */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
190 extern int lw_menu_active;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192 #if defined (LWLIB_MENUBARS_LUCID)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193 #include "xlwmenu.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
194 #define lw_set_menu xlw_set_menu
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195 #define lw_push_menu xlw_push_menu
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
196 #define lw_pop_menu xlw_pop_menu
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
197 #define lw_set_item xlw_set_item
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
198 #define lw_map_menu xlw_map_menu
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
199 #define lw_display_menu xlw_display_menu
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
200 #define lw_kill_menus xlw_kill_menus
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
201 #define lw_get_entries xlw_get_entries
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
202 #define lw_menu_level xlw_menu_level
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
203 #else /* LWLIB_MENUBARS_LUCID */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
204 /* do this for the other toolkits too */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
205 #endif /* LWLIB_MENUBARS_LUCID */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
206
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
207 #if defined (LWLIB_TABS_LUCID)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
208 #include "xlwtabs.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
209 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
210
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
211 void lw_register_widget (const char* type, const char* name, LWLIB_ID id,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
212 widget_value* val, lw_callback pre_activate_cb,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
213 lw_callback selection_cb,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
214 lw_callback post_activate_cb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215 Widget lw_get_widget (LWLIB_ID id, Widget parent, Boolean pop_up_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
216 Widget lw_make_widget (LWLIB_ID id, Widget parent, Boolean pop_up_p);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
217 Widget lw_create_widget (const char* type, const char* name, LWLIB_ID id,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
218 widget_value* val, Widget parent, Boolean pop_up_p,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
219 lw_callback pre_activate_cb,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
220 lw_callback selection_cb,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
221 lw_callback post_activate_cb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
222 LWLIB_ID lw_get_widget_id (Widget w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
223 int lw_map_widget_values (LWLIB_ID id, int (*mapfunc) (widget_value *value,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
224 void *closure),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
225 void *closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
226 void lw_modify_all_widgets (LWLIB_ID id, widget_value* val, Boolean deep_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
227 void lw_destroy_widget (Widget w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
228 void lw_destroy_all_widgets (LWLIB_ID id);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
229 void lw_destroy_everything (void);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
230 void lw_destroy_all_pop_ups (void);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
231 Widget lw_raise_all_pop_up_widgets (void);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
232 widget_value* lw_get_all_values (LWLIB_ID id);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
233 Boolean lw_get_some_values (LWLIB_ID id, widget_value* val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
234 void lw_pop_up_all_widgets (LWLIB_ID id);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235 void lw_pop_down_all_widgets (LWLIB_ID id);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
236 void lw_add_value_args_to_args (widget_value* wv, ArgList addto, int* offset);
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
237 void lw_add_widget_value_arg (widget_value* wv, String name, XtArgVal value);
639
4b7d425dd3c2 [xemacs-hg @ 2001-07-28 05:08:58 by andyp]
andyp
parents: 450
diff changeset
238 XtArgVal lw_get_value_arg (widget_value* wv, String name);
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 428
diff changeset
239 void lw_copy_widget_value_args (widget_value* copy, widget_value* val);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
240 widget_value * copy_widget_value_tree (widget_value *val, change_type change);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
241
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
242 widget_value *malloc_widget_value (void);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
243 void free_widget_value (widget_value *);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
244 void free_widget_value_tree (widget_value *wv);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
245 widget_value *replace_widget_value_tree (widget_value*, widget_value*);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
246
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247 void lw_popup_menu (Widget, XEvent *);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249 /* Toolkit independent way of focusing on a Widget at the Xt level. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
250 void lw_set_keyboard_focus (Widget parent, Widget w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
251
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252 /* Silly Energize hack to invert the "sheet" button */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 void lw_show_busy (Widget w, Boolean busy);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
255 void lw_remove_accelerator_spec (char *val);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
256
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 434
diff changeset
257 #endif /* INCLUDED_lwlib_h_ */