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