annotate lwlib/lwlib.c @ 12559:c4daa54a92fc

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