Mercurial > emacs
annotate lwlib/lwlib-Xaw.c @ 56812:16152de85a64
Adapt sectioning in Info to the node structure.
Adapt node pointers to change in emacs.texi.
author | Luc Teirlinck <teirllm@auburn.edu> |
---|---|
date | Fri, 27 Aug 2004 23:38:35 +0000 |
parents | 609ef1718642 |
children | 4ee3b3653b2e |
rev | line source |
---|---|
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
1 /* The lwlib interface to Athena widgets. |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
2 Copyright (C) 1993 Chuck Thompson <cthomp@cs.uiuc.edu> |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
3 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
4 This file is part of the Lucid Widget Library. |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
5 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48488
diff
changeset
|
6 The Lucid Widget Library is free software; you can redistribute it and/or |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
7 modify it under the terms of the GNU General Public License as published by |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
8 the Free Software Foundation; either version 1, or (at your option) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
9 any later version. |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
10 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
11 The Lucid Widget Library is distributed in the hope that it will be useful, |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48488
diff
changeset
|
12 but WITHOUT ANY WARRANTY; without even the implied warranty of |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
14 GNU General Public License for more details. |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
15 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
16 You should have received a copy of the GNU General Public License |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
17 along with GNU Emacs; see the file COPYING. If not, write to |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11462
diff
changeset
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
11462
diff
changeset
|
19 Boston, MA 02111-1307, USA. */ |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
20 |
26087
e0d966fb548f
Add support for large files, plus some locale improvements.
Paul Eggert <eggert@twinsun.com>
parents:
25754
diff
changeset
|
21 #ifdef HAVE_CONFIG_H |
e0d966fb548f
Add support for large files, plus some locale improvements.
Paul Eggert <eggert@twinsun.com>
parents:
25754
diff
changeset
|
22 #include <config.h> |
e0d966fb548f
Add support for large files, plus some locale improvements.
Paul Eggert <eggert@twinsun.com>
parents:
25754
diff
changeset
|
23 #endif |
e0d966fb548f
Add support for large files, plus some locale improvements.
Paul Eggert <eggert@twinsun.com>
parents:
25754
diff
changeset
|
24 |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
25 #include <stdio.h> |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
26 |
41767 | 27 #include "../src/lisp.h" |
28 | |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
29 #include "lwlib-Xaw.h" |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
30 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
31 #include <X11/StringDefs.h> |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
32 #include <X11/IntrinsicP.h> |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
33 #include <X11/CoreP.h> |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
34 #include <X11/Shell.h> |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
35 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
36 #include <X11/Xaw/Scrollbar.h> |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
37 #include <X11/Xaw/Paned.h> |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
38 #include <X11/Xaw/Dialog.h> |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
39 #include <X11/Xaw/Form.h> |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
40 #include <X11/Xaw/Command.h> |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
41 #include <X11/Xaw/Label.h> |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
42 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
43 #include <X11/Xatom.h> |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
44 |
6833
5a3216dd6b70
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
6623
diff
changeset
|
45 static void xaw_generic_callback (/*Widget, XtPointer, XtPointer*/); |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
46 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
47 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
48 Boolean |
6333
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
49 lw_xaw_widget_p (widget) |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
50 Widget widget; |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
51 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
52 return (XtIsSubclass (widget, scrollbarWidgetClass) || |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
53 XtIsSubclass (widget, dialogWidgetClass)); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
54 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
55 |
42999
0dd2c7d849f5
(xaw_update_scrollbar, xaw_scrollbar_scroll)
Pavel Janík <Pavel@Janik.cz>
parents:
42630
diff
changeset
|
56 #if 0 |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
57 static void |
6333
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
58 xaw_update_scrollbar (instance, widget, val) |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
59 widget_instance *instance; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
60 Widget widget; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
61 widget_value *val; |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
62 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
63 if (val->scrollbar_data) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
64 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
65 scrollbar_values *data = val->scrollbar_data; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
66 Dimension height, width; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
67 Dimension pos_x, pos_y; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
68 int widget_shown, widget_topOfThumb; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
69 float new_shown, new_topOfThumb; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
70 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
71 XtVaGetValues (widget, |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
72 XtNheight, &height, |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
73 XtNwidth, &width, |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
74 XtNx, &pos_x, |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
75 XtNy, &pos_y, |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
76 XtNtopOfThumb, &widget_topOfThumb, |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
77 XtNshown, &widget_shown, |
30571 | 78 NULL); |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
79 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
80 /* |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
81 * First size and position the scrollbar widget. |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
82 * We need to position it to second-guess the Paned widget's notion |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
83 * of what should happen when the WMShell gets resized. |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
84 */ |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
85 if (height != data->scrollbar_height || pos_y != data->scrollbar_pos) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
86 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
87 XtConfigureWidget (widget, pos_x, data->scrollbar_pos, |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
88 width, data->scrollbar_height, 0); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
89 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
90 XtVaSetValues (widget, |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
91 XtNlength, data->scrollbar_height, |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
92 XtNthickness, width, |
30571 | 93 NULL); |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
94 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
95 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
96 /* |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
97 * Now the size the scrollbar's slider. |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
98 */ |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
99 new_shown = (float) data->slider_size / |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
100 (float) (data->maximum - data->minimum); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
101 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
102 new_topOfThumb = (float) (data->slider_position - data->minimum) / |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
103 (float) (data->maximum - data->minimum); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
104 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
105 if (new_shown > 1.0) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
106 new_shown = 1.0; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
107 if (new_shown < 0) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
108 new_shown = 0; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
109 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
110 if (new_topOfThumb > 1.0) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
111 new_topOfThumb = 1.0; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
112 if (new_topOfThumb < 0) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
113 new_topOfThumb = 0; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
114 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
115 if (new_shown != widget_shown || new_topOfThumb != widget_topOfThumb) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
116 XawScrollbarSetThumb (widget, new_topOfThumb, new_shown); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
117 } |
42999
0dd2c7d849f5
(xaw_update_scrollbar, xaw_scrollbar_scroll)
Pavel Janík <Pavel@Janik.cz>
parents:
42630
diff
changeset
|
118 } |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
119 #endif |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
120 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
121 void |
48488
3336a76643ef
Provide ISO C arglists for functions
Dave Love <fx@gnu.org>
parents:
42999
diff
changeset
|
122 #ifdef PROTOTYPES |
3336a76643ef
Provide ISO C arglists for functions
Dave Love <fx@gnu.org>
parents:
42999
diff
changeset
|
123 xaw_update_one_widget (widget_instance *instance, Widget widget, |
3336a76643ef
Provide ISO C arglists for functions
Dave Love <fx@gnu.org>
parents:
42999
diff
changeset
|
124 widget_value *val, Boolean deep_p) |
3336a76643ef
Provide ISO C arglists for functions
Dave Love <fx@gnu.org>
parents:
42999
diff
changeset
|
125 #else |
6333
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
126 xaw_update_one_widget (instance, widget, val, deep_p) |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
127 widget_instance *instance; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
128 Widget widget; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
129 widget_value *val; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
130 Boolean deep_p; |
48488
3336a76643ef
Provide ISO C arglists for functions
Dave Love <fx@gnu.org>
parents:
42999
diff
changeset
|
131 #endif |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
132 { |
6425
e884cf1153d7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
6335
diff
changeset
|
133 #if 0 |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
134 if (XtIsSubclass (widget, scrollbarWidgetClass)) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
135 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
136 xaw_update_scrollbar (instance, widget, val); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
137 } |
6425
e884cf1153d7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
6335
diff
changeset
|
138 #endif |
e884cf1153d7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
6335
diff
changeset
|
139 if (XtIsSubclass (widget, dialogWidgetClass)) |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
140 { |
6335
fe5cb6ca692a
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6333
diff
changeset
|
141 Arg al[1]; |
fe5cb6ca692a
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6333
diff
changeset
|
142 int ac = 0; |
fe5cb6ca692a
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6333
diff
changeset
|
143 XtSetArg (al[ac], XtNlabel, val->contents->value); ac++; |
fe5cb6ca692a
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6333
diff
changeset
|
144 XtSetValues (widget, al, ac); |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
145 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
146 else if (XtIsSubclass (widget, commandWidgetClass)) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
147 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
148 Dimension bw = 0; |
6425
e884cf1153d7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
6335
diff
changeset
|
149 Arg al[3]; |
e884cf1153d7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
6335
diff
changeset
|
150 |
30571 | 151 XtVaGetValues (widget, XtNborderWidth, &bw, NULL); |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
152 if (bw == 0) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
153 /* Don't let buttons end up with 0 borderwidth, that's ugly... |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
154 Yeah, all this should really be done through app-defaults files |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
155 or fallback resources, but that's a whole different can of worms |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
156 that I don't feel like opening right now. Making Athena widgets |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
157 not look like shit is just entirely too much work. |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
158 */ |
6425
e884cf1153d7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
6335
diff
changeset
|
159 { |
e884cf1153d7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
6335
diff
changeset
|
160 XtSetArg (al[0], XtNborderWidth, 1); |
e884cf1153d7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
6335
diff
changeset
|
161 XtSetValues (widget, al, 1); |
e884cf1153d7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
6335
diff
changeset
|
162 } |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
163 |
36438
78f5e669dc5e
(xaw_update_one_widget): Use XtSetSensitive instead
Gerd Moellmann <gerd@gnu.org>
parents:
30571
diff
changeset
|
164 XtSetSensitive (widget, val->enabled); |
6425
e884cf1153d7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
6335
diff
changeset
|
165 XtSetArg (al[0], XtNlabel, val->value); |
e884cf1153d7
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
6335
diff
changeset
|
166 /* Force centered button text. Se above. */ |
36438
78f5e669dc5e
(xaw_update_one_widget): Use XtSetSensitive instead
Gerd Moellmann <gerd@gnu.org>
parents:
30571
diff
changeset
|
167 XtSetArg (al[1], XtNjustify, XtJustifyCenter); |
78f5e669dc5e
(xaw_update_one_widget): Use XtSetSensitive instead
Gerd Moellmann <gerd@gnu.org>
parents:
30571
diff
changeset
|
168 XtSetValues (widget, al, 2); |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
169 XtRemoveAllCallbacks (widget, XtNcallback); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
170 XtAddCallback (widget, XtNcallback, xaw_generic_callback, instance); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
171 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
172 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
173 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
174 void |
6333
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
175 xaw_update_one_value (instance, widget, val) |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
176 widget_instance *instance; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
177 Widget widget; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
178 widget_value *val; |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
179 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
180 /* This function is not used by the scrollbars and those are the only |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
181 Athena widget implemented at the moment so do nothing. */ |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
182 return; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
183 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
184 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
185 void |
6333
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
186 xaw_destroy_instance (instance) |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
187 widget_instance *instance; |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
188 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
189 if (XtIsSubclass (instance->widget, dialogWidgetClass)) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
190 /* Need to destroy the Shell too. */ |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
191 XtDestroyWidget (XtParent (instance->widget)); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
192 else |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
193 XtDestroyWidget (instance->widget); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
194 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
195 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
196 void |
29465 | 197 xaw_popup_menu (widget, event) |
6333
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
198 Widget widget; |
29465 | 199 XEvent *event; |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
200 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
201 /* An Athena menubar has not been implemented. */ |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
202 return; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
203 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
204 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
205 void |
48488
3336a76643ef
Provide ISO C arglists for functions
Dave Love <fx@gnu.org>
parents:
42999
diff
changeset
|
206 #ifdef PROTOTYPES |
3336a76643ef
Provide ISO C arglists for functions
Dave Love <fx@gnu.org>
parents:
42999
diff
changeset
|
207 xaw_pop_instance (widget_instance *instance, Boolean up) |
3336a76643ef
Provide ISO C arglists for functions
Dave Love <fx@gnu.org>
parents:
42999
diff
changeset
|
208 #else |
6333
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
209 xaw_pop_instance (instance, up) |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
210 widget_instance *instance; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
211 Boolean up; |
48488
3336a76643ef
Provide ISO C arglists for functions
Dave Love <fx@gnu.org>
parents:
42999
diff
changeset
|
212 #endif |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
213 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
214 Widget widget = instance->widget; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
215 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
216 if (up) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
217 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
218 if (XtIsSubclass (widget, dialogWidgetClass)) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
219 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
220 /* For dialogs, we need to call XtPopup on the parent instead |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
221 of calling XtManageChild on the widget. |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
222 Also we need to hack the shell's WM_PROTOCOLS to get it to |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
223 understand what the close box is supposed to do!! |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
224 */ |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
225 Display *dpy = XtDisplay (widget); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
226 Widget shell = XtParent (widget); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
227 Atom props [2]; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
228 int i = 0; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
229 props [i++] = XInternAtom (dpy, "WM_DELETE_WINDOW", False); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
230 XChangeProperty (dpy, XtWindow (shell), |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
231 XInternAtom (dpy, "WM_PROTOCOLS", False), |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
232 XA_ATOM, 32, PropModeAppend, |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
233 (unsigned char *) props, i); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
234 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
235 /* Center the widget in its parent. Why isn't this kind of crap |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
236 done automatically? I thought toolkits were supposed to make |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
237 life easier? |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
238 */ |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
239 { |
11462
b3c30d040767
(xaw_pop_instance): Make x, y, w, h unsigned.
Richard M. Stallman <rms@gnu.org>
parents:
8785
diff
changeset
|
240 unsigned int x, y, w, h; |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
241 Widget topmost = instance->parent; |
8785 | 242 Arg args[2]; |
243 | |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
244 w = shell->core.width; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
245 h = shell->core.height; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
246 while (topmost->core.parent && XtIsRealized (topmost->core.parent)) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
247 topmost = topmost->core.parent; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
248 if (topmost->core.width < w) x = topmost->core.x; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
249 else x = topmost->core.x + ((topmost->core.width - w) / 2); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
250 if (topmost->core.height < h) y = topmost->core.y; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
251 else y = topmost->core.y + ((topmost->core.height - h) / 2); |
8785 | 252 /* Using XtMoveWidget caused the widget to come |
253 out in the wrong place with vtwm. | |
254 Question of virtual vs real coords, perhaps. */ | |
255 XtSetArg (args[0], XtNx, x); | |
256 XtSetArg (args[1], XtNy, y); | |
257 XtSetValues (shell, args, 2); | |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
258 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
259 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
260 /* Finally, pop it up. */ |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
261 XtPopup (shell, XtGrabNonexclusive); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
262 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
263 else |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
264 XtManageChild (widget); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
265 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
266 else |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
267 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
268 if (XtIsSubclass (widget, dialogWidgetClass)) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
269 XtUnmanageChild (XtParent (widget)); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
270 else |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
271 XtUnmanageChild (widget); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
272 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
273 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
274 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
275 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
276 /* Dialog boxes */ |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
277 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
278 static char overrideTrans[] = |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
279 "<Message>WM_PROTOCOLS: lwlib_delete_dialog()"; |
53564
609ef1718642
Changes for lucid popup menus (keyboard traversal enabled) and dialogs
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
280 /* Dialogs pop down on any key press */ |
609ef1718642
Changes for lucid popup menus (keyboard traversal enabled) and dialogs
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
281 static char dialogOverride[] = |
609ef1718642
Changes for lucid popup menus (keyboard traversal enabled) and dialogs
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
282 "<KeyPress>: lwlib_delete_dialog()"; |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
283 static void wm_delete_window(); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
284 static XtActionsRec xaw_actions [] = { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
285 {"lwlib_delete_dialog", wm_delete_window} |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
286 }; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
287 static Boolean actions_initted = False; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
288 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
289 static Widget |
6333
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
290 make_dialog (name, parent, pop_up_p, shell_title, icon_name, text_input_slot, radio_box, list, left_buttons, right_buttons) |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
291 char* name; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
292 Widget parent; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
293 Boolean pop_up_p; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
294 char* shell_title; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
295 char* icon_name; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
296 Boolean text_input_slot; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
297 Boolean radio_box; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
298 Boolean list; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
299 int left_buttons; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
300 int right_buttons; |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
301 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
302 Arg av [20]; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
303 int ac = 0; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
304 int i, bc; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
305 char button_name [255]; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
306 Widget shell; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
307 Widget dialog; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
308 Widget button; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
309 XtTranslations override; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
310 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
311 if (! pop_up_p) abort (); /* not implemented */ |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
312 if (text_input_slot) abort (); /* not implemented */ |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
313 if (radio_box) abort (); /* not implemented */ |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
314 if (list) abort (); /* not implemented */ |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
315 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
316 if (! actions_initted) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
317 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
318 XtAppContext app = XtWidgetToApplicationContext (parent); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
319 XtAppAddActions (app, xaw_actions, |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
320 sizeof (xaw_actions) / sizeof (xaw_actions[0])); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
321 actions_initted = True; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
322 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
323 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
324 override = XtParseTranslationTable (overrideTrans); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
325 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
326 ac = 0; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
327 XtSetArg (av[ac], XtNtitle, shell_title); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
328 XtSetArg (av[ac], XtNallowShellResize, True); ac++; |
6623
1d60a75efa87
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6425
diff
changeset
|
329 |
1d60a75efa87
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6425
diff
changeset
|
330 /* Don't allow any geometry request from the user. */ |
1d60a75efa87
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6425
diff
changeset
|
331 XtSetArg (av[ac], XtNgeometry, 0); ac++; |
1d60a75efa87
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6425
diff
changeset
|
332 |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
333 shell = XtCreatePopupShell ("dialog", transientShellWidgetClass, |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
334 parent, av, ac); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
335 XtOverrideTranslations (shell, override); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
336 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
337 ac = 0; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
338 dialog = XtCreateManagedWidget (name, dialogWidgetClass, shell, av, ac); |
53564
609ef1718642
Changes for lucid popup menus (keyboard traversal enabled) and dialogs
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
339 override = XtParseTranslationTable (dialogOverride); |
609ef1718642
Changes for lucid popup menus (keyboard traversal enabled) and dialogs
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
340 XtOverrideTranslations (dialog, override); |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
341 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
342 bc = 0; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
343 button = 0; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
344 for (i = 0; i < left_buttons; i++) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
345 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
346 ac = 0; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
347 XtSetArg (av [ac], XtNfromHoriz, button); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
348 XtSetArg (av [ac], XtNleft, XtChainLeft); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
349 XtSetArg (av [ac], XtNright, XtChainLeft); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
350 XtSetArg (av [ac], XtNtop, XtChainBottom); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
351 XtSetArg (av [ac], XtNbottom, XtChainBottom); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
352 XtSetArg (av [ac], XtNresizable, True); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
353 sprintf (button_name, "button%d", ++bc); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
354 button = XtCreateManagedWidget (button_name, commandWidgetClass, |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
355 dialog, av, ac); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
356 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
357 if (right_buttons) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
358 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
359 /* Create a separator |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
360 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
361 I want the separator to take up the slack between the buttons on |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
362 the right and the buttons on the left (that is I want the buttons |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
363 after the separator to be packed against the right edge of the |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48488
diff
changeset
|
364 window) but I can't seem to make it do it. |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
365 */ |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
366 ac = 0; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
367 XtSetArg (av [ac], XtNfromHoriz, button); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
368 /* XtSetArg (av [ac], XtNfromVert, XtNameToWidget (dialog, "label")); ac++; */ |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
369 XtSetArg (av [ac], XtNleft, XtChainLeft); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
370 XtSetArg (av [ac], XtNright, XtChainRight); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
371 XtSetArg (av [ac], XtNtop, XtChainBottom); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
372 XtSetArg (av [ac], XtNbottom, XtChainBottom); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
373 XtSetArg (av [ac], XtNlabel, ""); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
374 XtSetArg (av [ac], XtNwidth, 30); ac++; /* #### aaack!! */ |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
375 XtSetArg (av [ac], XtNborderWidth, 0); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
376 XtSetArg (av [ac], XtNshapeStyle, XmuShapeRectangle); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
377 XtSetArg (av [ac], XtNresizable, False); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
378 XtSetArg (av [ac], XtNsensitive, False); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
379 button = XtCreateManagedWidget ("separator", |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
380 /* labelWidgetClass, */ |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
381 /* This has to be Command to fake out |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
382 the Dialog widget... */ |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
383 commandWidgetClass, |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
384 dialog, av, ac); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
385 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
386 for (i = 0; i < right_buttons; i++) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
387 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
388 ac = 0; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
389 XtSetArg (av [ac], XtNfromHoriz, button); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
390 XtSetArg (av [ac], XtNleft, XtChainRight); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
391 XtSetArg (av [ac], XtNright, XtChainRight); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
392 XtSetArg (av [ac], XtNtop, XtChainBottom); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
393 XtSetArg (av [ac], XtNbottom, XtChainBottom); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
394 XtSetArg (av [ac], XtNresizable, True); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
395 sprintf (button_name, "button%d", ++bc); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
396 button = XtCreateManagedWidget (button_name, commandWidgetClass, |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
397 dialog, av, ac); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
398 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
399 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
400 return dialog; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
401 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
402 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
403 Widget |
6333
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
404 xaw_create_dialog (instance) |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
405 widget_instance* instance; |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
406 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
407 char *name = instance->info->type; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
408 Widget parent = instance->parent; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
409 Widget widget; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
410 Boolean pop_up_p = instance->pop_up_p; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
411 char *shell_name = 0; |
42630
cb6cc5b71c35
(xaw_create_dialog): Initialize icon_name to suppress compiler warnings.
Pavel Janík <Pavel@Janik.cz>
parents:
41767
diff
changeset
|
412 char *icon_name = 0; |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
413 Boolean text_input_slot = False; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
414 Boolean radio_box = False; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
415 Boolean list = False; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
416 int total_buttons; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
417 int left_buttons = 0; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
418 int right_buttons = 1; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
419 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
420 switch (name [0]) { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
421 case 'E': case 'e': |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
422 icon_name = "dbox-error"; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
423 shell_name = "Error"; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
424 break; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
425 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
426 case 'I': case 'i': |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
427 icon_name = "dbox-info"; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
428 shell_name = "Information"; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
429 break; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
430 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
431 case 'L': case 'l': |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
432 list = True; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
433 icon_name = "dbox-question"; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
434 shell_name = "Prompt"; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
435 break; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
436 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
437 case 'P': case 'p': |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
438 text_input_slot = True; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
439 icon_name = "dbox-question"; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
440 shell_name = "Prompt"; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
441 break; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
442 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
443 case 'Q': case 'q': |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
444 icon_name = "dbox-question"; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
445 shell_name = "Question"; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
446 break; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
447 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48488
diff
changeset
|
448 |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
449 total_buttons = name [1] - '0'; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
450 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
451 if (name [3] == 'T' || name [3] == 't') |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
452 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
453 text_input_slot = False; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
454 radio_box = True; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
455 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
456 else if (name [3]) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
457 right_buttons = name [4] - '0'; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48488
diff
changeset
|
458 |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
459 left_buttons = total_buttons - right_buttons; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48488
diff
changeset
|
460 |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
461 widget = make_dialog (name, parent, pop_up_p, |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
462 shell_name, icon_name, text_input_slot, radio_box, |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
463 list, left_buttons, right_buttons); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
464 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
465 return widget; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
466 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
467 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
468 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
469 static void |
6333
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
470 xaw_generic_callback (widget, closure, call_data) |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
471 Widget widget; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
472 XtPointer closure; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
473 XtPointer call_data; |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
474 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
475 widget_instance *instance = (widget_instance *) closure; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
476 Widget instance_widget; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
477 LWLIB_ID id; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
478 XtPointer user_data; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
479 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
480 lw_internal_update_other_instances (widget, closure, call_data); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
481 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
482 if (! instance) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
483 return; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
484 if (widget->core.being_destroyed) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
485 return; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
486 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
487 instance_widget = instance->widget; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
488 if (!instance_widget) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
489 return; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
490 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
491 id = instance->info->id; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
492 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
493 #if 0 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
494 user_data = NULL; |
30571 | 495 XtVaGetValues (widget, XtNuserData, &user_data, NULL); |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
496 #else |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
497 /* Damn! Athena doesn't give us a way to hang our own data on the |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
498 buttons, so we have to go find it... I guess this assumes that |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
499 all instances of a button have the same call data. */ |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
500 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
501 widget_value *val = instance->info->val->contents; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
502 char *name = XtName (widget); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
503 while (val) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
504 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
505 if (val->name && !strcmp (val->name, name)) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
506 break; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
507 val = val->next; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
508 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
509 if (! val) abort (); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
510 user_data = val->call_data; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
511 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
512 #endif |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
513 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
514 if (instance->info->selection_cb) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
515 instance->info->selection_cb (widget, id, user_data); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
516 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
517 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
518 static void |
53564
609ef1718642
Changes for lucid popup menus (keyboard traversal enabled) and dialogs
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
519 wm_delete_window (w, closure, call_data) |
609ef1718642
Changes for lucid popup menus (keyboard traversal enabled) and dialogs
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
520 Widget w; |
6333
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
521 XtPointer closure; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
522 XtPointer call_data; |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
523 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
524 LWLIB_ID id; |
25754
d4de526fb0e0
(wm_delete_window): Check all the shell's children,
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
525 Cardinal nkids; |
d4de526fb0e0
(wm_delete_window): Check all the shell's children,
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
526 int i; |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
527 Widget *kids = 0; |
53564
609ef1718642
Changes for lucid popup menus (keyboard traversal enabled) and dialogs
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
528 Widget widget, shell; |
609ef1718642
Changes for lucid popup menus (keyboard traversal enabled) and dialogs
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
529 |
609ef1718642
Changes for lucid popup menus (keyboard traversal enabled) and dialogs
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
530 if (XtIsSubclass (w, dialogWidgetClass)) |
609ef1718642
Changes for lucid popup menus (keyboard traversal enabled) and dialogs
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
531 shell = XtParent (w); |
609ef1718642
Changes for lucid popup menus (keyboard traversal enabled) and dialogs
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
532 else |
609ef1718642
Changes for lucid popup menus (keyboard traversal enabled) and dialogs
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
533 shell = w; |
609ef1718642
Changes for lucid popup menus (keyboard traversal enabled) and dialogs
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
534 |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
535 if (! XtIsSubclass (shell, shellWidgetClass)) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
536 abort (); |
30571 | 537 XtVaGetValues (shell, XtNnumChildren, &nkids, NULL); |
538 XtVaGetValues (shell, XtNchildren, &kids, NULL); | |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
539 if (!kids || !*kids) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
540 abort (); |
25754
d4de526fb0e0
(wm_delete_window): Check all the shell's children,
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
541 for (i = 0; i < nkids; i++) |
d4de526fb0e0
(wm_delete_window): Check all the shell's children,
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
542 { |
d4de526fb0e0
(wm_delete_window): Check all the shell's children,
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
543 widget = kids[i]; |
d4de526fb0e0
(wm_delete_window): Check all the shell's children,
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
544 if (XtIsSubclass (widget, dialogWidgetClass)) |
d4de526fb0e0
(wm_delete_window): Check all the shell's children,
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
545 break; |
d4de526fb0e0
(wm_delete_window): Check all the shell's children,
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
546 } |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
547 id = lw_get_widget_id (widget); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
548 if (! id) abort (); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
549 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
550 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
551 widget_info *info = lw_get_widget_info (id); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
552 if (! info) abort (); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
553 if (info->selection_cb) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
554 info->selection_cb (widget, id, (XtPointer) -1); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
555 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
556 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
557 lw_destroy_all_widgets (id); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
558 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
559 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
560 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
561 /* Scrollbars */ |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
562 |
42999
0dd2c7d849f5
(xaw_update_scrollbar, xaw_scrollbar_scroll)
Pavel Janík <Pavel@Janik.cz>
parents:
42630
diff
changeset
|
563 #if 0 |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
564 static void |
6333
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
565 xaw_scrollbar_scroll (widget, closure, call_data) |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
566 Widget widget; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
567 XtPointer closure; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
568 XtPointer call_data; |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
569 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
570 widget_instance *instance = (widget_instance *) closure; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
571 LWLIB_ID id; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
572 scroll_event event_data; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
573 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
574 if (!instance || widget->core.being_destroyed) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
575 return; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
576 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
577 id = instance->info->id; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
578 event_data.slider_value = 0; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
579 event_data.time = 0; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
580 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
581 if ((int) call_data > 0) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
582 event_data.action = SCROLLBAR_PAGE_DOWN; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
583 else |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
584 event_data.action = SCROLLBAR_PAGE_UP; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
585 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
586 if (instance->info->pre_activate_cb) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
587 instance->info->pre_activate_cb (widget, id, (XtPointer) &event_data); |
42999
0dd2c7d849f5
(xaw_update_scrollbar, xaw_scrollbar_scroll)
Pavel Janík <Pavel@Janik.cz>
parents:
42630
diff
changeset
|
588 } |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
589 #endif |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
590 |
42999
0dd2c7d849f5
(xaw_update_scrollbar, xaw_scrollbar_scroll)
Pavel Janík <Pavel@Janik.cz>
parents:
42630
diff
changeset
|
591 #if 0 |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
592 static void |
6333
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
593 xaw_scrollbar_jump (widget, closure, call_data) |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
594 Widget widget; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
595 XtPointer closure; |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
596 XtPointer call_data; |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
597 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
598 widget_instance *instance = (widget_instance *) closure; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
599 LWLIB_ID id; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
600 scroll_event event_data; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
601 scrollbar_values *val = |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
602 (scrollbar_values *) instance->info->val->scrollbar_data; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
603 float percent; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
604 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
605 if (!instance || widget->core.being_destroyed) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
606 return; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
607 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
608 id = instance->info->id; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
609 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
610 percent = * (float *) call_data; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
611 event_data.slider_value = |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
612 (int) (percent * (float) (val->maximum - val->minimum)) + val->minimum; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
613 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
614 event_data.time = 0; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
615 event_data.action = SCROLLBAR_DRAG; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
616 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
617 if (instance->info->pre_activate_cb) |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
618 instance->info->pre_activate_cb (widget, id, (XtPointer) &event_data); |
42999
0dd2c7d849f5
(xaw_update_scrollbar, xaw_scrollbar_scroll)
Pavel Janík <Pavel@Janik.cz>
parents:
42630
diff
changeset
|
619 } |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
620 #endif |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
621 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
622 static Widget |
6333
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
623 xaw_create_scrollbar (instance) |
f3fe542e8cd7
*** empty log message ***
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
6302
diff
changeset
|
624 widget_instance *instance; |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
625 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
626 #if 0 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
627 Arg av[20]; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
628 int ac = 0; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
629 Dimension width; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
630 Widget scrollbar; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
631 |
30571 | 632 XtVaGetValues (instance->parent, XtNwidth, &width, NULL); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48488
diff
changeset
|
633 |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
634 XtSetArg (av[ac], XtNshowGrip, 0); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
635 XtSetArg (av[ac], XtNresizeToPreferred, 1); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
636 XtSetArg (av[ac], XtNallowResize, True); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
637 XtSetArg (av[ac], XtNskipAdjust, True); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
638 XtSetArg (av[ac], XtNwidth, width); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
639 XtSetArg (av[ac], XtNmappedWhenManaged, True); ac++; |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
640 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
641 scrollbar = |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
642 XtCreateWidget (instance->info->name, scrollbarWidgetClass, |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
643 instance->parent, av, ac); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
644 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
645 /* We have to force the border width to be 0 otherwise the |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
646 geometry manager likes to start looping for awhile... */ |
30571 | 647 XtVaSetValues (scrollbar, XtNborderWidth, 0, NULL); |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
648 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
649 XtRemoveAllCallbacks (scrollbar, "jumpProc"); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
650 XtRemoveAllCallbacks (scrollbar, "scrollProc"); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
651 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
652 XtAddCallback (scrollbar, "jumpProc", xaw_scrollbar_jump, |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
653 (XtPointer) instance); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
654 XtAddCallback (scrollbar, "scrollProc", xaw_scrollbar_scroll, |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
655 (XtPointer) instance); |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
656 |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
657 return scrollbar; |
39721
e33afc45e39d
(xaw_create_scrollbar) [!0]: Return NULL.
Gerd Moellmann <gerd@gnu.org>
parents:
36438
diff
changeset
|
658 #else |
e33afc45e39d
(xaw_create_scrollbar) [!0]: Return NULL.
Gerd Moellmann <gerd@gnu.org>
parents:
36438
diff
changeset
|
659 return NULL; |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
660 #endif |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
661 } |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
662 |
8785 | 663 static Widget |
664 xaw_create_main (instance) | |
665 widget_instance *instance; | |
666 { | |
667 Arg al[1]; | |
668 int ac; | |
669 | |
670 /* Create a vertical Paned to hold menubar */ | |
671 ac = 0; | |
672 XtSetArg (al[ac], XtNborderWidth, 0); ac++; | |
673 return XtCreateWidget (instance->info->name, panedWidgetClass, | |
674 instance->parent, al, ac); | |
675 } | |
676 | |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
677 widget_creation_entry |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
678 xaw_creation_table [] = |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
679 { |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
680 {"scrollbar", xaw_create_scrollbar}, |
8785 | 681 {"main", xaw_create_main}, |
6302
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
682 {NULL, NULL} |
f407e83e1aa4
Initial revision
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
diff
changeset
|
683 }; |
52401 | 684 |
685 /* arch-tag: fbbd3589-ae1c-41a0-9142-f628cfee6564 | |
686 (do not change this comment) */ |