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