annotate lwlib/lwlib.c @ 14788:a3b8405017f4

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