Mercurial > emacs
annotate lwlib/lwlib-Xolmb.c @ 15420:877d4b6fd768
(term-terminal-menu): Don't make a self-recursive keymap.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 12 Jun 1996 21:45:45 +0000 |
parents | ee40177f6c68 |
children | 7fb1caba0f51 |
rev | line source |
---|---|
5628 | 1 /* An OLIT menubar widget, by Chuck Thompson <cthomp@cs.uiuc.edu> |
2 Copyright (C) 1993 Lucid, Inc. | |
3 | |
4 This file is part of the Lucid Widget Library. | |
5 | |
6 The Lucid Widget Library is free software; you can redistribute it and/or | |
7 modify it under the terms of the GNU General Public License as published by | |
8 the Free Software Foundation; either version 1, or (at your option) | |
9 any later version. | |
10 | |
11 The Lucid Widget Library is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
5628
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:
5628
diff
changeset
|
19 Boston, MA 02111-1307, USA. */ |
5628 | 20 |
21 #include <X11/IntrinsicP.h> | |
22 #include <X11/Intrinsic.h> | |
23 #include <X11/CompositeP.h> | |
24 #include <X11/Composite.h> | |
25 #include "lwlib-Xol-mbP.h" | |
26 #include "lwlib-Xol-mb.h" | |
27 | |
28 #define HORIZ_SPACING 4 | |
29 #define VERT_SPACING 4 | |
30 | |
31 static void Initialize(); | |
32 static void Resize(); | |
33 static void ChangeManaged(); | |
34 static Boolean SetValues(); | |
35 static XtGeometryResult GeometryManager(); | |
36 static XtGeometryResult PreferredSize(); | |
37 static void do_layout(); | |
38 static XtGeometryResult try_layout(); | |
39 | |
40 lwMenuBarClassRec lwMenubarClassRec = | |
41 { | |
42 { | |
43 /* core_class members */ | |
44 | |
45 (WidgetClass) &compositeClassRec, /* superclass */ | |
46 "Menubar", /* class_name */ | |
47 sizeof(lwMenuBarRec), /* widget_size */ | |
48 NULL, /* class_initialize */ | |
49 NULL, /* class_part_initialize */ | |
50 FALSE, /* class_inited */ | |
51 Initialize, /* initialize */ | |
52 NULL, /* initialize_hook */ | |
53 XtInheritRealize, /* realize */ | |
54 NULL, /* actions */ | |
55 0, /* num_actions */ | |
56 NULL, /* resources */ | |
57 0, /* num_resources */ | |
58 NULLQUARK, /* xrm_class */ | |
59 TRUE, /* compress_motion */ | |
60 XtExposeCompressMaximal, /* compress_exposure */ | |
61 TRUE, /* compress_enterleave */ | |
62 FALSE, /* visible_interest */ | |
63 NULL, /* destroy */ | |
64 Resize, /* resize */ | |
65 NULL, /* expose */ | |
66 NULL, /* set_values */ | |
67 NULL, /* set_values_hook */ | |
68 XtInheritSetValuesAlmost, /* set_values_almost */ | |
69 NULL, /* get_values_hook */ | |
70 NULL, /* accept_focus */ | |
71 XtVersion, /* version */ | |
72 NULL, /* callback_private */ | |
73 NULL, /* tm_table */ | |
74 PreferredSize, /* query_geometry */ | |
75 NULL, /* display_accelerator */ | |
76 NULL, /* extension */ | |
77 }, | |
78 { | |
79 /* composite_class members */ | |
80 | |
81 GeometryManager, /* geometry_manager */ | |
82 ChangeManaged, /* change_managed */ | |
83 XtInheritInsertChild, /* insert_child */ | |
84 XtInheritDeleteChild, /* delete_child */ | |
85 NULL, /* extension */ | |
86 }, | |
87 { | |
88 /* Menubar class members */ | |
89 | |
90 0, /* empty */ | |
91 } | |
92 }; | |
93 WidgetClass lwMenubarWidgetClass = (WidgetClass) &lwMenubarClassRec; | |
94 | |
95 | |
96 static void Initialize (request, new) | |
97 lwMenuBarWidget request, new; | |
98 { | |
99 if (request->core.width <= 0) | |
100 new->core.width = 1; | |
101 if (request->core.height <= 0) | |
102 new->core.height = 23; | |
103 } | |
104 | |
105 static void | |
106 Resize (w) | |
107 lwMenuBarWidget w; | |
108 { | |
109 do_layout(w); | |
110 } | |
111 | |
112 static void | |
113 do_layout (parent) | |
114 lwMenuBarWidget parent; | |
115 { | |
116 Widget child; | |
117 int cnt; | |
118 int managed_children = 0; | |
119 int managed_width = 0; | |
120 int new_pos = 0; | |
121 | |
122 /* | |
123 * Determine number of children which will fit on one line. | |
124 * For now we ignore the rest, making sure they are unmanaged. | |
125 */ | |
126 | |
127 cnt = 0; | |
128 while ((cnt < (int) parent->composite.num_children) && | |
129 (managed_width < (int) parent->core.width)) | |
130 { | |
131 child = parent->composite.children[cnt++]; | |
132 managed_children++; | |
133 managed_width += child->core.width + child->core.border_width * 2 + | |
134 HORIZ_SPACING; | |
135 } | |
136 | |
137 if (managed_width > (int) parent->core.width) | |
138 managed_children--; | |
139 | |
140 /* | |
141 * Correct positioning of children. | |
142 */ | |
143 | |
144 cnt = 0; | |
145 while (managed_children) | |
146 { | |
147 child = parent->composite.children[cnt++]; | |
148 | |
149 if (!child->core.managed) | |
150 XtManageChild (child); | |
151 | |
152 if ((child->core.x != new_pos) || (child->core.y != 0)) | |
153 XtMoveWidget (child, new_pos, 0); | |
154 new_pos += child->core.width + child->core.border_width * 2 + | |
155 HORIZ_SPACING; | |
156 | |
157 managed_children--; | |
158 } | |
159 | |
160 /* | |
161 * Make sure all remaining children are unmanaged. | |
162 */ | |
163 | |
164 while (cnt < parent->composite.num_children) | |
165 { | |
166 child = parent->composite.children[cnt]; | |
167 | |
168 if (child->core.managed) | |
169 XtUnmanageChild (child); | |
170 | |
171 if ((child->core.x != parent->core.width) || | |
172 (child->core.y != parent->core.height)) | |
173 XtMoveWidget (child, parent->core.width, parent->core.height); | |
174 | |
175 cnt++; | |
176 } | |
177 } | |
178 | |
179 | |
180 static XtGeometryResult | |
181 PreferredSize (w, request, preferred) | |
182 lwMenuBarWidget w; | |
183 XtWidgetGeometry *request, *preferred; | |
184 { | |
185 Widget child; | |
186 int cnt; | |
187 | |
188 /* | |
189 * If no changes are being made to the width or height, just agree. | |
190 */ | |
191 | |
192 if (!(request->request_mode & CWWidth) && | |
193 !(request->request_mode & CWHeight)) | |
194 return (XtGeometryYes); | |
195 | |
196 /* | |
197 * Right now assume everything goes in one row. Calculate the | |
198 * minimum required width and height. | |
199 */ | |
200 | |
201 preferred->width = 0; | |
202 preferred->height = 0; | |
203 | |
204 for (cnt = 0; cnt < w->composite.num_children; cnt++) | |
205 { | |
206 child = w->composite.children[cnt]; | |
207 if (child->core.managed) | |
208 { | |
209 preferred->width += child->core.width + child->core.border_width*2 + | |
210 HORIZ_SPACING; | |
211 if (preferred->height < (Dimension) (child->core.height + | |
212 child->core.border_width * 2)) | |
213 preferred->height = child->core.height + | |
214 child->core.border_width * 2; | |
215 } | |
216 } | |
217 | |
218 preferred->request_mode = CWWidth | CWHeight; | |
219 | |
220 /* | |
221 * Case: both height and width requested | |
222 */ | |
223 | |
224 if ((request->request_mode & CWWidth) && | |
225 (request->request_mode & CWHeight)) | |
226 { | |
227 /* | |
228 * Ok if same or bigger. | |
229 */ | |
230 | |
231 if (preferred->width <= request->width && | |
232 preferred->height <= request->height) | |
233 { | |
234 preferred->width = request->width; | |
235 return (XtGeometryYes); | |
236 } | |
237 | |
238 /* | |
239 * If both dimensions are too small, say no. | |
240 */ | |
241 | |
242 else | |
243 if (preferred->width > request->width && | |
244 preferred->height > request->height) | |
245 return (XtGeometryNo); | |
246 | |
247 /* | |
248 * Otherwise one must be right, so say almost. | |
249 */ | |
250 | |
251 else | |
252 return (XtGeometryAlmost); | |
253 } | |
254 | |
255 /* | |
256 * If only one dimension is requested, either its OK or it isn't. | |
257 */ | |
258 | |
259 else | |
260 { | |
261 if (request->request_mode & CWWidth) | |
262 { | |
263 if (preferred->width <= request->width) | |
264 { | |
265 preferred->width = request->width; | |
266 return (XtGeometryYes); | |
267 } | |
268 else | |
269 return (XtGeometryNo); | |
270 } | |
271 else if (request->request_mode & CWHeight) | |
272 { | |
273 if (preferred->height <= request->height) | |
274 { | |
275 return (XtGeometryYes); | |
276 } | |
277 else | |
278 return (XtGeometryNo); | |
279 } | |
280 | |
281 return (XtGeometryYes); | |
282 } | |
283 } | |
284 | |
285 | |
286 static XtGeometryResult | |
287 GeometryManager (w, request, reply) | |
288 Widget w; | |
289 XtWidgetGeometry *request; | |
290 XtWidgetGeometry *reply; | |
291 { | |
292 | |
293 lwMenuBarWidget parent = (lwMenuBarWidget) w->core.parent; | |
294 | |
295 /* | |
296 * If the widget wants to move, just say no. | |
297 */ | |
298 | |
299 if ((request->request_mode & CWX && request->x != w->core.x) || | |
300 (request->request_mode & CWY && request->y != w->core.y)) | |
301 return (XtGeometryNo); | |
302 | |
303 /* | |
304 * Since everything "fits" for now, grant all requests. | |
305 */ | |
306 | |
307 if (request->request_mode & CWWidth) | |
308 w->core.width = request->width; | |
309 if (request->request_mode & CWHeight) | |
310 w->core.height = request->height; | |
311 if (request->request_mode & CWBorderWidth) | |
312 w->core.border_width = request->border_width; | |
313 | |
314 do_layout (parent); | |
315 return (XtGeometryYes); | |
316 } | |
317 | |
318 | |
319 static XtGeometryResult | |
320 try_layout (parent) | |
321 lwMenuBarWidget parent; | |
322 { | |
323 Widget child; | |
324 int cnt; | |
325 int managed_children = 0; | |
326 int managed_width = 0; | |
327 int new_pos = 0; | |
328 | |
329 /* | |
330 * Determine number of children which will fit on one line. | |
331 * For now we ignore the rest, making sure they are unmanaged. | |
332 */ | |
333 | |
334 cnt = 0; | |
335 while ((cnt < (int) parent->composite.num_children) && | |
336 (managed_width < (int) parent->core.width)) | |
337 { | |
338 child = parent->composite.children[cnt++]; | |
339 if (child->core.managed) | |
340 { | |
341 managed_children++; | |
342 managed_width += child->core.width + child->core.border_width * 2 + | |
343 HORIZ_SPACING; | |
344 } | |
345 } | |
346 | |
347 if (managed_width > (int) parent->core.width) | |
348 return (XtGeometryNo); | |
349 else | |
350 return (XtGeometryYes); | |
351 } | |
352 | |
353 | |
354 | |
355 static void | |
356 ChangeManaged (w) | |
357 lwMenuBarWidget w; | |
358 { | |
359 XtGeometryResult result; | |
360 | |
361 result = try_layout (w); | |
362 | |
363 if (result != XtGeometryYes) | |
364 { | |
365 XtUnmanageChild (w->composite.children[w->composite.num_children - 1]); | |
366 XtMoveWidget (w->composite.children[w->composite.num_children-1], | |
367 w->core.width, w->core.height); | |
368 } | |
369 | |
370 do_layout (w); | |
371 } |