Mercurial > emacs
annotate lwlib/lwlib.c @ 55167:31f97e0656c1
(insert-sliced-image): Use line-height instead of
line-spacing property on newline.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Mon, 26 Apr 2004 22:11:36 +0000 |
parents | 695cf19ef79e |
children | 23a17af379b1 375f2633d815 |
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 | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
6 The Lucid Widget Library is free software; you can redistribute it and/or |
5626 | 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, | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
12 but WITHOUT ANY WARRANTY; without even the implied warranty of |
5626 | 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 | |
26087
e0d966fb548f
Add support for large files, plus some locale improvements.
Paul Eggert <eggert@twinsun.com>
parents:
25718
diff
changeset
|
25 #ifdef HAVE_CONFIG_H |
e0d966fb548f
Add support for large files, plus some locale improvements.
Paul Eggert <eggert@twinsun.com>
parents:
25718
diff
changeset
|
26 #include <config.h> |
e0d966fb548f
Add support for large files, plus some locale improvements.
Paul Eggert <eggert@twinsun.com>
parents:
25718
diff
changeset
|
27 #endif |
e0d966fb548f
Add support for large files, plus some locale improvements.
Paul Eggert <eggert@twinsun.com>
parents:
25718
diff
changeset
|
28 |
41765
27b70bc263d6
Include ../src/lisp.h. Don't declare xmalloc.
Richard M. Stallman <rms@gnu.org>
parents:
32040
diff
changeset
|
29 #include "../src/lisp.h" |
27b70bc263d6
Include ../src/lisp.h. Don't declare xmalloc.
Richard M. Stallman <rms@gnu.org>
parents:
32040
diff
changeset
|
30 |
5626 | 31 #include <sys/types.h> |
32 #include <stdio.h> | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
33 #include <ctype.h> |
5627
7ff2d6076466
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5626
diff
changeset
|
34 #include "lwlib-int.h" |
5626 | 35 #include "lwlib-utils.h" |
5706
75570af32e92
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5627
diff
changeset
|
36 #include <X11/StringDefs.h> |
5626 | 37 |
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 |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
48 #if defined (USE_XAW) |
21391 | 49 #include <X11/Xaw/Paned.h> |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
50 #include "lwlib-Xaw.h" |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
51 #endif |
5626 | 52 |
48480 | 53 #if !defined (USE_LUCID) && !defined (USE_MOTIF) |
54 #error At least one of USE_LUCID or USE_MOTIF must be defined. | |
5626 | 55 #endif |
56 | |
8785 | 57 #ifndef max |
58 #define max(x, y) ((x) > (y) ? (x) : (y)) | |
59 #endif | |
60 | |
5626 | 61 /* List of all widgets managed by the library. */ |
62 static widget_info* | |
63 all_widget_info = NULL; | |
64 | |
12187
18d061c3d0dd
(lwlib_toolkit_type): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
11861
diff
changeset
|
65 #ifdef USE_MOTIF |
18d061c3d0dd
(lwlib_toolkit_type): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
11861
diff
changeset
|
66 char *lwlib_toolkit_type = "motif"; |
18d061c3d0dd
(lwlib_toolkit_type): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
11861
diff
changeset
|
67 #else |
18d061c3d0dd
(lwlib_toolkit_type): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
11861
diff
changeset
|
68 char *lwlib_toolkit_type = "lucid"; |
18d061c3d0dd
(lwlib_toolkit_type): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
11861
diff
changeset
|
69 #endif |
27997
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
70 |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
71 static widget_value *merge_widget_value P_ ((widget_value *, |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
72 widget_value *, |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
73 int, int *)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
74 static void instantiate_widget_instance P_ ((widget_instance *)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
75 static int my_strcasecmp P_ ((char *, char *)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
76 static void safe_free_str P_ ((char *)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
77 static void free_widget_value_tree P_ ((widget_value *)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
78 static widget_value *copy_widget_value_tree P_ ((widget_value *, |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
79 change_type)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
80 static widget_info *allocate_widget_info P_ ((char *, char *, LWLIB_ID, |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
81 widget_value *, |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
82 lw_callback, lw_callback, |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
83 lw_callback, lw_callback)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
84 static void free_widget_info P_ ((widget_info *)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
85 static void mark_widget_destroyed P_ ((Widget, XtPointer, XtPointer)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
86 static widget_instance *allocate_widget_instance P_ ((widget_info *, |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
87 Widget, Boolean)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
88 static void free_widget_instance P_ ((widget_instance *)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
89 static widget_info *get_widget_info P_ ((LWLIB_ID, Boolean)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
90 static widget_instance *get_widget_instance P_ ((Widget, Boolean)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
91 static widget_instance *find_instance P_ ((LWLIB_ID, Widget, Boolean)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
92 static Boolean safe_strcmp P_ ((char *, char *)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
93 static Widget name_to_widget P_ ((widget_instance *, char *)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
94 static void set_one_value P_ ((widget_instance *, widget_value *, Boolean)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
95 static void update_one_widget_instance P_ ((widget_instance *, Boolean)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
96 static void update_all_widget_values P_ ((widget_info *, Boolean)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
97 static void initialize_widget_instance P_ ((widget_instance *)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
98 static widget_creation_function find_in_table P_ ((char *, widget_creation_entry *)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
99 static Boolean dialog_spec_p P_ ((char *)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
100 static void destroy_one_instance P_ ((widget_instance *)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
101 static void lw_pop_all_widgets P_ ((LWLIB_ID, Boolean)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
102 static Boolean get_one_value P_ ((widget_instance *, widget_value *)); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
103 static void show_one_widget_busy P_ ((Widget, Boolean)); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
104 |
21391 | 105 void |
7515
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
106 lwlib_memset (address, value, length) |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
107 char *address; |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
108 int value; |
48480 | 109 size_t length; |
7515
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
110 { |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
111 int i; |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
112 |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
113 for (i = 0; i < length; i++) |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
114 address[i] = value; |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
115 } |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
116 |
21391 | 117 void |
7515
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
118 lwlib_bcopy (from, to, length) |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
119 char *from; |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
120 char *to; |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
121 int length; |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
122 { |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
123 int i; |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
124 |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
125 for (i = 0; i < length; i++) |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
126 to[i] = from[i]; |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
127 } |
5626 | 128 /* utility functions for widget_instance and widget_info */ |
7423
4a5d0d109242
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
6333
diff
changeset
|
129 char * |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
130 safe_strdup (s) |
29468 | 131 const char *s; |
5626 | 132 { |
133 char *result; | |
134 if (! s) return 0; | |
135 result = (char *) malloc (strlen (s) + 1); | |
136 if (! result) | |
137 return 0; | |
138 strcpy (result, s); | |
139 return result; | |
140 } | |
141 | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
142 /* Like strcmp but ignore differences in case. */ |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
143 |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
144 static int |
5853 | 145 my_strcasecmp (s1, s2) |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
146 char *s1, *s2; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
147 { |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
148 while (1) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
149 { |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
150 int c1 = *s1++; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
151 int c2 = *s2++; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
152 if (isupper (c1)) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
153 c1 = tolower (c1); |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
154 if (isupper (c2)) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
155 c2 = tolower (c2); |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
156 if (c1 != c2) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
157 return (c1 > c2 ? 1 : -1); |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
158 if (c1 == 0) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
159 return 0; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
160 } |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
161 } |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
162 |
5626 | 163 static void |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
164 safe_free_str (s) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
165 char *s; |
5626 | 166 { |
167 if (s) free (s); | |
168 } | |
169 | |
170 static widget_value *widget_value_free_list = 0; | |
5993
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
171 static int malloc_cpt = 0; |
5626 | 172 |
173 widget_value * | |
174 malloc_widget_value () | |
175 { | |
176 widget_value *wv; | |
177 if (widget_value_free_list) | |
178 { | |
179 wv = widget_value_free_list; | |
180 widget_value_free_list = wv->free_list; | |
181 wv->free_list = 0; | |
182 } | |
183 else | |
184 { | |
185 wv = (widget_value *) malloc (sizeof (widget_value)); | |
5993
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
186 malloc_cpt++; |
5626 | 187 } |
48480 | 188 lwlib_memset ((void*) wv, 0, sizeof (widget_value)); |
5626 | 189 return wv; |
190 } | |
191 | |
14163
2422ceecd9d2
(instantiate_widget_instance): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
12744
diff
changeset
|
192 /* this is analogous to free(). It frees only what was allocated |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
193 by malloc_widget_value(), and no substructures. |
5626 | 194 */ |
195 void | |
196 free_widget_value (wv) | |
197 widget_value *wv; | |
198 { | |
199 if (wv->free_list) | |
200 abort (); | |
5993
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
201 |
5999
b135bb2b4bfe
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5993
diff
changeset
|
202 if (malloc_cpt > 25) |
5993
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
203 { |
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
204 /* 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
|
205 We free it. */ |
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
206 free (wv); |
5999
b135bb2b4bfe
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5993
diff
changeset
|
207 malloc_cpt--; |
5993
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
208 } |
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
209 else |
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
210 { |
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
211 wv->free_list = widget_value_free_list; |
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
212 widget_value_free_list = wv; |
5feb28cb62c8
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5853
diff
changeset
|
213 } |
5626 | 214 } |
215 | |
216 static void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
217 free_widget_value_tree (wv) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
218 widget_value *wv; |
5626 | 219 { |
220 if (!wv) | |
221 return; | |
222 | |
223 if (wv->name) free (wv->name); | |
224 if (wv->value) free (wv->value); | |
225 if (wv->key) free (wv->key); | |
226 | |
41765
27b70bc263d6
Include ../src/lisp.h. Don't declare xmalloc.
Richard M. Stallman <rms@gnu.org>
parents:
32040
diff
changeset
|
227 wv->name = wv->value = wv->key = (char *) 0xDEADBEEF; |
5626 | 228 |
229 if (wv->toolkit_data && wv->free_toolkit_data) | |
230 { | |
14611
69fca906f068
(free_widget_value_tree, merge_widget_value):
Karl Heuer <kwzh@gnu.org>
parents:
14594
diff
changeset
|
231 XtFree (wv->toolkit_data); |
5626 | 232 wv->toolkit_data = (void *) 0xDEADBEEF; |
233 } | |
234 | |
235 if (wv->contents && (wv->contents != (widget_value*)1)) | |
236 { | |
237 free_widget_value_tree (wv->contents); | |
238 wv->contents = (widget_value *) 0xDEADBEEF; | |
239 } | |
240 if (wv->next) | |
241 { | |
242 free_widget_value_tree (wv->next); | |
243 wv->next = (widget_value *) 0xDEADBEEF; | |
244 } | |
245 free_widget_value (wv); | |
246 } | |
247 | |
248 static widget_value * | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
249 copy_widget_value_tree (val, change) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
250 widget_value* val; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
251 change_type change; |
5626 | 252 { |
253 widget_value* copy; | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
254 |
5626 | 255 if (!val) |
256 return NULL; | |
257 if (val == (widget_value *) 1) | |
258 return val; | |
259 | |
260 copy = malloc_widget_value (); | |
261 copy->name = safe_strdup (val->name); | |
262 copy->value = safe_strdup (val->value); | |
263 copy->key = safe_strdup (val->key); | |
41765
27b70bc263d6
Include ../src/lisp.h. Don't declare xmalloc.
Richard M. Stallman <rms@gnu.org>
parents:
32040
diff
changeset
|
264 copy->help = val->help; |
5626 | 265 copy->enabled = val->enabled; |
25036 | 266 copy->button_type = val->button_type; |
5626 | 267 copy->selected = val->selected; |
268 copy->edited = False; | |
269 copy->change = change; | |
14879
70f79ccb9875
(merge_widget_value): Set the this_one_change field.
Richard M. Stallman <rms@gnu.org>
parents:
14663
diff
changeset
|
270 copy->this_one_change = change; |
5626 | 271 copy->contents = copy_widget_value_tree (val->contents, change); |
272 copy->call_data = val->call_data; | |
273 copy->next = copy_widget_value_tree (val->next, change); | |
274 copy->toolkit_data = NULL; | |
275 copy->free_toolkit_data = False; | |
276 return copy; | |
277 } | |
278 | |
279 static widget_info * | |
27335
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
280 allocate_widget_info (type, name, id, val, pre_activate_cb, |
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
281 selection_cb, post_activate_cb, highlight_cb) |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
282 char* type; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
283 char* name; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
284 LWLIB_ID id; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
285 widget_value* val; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
286 lw_callback pre_activate_cb; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
287 lw_callback selection_cb; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
288 lw_callback post_activate_cb; |
27335
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
289 lw_callback highlight_cb; |
5626 | 290 { |
291 widget_info* info = (widget_info*)malloc (sizeof (widget_info)); | |
292 info->type = safe_strdup (type); | |
293 info->name = safe_strdup (name); | |
294 info->id = id; | |
295 info->val = copy_widget_value_tree (val, STRUCTURAL_CHANGE); | |
296 info->busy = False; | |
297 info->pre_activate_cb = pre_activate_cb; | |
298 info->selection_cb = selection_cb; | |
299 info->post_activate_cb = post_activate_cb; | |
27335
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
300 info->highlight_cb = highlight_cb; |
5626 | 301 info->instances = NULL; |
302 | |
303 info->next = all_widget_info; | |
304 all_widget_info = info; | |
305 | |
306 return info; | |
307 } | |
308 | |
309 static void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
310 free_widget_info (info) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
311 widget_info* info; |
5626 | 312 { |
313 safe_free_str (info->type); | |
314 safe_free_str (info->name); | |
315 free_widget_value_tree (info->val); | |
7515
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
316 lwlib_memset ((void*)info, 0xDEADBEEF, sizeof (widget_info)); |
5626 | 317 free (info); |
318 } | |
319 | |
320 static void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
321 mark_widget_destroyed (widget, closure, call_data) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
322 Widget widget; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
323 XtPointer closure; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
324 XtPointer call_data; |
5626 | 325 { |
326 widget_instance* instance = (widget_instance*)closure; | |
327 | |
328 /* be very conservative */ | |
329 if (instance->widget == widget) | |
330 instance->widget = NULL; | |
331 } | |
332 | |
48480 | 333 /* The messy #ifdef PROTOTYPES here and elsewhere are prompted by a |
334 flood of warnings about argument promotion from proprietary ISO C | |
335 compilers. (etags still only makes one entry for each function.) */ | |
5626 | 336 static widget_instance * |
48480 | 337 #ifdef PROTOTYPES |
338 allocate_widget_instance (widget_info* info, Widget parent, Boolean pop_up_p) | |
339 #else | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
340 allocate_widget_instance (info, parent, pop_up_p) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
341 widget_info* info; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
342 Widget parent; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
343 Boolean pop_up_p; |
48480 | 344 #endif |
5626 | 345 { |
346 widget_instance* instance = | |
347 (widget_instance*)malloc (sizeof (widget_instance)); | |
27335
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
348 bzero (instance, sizeof *instance); |
5626 | 349 instance->parent = parent; |
350 instance->pop_up_p = pop_up_p; | |
351 instance->info = info; | |
352 instance->next = info->instances; | |
353 info->instances = instance; | |
354 | |
14163
2422ceecd9d2
(instantiate_widget_instance): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
12744
diff
changeset
|
355 instantiate_widget_instance (instance); |
5626 | 356 |
357 XtAddCallback (instance->widget, XtNdestroyCallback, | |
358 mark_widget_destroyed, (XtPointer)instance); | |
359 return instance; | |
360 } | |
361 | |
362 static void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
363 free_widget_instance (instance) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
364 widget_instance* instance; |
5626 | 365 { |
7515
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
366 lwlib_memset ((void*)instance, 0xDEADBEEF, sizeof (widget_instance)); |
5626 | 367 free (instance); |
368 } | |
369 | |
370 static widget_info * | |
48480 | 371 #ifdef PROTOTYPES |
372 get_widget_info (LWLIB_ID id, Boolean remove_p) | |
373 #else | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
374 get_widget_info (id, remove_p) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
375 LWLIB_ID id; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
376 Boolean remove_p; |
48480 | 377 #endif |
5626 | 378 { |
379 widget_info* info; | |
380 widget_info* prev; | |
381 for (prev = NULL, info = all_widget_info; | |
382 info; | |
383 prev = info, info = info->next) | |
384 if (info->id == id) | |
385 { | |
386 if (remove_p) | |
387 { | |
388 if (prev) | |
389 prev->next = info->next; | |
390 else | |
391 all_widget_info = info->next; | |
392 } | |
393 return info; | |
394 } | |
395 return NULL; | |
396 } | |
397 | |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
398 /* 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
|
399 widget_value for a given widget in an instance */ |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
400 widget_info * |
6333
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6306
diff
changeset
|
401 lw_get_widget_info (id) |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6306
diff
changeset
|
402 LWLIB_ID id; |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
403 { |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
404 return get_widget_info (id, 0); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
405 } |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
406 |
5626 | 407 static widget_instance * |
48480 | 408 #ifdef PROTOTYPES |
409 get_widget_instance (Widget widget, Boolean remove_p) | |
410 #else | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
411 get_widget_instance (widget, remove_p) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
412 Widget widget; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
413 Boolean remove_p; |
48480 | 414 #endif |
5626 | 415 { |
416 widget_info* info; | |
417 widget_instance* instance; | |
418 widget_instance* prev; | |
419 for (info = all_widget_info; info; info = info->next) | |
420 for (prev = NULL, instance = info->instances; | |
421 instance; | |
422 prev = instance, instance = instance->next) | |
423 if (instance->widget == widget) | |
424 { | |
425 if (remove_p) | |
426 { | |
427 if (prev) | |
428 prev->next = instance->next; | |
429 else | |
430 info->instances = instance->next; | |
431 } | |
432 return instance; | |
433 } | |
434 return (widget_instance *) 0; | |
435 } | |
436 | |
27335
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
437 /* Value is a pointer to the widget_instance corresponding to |
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
438 WIDGET, or null if WIDGET is not a lwlib widget. */ |
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
439 |
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
440 widget_instance * |
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
441 lw_get_widget_instance (widget) |
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
442 Widget widget; |
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
443 { |
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
444 return get_widget_instance (widget, False); |
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
445 } |
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
446 |
5626 | 447 static widget_instance* |
48480 | 448 #ifdef PROTOTYPES |
449 find_instance (LWLIB_ID id, Widget parent, Boolean pop_up_p) | |
450 #else | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
451 find_instance (id, parent, pop_up_p) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
452 LWLIB_ID id; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
453 Widget parent; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
454 Boolean pop_up_p; |
48480 | 455 #endif |
5626 | 456 { |
457 widget_info* info = get_widget_info (id, False); | |
458 widget_instance* instance; | |
459 | |
460 if (info) | |
461 for (instance = info->instances; instance; instance = instance->next) | |
462 if (instance->parent == parent && instance->pop_up_p == pop_up_p) | |
463 return instance; | |
464 | |
465 return NULL; | |
466 } | |
467 | |
468 | |
469 /* utility function for widget_value */ | |
470 static Boolean | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
471 safe_strcmp (s1, s2) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
472 char* s1; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
473 char* s2; |
5626 | 474 { |
475 if (!!s1 ^ !!s2) return True; | |
476 return (s1 && s2) ? strcmp (s1, s2) : s1 ? False : !!s2; | |
477 } | |
478 | |
479 | |
480 #if 0 | |
481 # define EXPLAIN(name, oc, nc, desc, a1, a2) \ | |
482 printf ("Change: \"%s\"\tmax(%s=%d,%s=%d)\t%s %d %d\n", \ | |
483 name, \ | |
484 (oc == NO_CHANGE ? "none" : \ | |
485 (oc == INVISIBLE_CHANGE ? "invisible" : \ | |
486 (oc == VISIBLE_CHANGE ? "visible" : \ | |
487 (oc == STRUCTURAL_CHANGE ? "structural" : "???")))), \ | |
488 oc, \ | |
489 (nc == NO_CHANGE ? "none" : \ | |
490 (nc == INVISIBLE_CHANGE ? "invisible" : \ | |
491 (nc == VISIBLE_CHANGE ? "visible" : \ | |
492 (nc == STRUCTURAL_CHANGE ? "structural" : "???")))), \ | |
493 nc, desc, a1, a2) | |
494 #else | |
495 # define EXPLAIN(name, oc, nc, desc, a1, a2) | |
496 #endif | |
497 | |
498 | |
499 static widget_value * | |
27997
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
500 merge_widget_value (val1, val2, level, change_p) |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
501 widget_value* val1; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
502 widget_value* val2; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
503 int level; |
27997
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
504 int *change_p; |
5626 | 505 { |
14879
70f79ccb9875
(merge_widget_value): Set the this_one_change field.
Richard M. Stallman <rms@gnu.org>
parents:
14663
diff
changeset
|
506 change_type change, this_one_change; |
5626 | 507 widget_value* merged_next; |
508 widget_value* merged_contents; | |
509 | |
510 if (!val1) | |
511 { | |
512 if (val2) | |
27997
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
513 { |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
514 *change_p = 1; |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
515 return copy_widget_value_tree (val2, STRUCTURAL_CHANGE); |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
516 } |
5626 | 517 else |
518 return NULL; | |
519 } | |
520 if (!val2) | |
521 { | |
27997
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
522 *change_p = 1; |
5626 | 523 free_widget_value_tree (val1); |
524 return NULL; | |
525 } | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
526 |
5626 | 527 change = NO_CHANGE; |
528 | |
529 if (safe_strcmp (val1->name, val2->name)) | |
530 { | |
531 EXPLAIN (val1->name, change, STRUCTURAL_CHANGE, "name change", | |
532 val1->name, val2->name); | |
533 change = max (change, STRUCTURAL_CHANGE); | |
534 safe_free_str (val1->name); | |
535 val1->name = safe_strdup (val2->name); | |
536 } | |
537 if (safe_strcmp (val1->value, val2->value)) | |
538 { | |
539 EXPLAIN (val1->name, change, VISIBLE_CHANGE, "value change", | |
540 val1->value, val2->value); | |
541 change = max (change, VISIBLE_CHANGE); | |
542 safe_free_str (val1->value); | |
543 val1->value = safe_strdup (val2->value); | |
544 } | |
545 if (safe_strcmp (val1->key, val2->key)) | |
546 { | |
547 EXPLAIN (val1->name, change, VISIBLE_CHANGE, "key change", | |
548 val1->key, val2->key); | |
549 change = max (change, VISIBLE_CHANGE); | |
550 safe_free_str (val1->key); | |
551 val1->key = safe_strdup (val2->key); | |
552 } | |
41765
27b70bc263d6
Include ../src/lisp.h. Don't declare xmalloc.
Richard M. Stallman <rms@gnu.org>
parents:
32040
diff
changeset
|
553 if (! EQ (val1->help, val2->help)) |
27335
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
554 { |
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
555 EXPLAIN (val1->name, change, VISIBLE_CHANGE, "help change", |
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
556 val1->help, val2->help); |
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
557 change = max (change, VISIBLE_CHANGE); |
41765
27b70bc263d6
Include ../src/lisp.h. Don't declare xmalloc.
Richard M. Stallman <rms@gnu.org>
parents:
32040
diff
changeset
|
558 val1->help = val2->help; |
27335
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
559 } |
5626 | 560 if (val1->enabled != val2->enabled) |
561 { | |
562 EXPLAIN (val1->name, change, VISIBLE_CHANGE, "enablement change", | |
563 val1->enabled, val2->enabled); | |
564 change = max (change, VISIBLE_CHANGE); | |
565 val1->enabled = val2->enabled; | |
566 } | |
25036 | 567 if (val1->button_type != val2->button_type) |
568 { | |
569 EXPLAIN (val1->name, change, VISIBLE_CHANGE, "button type change", | |
570 val1->button_type, val2->button_type); | |
571 change = max (change, VISIBLE_CHANGE); | |
572 val1->button_type = val2->button_type; | |
573 } | |
5626 | 574 if (val1->selected != val2->selected) |
575 { | |
576 EXPLAIN (val1->name, change, VISIBLE_CHANGE, "selection change", | |
577 val1->selected, val2->selected); | |
578 change = max (change, VISIBLE_CHANGE); | |
579 val1->selected = val2->selected; | |
580 } | |
581 if (val1->call_data != val2->call_data) | |
582 { | |
583 EXPLAIN (val1->name, change, INVISIBLE_CHANGE, "call-data change", | |
584 val1->call_data, val2->call_data); | |
585 change = max (change, INVISIBLE_CHANGE); | |
586 val1->call_data = val2->call_data; | |
587 } | |
588 | |
589 if (level > 0) | |
590 { | |
591 merged_contents = | |
27997
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
592 merge_widget_value (val1->contents, val2->contents, level - 1, |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
593 change_p); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
594 |
5626 | 595 if (val1->contents && !merged_contents) |
596 { | |
14163
2422ceecd9d2
(instantiate_widget_instance): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
12744
diff
changeset
|
597 /* This used to say INVISIBLE_CHANGE, |
2422ceecd9d2
(instantiate_widget_instance): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
12744
diff
changeset
|
598 but it is visible and vitally important when |
2422ceecd9d2
(instantiate_widget_instance): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
12744
diff
changeset
|
599 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
|
600 |
2422ceecd9d2
(instantiate_widget_instance): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
12744
diff
changeset
|
601 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
|
602 EXPLAIN (val1->name, change, STRUCTURAL_CHANGE, "(contents gone)", |
5626 | 603 0, 0); |
14163
2422ceecd9d2
(instantiate_widget_instance): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
12744
diff
changeset
|
604 change = max (change, STRUCTURAL_CHANGE); |
5626 | 605 } |
606 else if (merged_contents && merged_contents->change != NO_CHANGE) | |
607 { | |
608 EXPLAIN (val1->name, change, INVISIBLE_CHANGE, "(contents change)", | |
609 0, 0); | |
610 change = max (change, INVISIBLE_CHANGE); | |
15854
184808f2a73c
(merge_widget_value): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
15790
diff
changeset
|
611 #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
|
612 #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
|
613 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
|
614 #endif |
15854
184808f2a73c
(merge_widget_value): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
15790
diff
changeset
|
615 #endif |
5626 | 616 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
617 |
5626 | 618 val1->contents = merged_contents; |
619 } | |
620 | |
14879
70f79ccb9875
(merge_widget_value): Set the this_one_change field.
Richard M. Stallman <rms@gnu.org>
parents:
14663
diff
changeset
|
621 this_one_change = change; |
70f79ccb9875
(merge_widget_value): Set the this_one_change field.
Richard M. Stallman <rms@gnu.org>
parents:
14663
diff
changeset
|
622 |
27997
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
623 merged_next = merge_widget_value (val1->next, val2->next, level, change_p); |
5626 | 624 |
625 if (val1->next && !merged_next) | |
626 { | |
627 EXPLAIN (val1->name, change, STRUCTURAL_CHANGE, "(following gone)", | |
628 0, 0); | |
629 change = max (change, STRUCTURAL_CHANGE); | |
630 } | |
631 else if (merged_next) | |
632 { | |
633 if (merged_next->change) | |
634 EXPLAIN (val1->name, change, merged_next->change, "(following change)", | |
635 0, 0); | |
636 change = max (change, merged_next->change); | |
637 } | |
638 | |
639 val1->next = merged_next; | |
640 | |
14879
70f79ccb9875
(merge_widget_value): Set the this_one_change field.
Richard M. Stallman <rms@gnu.org>
parents:
14663
diff
changeset
|
641 val1->this_one_change = this_one_change; |
5626 | 642 val1->change = change; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
643 |
5626 | 644 if (change > NO_CHANGE && val1->toolkit_data) |
645 { | |
27997
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
646 *change_p = 1; |
5626 | 647 if (val1->free_toolkit_data) |
14611
69fca906f068
(free_widget_value_tree, merge_widget_value):
Karl Heuer <kwzh@gnu.org>
parents:
14594
diff
changeset
|
648 XtFree (val1->toolkit_data); |
5626 | 649 val1->toolkit_data = NULL; |
650 } | |
651 | |
652 return val1; | |
653 } | |
654 | |
655 | |
656 /* modifying the widgets */ | |
657 static Widget | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
658 name_to_widget (instance, name) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
659 widget_instance* instance; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
660 char* name; |
5626 | 661 { |
662 Widget widget = NULL; | |
663 | |
664 if (!instance->widget) | |
665 return NULL; | |
666 | |
667 if (!strcmp (XtName (instance->widget), name)) | |
668 widget = instance->widget; | |
669 else | |
670 { | |
671 int length = strlen (name) + 2; | |
7515
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
672 char* real_name = (char *) xmalloc (length); |
5626 | 673 real_name [0] = '*'; |
674 strcpy (real_name + 1, name); | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
675 |
5626 | 676 widget = XtNameToWidget (instance->widget, real_name); |
7515
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
677 |
d31babe815e7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
7423
diff
changeset
|
678 free (real_name); |
5626 | 679 } |
680 return widget; | |
681 } | |
682 | |
683 static void | |
48480 | 684 #ifdef PROTOTYPES |
685 set_one_value (widget_instance* instance, widget_value* val, Boolean deep_p) | |
686 #else | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
687 set_one_value (instance, val, deep_p) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
688 widget_instance* instance; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
689 widget_value* val; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
690 Boolean deep_p; |
48480 | 691 #endif |
5626 | 692 { |
693 Widget widget = name_to_widget (instance, val->name); | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
694 |
5626 | 695 if (widget) |
696 { | |
697 #if defined (USE_LUCID) | |
698 if (lw_lucid_widget_p (instance->widget)) | |
699 xlw_update_one_widget (instance, widget, val, deep_p); | |
700 #endif | |
701 #if defined (USE_MOTIF) | |
702 if (lw_motif_widget_p (instance->widget)) | |
703 xm_update_one_widget (instance, widget, val, deep_p); | |
704 #endif | |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
705 #if defined (USE_XAW) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
706 if (lw_xaw_widget_p (instance->widget)) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
707 xaw_update_one_widget (instance, widget, val, deep_p); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
708 #endif |
5626 | 709 } |
710 } | |
711 | |
712 static void | |
48480 | 713 #ifdef PROTOTYPES |
714 update_one_widget_instance (widget_instance* instance, Boolean deep_p) | |
715 #else | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
716 update_one_widget_instance (instance, deep_p) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
717 widget_instance* instance; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
718 Boolean deep_p; |
48480 | 719 #endif |
5626 | 720 { |
721 widget_value *val; | |
722 | |
723 if (!instance->widget) | |
724 /* the widget was destroyed */ | |
725 return; | |
726 | |
727 for (val = instance->info->val; val; val = val->next) | |
728 if (val->change != NO_CHANGE) | |
729 set_one_value (instance, val, deep_p); | |
730 } | |
731 | |
732 static void | |
48480 | 733 #ifdef PROTOTYPES |
734 update_all_widget_values (widget_info* info, Boolean deep_p) | |
735 #else | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
736 update_all_widget_values (info, deep_p) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
737 widget_info* info; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
738 Boolean deep_p; |
48480 | 739 #endif |
5626 | 740 { |
741 widget_instance* instance; | |
742 widget_value* val; | |
743 | |
744 for (instance = info->instances; instance; instance = instance->next) | |
745 update_one_widget_instance (instance, deep_p); | |
746 | |
747 for (val = info->val; val; val = val->next) | |
748 val->change = NO_CHANGE; | |
749 } | |
750 | |
27997
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
751 int |
48480 | 752 #ifdef PROTOTYPES |
753 lw_modify_all_widgets (LWLIB_ID id, widget_value* val, Boolean deep_p) | |
754 #else | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
755 lw_modify_all_widgets (id, val, deep_p) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
756 LWLIB_ID id; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
757 widget_value* val; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
758 Boolean deep_p; |
48480 | 759 #endif |
5626 | 760 { |
761 widget_info* info = get_widget_info (id, False); | |
762 widget_value* new_val; | |
763 widget_value* next_new_val; | |
764 widget_value* cur; | |
765 widget_value* prev; | |
766 widget_value* next; | |
767 int found; | |
27997
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
768 int change_p = 0; |
5626 | 769 |
770 if (!info) | |
29468 | 771 return 0; |
5626 | 772 |
773 for (new_val = val; new_val; new_val = new_val->next) | |
774 { | |
775 next_new_val = new_val->next; | |
776 new_val->next = NULL; | |
777 found = False; | |
778 for (prev = NULL, cur = info->val; cur; prev = cur, cur = cur->next) | |
779 if (!strcmp (cur->name, new_val->name)) | |
780 { | |
781 found = True; | |
782 next = cur->next; | |
783 cur->next = NULL; | |
27997
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
784 cur = merge_widget_value (cur, new_val, deep_p ? 1000 : 1, |
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
785 &change_p); |
5626 | 786 if (prev) |
787 prev->next = cur ? cur : next; | |
788 else | |
789 info->val = cur ? cur : next; | |
790 if (cur) | |
791 cur->next = next; | |
792 break; | |
793 } | |
794 if (!found) | |
795 { | |
796 /* Could not find it, add it */ | |
797 if (prev) | |
798 prev->next = copy_widget_value_tree (new_val, STRUCTURAL_CHANGE); | |
799 else | |
800 info->val = copy_widget_value_tree (new_val, STRUCTURAL_CHANGE); | |
27997
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
801 change_p = 1; |
5626 | 802 } |
803 new_val->next = next_new_val; | |
804 } | |
805 | |
806 update_all_widget_values (info, deep_p); | |
27997
7ff6dc4c3775
(lw_modify_all_widgets): Return non-zero if widget
Gerd Moellmann <gerd@gnu.org>
parents:
27756
diff
changeset
|
807 return change_p; |
5626 | 808 } |
809 | |
810 | |
811 /* creating the widgets */ | |
812 | |
813 static void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
814 initialize_widget_instance (instance) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
815 widget_instance* instance; |
5626 | 816 { |
817 widget_value* val; | |
818 | |
819 for (val = instance->info->val; val; val = val->next) | |
820 val->change = STRUCTURAL_CHANGE; | |
821 | |
822 update_one_widget_instance (instance, True); | |
823 | |
824 for (val = instance->info->val; val; val = val->next) | |
825 val->change = NO_CHANGE; | |
826 } | |
827 | |
828 | |
829 static widget_creation_function | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
830 find_in_table (type, table) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
831 char* type; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
832 widget_creation_entry* table; |
5626 | 833 { |
834 widget_creation_entry* cur; | |
835 for (cur = table; cur->type; cur++) | |
5853 | 836 if (!my_strcasecmp (type, cur->type)) |
5626 | 837 return cur->function; |
838 return NULL; | |
839 } | |
840 | |
841 static Boolean | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
842 dialog_spec_p (name) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
843 char* name; |
5626 | 844 { |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
845 /* return True if name matches [EILPQeilpq][1-9][Bb] or |
5626 | 846 [EILPQeilpq][1-9][Bb][Rr][1-9] */ |
847 if (!name) | |
848 return False; | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
849 |
5626 | 850 switch (name [0]) |
851 { | |
852 case 'E': case 'I': case 'L': case 'P': case 'Q': | |
853 case 'e': case 'i': case 'l': case 'p': case 'q': | |
854 if (name [1] >= '0' && name [1] <= '9') | |
855 { | |
856 if (name [2] != 'B' && name [2] != 'b') | |
857 return False; | |
858 if (!name [3]) | |
859 return True; | |
860 if ((name [3] == 'T' || name [3] == 't') && !name [4]) | |
861 return True; | |
862 if ((name [3] == 'R' || name [3] == 'r') | |
863 && name [4] >= '0' && name [4] <= '9' && !name [5]) | |
864 return True; | |
865 return False; | |
866 } | |
867 else | |
868 return False; | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
869 |
5626 | 870 default: |
871 return False; | |
872 } | |
873 } | |
874 | |
875 static void | |
14163
2422ceecd9d2
(instantiate_widget_instance): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
12744
diff
changeset
|
876 instantiate_widget_instance (instance) |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
877 widget_instance* instance; |
5626 | 878 { |
879 widget_creation_function function = NULL; | |
880 | |
881 #if defined (USE_LUCID) | |
882 if (!function) | |
883 function = find_in_table (instance->info->type, xlw_creation_table); | |
884 #endif | |
885 #if defined(USE_MOTIF) | |
886 if (!function) | |
887 function = find_in_table (instance->info->type, xm_creation_table); | |
888 #endif | |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
889 #if defined (USE_XAW) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
890 if (!function) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
891 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
|
892 #endif |
5626 | 893 |
894 if (!function) | |
895 { | |
896 if (dialog_spec_p (instance->info->type)) | |
897 { | |
898 #if defined (USE_LUCID) | |
899 /* not yet */ | |
900 #endif | |
901 #if defined(USE_MOTIF) | |
902 if (!function) | |
903 function = xm_create_dialog; | |
904 #endif | |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
905 #if defined (USE_XAW) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
906 if (!function) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
907 function = xaw_create_dialog; |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
908 #endif |
5626 | 909 } |
910 } | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
911 |
5626 | 912 if (!function) |
913 { | |
914 printf ("No creation function for widget type %s\n", | |
915 instance->info->type); | |
916 abort (); | |
917 } | |
918 | |
919 instance->widget = (*function) (instance); | |
920 | |
921 if (!instance->widget) | |
922 abort (); | |
923 | |
924 /* XtRealizeWidget (instance->widget);*/ | |
925 } | |
926 | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
927 void |
27335
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
928 lw_register_widget (type, name, id, val, pre_activate_cb, |
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
929 selection_cb, post_activate_cb, highlight_cb) |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
930 char* type; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
931 char* name; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
932 LWLIB_ID id; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
933 widget_value* val; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
934 lw_callback pre_activate_cb; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
935 lw_callback selection_cb; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
936 lw_callback post_activate_cb; |
27335
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
937 lw_callback highlight_cb; |
5626 | 938 { |
939 if (!get_widget_info (id, False)) | |
940 allocate_widget_info (type, name, id, val, pre_activate_cb, selection_cb, | |
27335
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
941 post_activate_cb, highlight_cb); |
5626 | 942 } |
943 | |
944 Widget | |
48480 | 945 #ifdef PROTOTYPES |
946 lw_get_widget (LWLIB_ID id, Widget parent, Boolean pop_up_p) | |
947 #else | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
948 lw_get_widget (id, parent, pop_up_p) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
949 LWLIB_ID id; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
950 Widget parent; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
951 Boolean pop_up_p; |
48480 | 952 #endif |
5626 | 953 { |
954 widget_instance* instance; | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
955 |
5626 | 956 instance = find_instance (id, parent, pop_up_p); |
957 return instance ? instance->widget : NULL; | |
958 } | |
959 | |
960 Widget | |
48480 | 961 #ifdef PROTOTYPES |
962 lw_make_widget (LWLIB_ID id, Widget parent, Boolean pop_up_p) | |
963 #else | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
964 lw_make_widget (id, parent, pop_up_p) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
965 LWLIB_ID id; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
966 Widget parent; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
967 Boolean pop_up_p; |
48480 | 968 #endif |
5626 | 969 { |
970 widget_instance* instance; | |
971 widget_info* info; | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
972 |
5626 | 973 instance = find_instance (id, parent, pop_up_p); |
974 if (!instance) | |
975 { | |
976 info = get_widget_info (id, False); | |
977 if (!info) | |
978 return NULL; | |
979 instance = allocate_widget_instance (info, parent, pop_up_p); | |
980 initialize_widget_instance (instance); | |
981 } | |
982 if (!instance->widget) | |
983 abort (); | |
984 return instance->widget; | |
985 } | |
986 | |
987 Widget | |
48480 | 988 #ifdef PROTOTYPES |
989 lw_create_widget (char* type, char* name, LWLIB_ID id, widget_value* val, | |
990 Widget parent, Boolean pop_up_p, | |
991 lw_callback pre_activate_cb, lw_callback selection_cb, | |
992 lw_callback post_activate_cb, lw_callback highlight_cb) | |
993 #else | |
27335
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
994 lw_create_widget (type, name, id, val, parent, pop_up_p, pre_activate_cb, |
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
995 selection_cb, post_activate_cb, highlight_cb) |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
996 char* type; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
997 char* name; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
998 LWLIB_ID id; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
999 widget_value* val; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1000 Widget parent; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1001 Boolean pop_up_p; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1002 lw_callback pre_activate_cb; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1003 lw_callback selection_cb; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1004 lw_callback post_activate_cb; |
27335
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
1005 lw_callback highlight_cb; |
48480 | 1006 #endif |
5626 | 1007 { |
1008 lw_register_widget (type, name, id, val, pre_activate_cb, selection_cb, | |
27335
314e947f85ea
(copy_widget_value_tree): Copy help string.
Gerd Moellmann <gerd@gnu.org>
parents:
26087
diff
changeset
|
1009 post_activate_cb, highlight_cb); |
5626 | 1010 return lw_make_widget (id, parent, pop_up_p); |
1011 } | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
1012 |
5626 | 1013 |
1014 /* destroying the widgets */ | |
1015 static void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1016 destroy_one_instance (instance) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1017 widget_instance* instance; |
5626 | 1018 { |
1019 /* Remove the destroy callback on the widget; that callback will try to | |
1020 dereference the instance object (to set its widget slot to 0, since the | |
1021 widget is dead.) Since the instance is now dead, we don't have to worry | |
1022 about the fact that its widget is dead too. | |
1023 | |
1024 This happens in the Phase2Destroy of the widget, so this callback would | |
1025 not have been run until arbitrarily long after the instance was freed. | |
1026 */ | |
1027 if (instance->widget) | |
1028 XtRemoveCallback (instance->widget, XtNdestroyCallback, | |
1029 mark_widget_destroyed, (XtPointer)instance); | |
1030 | |
1031 if (instance->widget) | |
1032 { | |
1033 /* The else are pretty tricky here, including the empty statement | |
1034 at the end because it would be very bad to destroy a widget | |
1035 twice. */ | |
1036 #if defined (USE_LUCID) | |
1037 if (lw_lucid_widget_p (instance->widget)) | |
1038 xlw_destroy_instance (instance); | |
1039 else | |
1040 #endif | |
1041 #if defined (USE_MOTIF) | |
1042 if (lw_motif_widget_p (instance->widget)) | |
1043 xm_destroy_instance (instance); | |
1044 else | |
1045 #endif | |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1046 #if defined (USE_XAW) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1047 if (lw_xaw_widget_p (instance->widget)) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1048 xaw_destroy_instance (instance); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
1049 else |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1050 #endif |
5626 | 1051 /* do not remove the empty statement */ |
1052 ; | |
1053 } | |
1054 | |
1055 free_widget_instance (instance); | |
1056 } | |
1057 | |
1058 void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1059 lw_destroy_widget (w) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1060 Widget w; |
5626 | 1061 { |
1062 widget_instance* instance = get_widget_instance (w, True); | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
1063 |
5626 | 1064 if (instance) |
1065 { | |
1066 widget_info *info = instance->info; | |
1067 /* instance has already been removed from the list; free it */ | |
1068 destroy_one_instance (instance); | |
1069 /* if there are no instances left, free the info too */ | |
1070 if (!info->instances) | |
1071 lw_destroy_all_widgets (info->id); | |
1072 } | |
1073 } | |
1074 | |
1075 void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1076 lw_destroy_all_widgets (id) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1077 LWLIB_ID id; |
5626 | 1078 { |
1079 widget_info* info = get_widget_info (id, True); | |
1080 widget_instance* instance; | |
1081 widget_instance* next; | |
1082 | |
1083 if (info) | |
1084 { | |
1085 for (instance = info->instances; instance; ) | |
1086 { | |
1087 next = instance->next; | |
1088 destroy_one_instance (instance); | |
1089 instance = next; | |
1090 } | |
1091 free_widget_info (info); | |
1092 } | |
1093 } | |
1094 | |
1095 void | |
1096 lw_destroy_everything () | |
1097 { | |
1098 while (all_widget_info) | |
1099 lw_destroy_all_widgets (all_widget_info->id); | |
1100 } | |
1101 | |
1102 void | |
1103 lw_destroy_all_pop_ups () | |
1104 { | |
1105 widget_info* info; | |
1106 widget_info* next; | |
1107 widget_instance* instance; | |
1108 | |
1109 for (info = all_widget_info; info; info = next) | |
1110 { | |
1111 next = info->next; | |
1112 instance = info->instances; | |
1113 if (instance && instance->pop_up_p) | |
1114 lw_destroy_all_widgets (info->id); | |
1115 } | |
1116 } | |
1117 | |
1118 #ifdef USE_MOTIF | |
11861 | 1119 extern Widget first_child (/* Widget */); /* garbage */ |
5626 | 1120 #endif |
1121 | |
1122 Widget | |
1123 lw_raise_all_pop_up_widgets () | |
1124 { | |
1125 widget_info* info; | |
1126 widget_instance* instance; | |
1127 Widget result = NULL; | |
1128 | |
1129 for (info = all_widget_info; info; info = info->next) | |
1130 for (instance = info->instances; instance; instance = instance->next) | |
1131 if (instance->pop_up_p) | |
1132 { | |
1133 Widget widget = instance->widget; | |
1134 if (widget) | |
1135 { | |
1136 if (XtIsManaged (widget) | |
1137 #ifdef USE_MOTIF | |
1138 /* What a complete load of crap!!!! | |
1139 When a dialogShell is on the screen, it is not managed! | |
1140 */ | |
1141 || (lw_motif_widget_p (instance->widget) && | |
1142 XtIsManaged (first_child (widget))) | |
1143 #endif | |
1144 ) | |
1145 { | |
1146 if (!result) | |
1147 result = widget; | |
1148 XMapRaised (XtDisplay (widget), XtWindow (widget)); | |
1149 } | |
1150 } | |
1151 } | |
1152 return result; | |
1153 } | |
1154 | |
1155 static void | |
48480 | 1156 #ifdef PROTOTYPES |
1157 lw_pop_all_widgets (LWLIB_ID id, Boolean up) | |
1158 #else | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1159 lw_pop_all_widgets (id, up) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1160 LWLIB_ID id; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1161 Boolean up; |
48480 | 1162 #endif |
5626 | 1163 { |
1164 widget_info* info = get_widget_info (id, False); | |
1165 widget_instance* instance; | |
1166 | |
1167 if (info) | |
1168 for (instance = info->instances; instance; instance = instance->next) | |
1169 if (instance->pop_up_p && instance->widget) | |
1170 { | |
1171 #if defined (USE_LUCID) | |
1172 if (lw_lucid_widget_p (instance->widget)) | |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1173 { |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1174 XtRealizeWidget (instance->widget); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1175 xlw_pop_instance (instance, up); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1176 } |
5626 | 1177 #endif |
1178 #if defined (USE_MOTIF) | |
1179 if (lw_motif_widget_p (instance->widget)) | |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1180 { |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1181 XtRealizeWidget (instance->widget); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1182 xm_pop_instance (instance, up); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1183 } |
5626 | 1184 #endif |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1185 #if defined (USE_XAW) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1186 if (lw_xaw_widget_p (instance->widget)) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1187 { |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1188 XtRealizeWidget (XtParent (instance->widget)); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1189 XtRealizeWidget (instance->widget); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1190 xaw_pop_instance (instance, up); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1191 } |
5626 | 1192 #endif |
1193 } | |
1194 } | |
1195 | |
1196 void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1197 lw_pop_up_all_widgets (id) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1198 LWLIB_ID id; |
5626 | 1199 { |
1200 lw_pop_all_widgets (id, True); | |
1201 } | |
1202 | |
1203 void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1204 lw_pop_down_all_widgets (id) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1205 LWLIB_ID id; |
5626 | 1206 { |
1207 lw_pop_all_widgets (id, False); | |
1208 } | |
1209 | |
1210 void | |
12744
0c5625e91a11
(lw_popup_menu): New arg event, passed along.
Richard M. Stallman <rms@gnu.org>
parents:
12187
diff
changeset
|
1211 lw_popup_menu (widget, event) |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1212 Widget widget; |
12744
0c5625e91a11
(lw_popup_menu): New arg event, passed along.
Richard M. Stallman <rms@gnu.org>
parents:
12187
diff
changeset
|
1213 XEvent *event; |
5626 | 1214 { |
1215 #if defined (USE_LUCID) | |
1216 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
|
1217 xlw_popup_menu (widget, event); |
5626 | 1218 #endif |
1219 #if defined (USE_MOTIF) | |
1220 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
|
1221 xm_popup_menu (widget, event); |
5626 | 1222 #endif |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1223 #if defined (USE_XAW) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1224 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
|
1225 xaw_popup_menu (widget, event); |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1226 #endif |
5626 | 1227 } |
1228 | |
1229 /* get the values back */ | |
1230 static Boolean | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1231 get_one_value (instance, val) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1232 widget_instance* instance; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1233 widget_value* val; |
5626 | 1234 { |
1235 Widget widget = name_to_widget (instance, val->name); | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
1236 |
5626 | 1237 if (widget) |
1238 { | |
1239 #if defined (USE_LUCID) | |
1240 if (lw_lucid_widget_p (instance->widget)) | |
1241 xlw_update_one_value (instance, widget, val); | |
1242 #endif | |
1243 #if defined (USE_MOTIF) | |
1244 if (lw_motif_widget_p (instance->widget)) | |
1245 xm_update_one_value (instance, widget, val); | |
1246 #endif | |
6305
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1247 #if defined (USE_XAW) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1248 if (lw_xaw_widget_p (instance->widget)) |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1249 xaw_update_one_value (instance, widget, val); |
65beaa9aa1e4
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5999
diff
changeset
|
1250 #endif |
5626 | 1251 return True; |
1252 } | |
1253 else | |
1254 return False; | |
1255 } | |
1256 | |
1257 Boolean | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1258 lw_get_some_values (id, val_out) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1259 LWLIB_ID id; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1260 widget_value* val_out; |
5626 | 1261 { |
1262 widget_info* info = get_widget_info (id, False); | |
1263 widget_instance* instance; | |
1264 widget_value* val; | |
1265 Boolean result = False; | |
1266 | |
1267 if (!info) | |
1268 return False; | |
1269 | |
1270 instance = info->instances; | |
1271 if (!instance) | |
1272 return False; | |
1273 | |
1274 for (val = val_out; val; val = val->next) | |
1275 if (get_one_value (instance, val)) | |
1276 result = True; | |
1277 | |
1278 return result; | |
1279 } | |
1280 | |
1281 widget_value* | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1282 lw_get_all_values (id) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1283 LWLIB_ID id; |
5626 | 1284 { |
1285 widget_info* info = get_widget_info (id, False); | |
1286 widget_value* val = info->val; | |
1287 if (lw_get_some_values (id, val)) | |
1288 return val; | |
1289 else | |
1290 return NULL; | |
1291 } | |
1292 | |
1293 /* internal function used by the library dependent implementation to get the | |
1294 widget_value for a given widget in an instance */ | |
1295 widget_value* | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1296 lw_get_widget_value_for_widget (instance, w) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1297 widget_instance* instance; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1298 Widget w; |
5626 | 1299 { |
1300 char* name = XtName (w); | |
1301 widget_value* cur; | |
1302 for (cur = instance->info->val; cur; cur = cur->next) | |
1303 if (!strcmp (cur->name, name)) | |
1304 return cur; | |
1305 return NULL; | |
1306 } | |
1307 | |
1308 /* 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
|
1309 |
37d38d8040a1
(lw_internal_update_other_instances): Move static var
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
1310 /* To forbid recursive calls */ |
37d38d8040a1
(lw_internal_update_other_instances): Move static var
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
1311 static Boolean lwlib_updating; |
37d38d8040a1
(lw_internal_update_other_instances): Move static var
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
1312 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
1313 /* This function can be used as a an XtCallback for the widgets that get |
5626 | 1314 modified to update other instances of the widgets. Closure should be the |
1315 widget_instance. */ | |
1316 void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1317 lw_internal_update_other_instances (widget, closure, call_data) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1318 Widget widget; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1319 XtPointer closure; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1320 XtPointer call_data; |
5626 | 1321 { |
1322 widget_instance* instance = (widget_instance*)closure; | |
1323 char* name = XtName (widget); | |
1324 widget_info* info; | |
1325 widget_instance* cur; | |
1326 widget_value* val; | |
1327 | |
14594
37d38d8040a1
(lw_internal_update_other_instances): Move static var
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
1328 /* Avoid possibly infinite recursion. */ |
37d38d8040a1
(lw_internal_update_other_instances): Move static var
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
1329 if (lwlib_updating) |
5626 | 1330 return; |
1331 | |
1332 /* protect against the widget being destroyed */ | |
1333 if (XtWidgetBeingDestroyedP (widget)) | |
1334 return; | |
1335 | |
1336 /* Return immediately if there are no other instances */ | |
1337 info = instance->info; | |
1338 if (!info->instances->next) | |
1339 return; | |
1340 | |
14594
37d38d8040a1
(lw_internal_update_other_instances): Move static var
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
1341 lwlib_updating = True; |
5626 | 1342 |
1343 for (val = info->val; val && strcmp (val->name, name); val = val->next); | |
1344 | |
1345 if (val && get_one_value (instance, val)) | |
1346 for (cur = info->instances; cur; cur = cur->next) | |
1347 if (cur != instance) | |
1348 set_one_value (cur, val, True); | |
1349 | |
14594
37d38d8040a1
(lw_internal_update_other_instances): Move static var
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
1350 lwlib_updating = False; |
5626 | 1351 } |
1352 | |
1353 | |
1354 /* get the id */ | |
1355 | |
1356 LWLIB_ID | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1357 lw_get_widget_id (w) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1358 Widget w; |
5626 | 1359 { |
1360 widget_instance* instance = get_widget_instance (w, False); | |
1361 | |
1362 return instance ? instance->info->id : 0; | |
1363 } | |
1364 | |
1365 /* set the keyboard focus */ | |
1366 void | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1367 lw_set_keyboard_focus (parent, w) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1368 Widget parent; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1369 Widget w; |
5626 | 1370 { |
1371 #if defined (USE_MOTIF) | |
1372 xm_set_keyboard_focus (parent, w); | |
1373 #else | |
1374 XtSetKeyboardFocus (parent, w); | |
1375 #endif | |
1376 } | |
1377 | |
1378 /* Show busy */ | |
1379 static void | |
48480 | 1380 #ifdef PROTOTYPES |
1381 show_one_widget_busy (Widget w, Boolean flag) | |
1382 #else | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1383 show_one_widget_busy (w, flag) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1384 Widget w; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1385 Boolean flag; |
48480 | 1386 #endif |
5626 | 1387 { |
1388 Pixel foreground = 0; | |
1389 Pixel background = 1; | |
1390 Widget widget_to_invert = XtNameToWidget (w, "*sheet"); | |
1391 if (!widget_to_invert) | |
1392 widget_to_invert = w; | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
1393 |
5626 | 1394 XtVaGetValues (widget_to_invert, |
1395 XtNforeground, &foreground, | |
1396 XtNbackground, &background, | |
30571 | 1397 NULL); |
5626 | 1398 XtVaSetValues (widget_to_invert, |
1399 XtNforeground, background, | |
1400 XtNbackground, foreground, | |
30571 | 1401 NULL); |
5626 | 1402 } |
1403 | |
1404 void | |
48480 | 1405 #ifdef PROTOTYPES |
1406 lw_show_busy (Widget w, Boolean busy) | |
1407 #else | |
5724
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1408 lw_show_busy (w, busy) |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1409 Widget w; |
02a4aeb69cae
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
5706
diff
changeset
|
1410 Boolean busy; |
48480 | 1411 #endif |
5626 | 1412 { |
1413 widget_instance* instance = get_widget_instance (w, False); | |
1414 widget_info* info; | |
1415 widget_instance* next; | |
1416 | |
1417 if (instance) | |
1418 { | |
1419 info = instance->info; | |
1420 if (info->busy != busy) | |
1421 { | |
1422 for (next = info->instances; next; next = next->next) | |
1423 if (next->widget) | |
1424 show_one_widget_busy (next->widget, busy); | |
1425 info->busy = busy; | |
1426 } | |
1427 } | |
1428 } | |
8785 | 1429 |
1430 /* This hack exists because Lucid/Athena need to execute the strange | |
1431 function below to support geometry management. */ | |
1432 void | |
48480 | 1433 #ifdef PROTOTYPES |
1434 lw_refigure_widget (Widget w, Boolean doit) | |
1435 #else | |
8785 | 1436 lw_refigure_widget (w, doit) |
1437 Widget w; | |
1438 Boolean doit; | |
48480 | 1439 #endif |
8785 | 1440 { |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48480
diff
changeset
|
1441 #if defined (USE_XAW) |
8785 | 1442 XawPanedSetRefigureMode (w, doit); |
1443 #endif | |
1444 #if defined (USE_MOTIF) | |
1445 if (doit) | |
11714
b62d02709ec7
(lw_refigure_widget) [USE_MOTIF]: Fix backward if.
Richard M. Stallman <rms@gnu.org>
parents:
11676
diff
changeset
|
1446 XtManageChild (w); |
8785 | 1447 else |
11714
b62d02709ec7
(lw_refigure_widget) [USE_MOTIF]: Fix backward if.
Richard M. Stallman <rms@gnu.org>
parents:
11676
diff
changeset
|
1448 XtUnmanageChild (w); |
8785 | 1449 #endif |
1450 } | |
1451 | |
1452 /* Toolkit independent way of determining if an event window is in the | |
1453 menubar. */ | |
1454 Boolean | |
1455 lw_window_is_in_menubar (win, menubar_widget) | |
1456 Window win; | |
1457 Widget menubar_widget; | |
1458 { | |
1459 return menubar_widget | |
1460 #if defined (USE_LUCID) | |
1461 && XtWindow (menubar_widget) == win; | |
1462 #endif | |
1463 #if defined (USE_MOTIF) | |
14663
d9cafe0ebb7d
(lw_window_is_in_menubar) [USE_MOTIF]:
Richard M. Stallman <rms@gnu.org>
parents:
14611
diff
changeset
|
1464 && ((XtWindow (menubar_widget) == win) |
d9cafe0ebb7d
(lw_window_is_in_menubar) [USE_MOTIF]:
Richard M. Stallman <rms@gnu.org>
parents:
14611
diff
changeset
|
1465 || (XtWindowToWidget (XtDisplay (menubar_widget), win) |
d9cafe0ebb7d
(lw_window_is_in_menubar) [USE_MOTIF]:
Richard M. Stallman <rms@gnu.org>
parents:
14611
diff
changeset
|
1466 && (XtParent (XtWindowToWidget (XtDisplay (menubar_widget), win)) |
d9cafe0ebb7d
(lw_window_is_in_menubar) [USE_MOTIF]:
Richard M. Stallman <rms@gnu.org>
parents:
14611
diff
changeset
|
1467 == menubar_widget))); |
8785 | 1468 #endif |
1469 } | |
1470 | |
1471 /* Motif hack to set the main window areas. */ | |
1472 void | |
1473 lw_set_main_areas (parent, menubar, work_area) | |
1474 Widget parent; | |
1475 Widget menubar; | |
1476 Widget work_area; | |
1477 { | |
1478 #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
|
1479 xm_set_main_areas (parent, menubar, work_area); |
8785 | 1480 #endif |
1481 } | |
1482 | |
1483 /* Manage resizing for Motif. This disables resizing when the menubar | |
1484 is about to be modified. */ | |
1485 void | |
48480 | 1486 #ifdef PROTOTYPES |
1487 lw_allow_resizing (Widget w, Boolean flag) | |
1488 #else | |
8785 | 1489 lw_allow_resizing (w, flag) |
1490 Widget w; | |
1491 Boolean flag; | |
48480 | 1492 #endif |
8785 | 1493 { |
1494 #if defined (USE_MOTIF) | |
9226
fc3f748ccf9e
(lw_set_main_areas): Use xm_set_main_areas().
Paul Reilly <pmr@pajato.com>
parents:
9093
diff
changeset
|
1495 xm_manage_resizing (w, flag); |
8785 | 1496 #endif |
1497 } | |
25036 | 1498 |
1499 | |
1500 /* Value is non-zero if LABEL is a menu separator. If it is, *TYPE is | |
1501 set to an appropriate enumerator of type enum menu_separator. | |
1502 MOTIF_P non-zero means map separator types not supported by Motif | |
1503 to similar ones that are supported. */ | |
1504 | |
1505 int | |
1506 lw_separator_p (label, type, motif_p) | |
1507 char *label; | |
1508 enum menu_separator *type; | |
1509 int motif_p; | |
1510 { | |
32040
02773dbde247
(lw_separator_p): Init separator_p (bug with "-- some text").
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
30571
diff
changeset
|
1511 int separator_p = 0; |
25036 | 1512 |
1513 if (strlen (label) >= 3 | |
1514 && bcmp (label, "--:", 3) == 0) | |
1515 { | |
1516 static struct separator_table | |
1517 { | |
1518 char *name; | |
1519 enum menu_separator type; | |
1520 } | |
1521 separator_names[] = | |
1522 { | |
42120
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1523 {"space", SEPARATOR_NO_LINE}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1524 {"noLine", SEPARATOR_NO_LINE}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1525 {"singleLine", SEPARATOR_SINGLE_LINE}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1526 {"doubleLine", SEPARATOR_DOUBLE_LINE}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1527 {"singleDashedLine", SEPARATOR_SINGLE_DASHED_LINE}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1528 {"doubleDashedLine", SEPARATOR_DOUBLE_DASHED_LINE}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1529 {"shadowEtchedIn", SEPARATOR_SHADOW_ETCHED_IN}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1530 {"shadowEtchedOut", SEPARATOR_SHADOW_ETCHED_OUT}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1531 {"shadowEtchedInDash", SEPARATOR_SHADOW_ETCHED_IN_DASH}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1532 {"shadowEtchedOutDash", SEPARATOR_SHADOW_ETCHED_OUT_DASH}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1533 {"shadowDoubleEtchedIn", SEPARATOR_SHADOW_DOUBLE_ETCHED_IN}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1534 {"shadowDoubleEtchedOut", SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1535 {"shadowDoubleEtchedInDash", SEPARATOR_SHADOW_DOUBLE_ETCHED_IN_DASH}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1536 {"shadowDoubleEtchedOutDash", SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT_DASH}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1537 {0,0} |
25036 | 1538 }; |
1539 | |
1540 int i; | |
1541 | |
1542 label += 3; | |
1543 for (i = 0; separator_names[i].name; ++i) | |
1544 if (strcmp (label, separator_names[i].name) == 0) | |
1545 { | |
1546 separator_p = 1; | |
1547 *type = separator_names[i].type; | |
1548 | |
1549 /* If separator type is not supported under Motif, | |
1550 use a similar one. */ | |
1551 if (motif_p && *type >= SEPARATOR_SHADOW_DOUBLE_ETCHED_IN) | |
1552 *type -= 4; | |
1553 break; | |
1554 } | |
1555 } | |
25562
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1556 else if (strlen (label) > 3 |
25718
096f3085e905
(lw_separator_p): Check for new-style separators
Gerd Moellmann <gerd@gnu.org>
parents:
25627
diff
changeset
|
1557 && bcmp (label, "--", 2) == 0 |
096f3085e905
(lw_separator_p): Check for new-style separators
Gerd Moellmann <gerd@gnu.org>
parents:
25627
diff
changeset
|
1558 && label[2] != '-') |
25562
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1559 { |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1560 /* Alternative, more Emacs-style names. */ |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1561 static struct separator_table |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1562 { |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1563 char *name; |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1564 enum menu_separator type; |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1565 } |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1566 separator_names[] = |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1567 { |
42120
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1568 {"space", SEPARATOR_NO_LINE}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1569 {"no-line", SEPARATOR_NO_LINE}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1570 {"single-line", SEPARATOR_SINGLE_LINE}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1571 {"double-line", SEPARATOR_DOUBLE_LINE}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1572 {"single-dashed-line", SEPARATOR_SINGLE_DASHED_LINE}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1573 {"double-dashed-line", SEPARATOR_DOUBLE_DASHED_LINE}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1574 {"shadow-etched-in", SEPARATOR_SHADOW_ETCHED_IN}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1575 {"shadow-etched-out", SEPARATOR_SHADOW_ETCHED_OUT}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1576 {"shadow-etched-in-dash", SEPARATOR_SHADOW_ETCHED_IN_DASH}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1577 {"shadow-etched-out-dash", SEPARATOR_SHADOW_ETCHED_OUT_DASH}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1578 {"shadow-double-etched-in", SEPARATOR_SHADOW_DOUBLE_ETCHED_IN}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1579 {"shadow-double-etched-out", SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1580 {"shadow-double-etched-in-dash", SEPARATOR_SHADOW_DOUBLE_ETCHED_IN_DASH}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1581 {"shadow-double-etched-out-dash",SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT_DASH}, |
87f989b9dad5
(separator_names): Add missing braces around initializers.
Pavel Janík <Pavel@Janik.cz>
parents:
41765
diff
changeset
|
1582 {0,0} |
25562
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1583 }; |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1584 |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1585 int i; |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1586 |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1587 label += 2; |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1588 for (i = 0; separator_names[i].name; ++i) |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1589 if (strcmp (label, separator_names[i].name) == 0) |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1590 { |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1591 separator_p = 1; |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1592 *type = separator_names[i].type; |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1593 |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1594 /* If separator type is not supported under Motif, |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1595 use a similar one. */ |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1596 if (motif_p && *type >= SEPARATOR_SHADOW_DOUBLE_ETCHED_IN) |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1597 *type -= 4; |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1598 break; |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1599 } |
374f4e51615c
(lw_separator_p): Add alternative separator type names.
Gerd Moellmann <gerd@gnu.org>
parents:
25036
diff
changeset
|
1600 } |
25036 | 1601 else |
1602 { | |
1603 /* Old-style separator, maybe. It's a separator if it contains | |
1604 only dashes. */ | |
1605 while (*label == '-') | |
1606 ++label; | |
1607 separator_p = *label == 0; | |
1608 *type = SEPARATOR_SHADOW_ETCHED_IN; | |
1609 } | |
1610 | |
1611 return separator_p; | |
1612 } | |
1613 | |
52401 | 1614 /* arch-tag: 3d730f36-a441-4a71-9971-48ef3b5a4d9f |
1615 (do not change this comment) */ |