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