1 /* A general interface to the widgets of different toolkits.
2 Copyright (C) 1992, 1993 Lucid, Inc.
3 Copyright (C) 1994-1996, 1999-2011 Free Software Foundation, Inc.
5 This file is part of the Lucid Widget Library.
7 The Lucid Widget Library is free software; you can redistribute it and/or
8 modify it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 The Lucid Widget Library is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 Boston, MA 02110-1301, USA. */
27 #include "../src/lisp.h"
29 #include <sys/types.h>
32 #include "lwlib-int.h"
33 #include "lwlib-utils.h"
34 #include <X11/StringDefs.h>
36 #if defined (USE_LUCID)
37 #include "lwlib-Xlw.h"
39 #if defined (USE_MOTIF)
41 #else /* not USE_MOTIF */
42 #if defined (USE_LUCID)
44 #endif /* not USE_MOTIF && USE_LUCID */
48 #include <X11/Xaw3d/Paned.h>
49 #else /* !HAVE_XAW3D */
50 #include <X11/Xaw/Paned.h>
51 #endif /* HAVE_XAW3D */
52 #include "lwlib-Xaw.h"
55 #if !defined (USE_LUCID) && !defined (USE_MOTIF)
56 #error At least one of USE_LUCID or USE_MOTIF must be defined.
60 #define max(x, y) ((x) > (y) ? (x) : (y))
63 /* List of all widgets managed by the library. */
65 all_widget_info
= NULL
;
68 const char *lwlib_toolkit_type
= "motif";
70 const char *lwlib_toolkit_type
= "lucid";
73 static widget_value
*merge_widget_value (widget_value
*,
76 static void instantiate_widget_instance (widget_instance
*);
77 static int my_strcasecmp (const char *, const char *);
78 static void safe_free_str (char *);
79 static void free_widget_value_tree (widget_value
*);
80 static widget_value
*copy_widget_value_tree (widget_value
*,
82 static widget_info
*allocate_widget_info (const char *, const char *, LWLIB_ID
,
84 lw_callback
, lw_callback
,
85 lw_callback
, lw_callback
);
86 static void free_widget_info (widget_info
*);
87 static void mark_widget_destroyed (Widget
, XtPointer
, XtPointer
);
88 static widget_instance
*allocate_widget_instance (widget_info
*,
90 static void free_widget_instance (widget_instance
*);
91 static widget_info
*get_widget_info (LWLIB_ID
, Boolean
);
92 static widget_instance
*get_widget_instance (Widget
, Boolean
);
93 static widget_instance
*find_instance (LWLIB_ID
, Widget
, Boolean
);
94 static Boolean
safe_strcmp (const char *, const char *);
95 static Widget
name_to_widget (widget_instance
*, const char *);
96 static void set_one_value (widget_instance
*, widget_value
*, Boolean
);
97 static void update_one_widget_instance (widget_instance
*, Boolean
);
98 static void update_all_widget_values (widget_info
*, Boolean
);
99 static void initialize_widget_instance (widget_instance
*);
100 static widget_creation_function
find_in_table (const char *, const widget_creation_entry
*);
101 static Boolean
dialog_spec_p (const char *);
102 static void destroy_one_instance (widget_instance
*);
103 static void lw_pop_all_widgets (LWLIB_ID
, Boolean
);
104 static Boolean
get_one_value (widget_instance
*, widget_value
*);
105 static void show_one_widget_busy (Widget
, Boolean
);
106 \f/* utility functions for widget_instance and widget_info */
108 safe_strdup (const char *s
)
112 result
= (char *) malloc (strlen (s
) + 1);
119 /* Like strcmp but ignore differences in case. */
122 my_strcasecmp (const char *s1
, const char *s2
)
133 return (c1
> c2
? 1 : -1);
140 safe_free_str (char *s
)
145 static widget_value
*widget_value_free_list
= 0;
146 static int malloc_cpt
= 0;
149 malloc_widget_value (void)
152 if (widget_value_free_list
)
154 wv
= widget_value_free_list
;
155 widget_value_free_list
= wv
->free_list
;
160 wv
= (widget_value
*) malloc (sizeof (widget_value
));
163 memset ((void*) wv
, 0, sizeof (widget_value
));
167 /* this is analogous to free(). It frees only what was allocated
168 by malloc_widget_value(), and no substructures.
171 free_widget_value (widget_value
*wv
)
178 /* When the number of already allocated cells is too big,
185 wv
->free_list
= widget_value_free_list
;
186 widget_value_free_list
= wv
;
191 free_widget_value_tree (widget_value
*wv
)
200 wv
->name
= wv
->value
= wv
->key
= (char *) 0xDEADBEEF;
202 if (wv
->toolkit_data
&& wv
->free_toolkit_data
)
204 XtFree (wv
->toolkit_data
);
205 wv
->toolkit_data
= (void *) 0xDEADBEEF;
208 if (wv
->contents
&& (wv
->contents
!= (widget_value
*)1))
210 free_widget_value_tree (wv
->contents
);
211 wv
->contents
= (widget_value
*) 0xDEADBEEF;
215 free_widget_value_tree (wv
->next
);
216 wv
->next
= (widget_value
*) 0xDEADBEEF;
218 free_widget_value (wv
);
221 static widget_value
*
222 copy_widget_value_tree (widget_value
*val
, change_type change
)
228 if (val
== (widget_value
*) 1)
231 copy
= malloc_widget_value ();
232 copy
->name
= safe_strdup (val
->name
);
233 copy
->value
= safe_strdup (val
->value
);
234 copy
->key
= safe_strdup (val
->key
);
235 copy
->help
= val
->help
;
236 copy
->enabled
= val
->enabled
;
237 copy
->button_type
= val
->button_type
;
238 copy
->selected
= val
->selected
;
239 copy
->edited
= False
;
240 copy
->change
= change
;
241 copy
->this_one_change
= change
;
242 copy
->contents
= copy_widget_value_tree (val
->contents
, change
);
243 copy
->call_data
= val
->call_data
;
244 copy
->next
= copy_widget_value_tree (val
->next
, change
);
245 copy
->toolkit_data
= NULL
;
246 copy
->free_toolkit_data
= False
;
251 allocate_widget_info (const char* type
,
255 lw_callback pre_activate_cb
,
256 lw_callback selection_cb
,
257 lw_callback post_activate_cb
,
258 lw_callback highlight_cb
)
260 widget_info
* info
= (widget_info
*)malloc (sizeof (widget_info
));
261 info
->type
= safe_strdup (type
);
262 info
->name
= safe_strdup (name
);
264 info
->val
= copy_widget_value_tree (val
, STRUCTURAL_CHANGE
);
266 info
->pre_activate_cb
= pre_activate_cb
;
267 info
->selection_cb
= selection_cb
;
268 info
->post_activate_cb
= post_activate_cb
;
269 info
->highlight_cb
= highlight_cb
;
270 info
->instances
= NULL
;
272 info
->next
= all_widget_info
;
273 all_widget_info
= info
;
279 free_widget_info (widget_info
*info
)
281 safe_free_str (info
->type
);
282 safe_free_str (info
->name
);
283 free_widget_value_tree (info
->val
);
284 memset ((void*)info
, 0xDEADBEEF, sizeof (widget_info
));
289 mark_widget_destroyed (Widget widget
, XtPointer closure
, XtPointer call_data
)
291 widget_instance
* instance
= (widget_instance
*)closure
;
293 /* be very conservative */
294 if (instance
->widget
== widget
)
295 instance
->widget
= NULL
;
298 static widget_instance
*
299 allocate_widget_instance (widget_info
* info
, Widget parent
, Boolean pop_up_p
)
301 widget_instance
* instance
=
302 (widget_instance
*)malloc (sizeof (widget_instance
));
303 memset (instance
, 0, sizeof *instance
);
304 instance
->parent
= parent
;
305 instance
->pop_up_p
= pop_up_p
;
306 instance
->info
= info
;
307 instance
->next
= info
->instances
;
308 info
->instances
= instance
;
310 instantiate_widget_instance (instance
);
312 XtAddCallback (instance
->widget
, XtNdestroyCallback
,
313 mark_widget_destroyed
, (XtPointer
)instance
);
318 free_widget_instance (widget_instance
*instance
)
320 memset ((void*)instance
, 0xDEADBEEF, sizeof (widget_instance
));
325 get_widget_info (LWLIB_ID id
, Boolean remove_p
)
329 for (prev
= NULL
, info
= all_widget_info
;
331 prev
= info
, info
= info
->next
)
337 prev
->next
= info
->next
;
339 all_widget_info
= info
->next
;
346 /* Internal function used by the library dependent implementation to get the
347 widget_value for a given widget in an instance */
349 lw_get_widget_info (LWLIB_ID id
)
351 return get_widget_info (id
, 0);
354 static widget_instance
*
355 get_widget_instance (Widget widget
, Boolean remove_p
)
358 widget_instance
* instance
;
359 widget_instance
* prev
;
360 for (info
= all_widget_info
; info
; info
= info
->next
)
361 for (prev
= NULL
, instance
= info
->instances
;
363 prev
= instance
, instance
= instance
->next
)
364 if (instance
->widget
== widget
)
369 prev
->next
= instance
->next
;
371 info
->instances
= instance
->next
;
375 return (widget_instance
*) 0;
378 /* Value is a pointer to the widget_instance corresponding to
379 WIDGET, or null if WIDGET is not a lwlib widget. */
382 lw_get_widget_instance (Widget widget
)
384 return get_widget_instance (widget
, False
);
387 static widget_instance
*
388 find_instance (LWLIB_ID id
, Widget parent
, Boolean pop_up_p
)
390 widget_info
* info
= get_widget_info (id
, False
);
391 widget_instance
* instance
;
394 for (instance
= info
->instances
; instance
; instance
= instance
->next
)
395 if (instance
->parent
== parent
&& instance
->pop_up_p
== pop_up_p
)
402 /* utility function for widget_value */
404 safe_strcmp (const char *s1
, const char *s2
)
406 if (!!s1
^ !!s2
) return True
;
407 return (s1
&& s2
) ? strcmp (s1
, s2
) : s1
? False
: !!s2
;
412 # define EXPLAIN(name, oc, nc, desc, a1, a2) \
413 printf ("Change: \"%s\"\tmax(%s=%d,%s=%d)\t%s %d %d\n", \
415 (oc == NO_CHANGE ? "none" : \
416 (oc == INVISIBLE_CHANGE ? "invisible" : \
417 (oc == VISIBLE_CHANGE ? "visible" : \
418 (oc == STRUCTURAL_CHANGE ? "structural" : "???")))), \
420 (nc == NO_CHANGE ? "none" : \
421 (nc == INVISIBLE_CHANGE ? "invisible" : \
422 (nc == VISIBLE_CHANGE ? "visible" : \
423 (nc == STRUCTURAL_CHANGE ? "structural" : "???")))), \
426 # define EXPLAIN(name, oc, nc, desc, a1, a2)
430 static widget_value
*
431 merge_widget_value (widget_value
*val1
,
436 change_type change
, this_one_change
;
437 widget_value
* merged_next
;
438 widget_value
* merged_contents
;
445 return copy_widget_value_tree (val2
, STRUCTURAL_CHANGE
);
453 free_widget_value_tree (val1
);
459 if (safe_strcmp (val1
->name
, val2
->name
))
461 EXPLAIN (val1
->name
, change
, STRUCTURAL_CHANGE
, "name change",
462 val1
->name
, val2
->name
);
463 change
= max (change
, STRUCTURAL_CHANGE
);
464 safe_free_str (val1
->name
);
465 val1
->name
= safe_strdup (val2
->name
);
467 if (safe_strcmp (val1
->value
, val2
->value
))
469 EXPLAIN (val1
->name
, change
, VISIBLE_CHANGE
, "value change",
470 val1
->value
, val2
->value
);
471 change
= max (change
, VISIBLE_CHANGE
);
472 safe_free_str (val1
->value
);
473 val1
->value
= safe_strdup (val2
->value
);
475 if (safe_strcmp (val1
->key
, val2
->key
))
477 EXPLAIN (val1
->name
, change
, VISIBLE_CHANGE
, "key change",
478 val1
->key
, val2
->key
);
479 change
= max (change
, VISIBLE_CHANGE
);
480 safe_free_str (val1
->key
);
481 val1
->key
= safe_strdup (val2
->key
);
483 if (! EQ (val1
->help
, val2
->help
))
485 EXPLAIN (val1
->name
, change
, VISIBLE_CHANGE
, "help change",
486 val1
->help
, val2
->help
);
487 change
= max (change
, VISIBLE_CHANGE
);
488 val1
->help
= val2
->help
;
490 if (val1
->enabled
!= val2
->enabled
)
492 EXPLAIN (val1
->name
, change
, VISIBLE_CHANGE
, "enablement change",
493 val1
->enabled
, val2
->enabled
);
494 change
= max (change
, VISIBLE_CHANGE
);
495 val1
->enabled
= val2
->enabled
;
497 if (val1
->button_type
!= val2
->button_type
)
499 EXPLAIN (val1
->name
, change
, VISIBLE_CHANGE
, "button type change",
500 val1
->button_type
, val2
->button_type
);
501 change
= max (change
, VISIBLE_CHANGE
);
502 val1
->button_type
= val2
->button_type
;
504 if (val1
->selected
!= val2
->selected
)
506 EXPLAIN (val1
->name
, change
, VISIBLE_CHANGE
, "selection change",
507 val1
->selected
, val2
->selected
);
508 change
= max (change
, VISIBLE_CHANGE
);
509 val1
->selected
= val2
->selected
;
511 if (val1
->call_data
!= val2
->call_data
)
513 EXPLAIN (val1
->name
, change
, INVISIBLE_CHANGE
, "call-data change",
514 val1
->call_data
, val2
->call_data
);
515 change
= max (change
, INVISIBLE_CHANGE
);
516 val1
->call_data
= val2
->call_data
;
522 merge_widget_value (val1
->contents
, val2
->contents
, level
- 1,
525 if (val1
->contents
&& !merged_contents
)
527 /* This used to say INVISIBLE_CHANGE,
528 but it is visible and vitally important when
529 the contents of the menu bar itself are entirely deleted.
531 But maybe it doesn't matter. This fails to fix the bug. */
532 EXPLAIN (val1
->name
, change
, STRUCTURAL_CHANGE
, "(contents gone)",
534 change
= max (change
, STRUCTURAL_CHANGE
);
536 else if (merged_contents
&& merged_contents
->change
!= NO_CHANGE
)
538 EXPLAIN (val1
->name
, change
, INVISIBLE_CHANGE
, "(contents change)",
540 change
= max (change
, INVISIBLE_CHANGE
);
541 #if 0 /* This was replaced by the August 9 1996 change in lwlib-Xm.c. */
543 change
= max (merged_contents
->change
, change
);
548 val1
->contents
= merged_contents
;
551 this_one_change
= change
;
553 merged_next
= merge_widget_value (val1
->next
, val2
->next
, level
, change_p
);
555 if (val1
->next
&& !merged_next
)
557 EXPLAIN (val1
->name
, change
, STRUCTURAL_CHANGE
, "(following gone)",
559 change
= max (change
, STRUCTURAL_CHANGE
);
561 else if (merged_next
)
563 if (merged_next
->change
)
564 EXPLAIN (val1
->name
, change
, merged_next
->change
, "(following change)",
566 change
= max (change
, merged_next
->change
);
569 val1
->next
= merged_next
;
571 val1
->this_one_change
= this_one_change
;
572 val1
->change
= change
;
574 if (change
> NO_CHANGE
&& val1
->toolkit_data
)
577 if (val1
->free_toolkit_data
)
578 XtFree (val1
->toolkit_data
);
579 val1
->toolkit_data
= NULL
;
586 /* modifying the widgets */
588 name_to_widget (widget_instance
*instance
, const char *name
)
590 Widget widget
= NULL
;
592 if (!instance
->widget
)
595 if (!strcmp (XtName (instance
->widget
), name
))
596 widget
= instance
->widget
;
599 int length
= strlen (name
) + 2;
600 char* real_name
= (char *) xmalloc (length
);
602 strcpy (real_name
+ 1, name
);
604 widget
= XtNameToWidget (instance
->widget
, real_name
);
612 set_one_value (widget_instance
* instance
, widget_value
* val
, Boolean deep_p
)
614 Widget widget
= name_to_widget (instance
, val
->name
);
618 #if defined (USE_LUCID)
619 if (lw_lucid_widget_p (instance
->widget
))
620 xlw_update_one_widget (instance
, widget
, val
, deep_p
);
622 #if defined (USE_MOTIF)
623 if (lw_motif_widget_p (instance
->widget
))
624 xm_update_one_widget (instance
, widget
, val
, deep_p
);
626 #if defined (USE_XAW)
627 if (lw_xaw_widget_p (instance
->widget
))
628 xaw_update_one_widget (instance
, widget
, val
, deep_p
);
634 update_one_widget_instance (widget_instance
* instance
, Boolean deep_p
)
638 if (!instance
->widget
)
639 /* the widget was destroyed */
642 for (val
= instance
->info
->val
; val
; val
= val
->next
)
643 if (val
->change
!= NO_CHANGE
)
644 set_one_value (instance
, val
, deep_p
);
648 update_all_widget_values (widget_info
* info
, Boolean deep_p
)
650 widget_instance
* instance
;
653 for (instance
= info
->instances
; instance
; instance
= instance
->next
)
654 update_one_widget_instance (instance
, deep_p
);
656 for (val
= info
->val
; val
; val
= val
->next
)
657 val
->change
= NO_CHANGE
;
661 lw_modify_all_widgets (LWLIB_ID id
, widget_value
* val
, Boolean deep_p
)
663 widget_info
* info
= get_widget_info (id
, False
);
664 widget_value
* new_val
;
665 widget_value
* next_new_val
;
675 for (new_val
= val
; new_val
; new_val
= new_val
->next
)
677 next_new_val
= new_val
->next
;
678 new_val
->next
= NULL
;
680 for (prev
= NULL
, cur
= info
->val
; cur
; prev
= cur
, cur
= cur
->next
)
681 if (!strcmp (cur
->name
, new_val
->name
))
686 cur
= merge_widget_value (cur
, new_val
, deep_p
? 1000 : 1,
689 prev
->next
= cur
? cur
: next
;
691 info
->val
= cur
? cur
: next
;
698 /* Could not find it, add it */
700 prev
->next
= copy_widget_value_tree (new_val
, STRUCTURAL_CHANGE
);
702 info
->val
= copy_widget_value_tree (new_val
, STRUCTURAL_CHANGE
);
705 new_val
->next
= next_new_val
;
708 update_all_widget_values (info
, deep_p
);
713 /* creating the widgets */
716 initialize_widget_instance (widget_instance
*instance
)
720 for (val
= instance
->info
->val
; val
; val
= val
->next
)
721 val
->change
= STRUCTURAL_CHANGE
;
723 update_one_widget_instance (instance
, True
);
725 for (val
= instance
->info
->val
; val
; val
= val
->next
)
726 val
->change
= NO_CHANGE
;
730 static widget_creation_function
731 find_in_table (const char *type
, const widget_creation_entry
*table
)
733 const widget_creation_entry
* cur
;
734 for (cur
= table
; cur
->type
; cur
++)
735 if (!my_strcasecmp (type
, cur
->type
))
736 return cur
->function
;
741 dialog_spec_p (const char *name
)
743 /* return True if name matches [EILPQeilpq][1-9][Bb] or
744 [EILPQeilpq][1-9][Bb][Rr][1-9] */
750 case 'E': case 'I': case 'L': case 'P': case 'Q':
751 case 'e': case 'i': case 'l': case 'p': case 'q':
752 if (name
[1] >= '0' && name
[1] <= '9')
754 if (name
[2] != 'B' && name
[2] != 'b')
758 if ((name
[3] == 'T' || name
[3] == 't') && !name
[4])
760 if ((name
[3] == 'R' || name
[3] == 'r')
761 && name
[4] >= '0' && name
[4] <= '9' && !name
[5])
774 instantiate_widget_instance (widget_instance
*instance
)
776 widget_creation_function function
= NULL
;
778 #if defined (USE_LUCID)
780 function
= find_in_table (instance
->info
->type
, xlw_creation_table
);
782 #if defined(USE_MOTIF)
784 function
= find_in_table (instance
->info
->type
, xm_creation_table
);
786 #if defined (USE_XAW)
788 function
= find_in_table (instance
->info
->type
, xaw_creation_table
);
793 if (dialog_spec_p (instance
->info
->type
))
795 #if defined (USE_LUCID)
798 #if defined(USE_MOTIF)
800 function
= xm_create_dialog
;
802 #if defined (USE_XAW)
804 function
= xaw_create_dialog
;
811 printf ("No creation function for widget type %s\n",
812 instance
->info
->type
);
816 instance
->widget
= (*function
) (instance
);
818 if (!instance
->widget
)
821 /* XtRealizeWidget (instance->widget);*/
825 lw_register_widget (const char* type
,
829 lw_callback pre_activate_cb
,
830 lw_callback selection_cb
,
831 lw_callback post_activate_cb
,
832 lw_callback highlight_cb
)
834 if (!get_widget_info (id
, False
))
835 allocate_widget_info (type
, name
, id
, val
, pre_activate_cb
, selection_cb
,
836 post_activate_cb
, highlight_cb
);
840 lw_get_widget (LWLIB_ID id
, Widget parent
, Boolean pop_up_p
)
842 widget_instance
* instance
;
844 instance
= find_instance (id
, parent
, pop_up_p
);
845 return instance
? instance
->widget
: NULL
;
849 lw_make_widget (LWLIB_ID id
, Widget parent
, Boolean pop_up_p
)
851 widget_instance
* instance
;
854 instance
= find_instance (id
, parent
, pop_up_p
);
857 info
= get_widget_info (id
, False
);
860 instance
= allocate_widget_instance (info
, parent
, pop_up_p
);
861 initialize_widget_instance (instance
);
863 if (!instance
->widget
)
865 return instance
->widget
;
869 lw_create_widget (const char* type
, const char* name
, LWLIB_ID id
, widget_value
* val
,
870 Widget parent
, Boolean pop_up_p
,
871 lw_callback pre_activate_cb
, lw_callback selection_cb
,
872 lw_callback post_activate_cb
, lw_callback highlight_cb
)
874 lw_register_widget (type
, name
, id
, val
, pre_activate_cb
, selection_cb
,
875 post_activate_cb
, highlight_cb
);
876 return lw_make_widget (id
, parent
, pop_up_p
);
880 /* destroying the widgets */
882 destroy_one_instance (widget_instance
*instance
)
884 /* Remove the destroy callback on the widget; that callback will try to
885 dereference the instance object (to set its widget slot to 0, since the
886 widget is dead.) Since the instance is now dead, we don't have to worry
887 about the fact that its widget is dead too.
889 This happens in the Phase2Destroy of the widget, so this callback would
890 not have been run until arbitrarily long after the instance was freed.
892 if (instance
->widget
)
893 XtRemoveCallback (instance
->widget
, XtNdestroyCallback
,
894 mark_widget_destroyed
, (XtPointer
)instance
);
896 if (instance
->widget
)
898 /* The else are pretty tricky here, including the empty statement
899 at the end because it would be very bad to destroy a widget
901 #if defined (USE_LUCID)
902 if (lw_lucid_widget_p (instance
->widget
))
903 xlw_destroy_instance (instance
);
906 #if defined (USE_MOTIF)
907 if (lw_motif_widget_p (instance
->widget
))
908 xm_destroy_instance (instance
);
911 #if defined (USE_XAW)
912 if (lw_xaw_widget_p (instance
->widget
))
913 xaw_destroy_instance (instance
);
916 /* do not remove the empty statement */
920 free_widget_instance (instance
);
924 lw_destroy_widget (Widget w
)
926 widget_instance
* instance
= get_widget_instance (w
, True
);
930 widget_info
*info
= instance
->info
;
931 /* instance has already been removed from the list; free it */
932 destroy_one_instance (instance
);
933 /* if there are no instances left, free the info too */
934 if (!info
->instances
)
935 lw_destroy_all_widgets (info
->id
);
940 lw_destroy_all_widgets (LWLIB_ID id
)
942 widget_info
* info
= get_widget_info (id
, True
);
943 widget_instance
* instance
;
944 widget_instance
* next
;
948 for (instance
= info
->instances
; instance
; )
950 next
= instance
->next
;
951 destroy_one_instance (instance
);
954 free_widget_info (info
);
959 lw_destroy_everything (void)
961 while (all_widget_info
)
962 lw_destroy_all_widgets (all_widget_info
->id
);
966 lw_destroy_all_pop_ups (void)
970 widget_instance
* instance
;
972 for (info
= all_widget_info
; info
; info
= next
)
975 instance
= info
->instances
;
976 if (instance
&& instance
->pop_up_p
)
977 lw_destroy_all_widgets (info
->id
);
982 extern Widget
first_child (/* Widget */); /* garbage */
986 lw_raise_all_pop_up_widgets (void)
989 widget_instance
* instance
;
990 Widget result
= NULL
;
992 for (info
= all_widget_info
; info
; info
= info
->next
)
993 for (instance
= info
->instances
; instance
; instance
= instance
->next
)
994 if (instance
->pop_up_p
)
996 Widget widget
= instance
->widget
;
999 if (XtIsManaged (widget
)
1001 /* What a complete load of crap!!!!
1002 When a dialogShell is on the screen, it is not managed!
1004 || (lw_motif_widget_p (instance
->widget
) &&
1005 XtIsManaged (first_child (widget
)))
1011 XMapRaised (XtDisplay (widget
), XtWindow (widget
));
1019 lw_pop_all_widgets (LWLIB_ID id
, Boolean up
)
1021 widget_info
* info
= get_widget_info (id
, False
);
1022 widget_instance
* instance
;
1025 for (instance
= info
->instances
; instance
; instance
= instance
->next
)
1026 if (instance
->pop_up_p
&& instance
->widget
)
1028 #if defined (USE_LUCID)
1029 if (lw_lucid_widget_p (instance
->widget
))
1031 XtRealizeWidget (instance
->widget
);
1032 xlw_pop_instance (instance
, up
);
1035 #if defined (USE_MOTIF)
1036 if (lw_motif_widget_p (instance
->widget
))
1038 XtRealizeWidget (instance
->widget
);
1039 xm_pop_instance (instance
, up
);
1042 #if defined (USE_XAW)
1043 if (lw_xaw_widget_p (instance
->widget
))
1045 XtRealizeWidget (XtParent (instance
->widget
));
1046 XtRealizeWidget (instance
->widget
);
1047 xaw_pop_instance (instance
, up
);
1054 lw_pop_up_all_widgets (LWLIB_ID id
)
1056 lw_pop_all_widgets (id
, True
);
1060 lw_pop_down_all_widgets (LWLIB_ID id
)
1062 lw_pop_all_widgets (id
, False
);
1066 lw_popup_menu (Widget widget
, XEvent
*event
)
1068 #if defined (USE_LUCID)
1069 if (lw_lucid_widget_p (widget
))
1070 xlw_popup_menu (widget
, event
);
1072 #if defined (USE_MOTIF)
1073 if (lw_motif_widget_p (widget
))
1074 xm_popup_menu (widget
, event
);
1076 #if defined (USE_XAW)
1077 if (lw_xaw_widget_p (widget
))
1078 xaw_popup_menu (widget
, event
);
1082 \f/* get the values back */
1084 get_one_value (widget_instance
*instance
, widget_value
*val
)
1086 Widget widget
= name_to_widget (instance
, val
->name
);
1090 #if defined (USE_LUCID)
1091 if (lw_lucid_widget_p (instance
->widget
))
1092 xlw_update_one_value (instance
, widget
, val
);
1094 #if defined (USE_MOTIF)
1095 if (lw_motif_widget_p (instance
->widget
))
1096 xm_update_one_value (instance
, widget
, val
);
1098 #if defined (USE_XAW)
1099 if (lw_xaw_widget_p (instance
->widget
))
1100 xaw_update_one_value (instance
, widget
, val
);
1109 lw_get_some_values (LWLIB_ID id
, widget_value
*val_out
)
1111 widget_info
* info
= get_widget_info (id
, False
);
1112 widget_instance
* instance
;
1114 Boolean result
= False
;
1119 instance
= info
->instances
;
1123 for (val
= val_out
; val
; val
= val
->next
)
1124 if (get_one_value (instance
, val
))
1131 lw_get_all_values (LWLIB_ID id
)
1133 widget_info
* info
= get_widget_info (id
, False
);
1134 widget_value
* val
= info
->val
;
1135 if (lw_get_some_values (id
, val
))
1141 /* internal function used by the library dependent implementation to get the
1142 widget_value for a given widget in an instance */
1144 lw_get_widget_value_for_widget (widget_instance
*instance
, Widget w
)
1146 char* name
= XtName (w
);
1148 for (cur
= instance
->info
->val
; cur
; cur
= cur
->next
)
1149 if (!strcmp (cur
->name
, name
))
1154 \f/* update other instances value when one thing changed */
1156 /* To forbid recursive calls */
1157 static Boolean lwlib_updating
;
1159 /* This function can be used as a an XtCallback for the widgets that get
1160 modified to update other instances of the widgets. Closure should be the
1163 lw_internal_update_other_instances (Widget widget
,
1165 XtPointer call_data
)
1167 widget_instance
* instance
= (widget_instance
*)closure
;
1168 char* name
= XtName (widget
);
1170 widget_instance
* cur
;
1173 /* Avoid possibly infinite recursion. */
1177 /* protect against the widget being destroyed */
1178 if (XtWidgetBeingDestroyedP (widget
))
1181 /* Return immediately if there are no other instances */
1182 info
= instance
->info
;
1183 if (!info
->instances
->next
)
1186 lwlib_updating
= True
;
1188 for (val
= info
->val
; val
&& strcmp (val
->name
, name
); val
= val
->next
);
1190 if (val
&& get_one_value (instance
, val
))
1191 for (cur
= info
->instances
; cur
; cur
= cur
->next
)
1192 if (cur
!= instance
)
1193 set_one_value (cur
, val
, True
);
1195 lwlib_updating
= False
;
1202 lw_get_widget_id (Widget w
)
1204 widget_instance
* instance
= get_widget_instance (w
, False
);
1206 return instance
? instance
->info
->id
: 0;
1209 \f/* set the keyboard focus */
1211 lw_set_keyboard_focus (Widget parent
, Widget w
)
1213 #if defined (USE_MOTIF)
1214 xm_set_keyboard_focus (parent
, w
);
1216 XtSetKeyboardFocus (parent
, w
);
1222 show_one_widget_busy (Widget w
, Boolean flag
)
1224 Pixel foreground
= 0;
1225 Pixel background
= 1;
1226 Widget widget_to_invert
= XtNameToWidget (w
, "*sheet");
1227 if (!widget_to_invert
)
1228 widget_to_invert
= w
;
1230 XtVaGetValues (widget_to_invert
,
1231 XtNforeground
, &foreground
,
1232 XtNbackground
, &background
,
1234 XtVaSetValues (widget_to_invert
,
1235 XtNforeground
, background
,
1236 XtNbackground
, foreground
,
1241 lw_show_busy (Widget w
, Boolean busy
)
1243 widget_instance
* instance
= get_widget_instance (w
, False
);
1245 widget_instance
* next
;
1249 info
= instance
->info
;
1250 if (info
->busy
!= busy
)
1252 for (next
= info
->instances
; next
; next
= next
->next
)
1254 show_one_widget_busy (next
->widget
, busy
);
1260 /* This hack exists because Lucid/Athena need to execute the strange
1261 function below to support geometry management. */
1263 lw_refigure_widget (Widget w
, Boolean doit
)
1265 #if defined (USE_XAW)
1266 XawPanedSetRefigureMode (w
, doit
);
1268 #if defined (USE_MOTIF)
1272 XtUnmanageChild (w
);
1276 /* Toolkit independent way of determining if an event window is in the
1279 lw_window_is_in_menubar (Window win
, Widget menubar_widget
)
1281 return menubar_widget
1282 #if defined (USE_LUCID)
1283 && XtWindow (menubar_widget
) == win
;
1285 #if defined (USE_MOTIF)
1286 && ((XtWindow (menubar_widget
) == win
)
1287 || (XtWindowToWidget (XtDisplay (menubar_widget
), win
)
1288 && (XtParent (XtWindowToWidget (XtDisplay (menubar_widget
), win
))
1289 == menubar_widget
)));
1293 /* Motif hack to set the main window areas. */
1295 lw_set_main_areas (Widget parent
, Widget menubar
, Widget work_area
)
1297 #if defined (USE_MOTIF)
1298 xm_set_main_areas (parent
, menubar
, work_area
);
1302 /* Manage resizing for Motif. This disables resizing when the menubar
1303 is about to be modified. */
1305 lw_allow_resizing (Widget w
, Boolean flag
)
1307 #if defined (USE_MOTIF)
1308 xm_manage_resizing (w
, flag
);
1313 /* Value is non-zero if LABEL is a menu separator. If it is, *TYPE is
1314 set to an appropriate enumerator of type enum menu_separator.
1315 MOTIF_P non-zero means map separator types not supported by Motif
1316 to similar ones that are supported. */
1319 lw_separator_p (const char *label
, enum menu_separator
*type
, int motif_p
)
1321 int separator_p
= 0;
1323 if (strlen (label
) >= 3
1324 && memcmp (label
, "--:", 3) == 0)
1326 static struct separator_table
1329 enum menu_separator type
;
1333 {"space", SEPARATOR_NO_LINE
},
1334 {"noLine", SEPARATOR_NO_LINE
},
1335 {"singleLine", SEPARATOR_SINGLE_LINE
},
1336 {"doubleLine", SEPARATOR_DOUBLE_LINE
},
1337 {"singleDashedLine", SEPARATOR_SINGLE_DASHED_LINE
},
1338 {"doubleDashedLine", SEPARATOR_DOUBLE_DASHED_LINE
},
1339 {"shadowEtchedIn", SEPARATOR_SHADOW_ETCHED_IN
},
1340 {"shadowEtchedOut", SEPARATOR_SHADOW_ETCHED_OUT
},
1341 {"shadowEtchedInDash", SEPARATOR_SHADOW_ETCHED_IN_DASH
},
1342 {"shadowEtchedOutDash", SEPARATOR_SHADOW_ETCHED_OUT_DASH
},
1343 {"shadowDoubleEtchedIn", SEPARATOR_SHADOW_DOUBLE_ETCHED_IN
},
1344 {"shadowDoubleEtchedOut", SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT
},
1345 {"shadowDoubleEtchedInDash", SEPARATOR_SHADOW_DOUBLE_ETCHED_IN_DASH
},
1346 {"shadowDoubleEtchedOutDash", SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT_DASH
},
1353 for (i
= 0; separator_names
[i
].name
; ++i
)
1354 if (strcmp (label
, separator_names
[i
].name
) == 0)
1357 *type
= separator_names
[i
].type
;
1359 /* If separator type is not supported under Motif,
1360 use a similar one. */
1361 if (motif_p
&& *type
>= SEPARATOR_SHADOW_DOUBLE_ETCHED_IN
)
1366 else if (strlen (label
) > 3
1367 && memcmp (label
, "--", 2) == 0
1370 /* Alternative, more Emacs-style names. */
1371 static struct separator_table
1374 enum menu_separator type
;
1378 {"space", SEPARATOR_NO_LINE
},
1379 {"no-line", SEPARATOR_NO_LINE
},
1380 {"single-line", SEPARATOR_SINGLE_LINE
},
1381 {"double-line", SEPARATOR_DOUBLE_LINE
},
1382 {"single-dashed-line", SEPARATOR_SINGLE_DASHED_LINE
},
1383 {"double-dashed-line", SEPARATOR_DOUBLE_DASHED_LINE
},
1384 {"shadow-etched-in", SEPARATOR_SHADOW_ETCHED_IN
},
1385 {"shadow-etched-out", SEPARATOR_SHADOW_ETCHED_OUT
},
1386 {"shadow-etched-in-dash", SEPARATOR_SHADOW_ETCHED_IN_DASH
},
1387 {"shadow-etched-out-dash", SEPARATOR_SHADOW_ETCHED_OUT_DASH
},
1388 {"shadow-double-etched-in", SEPARATOR_SHADOW_DOUBLE_ETCHED_IN
},
1389 {"shadow-double-etched-out", SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT
},
1390 {"shadow-double-etched-in-dash", SEPARATOR_SHADOW_DOUBLE_ETCHED_IN_DASH
},
1391 {"shadow-double-etched-out-dash",SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT_DASH
},
1398 for (i
= 0; separator_names
[i
].name
; ++i
)
1399 if (strcmp (label
, separator_names
[i
].name
) == 0)
1402 *type
= separator_names
[i
].type
;
1404 /* If separator type is not supported under Motif,
1405 use a similar one. */
1406 if (motif_p
&& *type
>= SEPARATOR_SHADOW_DOUBLE_ETCHED_IN
)
1413 /* Old-style separator, maybe. It's a separator if it contains
1415 while (*label
== '-')
1417 separator_p
= *label
== 0;
1418 *type
= SEPARATOR_SHADOW_ETCHED_IN
;