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