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