Mercurial > hg > xemacs-beta

comparison src/EmacsShell-sub.c @ 428:3ecd8885ac67 r21-2-22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-22
author cvs
date Mon, 13 Aug 2007 11:28:15 +0200
parents
children 8de8e3f6228a
comparison
equal deleted inserted replaced
427:0a0253eac470 428:3ecd8885ac67
1 /* Emacs shell widget -- define the two widgets.
2 Copyright (C) 1994, 1995 Sun Microsystems, Inc.
3
4 This file is part of XEmacs.
5
6 XEmacs is free software; you can redistribute it and/or modify it
7 under the terms of the GNU General Public License as published by the
8 Free Software Foundation; either version 2, or (at your option) any
9 later version.
10
11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
14 for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with XEmacs; see the file COPYING. If not, write to
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
20
21 /* Synched up with: Not in FSF. */
22
23 /* Written by Ben Wing, May, 1994. */
24
25 /*
26 It is rather unfortunate that we have to do this. Blame those
27 short-sighted people who designed the monstrosities known as
28 Xt and ICCCM.
29 */
30
31 /*
32 This widget is not actually Emacs-specific; perhaps there could
33 be a better name than "EmacsShell". What it does is work around
34 a limitation in Xt in correctly dealing with the window-manager
35 size hints with applications that
36
37 (a) dynamically change their window size
38 (b) have a cell size (width-inc and height-inc) other than 1
39
40 and
41
42 (c) cannot predict in advance exactly what size their shell will be
43 (This is the more common situation, when you have a number
44 of widgets, each with their own size ideas)
45
46 This widget assumes that your program contains a fixed "base size"
47 plus some number of cells (e.g. character cells). The WMShell
48 resources "widthInc" and "heightInc" specify the size of a
49 character cell, and the window manager will report the app's
50 size in cells rather than in pixels.
51
52 If you use this widget, do not use the WMShell resources
53 "baseWidth", "baseHeight", "minWidth", or "minHeight".
54 Instead, use "widthCells" and "heightCells" to specify the
55 current size in cells (you must keep this up-to-date),
56 and "minWidthCells" and "minHeightCells" to specify the
57 minimum size in cells.
58
59 Every time that the program issues a size command, the
60 "baseWidth", "baseHeight", "minWidth", and "minHeight" fields
61 of the WM_NORMAL_HINTS property will be updated to stay in
62 line with the resource values specified above. The calculations
63 are done once the desired shell size is known but before the
64 window-manager size-change request is issued. (We must do it
65 at this time because before then we don't know what size we
66 will request, and after the request the deed has already
67 been done.)
68
69 After you change the "baseWidth", "baseHeight", "minWidth",
70 or "minHeight" resources, you need to call
71 EmacsShellUpdateSizeHints() to manually update the size
72 hints, except in the following two circumstances:
73
74 (a) you are about to make a geometry request.
75 (b) you are changing only "baseWidth" and "baseHeight"
76 from within a resize procedure. (In this case,
77 the size hints are already correct.)
78
79 */
80
81 #include <config.h>
82
83 #include <stdio.h>
84 #include <stdlib.h>
85 #include <X11/StringDefs.h>
86 #include "xintrinsicp.h"
87 #include <X11/Shell.h>
88 #include <X11/ShellP.h>
89 #include <X11/Vendor.h>
90 #include <X11/VendorP.h>
91 #include "EmacsShellP.h"
92
93 #if defined (DEFINE_TOP_LEVEL_EMACS_SHELL)
94 #define EMACS_SHELL_WIDGET TopLevelEmacsShellWidget
95 #define SUPERCLASS_WIDGET_CLASS topLevelShellWidgetClass
96 #define SUPERCLASS_CLASS_REC topLevelShellClassRec
97 #define EMACS_SHELL_REC TopLevelEmacsShellRec
98 #define EMACS_SHELL_CLASS_REC topLevelEmacsShellClassRec
99 #define EMACS_SHELL_CLASS_REC_TYPE TopLevelEmacsShellClassRec
100 #define EMACS_SHELL_CLASS_NAME "TopLevelEmacsShell"
101 #define EMACS_SHELL_WIDGET_CLASS topLevelEmacsShellWidgetClass
102 #define EMACS_SHELL_UPDATE_SIZE_HINTS TopLevelEmacsShellUpdateSizeHints
103 #elif defined (DEFINE_TRANSIENT_EMACS_SHELL)
104 #define EMACS_SHELL_WIDGET TransientEmacsShellWidget
105 #define SUPERCLASS_WIDGET_CLASS transientShellWidgetClass
106 #define SUPERCLASS_CLASS_REC transientShellClassRec
107 #define EMACS_SHELL_REC TransientEmacsShellRec
108 #define EMACS_SHELL_CLASS_REC transientEmacsShellClassRec
109 #define EMACS_SHELL_CLASS_REC_TYPE TransientEmacsShellClassRec
110 #define EMACS_SHELL_CLASS_NAME "TransientEmacsShell"
111 #define EMACS_SHELL_WIDGET_CLASS transientEmacsShellWidgetClass
112 #define EMACS_SHELL_UPDATE_SIZE_HINTS TransientEmacsShellUpdateSizeHints
113 #else
114 Error. Must define either DEFINE_TOP_LEVEL_EMACS_SHELL or
115 DEFINE_TRANSIENT_EMACS_SHELL.
116 #endif
117
118 typedef struct {
119 XtPointer next_extension;
120 XrmQuark record_type;
121 long version;
122 Cardinal record_size;
123 } GenericClassExtRec;
124
125 static XtGeometryResult RootGeometryManager (Widget gw,
126 XtWidgetGeometry *request, XtWidgetGeometry *reply);
127 static void ChangeManaged (Widget w);
128
129 /* snarfed from Shell.c */
130 #define BIGSIZE ((Dimension)32767)
131
132 static XtResource resources[] = {
133 #define offset(field) XtOffset(EMACS_SHELL_WIDGET, emacs_shell.field)
134 #define coreoffset(field) XtOffset(EMACS_SHELL_WIDGET, core.field)
135 #ifdef LWLIB_USES_MOTIF
136 /* *** BOGOSITY^10! *** The Motif VendorShell fucks around with
137 the default values for X and Y, for no obvious reason. This
138 causes Shell to indicate that the defaults of (0,0) were
139 program-specified, instead of letting the WM do what it wants. */
140 {XtNx, XtCPosition, XtRPosition, sizeof(Position),
141 coreoffset (x), XtRImmediate, (XtPointer)BIGSIZE},
142 {XtNy, XtCPosition, XtRPosition, sizeof(Position),
143 coreoffset (y), XtRImmediate, (XtPointer)BIGSIZE},
144 #endif
145 { XtNwidthCells, XtCWidthCells, XtRInt, sizeof(int),
146 offset (width_cells), XtRImmediate, (XtPointer)0},
147 { XtNheightCells, XtCHeightCells, XtRInt, sizeof(int),
148 offset (height_cells), XtRImmediate, (XtPointer)0},
149 { XtNminWidthCells, XtCMinWidthCells, XtRInt, sizeof(int),
150 offset (min_width_cells), XtRImmediate, (XtPointer)0},
151 { XtNminHeightCells, XtCMinHeightCells, XtRInt, sizeof(int),
152 offset (min_height_cells), XtRImmediate, (XtPointer)0},
153 };
154
155 static CompositeClassExtensionRec compositeClassExtRec = {
156 NULL,
157 NULLQUARK,
158 XtCompositeExtensionVersion,
159 sizeof(CompositeClassExtensionRec),
160 TRUE,
161 };
162
163 static ShellClassExtensionRec shellClassExtRec = {
164 NULL,
165 NULLQUARK,
166 XtShellExtensionVersion,
167 sizeof(ShellClassExtensionRec),
168 RootGeometryManager
169 };
170
171 EMACS_SHELL_CLASS_REC_TYPE EMACS_SHELL_CLASS_REC = {
172 { /*
173 * core_class fields
174 */
175 /* superclass */ (WidgetClass) &SUPERCLASS_CLASS_REC,
176 /* class_name */ (String) EMACS_SHELL_CLASS_NAME,
177 /* size */ sizeof(EMACS_SHELL_REC),
178 /* Class Initializer */ NULL,
179 /* class_part_initialize*/ NULL, /* XtInheritClassPartInitialize, */
180 /* Class init'ed ? */ FALSE,
181 /* initialize */ NULL,
182 /* initialize_notify */ NULL,
183 /* realize */ XtInheritRealize,
184 /* actions */ NULL,
185 /* num_actions */ 0,
186 /* resources */ resources,
187 /* resource_count */ XtNumber (resources),
188 /* xrm_class */ NULLQUARK,
189 /* compress_motion */ FALSE,
190 /* compress_exposure */ TRUE,
191 /* compress_enterleave*/ FALSE,
192 /* visible_interest */ TRUE,
193 /* destroy */ NULL,
194 /* resize */ XtInheritResize,
195 /* expose */ NULL,
196 /* set_values */ NULL, /* XtInheritSetValues, */
197 /* set_values_hook */ NULL,
198 /* set_values_almost */ XtInheritSetValuesAlmost,
199 /* get_values_hook */ NULL,
200 /* accept_focus */ NULL,
201 /* intrinsics version */ XtVersion,
202 /* callback offsets */ NULL,
203 /* tm_table */ NULL,
204 /* query_geometry */ NULL,
205 /* display_accelerator*/ NULL,
206 /* extension */ NULL
207 },{ /* Composite */
208 /* geometry_manager */ XtInheritGeometryManager,
209 /* change_managed */ ChangeManaged,
210 /* insert_child */ XtInheritInsertChild,
211 /* delete_child */ XtInheritDeleteChild,
212 /* extension */ (XtPointer)&compositeClassExtRec
213 },{ /* Shell */
214 /* extension */ (XtPointer)&shellClassExtRec
215 },{ /* WMShell */
216 /* extension */ NULL
217 },{ /* VendorShell */
218 /* extension */ NULL
219 },{ /* TopLevelShell or TransientShell */
220 /* both have exactly one XtPointer here. */
221 /* extension */ NULL
222 },{ /* EmacsShell */
223 0
224 }
225 };
226
227 WidgetClass EMACS_SHELL_WIDGET_CLASS = (WidgetClass) &EMACS_SHELL_CLASS_REC;
228
229 static void
230 update_size_hints_internal (EMACS_SHELL_WIDGET w,
231 int width, int height)
232 {
233 int base_width, base_height;
234 int cell_width, cell_height;
235 Arg al [10];
236
237 /* time to update them thar size hints */
238 cell_width = w->wm.size_hints.width_inc;
239 cell_height = w->wm.size_hints.height_inc;
240 base_width = width - cell_width * w->emacs_shell.width_cells;
241 base_height = height - cell_height * w->emacs_shell.height_cells;
242 #ifdef DEBUG_GEOMETRY_MANAGEMENT
243 /* Very useful info when debugging geometry management problems.
244 When it's guaranteed that no more such problems exist, take
245 this stuff out. */
246 printf ("update_size_hints_internal:\n");
247 printf (" actual pixel size: %d %d\n", width, height);
248 printf (" cell size in pixels: %d %d\n", cell_width, cell_height);
249 printf (" text area size in cells: %d %d\n", w->emacs_shell.width_cells,
250 w->emacs_shell.height_cells);
251 printf (" base size set to: %d %d\n", base_width, base_height);
252 fflush (stdout);
253 #endif
254 XtSetArg(al [0], XtNbaseWidth, base_width);
255 XtSetArg(al [1], XtNbaseHeight, base_height);
256 XtSetArg(al [2], XtNminWidth, base_width +
257 cell_width * w->emacs_shell.min_width_cells);
258 XtSetArg(al [3], XtNminHeight, base_height +
259 cell_height * w->emacs_shell.min_height_cells);
260 XtSetValues ((Widget) w, al, 4);
261 }
262
263 static XtGeometryResult
264 SuperClassRootGeometryManager (Widget gw,
265 XtWidgetGeometry *request,
266 XtWidgetGeometry *reply)
267 {
268 ShellWidgetClass swc = (ShellWidgetClass) SUPERCLASS_WIDGET_CLASS;
269 ShellClassExtensionRec *scer;
270 GenericClassExtRec *gcer;
271
272 /* find the shell extension record that specifies the
273 root geometry manager method */
274 for (gcer = (GenericClassExtRec *) swc->shell_class.extension;
275 gcer;
276 gcer = (GenericClassExtRec *) gcer->next_extension)
277 {
278 if (gcer->record_type == NULLQUARK)
279 break;
280 }
281
282 if (!gcer)
283 abort ();
284
285 /* call it to actually make the geometry request */
286 scer = (ShellClassExtensionRec *) gcer;
287 return (scer->root_geometry_manager)(gw, request, reply);
288 }
289
290 static XtGeometryResult
291 RootGeometryManager (Widget gw,
292 XtWidgetGeometry *request,
293 XtWidgetGeometry *reply)
294 {
295 EMACS_SHELL_WIDGET w = (EMACS_SHELL_WIDGET) gw;
296 /* OK since this file is not dumped */
297 static int reentrant = 0;
298 XtGeometryResult result;
299
300 if (reentrant)
301 abort ();
302 reentrant++;
303
304 #ifdef DEBUG_GEOMETRY_MANAGEMENT
305 printf ("root_geometry_manager:\n");
306 printf (" current shell size: %d %d\n", w->core.width, w->core.height);
307 if (request->request_mode & CWWidth)
308 printf ("width requested;");
309 if (request->request_mode & CWHeight)
310 printf ("height requested;");
311 printf ("\n");
312 printf (" requested shell size: %d %d\n", request->width, request->height);
313 #endif
314 /* update the size hints */
315 update_size_hints_internal (w,
316 request->request_mode & CWWidth ?
317 request->width : w->core.width,
318 request->request_mode & CWHeight ?
319 request->height : w->core.height);
320
321 result = SuperClassRootGeometryManager (gw, request, reply);
322
323 #ifdef DEBUG_GEOMETRY_MANAGEMENT
324 printf (" result: %s\n",
325 result == XtGeometryYes ? "XtGeometryYes" :
326 result == XtGeometryNo ? "XtGeometryNo" :
327 result == XtGeometryAlmost ? "XtGeometryAlmost" :
328 "XtGeometryDone");
329 if (reply->request_mode & CWWidth)
330 printf ("width returned;");
331 if (reply->request_mode & CWHeight)
332 printf ("height returned;");
333 printf ("\n");
334 printf (" resulting shell size: %d %d\n", reply->width, reply->height);
335 printf ("----------\n");
336 fflush (stdout);
337 #endif
338 reentrant--;
339 return result;
340 }
341
342 static void
343 ChangeManaged (Widget wid)
344 {
345 EMACS_SHELL_WIDGET w = (EMACS_SHELL_WIDGET) wid;
346
347 /* If not realized, then we're being called from XtRealizeWidget().
348 RootGeometryManager() has not yet been called, and thus our
349 base size is incorrect. We need to set it now or the Shell
350 will mess up geometry specifications with negative positional
351 offsets. */
352 if (!XtIsRealized (wid))
353 {
354 Widget child = NULL;
355 Cardinal i;
356
357 /* the managed child indicates what our size is */
358 for (i = 0; i < w->composite.num_children; i++) {
359 if (XtIsManaged(w->composite.children[i])) {
360 child = w->composite.children[i];
361 break;
362 }
363 }
364
365 update_size_hints_internal (w, child->core.width, child->core.height);
366 }
367
368 /* call the real ChangeManaged */
369 (((ShellWidgetClass) SUPERCLASS_WIDGET_CLASS)->
370 composite_class.change_managed)(wid);
371 }
372
373
374 /******************* external entry points *********************/
375
376 void
377 EMACS_SHELL_UPDATE_SIZE_HINTS (Widget gw)
378 {
379 EMACS_SHELL_WIDGET w = (EMACS_SHELL_WIDGET) gw;
380 update_size_hints_internal (w, w->core.width, w->core.height);
381 }