annotate lwlib/lwlib.c @ 108988:65de28008783

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