Mercurial > emacs
annotate lwlib/lwlib.c @ 22312:eed3a1470e83
(install-arch-indep): Don't die if site-lisp/ isn't writable.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Mon, 01 Jun 1998 03:46:31 +0000 |
parents | fb4644a9f761 |
children | b0ecf4f48090 |
rev | line source |
---|---|
5626 | 1 /* A general interface to the widgets of different toolkits. |
2 Copyright (C) 1992, 1993 Lucid, Inc. | |
3 | |
4 This file is part of the Lucid Widget Library. | |
5 | |
6 The Lucid Widget Library is free software; you can redistribute it and/or | |
7 modify it under the terms of the GNU General Public License as published by | |
8 the Free Software Foundation; either version 2, or (at your option) | |
9 any later version. | |
10 | |
11 The Lucid Widget Library is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14163
diff
changeset
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14163
diff
changeset
|
19 Boston, MA 02111-1307, USA. */ |
5626 | 20 |
21 #ifdef NeXT | |
22 #undef __STRICT_BSD__ /* ick */ | |
23 #endif | |
24 | |
25 #include <sys/types.h> | |
26 #include <stdio.h> | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
27 #include <ctype.h> |
5627
7ff2d6076466
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5626
diff
changeset
|
28 #include "lwlib-int.h" |
5626 | 29 #include "lwlib-utils.h" |
5706
75570af32e92
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5627
diff
changeset
|
30 #include <X11/StringDefs.h> |
5626 | 31 |
11676
d67c2cc998d4
[__osf__]: Include string.h and stdlib.h.
Richard M. Stallman <rms@gnu.org>
parents:
9929
diff
changeset
|
32 #ifdef __osf__ |
d67c2cc998d4
[__osf__]: Include string.h and stdlib.h.
Richard M. Stallman <rms@gnu.org>
parents:
9929
diff
changeset
|
33 #include <string.h> |
d67c2cc998d4
[__osf__]: Include string.h and stdlib.h.
Richard M. Stallman <rms@gnu.org>
parents:
9929
diff
changeset
|
34 #include <stdlib.h> |
21391 | 35 #endif |
11676
d67c2cc998d4
[__osf__]: Include string.h and stdlib.h.
Richard M. Stallman <rms@gnu.org>
parents:
9929
diff
changeset
|
36 extern long *xmalloc(); |
d67c2cc998d4
[__osf__]: Include string.h and stdlib.h.
Richard M. Stallman <rms@gnu.org>
parents:
9929
diff
changeset
|
37 |
5626 | 38 #if defined (USE_LUCID) |
39 #include "lwlib-Xlw.h" | |
40 #endif | |
41 #if defined (USE_MOTIF) | |
42 #include "lwlib-Xm.h" | |
6306
19fc40b33f52
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6305
diff
changeset
|
43 #else /* not USE_MOTIF */ |
19fc40b33f52
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6305
diff
changeset
|
44 #if defined (USE_LUCID) |
19fc40b33f52
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6305
diff
changeset
|
45 #define USE_XAW |
19fc40b33f52
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6305
diff
changeset
|
46 #endif /* not USE_MOTIF && USE_LUCID */ |
5626 | 47 #endif |
48 #if defined (USE_OLIT) | |
49 #include "lwlib-Xol.h" | |
50 #endif | |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
51 #if defined (USE_XAW) |
21391 | 52 #include <X11/Xaw/Paned.h> |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
53 #include "lwlib-Xaw.h" |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
54 #endif |
5626 | 55 |
56 #if !defined (USE_LUCID) && !defined (USE_MOTIF) && !defined (USE_OLIT) | |
57 ERROR! At least one of USE_LUCID, USE_MOTIF or USE_OLIT must be defined. | |
58 #endif | |
59 | |
60 #if defined (USE_MOTIF) && defined (USE_OLIT) | |
61 ERROR! no more than one of USE_MOTIF and USE_OLIT may be defined. | |
62 #endif | |
63 | |
8785 | 64 #ifndef max |
65 #define max(x, y) ((x) > (y) ? (x) : (y)) | |
66 #endif | |
67 | |
5626 | 68 /* List of all widgets managed by the library. */ |
69 static widget_info* | |
70 all_widget_info = NULL; | |
71 | |
12187
18d061c3d0dd
(lwlib_toolkit_type): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
11861
diff
changeset
|
72 #ifdef USE_MOTIF |
18d061c3d0dd
(lwlib_toolkit_type): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
11861
diff
changeset
|
73 char *lwlib_toolkit_type = "motif"; |
18d061c3d0dd
(lwlib_toolkit_type): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
11861
diff
changeset
|
74 #else |
18d061c3d0dd
(lwlib_toolkit_type): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
11861
diff
changeset
|
75 char *lwlib_toolkit_type = "lucid"; |
18d061c3d0dd
(lwlib_toolkit_type): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
11861
diff
changeset
|
76 #endif |
5626 | 77 /* Forward declarations */ |
78 static void | |
14163
2422ceecd9d2
(instantiate_widget_instance): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
12744
diff
changeset
|
79 instantiate_widget_instance (/* widget_instance* instance */); |
5626 | 80 |
21391 | 81 void |
7515
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
82 lwlib_memset (address, value, length) |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
83 char *address; |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
84 int value; |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
85 int length; |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
86 { |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
87 int i; |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
88 |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
89 for (i = 0; i < length; i++) |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
90 address[i] = value; |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
91 } |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
92 |
21391 | 93 void |
7515
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
94 lwlib_bcopy (from, to, length) |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
95 char *from; |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
96 char *to; |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
97 int length; |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
98 { |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
99 int i; |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
100 |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
101 for (i = 0; i < length; i++) |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
102 to[i] = from[i]; |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
103 } |
5626 | 104 /* utility functions for widget_instance and widget_info */ |
7423
4a5d0d109242
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
6333
diff
changeset
|
105 char * |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
106 safe_strdup (s) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
107 char *s; |
5626 | 108 { |
109 char *result; | |
110 if (! s) return 0; | |
111 result = (char *) malloc (strlen (s) + 1); | |
112 if (! result) | |
113 return 0; | |
114 strcpy (result, s); | |
115 return result; | |
116 } | |
117 | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
118 /* Like strcmp but ignore differences in case. */ |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
119 |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
120 static int |
5853 | 121 my_strcasecmp (s1, s2) |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
122 char *s1, *s2; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
123 { |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
124 while (1) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
125 { |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
126 int c1 = *s1++; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
127 int c2 = *s2++; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
128 if (isupper (c1)) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
129 c1 = tolower (c1); |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
130 if (isupper (c2)) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
131 c2 = tolower (c2); |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
132 if (c1 != c2) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
133 return (c1 > c2 ? 1 : -1); |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
134 if (c1 == 0) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
135 return 0; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
136 } |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
137 } |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
138 |
5626 | 139 static void |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
140 safe_free_str (s) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
141 char *s; |
5626 | 142 { |
143 if (s) free (s); | |
144 } | |
145 | |
146 static widget_value *widget_value_free_list = 0; | |
5993
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
147 static int malloc_cpt = 0; |
5626 | 148 |
149 widget_value * | |
150 malloc_widget_value () | |
151 { | |
152 widget_value *wv; | |
153 if (widget_value_free_list) | |
154 { | |
155 wv = widget_value_free_list; | |
156 widget_value_free_list = wv->free_list; | |
157 wv->free_list = 0; | |
158 } | |
159 else | |
160 { | |
161 wv = (widget_value *) malloc (sizeof (widget_value)); | |
5993
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
162 malloc_cpt++; |
5626 | 163 } |
7515
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
164 lwlib_memset (wv, 0, sizeof (widget_value)); |
5626 | 165 return wv; |
166 } | |
167 | |
14163
2422ceecd9d2
(instantiate_widget_instance): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
12744
diff
changeset
|
168 /* this is analogous to free(). It frees only what was allocated |
5626 | 169 by malloc_widget_value(), and no substructures. |
170 */ | |
171 void | |
172 free_widget_value (wv) | |
173 widget_value *wv; | |
174 { | |
175 if (wv->free_list) | |
176 abort (); | |
5993
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
177 |
5999
b135bb2b4bfe
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5993
diff
changeset
|
178 if (malloc_cpt > 25) |
5993
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
179 { |
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
180 /* When the number of already allocated cells is too big, |
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
181 We free it. */ |
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
182 free (wv); |
5999
b135bb2b4bfe
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5993
diff
changeset
|
183 malloc_cpt--; |
5993
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
184 } |
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
185 else |
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
186 { |
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
187 wv->free_list = widget_value_free_list; |
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
188 widget_value_free_list = wv; |
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
189 } |
5626 | 190 } |
191 | |
192 static void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
193 free_widget_value_tree (wv) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
194 widget_value *wv; |
5626 | 195 { |
196 if (!wv) | |
197 return; | |
198 | |
199 if (wv->name) free (wv->name); | |
200 if (wv->value) free (wv->value); | |
201 if (wv->key) free (wv->key); | |
202 | |
203 wv->name = wv->value = wv->key = (char *) 0xDEADBEEF; | |
204 | |
205 if (wv->toolkit_data && wv->free_toolkit_data) | |
206 { | |
14611
69fca906f068
(free_widget_value_tree, merge_widget_value):
Karl Heuer <kwzh@gnu.org>
parents:
14594
diff
changeset
|
207 XtFree (wv->toolkit_data); |
5626 | 208 wv->toolkit_data = (void *) 0xDEADBEEF; |
209 } | |
210 | |
211 if (wv->contents && (wv->contents != (widget_value*)1)) | |
212 { | |
213 free_widget_value_tree (wv->contents); | |
214 wv->contents = (widget_value *) 0xDEADBEEF; | |
215 } | |
216 if (wv->next) | |
217 { | |
218 free_widget_value_tree (wv->next); | |
219 wv->next = (widget_value *) 0xDEADBEEF; | |
220 } | |
221 free_widget_value (wv); | |
222 } | |
223 | |
224 static widget_value * | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
225 copy_widget_value_tree (val, change) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
226 widget_value* val; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
227 change_type change; |
5626 | 228 { |
229 widget_value* copy; | |
230 | |
231 if (!val) | |
232 return NULL; | |
233 if (val == (widget_value *) 1) | |
234 return val; | |
235 | |
236 copy = malloc_widget_value (); | |
237 copy->name = safe_strdup (val->name); | |
238 copy->value = safe_strdup (val->value); | |
239 copy->key = safe_strdup (val->key); | |
240 copy->enabled = val->enabled; | |
241 copy->selected = val->selected; | |
242 copy->edited = False; | |
243 copy->change = change; | |
14879
70f79ccb9875
(merge_widget_value): Set the this_one_change field.
Richard M. Stallman <rms@gnu.org>
parents:
14663
diff
changeset
|
244 copy->this_one_change = change; |
5626 | 245 copy->contents = copy_widget_value_tree (val->contents, change); |
246 copy->call_data = val->call_data; | |
247 copy->next = copy_widget_value_tree (val->next, change); | |
248 copy->toolkit_data = NULL; | |
249 copy->free_toolkit_data = False; | |
250 return copy; | |
251 } | |
252 | |
253 static widget_info * | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
254 allocate_widget_info (type, name, id, val, pre_activate_cb, selection_cb, post_activate_cb) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
255 char* type; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
256 char* name; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
257 LWLIB_ID id; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
258 widget_value* val; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
259 lw_callback pre_activate_cb; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
260 lw_callback selection_cb; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
261 lw_callback post_activate_cb; |
5626 | 262 { |
263 widget_info* info = (widget_info*)malloc (sizeof (widget_info)); | |
264 info->type = safe_strdup (type); | |
265 info->name = safe_strdup (name); | |
266 info->id = id; | |
267 info->val = copy_widget_value_tree (val, STRUCTURAL_CHANGE); | |
268 info->busy = False; | |
269 info->pre_activate_cb = pre_activate_cb; | |
270 info->selection_cb = selection_cb; | |
271 info->post_activate_cb = post_activate_cb; | |
272 info->instances = NULL; | |
273 | |
274 info->next = all_widget_info; | |
275 all_widget_info = info; | |
276 | |
277 return info; | |
278 } | |
279 | |
280 static void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
281 free_widget_info (info) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
282 widget_info* info; |
5626 | 283 { |
284 safe_free_str (info->type); | |
285 safe_free_str (info->name); | |
286 free_widget_value_tree (info->val); | |
7515
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
287 lwlib_memset ((void*)info, 0xDEADBEEF, sizeof (widget_info)); |
5626 | 288 free (info); |
289 } | |
290 | |
291 static void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
292 mark_widget_destroyed (widget, closure, call_data) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
293 Widget widget; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
294 XtPointer closure; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
295 XtPointer call_data; |
5626 | 296 { |
297 widget_instance* instance = (widget_instance*)closure; | |
298 | |
299 /* be very conservative */ | |
300 if (instance->widget == widget) | |
301 instance->widget = NULL; | |
302 } | |
303 | |
304 static widget_instance * | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
305 allocate_widget_instance (info, parent, pop_up_p) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
306 widget_info* info; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
307 Widget parent; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
308 Boolean pop_up_p; |
5626 | 309 { |
310 widget_instance* instance = | |
311 (widget_instance*)malloc (sizeof (widget_instance)); | |
312 instance->parent = parent; | |
313 instance->pop_up_p = pop_up_p; | |
314 instance->info = info; | |
315 instance->next = info->instances; | |
316 info->instances = instance; | |
317 | |
14163
2422ceecd9d2
(instantiate_widget_instance): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
12744
diff
changeset
|
318 instantiate_widget_instance (instance); |
5626 | 319 |
320 XtAddCallback (instance->widget, XtNdestroyCallback, | |
321 mark_widget_destroyed, (XtPointer)instance); | |
322 return instance; | |
323 } | |
324 | |
325 static void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
326 free_widget_instance (instance) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
327 widget_instance* instance; |
5626 | 328 { |
7515
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
329 lwlib_memset ((void*)instance, 0xDEADBEEF, sizeof (widget_instance)); |
5626 | 330 free (instance); |
331 } | |
332 | |
333 static widget_info * | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
334 get_widget_info (id, remove_p) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
335 LWLIB_ID id; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
336 Boolean remove_p; |
5626 | 337 { |
338 widget_info* info; | |
339 widget_info* prev; | |
340 for (prev = NULL, info = all_widget_info; | |
341 info; | |
342 prev = info, info = info->next) | |
343 if (info->id == id) | |
344 { | |
345 if (remove_p) | |
346 { | |
347 if (prev) | |
348 prev->next = info->next; | |
349 else | |
350 all_widget_info = info->next; | |
351 } | |
352 return info; | |
353 } | |
354 return NULL; | |
355 } | |
356 | |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
357 /* Internal function used by the library dependent implementation to get the |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
358 widget_value for a given widget in an instance */ |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
359 widget_info * |
6333
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6306
diff
changeset
|
360 lw_get_widget_info (id) |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6306
diff
changeset
|
361 LWLIB_ID id; |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
362 { |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
363 return get_widget_info (id, 0); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
364 } |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
365 |
5626 | 366 static widget_instance * |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
367 get_widget_instance (widget, remove_p) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
368 Widget widget; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
369 Boolean remove_p; |
5626 | 370 { |
371 widget_info* info; | |
372 widget_instance* instance; | |
373 widget_instance* prev; | |
374 for (info = all_widget_info; info; info = info->next) | |
375 for (prev = NULL, instance = info->instances; | |
376 instance; | |
377 prev = instance, instance = instance->next) | |
378 if (instance->widget == widget) | |
379 { | |
380 if (remove_p) | |
381 { | |
382 if (prev) | |
383 prev->next = instance->next; | |
384 else | |
385 info->instances = instance->next; | |
386 } | |
387 return instance; | |
388 } | |
389 return (widget_instance *) 0; | |
390 } | |
391 | |
392 static widget_instance* | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
393 find_instance (id, parent, pop_up_p) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
394 LWLIB_ID id; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
395 Widget parent; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
396 Boolean pop_up_p; |
5626 | 397 { |
398 widget_info* info = get_widget_info (id, False); | |
399 widget_instance* instance; | |
400 | |
401 if (info) | |
402 for (instance = info->instances; instance; instance = instance->next) | |
403 if (instance->parent == parent && instance->pop_up_p == pop_up_p) | |
404 return instance; | |
405 | |
406 return NULL; | |
407 } | |
408 | |
409 | |
410 /* utility function for widget_value */ | |
411 static Boolean | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
412 safe_strcmp (s1, s2) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
413 char* s1; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
414 char* s2; |
5626 | 415 { |
416 if (!!s1 ^ !!s2) return True; | |
417 return (s1 && s2) ? strcmp (s1, s2) : s1 ? False : !!s2; | |
418 } | |
419 | |
420 | |
421 #if 0 | |
422 # define EXPLAIN(name, oc, nc, desc, a1, a2) \ | |
423 printf ("Change: \"%s\"\tmax(%s=%d,%s=%d)\t%s %d %d\n", \ | |
424 name, \ | |
425 (oc == NO_CHANGE ? "none" : \ | |
426 (oc == INVISIBLE_CHANGE ? "invisible" : \ | |
427 (oc == VISIBLE_CHANGE ? "visible" : \ | |
428 (oc == STRUCTURAL_CHANGE ? "structural" : "???")))), \ | |
429 oc, \ | |
430 (nc == NO_CHANGE ? "none" : \ | |
431 (nc == INVISIBLE_CHANGE ? "invisible" : \ | |
432 (nc == VISIBLE_CHANGE ? "visible" : \ | |
433 (nc == STRUCTURAL_CHANGE ? "structural" : "???")))), \ | |
434 nc, desc, a1, a2) | |
435 #else | |
436 # define EXPLAIN(name, oc, nc, desc, a1, a2) | |
437 #endif | |
438 | |
439 | |
440 static widget_value * | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
441 merge_widget_value (val1, val2, level) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
442 widget_value* val1; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
443 widget_value* val2; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
444 int level; |
5626 | 445 { |
14879
70f79ccb9875
(merge_widget_value): Set the this_one_change field.
Richard M. Stallman <rms@gnu.org>
parents:
14663
diff
changeset
|
446 change_type change, this_one_change; |
5626 | 447 widget_value* merged_next; |
448 widget_value* merged_contents; | |
449 | |
450 if (!val1) | |
451 { | |
452 if (val2) | |
453 return copy_widget_value_tree (val2, STRUCTURAL_CHANGE); | |
454 else | |
455 return NULL; | |
456 } | |
457 if (!val2) | |
458 { | |
459 free_widget_value_tree (val1); | |
460 return NULL; | |
461 } | |
462 | |
463 change = NO_CHANGE; | |
464 | |
465 if (safe_strcmp (val1->name, val2->name)) | |
466 { | |
467 EXPLAIN (val1->name, change, STRUCTURAL_CHANGE, "name change", | |
468 val1->name, val2->name); | |
469 change = max (change, STRUCTURAL_CHANGE); | |
470 safe_free_str (val1->name); | |
471 val1->name = safe_strdup (val2->name); | |
472 } | |
473 if (safe_strcmp (val1->value, val2->value)) | |
474 { | |
475 EXPLAIN (val1->name, change, VISIBLE_CHANGE, "value change", | |
476 val1->value, val2->value); | |
477 change = max (change, VISIBLE_CHANGE); | |
478 safe_free_str (val1->value); | |
479 val1->value = safe_strdup (val2->value); | |
480 } | |
481 if (safe_strcmp (val1->key, val2->key)) | |
482 { | |
483 EXPLAIN (val1->name, change, VISIBLE_CHANGE, "key change", | |
484 val1->key, val2->key); | |
485 change = max (change, VISIBLE_CHANGE); | |
486 safe_free_str (val1->key); | |
487 val1->key = safe_strdup (val2->key); | |
488 } | |
489 if (val1->enabled != val2->enabled) | |
490 { | |
491 EXPLAIN (val1->name, change, VISIBLE_CHANGE, "enablement change", | |
492 val1->enabled, val2->enabled); | |
493 change = max (change, VISIBLE_CHANGE); | |
494 val1->enabled = val2->enabled; | |
495 } | |
496 if (val1->selected != val2->selected) | |
497 { | |
498 EXPLAIN (val1->name, change, VISIBLE_CHANGE, "selection change", | |
499 val1->selected, val2->selected); | |
500 change = max (change, VISIBLE_CHANGE); | |
501 val1->selected = val2->selected; | |
502 } | |
503 if (val1->call_data != val2->call_data) | |
504 { | |
505 EXPLAIN (val1->name, change, INVISIBLE_CHANGE, "call-data change", | |
506 val1->call_data, val2->call_data); | |
507 change = max (change, INVISIBLE_CHANGE); | |
508 val1->call_data = val2->call_data; | |
509 } | |
510 | |
511 if (level > 0) | |
512 { | |
513 merged_contents = | |
514 merge_widget_value (val1->contents, val2->contents, level - 1); | |
515 | |
516 if (val1->contents && !merged_contents) | |
517 { | |
14163
2422ceecd9d2
(instantiate_widget_instance): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
12744
diff
changeset
|
518 /* This used to say INVISIBLE_CHANGE, |
2422ceecd9d2
(instantiate_widget_instance): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
12744
diff
changeset
|
519 but it is visible and vitally important when |
2422ceecd9d2
(instantiate_widget_instance): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
12744
diff
changeset
|
520 the contents of the menu bar itself are entirely deleted. |
2422ceecd9d2
(instantiate_widget_instance): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
12744
diff
changeset
|
521 |
2422ceecd9d2
(instantiate_widget_instance): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
12744
diff
changeset
|
522 But maybe it doesn't matter. This fails to fix the bug. */ |
2422ceecd9d2
(instantiate_widget_instance): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
12744
diff
changeset
|
523 EXPLAIN (val1->name, change, STRUCTURAL_CHANGE, "(contents gone)", |
5626 | 524 0, 0); |
14163
2422ceecd9d2
(instantiate_widget_instance): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
12744
diff
changeset
|
525 change = max (change, STRUCTURAL_CHANGE); |
5626 | 526 } |
527 else if (merged_contents && merged_contents->change != NO_CHANGE) | |
528 { | |
529 EXPLAIN (val1->name, change, INVISIBLE_CHANGE, "(contents change)", | |
530 0, 0); | |
531 change = max (change, INVISIBLE_CHANGE); | |
15854
184808f2a73c
(merge_widget_value): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
15790
diff
changeset
|
532 #if 0 /* This was replaced by the August 9 1996 change in lwlib-Xm.c. */ |
15790
fb5e87397205
(merge_widget_value) [USE_MOTIF]: Pass along the change flag from
Richard M. Stallman <rms@gnu.org>
parents:
15630
diff
changeset
|
533 #ifdef USE_MOTIF |
fb5e87397205
(merge_widget_value) [USE_MOTIF]: Pass along the change flag from
Richard M. Stallman <rms@gnu.org>
parents:
15630
diff
changeset
|
534 change = max (merged_contents->change, change); |
fb5e87397205
(merge_widget_value) [USE_MOTIF]: Pass along the change flag from
Richard M. Stallman <rms@gnu.org>
parents:
15630
diff
changeset
|
535 #endif |
15854
184808f2a73c
(merge_widget_value): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
15790
diff
changeset
|
536 #endif |
5626 | 537 } |
538 | |
539 val1->contents = merged_contents; | |
540 } | |
541 | |
14879
70f79ccb9875
(merge_widget_value): Set the this_one_change field.
Richard M. Stallman <rms@gnu.org>
parents:
14663
diff
changeset
|
542 this_one_change = change; |
70f79ccb9875
(merge_widget_value): Set the this_one_change field.
Richard M. Stallman <rms@gnu.org>
parents:
14663
diff
changeset
|
543 |
5626 | 544 merged_next = merge_widget_value (val1->next, val2->next, level); |
545 | |
546 if (val1->next && !merged_next) | |
547 { | |
548 EXPLAIN (val1->name, change, STRUCTURAL_CHANGE, "(following gone)", | |
549 0, 0); | |
550 change = max (change, STRUCTURAL_CHANGE); | |
551 } | |
552 else if (merged_next) | |
553 { | |
554 if (merged_next->change) | |
555 EXPLAIN (val1->name, change, merged_next->change, "(following change)", | |
556 0, 0); | |
557 change = max (change, merged_next->change); | |
558 } | |
559 | |
560 val1->next = merged_next; | |
561 | |
14879
70f79ccb9875
(merge_widget_value): Set the this_one_change field.
Richard M. Stallman <rms@gnu.org>
parents:
14663
diff
changeset
|
562 val1->this_one_change = this_one_change; |
5626 | 563 val1->change = change; |
564 | |
565 if (change > NO_CHANGE && val1->toolkit_data) | |
566 { | |
567 if (val1->free_toolkit_data) | |
14611
69fca906f068
(free_widget_value_tree, merge_widget_value):
Karl Heuer <kwzh@gnu.org>
parents:
14594
diff
changeset
|
568 XtFree (val1->toolkit_data); |
5626 | 569 val1->toolkit_data = NULL; |
570 } | |
571 | |
572 return val1; | |
573 } | |
574 | |
575 | |
576 /* modifying the widgets */ | |
577 static Widget | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
578 name_to_widget (instance, name) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
579 widget_instance* instance; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
580 char* name; |
5626 | 581 { |
582 Widget widget = NULL; | |
583 | |
584 if (!instance->widget) | |
585 return NULL; | |
586 | |
587 if (!strcmp (XtName (instance->widget), name)) | |
588 widget = instance->widget; | |
589 else | |
590 { | |
591 int length = strlen (name) + 2; | |
7515
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
592 char* real_name = (char *) xmalloc (length); |
5626 | 593 real_name [0] = '*'; |
594 strcpy (real_name + 1, name); | |
595 | |
596 widget = XtNameToWidget (instance->widget, real_name); | |
7515
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
597 |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
598 free (real_name); |
5626 | 599 } |
600 return widget; | |
601 } | |
602 | |
603 static void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
604 set_one_value (instance, val, deep_p) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
605 widget_instance* instance; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
606 widget_value* val; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
607 Boolean deep_p; |
5626 | 608 { |
609 Widget widget = name_to_widget (instance, val->name); | |
610 | |
611 if (widget) | |
612 { | |
613 #if defined (USE_LUCID) | |
614 if (lw_lucid_widget_p (instance->widget)) | |
615 xlw_update_one_widget (instance, widget, val, deep_p); | |
616 #endif | |
617 #if defined (USE_MOTIF) | |
618 if (lw_motif_widget_p (instance->widget)) | |
619 xm_update_one_widget (instance, widget, val, deep_p); | |
620 #endif | |
621 #if defined (USE_OLIT) | |
622 if (lw_olit_widget_p (instance->widget)) | |
623 xol_update_one_widget (instance, widget, val, deep_p); | |
624 #endif | |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
625 #if defined (USE_XAW) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
626 if (lw_xaw_widget_p (instance->widget)) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
627 xaw_update_one_widget (instance, widget, val, deep_p); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
628 #endif |
5626 | 629 } |
630 } | |
631 | |
632 static void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
633 update_one_widget_instance (instance, deep_p) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
634 widget_instance* instance; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
635 Boolean deep_p; |
5626 | 636 { |
637 widget_value *val; | |
638 | |
639 if (!instance->widget) | |
640 /* the widget was destroyed */ | |
641 return; | |
642 | |
643 for (val = instance->info->val; val; val = val->next) | |
644 if (val->change != NO_CHANGE) | |
645 set_one_value (instance, val, deep_p); | |
646 } | |
647 | |
648 static void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
649 update_all_widget_values (info, deep_p) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
650 widget_info* info; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
651 Boolean deep_p; |
5626 | 652 { |
653 widget_instance* instance; | |
654 widget_value* val; | |
655 | |
656 for (instance = info->instances; instance; instance = instance->next) | |
657 update_one_widget_instance (instance, deep_p); | |
658 | |
659 for (val = info->val; val; val = val->next) | |
660 val->change = NO_CHANGE; | |
661 } | |
662 | |
663 void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
664 lw_modify_all_widgets (id, val, deep_p) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
665 LWLIB_ID id; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
666 widget_value* val; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
667 Boolean deep_p; |
5626 | 668 { |
669 widget_info* info = get_widget_info (id, False); | |
670 widget_value* new_val; | |
671 widget_value* next_new_val; | |
672 widget_value* cur; | |
673 widget_value* prev; | |
674 widget_value* next; | |
675 int found; | |
676 | |
677 if (!info) | |
678 return; | |
679 | |
680 for (new_val = val; new_val; new_val = new_val->next) | |
681 { | |
682 next_new_val = new_val->next; | |
683 new_val->next = NULL; | |
684 found = False; | |
685 for (prev = NULL, cur = info->val; cur; prev = cur, cur = cur->next) | |
686 if (!strcmp (cur->name, new_val->name)) | |
687 { | |
688 found = True; | |
689 next = cur->next; | |
690 cur->next = NULL; | |
691 cur = merge_widget_value (cur, new_val, deep_p ? 1000 : 1); | |
692 if (prev) | |
693 prev->next = cur ? cur : next; | |
694 else | |
695 info->val = cur ? cur : next; | |
696 if (cur) | |
697 cur->next = next; | |
698 break; | |
699 } | |
700 if (!found) | |
701 { | |
702 /* Could not find it, add it */ | |
703 if (prev) | |
704 prev->next = copy_widget_value_tree (new_val, STRUCTURAL_CHANGE); | |
705 else | |
706 info->val = copy_widget_value_tree (new_val, STRUCTURAL_CHANGE); | |
707 } | |
708 new_val->next = next_new_val; | |
709 } | |
710 | |
711 update_all_widget_values (info, deep_p); | |
712 } | |
713 | |
714 | |
715 /* creating the widgets */ | |
716 | |
717 static void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
718 initialize_widget_instance (instance) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
719 widget_instance* instance; |
5626 | 720 { |
721 widget_value* val; | |
722 | |
723 for (val = instance->info->val; val; val = val->next) | |
724 val->change = STRUCTURAL_CHANGE; | |
725 | |
726 update_one_widget_instance (instance, True); | |
727 | |
728 for (val = instance->info->val; val; val = val->next) | |
729 val->change = NO_CHANGE; | |
730 } | |
731 | |
732 | |
733 static widget_creation_function | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
734 find_in_table (type, table) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
735 char* type; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
736 widget_creation_entry* table; |
5626 | 737 { |
738 widget_creation_entry* cur; | |
739 for (cur = table; cur->type; cur++) | |
5853 | 740 if (!my_strcasecmp (type, cur->type)) |
5626 | 741 return cur->function; |
742 return NULL; | |
743 } | |
744 | |
745 static Boolean | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
746 dialog_spec_p (name) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
747 char* name; |
5626 | 748 { |
749 /* return True if name matches [EILPQeilpq][1-9][Bb] or | |
750 [EILPQeilpq][1-9][Bb][Rr][1-9] */ | |
751 if (!name) | |
752 return False; | |
753 | |
754 switch (name [0]) | |
755 { | |
756 case 'E': case 'I': case 'L': case 'P': case 'Q': | |
757 case 'e': case 'i': case 'l': case 'p': case 'q': | |
758 if (name [1] >= '0' && name [1] <= '9') | |
759 { | |
760 if (name [2] != 'B' && name [2] != 'b') | |
761 return False; | |
762 if (!name [3]) | |
763 return True; | |
764 if ((name [3] == 'T' || name [3] == 't') && !name [4]) | |
765 return True; | |
766 if ((name [3] == 'R' || name [3] == 'r') | |
767 && name [4] >= '0' && name [4] <= '9' && !name [5]) | |
768 return True; | |
769 return False; | |
770 } | |
771 else | |
772 return False; | |
773 | |
774 default: | |
775 return False; | |
776 } | |
777 } | |
778 | |
779 static void | |
14163
2422ceecd9d2
(instantiate_widget_instance): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
12744
diff
changeset
|
780 instantiate_widget_instance (instance) |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
781 widget_instance* instance; |
5626 | 782 { |
783 widget_creation_function function = NULL; | |
784 | |
785 #if defined (USE_LUCID) | |
786 if (!function) | |
787 function = find_in_table (instance->info->type, xlw_creation_table); | |
788 #endif | |
789 #if defined(USE_MOTIF) | |
790 if (!function) | |
791 function = find_in_table (instance->info->type, xm_creation_table); | |
792 #endif | |
793 #if defined (USE_OLIT) | |
794 if (!function) | |
795 function = find_in_table (instance->info->type, xol_creation_table); | |
796 #endif | |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
797 #if defined (USE_XAW) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
798 if (!function) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
799 function = find_in_table (instance->info->type, xaw_creation_table); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
800 #endif |
5626 | 801 |
802 if (!function) | |
803 { | |
804 if (dialog_spec_p (instance->info->type)) | |
805 { | |
806 #if defined (USE_LUCID) | |
807 /* not yet */ | |
808 #endif | |
809 #if defined(USE_MOTIF) | |
810 if (!function) | |
811 function = xm_create_dialog; | |
812 #endif | |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
813 #if defined (USE_XAW) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
814 if (!function) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
815 function = xaw_create_dialog; |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
816 #endif |
5626 | 817 #if defined (USE_OLIT) |
818 /* not yet */ | |
819 #endif | |
820 } | |
821 } | |
822 | |
823 if (!function) | |
824 { | |
825 printf ("No creation function for widget type %s\n", | |
826 instance->info->type); | |
827 abort (); | |
828 } | |
829 | |
830 instance->widget = (*function) (instance); | |
831 | |
832 if (!instance->widget) | |
833 abort (); | |
834 | |
835 /* XtRealizeWidget (instance->widget);*/ | |
836 } | |
837 | |
838 void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
839 lw_register_widget (type, name, id, val, pre_activate_cb, selection_cb, post_activate_cb) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
840 char* type; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
841 char* name; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
842 LWLIB_ID id; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
843 widget_value* val; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
844 lw_callback pre_activate_cb; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
845 lw_callback selection_cb; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
846 lw_callback post_activate_cb; |
5626 | 847 { |
848 if (!get_widget_info (id, False)) | |
849 allocate_widget_info (type, name, id, val, pre_activate_cb, selection_cb, | |
850 post_activate_cb); | |
851 } | |
852 | |
853 Widget | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
854 lw_get_widget (id, parent, pop_up_p) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
855 LWLIB_ID id; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
856 Widget parent; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
857 Boolean pop_up_p; |
5626 | 858 { |
859 widget_instance* instance; | |
860 | |
861 instance = find_instance (id, parent, pop_up_p); | |
862 return instance ? instance->widget : NULL; | |
863 } | |
864 | |
865 Widget | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
866 lw_make_widget (id, parent, pop_up_p) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
867 LWLIB_ID id; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
868 Widget parent; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
869 Boolean pop_up_p; |
5626 | 870 { |
871 widget_instance* instance; | |
872 widget_info* info; | |
873 | |
874 instance = find_instance (id, parent, pop_up_p); | |
875 if (!instance) | |
876 { | |
877 info = get_widget_info (id, False); | |
878 if (!info) | |
879 return NULL; | |
880 instance = allocate_widget_instance (info, parent, pop_up_p); | |
881 initialize_widget_instance (instance); | |
882 } | |
883 if (!instance->widget) | |
884 abort (); | |
885 return instance->widget; | |
886 } | |
887 | |
888 Widget | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
889 lw_create_widget (type, name, id, val, parent, pop_up_p, pre_activate_cb, selection_cb, post_activate_cb) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
890 char* type; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
891 char* name; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
892 LWLIB_ID id; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
893 widget_value* val; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
894 Widget parent; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
895 Boolean pop_up_p; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
896 lw_callback pre_activate_cb; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
897 lw_callback selection_cb; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
898 lw_callback post_activate_cb; |
5626 | 899 { |
900 lw_register_widget (type, name, id, val, pre_activate_cb, selection_cb, | |
901 post_activate_cb); | |
902 return lw_make_widget (id, parent, pop_up_p); | |
903 } | |
904 | |
905 | |
906 /* destroying the widgets */ | |
907 static void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
908 destroy_one_instance (instance) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
909 widget_instance* instance; |
5626 | 910 { |
911 /* Remove the destroy callback on the widget; that callback will try to | |
912 dereference the instance object (to set its widget slot to 0, since the | |
913 widget is dead.) Since the instance is now dead, we don't have to worry | |
914 about the fact that its widget is dead too. | |
915 | |
916 This happens in the Phase2Destroy of the widget, so this callback would | |
917 not have been run until arbitrarily long after the instance was freed. | |
918 */ | |
919 if (instance->widget) | |
920 XtRemoveCallback (instance->widget, XtNdestroyCallback, | |
921 mark_widget_destroyed, (XtPointer)instance); | |
922 | |
923 if (instance->widget) | |
924 { | |
925 /* The else are pretty tricky here, including the empty statement | |
926 at the end because it would be very bad to destroy a widget | |
927 twice. */ | |
928 #if defined (USE_LUCID) | |
929 if (lw_lucid_widget_p (instance->widget)) | |
930 xlw_destroy_instance (instance); | |
931 else | |
932 #endif | |
933 #if defined (USE_MOTIF) | |
934 if (lw_motif_widget_p (instance->widget)) | |
935 xm_destroy_instance (instance); | |
936 else | |
937 #endif | |
938 #if defined (USE_OLIT) | |
939 if (lw_olit_widget_p (instance->widget)) | |
940 xol_destroy_instance (instance); | |
941 else | |
942 #endif | |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
943 #if defined (USE_XAW) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
944 if (lw_xaw_widget_p (instance->widget)) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
945 xaw_destroy_instance (instance); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
946 else |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
947 #endif |
5626 | 948 /* do not remove the empty statement */ |
949 ; | |
950 } | |
951 | |
952 free_widget_instance (instance); | |
953 } | |
954 | |
955 void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
956 lw_destroy_widget (w) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
957 Widget w; |
5626 | 958 { |
959 widget_instance* instance = get_widget_instance (w, True); | |
960 | |
961 if (instance) | |
962 { | |
963 widget_info *info = instance->info; | |
964 /* instance has already been removed from the list; free it */ | |
965 destroy_one_instance (instance); | |
966 /* if there are no instances left, free the info too */ | |
967 if (!info->instances) | |
968 lw_destroy_all_widgets (info->id); | |
969 } | |
970 } | |
971 | |
972 void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
973 lw_destroy_all_widgets (id) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
974 LWLIB_ID id; |
5626 | 975 { |
976 widget_info* info = get_widget_info (id, True); | |
977 widget_instance* instance; | |
978 widget_instance* next; | |
979 | |
980 if (info) | |
981 { | |
982 for (instance = info->instances; instance; ) | |
983 { | |
984 next = instance->next; | |
985 destroy_one_instance (instance); | |
986 instance = next; | |
987 } | |
988 free_widget_info (info); | |
989 } | |
990 } | |
991 | |
992 void | |
993 lw_destroy_everything () | |
994 { | |
995 while (all_widget_info) | |
996 lw_destroy_all_widgets (all_widget_info->id); | |
997 } | |
998 | |
999 void | |
1000 lw_destroy_all_pop_ups () | |
1001 { | |
1002 widget_info* info; | |
1003 widget_info* next; | |
1004 widget_instance* instance; | |
1005 | |
1006 for (info = all_widget_info; info; info = next) | |
1007 { | |
1008 next = info->next; | |
1009 instance = info->instances; | |
1010 if (instance && instance->pop_up_p) | |
1011 lw_destroy_all_widgets (info->id); | |
1012 } | |
1013 } | |
1014 | |
1015 #ifdef USE_MOTIF | |
11861 | 1016 extern Widget first_child (/* Widget */); /* garbage */ |
5626 | 1017 #endif |
1018 | |
1019 Widget | |
1020 lw_raise_all_pop_up_widgets () | |
1021 { | |
1022 widget_info* info; | |
1023 widget_instance* instance; | |
1024 Widget result = NULL; | |
1025 | |
1026 for (info = all_widget_info; info; info = info->next) | |
1027 for (instance = info->instances; instance; instance = instance->next) | |
1028 if (instance->pop_up_p) | |
1029 { | |
1030 Widget widget = instance->widget; | |
1031 if (widget) | |
1032 { | |
1033 if (XtIsManaged (widget) | |
1034 #ifdef USE_MOTIF | |
1035 /* What a complete load of crap!!!! | |
1036 When a dialogShell is on the screen, it is not managed! | |
1037 */ | |
1038 || (lw_motif_widget_p (instance->widget) && | |
1039 XtIsManaged (first_child (widget))) | |
1040 #endif | |
1041 ) | |
1042 { | |
1043 if (!result) | |
1044 result = widget; | |
1045 XMapRaised (XtDisplay (widget), XtWindow (widget)); | |
1046 } | |
1047 } | |
1048 } | |
1049 return result; | |
1050 } | |
1051 | |
1052 static void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1053 lw_pop_all_widgets (id, up) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1054 LWLIB_ID id; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1055 Boolean up; |
5626 | 1056 { |
1057 widget_info* info = get_widget_info (id, False); | |
1058 widget_instance* instance; | |
1059 | |
1060 if (info) | |
1061 for (instance = info->instances; instance; instance = instance->next) | |
1062 if (instance->pop_up_p && instance->widget) | |
1063 { | |
1064 #if defined (USE_LUCID) | |
1065 if (lw_lucid_widget_p (instance->widget)) | |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1066 { |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1067 XtRealizeWidget (instance->widget); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1068 xlw_pop_instance (instance, up); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1069 } |
5626 | 1070 #endif |
1071 #if defined (USE_MOTIF) | |
1072 if (lw_motif_widget_p (instance->widget)) | |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1073 { |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1074 XtRealizeWidget (instance->widget); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1075 xm_pop_instance (instance, up); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1076 } |
5626 | 1077 #endif |
1078 #if defined (USE_OLIT) | |
1079 if (lw_olit_widget_p (instance->widget)) | |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1080 { |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1081 XtRealizeWidget (instance->widget); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1082 xol_pop_instance (instance, up); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1083 } |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1084 #endif |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1085 #if defined (USE_XAW) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1086 if (lw_xaw_widget_p (instance->widget)) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1087 { |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1088 XtRealizeWidget (XtParent (instance->widget)); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1089 XtRealizeWidget (instance->widget); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1090 xaw_pop_instance (instance, up); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1091 } |
5626 | 1092 #endif |
1093 } | |
1094 } | |
1095 | |
1096 void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1097 lw_pop_up_all_widgets (id) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1098 LWLIB_ID id; |
5626 | 1099 { |
1100 lw_pop_all_widgets (id, True); | |
1101 } | |
1102 | |
1103 void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1104 lw_pop_down_all_widgets (id) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1105 LWLIB_ID id; |
5626 | 1106 { |
1107 lw_pop_all_widgets (id, False); | |
1108 } | |
1109 | |
1110 void | |
12744
0c5625e91a11
(lw_popup_menu): New arg event, passed along.
Richard M. Stallman <rms@gnu.org>
parents:
12187
diff
changeset
|
1111 lw_popup_menu (widget, event) |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1112 Widget widget; |
12744
0c5625e91a11
(lw_popup_menu): New arg event, passed along.
Richard M. Stallman <rms@gnu.org>
parents:
12187
diff
changeset
|
1113 XEvent *event; |
5626 | 1114 { |
1115 #if defined (USE_LUCID) | |
1116 if (lw_lucid_widget_p (widget)) | |
12744
0c5625e91a11
(lw_popup_menu): New arg event, passed along.
Richard M. Stallman <rms@gnu.org>
parents:
12187
diff
changeset
|
1117 xlw_popup_menu (widget, event); |
5626 | 1118 #endif |
1119 #if defined (USE_MOTIF) | |
1120 if (lw_motif_widget_p (widget)) | |
12744
0c5625e91a11
(lw_popup_menu): New arg event, passed along.
Richard M. Stallman <rms@gnu.org>
parents:
12187
diff
changeset
|
1121 xm_popup_menu (widget, event); |
5626 | 1122 #endif |
1123 #if defined (USE_OLIT) | |
1124 if (lw_olit_widget_p (widget)) | |
12744
0c5625e91a11
(lw_popup_menu): New arg event, passed along.
Richard M. Stallman <rms@gnu.org>
parents:
12187
diff
changeset
|
1125 xol_popup_menu (widget, event); |
5626 | 1126 #endif |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1127 #if defined (USE_XAW) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1128 if (lw_xaw_widget_p (widget)) |
12744
0c5625e91a11
(lw_popup_menu): New arg event, passed along.
Richard M. Stallman <rms@gnu.org>
parents:
12187
diff
changeset
|
1129 xaw_popup_menu (widget, event); |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1130 #endif |
5626 | 1131 } |
1132 | |
1133 /* get the values back */ | |
1134 static Boolean | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1135 get_one_value (instance, val) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1136 widget_instance* instance; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1137 widget_value* val; |
5626 | 1138 { |
1139 Widget widget = name_to_widget (instance, val->name); | |
1140 | |
1141 if (widget) | |
1142 { | |
1143 #if defined (USE_LUCID) | |
1144 if (lw_lucid_widget_p (instance->widget)) | |
1145 xlw_update_one_value (instance, widget, val); | |
1146 #endif | |
1147 #if defined (USE_MOTIF) | |
1148 if (lw_motif_widget_p (instance->widget)) | |
1149 xm_update_one_value (instance, widget, val); | |
1150 #endif | |
1151 #if defined (USE_OLIT) | |
1152 if (lw_olit_widget_p (instance->widget)) | |
1153 xol_update_one_value (instance, widget, val); | |
1154 #endif | |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1155 #if defined (USE_XAW) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1156 if (lw_xaw_widget_p (instance->widget)) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1157 xaw_update_one_value (instance, widget, val); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1158 #endif |
5626 | 1159 return True; |
1160 } | |
1161 else | |
1162 return False; | |
1163 } | |
1164 | |
1165 Boolean | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1166 lw_get_some_values (id, val_out) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1167 LWLIB_ID id; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1168 widget_value* val_out; |
5626 | 1169 { |
1170 widget_info* info = get_widget_info (id, False); | |
1171 widget_instance* instance; | |
1172 widget_value* val; | |
1173 Boolean result = False; | |
1174 | |
1175 if (!info) | |
1176 return False; | |
1177 | |
1178 instance = info->instances; | |
1179 if (!instance) | |
1180 return False; | |
1181 | |
1182 for (val = val_out; val; val = val->next) | |
1183 if (get_one_value (instance, val)) | |
1184 result = True; | |
1185 | |
1186 return result; | |
1187 } | |
1188 | |
1189 widget_value* | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1190 lw_get_all_values (id) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1191 LWLIB_ID id; |
5626 | 1192 { |
1193 widget_info* info = get_widget_info (id, False); | |
1194 widget_value* val = info->val; | |
1195 if (lw_get_some_values (id, val)) | |
1196 return val; | |
1197 else | |
1198 return NULL; | |
1199 } | |
1200 | |
1201 /* internal function used by the library dependent implementation to get the | |
1202 widget_value for a given widget in an instance */ | |
1203 widget_value* | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1204 lw_get_widget_value_for_widget (instance, w) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1205 widget_instance* instance; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1206 Widget w; |
5626 | 1207 { |
1208 char* name = XtName (w); | |
1209 widget_value* cur; | |
1210 for (cur = instance->info->val; cur; cur = cur->next) | |
1211 if (!strcmp (cur->name, name)) | |
1212 return cur; | |
1213 return NULL; | |
1214 } | |
1215 | |
1216 /* update other instances value when one thing changed */ | |
14594
37d38d8040a1
(lw_internal_update_other_instances): Move static var
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
1217 |
37d38d8040a1
(lw_internal_update_other_instances): Move static var
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
1218 /* To forbid recursive calls */ |
37d38d8040a1
(lw_internal_update_other_instances): Move static var
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
1219 static Boolean lwlib_updating; |
37d38d8040a1
(lw_internal_update_other_instances): Move static var
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
1220 |
5626 | 1221 /* This function can be used as a an XtCallback for the widgets that get |
1222 modified to update other instances of the widgets. Closure should be the | |
1223 widget_instance. */ | |
1224 void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1225 lw_internal_update_other_instances (widget, closure, call_data) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1226 Widget widget; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1227 XtPointer closure; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1228 XtPointer call_data; |
5626 | 1229 { |
1230 widget_instance* instance = (widget_instance*)closure; | |
1231 char* name = XtName (widget); | |
1232 widget_info* info; | |
1233 widget_instance* cur; | |
1234 widget_value* val; | |
1235 | |
14594
37d38d8040a1
(lw_internal_update_other_instances): Move static var
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
1236 /* Avoid possibly infinite recursion. */ |
37d38d8040a1
(lw_internal_update_other_instances): Move static var
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
1237 if (lwlib_updating) |
5626 | 1238 return; |
1239 | |
1240 /* protect against the widget being destroyed */ | |
1241 if (XtWidgetBeingDestroyedP (widget)) | |
1242 return; | |
1243 | |
1244 /* Return immediately if there are no other instances */ | |
1245 info = instance->info; | |
1246 if (!info->instances->next) | |
1247 return; | |
1248 | |
14594
37d38d8040a1
(lw_internal_update_other_instances): Move static var
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
1249 lwlib_updating = True; |
5626 | 1250 |
1251 for (val = info->val; val && strcmp (val->name, name); val = val->next); | |
1252 | |
1253 if (val && get_one_value (instance, val)) | |
1254 for (cur = info->instances; cur; cur = cur->next) | |
1255 if (cur != instance) | |
1256 set_one_value (cur, val, True); | |
1257 | |
14594
37d38d8040a1
(lw_internal_update_other_instances): Move static var
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
1258 lwlib_updating = False; |
5626 | 1259 } |
1260 | |
1261 | |
1262 /* get the id */ | |
1263 | |
1264 LWLIB_ID | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1265 lw_get_widget_id (w) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1266 Widget w; |
5626 | 1267 { |
1268 widget_instance* instance = get_widget_instance (w, False); | |
1269 | |
1270 return instance ? instance->info->id : 0; | |
1271 } | |
1272 | |
1273 /* set the keyboard focus */ | |
1274 void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1275 lw_set_keyboard_focus (parent, w) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1276 Widget parent; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1277 Widget w; |
5626 | 1278 { |
1279 #if defined (USE_MOTIF) | |
1280 xm_set_keyboard_focus (parent, w); | |
1281 #else | |
1282 XtSetKeyboardFocus (parent, w); | |
1283 #endif | |
1284 } | |
1285 | |
1286 /* Show busy */ | |
1287 static void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1288 show_one_widget_busy (w, flag) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1289 Widget w; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1290 Boolean flag; |
5626 | 1291 { |
1292 Pixel foreground = 0; | |
1293 Pixel background = 1; | |
1294 Widget widget_to_invert = XtNameToWidget (w, "*sheet"); | |
1295 if (!widget_to_invert) | |
1296 widget_to_invert = w; | |
1297 | |
1298 XtVaGetValues (widget_to_invert, | |
1299 XtNforeground, &foreground, | |
1300 XtNbackground, &background, | |
1301 0); | |
1302 XtVaSetValues (widget_to_invert, | |
1303 XtNforeground, background, | |
1304 XtNbackground, foreground, | |
1305 0); | |
1306 } | |
1307 | |
1308 void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1309 lw_show_busy (w, busy) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1310 Widget w; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1311 Boolean busy; |
5626 | 1312 { |
1313 widget_instance* instance = get_widget_instance (w, False); | |
1314 widget_info* info; | |
1315 widget_instance* next; | |
1316 | |
1317 if (instance) | |
1318 { | |
1319 info = instance->info; | |
1320 if (info->busy != busy) | |
1321 { | |
1322 for (next = info->instances; next; next = next->next) | |
1323 if (next->widget) | |
1324 show_one_widget_busy (next->widget, busy); | |
1325 info->busy = busy; | |
1326 } | |
1327 } | |
1328 } | |
8785 | 1329 |
1330 /* This hack exists because Lucid/Athena need to execute the strange | |
1331 function below to support geometry management. */ | |
1332 void | |
1333 lw_refigure_widget (w, doit) | |
1334 Widget w; | |
1335 Boolean doit; | |
1336 { | |
9929
72dc1c5b3939
(lw_refigure_widget): Use the macro USE_XAW rather than XAW.
Paul Reilly <pmr@pajato.com>
parents:
9226
diff
changeset
|
1337 #if defined (USE_XAW) |
8785 | 1338 XawPanedSetRefigureMode (w, doit); |
1339 #endif | |
1340 #if defined (USE_MOTIF) | |
1341 if (doit) | |
11714
b62d02709ec7
(lw_refigure_widget) [USE_MOTIF]: Fix backward if.
Richard M. Stallman <rms@gnu.org>
parents:
11676
diff
changeset
|
1342 XtManageChild (w); |
8785 | 1343 else |
11714
b62d02709ec7
(lw_refigure_widget) [USE_MOTIF]: Fix backward if.
Richard M. Stallman <rms@gnu.org>
parents:
11676
diff
changeset
|
1344 XtUnmanageChild (w); |
8785 | 1345 #endif |
1346 } | |
1347 | |
1348 /* Toolkit independent way of determining if an event window is in the | |
1349 menubar. */ | |
1350 Boolean | |
1351 lw_window_is_in_menubar (win, menubar_widget) | |
1352 Window win; | |
1353 Widget menubar_widget; | |
1354 { | |
1355 return menubar_widget | |
1356 #if defined (USE_LUCID) | |
1357 && XtWindow (menubar_widget) == win; | |
1358 #endif | |
1359 #if defined (USE_MOTIF) | |
14663
d9cafe0ebb7d
(lw_window_is_in_menubar) [USE_MOTIF]:
Richard M. Stallman <rms@gnu.org>
parents:
14611
diff
changeset
|
1360 && ((XtWindow (menubar_widget) == win) |
d9cafe0ebb7d
(lw_window_is_in_menubar) [USE_MOTIF]:
Richard M. Stallman <rms@gnu.org>
parents:
14611
diff
changeset
|
1361 || (XtWindowToWidget (XtDisplay (menubar_widget), win) |
d9cafe0ebb7d
(lw_window_is_in_menubar) [USE_MOTIF]:
Richard M. Stallman <rms@gnu.org>
parents:
14611
diff
changeset
|
1362 && (XtParent (XtWindowToWidget (XtDisplay (menubar_widget), win)) |
d9cafe0ebb7d
(lw_window_is_in_menubar) [USE_MOTIF]:
Richard M. Stallman <rms@gnu.org>
parents:
14611
diff
changeset
|
1363 == menubar_widget))); |
8785 | 1364 #endif |
1365 } | |
1366 | |
1367 /* Motif hack to set the main window areas. */ | |
1368 void | |
1369 lw_set_main_areas (parent, menubar, work_area) | |
1370 Widget parent; | |
1371 Widget menubar; | |
1372 Widget work_area; | |
1373 { | |
1374 #if defined (USE_MOTIF) | |
9093
f8546f467db6
(lw_set_main_areas): Move call to XmMainSetAreas() to `lwlib-Xm.c'.
Paul Reilly <pmr@pajato.com>
parents:
8785
diff
changeset
|
1375 xm_set_main_areas (parent, menubar, work_area); |
8785 | 1376 #endif |
1377 } | |
1378 | |
1379 /* Manage resizing for Motif. This disables resizing when the menubar | |
1380 is about to be modified. */ | |
1381 void | |
1382 lw_allow_resizing (w, flag) | |
1383 Widget w; | |
1384 Boolean flag; | |
1385 { | |
1386 #if defined (USE_MOTIF) | |
9226
fc3f748ccf9e
(lw_set_main_areas): Use xm_set_main_areas().
Paul Reilly <pmr@pajato.com>
parents:
9093
diff
changeset
|
1387 xm_manage_resizing (w, flag); |
8785 | 1388 #endif |
1389 } |