HCoop / bpt / emacs.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Merge from emacs--rel--22
[bpt/emacs.git] / src / xfns.c
CommitLineData
01f1ba30 1/* Functions for the X window system.
97f4312d 2 Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
8cabe764
GM		 3 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
4 Free Software Foundation, Inc.
01f1ba30
JB		 5
6This file is part of GNU Emacs.
7
8GNU Emacs is free software; you can redistribute it and/or modify
9it under the terms of the GNU General Public License as published by
684d6f5b 10the Free Software Foundation; either version 3, or (at your option)
01f1ba30
JB		 11any later version.
12
13GNU Emacs is distributed in the hope that it will be useful,
14but WITHOUT ANY WARRANTY; without even the implied warranty of
15MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16GNU General Public License for more details.
17
18You should have received a copy of the GNU General Public License
19along with GNU Emacs; see the file COPYING. If not, write to
4fc5845f
LK		 20the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
21Boston, MA 02110-1301, USA. */
01f1ba30 22
c389a86d 23#include <config.h>
333b20bb 24#include <stdio.h>
d62c8769 25#include <math.h>
c389a86d 26
3ecaf7e5
RS		 27#ifdef HAVE_UNISTD_H
28#include <unistd.h>
29#endif
30
40e6f148 31/* This makes the fields of a Display accessible, in Xlib header files. */
333b20bb 32
40e6f148
RS		 33#define XLIB_ILLEGAL_ACCESS
34
01f1ba30
JB		 35#include "lisp.h"
36#include "xterm.h"
f676886a 37#include "frame.h"
01f1ba30
JB		 38#include "window.h"
39#include "buffer.h"
58cad5ed 40#include "intervals.h"
01f1ba30 41#include "dispextern.h"
1f98fa48 42#include "keyboard.h"
9ac0d9e0 43#include "blockinput.h"
57bda87a 44#include <epaths.h>
0f8c4c4f 45#include "character.h"
942ea06d 46#include "charset.h"
96db09e4 47#include "coding.h"
942ea06d 48#include "fontset.h"
333b20bb
GM		 49#include "systime.h"
50#include "termhooks.h"
4ae9a85e 51#include "atimer.h"
28d440ab 52#include "termchar.h"
01f1ba30 53
02ed2ea8
KH		 54#ifdef USE_FONT_BACKEND
55#include "font.h"
56#endif /* USE_FONT_BACKEND */
57
01f1ba30 58#ifdef HAVE_X_WINDOWS
67ba84d1 59
67ba84d1 60#include <ctype.h>
63cec32f
GM		 61#include <sys/types.h>
62#include <sys/stat.h>
01f1ba30 63
0a93081c 64#ifndef VMS
0505a740 65#if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
ef493a27
RS		 66#include "bitmaps/gray.xbm"
67#else
dbc4e1c1 68#include <X11/bitmaps/gray>
ef493a27 69#endif
0a93081c
JB		 70#else
71#include "[.bitmaps]gray.xbm"
72#endif
dbc4e1c1 73
488dd4c4
JD		 74#ifdef USE_GTK
75#include "gtkutil.h"
76#endif
77
9ef48a9d
RS		 78#ifdef USE_X_TOOLKIT
79#include <X11/Shell.h>
80
398ffa92 81#ifndef USE_MOTIF
8ab9202e
CY		 82#ifdef HAVE_XAW3D
83#include <X11/Xaw3d/Paned.h>
a6ec6cfb 84#include <X11/Xaw3d/Label.h>
8ab9202e 85#else /* !HAVE_XAW3D */
9ef48a9d
RS		 86#include <X11/Xaw/Paned.h>
87#include <X11/Xaw/Label.h>
8ab9202e 88#endif /* HAVE_XAW3D */
398ffa92 89#endif /* USE_MOTIF */
9ef48a9d
RS		 90
91#ifdef USG
92#undef USG /* ####KLUDGE for Solaris 2.2 and up */
93#include <X11/Xos.h>
94#define USG
95#else
96#include <X11/Xos.h>
97#endif
98
99#include "widget.h"
100
101#include "../lwlib/lwlib.h"
102
333b20bb
GM		 103#ifdef USE_MOTIF
104#include <Xm/Xm.h>
105#include <Xm/DialogS.h>
106#include <Xm/FileSB.h>
107#endif
108
3b882b1d
RS		 109/* Do the EDITRES protocol if running X11R5
110 Exception: HP-UX (at least version A.09.05) has X11R5 without EditRes */
333b20bb 111
3b882b1d 112#if (XtSpecificationRelease >= 5) && !defined(NO_EDITRES)
6c32dd68 113#define HACK_EDITRES
b9dc4443 114extern void _XEditResCheckMessages ();
6c32dd68
PR		 115#endif /* R5 + Athena */
116
333b20bb
GM		 117/* Unique id counter for widgets created by the Lucid Widget Library. */
118
6c32dd68
PR		 119extern LWLIB_ID widget_id_tick;
120
e3881aa0 121#ifdef USE_LUCID
82c90203 122/* This is part of a kludge--see lwlib/xlwmenu.c. */
03e2c340 123extern XFontStruct *xlwmenu_default_font;
e3881aa0 124#endif
9ef48a9d 125
6bc20398 126extern void free_frame_menubar ();
d62c8769 127extern double atof ();
333b20bb 128
fc2cdd9a
GM		 129#ifdef USE_MOTIF
130
131/* LessTif/Motif version info. */
132
133static Lisp_Object Vmotif_version_string;
134
135#endif /* USE_MOTIF */
136
9ef48a9d
RS		 137#endif /* USE_X_TOOLKIT */
138
6b61353c
KH		 139#ifdef USE_GTK
140
141/* GTK+ version info */
142
143static Lisp_Object Vgtk_version_string;
144
145#endif /* USE_GTK */
146
9d317b2c 147#define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
9d317b2c 148
333b20bb
GM		 149/* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
150 it, and including `bitmaps/gray' more than once is a problem when
151 config.h defines `static' as an empty replacement string. */
152
153int gray_bitmap_width = gray_width;
154int gray_bitmap_height = gray_height;
62906360 155char *gray_bitmap_bits = gray_bits;
333b20bb 156
0af913d7 157/* Non-zero means we're allowed to display an hourglass cursor. */
333b20bb 158
0af913d7 159int display_hourglass_p;
333b20bb 160
255e4140
JD		 161/* Non-zero means prompt with the old GTK file selection dialog. */
162
fe2b14b7 163int x_gtk_use_old_file_dialog;
255e4140 164
a8a35720
JD		 165/* If non-zero, by default show hidden files in the GTK file chooser. */
166
167int x_gtk_show_hidden_files;
168
641c0105
JD		 169/* If non-zero, don't show additional help text in the GTK file chooser. */
170
159f8da7 171int x_gtk_file_dialog_help_text;
641c0105 172
e0f467cb
JD		 173/* If non-zero, don't collapse to tool bar when it is detached. */
174
175int x_gtk_whole_detached_tool_bar;
176
01f1ba30 177/* The background and shape of the mouse pointer, and shape when not
b9dc4443 178 over text or in the modeline. */
333b20bb 179
01f1ba30 180Lisp_Object Vx_pointer_shape, Vx_nontext_pointer_shape, Vx_mode_pointer_shape;
0af913d7 181Lisp_Object Vx_hourglass_pointer_shape;
333b20bb 182
ca0ecbf5 183/* The shape when over mouse-sensitive text. */
333b20bb 184
ca0ecbf5 185Lisp_Object Vx_sensitive_text_pointer_shape;
01f1ba30 186
8fb4ec9c
GM		 187/* If non-nil, the pointer shape to indicate that windows can be
188 dragged horizontally. */
189
190Lisp_Object Vx_window_horizontal_drag_shape;
191
b9dc4443 192/* Color of chars displayed in cursor box. */
333b20bb 193
01f1ba30
JB		 194Lisp_Object Vx_cursor_fore_pixel;
195
b9dc4443 196/* Nonzero if using X. */
333b20bb 197
b9dc4443 198static int x_in_use;
01f1ba30 199
b9dc4443 200/* Non nil if no window manager is in use. */
333b20bb 201
01f1ba30
JB		 202Lisp_Object Vx_no_window_manager;
203
942ea06d 204/* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
333b20bb 205
942ea06d
KH		 206Lisp_Object Vx_pixel_size_width_font_regexp;
207
baaed68e 208Lisp_Object Qnone;
8af1d7ca 209Lisp_Object Qsuppress_icon;
01f1ba30 210Lisp_Object Qundefined_color;
ae782866 211Lisp_Object Qcompound_text, Qcancel_timer;
01f1ba30 212
7c0d3ed8 213/* In dispnew.c */
f9942c9e 214
01f1ba30
JB		 215extern Lisp_Object Vwindow_system_version;
216
7c0d3ed8 217/* The below are defined in frame.c. */
333b20bb 218
f1d2ce7f 219#if GLYPH_DEBUG
eaf1eea9
GM		 220int image_cache_refcount, dpyinfo_refcount;
221#endif
222
223
01f1ba30 224\f
11ae94fe 225/* Error if we are not connected to X. */
333b20bb 226
7fc9de26 227void
11ae94fe
RS		 228check_x ()
229{
b9dc4443 230 if (! x_in_use)
11ae94fe
RS		 231 error ("X windows are not in use or not initialized");
232}
233
1c59f5df
RS		 234/* Nonzero if we can use mouse menus.
235 You should not call this unless HAVE_MENUS is defined. */
75cc8ee5
RS		 236
237int
1c59f5df 238have_menus_p ()
75cc8ee5 239{
b9dc4443
RS		 240 return x_in_use;
241}
242
243/* Extract a frame as a FRAME_PTR, defaulting to the selected frame
244 and checking validity for X. */
245
246FRAME_PTR
247check_x_frame (frame)
248 Lisp_Object frame;
249{
250 FRAME_PTR f;
251
252 if (NILP (frame))
0fe92f72 253 frame = selected_frame;
b7826503 254 CHECK_LIVE_FRAME (frame);
0fe92f72 255 f = XFRAME (frame);
b9dc4443 256 if (! FRAME_X_P (f))
1c59f5df 257 error ("Non-X frame used");
b9dc4443 258 return f;
75cc8ee5
RS		 259}
260
7e59217d 261/* Let the user specify an X display with a Lisp object.
6ed8eeff 262 OBJECT may be nil, a frame or a terminal id.
b9dc4443
RS		 263 nil stands for the selected frame--or, if that is not an X frame,
264 the first X display on the list. */
265
7c0d3ed8 266struct x_display_info *
7e59217d
KL		 267check_x_display_info (object)
268 Lisp_Object object;
b9dc4443 269{
8ec8a5ec 270 struct x_display_info *dpyinfo = NULL;
177c0ea7 271
7e59217d 272 if (NILP (object))
b9dc4443 273 {
0fe92f72 274 struct frame *sf = XFRAME (selected_frame);
177c0ea7 275
0fe92f72 276 if (FRAME_X_P (sf) && FRAME_LIVE_P (sf))
8ec8a5ec 277 dpyinfo = FRAME_X_DISPLAY_INFO (sf);
b9dc4443 278 else if (x_display_list != 0)
8ec8a5ec 279 dpyinfo = x_display_list;
b9dc4443
RS		 280 else
281 error ("X windows are not in use or not initialized");
282 }
7e59217d 283 else if (INTEGERP (object))
b6660415 284 {
fd0f53a9 285 struct terminal *t = get_terminal (object, 1);
b6660415 286
6ed8eeff
KL		 287 if (t->type != output_x_window)
288 error ("Terminal %d is not an X display", XINT (object));
b6660415 289
6ed8eeff 290 dpyinfo = t->display_info.x;
b6660415 291 }
7e59217d
KL		 292 else if (STRINGP (object))
293 dpyinfo = x_display_info_for_name (object);
b9dc4443
RS		 294 else
295 {
7e59217d 296 FRAME_PTR f = check_x_frame (object);
8ec8a5ec 297 dpyinfo = FRAME_X_DISPLAY_INFO (f);
b9dc4443 298 }
8ec8a5ec
GM		 299
300 return dpyinfo;
b9dc4443 301}
333b20bb 302
b9dc4443 303\f
f676886a
JB		 304/* Return the Emacs frame-object corresponding to an X window.
305 It could be the frame's main window or an icon window. */
01f1ba30 306
34ca5317 307/* This function can be called during GC, so use GC_xxx type test macros. */
bcb2db92 308
f676886a 309struct frame *
2d271e2e
KH		 310x_window_to_frame (dpyinfo, wdesc)
311 struct x_display_info *dpyinfo;
01f1ba30
JB		 312 int wdesc;
313{
f676886a
JB		 314 Lisp_Object tail, frame;
315 struct frame *f;
01f1ba30 316
10b43ac3
JD		 317 if (wdesc == None) return 0;
318
8e50cc2d 319 for (tail = Vframe_list; CONSP (tail); tail = XCDR (tail))
01f1ba30 320 {
8e713be6 321 frame = XCAR (tail);
8e50cc2d 322 if (!FRAMEP (frame))
01f1ba30 323 continue;
f676886a 324 f = XFRAME (frame);
2d764c78 325 if (!FRAME_X_P (f) || FRAME_X_DISPLAY_INFO (f) != dpyinfo)
2d271e2e 326 continue;
0af913d7 327 if (f->output_data.x->hourglass_window == wdesc)
17cbbf95 328 return f;
9ef48a9d 329#ifdef USE_X_TOOLKIT
177c0ea7 330 if ((f->output_data.x->edit_widget
7556890b 331 && XtWindow (f->output_data.x->edit_widget) == wdesc)
333b20bb
GM		 332 /* A tooltip frame? */
333 || (!f->output_data.x->edit_widget
334 && FRAME_X_WINDOW (f) == wdesc)
7556890b 335 || f->output_data.x->icon_desc == wdesc)
9ef48a9d
RS		 336 return f;
337#else /* not USE_X_TOOLKIT */
488dd4c4
JD		 338#ifdef USE_GTK
339 if (f->output_data.x->edit_widget)
340 {
6b61353c 341 GtkWidget *gwdesc = xg_win_to_widget (dpyinfo->display, wdesc);
488dd4c4
JD		 342 struct x_output *x = f->output_data.x;
343 if (gwdesc != 0 && gwdesc == x->edit_widget)
344 return f;
345 }
346#endif /* USE_GTK */
fe24a618 347 if (FRAME_X_WINDOW (f) == wdesc
7556890b 348 || f->output_data.x->icon_desc == wdesc)
f676886a 349 return f;
9ef48a9d
RS		 350#endif /* not USE_X_TOOLKIT */
351 }
352 return 0;
353}
354
488dd4c4 355#if defined (USE_X_TOOLKIT) || defined (USE_GTK)
9ef48a9d
RS		 356/* Like x_window_to_frame but also compares the window with the widget's
357 windows. */
358
359struct frame *
2d271e2e
KH		 360x_any_window_to_frame (dpyinfo, wdesc)
361 struct x_display_info *dpyinfo;
9ef48a9d
RS		 362 int wdesc;
363{
364 Lisp_Object tail, frame;
17cbbf95 365 struct frame *f, *found;
7556890b 366 struct x_output *x;
9ef48a9d 367
10b43ac3
JD		 368 if (wdesc == None) return NULL;
369
17cbbf95 370 found = NULL;
8e50cc2d 371 for (tail = Vframe_list; CONSP (tail) && !found; tail = XCDR (tail))
9ef48a9d 372 {
8e713be6 373 frame = XCAR (tail);
8e50cc2d 374 if (!FRAMEP (frame))
9ef48a9d 375 continue;
177c0ea7 376
9ef48a9d 377 f = XFRAME (frame);
17cbbf95 378 if (FRAME_X_P (f) && FRAME_X_DISPLAY_INFO (f) == dpyinfo)
333b20bb 379 {
17cbbf95
GM		 380 /* This frame matches if the window is any of its widgets. */
381 x = f->output_data.x;
0af913d7 382 if (x->hourglass_window == wdesc)
17cbbf95
GM		 383 found = f;
384 else if (x->widget)
385 {
488dd4c4 386#ifdef USE_GTK
6b61353c 387 GtkWidget *gwdesc = xg_win_to_widget (dpyinfo->display, wdesc);
488dd4c4
JD		 388 if (gwdesc != 0
389 && (gwdesc == x->widget
390 || gwdesc == x->edit_widget
391 || gwdesc == x->vbox_widget
392 || gwdesc == x->menubar_widget))
393 found = f;
394#else
177c0ea7
JB		 395 if (wdesc == XtWindow (x->widget)
396 || wdesc == XtWindow (x->column_widget)
17cbbf95
GM		 397 || wdesc == XtWindow (x->edit_widget))
398 found = f;
399 /* Match if the window is this frame's menubar. */
400 else if (lw_window_is_in_menubar (wdesc, x->menubar_widget))
401 found = f;
488dd4c4 402#endif
17cbbf95
GM		 403 }
404 else if (FRAME_X_WINDOW (f) == wdesc)
405 /* A tooltip frame. */
406 found = f;
333b20bb 407 }
01f1ba30 408 }
177c0ea7 409
17cbbf95 410 return found;
01f1ba30 411}
5e65b9ab 412
5fbc3f3a
KH		 413/* Likewise, but exclude the menu bar widget. */
414
415struct frame *
416x_non_menubar_window_to_frame (dpyinfo, wdesc)
417 struct x_display_info *dpyinfo;
418 int wdesc;
419{
420 Lisp_Object tail, frame;
421 struct frame *f;
7556890b 422 struct x_output *x;
5fbc3f3a 423
10b43ac3
JD		 424 if (wdesc == None) return 0;
425
8e50cc2d 426 for (tail = Vframe_list; CONSP (tail); tail = XCDR (tail))
5fbc3f3a 427 {
8e713be6 428 frame = XCAR (tail);
8e50cc2d 429 if (!FRAMEP (frame))
5fbc3f3a
KH		 430 continue;
431 f = XFRAME (frame);
2d764c78 432 if (!FRAME_X_P (f) || FRAME_X_DISPLAY_INFO (f) != dpyinfo)
5fbc3f3a 433 continue;
7556890b 434 x = f->output_data.x;
5fbc3f3a 435 /* This frame matches if the window is any of its widgets. */
0af913d7 436 if (x->hourglass_window == wdesc)
17cbbf95
GM		 437 return f;
438 else if (x->widget)
333b20bb 439 {
488dd4c4 440#ifdef USE_GTK
6b61353c 441 GtkWidget *gwdesc = xg_win_to_widget (dpyinfo->display, wdesc);
488dd4c4
JD		 442 if (gwdesc != 0
443 && (gwdesc == x->widget
444 || gwdesc == x->edit_widget
445 || gwdesc == x->vbox_widget))
446 return f;
447#else
177c0ea7
JB		 448 if (wdesc == XtWindow (x->widget)
449 || wdesc == XtWindow (x->column_widget)
333b20bb
GM		 450 || wdesc == XtWindow (x->edit_widget))
451 return f;
488dd4c4 452#endif
333b20bb
GM		 453 }
454 else if (FRAME_X_WINDOW (f) == wdesc)
455 /* A tooltip frame. */
5fbc3f3a
KH		 456 return f;
457 }
458 return 0;
459}
460
fd3a3022
RS		 461/* Likewise, but consider only the menu bar widget. */
462
463struct frame *
464x_menubar_window_to_frame (dpyinfo, wdesc)
465 struct x_display_info *dpyinfo;
466 int wdesc;
467{
468 Lisp_Object tail, frame;
469 struct frame *f;
7556890b 470 struct x_output *x;
fd3a3022 471
10b43ac3
JD		 472 if (wdesc == None) return 0;
473
8e50cc2d 474 for (tail = Vframe_list; CONSP (tail); tail = XCDR (tail))
fd3a3022 475 {
8e713be6 476 frame = XCAR (tail);
8e50cc2d 477 if (!FRAMEP (frame))
fd3a3022
RS		 478 continue;
479 f = XFRAME (frame);
2d764c78 480 if (!FRAME_X_P (f) || FRAME_X_DISPLAY_INFO (f) != dpyinfo)
fd3a3022 481 continue;
7556890b 482 x = f->output_data.x;
fd3a3022 483 /* Match if the window is this frame's menubar. */
488dd4c4
JD		 484#ifdef USE_GTK
485 if (x->menubar_widget)
486 {
6b61353c 487 GtkWidget *gwdesc = xg_win_to_widget (dpyinfo->display, wdesc);
488dd4c4 488 int found = 0;
177c0ea7 489
488dd4c4
JD		 490 BLOCK_INPUT;
491 if (gwdesc != 0
492 && (gwdesc == x->menubar_widget
493 || gtk_widget_get_parent (gwdesc) == x->menubar_widget))
494 found = 1;
495 UNBLOCK_INPUT;
496 if (found) return f;
497 }
498#else
333b20bb
GM		 499 if (x->menubar_widget
500 && lw_window_is_in_menubar (wdesc, x->menubar_widget))
fd3a3022 501 return f;
488dd4c4 502#endif
fd3a3022
RS		 503 }
504 return 0;
505}
506
5e65b9ab
RS		 507/* Return the frame whose principal (outermost) window is WDESC.
508 If WDESC is some other (smaller) window, we return 0. */
509
510struct frame *
2d271e2e
KH		 511x_top_window_to_frame (dpyinfo, wdesc)
512 struct x_display_info *dpyinfo;
5e65b9ab
RS		 513 int wdesc;
514{
515 Lisp_Object tail, frame;
516 struct frame *f;
7556890b 517 struct x_output *x;
5e65b9ab 518
10b43ac3
JD		 519 if (wdesc == None) return 0;
520
8e50cc2d 521 for (tail = Vframe_list; CONSP (tail); tail = XCDR (tail))
5e65b9ab 522 {
8e713be6 523 frame = XCAR (tail);
8e50cc2d 524 if (!FRAMEP (frame))
5e65b9ab
RS		 525 continue;
526 f = XFRAME (frame);
2d764c78 527 if (!FRAME_X_P (f) || FRAME_X_DISPLAY_INFO (f) != dpyinfo)
2d271e2e 528 continue;
7556890b 529 x = f->output_data.x;
333b20bb
GM		 530
531 if (x->widget)
532 {
533 /* This frame matches if the window is its topmost widget. */
488dd4c4 534#ifdef USE_GTK
6b61353c 535 GtkWidget *gwdesc = xg_win_to_widget (dpyinfo->display, wdesc);
488dd4c4
JD		 536 if (gwdesc == x->widget)
537 return f;
538#else
333b20bb
GM		 539 if (wdesc == XtWindow (x->widget))
540 return f;
7a994728
KH		 541#if 0 /* I don't know why it did this,
542 but it seems logically wrong,
543 and it causes trouble for MapNotify events. */
333b20bb 544 /* Match if the window is this frame's menubar. */
177c0ea7 545 if (x->menubar_widget
333b20bb
GM		 546 && wdesc == XtWindow (x->menubar_widget))
547 return f;
488dd4c4 548#endif
7a994728 549#endif
333b20bb
GM		 550 }
551 else if (FRAME_X_WINDOW (f) == wdesc)
552 /* Tooltip frame. */
553 return f;
5e65b9ab
RS		 554 }
555 return 0;
556}
488dd4c4 557#endif /* USE_X_TOOLKIT || USE_GTK */
01f1ba30 558
01f1ba30 559\f
203c1d73 560
02ed2ea8
KH		 561static void x_default_font_parameter P_ ((struct frame *, Lisp_Object));
562
eaf1eea9
GM		 563static Lisp_Object unwind_create_frame P_ ((Lisp_Object));
564static Lisp_Object unwind_create_tip_frame P_ ((Lisp_Object));
7c0d3ed8 565
d62c8769 566void x_set_foreground_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
ea0a1f53 567static void x_set_wait_for_wm P_ ((struct frame *, Lisp_Object, Lisp_Object));
d62c8769
GM		 568void x_set_background_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
569void x_set_mouse_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
570void x_set_cursor_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
571void x_set_border_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
572void x_set_cursor_type P_ ((struct frame *, Lisp_Object, Lisp_Object));
573void x_set_icon_type P_ ((struct frame *, Lisp_Object, Lisp_Object));
574void x_set_icon_name P_ ((struct frame *, Lisp_Object, Lisp_Object));
d62c8769 575void x_explicitly_set_name P_ ((struct frame *, Lisp_Object, Lisp_Object));
d62c8769 576void x_set_menu_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object));
d62c8769 577void x_set_title P_ ((struct frame *, Lisp_Object, Lisp_Object));
9ea173e8 578void x_set_tool_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object));
333b20bb
GM		 579void x_set_scroll_bar_foreground P_ ((struct frame *, Lisp_Object,
580 Lisp_Object));
581void x_set_scroll_bar_background P_ ((struct frame *, Lisp_Object,
582 Lisp_Object));
583static Lisp_Object x_default_scroll_bar_color_parameter P_ ((struct frame *,
584 Lisp_Object,
585 Lisp_Object,
586 char *, char *,
587 int));
01f1ba30 588\f
49d41073 589
08a90d6a 590/* Store the screen positions of frame F into XPTR and YPTR.
e9445337
RS		 591 These are the positions of the containing window manager window,
592 not Emacs's own window. */
593
594void
595x_real_positions (f, xptr, yptr)
596 FRAME_PTR f;
597 int *xptr, *yptr;
598{
49d41073
EZ		 599 int win_x, win_y, outer_x, outer_y;
600 int real_x = 0, real_y = 0;
601 int had_errors = 0;
602 Window win = f->output_data.x->parent_desc;
e9445337 603
49d41073
EZ		 604 BLOCK_INPUT;
605
9ba8e10d 606 x_catch_errors (FRAME_X_DISPLAY (f));
043835a3 607
49d41073
EZ		 608 if (win == FRAME_X_DISPLAY_INFO (f)->root_window)
609 win = FRAME_OUTER_WINDOW (f);
610
611 /* This loop traverses up the containment tree until we hit the root
612 window. Window managers may intersect many windows between our window
613 and the root window. The window we find just before the root window
614 should be the outer WM window. */
615 for (;;)
e9445337 616 {
49d41073
EZ		 617 Window wm_window, rootw;
618 Window *tmp_children;
619 unsigned int tmp_nchildren;
e7161ad9 620 int success;
ca7bac79 621
e7161ad9
RS		 622 success = XQueryTree (FRAME_X_DISPLAY (f), win, &rootw,
623 &wm_window, &tmp_children, &tmp_nchildren);
08a90d6a 624
49d41073 625 had_errors = x_had_errors_p (FRAME_X_DISPLAY (f));
08a90d6a 626
e7161ad9
RS		 627 /* Don't free tmp_children if XQueryTree failed. */
628 if (! success)
629 break;
630
631 XFree ((char *) tmp_children);
632
49d41073
EZ		 633 if (wm_window == rootw || had_errors)
634 break;
08a90d6a 635
49d41073
EZ		 636 win = wm_window;
637 }
177c0ea7 638
49d41073
EZ		 639 if (! had_errors)
640 {
47c53789 641 unsigned int ign;
49d41073 642 Window child, rootw;
177c0ea7 643
49d41073
EZ		 644 /* Get the real coordinates for the WM window upper left corner */
645 XGetGeometry (FRAME_X_DISPLAY (f), win,
646 &rootw, &real_x, &real_y, &ign, &ign, &ign, &ign);
647
648 /* Translate real coordinates to coordinates relative to our
649 window. For our window, the upper left corner is 0, 0.
650 Since the upper left corner of the WM window is outside
651 our window, win_x and win_y will be negative:
652
653 ------------------ ---> x
654 | title |
655 | ----------------- v y
656 | | our window
657 */
8a07bba0 658 XTranslateCoordinates (FRAME_X_DISPLAY (f),
e9445337 659
8a07bba0 660 /* From-window, to-window. */
8a07bba0 661 FRAME_X_DISPLAY_INFO (f)->root_window,
49d41073 662 FRAME_X_WINDOW (f),
e9445337 663
8a07bba0 664 /* From-position, to-position. */
49d41073 665 real_x, real_y, &win_x, &win_y,
08a90d6a 666
8a07bba0
RS		 667 /* Child of win. */
668 &child);
e9445337 669
49d41073 670 if (FRAME_X_WINDOW (f) == FRAME_OUTER_WINDOW (f))
845e9d85 671 {
49d41073
EZ		 672 outer_x = win_x;
673 outer_y = win_y;
845e9d85 674 }
49d41073
EZ		 675 else
676 {
677 XTranslateCoordinates (FRAME_X_DISPLAY (f),
ca7bac79 678
49d41073
EZ		 679 /* From-window, to-window. */
680 FRAME_X_DISPLAY_INFO (f)->root_window,
681 FRAME_OUTER_WINDOW (f),
177c0ea7 682
49d41073
EZ		 683 /* From-position, to-position. */
684 real_x, real_y, &outer_x, &outer_y,
177c0ea7 685
49d41073
EZ		 686 /* Child of win. */
687 &child);
be786000 688 }
08a90d6a 689
49d41073
EZ		 690 had_errors = x_had_errors_p (FRAME_X_DISPLAY (f));
691 }
177c0ea7 692
4545fa20 693 x_uncatch_errors ();
177c0ea7 694
49d41073
EZ		 695 UNBLOCK_INPUT;
696
697 if (had_errors) return;
177c0ea7 698
be786000
KS		 699 f->x_pixels_diff = -win_x;
700 f->y_pixels_diff = -win_y;
701
702 FRAME_X_OUTPUT (f)->x_pixels_outer_diff = -outer_x;
703 FRAME_X_OUTPUT (f)->y_pixels_outer_diff = -outer_y;
49d41073
EZ		 704
705 *xptr = real_x;
706 *yptr = real_y;
e9445337
RS		 707}
708
01f1ba30 709\f
82978295 710
d62c8769
GM		 711
712/* Gamma-correct COLOR on frame F. */
713
714void
715gamma_correct (f, color)
716 struct frame *f;
717 XColor *color;
718{
719 if (f->gamma)
720 {
721 color->red = pow (color->red / 65535.0, f->gamma) * 65535.0 + 0.5;
722 color->green = pow (color->green / 65535.0, f->gamma) * 65535.0 + 0.5;
723 color->blue = pow (color->blue / 65535.0, f->gamma) * 65535.0 + 0.5;
724 }
725}
726
727
7b746c38
GM		 728/* Decide if color named COLOR_NAME is valid for use on frame F. If
729 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
730 allocate the color. Value is zero if COLOR_NAME is invalid, or
731 no color could be allocated. */
e12d55b2 732
01f1ba30 733int
7b746c38
GM		 734x_defined_color (f, color_name, color, alloc_p)
735 struct frame *f;
736 char *color_name;
737 XColor *color;
738 int alloc_p;
01f1ba30 739{
7b746c38
GM		 740 int success_p;
741 Display *dpy = FRAME_X_DISPLAY (f);
742 Colormap cmap = FRAME_X_COLORMAP (f);
01f1ba30
JB		 743
744 BLOCK_INPUT;
7b746c38
GM		 745 success_p = XParseColor (dpy, cmap, color_name, color);
746 if (success_p && alloc_p)
747 success_p = x_alloc_nearest_color (f, cmap, color);
01f1ba30
JB		 748 UNBLOCK_INPUT;
749
7b746c38 750 return success_p;
01f1ba30
JB		 751}
752
9b2956e2
GM		 753
754/* Return the pixel color value for color COLOR_NAME on frame F. If F
755 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
756 Signal an error if color can't be allocated. */
01f1ba30
JB		 757
758int
9b2956e2 759x_decode_color (f, color_name, mono_color)
b9dc4443 760 FRAME_PTR f;
9b2956e2
GM		 761 Lisp_Object color_name;
762 int mono_color;
01f1ba30 763{
b9dc4443 764 XColor cdef;
01f1ba30 765
b7826503 766 CHECK_STRING (color_name);
01f1ba30 767
9b2956e2
GM		 768#if 0 /* Don't do this. It's wrong when we're not using the default
769 colormap, it makes freeing difficult, and it's probably not
770 an important optimization. */
d5db4077 771 if (strcmp (SDATA (color_name), "black") == 0)
b9dc4443 772 return BLACK_PIX_DEFAULT (f);
d5db4077 773 else if (strcmp (SDATA (color_name), "white") == 0)
b9dc4443 774 return WHITE_PIX_DEFAULT (f);
9b2956e2 775#endif
01f1ba30 776
9b2956e2 777 /* Return MONO_COLOR for monochrome frames. */
b9dc4443 778 if (FRAME_X_DISPLAY_INFO (f)->n_planes == 1)
9b2956e2 779 return mono_color;
01f1ba30 780
2d764c78 781 /* x_defined_color is responsible for coping with failures
95626e11 782 by looking for a near-miss. */
d5db4077 783 if (x_defined_color (f, SDATA (color_name), &cdef, 1))
95626e11
RS		 784 return cdef.pixel;
785
93217cef 786 signal_error ("Undefined color", color_name);
01f1ba30 787}
9b2956e2
GM		 788
789
01f1ba30 790\f
ea0a1f53
GM		 791/* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
792 the previous value of that parameter, NEW_VALUE is the new value.
793 See also the comment of wait_for_wm in struct x_output. */
794
795static void
796x_set_wait_for_wm (f, new_value, old_value)
797 struct frame *f;
798 Lisp_Object new_value, old_value;
799{
800 f->output_data.x->wait_for_wm = !NILP (new_value);
801}
802
993d0721
JB		 803#ifdef USE_GTK
804
465aa50a
JD		 805/* Set icon from FILE for frame F. By using GTK functions the icon
806 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
993d0721
JB		 807
808int
6b61353c 809xg_set_icon (f, file)
465aa50a 810 FRAME_PTR f;
993d0721
JB		 811 Lisp_Object file;
812{
465aa50a
JD		 813 int result = 0;
814 Lisp_Object found;
993d0721 815
465aa50a
JD		 816 found = x_find_image_file (file);
817
818 if (! NILP (found))
819 {
820 GdkPixbuf *pixbuf;
821 GError *err = NULL;
47c53789 822 char *filename = (char *) SDATA (found);
465aa50a
JD		 823 BLOCK_INPUT;
824
825 pixbuf = gdk_pixbuf_new_from_file (filename, &err);
826
827 if (pixbuf)
828 {
829 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f)),
830 pixbuf);
831 g_object_unref (pixbuf);
832
833 result = 1;
834 }
835 else
836 g_error_free (err);
837
838 UNBLOCK_INPUT;
839 }
840
465aa50a 841 return result;
993d0721 842}
9f7b984b
CY		 843
844int
845xg_set_icon_from_xpm_data (f, data)
846 FRAME_PTR f;
847 char **data;
848{
849 int result = 0;
47c53789 850 GdkPixbuf *pixbuf = gdk_pixbuf_new_from_xpm_data ((const char **) data);
9f7b984b
CY		 851
852 if (!pixbuf)
47c53789 853 return 0;
9f7b984b 854
47c53789 855 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f)), pixbuf);
9f7b984b
CY		 856 g_object_unref (pixbuf);
857 return 1;
858}
993d0721
JB		 859#endif /* USE_GTK */
860
ea0a1f53 861
f676886a 862/* Functions called only from `x_set_frame_param'
01f1ba30
JB		 863 to set individual parameters.
864
fe24a618 865 If FRAME_X_WINDOW (f) is 0,
f676886a 866 the frame is being created and its X-window does not exist yet.
01f1ba30
JB		 867 In that case, just record the parameter's new value
868 in the standard place; do not attempt to change the window. */
869
870void
f676886a
JB		 871x_set_foreground_color (f, arg, oldval)
872 struct frame *f;
01f1ba30
JB		 873 Lisp_Object arg, oldval;
874{
09393d07
GM		 875 struct x_output *x = f->output_data.x;
876 unsigned long fg, old_fg;
a76206dc 877
09393d07 878 fg = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f));
ce593f6e
KL		 879 old_fg = FRAME_FOREGROUND_PIXEL (f);
880 FRAME_FOREGROUND_PIXEL (f) = fg;
a76206dc 881
fe24a618 882 if (FRAME_X_WINDOW (f) != 0)
01f1ba30 883 {
09393d07 884 Display *dpy = FRAME_X_DISPLAY (f);
177c0ea7 885
09393d07
GM		 886 BLOCK_INPUT;
887 XSetForeground (dpy, x->normal_gc, fg);
888 XSetBackground (dpy, x->reverse_gc, fg);
36d42089 889
09393d07
GM		 890 if (x->cursor_pixel == old_fg)
891 {
892 unload_color (f, x->cursor_pixel);
893 x->cursor_pixel = x_copy_color (f, fg);
894 XSetBackground (dpy, x->cursor_gc, x->cursor_pixel);
895 }
177c0ea7 896
01f1ba30 897 UNBLOCK_INPUT;
177c0ea7 898
05c8abbe 899 update_face_from_frame_parameter (f, Qforeground_color, arg);
177c0ea7 900
179956b9 901 if (FRAME_VISIBLE_P (f))
f676886a 902 redraw_frame (f);
01f1ba30 903 }
177c0ea7 904
09393d07 905 unload_color (f, old_fg);
01f1ba30
JB		 906}
907
908void
f676886a
JB		 909x_set_background_color (f, arg, oldval)
910 struct frame *f;
01f1ba30
JB		 911 Lisp_Object arg, oldval;
912{
09393d07
GM		 913 struct x_output *x = f->output_data.x;
914 unsigned long bg;
01f1ba30 915
09393d07 916 bg = x_decode_color (f, arg, WHITE_PIX_DEFAULT (f));
ce593f6e
KL		 917 unload_color (f, FRAME_BACKGROUND_PIXEL (f));
918 FRAME_BACKGROUND_PIXEL (f) = bg;
a76206dc 919
fe24a618 920 if (FRAME_X_WINDOW (f) != 0)
01f1ba30 921 {
09393d07 922 Display *dpy = FRAME_X_DISPLAY (f);
177c0ea7 923
09393d07
GM		 924 BLOCK_INPUT;
925 XSetBackground (dpy, x->normal_gc, bg);
926 XSetForeground (dpy, x->reverse_gc, bg);
927 XSetWindowBackground (dpy, FRAME_X_WINDOW (f), bg);
928 XSetForeground (dpy, x->cursor_gc, bg);
929
488dd4c4
JD		 930#ifdef USE_GTK
931 xg_set_background_color (f, bg);
932#endif
933
f76e0368
GM		 934#ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
935 toolkit scroll bars. */
936 {
937 Lisp_Object bar;
938 for (bar = FRAME_SCROLL_BARS (f);
939 !NILP (bar);
940 bar = XSCROLL_BAR (bar)->next)
941 {
056ce195 942 Window window = XSCROLL_BAR (bar)->x_window;
f76e0368
GM		 943 XSetWindowBackground (dpy, window, bg);
944 }
945 }
946#endif /* USE_TOOLKIT_SCROLL_BARS */
01f1ba30 947
09393d07 948 UNBLOCK_INPUT;
05c8abbe 949 update_face_from_frame_parameter (f, Qbackground_color, arg);
ea96210c 950
179956b9 951 if (FRAME_VISIBLE_P (f))
f676886a 952 redraw_frame (f);
01f1ba30
JB		 953 }
954}
955
956void
f676886a
JB		 957x_set_mouse_color (f, arg, oldval)
958 struct frame *f;
01f1ba30
JB		 959 Lisp_Object arg, oldval;
960{
09393d07
GM		 961 struct x_output *x = f->output_data.x;
962 Display *dpy = FRAME_X_DISPLAY (f);
3d970f28 963 Cursor cursor, nontext_cursor, mode_cursor, hand_cursor;
0af913d7 964 Cursor hourglass_cursor, horizontal_drag_cursor;
51a1d2d8 965 unsigned long pixel = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f));
ce593f6e 966 unsigned long mask_color = FRAME_BACKGROUND_PIXEL (f);
a76206dc 967
51a1d2d8 968 /* Don't let pointers be invisible. */
09393d07 969 if (mask_color == pixel)
bcf26b38
GM		 970 {
971 x_free_colors (f, &pixel, 1);
ce593f6e 972 pixel = x_copy_color (f, FRAME_FOREGROUND_PIXEL (f));
bcf26b38 973 }
a76206dc 974
09393d07
GM		 975 unload_color (f, x->mouse_pixel);
976 x->mouse_pixel = pixel;
01f1ba30
JB		 977
978 BLOCK_INPUT;
fe24a618 979
eb8c3be9 980 /* It's not okay to crash if the user selects a screwy cursor. */
9ba8e10d 981 x_catch_errors (dpy);
fe24a618 982
09393d07 983 if (!NILP (Vx_pointer_shape))
01f1ba30 984 {
b7826503 985 CHECK_NUMBER (Vx_pointer_shape);
09393d07 986 cursor = XCreateFontCursor (dpy, XINT (Vx_pointer_shape));
01f1ba30
JB		 987 }
988 else
09393d07
GM		 989 cursor = XCreateFontCursor (dpy, XC_xterm);
990 x_check_errors (dpy, "bad text pointer cursor: %s");
01f1ba30 991
09393d07 992 if (!NILP (Vx_nontext_pointer_shape))
01f1ba30 993 {
b7826503 994 CHECK_NUMBER (Vx_nontext_pointer_shape);
09393d07
GM		 995 nontext_cursor
996 = XCreateFontCursor (dpy, XINT (Vx_nontext_pointer_shape));
01f1ba30
JB		 997 }
998 else
09393d07
GM		 999 nontext_cursor = XCreateFontCursor (dpy, XC_left_ptr);
1000 x_check_errors (dpy, "bad nontext pointer cursor: %s");
01f1ba30 1001
09393d07 1002 if (!NILP (Vx_hourglass_pointer_shape))
333b20bb 1003 {
b7826503 1004 CHECK_NUMBER (Vx_hourglass_pointer_shape);
09393d07
GM		 1005 hourglass_cursor
1006 = XCreateFontCursor (dpy, XINT (Vx_hourglass_pointer_shape));
333b20bb
GM		 1007 }
1008 else
09393d07
GM		 1009 hourglass_cursor = XCreateFontCursor (dpy, XC_watch);
1010 x_check_errors (dpy, "bad hourglass pointer cursor: %s");
177c0ea7 1011
09393d07 1012 if (!NILP (Vx_mode_pointer_shape))
01f1ba30 1013 {
b7826503 1014 CHECK_NUMBER (Vx_mode_pointer_shape);
09393d07 1015 mode_cursor = XCreateFontCursor (dpy, XINT (Vx_mode_pointer_shape));
01f1ba30
JB		 1016 }
1017 else
09393d07
GM		 1018 mode_cursor = XCreateFontCursor (dpy, XC_xterm);
1019 x_check_errors (dpy, "bad modeline pointer cursor: %s");
95f80c78 1020
09393d07 1021 if (!NILP (Vx_sensitive_text_pointer_shape))
95f80c78 1022 {
b7826503 1023 CHECK_NUMBER (Vx_sensitive_text_pointer_shape);
3d970f28 1024 hand_cursor
09393d07 1025 = XCreateFontCursor (dpy, XINT (Vx_sensitive_text_pointer_shape));
95f80c78
FP		 1026 }
1027 else
3d970f28 1028 hand_cursor = XCreateFontCursor (dpy, XC_hand2);
01f1ba30 1029
8fb4ec9c
GM		 1030 if (!NILP (Vx_window_horizontal_drag_shape))
1031 {
b7826503 1032 CHECK_NUMBER (Vx_window_horizontal_drag_shape);
8fb4ec9c 1033 horizontal_drag_cursor
09393d07 1034 = XCreateFontCursor (dpy, XINT (Vx_window_horizontal_drag_shape));
8fb4ec9c
GM		 1035 }
1036 else
1037 horizontal_drag_cursor
09393d07 1038 = XCreateFontCursor (dpy, XC_sb_h_double_arrow);
8fb4ec9c 1039
fe24a618 1040 /* Check and report errors with the above calls. */
09393d07 1041 x_check_errors (dpy, "can't set cursor shape: %s");
4545fa20 1042 x_uncatch_errors ();
fe24a618 1043
01f1ba30
JB		 1044 {
1045 XColor fore_color, back_color;
1046
09393d07 1047 fore_color.pixel = x->mouse_pixel;
a31fedb7 1048 x_query_color (f, &fore_color);
01f1ba30 1049 back_color.pixel = mask_color;
a31fedb7 1050 x_query_color (f, &back_color);
177c0ea7 1051
09393d07
GM		 1052 XRecolorCursor (dpy, cursor, &fore_color, &back_color);
1053 XRecolorCursor (dpy, nontext_cursor, &fore_color, &back_color);
1054 XRecolorCursor (dpy, mode_cursor, &fore_color, &back_color);
3d970f28 1055 XRecolorCursor (dpy, hand_cursor, &fore_color, &back_color);
09393d07
GM		 1056 XRecolorCursor (dpy, hourglass_cursor, &fore_color, &back_color);
1057 XRecolorCursor (dpy, horizontal_drag_cursor, &fore_color, &back_color);
01f1ba30 1058 }
01f1ba30 1059
fe24a618 1060 if (FRAME_X_WINDOW (f) != 0)
09393d07
GM		 1061 XDefineCursor (dpy, FRAME_X_WINDOW (f), cursor);
1062
1063 if (cursor != x->text_cursor
1064 && x->text_cursor != 0)
1065 XFreeCursor (dpy, x->text_cursor);
1066 x->text_cursor = cursor;
1067
1068 if (nontext_cursor != x->nontext_cursor
1069 && x->nontext_cursor != 0)
1070 XFreeCursor (dpy, x->nontext_cursor);
1071 x->nontext_cursor = nontext_cursor;
1072
1073 if (hourglass_cursor != x->hourglass_cursor
1074 && x->hourglass_cursor != 0)
1075 XFreeCursor (dpy, x->hourglass_cursor);
1076 x->hourglass_cursor = hourglass_cursor;
1077
1078 if (mode_cursor != x->modeline_cursor
1079 && x->modeline_cursor != 0)
1080 XFreeCursor (dpy, f->output_data.x->modeline_cursor);
1081 x->modeline_cursor = mode_cursor;
177c0ea7 1082
3d970f28
KS		 1083 if (hand_cursor != x->hand_cursor
1084 && x->hand_cursor != 0)
1085 XFreeCursor (dpy, x->hand_cursor);
1086 x->hand_cursor = hand_cursor;
01f1ba30 1087
09393d07
GM		 1088 if (horizontal_drag_cursor != x->horizontal_drag_cursor
1089 && x->horizontal_drag_cursor != 0)
1090 XFreeCursor (dpy, x->horizontal_drag_cursor);
1091 x->horizontal_drag_cursor = horizontal_drag_cursor;
8fb4ec9c 1092
09393d07 1093 XFlush (dpy);
01f1ba30 1094 UNBLOCK_INPUT;
05c8abbe
GM		 1095
1096 update_face_from_frame_parameter (f, Qmouse_color, arg);
01f1ba30
JB		 1097}
1098
1099void
f676886a
JB		 1100x_set_cursor_color (f, arg, oldval)
1101 struct frame *f;
01f1ba30
JB		 1102 Lisp_Object arg, oldval;
1103{
a76206dc 1104 unsigned long fore_pixel, pixel;
10168ebb 1105 int fore_pixel_allocated_p = 0, pixel_allocated_p = 0;
09393d07 1106 struct x_output *x = f->output_data.x;
01f1ba30 1107
10168ebb
GM		 1108 if (!NILP (Vx_cursor_fore_pixel))
1109 {
1110 fore_pixel = x_decode_color (f, Vx_cursor_fore_pixel,
1111 WHITE_PIX_DEFAULT (f));
1112 fore_pixel_allocated_p = 1;
1113 }
01f1ba30 1114 else
ce593f6e 1115 fore_pixel = FRAME_BACKGROUND_PIXEL (f);
177c0ea7 1116
a76206dc 1117 pixel = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f));
10168ebb 1118 pixel_allocated_p = 1;
a76206dc 1119
f9942c9e 1120 /* Make sure that the cursor color differs from the background color. */
ce593f6e 1121 if (pixel == FRAME_BACKGROUND_PIXEL (f))
01f1ba30 1122 {
10168ebb
GM		 1123 if (pixel_allocated_p)
1124 {
1125 x_free_colors (f, &pixel, 1);
1126 pixel_allocated_p = 0;
1127 }
177c0ea7 1128
09393d07 1129 pixel = x->mouse_pixel;
a76206dc 1130 if (pixel == fore_pixel)
10168ebb
GM		 1131 {
1132 if (fore_pixel_allocated_p)
1133 {
1134 x_free_colors (f, &fore_pixel, 1);
1135 fore_pixel_allocated_p = 0;
1136 }
ce593f6e 1137 fore_pixel = FRAME_BACKGROUND_PIXEL (f);
10168ebb 1138 }
01f1ba30 1139 }
a76206dc 1140
09393d07 1141 unload_color (f, x->cursor_foreground_pixel);
10168ebb
GM		 1142 if (!fore_pixel_allocated_p)
1143 fore_pixel = x_copy_color (f, fore_pixel);
09393d07 1144 x->cursor_foreground_pixel = fore_pixel;
01f1ba30 1145
09393d07 1146 unload_color (f, x->cursor_pixel);
10168ebb
GM		 1147 if (!pixel_allocated_p)
1148 pixel = x_copy_color (f, pixel);
09393d07 1149 x->cursor_pixel = pixel;
a76206dc 1150
fe24a618 1151 if (FRAME_X_WINDOW (f) != 0)
01f1ba30 1152 {
01f1ba30 1153 BLOCK_INPUT;
09393d07
GM		 1154 XSetBackground (FRAME_X_DISPLAY (f), x->cursor_gc, x->cursor_pixel);
1155 XSetForeground (FRAME_X_DISPLAY (f), x->cursor_gc, fore_pixel);
01f1ba30 1156 UNBLOCK_INPUT;
01f1ba30 1157
179956b9 1158 if (FRAME_VISIBLE_P (f))
01f1ba30 1159 {
cedadcfa
RS		 1160 x_update_cursor (f, 0);
1161 x_update_cursor (f, 1);
01f1ba30
JB		 1162 }
1163 }
05c8abbe
GM		 1164
1165 update_face_from_frame_parameter (f, Qcursor_color, arg);
01f1ba30 1166}
943b580d 1167\f
f676886a 1168/* Set the border-color of frame F to pixel value PIX.
01f1ba30 1169 Note that this does not fully take effect if done before
f676886a 1170 F has an x-window. */
01f1ba30 1171
968b1234 1172void
f676886a
JB		 1173x_set_border_pixel (f, pix)
1174 struct frame *f;
01f1ba30
JB		 1175 int pix;
1176{
a76206dc 1177 unload_color (f, f->output_data.x->border_pixel);
7556890b 1178 f->output_data.x->border_pixel = pix;
01f1ba30 1179
be786000 1180 if (FRAME_X_WINDOW (f) != 0 && f->border_width > 0)
01f1ba30 1181 {
01f1ba30 1182 BLOCK_INPUT;
b9dc4443 1183 XSetWindowBorder (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
270958e8 1184 (unsigned long)pix);
01f1ba30
JB		 1185 UNBLOCK_INPUT;
1186
179956b9 1187 if (FRAME_VISIBLE_P (f))
f676886a 1188 redraw_frame (f);
01f1ba30
JB		 1189 }
1190}
1191
7c0d3ed8
KS		 1192/* Set the border-color of frame F to value described by ARG.
1193 ARG can be a string naming a color.
1194 The border-color is used for the border that is drawn by the X server.
1195 Note that this does not fully take effect if done before
1196 F has an x-window; it must be redone when the window is created.
1197
1198 Note: this is done in two routines because of the way X10 works.
1199
1200 Note: under X11, this is normally the province of the window manager,
1201 and so emacs' border colors may be overridden. */
1202
1203void
1204x_set_border_color (f, arg, oldval)
1205 struct frame *f;
1206 Lisp_Object arg, oldval;
1207{
1208 int pix;
1209
1210 CHECK_STRING (arg);
1211 pix = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f));
1212 x_set_border_pixel (f, pix);
1213 update_face_from_frame_parameter (f, Qborder_color, arg);
1214}
0d1469d6 1215
0d1469d6
GM		 1216
1217void
1218x_set_cursor_type (f, arg, oldval)
1219 FRAME_PTR f;
1220 Lisp_Object arg, oldval;
1221{
33b2311e 1222 set_frame_cursor_types (f, arg);
dbc4e1c1 1223
75691005
RS		 1224 /* Make sure the cursor gets redrawn. */
1225 cursor_type_changed = 1;
dbc4e1c1 1226}
943b580d 1227\f
01f1ba30 1228void
f676886a
JB		 1229x_set_icon_type (f, arg, oldval)
1230 struct frame *f;
01f1ba30
JB		 1231 Lisp_Object arg, oldval;
1232{
01f1ba30
JB		 1233 int result;
1234
203c1d73
RS		 1235 if (STRINGP (arg))
1236 {
1237 if (STRINGP (oldval) && EQ (Fstring_equal (oldval, arg), Qt))
1238 return;
1239 }
1240 else if (!STRINGP (oldval) && EQ (oldval, Qnil) == EQ (arg, Qnil))
01f1ba30
JB		 1241 return;
1242
1243 BLOCK_INPUT;
265a9e55 1244 if (NILP (arg))
80534dd6 1245 result = x_text_icon (f,
d5db4077 1246 (char *) SDATA ((!NILP (f->icon_name)
f468da95 1247 ? f->icon_name
d5db4077 1248 : f->name)));
f1c7b5a6
RS		 1249 else
1250 result = x_bitmap_icon (f, arg);
01f1ba30
JB		 1251
1252 if (result)
1253 {
01f1ba30 1254 UNBLOCK_INPUT;
0fb53770 1255 error ("No icon window available");
01f1ba30
JB		 1256 }
1257
b9dc4443 1258 XFlush (FRAME_X_DISPLAY (f));
01f1ba30
JB		 1259 UNBLOCK_INPUT;
1260}
1261
80534dd6
KH		 1262void
1263x_set_icon_name (f, arg, oldval)
1264 struct frame *f;
1265 Lisp_Object arg, oldval;
1266{
80534dd6
KH		 1267 int result;
1268
1269 if (STRINGP (arg))
1270 {
1271 if (STRINGP (oldval) && EQ (Fstring_equal (oldval, arg), Qt))
1272 return;
1273 }
56f41f98 1274 else if (!NILP (arg) || NILP (oldval))
80534dd6
KH		 1275 return;
1276
f468da95 1277 f->icon_name = arg;
80534dd6 1278
7556890b 1279 if (f->output_data.x->icon_bitmap != 0)
80534dd6
KH		 1280 return;
1281
1282 BLOCK_INPUT;
1283
1284 result = x_text_icon (f,
d5db4077
KR		 1285 (char *) SDATA ((!NILP (f->icon_name)
1286 ? f->icon_name
1287 : !NILP (f->title)
1288 ? f->title
1289 : f->name)));
80534dd6
KH		 1290
1291 if (result)
1292 {
1293 UNBLOCK_INPUT;
1294 error ("No icon window available");
1295 }
1296
80534dd6
KH		 1297 XFlush (FRAME_X_DISPLAY (f));
1298 UNBLOCK_INPUT;
1299}
7c0d3ed8 1300
943b580d 1301\f
01f1ba30 1302void
7c0d3ed8 1303x_set_menu_bar_lines (f, value, oldval)
f676886a 1304 struct frame *f;
7c0d3ed8 1305 Lisp_Object value, oldval;
01f1ba30 1306{
7c0d3ed8 1307 int nlines;
6b61353c 1308#if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
7c0d3ed8
KS		 1309 int olines = FRAME_MENU_BAR_LINES (f);
1310#endif
177c0ea7 1311
7c0d3ed8
KS		 1312 /* Right now, menu bars don't work properly in minibuf-only frames;
1313 most of the commands try to apply themselves to the minibuffer
1314 frame itself, and get an error because you can't switch buffers
1315 in or split the minibuffer window. */
1316 if (FRAME_MINIBUF_ONLY_P (f))
1317 return;
177c0ea7 1318
7c0d3ed8
KS		 1319 if (INTEGERP (value))
1320 nlines = XINT (value);
ea96210c 1321 else
7c0d3ed8 1322 nlines = 0;
a367641f 1323
7c0d3ed8
KS		 1324 /* Make sure we redisplay all windows in this frame. */
1325 windows_or_buffers_changed++;
3d09b6be 1326
488dd4c4 1327#if defined (USE_X_TOOLKIT) || defined (USE_GTK)
9ef48a9d
RS		 1328 FRAME_MENU_BAR_LINES (f) = 0;
1329 if (nlines)
0d8ef3f4
RS		 1330 {
1331 FRAME_EXTERNAL_MENU_BAR (f) = 1;
97a1ff91 1332 if (FRAME_X_P (f) && f->output_data.x->menubar_widget == 0)
0d8ef3f4
RS		 1333 /* Make sure next redisplay shows the menu bar. */
1334 XWINDOW (FRAME_SELECTED_WINDOW (f))->update_mode_line = Qt;
1335 }
9ef48a9d
RS		 1336 else
1337 {
6bc20398
FP		 1338 if (FRAME_EXTERNAL_MENU_BAR (f) == 1)
1339 free_frame_menubar (f);
9ef48a9d 1340 FRAME_EXTERNAL_MENU_BAR (f) = 0;
97a1ff91
RS		 1341 if (FRAME_X_P (f))
1342 f->output_data.x->menubar_widget = 0;
9ef48a9d 1343 }
488dd4c4 1344#else /* not USE_X_TOOLKIT && not USE_GTK */
d043f1a4 1345 FRAME_MENU_BAR_LINES (f) = nlines;
7c0d3ed8 1346 change_window_heights (f->root_window, nlines - olines);
9ef48a9d 1347#endif /* not USE_X_TOOLKIT */
333b20bb
GM		 1348 adjust_glyphs (f);
1349}
1350
1351
1352/* Set the number of lines used for the tool bar of frame F to VALUE.
1353 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1354 is the old number of tool bar lines. This function changes the
1355 height of all windows on frame F to match the new tool bar height.
1356 The frame's height doesn't change. */
1357
1358void
9ea173e8 1359x_set_tool_bar_lines (f, value, oldval)
333b20bb
GM		 1360 struct frame *f;
1361 Lisp_Object value, oldval;
1362{
52de7ce9
GM		 1363 int delta, nlines, root_height;
1364 Lisp_Object root_window;
333b20bb 1365
e870b7ba
GM		 1366 /* Treat tool bars like menu bars. */
1367 if (FRAME_MINIBUF_ONLY_P (f))
1368 return;
1369
333b20bb
GM		 1370 /* Use VALUE only if an integer >= 0. */
1371 if (INTEGERP (value) && XINT (value) >= 0)
1372 nlines = XFASTINT (value);
1373 else
1374 nlines = 0;
1375
488dd4c4
JD		 1376#ifdef USE_GTK
1377 FRAME_TOOL_BAR_LINES (f) = 0;
1378 if (nlines)
1379 {
1380 FRAME_EXTERNAL_TOOL_BAR (f) = 1;
1381 if (FRAME_X_P (f) && f->output_data.x->toolbar_widget == 0)
1382 /* Make sure next redisplay shows the tool bar. */
1383 XWINDOW (FRAME_SELECTED_WINDOW (f))->update_mode_line = Qt;
1384 update_frame_tool_bar (f);
1385 }
1386 else
1387 {
1388 if (FRAME_EXTERNAL_TOOL_BAR (f))
1389 free_frame_tool_bar (f);
1390 FRAME_EXTERNAL_TOOL_BAR (f) = 0;
1391 }
1392
1393 return;
1394#endif
177c0ea7 1395
488dd4c4 1396 /* Make sure we redisplay all windows in this frame. */
333b20bb
GM		 1397 ++windows_or_buffers_changed;
1398
9ea173e8 1399 delta = nlines - FRAME_TOOL_BAR_LINES (f);
52de7ce9
GM		 1400
1401 /* Don't resize the tool-bar to more than we have room for. */
1402 root_window = FRAME_ROOT_WINDOW (f);
be786000 1403 root_height = WINDOW_TOTAL_LINES (XWINDOW (root_window));
52de7ce9
GM		 1404 if (root_height - delta < 1)
1405 {
1406 delta = root_height - 1;
1407 nlines = FRAME_TOOL_BAR_LINES (f) + delta;
1408 }
1409
9ea173e8 1410 FRAME_TOOL_BAR_LINES (f) = nlines;
7c0d3ed8 1411 change_window_heights (root_window, delta);
333b20bb 1412 adjust_glyphs (f);
177c0ea7 1413
ccba751c
GM		 1414 /* We also have to make sure that the internal border at the top of
1415 the frame, below the menu bar or tool bar, is redrawn when the
1416 tool bar disappears. This is so because the internal border is
1417 below the tool bar if one is displayed, but is below the menu bar
1418 if there isn't a tool bar. The tool bar draws into the area
1419 below the menu bar. */
1420 if (FRAME_X_WINDOW (f) && FRAME_TOOL_BAR_LINES (f) == 0)
1421 {
385ed61f 1422 clear_frame (f);
fb3cd89b 1423 clear_current_matrices (f);
ccba751c 1424 }
b6f91066
GM		 1425
1426 /* If the tool bar gets smaller, the internal border below it
1427 has to be cleared. It was formerly part of the display
1428 of the larger tool bar, and updating windows won't clear it. */
1429 if (delta < 0)
1430 {
1431 int height = FRAME_INTERNAL_BORDER_WIDTH (f);
be786000
KS		 1432 int width = FRAME_PIXEL_WIDTH (f);
1433 int y = nlines * FRAME_LINE_HEIGHT (f);
b6f91066 1434
caacfeb8
JD		 1435 /* height can be zero here. */
1436 if (height > 0 && width > 0)
1437 {
1438 BLOCK_INPUT;
1439 x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
1440 0, y, width, height, False);
1441 UNBLOCK_INPUT;
1442 }
ddc24747
GM		 1443
1444 if (WINDOWP (f->tool_bar_window))
1445 clear_glyph_matrix (XWINDOW (f->tool_bar_window)->current_matrix);
b6f91066 1446 }
333b20bb
GM		 1447}
1448
1449
1450/* Set the foreground color for scroll bars on frame F to VALUE.
1451 VALUE should be a string, a color name. If it isn't a string or
1452 isn't a valid color name, do nothing. OLDVAL is the old value of
1453 the frame parameter. */
1454
1455void
1456x_set_scroll_bar_foreground (f, value, oldval)
1457 struct frame *f;
1458 Lisp_Object value, oldval;
1459{
1460 unsigned long pixel;
177c0ea7 1461
333b20bb
GM		 1462 if (STRINGP (value))
1463 pixel = x_decode_color (f, value, BLACK_PIX_DEFAULT (f));
1464 else
1465 pixel = -1;
1466
1467 if (f->output_data.x->scroll_bar_foreground_pixel != -1)
1468 unload_color (f, f->output_data.x->scroll_bar_foreground_pixel);
177c0ea7 1469
333b20bb
GM		 1470 f->output_data.x->scroll_bar_foreground_pixel = pixel;
1471 if (FRAME_X_WINDOW (f) && FRAME_VISIBLE_P (f))
1472 {
1473 /* Remove all scroll bars because they have wrong colors. */
6ed8eeff
KL		 1474 if (FRAME_TERMINAL (f)->condemn_scroll_bars_hook)
1475 (*FRAME_TERMINAL (f)->condemn_scroll_bars_hook) (f);
1476 if (FRAME_TERMINAL (f)->judge_scroll_bars_hook)
1477 (*FRAME_TERMINAL (f)->judge_scroll_bars_hook) (f);
05c8abbe
GM		 1478
1479 update_face_from_frame_parameter (f, Qscroll_bar_foreground, value);
333b20bb
GM		 1480 redraw_frame (f);
1481 }
1482}
1483
1484
1485/* Set the background color for scroll bars on frame F to VALUE VALUE
1486 should be a string, a color name. If it isn't a string or isn't a
1487 valid color name, do nothing. OLDVAL is the old value of the frame
1488 parameter. */
1489
1490void
1491x_set_scroll_bar_background (f, value, oldval)
1492 struct frame *f;
1493 Lisp_Object value, oldval;
1494{
1495 unsigned long pixel;
1496
1497 if (STRINGP (value))
1498 pixel = x_decode_color (f, value, WHITE_PIX_DEFAULT (f));
1499 else
1500 pixel = -1;
177c0ea7 1501
333b20bb
GM		 1502 if (f->output_data.x->scroll_bar_background_pixel != -1)
1503 unload_color (f, f->output_data.x->scroll_bar_background_pixel);
177c0ea7 1504
f15340b7
MB		 1505#ifdef USE_TOOLKIT_SCROLL_BARS
1506 /* Scrollbar shadow colors. */
1507 if (f->output_data.x->scroll_bar_top_shadow_pixel != -1)
1508 {
1509 unload_color (f, f->output_data.x->scroll_bar_top_shadow_pixel);
1510 f->output_data.x->scroll_bar_top_shadow_pixel = -1;
1511 }
1512 if (f->output_data.x->scroll_bar_bottom_shadow_pixel != -1)
1513 {
1514 unload_color (f, f->output_data.x->scroll_bar_bottom_shadow_pixel);
1515 f->output_data.x->scroll_bar_bottom_shadow_pixel = -1;
1516 }
1517#endif /* USE_TOOLKIT_SCROLL_BARS */
1518
333b20bb
GM		 1519 f->output_data.x->scroll_bar_background_pixel = pixel;
1520 if (FRAME_X_WINDOW (f) && FRAME_VISIBLE_P (f))
1521 {
1522 /* Remove all scroll bars because they have wrong colors. */
6ed8eeff
KL		 1523 if (FRAME_TERMINAL (f)->condemn_scroll_bars_hook)
1524 (*FRAME_TERMINAL (f)->condemn_scroll_bars_hook) (f);
1525 if (FRAME_TERMINAL (f)->judge_scroll_bars_hook)
1526 (*FRAME_TERMINAL (f)->judge_scroll_bars_hook) (f);
177c0ea7 1527
05c8abbe 1528 update_face_from_frame_parameter (f, Qscroll_bar_background, value);
333b20bb
GM		 1529 redraw_frame (f);
1530 }
d043f1a4 1531}
333b20bb 1532
943b580d 1533\f
3a258507 1534/* Encode Lisp string STRING as a text in a format appropriate for
96db09e4
KH		 1535 XICCC (X Inter Client Communication Conventions).
1536
6f103132
RS		 1537 This can call Lisp code, so callers must GCPRO.
1538
96db09e4
KH		 1539 If STRING contains only ASCII characters, do no conversion and
1540 return the string data of STRING. Otherwise, encode the text by
1541 CODING_SYSTEM, and return a newly allocated memory area which
1542 should be freed by `xfree' by a caller.
1543
37323f34
EZ		 1544 SELECTIONP non-zero means the string is being encoded for an X
1545 selection, so it is safe to run pre-write conversions (which
1546 may run Lisp code).
1547
96db09e4
KH		 1548 Store the byte length of resulting text in *TEXT_BYTES.
1549
d60660d6 1550 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
96db09e4 1551 which means that the `encoding' of the result can be `STRING'.
d60660d6 1552 Otherwise store 0 in *STRINGP, which means that the `encoding' of
96db09e4
KH		 1553 the result should be `COMPOUND_TEXT'. */
1554
df630496
KS		 1555static unsigned char *
1556x_encode_text (string, coding_system, selectionp, text_bytes, stringp, freep)
96db09e4 1557 Lisp_Object string, coding_system;
d60660d6 1558 int *text_bytes, *stringp;
37323f34 1559 int selectionp;
df630496 1560 int *freep;
96db09e4 1561{
0f8c4c4f 1562 int result = string_xstring_p (string);
96db09e4
KH		 1563 struct coding_system coding;
1564
0f8c4c4f 1565 if (result == 0)
96db09e4
KH		 1566 {
1567 /* No multibyte character in OBJ. We need not encode it. */
8f924df7 1568 *text_bytes = SBYTES (string);
d60660d6 1569 *stringp = 1;
df630496 1570 *freep = 0;
8f924df7 1571 return SDATA (string);
96db09e4
KH		 1572 }
1573
1574 setup_coding_system (coding_system, &coding);
0f8c4c4f 1575 coding.mode |= (CODING_MODE_SAFE_ENCODING | CODING_MODE_LAST_BLOCK);
35bc5887 1576 /* We suppress producing escape sequences for composition. */
0f8c4c4f 1577 coding.common_flags &= ~CODING_ANNOTATION_MASK;
8f924df7 1578 coding.dst_bytes = SCHARS (string) * 2;
b954d586 1579 coding.destination = (unsigned char *) xmalloc (coding.dst_bytes);
0f8c4c4f 1580 encode_coding_object (&coding, string, 0, 0,
8f924df7 1581 SCHARS (string), SBYTES (string), Qnil);
96db09e4 1582 *text_bytes = coding.produced;
0f8c4c4f 1583 *stringp = (result == 1 || !EQ (coding_system, Qcompound_text));
df630496 1584 *freep = 1;
b954d586 1585 return coding.destination;
96db09e4
KH		 1586}
1587
1588\f
b10daec7
JD		 1589/* Set the WM name to NAME for frame F. Also set the icon name.
1590 If the frame already has an icon name, use that, otherwise set the
1591 icon name to NAME. */
f945b920 1592
b10daec7
JD		 1593static void
1594x_set_name_internal (f, name)
1595 FRAME_PTR f;
f945b920 1596 Lisp_Object name;
f945b920 1597{
fe24a618 1598 if (FRAME_X_WINDOW (f))
01f1ba30 1599 {
01f1ba30 1600 BLOCK_INPUT;
fe24a618 1601 {
80534dd6 1602 XTextProperty text, icon;
d60660d6 1603 int bytes, stringp;
b10daec7 1604 int do_free_icon_value = 0, do_free_text_value = 0;
11270583 1605 Lisp_Object coding_system;
c2915ced
CY		 1606#ifdef USE_GTK
1607 Lisp_Object encoded_name;
1608 struct gcpro gcpro1;
1609
1610 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1611 we use it before x_encode_text that may return string data. */
1612 GCPRO1 (name);
1613 encoded_name = ENCODE_UTF_8 (name);
1614 UNGCPRO;
1615#endif
80534dd6 1616
b10daec7 1617 coding_system = Qcompound_text;
3201ea57
KH		 1618 /* Note: Encoding strategy
1619
1620 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1621 text.encoding. But, there are non-internationalized window
1622 managers which don't support that encoding. So, if NAME
1623 contains only ASCII and 8859-1 characters, encode it by
1624 iso-latin-1, and use "STRING" in text.encoding hoping that
34e8c597 1625 such window managers at least analyze this format correctly,
3201ea57
KH		 1626 i.e. treat 8-bit bytes as 8859-1 characters.
1627
1628 We may also be able to use "UTF8_STRING" in text.encoding
34e8c597 1629 in the future which can encode all Unicode characters.
3201ea57
KH		 1630 But, for the moment, there's no way to know that the
1631 current window manager supports it or not. */
df630496
KS		 1632 text.value = x_encode_text (name, coding_system, 0, &bytes, &stringp,
1633 &do_free_text_value);
d60660d6 1634 text.encoding = (stringp ? XA_STRING
96db09e4 1635 : FRAME_X_DISPLAY_INFO (f)->Xatom_COMPOUND_TEXT);
fe24a618 1636 text.format = 8;
96db09e4 1637 text.nitems = bytes;
80534dd6 1638
4985dde2 1639 if (!STRINGP (f->icon_name))
96db09e4
KH		 1640 {
1641 icon = text;
1642 }
1643 else
1644 {
3201ea57 1645 /* See the above comment "Note: Encoding strategy". */
37323f34 1646 icon.value = x_encode_text (f->icon_name, coding_system, 0,
df630496 1647 &bytes, &stringp, &do_free_icon_value);
d60660d6 1648 icon.encoding = (stringp ? XA_STRING
96db09e4
KH		 1649 : FRAME_X_DISPLAY_INFO (f)->Xatom_COMPOUND_TEXT);
1650 icon.format = 8;
1651 icon.nitems = bytes;
1652 }
b10daec7 1653
488dd4c4
JD		 1654#ifdef USE_GTK
1655 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f)),
c2915ced 1656 (char *) SDATA (encoded_name));
488dd4c4 1657#else /* not USE_GTK */
2436a4e4 1658 XSetWMName (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f), &text);
7c0d3ed8 1659#endif /* not USE_GTK */
abb4b7ec 1660
7c0d3ed8 1661 XSetWMIconName (FRAME_X_DISPLAY (f), FRAME_OUTER_WINDOW (f), &icon);
abb4b7ec 1662
b10daec7 1663 if (do_free_icon_value)
7c0d3ed8 1664 xfree (icon.value);
b10daec7 1665 if (do_free_text_value)
7c0d3ed8
KS		 1666 xfree (text.value);
1667 }
7c0d3ed8
KS		 1668 UNBLOCK_INPUT;
1669 }
abb4b7ec
RS		 1670}
1671
b10daec7
JD		 1672/* Change the name of frame F to NAME. If NAME is nil, set F's name to
1673 x_id_name.
1674
1675 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1676 name; if NAME is a string, set F's name to NAME and set
1677 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1678
1679 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1680 suggesting a new name, which lisp code should override; if
1681 F->explicit_name is set, ignore the new name; otherwise, set it. */
1682
1683void
1684x_set_name (f, name, explicit)
1685 struct frame *f;
1686 Lisp_Object name;
1687 int explicit;
1688{
1689 /* Make sure that requests from lisp code override requests from
1690 Emacs redisplay code. */
1691 if (explicit)
1692 {
1693 /* If we're switching from explicit to implicit, we had better
1694 update the mode lines and thereby update the title. */
1695 if (f->explicit_name && NILP (name))
1696 update_mode_lines = 1;
1697
1698 f->explicit_name = ! NILP (name);
1699 }
1700 else if (f->explicit_name)
1701 return;
1702
1703 /* If NAME is nil, set the name to the x_id_name. */
1704 if (NILP (name))
1705 {
1706 /* Check for no change needed in this very common case
1707 before we do any consing. */
1708 if (!strcmp (FRAME_X_DISPLAY_INFO (f)->x_id_name,
1709 SDATA (f->name)))
1710 return;
1711 name = build_string (FRAME_X_DISPLAY_INFO (f)->x_id_name);
1712 }
1713 else
1714 CHECK_STRING (name);
1715
1716 /* Don't change the name if it's already NAME. */
1717 if (! NILP (Fstring_equal (name, f->name)))
1718 return;
1719
1720 f->name = name;
1721
1722 /* For setting the frame title, the title parameter should override
1723 the name parameter. */
1724 if (! NILP (f->title))
1725 name = f->title;
1726
1727 x_set_name_internal (f, name);
1728}
1729
7c0d3ed8
KS		 1730/* This function should be called when the user's lisp code has
1731 specified a name for the frame; the name will override any set by the
1732 redisplay code. */
1733void
1734x_explicitly_set_name (f, arg, oldval)
1735 FRAME_PTR f;
1736 Lisp_Object arg, oldval;
3402e1a4 1737{
7c0d3ed8 1738 x_set_name (f, arg, 1);
3402e1a4
RS		 1739}
1740
7c0d3ed8
KS		 1741/* This function should be called by Emacs redisplay code to set the
1742 name; names set this way will never override names set by the user's
1743 lisp code. */
1744void
1745x_implicitly_set_name (f, arg, oldval)
1746 FRAME_PTR f;
1747 Lisp_Object arg, oldval;
333b20bb 1748{
7c0d3ed8
KS		 1749 x_set_name (f, arg, 0);
1750}
1751\f
1752/* Change the title of frame F to NAME.
40aa4c27 1753 If NAME is nil, use the frame name as the title. */
01f1ba30 1754
7c0d3ed8
KS		 1755void
1756x_set_title (f, name, old_name)
1757 struct frame *f;
1758 Lisp_Object name, old_name;
01f1ba30 1759{
7c0d3ed8
KS		 1760 /* Don't change the title if it's already NAME. */
1761 if (EQ (name, f->title))
1762 return;
01f1ba30 1763
7c0d3ed8 1764 update_mode_lines = 1;
60fb3ee1 1765
7c0d3ed8 1766 f->title = name;
f9942c9e 1767
7c0d3ed8
KS		 1768 if (NILP (name))
1769 name = f->name;
1770 else
1771 CHECK_STRING (name);
f9942c9e 1772
b10daec7 1773 x_set_name_internal (f, name);
01f1ba30
JB		 1774}
1775
7c0d3ed8
KS		 1776void
1777x_set_scroll_bar_default_width (f)
e4f79258 1778 struct frame *f;
e4f79258 1779{
be786000 1780 int wid = FRAME_COLUMN_WIDTH (f);
01f1ba30 1781
7c0d3ed8
KS		 1782#ifdef USE_TOOLKIT_SCROLL_BARS
1783 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1784 int width = 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM;
be786000
KS		 1785 FRAME_CONFIG_SCROLL_BAR_COLS (f) = (width + wid - 1) / wid;
1786 FRAME_CONFIG_SCROLL_BAR_WIDTH (f) = width;
7c0d3ed8
KS		 1787#else
1788 /* Make the actual width at least 14 pixels and a multiple of a
1789 character width. */
be786000 1790 FRAME_CONFIG_SCROLL_BAR_COLS (f) = (14 + wid - 1) / wid;
01f1ba30 1791
7c0d3ed8
KS		 1792 /* Use all of that space (aside from required margins) for the
1793 scroll bar. */
be786000 1794 FRAME_CONFIG_SCROLL_BAR_WIDTH (f) = 0;
7c0d3ed8 1795#endif
01f1ba30 1796}
333b20bb 1797
7c0d3ed8 1798\f
333b20bb
GM		 1799/* Record in frame F the specified or default value according to ALIST
1800 of the parameter named PROP (a Lisp symbol). If no value is
1801 specified for PROP, look for an X default for XPROP on the frame
1802 named NAME. If that is not found either, use the value DEFLT. */
1803
1804static Lisp_Object
1805x_default_scroll_bar_color_parameter (f, alist, prop, xprop, xclass,
1806 foreground_p)
1807 struct frame *f;
1808 Lisp_Object alist;
1809 Lisp_Object prop;
1810 char *xprop;
1811 char *xclass;
1812 int foreground_p;
1813{
1814 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
1815 Lisp_Object tem;
1816
1817 tem = x_get_arg (dpyinfo, alist, prop, xprop, xclass, RES_TYPE_STRING);
1818 if (EQ (tem, Qunbound))
1819 {
1820#ifdef USE_TOOLKIT_SCROLL_BARS
1821
1822 /* See if an X resource for the scroll bar color has been
1823 specified. */
1824 tem = display_x_get_resource (dpyinfo,
1825 build_string (foreground_p
1826 ? "foreground"
1827 : "background"),
6ecd75be 1828 empty_unibyte_string,
333b20bb 1829 build_string ("verticalScrollBar"),
6ecd75be 1830 empty_unibyte_string);
333b20bb
GM		 1831 if (!STRINGP (tem))
1832 {
1833 /* If nothing has been specified, scroll bars will use a
1834 toolkit-dependent default. Because these defaults are
1835 difficult to get at without actually creating a scroll
1836 bar, use nil to indicate that no color has been
1837 specified. */
1838 tem = Qnil;
1839 }
177c0ea7 1840
333b20bb 1841#else /* not USE_TOOLKIT_SCROLL_BARS */
177c0ea7 1842
333b20bb 1843 tem = Qnil;
177c0ea7 1844
333b20bb
GM		 1845#endif /* not USE_TOOLKIT_SCROLL_BARS */
1846 }
1847
1848 x_set_frame_parameters (f, Fcons (Fcons (prop, tem), Qnil));
1849 return tem;
1850}
1851
1852
01f1ba30 1853
9ef48a9d
RS		 1854\f
1855#ifdef USE_X_TOOLKIT
1856
8e3d10a9
RS		 1857/* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1858 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
59aa6c90
RS		 1859 already be present because of the toolkit (Motif adds some of them,
1860 for example, but Xt doesn't). */
9ef48a9d
RS		 1861
1862static void
b9dc4443
RS		 1863hack_wm_protocols (f, widget)
1864 FRAME_PTR f;
9ef48a9d
RS		 1865 Widget widget;
1866{
1867 Display *dpy = XtDisplay (widget);
1868 Window w = XtWindow (widget);
1869 int need_delete = 1;
1870 int need_focus = 1;
59aa6c90 1871 int need_save = 1;
9ef48a9d
RS		 1872
1873 BLOCK_INPUT;
1874 {
a3db4b26
AS		 1875 Atom type;
1876 unsigned char *catoms;
9ef48a9d
RS		 1877 int format = 0;
1878 unsigned long nitems = 0;
1879 unsigned long bytes_after;
1880
270958e8
KH		 1881 if ((XGetWindowProperty (dpy, w,
1882 FRAME_X_DISPLAY_INFO (f)->Xatom_wm_protocols,
34d5ae1e 1883 (long)0, (long)100, False, XA_ATOM,
270958e8 1884 &type, &format, &nitems, &bytes_after,
a3db4b26 1885 &catoms)
270958e8 1886 == Success)
9ef48a9d 1887 && format == 32 && type == XA_ATOM)
a3db4b26
AS		 1888 {
1889 Atom *atoms = (Atom *) catoms;
1890 while (nitems > 0)
1891 {
1892 nitems--;
1893 if (atoms[nitems]
1894 == FRAME_X_DISPLAY_INFO (f)->Xatom_wm_delete_window)
1895 need_delete = 0;
1896 else if (atoms[nitems]
1897 == FRAME_X_DISPLAY_INFO (f)->Xatom_wm_take_focus)
1898 need_focus = 0;
1899 else if (atoms[nitems]
1900 == FRAME_X_DISPLAY_INFO (f)->Xatom_wm_save_yourself)
1901 need_save = 0;
1902 }
1903 }
1904 if (catoms)
1905 XFree (catoms);
9ef48a9d
RS		 1906 }
1907 {
1908 Atom props [10];
1909 int count = 0;
b9dc4443
RS		 1910 if (need_delete)
1911 props[count++] = FRAME_X_DISPLAY_INFO (f)->Xatom_wm_delete_window;
1912 if (need_focus)
1913 props[count++] = FRAME_X_DISPLAY_INFO (f)->Xatom_wm_take_focus;
1914 if (need_save)
1915 props[count++] = FRAME_X_DISPLAY_INFO (f)->Xatom_wm_save_yourself;
9ef48a9d 1916 if (count)
b9dc4443
RS		 1917 XChangeProperty (dpy, w, FRAME_X_DISPLAY_INFO (f)->Xatom_wm_protocols,
1918 XA_ATOM, 32, PropModeAppend,
9ef48a9d
RS		 1919 (unsigned char *) props, count);
1920 }
1921 UNBLOCK_INPUT;
1922}
1923#endif
86779fac
GM		 1924
1925
5a7df7d7
GM		 1926\f
1927/* Support routines for XIC (X Input Context). */
86779fac 1928
5a7df7d7
GM		 1929#ifdef HAVE_X_I18N
1930
1931static XFontSet xic_create_xfontset P_ ((struct frame *, char *));
a32f056c 1932static XFontSet xic_create_xfontset2 P_ ((struct frame *));
5a7df7d7
GM		 1933static XIMStyle best_xim_style P_ ((XIMStyles *, XIMStyles *));
1934
1935
1576f1ad 1936/* Supported XIM styles, ordered by preference. */
5a7df7d7
GM		 1937
1938static XIMStyle supported_xim_styles[] =
1939{
1940 XIMPreeditPosition | XIMStatusArea,
1941 XIMPreeditPosition | XIMStatusNothing,
1942 XIMPreeditPosition | XIMStatusNone,
1943 XIMPreeditNothing | XIMStatusArea,
1944 XIMPreeditNothing | XIMStatusNothing,
1945 XIMPreeditNothing | XIMStatusNone,
1946 XIMPreeditNone | XIMStatusArea,
1947 XIMPreeditNone | XIMStatusNothing,
1948 XIMPreeditNone | XIMStatusNone,
1949 0,
1950};
1951
1952
c27ed90a 1953/* Create an X fontset on frame F with base font name BASE_FONTNAME. */
5a7df7d7 1954
bb07fa29
SM		 1955char xic_defaut_fontset[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1956
c28e7ae8
SM		 1957/* Create an Xt fontset spec from the name of a base font.
1958 If `motif' is True use the Motif syntax. */
bb07fa29 1959char *
c28e7ae8 1960xic_create_fontsetname (base_fontname, motif)
bb07fa29 1961 char *base_fontname;
c28e7ae8 1962 Bool motif;
bb07fa29 1963{
c28e7ae8
SM		 1964 const char *sep = motif ? ";" : ",";
1965 char *fontsetname;
1966
bb07fa29
SM		 1967 /* Make a fontset name from the base font name. */
1968 if (xic_defaut_fontset == base_fontname)
c28e7ae8
SM		 1969 { /* There is no base font name, use the default. */
1970 int len = strlen (base_fontname) + 2;
1971 fontsetname = xmalloc (len);
1972 bzero (fontsetname, len);
1973 strcpy (fontsetname, base_fontname);
1974 }
bb07fa29
SM		 1975 else
1976 {
1977 /* Make a fontset name from the base font name.
1978 The font set will be made of the following elements:
1979 - the base font.
1980 - the base font where the charset spec is replaced by -*-*.
1981 - the same but with the family also replaced with -*-*-. */
1982 char *p = base_fontname;
bb07fa29 1983 int i;
df630496 1984
bb07fa29
SM		 1985 for (i = 0; *p; p++)
1986 if (*p == '-') i++;
1987 if (i != 14)
1988 { /* As the font name doesn't conform to XLFD, we can't
1989 modify it to generalize it to allcs and allfamilies.
1990 Use the specified font plus the default. */
c28e7ae8 1991 int len = strlen (base_fontname) + strlen (xic_defaut_fontset) + 3;
bb07fa29
SM		 1992 fontsetname = xmalloc (len);
1993 bzero (fontsetname, len);
1994 strcpy (fontsetname, base_fontname);
c28e7ae8 1995 strcat (fontsetname, sep);
bb07fa29
SM		 1996 strcat (fontsetname, xic_defaut_fontset);
1997 }
1998 else
1999 {
2000 int len;
cd987aaa 2001 char *p1 = NULL, *p2 = NULL, *p3 = NULL;
bb07fa29
SM		 2002 char *font_allcs = NULL;
2003 char *font_allfamilies = NULL;
968a6679 2004 char *font_all = NULL;
bb07fa29
SM		 2005 char *allcs = "*-*-*-*-*-*-*";
2006 char *allfamilies = "-*-*-";
968a6679 2007 char *all = "*-*-*-*-";
cd987aaa 2008 char *base;
df630496 2009
bb07fa29
SM		 2010 for (i = 0, p = base_fontname; i < 8; p++)
2011 {
2012 if (*p == '-')
2013 {
2014 i++;
2015 if (i == 3)
2016 p1 = p + 1;
968a6679
SM		 2017 else if (i == 7)
2018 p2 = p + 1;
cd987aaa
KH		 2019 else if (i == 6)
2020 p3 = p + 1;
bb07fa29
SM		 2021 }
2022 }
cd987aaa
KH		 2023 /* If base_fontname specifies ADSTYLE, make it a
2024 wildcard. */
2025 if (*p3 != '*')
2026 {
2027 int diff = (p2 - p3) - 2;
2028
2029 base = alloca (strlen (base_fontname) + 1);
2030 bcopy (base_fontname, base, p3 - base_fontname);
2031 base[p3 - base_fontname] = '*';
2032 base[(p3 - base_fontname) + 1] = '-';
2033 strcpy (base + (p3 - base_fontname) + 2, p2);
2034 p = base + (p - base_fontname) - diff;
2035 p1 = base + (p1 - base_fontname);
2036 p2 = base + (p2 - base_fontname) - diff;
2037 base_fontname = base;
2038 }
2039
bb07fa29
SM		 2040 /* Build the font spec that matches all charsets. */
2041 len = p - base_fontname + strlen (allcs) + 1;
2042 font_allcs = (char *) alloca (len);
2043 bzero (font_allcs, len);
2044 bcopy (base_fontname, font_allcs, p - base_fontname);
2045 strcat (font_allcs, allcs);
2046
cd987aaa
KH		 2047 /* Build the font spec that matches all families and
2048 add-styles. */
bb07fa29
SM		 2049 len = p - p1 + strlen (allcs) + strlen (allfamilies) + 1;
2050 font_allfamilies = (char *) alloca (len);
2051 bzero (font_allfamilies, len);
2052 strcpy (font_allfamilies, allfamilies);
968a6679 2053 bcopy (p1, font_allfamilies + strlen (allfamilies), p - p1);
bb07fa29
SM		 2054 strcat (font_allfamilies, allcs);
2055
968a6679
SM		 2056 /* Build the font spec that matches all. */
2057 len = p - p2 + strlen (allcs) + strlen (all) + strlen (allfamilies) + 1;
2058 font_all = (char *) alloca (len);
2059 bzero (font_all, len);
2060 strcpy (font_all, allfamilies);
2061 strcat (font_all, all);
2062 bcopy (p2, font_all + strlen (all) + strlen (allfamilies), p - p2);
2063 strcat (font_all, allcs);
2064
bb07fa29
SM		 2065 /* Build the actual font set name. */
2066 len = strlen (base_fontname) + strlen (font_allcs)
968a6679 2067 + strlen (font_allfamilies) + strlen (font_all) + 5;
bb07fa29
SM		 2068 fontsetname = xmalloc (len);
2069 bzero (fontsetname, len);
2070 strcpy (fontsetname, base_fontname);
c28e7ae8 2071 strcat (fontsetname, sep);
bb07fa29 2072 strcat (fontsetname, font_allcs);
c28e7ae8 2073 strcat (fontsetname, sep);
bb07fa29 2074 strcat (fontsetname, font_allfamilies);
968a6679
SM		 2075 strcat (fontsetname, sep);
2076 strcat (fontsetname, font_all);
bb07fa29 2077 }
bb07fa29 2078 }
c28e7ae8
SM		 2079 if (motif)
2080 strcat (fontsetname, ":");
2081 return fontsetname;
bb07fa29
SM		 2082}
2083
2da34f50
KH		 2084#ifdef DEBUG_XIC_FONTSET
2085static void
2086print_fontset_result (xfs, name, missing_list, missing_count)
2087 XFontSet xfs;
2088 char *name;
2089 char **missing_list;
2090 int missing_count;
2091{
2092 if (xfs)
2093 fprintf (stderr, "XIC Fontset created: %s\n", name);
2094 else
2095 {
2096 fprintf (stderr, "XIC Fontset failed: %s\n", name);
2097 while (missing_count-- > 0)
2098 {
2099 fprintf (stderr, " missing: %s\n", *missing_list);
2100 missing_list++;
2101 }
2102 }
2103
2104}
2105#endif
2106
5a7df7d7
GM		 2107static XFontSet
2108xic_create_xfontset (f, base_fontname)
86779fac 2109 struct frame *f;
5a7df7d7 2110 char *base_fontname;
86779fac 2111{
c27ed90a 2112 XFontSet xfs = NULL;
63ea8ea5 2113 char **missing_list = NULL;
5a7df7d7
GM		 2114 int missing_count;
2115 char *def_string;
c27ed90a
JD		 2116 Lisp_Object rest, frame;
2117
bb07fa29
SM		 2118 if (!base_fontname)
2119 base_fontname = xic_defaut_fontset;
2120
c27ed90a
JD		 2121 /* See if there is another frame already using same fontset. */
2122 FOR_EACH_FRAME (rest, frame)
2123 {
2124 struct frame *cf = XFRAME (frame);
2125 if (cf != f && FRAME_LIVE_P (f) && FRAME_X_P (cf)
2126 && FRAME_X_DISPLAY_INFO (cf) == FRAME_X_DISPLAY_INFO (f)
9db6ae81 2127 && FRAME_XIC_BASE_FONTNAME (cf)
c27ed90a
JD		 2128 && !strcmp (FRAME_XIC_BASE_FONTNAME (cf), base_fontname))
2129 {
2130 xfs = FRAME_XIC_FONTSET (cf);
2131 break;
2132 }
2133 }
177c0ea7 2134
c27ed90a 2135 if (!xfs)
63ea8ea5 2136 {
c28e7ae8 2137 char *fontsetname = xic_create_fontsetname (base_fontname, False);
bb07fa29 2138
63ea8ea5 2139 /* New fontset. */
7147863a
KH		 2140 xfs = XCreateFontSet (FRAME_X_DISPLAY (f),
2141 fontsetname, &missing_list,
2142 &missing_count, &def_string);
2da34f50
KH		 2143#ifdef DEBUG_XIC_FONTSET
2144 print_fontset_result (xfs, fontsetname, missing_list, missing_count);
2145#endif
7147863a
KH		 2146 if (missing_list)
2147 XFreeStringList (missing_list);
2148 if (! xfs)
cd987aaa 2149 {
7147863a
KH		 2150 /* FONTSETNAME contains a list of font names (specific fonts
2151 first, general fonts last), but giving that to
2152 XCreateFontSet at once occasionally fails (bug of X?).
2153 So, we try to call XCreateFontSet for each fontname. */
2154 char *p0 = fontsetname, *p1;
2155
2156 while (p0)
2157 {
2158 p1 = strchr (p0, ',');
2159 if (p1)
2160 *p1 = '\0';
2161 xfs = XCreateFontSet (FRAME_X_DISPLAY (f),
2162 p0, &missing_list,
2163 &missing_count, &def_string);
2da34f50
KH		 2164#ifdef DEBUG_XIC_FONTSET
2165 print_fontset_result (xfs, p0, missing_list, missing_count);
2166#endif
7147863a
KH		 2167 if (missing_list)
2168 XFreeStringList (missing_list);
2169 if (xfs)
2170 break;
2171 p0 = p1 ? p1 + 1 : NULL;
2172 }
cd987aaa 2173 }
c28e7ae8 2174 xfree (fontsetname);
278109a9
KH		 2175 if (! xfs && base_fontname != xic_defaut_fontset)
2176 {
2177 /* Try the default fontset name at a last resort. */
2178 fontsetname = xic_create_fontsetname (xic_defaut_fontset, False);
2179 xfs = XCreateFontSet (FRAME_X_DISPLAY (f),
2180 fontsetname, &missing_list,
2181 &missing_count, &def_string);
2da34f50
KH		 2182#ifdef DEBUG_XIC_FONTSET
2183 print_fontset_result (xfs, fontsetname, missing_list, missing_count);
2184#endif
278109a9
KH		 2185 if (missing_list)
2186 XFreeStringList (missing_list);
2187 xfree (fontsetname);
2188 }
63ea8ea5 2189 }
177c0ea7 2190
c27ed90a
JD		 2191 if (FRAME_XIC_BASE_FONTNAME (f))
2192 xfree (FRAME_XIC_BASE_FONTNAME (f));
2193 FRAME_XIC_BASE_FONTNAME (f) = xstrdup (base_fontname);
2194
2195 /* No need to free def_string. */
5a7df7d7
GM		 2196 return xfs;
2197}
2198
a32f056c 2199#ifdef USE_FONT_BACKEND
d3483d71 2200
a32f056c
KH		 2201static XFontSet
2202xic_create_xfontset2 (f)
2203 struct frame *f;
2204{
2205 XFontSet xfs = NULL;
2206 struct font *font = FRAME_FONT_OBJECT (f);
2207 int pixel_size = font->pixel_size;
2208 Lisp_Object rest, frame;
2209
2210 /* See if there is another frame already using same fontset. */
2211 FOR_EACH_FRAME (rest, frame)
2212 {
2213 struct frame *cf = XFRAME (frame);
2214
2215 if (cf != f && FRAME_LIVE_P (f) && FRAME_X_P (cf)
2216 && FRAME_X_DISPLAY_INFO (cf) == FRAME_X_DISPLAY_INFO (f)
2217 && FRAME_FONT_OBJECT (f)
2218 && FRAME_FONT_OBJECT (f)->pixel_size == pixel_size)
2219 {
2220 xfs = FRAME_XIC_FONTSET (cf);
2221 break;
2222 }
2223 }
2224
2225 if (! xfs)
2226 {
2227 char buf[256];
2228 char **missing_list;
2229 int missing_count;
2230 char *def_string;
2231 char *xlfd_format = "-*-*-medium-r-normal--%d-*-*-*-*-*";
2232
2233 sprintf (buf, xlfd_format, pixel_size);
2234 missing_list = NULL;
2235 xfs = XCreateFontSet (FRAME_X_DISPLAY (f), buf,
2236 &missing_list, &missing_count, &def_string);
d3483d71 2237#ifdef DEBUG_XIC_FONTSET
22a8f595 2238 print_fontset_result (xfs, buf, missing_list, missing_count);
d3483d71 2239#endif
a32f056c
KH		 2240 if (missing_list)
2241 XFreeStringList (missing_list);
2242 if (! xfs)
2243 {
2244 /* List of pixel sizes most likely available. Find one that
2245 is closest to pixel_size. */
2246 int sizes[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2247 int *smaller, *larger;
2248
2249 for (smaller = sizes; smaller[1]; smaller++)
2250 if (smaller[1] >= pixel_size)
2251 break;
2252 larger = smaller + 1;
2253 if (*larger == pixel_size)
2254 larger++;
2255 while (*smaller || *larger)
2256 {
2257 int this_size;
2258
2259 if (! *larger)
2260 this_size = *smaller--;
2261 else if (! *smaller)
2262 this_size = *larger++;
2263 else if (pixel_size - *smaller < *larger - pixel_size)
2264 this_size = *smaller--;
2265 else
2266 this_size = *larger++;
2267 sprintf (buf, xlfd_format, this_size);
2268 missing_list = NULL;
2269 xfs = XCreateFontSet (FRAME_X_DISPLAY (f), buf,
2270 &missing_list, &missing_count, &def_string);
d3483d71 2271#ifdef DEBUG_XIC_FONTSET
22a8f595 2272 print_fontset_result (xfs, buf, missing_list, missing_count);
d3483d71 2273#endif
a32f056c
KH		 2274 if (missing_list)
2275 XFreeStringList (missing_list);
2276 if (xfs)
2277 break;
2278 }
2279 }
2da34f50
KH		 2280 if (! xfs)
2281 {
2282 char *last_resort = "-*-*-*-r-normal--*-*-*-*-*-*";
2283
2284 missing_list = NULL;
2285 xfs = XCreateFontSet (FRAME_X_DISPLAY (f), last_resort,
2286 &missing_list, &missing_count, &def_string);
2287#ifdef DEBUG_XIC_FONTSET
2288 print_fontset_result (xfs, last_resort, missing_list, missing_count);
2289#endif
2290 if (missing_list)
2291 XFreeStringList (missing_list);
2292 }
2293
a32f056c
KH		 2294 }
2295
2296 return xfs;
2297}
2298#endif /* USE_FONT_BACKEND */
2299
c27ed90a
JD		 2300/* Free the X fontset of frame F if it is the last frame using it. */
2301
2302void
2303xic_free_xfontset (f)
2304 struct frame *f;
2305{
2306 Lisp_Object rest, frame;
2307 int shared_p = 0;
2308
2309 if (!FRAME_XIC_FONTSET (f))
2310 return;
2311
2312 /* See if there is another frame sharing the same fontset. */
2313 FOR_EACH_FRAME (rest, frame)
2314 {
2315 struct frame *cf = XFRAME (frame);
2316 if (cf != f && FRAME_LIVE_P (f) && FRAME_X_P (cf)
2317 && FRAME_X_DISPLAY_INFO (cf) == FRAME_X_DISPLAY_INFO (f)
2318 && FRAME_XIC_FONTSET (cf) == FRAME_XIC_FONTSET (f))
2319 {
2320 shared_p = 1;
2321 break;
2322 }
2323 }
2324
2325 if (!shared_p)
2326 /* The fontset is not used anymore. It is safe to free it. */
2327 XFreeFontSet (FRAME_X_DISPLAY (f), FRAME_XIC_FONTSET (f));
2328
2329 if (FRAME_XIC_BASE_FONTNAME (f))
2330 xfree (FRAME_XIC_BASE_FONTNAME (f));
2331 FRAME_XIC_BASE_FONTNAME (f) = NULL;
2332 FRAME_XIC_FONTSET (f) = NULL;
2333}
2334
5a7df7d7
GM		 2335
2336/* Value is the best input style, given user preferences USER (already
2337 checked to be supported by Emacs), and styles supported by the
2338 input method XIM. */
2339
2340static XIMStyle
2341best_xim_style (user, xim)
2342 XIMStyles *user;
2343 XIMStyles *xim;
2344{
2345 int i, j;
2346
2347 for (i = 0; i < user->count_styles; ++i)
2348 for (j = 0; j < xim->count_styles; ++j)
2349 if (user->supported_styles[i] == xim->supported_styles[j])
2350 return user->supported_styles[i];
2351
2352 /* Return the default style. */
2353 return XIMPreeditNothing | XIMStatusNothing;
2354}
2355
2356/* Create XIC for frame F. */
2357
5df79d3d
GM		 2358static XIMStyle xic_style;
2359
5a7df7d7
GM		 2360void
2361create_frame_xic (f)
2362 struct frame *f;
2363{
5a7df7d7
GM		 2364 XIM xim;
2365 XIC xic = NULL;
2366 XFontSet xfs = NULL;
86779fac 2367
5a7df7d7
GM		 2368 if (FRAME_XIC (f))
2369 return;
177c0ea7 2370
bb07fa29 2371 /* Create X fontset. */
a32f056c
KH		 2372#ifdef USE_FONT_BACKEND
2373 if (enable_font_backend)
2374 xfs = xic_create_xfontset2 (f);
2375 else
2376#endif
bb07fa29
SM		 2377 xfs = xic_create_xfontset
2378 (f, (FRAME_FONTSET (f) < 0) ? NULL
2379 : (char *) SDATA (fontset_ascii (FRAME_FONTSET (f))));
2380
5a7df7d7
GM		 2381 xim = FRAME_X_XIM (f);
2382 if (xim)
2383 {
d9d57cb2
DL		 2384 XRectangle s_area;
2385 XPoint spot;
5a7df7d7
GM		 2386 XVaNestedList preedit_attr;
2387 XVaNestedList status_attr;
5a7df7d7 2388
d9d57cb2
DL		 2389 s_area.x = 0; s_area.y = 0; s_area.width = 1; s_area.height = 1;
2390 spot.x = 0; spot.y = 1;
86779fac 2391
5a7df7d7
GM		 2392 /* Determine XIC style. */
2393 if (xic_style == 0)
2394 {
2395 XIMStyles supported_list;
2396 supported_list.count_styles = (sizeof supported_xim_styles
2397 / sizeof supported_xim_styles[0]);
2398 supported_list.supported_styles = supported_xim_styles;
2399 xic_style = best_xim_style (&supported_list,
2400 FRAME_X_XIM_STYLES (f));
2401 }
86779fac 2402
5a7df7d7
GM		 2403 preedit_attr = XVaCreateNestedList (0,
2404 XNFontSet, xfs,
2405 XNForeground,
2406 FRAME_FOREGROUND_PIXEL (f),
2407 XNBackground,
2408 FRAME_BACKGROUND_PIXEL (f),
2409 (xic_style & XIMPreeditPosition
2410 ? XNSpotLocation
2411 : NULL),
2412 &spot,
2413 NULL);
2414 status_attr = XVaCreateNestedList (0,
2415 XNArea,
2416 &s_area,
2417 XNFontSet,
2418 xfs,
2419 XNForeground,
2420 FRAME_FOREGROUND_PIXEL (f),
2421 XNBackground,
2422 FRAME_BACKGROUND_PIXEL (f),
2423 NULL);
2424
2425 xic = XCreateIC (xim,
2426 XNInputStyle, xic_style,
6b61353c
KH		 2427 XNClientWindow, FRAME_X_WINDOW (f),
2428 XNFocusWindow, FRAME_X_WINDOW (f),
5a7df7d7
GM		 2429 XNStatusAttributes, status_attr,
2430 XNPreeditAttributes, preedit_attr,
2431 NULL);
2432 XFree (preedit_attr);
2433 XFree (status_attr);
2434 }
177c0ea7 2435
5a7df7d7
GM		 2436 FRAME_XIC (f) = xic;
2437 FRAME_XIC_STYLE (f) = xic_style;
2438 FRAME_XIC_FONTSET (f) = xfs;
86779fac
GM		 2439}
2440
5a7df7d7
GM		 2441
2442/* Destroy XIC and free XIC fontset of frame F, if any. */
2443
2444void
2445free_frame_xic (f)
2446 struct frame *f;
2447{
2448 if (FRAME_XIC (f) == NULL)
2449 return;
177c0ea7 2450
5a7df7d7 2451 XDestroyIC (FRAME_XIC (f));
c27ed90a 2452 xic_free_xfontset (f);
5a7df7d7
GM		 2453
2454 FRAME_XIC (f) = NULL;
5a7df7d7
GM		 2455}
2456
2457
2458/* Place preedit area for XIC of window W's frame to specified
2459 pixel position X/Y. X and Y are relative to window W. */
2460
2461void
2462xic_set_preeditarea (w, x, y)
2463 struct window *w;
2464 int x, y;
2465{
2466 struct frame *f = XFRAME (w->frame);
2467 XVaNestedList attr;
2468 XPoint spot;
177c0ea7 2469
17e6d491 2470 spot.x = WINDOW_TO_FRAME_PIXEL_X (w, x) + WINDOW_LEFT_FRINGE_WIDTH (w);
5a7df7d7
GM		 2471 spot.y = WINDOW_TO_FRAME_PIXEL_Y (w, y) + FONT_BASE (FRAME_FONT (f));
2472 attr = XVaCreateNestedList (0, XNSpotLocation, &spot, NULL);
2473 XSetICValues (FRAME_XIC (f), XNPreeditAttributes, attr, NULL);
2474 XFree (attr);
2475}
2476
2477
2478/* Place status area for XIC in bottom right corner of frame F.. */
2479
2480void
2481xic_set_statusarea (f)
2482 struct frame *f;
2483{
2484 XIC xic = FRAME_XIC (f);
2485 XVaNestedList attr;
2486 XRectangle area;
2487 XRectangle *needed;
2488
2489 /* Negotiate geometry of status area. If input method has existing
2490 status area, use its current size. */
2491 area.x = area.y = area.width = area.height = 0;
2492 attr = XVaCreateNestedList (0, XNAreaNeeded, &area, NULL);
2493 XSetICValues (xic, XNStatusAttributes, attr, NULL);
2494 XFree (attr);
177c0ea7 2495
5a7df7d7
GM		 2496 attr = XVaCreateNestedList (0, XNAreaNeeded, &needed, NULL);
2497 XGetICValues (xic, XNStatusAttributes, attr, NULL);
2498 XFree (attr);
2499
2500 if (needed->width == 0) /* Use XNArea instead of XNAreaNeeded */
2501 {
2502 attr = XVaCreateNestedList (0, XNArea, &needed, NULL);
2503 XGetICValues (xic, XNStatusAttributes, attr, NULL);
2504 XFree (attr);
2505 }
2506
2507 area.width = needed->width;
2508 area.height = needed->height;
be786000
KS		 2509 area.x = FRAME_PIXEL_WIDTH (f) - area.width - FRAME_INTERNAL_BORDER_WIDTH (f);
2510 area.y = (FRAME_PIXEL_HEIGHT (f) - area.height
488dd4c4
JD		 2511 - FRAME_MENUBAR_HEIGHT (f)
2512 - FRAME_TOOLBAR_HEIGHT (f)
2513 - FRAME_INTERNAL_BORDER_WIDTH (f));
5a7df7d7
GM		 2514 XFree (needed);
2515
2516 attr = XVaCreateNestedList (0, XNArea, &area, NULL);
6b61353c 2517 XSetICValues (xic, XNStatusAttributes, attr, NULL);
5a7df7d7
GM		 2518 XFree (attr);
2519}
2520
2521
2522/* Set X fontset for XIC of frame F, using base font name
2523 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2524
2525void
2526xic_set_xfontset (f, base_fontname)
2527 struct frame *f;
2528 char *base_fontname;
2529{
2530 XVaNestedList attr;
2531 XFontSet xfs;
2532
c27ed90a
JD		 2533 xic_free_xfontset (f);
2534
a32f056c
KH		 2535#ifdef USE_FONT_BACKEND
2536 if (enable_font_backend)
2537 xfs = xic_create_xfontset2 (f);
2538 else
2539#endif
5a7df7d7
GM		 2540 xfs = xic_create_xfontset (f, base_fontname);
2541
2542 attr = XVaCreateNestedList (0, XNFontSet, xfs, NULL);
2543 if (FRAME_XIC_STYLE (f) & XIMPreeditPosition)
2544 XSetICValues (FRAME_XIC (f), XNPreeditAttributes, attr, NULL);
2545 if (FRAME_XIC_STYLE (f) & XIMStatusArea)
2546 XSetICValues (FRAME_XIC (f), XNStatusAttributes, attr, NULL);
2547 XFree (attr);
177c0ea7 2548
5a7df7d7
GM		 2549 FRAME_XIC_FONTSET (f) = xfs;
2550}
2551
2552#endif /* HAVE_X_I18N */
2553
2554
9ef48a9d 2555\f
8fc2766b
RS		 2556#ifdef USE_X_TOOLKIT
2557
2558/* Create and set up the X widget for frame F. */
f58534a3 2559
01f1ba30 2560static void
a7f7d550
FP		 2561x_window (f, window_prompting, minibuffer_only)
2562 struct frame *f;
2563 long window_prompting;
2564 int minibuffer_only;
01f1ba30 2565{
9ef48a9d 2566 XClassHint class_hints;
31ac8d8c
FP		 2567 XSetWindowAttributes attributes;
2568 unsigned long attribute_mask;
9ef48a9d
RS		 2569 Widget shell_widget;
2570 Widget pane_widget;
6c32dd68 2571 Widget frame_widget;
9ef48a9d
RS		 2572 Arg al [25];
2573 int ac;
2574
2575 BLOCK_INPUT;
2576
b7975ee4
KH		 2577 /* Use the resource name as the top-level widget name
2578 for looking up resources. Make a non-Lisp copy
2579 for the window manager, so GC relocation won't bother it.
2580
2581 Elsewhere we specify the window name for the window manager. */
177c0ea7 2582
cca176a0 2583 {
d5db4077 2584 char *str = (char *) SDATA (Vx_resource_name);
b7975ee4 2585 f->namebuf = (char *) xmalloc (strlen (str) + 1);
cca176a0
KH		 2586 strcpy (f->namebuf, str);
2587 }
9ef48a9d
RS		 2588
2589 ac = 0;
2590 XtSetArg (al[ac], XtNallowShellResize, 1); ac++;
2591 XtSetArg (al[ac], XtNinput, 1); ac++;
97787173 2592 XtSetArg (al[ac], XtNmappedWhenManaged, 0); ac++;
be786000 2593 XtSetArg (al[ac], XtNborderWidth, f->border_width); ac++;
9b2956e2
GM		 2594 XtSetArg (al[ac], XtNvisual, FRAME_X_VISUAL (f)); ac++;
2595 XtSetArg (al[ac], XtNdepth, FRAME_X_DISPLAY_INFO (f)->n_planes); ac++;
2596 XtSetArg (al[ac], XtNcolormap, FRAME_X_COLORMAP (f)); ac++;
cca176a0 2597 shell_widget = XtAppCreateShell (f->namebuf, EMACS_CLASS,
7a994728 2598 applicationShellWidgetClass,
82c90203 2599 FRAME_X_DISPLAY (f), al, ac);
9ef48a9d 2600
7556890b 2601 f->output_data.x->widget = shell_widget;
9ef48a9d
RS		 2602 /* maybe_set_screen_title_format (shell_widget); */
2603
6c32dd68
PR		 2604 pane_widget = lw_create_widget ("main", "pane", widget_id_tick++,
2605 (widget_value *) NULL,
2606 shell_widget, False,
2607 (lw_callback) NULL,
2608 (lw_callback) NULL,
b6e11efd 2609 (lw_callback) NULL,
6c32dd68 2610 (lw_callback) NULL);
9ef48a9d 2611
9b2956e2
GM		 2612 ac = 0;
2613 XtSetArg (al[ac], XtNvisual, FRAME_X_VISUAL (f)); ac++;
2614 XtSetArg (al[ac], XtNdepth, FRAME_X_DISPLAY_INFO (f)->n_planes); ac++;
2615 XtSetArg (al[ac], XtNcolormap, FRAME_X_COLORMAP (f)); ac++;
2616 XtSetValues (pane_widget, al, ac);
7556890b 2617 f->output_data.x->column_widget = pane_widget;
a7f7d550 2618
177c0ea7 2619 /* mappedWhenManaged to false tells to the paned window to not map/unmap
5e65b9ab 2620 the emacs screen when changing menubar. This reduces flickering. */
9ef48a9d
RS		 2621
2622 ac = 0;
2623 XtSetArg (al[ac], XtNmappedWhenManaged, 0); ac++;
2624 XtSetArg (al[ac], XtNshowGrip, 0); ac++;
2625 XtSetArg (al[ac], XtNallowResize, 1); ac++;
2626 XtSetArg (al[ac], XtNresizeToPreferred, 1); ac++;
2627 XtSetArg (al[ac], XtNemacsFrame, f); ac++;
9b2956e2
GM		 2628 XtSetArg (al[ac], XtNvisual, FRAME_X_VISUAL (f)); ac++;
2629 XtSetArg (al[ac], XtNdepth, FRAME_X_DISPLAY_INFO (f)->n_planes); ac++;
2630 XtSetArg (al[ac], XtNcolormap, FRAME_X_COLORMAP (f)); ac++;
2631 frame_widget = XtCreateWidget (f->namebuf, emacsFrameClass, pane_widget,
2632 al, ac);
177c0ea7 2633
7556890b 2634 f->output_data.x->edit_widget = frame_widget;
177c0ea7
JB		 2635
2636 XtManageChild (frame_widget);
a7f7d550
FP		 2637
2638 /* Do some needed geometry management. */
2639 {
2640 int len;
2641 char *tem, shell_position[32];
6b61353c 2642 Arg al[10];
a7f7d550 2643 int ac = 0;
5031cc10 2644 int extra_borders = 0;
177c0ea7 2645 int menubar_size
7556890b
RS		 2646 = (f->output_data.x->menubar_widget
2647 ? (f->output_data.x->menubar_widget->core.height
2648 + f->output_data.x->menubar_widget->core.border_width)
8fc2766b 2649 : 0);
a7f7d550 2650
f7008aff
RS		 2651#if 0 /* Experimentally, we now get the right results
2652 for -geometry -0-0 without this. 24 Aug 96, rms. */
01cbdba5
RS		 2653 if (FRAME_EXTERNAL_MENU_BAR (f))
2654 {
dd254b21 2655 Dimension ibw = 0;
01cbdba5
RS		 2656 XtVaGetValues (pane_widget, XtNinternalBorderWidth, &ibw, NULL);
2657 menubar_size += ibw;
2658 }
f7008aff 2659#endif
01cbdba5 2660
7556890b 2661 f->output_data.x->menubar_height = menubar_size;
00983aba 2662
440b0bfd 2663#ifndef USE_LUCID
5031cc10
KH		 2664 /* Motif seems to need this amount added to the sizes
2665 specified for the shell widget. The Athena/Lucid widgets don't.
2666 Both conclusions reached experimentally. -- rms. */
440b0bfd
RS		 2667 XtVaGetValues (f->output_data.x->edit_widget, XtNinternalBorderWidth,
2668 &extra_borders, NULL);
2669 extra_borders *= 2;
2670#endif
5031cc10 2671
97787173
RS		 2672 /* Convert our geometry parameters into a geometry string
2673 and specify it.
2674 Note that we do not specify here whether the position
2675 is a user-specified or program-specified one.
2676 We pass that information later, in x_wm_set_size_hints. */
2677 {
be786000 2678 int left = f->left_pos;
97787173 2679 int xneg = window_prompting & XNegative;
be786000 2680 int top = f->top_pos;
97787173
RS		 2681 int yneg = window_prompting & YNegative;
2682 if (xneg)
2683 left = -left;
2684 if (yneg)
2685 top = -top;
c760f47e
KH		 2686
2687 if (window_prompting & USPosition)
5031cc10 2688 sprintf (shell_position, "=%dx%d%c%d%c%d",
be786000
KS		 2689 FRAME_PIXEL_WIDTH (f) + extra_borders,
2690 FRAME_PIXEL_HEIGHT (f) + menubar_size + extra_borders,
c760f47e
KH		 2691 (xneg ? '-' : '+'), left,
2692 (yneg ? '-' : '+'), top);
2693 else
6b61353c
KH		 2694 {
2695 sprintf (shell_position, "=%dx%d",
2696 FRAME_PIXEL_WIDTH (f) + extra_borders,
2697 FRAME_PIXEL_HEIGHT (f) + menubar_size + extra_borders);
2698
2699 /* Setting x and y when the position is not specified in
2700 the geometry string will set program position in the WM hints.
2701 If Emacs had just one program position, we could set it in
2702 fallback resources, but since each make-frame call can specify
2703 different program positions, this is easier. */
2704 XtSetArg (al[ac], XtNx, left); ac++;
2705 XtSetArg (al[ac], XtNy, top); ac++;
2706 }
97787173
RS		 2707 }
2708
a7f7d550 2709 len = strlen (shell_position) + 1;
77110caa
RS		 2710 /* We don't free this because we don't know whether
2711 it is safe to free it while the frame exists.
2712 It isn't worth the trouble of arranging to free it
2713 when the frame is deleted. */
a7f7d550
FP		 2714 tem = (char *) xmalloc (len);
2715 strncpy (tem, shell_position, len);
2716 XtSetArg (al[ac], XtNgeometry, tem); ac++;
2717 XtSetValues (shell_widget, al, ac);
2718 }
2719
9ef48a9d
RS		 2720 XtManageChild (pane_widget);
2721 XtRealizeWidget (shell_widget);
2722
177c0ea7 2723 FRAME_X_WINDOW (f) = XtWindow (frame_widget);
9ef48a9d
RS		 2724
2725 validate_x_resource_name ();
b7975ee4 2726
d5db4077
KR		 2727 class_hints.res_name = (char *) SDATA (Vx_resource_name);
2728 class_hints.res_class = (char *) SDATA (Vx_resource_class);
b9dc4443 2729 XSetClassHint (FRAME_X_DISPLAY (f), XtWindow (shell_widget), &class_hints);
5a7df7d7
GM		 2730
2731#ifdef HAVE_X_I18N
2732 FRAME_XIC (f) = NULL;
1576f1ad
DL		 2733 if (use_xim)
2734 create_frame_xic (f);
5a7df7d7 2735#endif
64d16748 2736
7556890b
RS		 2737 f->output_data.x->wm_hints.input = True;
2738 f->output_data.x->wm_hints.flags |= InputHint;
b9dc4443 2739 XSetWMHints (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
7556890b 2740 &f->output_data.x->wm_hints);
b8228beb 2741
c4ec904f 2742 hack_wm_protocols (f, shell_widget);
9ef48a9d 2743
6c32dd68
PR		 2744#ifdef HACK_EDITRES
2745 XtAddEventHandler (shell_widget, 0, True, _XEditResCheckMessages, 0);
2746#endif
2747
9ef48a9d 2748 /* Do a stupid property change to force the server to generate a
333b20bb 2749 PropertyNotify event so that the event_stream server timestamp will
9ef48a9d
RS		 2750 be initialized to something relevant to the time we created the window.
2751 */
6c32dd68 2752 XChangeProperty (XtDisplay (frame_widget), XtWindow (frame_widget),
b9dc4443
RS		 2753 FRAME_X_DISPLAY_INFO (f)->Xatom_wm_protocols,
2754 XA_ATOM, 32, PropModeAppend,
9ef48a9d
RS		 2755 (unsigned char*) NULL, 0);
2756
5a7df7d7 2757 /* Make all the standard events reach the Emacs frame. */
31ac8d8c 2758 attributes.event_mask = STANDARD_EVENT_SET;
5a7df7d7
GM		 2759
2760#ifdef HAVE_X_I18N
2761 if (FRAME_XIC (f))
2762 {
2763 /* XIM server might require some X events. */
2764 unsigned long fevent = NoEventMask;
6b61353c 2765 XGetICValues (FRAME_XIC (f), XNFilterEvents, &fevent, NULL);
5a7df7d7
GM		 2766 attributes.event_mask |= fevent;
2767 }
2768#endif /* HAVE_X_I18N */
177c0ea7 2769
31ac8d8c
FP		 2770 attribute_mask = CWEventMask;
2771 XChangeWindowAttributes (XtDisplay (shell_widget), XtWindow (shell_widget),
2772 attribute_mask, &attributes);
2773
6c32dd68 2774 XtMapWidget (frame_widget);
9ef48a9d 2775
8fc2766b
RS		 2776 /* x_set_name normally ignores requests to set the name if the
2777 requested name is the same as the current name. This is the one
2778 place where that assumption isn't correct; f->name is set, but
2779 the X server hasn't been told. */
2780 {
2781 Lisp_Object name;
2782 int explicit = f->explicit_name;
2783
2784 f->explicit_name = 0;
2785 name = f->name;
2786 f->name = Qnil;
2787 x_set_name (f, name, explicit);
2788 }
2789
b9dc4443 2790 XDefineCursor (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
7556890b 2791 f->output_data.x->text_cursor);
8fc2766b
RS		 2792
2793 UNBLOCK_INPUT;
2794
495fa05e
GM		 2795 /* This is a no-op, except under Motif. Make sure main areas are
2796 set to something reasonable, in case we get an error later. */
2797 lw_set_main_areas (pane_widget, 0, frame_widget);
8fc2766b
RS		 2798}
2799
9ef48a9d 2800#else /* not USE_X_TOOLKIT */
488dd4c4
JD		 2801#ifdef USE_GTK
2802void
2803x_window (f)
2804 FRAME_PTR f;
2805{
2806 if (! xg_create_frame_widgets (f))
2807 error ("Unable to create window");
1fcfb866
JD		 2808
2809#ifdef HAVE_X_I18N
2810 FRAME_XIC (f) = NULL;
6b61353c 2811 if (use_xim)
1576f1ad
DL		 2812 {
2813 BLOCK_INPUT;
2814 create_frame_xic (f);
2815 if (FRAME_XIC (f))
2816 {
2817 /* XIM server might require some X events. */
2818 unsigned long fevent = NoEventMask;
6b61353c 2819 XGetICValues (FRAME_XIC (f), XNFilterEvents, &fevent, NULL);
1fcfb866 2820
1576f1ad
DL		 2821 if (fevent != NoEventMask)
2822 {
2823 XSetWindowAttributes attributes;
2824 XWindowAttributes wattr;
2825 unsigned long attribute_mask;
2826
2827 XGetWindowAttributes (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
2828 &wattr);
2829 attributes.event_mask = wattr.your_event_mask | fevent;
2830 attribute_mask = CWEventMask;
2831 XChangeWindowAttributes (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
2832 attribute_mask, &attributes);
2833 }
2834 }
2835 UNBLOCK_INPUT;
2836 }
1fcfb866 2837#endif
488dd4c4 2838}
9ef48a9d 2839
488dd4c4 2840#else /*! USE_GTK */
8fc2766b
RS		 2841/* Create and set up the X window for frame F. */
2842
201d8c78 2843void
8fc2766b
RS		 2844x_window (f)
2845 struct frame *f;
2846
2847{
2848 XClassHint class_hints;
2849 XSetWindowAttributes attributes;
2850 unsigned long attribute_mask;
2851
5bcee7ef 2852 attributes.background_pixel = FRAME_BACKGROUND_PIXEL (f);
7556890b 2853 attributes.border_pixel = f->output_data.x->border_pixel;
01f1ba30
JB		 2854 attributes.bit_gravity = StaticGravity;
2855 attributes.backing_store = NotUseful;
2856 attributes.save_under = True;
2857 attributes.event_mask = STANDARD_EVENT_SET;
9b2956e2
GM		 2858 attributes.colormap = FRAME_X_COLORMAP (f);
2859 attribute_mask = (CWBackPixel | CWBorderPixel | CWBitGravity | CWEventMask
2860 | CWColormap);
01f1ba30
JB		 2861
2862 BLOCK_INPUT;
fe24a618 2863 FRAME_X_WINDOW (f)
b9dc4443 2864 = XCreateWindow (FRAME_X_DISPLAY (f),
7556890b 2865 f->output_data.x->parent_desc,
be786000
KS		 2866 f->left_pos,
2867 f->top_pos,
2868 FRAME_PIXEL_WIDTH (f), FRAME_PIXEL_HEIGHT (f),
2869 f->border_width,
01f1ba30
JB		 2870 CopyFromParent, /* depth */
2871 InputOutput, /* class */
383d6ffc 2872 FRAME_X_VISUAL (f),
01f1ba30 2873 attribute_mask, &attributes);
5a7df7d7
GM		 2874
2875#ifdef HAVE_X_I18N
4dacadcc 2876 if (use_xim)
5a7df7d7 2877 {
1576f1ad
DL		 2878 create_frame_xic (f);
2879 if (FRAME_XIC (f))
2880 {
2881 /* XIM server might require some X events. */
2882 unsigned long fevent = NoEventMask;
6b61353c 2883 XGetICValues (FRAME_XIC (f), XNFilterEvents, &fevent, NULL);
1576f1ad
DL		 2884 attributes.event_mask |= fevent;
2885 attribute_mask = CWEventMask;
2886 XChangeWindowAttributes (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
2887 attribute_mask, &attributes);
2888 }
5a7df7d7
GM		 2889 }
2890#endif /* HAVE_X_I18N */
177c0ea7 2891
d387c960 2892 validate_x_resource_name ();
b7975ee4 2893
d5db4077
KR		 2894 class_hints.res_name = (char *) SDATA (Vx_resource_name);
2895 class_hints.res_class = (char *) SDATA (Vx_resource_class);
b9dc4443 2896 XSetClassHint (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), &class_hints);
01f1ba30 2897
00983aba
KH		 2898 /* The menubar is part of the ordinary display;
2899 it does not count in addition to the height of the window. */
7556890b 2900 f->output_data.x->menubar_height = 0;
00983aba 2901
179956b9
JB		 2902 /* This indicates that we use the "Passive Input" input model.
2903 Unless we do this, we don't get the Focus{In,Out} events that we
2904 need to draw the cursor correctly. Accursed bureaucrats.
b9dc4443 2905 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
179956b9 2906
7556890b
RS		 2907 f->output_data.x->wm_hints.input = True;
2908 f->output_data.x->wm_hints.flags |= InputHint;
b9dc4443 2909 XSetWMHints (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
7556890b 2910 &f->output_data.x->wm_hints);
6d078211 2911 f->output_data.x->wm_hints.icon_pixmap = None;
179956b9 2912
032e4ebe
RS		 2913 /* Request "save yourself" and "delete window" commands from wm. */
2914 {
2915 Atom protocols[2];
b9dc4443
RS		 2916 protocols[0] = FRAME_X_DISPLAY_INFO (f)->Xatom_wm_delete_window;
2917 protocols[1] = FRAME_X_DISPLAY_INFO (f)->Xatom_wm_save_yourself;
2918 XSetWMProtocols (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), protocols, 2);
032e4ebe 2919 }
9ef48a9d 2920
e373f201
JB		 2921 /* x_set_name normally ignores requests to set the name if the
2922 requested name is the same as the current name. This is the one
2923 place where that assumption isn't correct; f->name is set, but
2924 the X server hasn't been told. */
2925 {
98381190 2926 Lisp_Object name;
cf177271 2927 int explicit = f->explicit_name;
e373f201 2928
cf177271 2929 f->explicit_name = 0;
98381190
KH		 2930 name = f->name;
2931 f->name = Qnil;
cf177271 2932 x_set_name (f, name, explicit);
e373f201
JB		 2933 }
2934
b9dc4443 2935 XDefineCursor (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
7556890b 2936 f->output_data.x->text_cursor);
9ef48a9d 2937
01f1ba30
JB		 2938 UNBLOCK_INPUT;
2939
fe24a618 2940 if (FRAME_X_WINDOW (f) == 0)
9ef48a9d 2941 error ("Unable to create window");
01f1ba30
JB		 2942}
2943
488dd4c4 2944#endif /* not USE_GTK */
8fc2766b
RS		 2945#endif /* not USE_X_TOOLKIT */
2946
289978b5
LT		 2947/* Verify that the icon position args for this window are valid. */
2948
2949static void
2950x_icon_verify (f, parms)
2951 struct frame *f;
2952 Lisp_Object parms;
2953{
2954 Lisp_Object icon_x, icon_y;
2955
2956 /* Set the position of the icon. Note that twm groups all
2957 icons in an icon window. */
2958 icon_x = x_frame_get_and_record_arg (f, parms, Qicon_left, 0, 0, RES_TYPE_NUMBER);
2959 icon_y = x_frame_get_and_record_arg (f, parms, Qicon_top, 0, 0, RES_TYPE_NUMBER);
2960 if (!EQ (icon_x, Qunbound) && !EQ (icon_y, Qunbound))
2961 {
2962 CHECK_NUMBER (icon_x);
2963 CHECK_NUMBER (icon_y);
2964 }
2965 else if (!EQ (icon_x, Qunbound) || !EQ (icon_y, Qunbound))
2966 error ("Both left and top icon corners of icon must be specified");
2967}
2968
01f1ba30
JB		 2969/* Handle the icon stuff for this window. Perhaps later we might
2970 want an x_set_icon_position which can be called interactively as
b9dc4443 2971 well. */
01f1ba30
JB		 2972
2973static void
f676886a
JB		 2974x_icon (f, parms)
2975 struct frame *f;
01f1ba30
JB		 2976 Lisp_Object parms;
2977{
f9942c9e 2978 Lisp_Object icon_x, icon_y;
fd0f53a9 2979#if 0
abb4b7ec 2980 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
fd0f53a9 2981#endif
01f1ba30
JB		 2982
2983 /* Set the position of the icon. Note that twm groups all
b9dc4443 2984 icons in an icon window. */
7c0d3ed8
KS		 2985 icon_x = x_frame_get_and_record_arg (f, parms, Qicon_left, 0, 0, RES_TYPE_NUMBER);
2986 icon_y = x_frame_get_and_record_arg (f, parms, Qicon_top, 0, 0, RES_TYPE_NUMBER);
f9942c9e 2987 if (!EQ (icon_x, Qunbound) && !EQ (icon_y, Qunbound))
01f1ba30 2988 {
b7826503
PJ		 2989 CHECK_NUMBER (icon_x);
2990 CHECK_NUMBER (icon_y);
01f1ba30 2991 }
f9942c9e 2992 else if (!EQ (icon_x, Qunbound) || !EQ (icon_y, Qunbound))
01f1ba30 2993 error ("Both left and top icon corners of icon must be specified");
01f1ba30 2994
f9942c9e
JB		 2995 BLOCK_INPUT;
2996
fe24a618
JB		 2997 if (! EQ (icon_x, Qunbound))
2998 x_wm_set_icon_position (f, XINT (icon_x), XINT (icon_y));
f9942c9e 2999
a9d54793
KL		 3000#if 0 /* x_get_arg removes the visibility parameter as a side effect,
3001 but x_create_frame still needs it. */
01f1ba30 3002 /* Start up iconic or window? */
49795535 3003 x_wm_set_window_state
333b20bb
GM		 3004 (f, (EQ (x_get_arg (dpyinfo, parms, Qvisibility, 0, 0, RES_TYPE_SYMBOL),
3005 Qicon)
49795535
JB		 3006 ? IconicState
3007 : NormalState));
a9d54793 3008#endif
01f1ba30 3009
d5db4077 3010 x_text_icon (f, (char *) SDATA ((!NILP (f->icon_name)
f468da95 3011 ? f->icon_name
d5db4077 3012 : f->name)));
80534dd6 3013
01f1ba30
JB		 3014 UNBLOCK_INPUT;
3015}
3016
b243755a 3017/* Make the GCs needed for this window, setting the
01f1ba30
JB		 3018 background, border and mouse colors; also create the
3019 mouse cursor and the gray border tile. */
3020
f945b920
JB		 3021static char cursor_bits[] =
3022 {
3023 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3024 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3025 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3026 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
3027 };
3028
01f1ba30 3029static void
f676886a
JB		 3030x_make_gc (f)
3031 struct frame *f;
01f1ba30
JB		 3032{
3033 XGCValues gc_values;
01f1ba30 3034
6afb1d07
JB		 3035 BLOCK_INPUT;
3036
b243755a 3037 /* Create the GCs of this frame.
9ef48a9d 3038 Note that many default values are used. */
01f1ba30
JB		 3039
3040 /* Normal video */
be786000 3041 gc_values.font = FRAME_FONT (f)->fid;
ce593f6e
KL		 3042 gc_values.foreground = FRAME_FOREGROUND_PIXEL (f);
3043 gc_values.background = FRAME_BACKGROUND_PIXEL (f);
9ef48a9d 3044 gc_values.line_width = 0; /* Means 1 using fast algorithm. */
959e647d
GM		 3045 f->output_data.x->normal_gc
3046 = XCreateGC (FRAME_X_DISPLAY (f),
3047 FRAME_X_WINDOW (f),
3048 GCLineWidth | GCFont | GCForeground | GCBackground,
3049 &gc_values);
01f1ba30 3050
b9dc4443 3051 /* Reverse video style. */
ce593f6e
KL		 3052 gc_values.foreground = FRAME_BACKGROUND_PIXEL (f);
3053 gc_values.background = FRAME_FOREGROUND_PIXEL (f);
959e647d
GM		 3054 f->output_data.x->reverse_gc
3055 = XCreateGC (FRAME_X_DISPLAY (f),
3056 FRAME_X_WINDOW (f),
3057 GCFont | GCForeground | GCBackground | GCLineWidth,
3058 &gc_values);
01f1ba30 3059
9ef48a9d 3060 /* Cursor has cursor-color background, background-color foreground. */
ce593f6e 3061 gc_values.foreground = FRAME_BACKGROUND_PIXEL (f);
7556890b 3062 gc_values.background = f->output_data.x->cursor_pixel;
01f1ba30
JB		 3063 gc_values.fill_style = FillOpaqueStippled;
3064 gc_values.stipple
b9dc4443
RS		 3065 = XCreateBitmapFromData (FRAME_X_DISPLAY (f),
3066 FRAME_X_DISPLAY_INFO (f)->root_window,
01f1ba30 3067 cursor_bits, 16, 16);
7556890b 3068 f->output_data.x->cursor_gc
b9dc4443 3069 = XCreateGC (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
01f1ba30 3070 (GCFont | GCForeground | GCBackground
ac1f48a4 3071 | GCFillStyle /* | GCStipple */ | GCLineWidth),
01f1ba30
JB		 3072 &gc_values);
3073
333b20bb
GM		 3074 /* Reliefs. */
3075 f->output_data.x->white_relief.gc = 0;
3076 f->output_data.x->black_relief.gc = 0;
3077
01f1ba30 3078 /* Create the gray border tile used when the pointer is not in
f676886a 3079 the frame. Since this depends on the frame's pixel values,
9ef48a9d 3080 this must be done on a per-frame basis. */
7556890b 3081 f->output_data.x->border_tile
d043f1a4 3082 = (XCreatePixmapFromBitmapData
177c0ea7 3083 (FRAME_X_DISPLAY (f), FRAME_X_DISPLAY_INFO (f)->root_window,
d043f1a4 3084 gray_bits, gray_width, gray_height,
ce593f6e
KL		 3085 FRAME_FOREGROUND_PIXEL (f),
3086 FRAME_BACKGROUND_PIXEL (f),
ab452f99 3087 DefaultDepth (FRAME_X_DISPLAY (f), FRAME_X_SCREEN_NUMBER (f))));
6afb1d07
JB		 3088
3089 UNBLOCK_INPUT;
01f1ba30 3090}
01f1ba30 3091
959e647d
GM		 3092
3093/* Free what was was allocated in x_make_gc. */
3094
3095void
3096x_free_gcs (f)
3097 struct frame *f;
3098{
3099 Display *dpy = FRAME_X_DISPLAY (f);
3100
3101 BLOCK_INPUT;
177c0ea7 3102
959e647d
GM		 3103 if (f->output_data.x->normal_gc)
3104 {
3105 XFreeGC (dpy, f->output_data.x->normal_gc);
3106 f->output_data.x->normal_gc = 0;
3107 }
3108
3109 if (f->output_data.x->reverse_gc)
3110 {
3111 XFreeGC (dpy, f->output_data.x->reverse_gc);
3112 f->output_data.x->reverse_gc = 0;
3113 }
177c0ea7 3114
959e647d
GM		 3115 if (f->output_data.x->cursor_gc)
3116 {
3117 XFreeGC (dpy, f->output_data.x->cursor_gc);
3118 f->output_data.x->cursor_gc = 0;
3119 }
3120
3121 if (f->output_data.x->border_tile)
3122 {
3123 XFreePixmap (dpy, f->output_data.x->border_tile);
3124 f->output_data.x->border_tile = 0;
3125 }
3126
3127 UNBLOCK_INPUT;
3128}
3129
3130
eaf1eea9
GM		 3131/* Handler for signals raised during x_create_frame and
3132 x_create_top_frame. FRAME is the frame which is partially
3133 constructed. */
3134
3135static Lisp_Object
3136unwind_create_frame (frame)
3137 Lisp_Object frame;
3138{
3139 struct frame *f = XFRAME (frame);
3140
8346e08b
KL		 3141 /* If frame is already dead, nothing to do. This can happen if the
3142 display is disconnected after the frame has become official, but
3143 before x_create_frame removes the unwind protect. */
3144 if (!FRAME_LIVE_P (f))
3145 return Qnil;
3146
eaf1eea9
GM		 3147 /* If frame is ``official'', nothing to do. */
3148 if (!CONSP (Vframe_list) || !EQ (XCAR (Vframe_list), frame))
3149 {
f1d2ce7f 3150#if GLYPH_DEBUG
eaf1eea9
GM		 3151 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
3152#endif
177c0ea7 3153
eaf1eea9
GM		 3154 x_free_frame_resources (f);
3155
5b3f8550 3156#if GLYPH_DEBUG
eaf1eea9
GM		 3157 /* Check that reference counts are indeed correct. */
3158 xassert (dpyinfo->reference_count == dpyinfo_refcount);
3159 xassert (dpyinfo->image_cache->refcount == image_cache_refcount);
5b3f8550 3160#endif
c844a81a 3161 return Qt;
eaf1eea9 3162 }
177c0ea7 3163
eaf1eea9
GM		 3164 return Qnil;
3165}
3166
02ed2ea8
KH		 3167#ifdef USE_FONT_BACKEND
3168static void
3169x_default_font_parameter (f, parms)
3170 struct frame *f;
3171 Lisp_Object parms;
3172{
3173 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
3174 Lisp_Object font = x_get_arg (dpyinfo, parms, Qfont, "font", "Font",
3175 RES_TYPE_STRING);
3176
3177 if (! STRINGP (font))
3178 {
3179 char *names[]
3180 = { "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
3181 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3182 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3183 /* This was formerly the first thing tried, but it finds
3184 too many fonts and takes too long. */
3185 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
3186 /* If those didn't work, look for something which will
3187 at least work. */
3188 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
25c25256 3189 "fixed",
02ed2ea8
KH		 3190 NULL };
3191 int i;
3192
3193 for (i = 0; names[i]; i++)
3194 {
3195 font = font_open_by_name (f, names[i]);
3196 if (! NILP (font))
3197 break;
3198 }
3199 if (NILP (font))
25c25256 3200 error ("No suitable font was found");
02ed2ea8
KH		 3201 }
3202 x_default_parameter (f, parms, Qfont, font, "font", "Font", RES_TYPE_STRING);
3203}
3204#endif /* USE_FONT_BACKEND */
eaf1eea9 3205
f676886a 3206DEFUN ("x-create-frame", Fx_create_frame, Sx_create_frame,
01f1ba30 3207 1, 1, 0,
7ee72033 3208 doc: /* Make a new X window, which is called a "frame" in Emacs terms.
d29a9848 3209Return an Emacs frame object.
c061c855
GM		 3210ALIST is an alist of frame parameters.
3211If the parameters specify that the frame should not have a minibuffer,
3212and do not specify a specific minibuffer window to use,
3213then `default-minibuffer-frame' must be a frame whose minibuffer can
3214be shared by the new frame.
3215
7ee72033
MB		 3216This function is an internal primitive--use `make-frame' instead. */)
3217 (parms)
01f1ba30
JB		 3218 Lisp_Object parms;
3219{
f676886a 3220 struct frame *f;
2365c027 3221 Lisp_Object frame, tem;
01f1ba30
JB		 3222 Lisp_Object name;
3223 int minibuffer_only = 0;
3224 long window_prompting = 0;
3225 int width, height;
331379bf 3226 int count = SPECPDL_INDEX ();
ecaca587 3227 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
b9dc4443 3228 Lisp_Object display;
333b20bb 3229 struct x_display_info *dpyinfo = NULL;
a59e4f3d 3230 Lisp_Object parent;
e557f19d 3231 struct kboard *kb;
01f1ba30 3232
5fa98fcf
RS		 3233 parms = Fcopy_alist (parms);
3234
b7975ee4
KH		 3235 /* Use this general default value to start with
3236 until we know if this frame has a specified name. */
3237 Vx_resource_name = Vinvocation_name;
3238
6ed8eeff 3239 display = x_get_arg (dpyinfo, parms, Qterminal, 0, 0, RES_TYPE_NUMBER);
1705c933 3240 if (EQ (display, Qunbound))
b6660415 3241 display = x_get_arg (dpyinfo, parms, Qdisplay, 0, 0, RES_TYPE_STRING);
b9dc4443
RS		 3242 if (EQ (display, Qunbound))
3243 display = Qnil;
3244 dpyinfo = check_x_display_info (display);
e557f19d 3245#ifdef MULTI_KBOARD
6ed8eeff 3246 kb = dpyinfo->terminal->kboard;
e557f19d
KH		 3247#else
3248 kb = &the_only_kboard;
3249#endif
b9dc4443 3250
89acb56d
SM		 3251 if (!dpyinfo->terminal->name)
3252 error ("Terminal is not live, can't create new frames on it");
ab797f65 3253
333b20bb 3254 name = x_get_arg (dpyinfo, parms, Qname, "name", "Name", RES_TYPE_STRING);
6a5e54e2 3255 if (!STRINGP (name)
cf177271
JB		 3256 && ! EQ (name, Qunbound)
3257 && ! NILP (name))
08a90d6a 3258 error ("Invalid frame name--not a string or nil");
01f1ba30 3259
b7975ee4
KH		 3260 if (STRINGP (name))
3261 Vx_resource_name = name;
3262
a59e4f3d 3263 /* See if parent window is specified. */
333b20bb 3264 parent = x_get_arg (dpyinfo, parms, Qparent_id, NULL, NULL, RES_TYPE_NUMBER);
a59e4f3d
RS		 3265 if (EQ (parent, Qunbound))
3266 parent = Qnil;
3267 if (! NILP (parent))
b7826503 3268 CHECK_NUMBER (parent);
a59e4f3d 3269
ecaca587
RS		 3270 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3271 /* No need to protect DISPLAY because that's not used after passing
3272 it to make_frame_without_minibuffer. */
3273 frame = Qnil;
3274 GCPRO4 (parms, parent, name, frame);
333b20bb
GM		 3275 tem = x_get_arg (dpyinfo, parms, Qminibuffer, "minibuffer", "Minibuffer",
3276 RES_TYPE_SYMBOL);
f9942c9e 3277 if (EQ (tem, Qnone) || NILP (tem))
2526c290 3278 f = make_frame_without_minibuffer (Qnil, kb, display);
f9942c9e 3279 else if (EQ (tem, Qonly))
01f1ba30 3280 {
f676886a 3281 f = make_minibuffer_frame ();
01f1ba30
JB		 3282 minibuffer_only = 1;
3283 }
6a5e54e2 3284 else if (WINDOWP (tem))
2526c290 3285 f = make_frame_without_minibuffer (tem, kb, display);
f9942c9e
JB		 3286 else
3287 f = make_frame (1);
01f1ba30 3288
ecaca587
RS		 3289 XSETFRAME (frame, f);
3290
a3c87d4e
JB		 3291 /* Note that X Windows does support scroll bars. */
3292 FRAME_CAN_HAVE_SCROLL_BARS (f) = 1;
179956b9 3293
6ed8eeff
KL		 3294 f->terminal = dpyinfo->terminal;
3295 f->terminal->reference_count++;
428a555e 3296
08a90d6a 3297 f->output_method = output_x_window;
7556890b
RS		 3298 f->output_data.x = (struct x_output *) xmalloc (sizeof (struct x_output));
3299 bzero (f->output_data.x, sizeof (struct x_output));
3300 f->output_data.x->icon_bitmap = -1;
be786000 3301 FRAME_FONTSET (f) = -1;
333b20bb
GM		 3302 f->output_data.x->scroll_bar_foreground_pixel = -1;
3303 f->output_data.x->scroll_bar_background_pixel = -1;
f15340b7
MB		 3304#ifdef USE_TOOLKIT_SCROLL_BARS
3305 f->output_data.x->scroll_bar_top_shadow_pixel = -1;
3306 f->output_data.x->scroll_bar_bottom_shadow_pixel = -1;
3307#endif /* USE_TOOLKIT_SCROLL_BARS */
08a90d6a 3308
f468da95 3309 f->icon_name
333b20bb
GM		 3310 = x_get_arg (dpyinfo, parms, Qicon_name, "iconName", "Title",
3311 RES_TYPE_STRING);
f468da95
RS		 3312 if (! STRINGP (f->icon_name))
3313 f->icon_name = Qnil;
80534dd6 3314
08a90d6a 3315 FRAME_X_DISPLAY_INFO (f) = dpyinfo;
e3d56613
RS		 3316
3317 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3318 record_unwind_protect (unwind_create_frame, frame);
f1d2ce7f 3319#if GLYPH_DEBUG
eaf1eea9
GM		 3320 image_cache_refcount = FRAME_X_IMAGE_CACHE (f)->refcount;
3321 dpyinfo_refcount = dpyinfo->reference_count;
3322#endif /* GLYPH_DEBUG */
08a90d6a 3323
9b2956e2
GM		 3324 /* These colors will be set anyway later, but it's important
3325 to get the color reference counts right, so initialize them! */
3326 {
3327 Lisp_Object black;
3328 struct gcpro gcpro1;
cefecbcf
GM		 3329
3330 /* Function x_decode_color can signal an error. Make
3331 sure to initialize color slots so that we won't try
3332 to free colors we haven't allocated. */
ce593f6e
KL		 3333 FRAME_FOREGROUND_PIXEL (f) = -1;
3334 FRAME_BACKGROUND_PIXEL (f) = -1;
cefecbcf
GM		 3335 f->output_data.x->cursor_pixel = -1;
3336 f->output_data.x->cursor_foreground_pixel = -1;
3337 f->output_data.x->border_pixel = -1;
3338 f->output_data.x->mouse_pixel = -1;
177c0ea7 3339
9b2956e2
GM		 3340 black = build_string ("black");
3341 GCPRO1 (black);
ce593f6e 3342 FRAME_FOREGROUND_PIXEL (f)
9b2956e2 3343 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
ce593f6e 3344 FRAME_BACKGROUND_PIXEL (f)
9b2956e2
GM		 3345 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
3346 f->output_data.x->cursor_pixel
3347 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
3348 f->output_data.x->cursor_foreground_pixel
3349 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
3350 f->output_data.x->border_pixel
3351 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
3352 f->output_data.x->mouse_pixel
3353 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
3354 UNGCPRO;
3355 }
3356
a59e4f3d
RS		 3357 /* Specify the parent under which to make this X window. */
3358
3359 if (!NILP (parent))
3360 {
8c239ac3 3361 f->output_data.x->parent_desc = (Window) XFASTINT (parent);
7556890b 3362 f->output_data.x->explicit_parent = 1;
a59e4f3d
RS		 3363 }
3364 else
3365 {
7556890b
RS		 3366 f->output_data.x->parent_desc = FRAME_X_DISPLAY_INFO (f)->root_window;
3367 f->output_data.x->explicit_parent = 0;
a59e4f3d
RS		 3368 }
3369
cf177271
JB		 3370 /* Set the name; the functions to which we pass f expect the name to
3371 be set. */
3372 if (EQ (name, Qunbound) || NILP (name))
3373 {
08a90d6a 3374 f->name = build_string (dpyinfo->x_id_name);
cf177271
JB		 3375 f->explicit_name = 0;
3376 }
3377 else
3378 {
3379 f->name = name;
3380 f->explicit_name = 1;
9ef48a9d
RS		 3381 /* use the frame's title when getting resources for this frame. */
3382 specbind (Qx_resource_name, name);
cf177271 3383 }
01f1ba30 3384
02ed2ea8
KH		 3385 f->resx = dpyinfo->resx;
3386 f->resy = dpyinfo->resy;
3387
3388#ifdef USE_FONT_BACKEND
3389 if (enable_font_backend)
3390 {
3391 /* Perhaps, we must allow frame parameter, say `font-backend',
3392 to specify which font backends to use. */
3393#ifdef HAVE_FREETYPE
3394#ifdef HAVE_XFT
3395 register_font_driver (&xftfont_driver, f);
3396#else /* not HAVE_XFT */
3397 register_font_driver (&ftxfont_driver, f);
3398#endif /* not HAVE_XFT */
3399#endif /* HAVE_FREETYPE */
3400 register_font_driver (&xfont_driver, f);
297cc20a
KH		 3401
3402 x_default_parameter (f, parms, Qfont_backend, Qnil,
3403 "fontBackend", "FontBackend", RES_TYPE_STRING);
02ed2ea8
KH		 3404 }
3405#endif /* USE_FONT_BACKEND */
3406
01f1ba30
JB		 3407 /* Extract the window parameters from the supplied values
3408 that are needed to determine window geometry. */
02ed2ea8
KH		 3409#ifdef USE_FONT_BACKEND
3410 if (enable_font_backend)
3411 x_default_font_parameter (f, parms);
3412else
3413#endif /* USE_FONT_BACKEND */
d387c960
JB		 3414 {
3415 Lisp_Object font;
3416
333b20bb 3417 font = x_get_arg (dpyinfo, parms, Qfont, "font", "Font", RES_TYPE_STRING);
2ee3abaa 3418
7fb92cb1
KH		 3419 /* If the caller has specified no font, try out fonts which we
3420 hope have bold and italic variations. */
e5e548e3 3421 if (!STRINGP (font))
7fb92cb1
KH		 3422 {
3423 char *names[]
3424 = { "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
3425 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3426 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3427 /* This was formerly the first thing tried, but it finds
3428 too many fonts and takes too long. */
3429 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
3430 /* If those didn't work, look for something which will
3431 at least work. */
3432 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
3433 NULL };
3434 int i;
3435
3436 BLOCK_INPUT;
3437 for (i = 0; names[i]; i++)
3438 {
3439 Lisp_Object list;
e5e548e3 3440
7fb92cb1
KH		 3441 list = x_list_fonts (f, build_string (names[i]), 0, 1);
3442 if (CONSP (list))
3443 {
3444 font = XCAR (list);
3445 break;
3446 }
3447 }
3448 UNBLOCK_INPUT;
3449 if (! STRINGP (font))
3450 font = build_string ("fixed");
3451 }
477f8642 3452 x_default_parameter (f, parms, Qfont, font,
333b20bb 3453 "font", "Font", RES_TYPE_STRING);
d387c960 3454 }
9ef48a9d 3455
e3881aa0 3456#ifdef USE_LUCID
82c90203
RS		 3457 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3458 whereby it fails to get any font. */
be786000 3459 xlwmenu_default_font = FRAME_FONT (f);
dd254b21 3460#endif
82c90203 3461
cf177271 3462 x_default_parameter (f, parms, Qborder_width, make_number (2),
333b20bb 3463 "borderWidth", "BorderWidth", RES_TYPE_NUMBER);
177c0ea7 3464
4e397688 3465 /* This defaults to 1 in order to match xterm. We recognize either
ddf768c3
JB		 3466 internalBorderWidth or internalBorder (which is what xterm calls
3467 it). */
3468 if (NILP (Fassq (Qinternal_border_width, parms)))
3469 {
3470 Lisp_Object value;
3471
abb4b7ec 3472 value = x_get_arg (dpyinfo, parms, Qinternal_border_width,
333b20bb 3473 "internalBorder", "internalBorder", RES_TYPE_NUMBER);
ddf768c3
JB		 3474 if (! EQ (value, Qunbound))
3475 parms = Fcons (Fcons (Qinternal_border_width, value),
3476 parms);
3477 }
dca97592 3478 x_default_parameter (f, parms, Qinternal_border_width, make_number (1),
333b20bb
GM		 3479 "internalBorderWidth", "internalBorderWidth",
3480 RES_TYPE_NUMBER);
1ab3d87e 3481 x_default_parameter (f, parms, Qvertical_scroll_bars, Qleft,
333b20bb
GM		 3482 "verticalScrollBars", "ScrollBars",
3483 RES_TYPE_SYMBOL);
01f1ba30 3484
b9dc4443 3485 /* Also do the stuff which must be set before the window exists. */
cf177271 3486 x_default_parameter (f, parms, Qforeground_color, build_string ("black"),
333b20bb 3487 "foreground", "Foreground", RES_TYPE_STRING);
cf177271 3488 x_default_parameter (f, parms, Qbackground_color, build_string ("white"),
0b60fc91 3489 "background", "Background", RES_TYPE_STRING);
cf177271 3490 x_default_parameter (f, parms, Qmouse_color, build_string ("black"),
333b20bb 3491 "pointerColor", "Foreground", RES_TYPE_STRING);
cf177271 3492 x_default_parameter (f, parms, Qcursor_color, build_string ("black"),
333b20bb 3493 "cursorColor", "Foreground", RES_TYPE_STRING);
cf177271 3494 x_default_parameter (f, parms, Qborder_color, build_string ("black"),
333b20bb 3495 "borderColor", "BorderColor", RES_TYPE_STRING);
d62c8769
GM		 3496 x_default_parameter (f, parms, Qscreen_gamma, Qnil,
3497 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT);
563b67aa
GM		 3498 x_default_parameter (f, parms, Qline_spacing, Qnil,
3499 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER);
b3ba0aa8
KS		 3500 x_default_parameter (f, parms, Qleft_fringe, Qnil,
3501 "leftFringe", "LeftFringe", RES_TYPE_NUMBER);
3502 x_default_parameter (f, parms, Qright_fringe, Qnil,
3503 "rightFringe", "RightFringe", RES_TYPE_NUMBER);
333b20bb
GM		 3504
3505 x_default_scroll_bar_color_parameter (f, parms, Qscroll_bar_foreground,
3506 "scrollBarForeground",
3507 "ScrollBarForeground", 1);
3508 x_default_scroll_bar_color_parameter (f, parms, Qscroll_bar_background,
3509 "scrollBarBackground",
3510 "ScrollBarBackground", 0);
3511
3512 /* Init faces before x_default_parameter is called for scroll-bar
3513 parameters because that function calls x_set_scroll_bar_width,
3514 which calls change_frame_size, which calls Fset_window_buffer,
3515 which runs hooks, which call Fvertical_motion. At the end, we
3516 end up in init_iterator with a null face cache, which should not
3517 happen. */
3518 init_frame_faces (f);
177c0ea7 3519
c7bcb20d 3520 x_default_parameter (f, parms, Qmenu_bar_lines, make_number (1),
333b20bb 3521 "menuBar", "MenuBar", RES_TYPE_NUMBER);
e33455ca 3522 x_default_parameter (f, parms, Qtool_bar_lines, make_number (1),
333b20bb 3523 "toolBar", "ToolBar", RES_TYPE_NUMBER);
79873d50 3524 x_default_parameter (f, parms, Qbuffer_predicate, Qnil,
333b20bb
GM		 3525 "bufferPredicate", "BufferPredicate",
3526 RES_TYPE_SYMBOL);
c2304e02 3527 x_default_parameter (f, parms, Qtitle, Qnil,
333b20bb 3528 "title", "Title", RES_TYPE_STRING);
ea0a1f53
GM		 3529 x_default_parameter (f, parms, Qwait_for_wm, Qt,
3530 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN);
49d41073
EZ		 3531 x_default_parameter (f, parms, Qfullscreen, Qnil,
3532 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL);
90eb1019 3533
7556890b 3534 f->output_data.x->parent_desc = FRAME_X_DISPLAY_INFO (f)->root_window;
35f59f6b 3535
35f59f6b 3536 /* Compute the size of the X window. */
7c0d3ed8 3537 window_prompting = x_figure_window_size (f, parms, 1);
38d22040 3538
495fa05e
GM		 3539 tem = x_get_arg (dpyinfo, parms, Qunsplittable, 0, 0, RES_TYPE_BOOLEAN);
3540 f->no_split = minibuffer_only || EQ (tem, Qt);
3541
289978b5
LT		 3542 x_icon_verify (f, parms);
3543
6a1bcd01 3544 /* Create the X widget or window. */
a7f7d550
FP		 3545#ifdef USE_X_TOOLKIT
3546 x_window (f, window_prompting, minibuffer_only);
3547#else
f676886a 3548 x_window (f);
a7f7d550 3549#endif
177c0ea7 3550
f676886a
JB		 3551 x_icon (f, parms);
3552 x_make_gc (f);
01f1ba30 3553
495fa05e
GM		 3554 /* Now consider the frame official. */
3555 FRAME_X_DISPLAY_INFO (f)->reference_count++;
3556 Vframe_list = Fcons (frame, Vframe_list);
3557
f9942c9e
JB		 3558 /* We need to do this after creating the X window, so that the
3559 icon-creation functions can say whose icon they're describing. */
84f25880 3560 x_default_parameter (f, parms, Qicon_type, Qt,
333b20bb 3561 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL);
f9942c9e 3562
cf177271 3563 x_default_parameter (f, parms, Qauto_raise, Qnil,
333b20bb 3564 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN);
cf177271 3565 x_default_parameter (f, parms, Qauto_lower, Qnil,
333b20bb 3566 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN);
dbc4e1c1 3567 x_default_parameter (f, parms, Qcursor_type, Qbox,
333b20bb 3568 "cursorType", "CursorType", RES_TYPE_SYMBOL);
28d7281d
GM		 3569 x_default_parameter (f, parms, Qscroll_bar_width, Qnil,
3570 "scrollBarWidth", "ScrollBarWidth",
3571 RES_TYPE_NUMBER);
f9942c9e 3572
be786000 3573 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
01f1ba30 3574 Change will not be effected unless different from the current
be786000
KS		 3575 FRAME_LINES (f). */
3576 width = FRAME_COLS (f);
3577 height = FRAME_LINES (f);
177c0ea7 3578
be786000
KS		 3579 SET_FRAME_COLS (f, 0);
3580 FRAME_LINES (f) = 0;
8938a4fb 3581 change_frame_size (f, height, width, 1, 0, 0);
d043f1a4 3582
488dd4c4 3583#if defined (USE_X_TOOLKIT) || defined (USE_GTK)
495fa05e
GM		 3584 /* Create the menu bar. */
3585 if (!minibuffer_only && FRAME_EXTERNAL_MENU_BAR (f))
3586 {
3587 /* If this signals an error, we haven't set size hints for the
3588 frame and we didn't make it visible. */
3589 initialize_frame_menubar (f);
3590
488dd4c4 3591#ifndef USE_GTK
495fa05e
GM		 3592 /* This is a no-op, except under Motif where it arranges the
3593 main window for the widgets on it. */
3594 lw_set_main_areas (f->output_data.x->column_widget,
3595 f->output_data.x->menubar_widget,
3596 f->output_data.x->edit_widget);
488dd4c4 3597#endif /* not USE_GTK */
495fa05e 3598 }
488dd4c4 3599#endif /* USE_X_TOOLKIT || USE_GTK */
495fa05e
GM		 3600
3601 /* Tell the server what size and position, etc, we want, and how
3602 badly we want them. This should be done after we have the menu
3603 bar so that its size can be taken into account. */
01f1ba30 3604 BLOCK_INPUT;
7989f084 3605 x_wm_set_size_hint (f, window_prompting, 0);
01f1ba30
JB		 3606 UNBLOCK_INPUT;
3607
495fa05e
GM		 3608 /* Make the window appear on the frame and enable display, unless
3609 the caller says not to. However, with explicit parent, Emacs
3610 cannot control visibility, so don't try. */
7556890b 3611 if (! f->output_data.x->explicit_parent)
a59e4f3d
RS		 3612 {
3613 Lisp_Object visibility;
49795535 3614
333b20bb
GM		 3615 visibility = x_get_arg (dpyinfo, parms, Qvisibility, 0, 0,
3616 RES_TYPE_SYMBOL);
a59e4f3d
RS		 3617 if (EQ (visibility, Qunbound))
3618 visibility = Qt;
49795535 3619
a59e4f3d
RS		 3620 if (EQ (visibility, Qicon))
3621 x_iconify_frame (f);
3622 else if (! NILP (visibility))
3623 x_make_frame_visible (f);
3624 else
3625 /* Must have been Qnil. */
3626 ;
3627 }
01f1ba30 3628
6b61353c
KH		 3629 /* Set the WM leader property. GTK does this itself, so this is not
3630 needed when using GTK. */
3631 if (dpyinfo->client_leader_window != 0)
3632 {
3633 BLOCK_INPUT;
3634 XChangeProperty (FRAME_X_DISPLAY (f),
3635 FRAME_OUTER_WINDOW (f),
3636 dpyinfo->Xatom_wm_client_leader,
3637 XA_WINDOW, 32, PropModeReplace,
47c53789 3638 (unsigned char *) &dpyinfo->client_leader_window, 1);
6b61353c
KH		 3639 UNBLOCK_INPUT;
3640 }
3641
225c13a5 3642 /* Initialize `default-minibuffer-frame' in case this is the first
6ed8eeff 3643 frame on this terminal. */
225c13a5
KL		 3644 if (FRAME_HAS_MINIBUF_P (f)
3645 && (!FRAMEP (kb->Vdefault_minibuffer_frame)
3646 || !FRAME_LIVE_P (XFRAME (kb->Vdefault_minibuffer_frame))))
3647 kb->Vdefault_minibuffer_frame = frame;
3648
5fa98fcf
RS		 3649 /* All remaining specified parameters, which have not been "used"
3650 by x_get_arg and friends, now go in the misc. alist of the frame. */
9beb8baa 3651 for (tem = parms; CONSP (tem); tem = XCDR (tem))
5fa98fcf
RS		 3652 if (CONSP (XCAR (tem)) && !NILP (XCAR (XCAR (tem))))
3653 f->param_alist = Fcons (XCAR (tem), f->param_alist);
3654
495fa05e 3655 UNGCPRO;
9e57df62
GM		 3656
3657 /* Make sure windows on this frame appear in calls to next-window
3658 and similar functions. */
3659 Vwindow_list = Qnil;
177c0ea7 3660
9ef48a9d 3661 return unbind_to (count, frame);
01f1ba30
JB		 3662}
3663
eaf1eea9 3664
0d17d282
KH		 3665/* FRAME is used only to get a handle on the X display. We don't pass the
3666 display info directly because we're called from frame.c, which doesn't
3667 know about that structure. */
e4f79258 3668
87498171 3669Lisp_Object
0d17d282
KH		 3670x_get_focus_frame (frame)
3671 struct frame *frame;
87498171 3672{
0d17d282 3673 struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (frame);
87498171 3674 Lisp_Object xfocus;
0d17d282 3675 if (! dpyinfo->x_focus_frame)
87498171
KH		 3676 return Qnil;
3677
0d17d282 3678 XSETFRAME (xfocus, dpyinfo->x_focus_frame);
87498171
KH		 3679 return xfocus;
3680}
f0614854 3681
3decc1e7
GM		 3682
3683/* In certain situations, when the window manager follows a
3684 click-to-focus policy, there seems to be no way around calling
3685 XSetInputFocus to give another frame the input focus .
3686
3687 In an ideal world, XSetInputFocus should generally be avoided so
3688 that applications don't interfere with the window manager's focus
3689 policy. But I think it's okay to use when it's clearly done
3690 following a user-command. */
3691
3692DEFUN ("x-focus-frame", Fx_focus_frame, Sx_focus_frame, 1, 1, 0,
7ee72033
MB		 3693 doc: /* Set the input focus to FRAME.
3694FRAME nil means use the selected frame. */)
3695 (frame)
3decc1e7
GM		 3696 Lisp_Object frame;
3697{
3698 struct frame *f = check_x_frame (frame);
3699 Display *dpy = FRAME_X_DISPLAY (f);
3decc1e7
GM		 3700
3701 BLOCK_INPUT;
9ba8e10d 3702 x_catch_errors (dpy);
3decc1e7
GM		 3703 XSetInputFocus (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
3704 RevertToParent, CurrentTime);
457a6b0a 3705 x_ewmh_activate_frame (f);
4545fa20 3706 x_uncatch_errors ();
3decc1e7 3707 UNBLOCK_INPUT;
177c0ea7 3708
3decc1e7
GM		 3709 return Qnil;
3710}
3711
f0614854 3712\f
2d764c78 3713DEFUN ("xw-color-defined-p", Fxw_color_defined_p, Sxw_color_defined_p, 1, 2, 0,
7ee72033
MB		 3714 doc: /* Internal function called by `color-defined-p', which see. */)
3715 (color, frame)
b9dc4443 3716 Lisp_Object color, frame;
e12d55b2 3717{
b9dc4443
RS		 3718 XColor foo;
3719 FRAME_PTR f = check_x_frame (frame);
e12d55b2 3720
b7826503 3721 CHECK_STRING (color);
b9dc4443 3722
d5db4077 3723 if (x_defined_color (f, SDATA (color), &foo, 0))
e12d55b2
RS		 3724 return Qt;
3725 else
3726 return Qnil;
3727}
3728
2d764c78 3729DEFUN ("xw-color-values", Fxw_color_values, Sxw_color_values, 1, 2, 0,
7ee72033
MB		 3730 doc: /* Internal function called by `color-values', which see. */)
3731 (color, frame)
b9dc4443 3732 Lisp_Object color, frame;
01f1ba30 3733{
b9dc4443
RS		 3734 XColor foo;
3735 FRAME_PTR f = check_x_frame (frame);
3736
b7826503 3737 CHECK_STRING (color);
01f1ba30 3738
d5db4077 3739 if (x_defined_color (f, SDATA (color), &foo, 0))
a508663b
KS		 3740 return list3 (make_number (foo.red),
3741 make_number (foo.green),
3742 make_number (foo.blue));
01f1ba30
JB		 3743 else
3744 return Qnil;
3745}
3746
2d764c78 3747DEFUN ("xw-display-color-p", Fxw_display_color_p, Sxw_display_color_p, 0, 1, 0,
7ee72033 3748 doc: /* Internal function called by `display-color-p', which see. */)
6ed8eeff
KL		 3749 (terminal)
3750 Lisp_Object terminal;
01f1ba30 3751{
6ed8eeff 3752 struct x_display_info *dpyinfo = check_x_display_info (terminal);
11ae94fe 3753
b9dc4443 3754 if (dpyinfo->n_planes <= 2)
01f1ba30
JB		 3755 return Qnil;
3756
b9dc4443 3757 switch (dpyinfo->visual->class)
01f1ba30
JB		 3758 {
3759 case StaticColor:
3760 case PseudoColor:
3761 case TrueColor:
3762 case DirectColor:
3763 return Qt;
3764
3765 default:
3766 return Qnil;
3767 }
3768}
3769
d0c9d219 3770DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p, Sx_display_grayscale_p,
c061c855 3771 0, 1, 0,
7ee72033 3772 doc: /* Return t if the X display supports shades of gray.
c061c855 3773Note that color displays do support shades of gray.
6ed8eeff
KL		 3774The optional argument TERMINAL specifies which display to ask about.
3775TERMINAL should be a terminal id, a frame or a display name (a string).
7ee72033 3776If omitted or nil, that stands for the selected frame's display. */)
6ed8eeff
KL		 3777 (terminal)
3778 Lisp_Object terminal;
d0c9d219 3779{
6ed8eeff 3780 struct x_display_info *dpyinfo = check_x_display_info (terminal);
d0c9d219 3781
ae6b58f9 3782 if (dpyinfo->n_planes <= 1)
b9dc4443
RS		 3783 return Qnil;
3784
ae6b58f9
RS		 3785 switch (dpyinfo->visual->class)
3786 {
3787 case StaticColor:
3788 case PseudoColor:
3789 case TrueColor:
3790 case DirectColor:
3791 case StaticGray:
3792 case GrayScale:
3793 return Qt;
3794
3795 default:
3796 return Qnil;
3797 }
d0c9d219
RS		 3798}
3799
41beb8fc 3800DEFUN ("x-display-pixel-width", Fx_display_pixel_width, Sx_display_pixel_width,
c061c855 3801 0, 1, 0,
d29a9848 3802 doc: /* Return the width in pixels of the X display TERMINAL.
6ed8eeff
KL		 3803The optional argument TERMINAL specifies which display to ask about.
3804TERMINAL should be a terminal id, a frame or a display name (a string).
7ee72033 3805If omitted or nil, that stands for the selected frame's display. */)
6ed8eeff
KL		 3806 (terminal)
3807 Lisp_Object terminal;
41beb8fc 3808{
6ed8eeff 3809 struct x_display_info *dpyinfo = check_x_display_info (terminal);
b9dc4443
RS		 3810
3811 return make_number (dpyinfo->width);
41beb8fc
RS		 3812}
3813
3814DEFUN ("x-display-pixel-height", Fx_display_pixel_height,
c061c855 3815 Sx_display_pixel_height, 0, 1, 0,
d29a9848 3816 doc: /* Return the height in pixels of the X display TERMINAL.
6ed8eeff
KL		 3817The optional argument TERMINAL specifies which display to ask about.
3818TERMINAL should be a terminal id, a frame or a display name (a string).
7ee72033 3819If omitted or nil, that stands for the selected frame's display. */)
6ed8eeff
KL		 3820 (terminal)
3821 Lisp_Object terminal;
41beb8fc 3822{
6ed8eeff 3823 struct x_display_info *dpyinfo = check_x_display_info (terminal);
b9dc4443
RS		 3824
3825 return make_number (dpyinfo->height);
41beb8fc
RS		 3826}
3827
3828DEFUN ("x-display-planes", Fx_display_planes, Sx_display_planes,
c061c855 3829 0, 1, 0,
d29a9848 3830 doc: /* Return the number of bitplanes of the X display TERMINAL.
6ed8eeff
KL		 3831The optional argument TERMINAL specifies which display to ask about.
3832TERMINAL should be a terminal id, a frame or a display name (a string).
7ee72033 3833If omitted or nil, that stands for the selected frame's display. */)
6ed8eeff
KL		 3834 (terminal)
3835 Lisp_Object terminal;
41beb8fc 3836{
6ed8eeff 3837 struct x_display_info *dpyinfo = check_x_display_info (terminal);
b9dc4443
RS		 3838
3839 return make_number (dpyinfo->n_planes);
41beb8fc
RS		 3840}
3841
3842DEFUN ("x-display-color-cells", Fx_display_color_cells, Sx_display_color_cells,
c061c855 3843 0, 1, 0,
d29a9848 3844 doc: /* Return the number of color cells of the X display TERMINAL.
6ed8eeff
KL		 3845The optional argument TERMINAL specifies which display to ask about.
3846TERMINAL should be a terminal id, a frame or a display name (a string).
7ee72033 3847If omitted or nil, that stands for the selected frame's display. */)
6ed8eeff
KL		 3848 (terminal)
3849 Lisp_Object terminal;
41beb8fc 3850{
6ed8eeff 3851 struct x_display_info *dpyinfo = check_x_display_info (terminal);
b9dc4443 3852
6b61353c
KH		 3853 int nr_planes = DisplayPlanes (dpyinfo->display,
3854 XScreenNumberOfScreen (dpyinfo->screen));
3855
3856 /* Truncate nr_planes to 24 to avoid integer overflow.
3857 Some displays says 32, but only 24 bits are actually significant.
3858 There are only very few and rare video cards that have more than
3859 24 significant bits. Also 24 bits is more than 16 million colors,
3860 it "should be enough for everyone". */
3861 if (nr_planes > 24) nr_planes = 24;
3862
3863 return make_number (1 << nr_planes);
41beb8fc
RS		 3864}
3865
9d317b2c
RS		 3866DEFUN ("x-server-max-request-size", Fx_server_max_request_size,
3867 Sx_server_max_request_size,
c061c855 3868 0, 1, 0,
d29a9848 3869 doc: /* Return the maximum request size of the X server of display TERMINAL.
6ed8eeff
KL		 3870The optional argument TERMINAL specifies which display to ask about.
3871TERMINAL should be a terminal id, a frame or a display name (a string).
7ee72033 3872If omitted or nil, that stands for the selected frame's display. */)
6ed8eeff
KL		 3873 (terminal)
3874 Lisp_Object terminal;
9d317b2c 3875{
6ed8eeff 3876 struct x_display_info *dpyinfo = check_x_display_info (terminal);
b9dc4443
RS		 3877
3878 return make_number (MAXREQUEST (dpyinfo->display));
9d317b2c
RS		 3879}
3880
41beb8fc 3881DEFUN ("x-server-vendor", Fx_server_vendor, Sx_server_vendor, 0, 1, 0,
d29a9848 3882 doc: /* Return the "vendor ID" string of the X server of display TERMINAL.
95d62d8a
RS		 3883\(Labelling every distributor as a "vendor" embodies the false assumption
3884that operating systems cannot be developed and distributed noncommercially.)
6ed8eeff
KL		 3885The optional argument TERMINAL specifies which display to ask about.
3886TERMINAL should be a terminal id, a frame or a display name (a string).
7ee72033 3887If omitted or nil, that stands for the selected frame's display. */)
6ed8eeff
KL		 3888 (terminal)
3889 Lisp_Object terminal;
41beb8fc 3890{
6ed8eeff 3891 struct x_display_info *dpyinfo = check_x_display_info (terminal);
b9dc4443
RS		 3892 char *vendor = ServerVendor (dpyinfo->display);
3893
41beb8fc
RS		 3894 if (! vendor) vendor = "";
3895 return build_string (vendor);
3896}
3897
3898DEFUN ("x-server-version", Fx_server_version, Sx_server_version, 0, 1, 0,
d29a9848 3899 doc: /* Return the version numbers of the X server of display TERMINAL.
c061c855 3900The value is a list of three integers: the major and minor
95d62d8a 3901version numbers of the X Protocol in use, and the distributor-specific release
c061c855
GM		 3902number. See also the function `x-server-vendor'.
3903
6ed8eeff
KL		 3904The optional argument TERMINAL specifies which display to ask about.
3905TERMINAL should be a terminal id, a frame or a display name (a string).
7ee72033 3906If omitted or nil, that stands for the selected frame's display. */)
6ed8eeff
KL		 3907 (terminal)
3908 Lisp_Object terminal;
41beb8fc 3909{
6ed8eeff 3910 struct x_display_info *dpyinfo = check_x_display_info (terminal);
b9dc4443 3911 Display *dpy = dpyinfo->display;
11ae94fe 3912
41beb8fc
RS		 3913 return Fcons (make_number (ProtocolVersion (dpy)),
3914 Fcons (make_number (ProtocolRevision (dpy)),
3915 Fcons (make_number (VendorRelease (dpy)), Qnil)));
3916}
3917
3918DEFUN ("x-display-screens", Fx_display_screens, Sx_display_screens, 0, 1, 0,
6ed8eeff
KL		 3919 doc: /* Return the number of screens on the X server of display TERMINAL.
3920The optional argument TERMINAL specifies which display to ask about.
3921TERMINAL should be a terminal id, a frame or a display name (a string).
7ee72033 3922If omitted or nil, that stands for the selected frame's display. */)
6ed8eeff
KL		 3923 (terminal)
3924 Lisp_Object terminal;
41beb8fc 3925{
6ed8eeff 3926 struct x_display_info *dpyinfo = check_x_display_info (terminal);
b9dc4443
RS		 3927
3928 return make_number (ScreenCount (dpyinfo->display));
41beb8fc
RS		 3929}
3930
3931DEFUN ("x-display-mm-height", Fx_display_mm_height, Sx_display_mm_height, 0, 1, 0,
6ed8eeff
KL		 3932 doc: /* Return the height in millimeters of the X display TERMINAL.
3933The optional argument TERMINAL specifies which display to ask about.
3934TERMINAL should be a terminal id, a frame or a display name (a string).
7ee72033 3935If omitted or nil, that stands for the selected frame's display. */)
6ed8eeff
KL		 3936 (terminal)
3937 Lisp_Object terminal;
41beb8fc 3938{
6ed8eeff 3939 struct x_display_info *dpyinfo = check_x_display_info (terminal);
b9dc4443
RS		 3940
3941 return make_number (HeightMMOfScreen (dpyinfo->screen));
41beb8fc
RS		 3942}
3943
3944DEFUN ("x-display-mm-width", Fx_display_mm_width, Sx_display_mm_width, 0, 1, 0,
6ed8eeff
KL		 3945 doc: /* Return the width in millimeters of the X display TERMINAL.
3946The optional argument TERMINAL specifies which display to ask about.
3947TERMINAL should be a terminal id, a frame or a display name (a string).
7ee72033 3948If omitted or nil, that stands for the selected frame's display. */)
6ed8eeff
KL		 3949 (terminal)
3950 Lisp_Object terminal;
41beb8fc 3951{
6ed8eeff 3952 struct x_display_info *dpyinfo = check_x_display_info (terminal);
b9dc4443
RS		 3953
3954 return make_number (WidthMMOfScreen (dpyinfo->screen));
41beb8fc
RS		 3955}
3956
3957DEFUN ("x-display-backing-store", Fx_display_backing_store,
c061c855 3958 Sx_display_backing_store, 0, 1, 0,
d29a9848 3959 doc: /* Return an indication of whether X display TERMINAL does backing store.
c061c855 3960The value may be `always', `when-mapped', or `not-useful'.
6ed8eeff
KL		 3961The optional argument TERMINAL specifies which display to ask about.
3962TERMINAL should be a terminal id, a frame or a display name (a string).
7ee72033 3963If omitted or nil, that stands for the selected frame's display. */)
6ed8eeff
KL		 3964 (terminal)
3965 Lisp_Object terminal;
41beb8fc 3966{
6ed8eeff 3967 struct x_display_info *dpyinfo = check_x_display_info (terminal);
8ec8a5ec 3968 Lisp_Object result;
11ae94fe 3969
b9dc4443 3970 switch (DoesBackingStore (dpyinfo->screen))
41beb8fc
RS		 3971 {
3972 case Always:
8ec8a5ec
GM		 3973 result = intern ("always");
3974 break;
41beb8fc
RS		 3975
3976 case WhenMapped:
8ec8a5ec
GM		 3977 result = intern ("when-mapped");
3978 break;
41beb8fc
RS		 3979
3980 case NotUseful:
8ec8a5ec
GM		 3981 result = intern ("not-useful");
3982 break;
41beb8fc
RS		 3983
3984 default:
3985 error ("Strange value for BackingStore parameter of screen");
8ec8a5ec 3986 result = Qnil;
41beb8fc 3987 }
8ec8a5ec
GM		 3988
3989 return result;
41beb8fc
RS		 3990}
3991
3992DEFUN ("x-display-visual-class", Fx_display_visual_class,
c061c855 3993 Sx_display_visual_class, 0, 1, 0,
6ed8eeff 3994 doc: /* Return the visual class of the X display TERMINAL.
c061c855
GM		 3995The value is one of the symbols `static-gray', `gray-scale',
3996`static-color', `pseudo-color', `true-color', or `direct-color'.
3997
6ed8eeff
KL		 3998The optional argument TERMINAL specifies which display to ask about.
3999TERMINAL should a terminal id, a frame or a display name (a string).
7ee72033 4000If omitted or nil, that stands for the selected frame's display. */)
6ed8eeff
KL		 4001 (terminal)
4002 Lisp_Object terminal;
41beb8fc 4003{
6ed8eeff 4004 struct x_display_info *dpyinfo = check_x_display_info (terminal);
8ec8a5ec 4005 Lisp_Object result;
11ae94fe 4006
b9dc4443 4007 switch (dpyinfo->visual->class)
41beb8fc 4008 {
8ec8a5ec
GM		 4009 case StaticGray:
4010 result = intern ("static-gray");
4011 break;
4012 case GrayScale:
4013 result = intern ("gray-scale");
4014 break;
4015 case StaticColor:
4016 result = intern ("static-color");
4017 break;
4018 case PseudoColor:
4019 result = intern ("pseudo-color");
4020 break;
4021 case TrueColor:
4022 result = intern ("true-color");
4023 break;
4024 case DirectColor:
4025 result = intern ("direct-color");
4026 break;
41beb8fc
RS		 4027 default:
4028 error ("Display has an unknown visual class");
8ec8a5ec 4029 result = Qnil;
41beb8fc 4030 }
177c0ea7 4031
8ec8a5ec 4032 return result;
41beb8fc
RS		 4033}
4034
4035DEFUN ("x-display-save-under", Fx_display_save_under,
c061c855 4036 Sx_display_save_under, 0, 1, 0,
d29a9848 4037 doc: /* Return t if the X display TERMINAL supports the save-under feature.
6ed8eeff
KL		 4038The optional argument TERMINAL specifies which display to ask about.
4039TERMINAL should be a terminal id, a frame or a display name (a string).
7ee72033 4040If omitted or nil, that stands for the selected frame's display. */)
6ed8eeff
KL		 4041 (terminal)
4042 Lisp_Object terminal;
41beb8fc 4043{
6ed8eeff 4044 struct x_display_info *dpyinfo = check_x_display_info (terminal);
11ae94fe 4045
b9dc4443 4046 if (DoesSaveUnders (dpyinfo->screen) == True)
41beb8fc
RS		 4047 return Qt;
4048 else
4049 return Qnil;
4050}
4051\f
b9dc4443 4052int
55caf99c
RS		 4053x_pixel_width (f)
4054 register struct frame *f;
01f1ba30 4055{
be786000 4056 return FRAME_PIXEL_WIDTH (f);
01f1ba30
JB		 4057}
4058
b9dc4443 4059int
55caf99c
RS		 4060x_pixel_height (f)
4061 register struct frame *f;
01f1ba30 4062{
be786000 4063 return FRAME_PIXEL_HEIGHT (f);
55caf99c
RS		 4064}
4065
b9dc4443 4066int
55caf99c
RS		 4067x_char_width (f)
4068 register struct frame *f;
4069{
be786000 4070 return FRAME_COLUMN_WIDTH (f);
55caf99c
RS		 4071}
4072
b9dc4443 4073int
55caf99c
RS		 4074x_char_height (f)
4075 register struct frame *f;
4076{
be786000 4077 return FRAME_LINE_HEIGHT (f);
01f1ba30 4078}
b9dc4443
RS		 4079
4080int
f03f2489
RS		 4081x_screen_planes (f)
4082 register struct frame *f;
b9dc4443 4083{
f03f2489 4084 return FRAME_X_DISPLAY_INFO (f)->n_planes;
b9dc4443 4085}
01f1ba30 4086
a6ad00c0
GM		 4087
4088\f
4089/************************************************************************
4090 X Displays
4091 ************************************************************************/
4092
01f1ba30 4093\f
a6ad00c0
GM		 4094/* Mapping visual names to visuals. */
4095
4096static struct visual_class
4097{
4098 char *name;
4099 int class;
4100}
4101visual_classes[] =
4102{
4103 {"StaticGray", StaticGray},
4104 {"GrayScale", GrayScale},
4105 {"StaticColor", StaticColor},
4106 {"PseudoColor", PseudoColor},
4107 {"TrueColor", TrueColor},
4108 {"DirectColor", DirectColor},
9908a324 4109 {NULL, 0}
a6ad00c0
GM		 4110};
4111
4112
404daac1 4113#ifndef HAVE_XSCREENNUMBEROFSCREEN
a6ad00c0
GM		 4114
4115/* Value is the screen number of screen SCR. This is a substitute for
4116 the X function with the same name when that doesn't exist. */
4117
404daac1
RS		 4118int
4119XScreenNumberOfScreen (scr)
4120 register Screen *scr;
4121{
a6ad00c0
GM		 4122 Display *dpy = scr->display;
4123 int i;
3df34fdb 4124
a6ad00c0 4125 for (i = 0; i < dpy->nscreens; ++i)
fbd5ceb2 4126 if (scr == dpy->screens + i)
a6ad00c0 4127 break;
404daac1 4128
a6ad00c0 4129 return i;
404daac1 4130}
a6ad00c0 4131
404daac1
RS		 4132#endif /* not HAVE_XSCREENNUMBEROFSCREEN */
4133
01f1ba30 4134
a6ad00c0
GM		 4135/* Select the visual that should be used on display DPYINFO. Set
4136 members of DPYINFO appropriately. Called from x_term_init. */
fe24a618 4137
a6ad00c0
GM		 4138void
4139select_visual (dpyinfo)
4140 struct x_display_info *dpyinfo;
4141{
4142 Display *dpy = dpyinfo->display;
4143 Screen *screen = dpyinfo->screen;
4144 Lisp_Object value;
fe24a618 4145
a6ad00c0
GM		 4146 /* See if a visual is specified. */
4147 value = display_x_get_resource (dpyinfo,
4148 build_string ("visualClass"),
4149 build_string ("VisualClass"),
4150 Qnil, Qnil);
4151 if (STRINGP (value))
4152 {
4153 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
4154 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4155 depth, a decimal number. NAME is compared with case ignored. */
d5db4077 4156 char *s = (char *) alloca (SBYTES (value) + 1);
a6ad00c0
GM		 4157 char *dash;
4158 int i, class = -1;
4159 XVisualInfo vinfo;
4160
d5db4077 4161 strcpy (s, SDATA (value));
a6ad00c0
GM		 4162 dash = index (s, '-');
4163 if (dash)
4164 {
4165 dpyinfo->n_planes = atoi (dash + 1);
4166 *dash = '\0';
4167 }
4168 else
4169 /* We won't find a matching visual with depth 0, so that
4170 an error will be printed below. */
4171 dpyinfo->n_planes = 0;
f0614854 4172
a6ad00c0
GM		 4173 /* Determine the visual class. */
4174 for (i = 0; visual_classes[i].name; ++i)
4175 if (xstricmp (s, visual_classes[i].name) == 0)
4176 {
4177 class = visual_classes[i].class;
4178 break;
4179 }
01f1ba30 4180
a6ad00c0
GM		 4181 /* Look up a matching visual for the specified class. */
4182 if (class == -1
4183 || !XMatchVisualInfo (dpy, XScreenNumberOfScreen (screen),
4184 dpyinfo->n_planes, class, &vinfo))
d5db4077 4185 fatal ("Invalid visual specification `%s'", SDATA (value));
177c0ea7 4186
a6ad00c0
GM		 4187 dpyinfo->visual = vinfo.visual;
4188 }
01f1ba30
JB		 4189 else
4190 {
a6ad00c0
GM		 4191 int n_visuals;
4192 XVisualInfo *vinfo, vinfo_template;
177c0ea7 4193
a6ad00c0
GM		 4194 dpyinfo->visual = DefaultVisualOfScreen (screen);
4195
a6ad00c0 4196 vinfo_template.visualid = XVisualIDFromVisual (dpyinfo->visual);
a6ad00c0
GM		 4197 vinfo_template.screen = XScreenNumberOfScreen (screen);
4198 vinfo = XGetVisualInfo (dpy, VisualIDMask | VisualScreenMask,
4199 &vinfo_template, &n_visuals);
4200 if (n_visuals != 1)
4201 fatal ("Can't get proper X visual info");
4202
94ac875b 4203 dpyinfo->n_planes = vinfo->depth;
a6ad00c0
GM		 4204 XFree ((char *) vinfo);
4205 }
01f1ba30 4206}
01f1ba30 4207
a6ad00c0 4208
b9dc4443
RS		 4209/* Return the X display structure for the display named NAME.
4210 Open a new connection if necessary. */
4211
4212struct x_display_info *
4213x_display_info_for_name (name)
4214 Lisp_Object name;
4215{
08a90d6a 4216 Lisp_Object names;
b9dc4443
RS		 4217 struct x_display_info *dpyinfo;
4218
b7826503 4219 CHECK_STRING (name);
b9dc4443 4220
2246281f
KL		 4221#if 0
4222 if (! EQ (Vinitial_window_system, intern ("x")))
4223 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4224#endif
806048df 4225
08a90d6a
RS		 4226 for (dpyinfo = x_display_list, names = x_display_name_list;
4227 dpyinfo;
8e713be6 4228 dpyinfo = dpyinfo->next, names = XCDR (names))
b9dc4443
RS		 4229 {
4230 Lisp_Object tem;
8e713be6 4231 tem = Fstring_equal (XCAR (XCAR (names)), name);
08a90d6a 4232 if (!NILP (tem))
b9dc4443
RS		 4233 return dpyinfo;
4234 }
4235
b7975ee4
KH		 4236 /* Use this general default value to start with. */
4237 Vx_resource_name = Vinvocation_name;
4238
b9dc4443
RS		 4239 validate_x_resource_name ();
4240
9b207e8e 4241 dpyinfo = x_term_init (name, (char *)0,
d5db4077 4242 (char *) SDATA (Vx_resource_name));
b9dc4443 4243
08a90d6a 4244 if (dpyinfo == 0)
d5db4077 4245 error ("Cannot connect to X server %s", SDATA (name));
08a90d6a 4246
b9dc4443
RS		 4247 x_in_use = 1;
4248 XSETFASTINT (Vwindow_system_version, 11);
4249
4250 return dpyinfo;
4251}
4252
a6ad00c0 4253
01f1ba30 4254DEFUN ("x-open-connection", Fx_open_connection, Sx_open_connection,
c061c855 4255 1, 3, 0,
7ee72033 4256 doc: /* Open a connection to an X server.
c061c855
GM		 4257DISPLAY is the name of the display to connect to.
4258Optional second arg XRM-STRING is a string of resources in xrdb format.
4259If the optional third arg MUST-SUCCEED is non-nil,
7ee72033
MB		 4260terminate Emacs if we can't open the connection. */)
4261 (display, xrm_string, must_succeed)
08a90d6a 4262 Lisp_Object display, xrm_string, must_succeed;
01f1ba30 4263{
01f1ba30 4264 unsigned char *xrm_option;
b9dc4443 4265 struct x_display_info *dpyinfo;
01f1ba30 4266
b7826503 4267 CHECK_STRING (display);
d387c960 4268 if (! NILP (xrm_string))
b7826503 4269 CHECK_STRING (xrm_string);
01f1ba30 4270
2246281f
KL		 4271#if 0
4272 if (! EQ (Vinitial_window_system, intern ("x")))
4273 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4274#endif
806048df 4275
d387c960 4276 if (! NILP (xrm_string))
d5db4077 4277 xrm_option = (unsigned char *) SDATA (xrm_string);
01f1ba30
JB		 4278 else
4279 xrm_option = (unsigned char *) 0;
d387c960
JB		 4280
4281 validate_x_resource_name ();
4282
e1b1bee8 4283 /* This is what opens the connection and sets x_current_display.
b9dc4443
RS		 4284 This also initializes many symbols, such as those used for input. */
4285 dpyinfo = x_term_init (display, xrm_option,
d5db4077 4286 (char *) SDATA (Vx_resource_name));
f1c16f36 4287
08a90d6a
RS		 4288 if (dpyinfo == 0)
4289 {
4290 if (!NILP (must_succeed))
10ffbc14
GM		 4291 fatal ("Cannot connect to X server %s.\n\
4292Check the DISPLAY environment variable or use `-d'.\n\
842a9389
JB		 4293Also use the `xauth' program to verify that you have the proper\n\
4294authorization information needed to connect the X server.\n\
bf770132 4295An insecure way to solve the problem may be to use `xhost'.\n",
d5db4077 4296 SDATA (display));
08a90d6a 4297 else
d5db4077 4298 error ("Cannot connect to X server %s", SDATA (display));
08a90d6a
RS		 4299 }
4300
b9dc4443 4301 x_in_use = 1;
01f1ba30 4302
b9dc4443 4303 XSETFASTINT (Vwindow_system_version, 11);
01f1ba30
JB		 4304 return Qnil;
4305}
4306
08a90d6a
RS		 4307DEFUN ("x-close-connection", Fx_close_connection,
4308 Sx_close_connection, 1, 1, 0,
00d385b0
KL		 4309 doc: /* Close the connection to TERMINAL's X server.
4310For TERMINAL, specify a terminal id, a frame or a display name (a
4311string). If TERMINAL is nil, that stands for the selected frame's
4312terminal. */)
4313 (terminal)
4314 Lisp_Object terminal;
01f1ba30 4315{
00d385b0 4316 struct x_display_info *dpyinfo = check_x_display_info (terminal);
3457bc6e 4317
08a90d6a
RS		 4318 if (dpyinfo->reference_count > 0)
4319 error ("Display still has frames on it");
01f1ba30 4320
6ed8eeff 4321 x_delete_terminal (dpyinfo->terminal);
3457bc6e 4322
01f1ba30
JB		 4323 return Qnil;
4324}
4325
08a90d6a 4326DEFUN ("x-display-list", Fx_display_list, Sx_display_list, 0, 0, 0,
7ee72033
MB		 4327 doc: /* Return the list of display names that Emacs has connections to. */)
4328 ()
08a90d6a
RS		 4329{
4330 Lisp_Object tail, result;
4331
4332 result = Qnil;
9beb8baa 4333 for (tail = x_display_name_list; CONSP (tail); tail = XCDR (tail))
8e713be6 4334 result = Fcons (XCAR (XCAR (tail)), result);
08a90d6a
RS		 4335
4336 return result;
4337}
4338
4339DEFUN ("x-synchronize", Fx_synchronize, Sx_synchronize, 1, 2, 0,
7ee72033 4340 doc: /* If ON is non-nil, report X errors as soon as the erring request is made.
c061c855
GM		 4341If ON is nil, allow buffering of requests.
4342Turning on synchronization prohibits the Xlib routines from buffering
4343requests and seriously degrades performance, but makes debugging much
4344easier.
00d385b0
KL		 4345The optional second argument TERMINAL specifies which display to act on.
4346TERMINAL should be a terminal id, a frame or a display name (a string).
4347If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4348 (on, terminal)
4349 Lisp_Object terminal, on;
01f1ba30 4350{
00d385b0 4351 struct x_display_info *dpyinfo = check_x_display_info (terminal);
11ae94fe 4352
b9dc4443 4353 XSynchronize (dpyinfo->display, !EQ (on, Qnil));
01f1ba30
JB		 4354
4355 return Qnil;
4356}
4357
b9dc4443 4358/* Wait for responses to all X commands issued so far for frame F. */
6b7b1820
RS		 4359
4360void
b9dc4443
RS		 4361x_sync (f)
4362 FRAME_PTR f;
6b7b1820 4363{
4e87f4d2 4364 BLOCK_INPUT;
b9dc4443 4365 XSync (FRAME_X_DISPLAY (f), False);
4e87f4d2 4366 UNBLOCK_INPUT;
6b7b1820 4367}
333b20bb 4368
01f1ba30 4369\f
333b20bb 4370/***********************************************************************
6b61353c 4371 Window properties
333b20bb 4372 ***********************************************************************/
f1c16f36 4373
6b61353c
KH		 4374DEFUN ("x-change-window-property", Fx_change_window_property,
4375 Sx_change_window_property, 2, 6, 0,
4376 doc: /* Change window property PROP to VALUE on the X window of FRAME.
4377PROP must be a string.
4378VALUE may be a string or a list of conses, numbers and/or strings.
4379If an element in the list is a string, it is converted to
4380an Atom and the value of the Atom is used. If an element is a cons,
4381it is converted to a 32 bit number where the car is the 16 top bits and the
4382cdr is the lower 16 bits.
4383FRAME nil or omitted means use the selected frame.
4384If TYPE is given and non-nil, it is the name of the type of VALUE.
4385If TYPE is not given or nil, the type is STRING.
4386FORMAT gives the size in bits of each element if VALUE is a list.
4387It must be one of 8, 16 or 32.
4388If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4389If OUTER_P is non-nil, the property is changed for the outer X window of
4390FRAME. Default is to change on the edit X window.
4391
4392Value is VALUE. */)
4393 (prop, value, frame, type, format, outer_p)
4394 Lisp_Object prop, value, frame, type, format, outer_p;
4395{
4396 struct frame *f = check_x_frame (frame);
4397 Atom prop_atom;
4398 Atom target_type = XA_STRING;
4399 int element_format = 8;
4400 unsigned char *data;
4401 int nelements;
4402 Window w;
333b20bb 4403
6b61353c 4404 CHECK_STRING (prop);
333b20bb 4405
6b61353c
KH		 4406 if (! NILP (format))
4407 {
4408 CHECK_NUMBER (format);
4409 element_format = XFASTINT (format);
333b20bb 4410
6b61353c
KH		 4411 if (element_format != 8 && element_format != 16
4412 && element_format != 32)
4413 error ("FORMAT must be one of 8, 16 or 32");
4414 }
333b20bb 4415
6b61353c
KH		 4416 if (CONSP (value))
4417 {
4418 nelements = x_check_property_data (value);
4419 if (nelements == -1)
4420 error ("Bad data in VALUE, must be number, string or cons");
333b20bb 4421
6b61353c
KH		 4422 if (element_format == 8)
4423 data = (unsigned char *) xmalloc (nelements);
4424 else if (element_format == 16)
4425 data = (unsigned char *) xmalloc (nelements*2);
fede04ef
JD		 4426 else /* format == 32 */
4427 /* The man page for XChangeProperty:
4428 "If the specified format is 32, the property data must be a
4429 long array."
4430 This applies even if long is more than 64 bits. The X library
4431 converts to 32 bits before sending to the X server. */
4432 data = (unsigned char *) xmalloc (nelements * sizeof(long));
333b20bb 4433
6b61353c
KH		 4434 x_fill_property_data (FRAME_X_DISPLAY (f), value, data, element_format);
4435 }
4436 else
4437 {
4438 CHECK_STRING (value);
4439 data = SDATA (value);
4440 nelements = SCHARS (value);
4441 }
333b20bb 4442
6b61353c
KH		 4443 BLOCK_INPUT;
4444 prop_atom = XInternAtom (FRAME_X_DISPLAY (f), SDATA (prop), False);
4445 if (! NILP (type))
4446 {
4447 CHECK_STRING (type);
4448 target_type = XInternAtom (FRAME_X_DISPLAY (f), SDATA (type), False);
4449 }
333b20bb 4450
6b61353c
KH		 4451 if (! NILP (outer_p)) w = FRAME_OUTER_WINDOW (f);
4452 else w = FRAME_X_WINDOW (f);
5b3f8550 4453
6b61353c
KH		 4454 XChangeProperty (FRAME_X_DISPLAY (f), w,
4455 prop_atom, target_type, element_format, PropModeReplace,
4456 data, nelements);
333b20bb 4457
6b61353c 4458 if (CONSP (value)) xfree (data);
333b20bb 4459
6b61353c
KH		 4460 /* Make sure the property is set when we return. */
4461 XFlush (FRAME_X_DISPLAY (f));
4462 UNBLOCK_INPUT;
333b20bb 4463
6b61353c 4464 return value;
333b20bb
GM		 4465}
4466
4467
6b61353c
KH		 4468DEFUN ("x-delete-window-property", Fx_delete_window_property,
4469 Sx_delete_window_property, 1, 2, 0,
4470 doc: /* Remove window property PROP from X window of FRAME.
4471FRAME nil or omitted means use the selected frame. Value is PROP. */)
4472 (prop, frame)
4473 Lisp_Object prop, frame;
333b20bb 4474{
6b61353c
KH		 4475 struct frame *f = check_x_frame (frame);
4476 Atom prop_atom;
333b20bb 4477
6b61353c
KH		 4478 CHECK_STRING (prop);
4479 BLOCK_INPUT;
4480 prop_atom = XInternAtom (FRAME_X_DISPLAY (f), SDATA (prop), False);
4481 XDeleteProperty (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), prop_atom);
333b20bb 4482
6b61353c
KH		 4483 /* Make sure the property is removed when we return. */
4484 XFlush (FRAME_X_DISPLAY (f));
4485 UNBLOCK_INPUT;
333b20bb 4486
6b61353c
KH		 4487 return prop;
4488}
333b20bb 4489
333b20bb 4490
6b61353c
KH		 4491DEFUN ("x-window-property", Fx_window_property, Sx_window_property,
4492 1, 6, 0,
4493 doc: /* Value is the value of window property PROP on FRAME.
4494If FRAME is nil or omitted, use the selected frame.
4495If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4496is the name of the Atom that denotes the type expected.
4497If SOURCE is non-nil, get the property on that window instead of from
4498FRAME. The number 0 denotes the root window.
4499If DELETE_P is non-nil, delete the property after retreiving it.
4500If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4501
4502Value is nil if FRAME hasn't a property with name PROP or if PROP has
4503no value of TYPE. */)
4504 (prop, frame, type, source, delete_p, vector_ret_p)
4505 Lisp_Object prop, frame, type, source, delete_p, vector_ret_p;
333b20bb 4506{
6b61353c
KH		 4507 struct frame *f = check_x_frame (frame);
4508 Atom prop_atom;
4509 int rc;
4510 Lisp_Object prop_value = Qnil;
a3db4b26 4511 unsigned char *tmp_data = NULL;
6b61353c
KH		 4512 Atom actual_type;
4513 Atom target_type = XA_STRING;
4514 int actual_format;
4515 unsigned long actual_size, bytes_remaining;
4516 Window target_window = FRAME_X_WINDOW (f);
4517 struct gcpro gcpro1;
177c0ea7 4518
6b61353c
KH		 4519 GCPRO1 (prop_value);
4520 CHECK_STRING (prop);
1783ffa2 4521
6b61353c
KH		 4522 if (! NILP (source))
4523 {
4524 if (NUMBERP (source))
4525 {
4526 if (FLOATP (source))
4527 target_window = (Window) XFLOAT (source);
4528 else
4529 target_window = XFASTINT (source);
177c0ea7 4530
6b61353c
KH		 4531 if (target_window == 0)
4532 target_window = FRAME_X_DISPLAY_INFO (f)->root_window;
4533 }
4534 else if (CONSP (source))
4535 target_window = cons_to_long (source);
333b20bb
GM		 4536 }
4537
6b61353c
KH		 4538 BLOCK_INPUT;
4539 if (STRINGP (type))
4540 {
4541 if (strcmp ("AnyPropertyType", SDATA (type)) == 0)
4542 target_type = AnyPropertyType;
4543 else
4544 target_type = XInternAtom (FRAME_X_DISPLAY (f), SDATA (type), False);
4545 }
333b20bb 4546
6b61353c
KH		 4547 prop_atom = XInternAtom (FRAME_X_DISPLAY (f), SDATA (prop), False);
4548 rc = XGetWindowProperty (FRAME_X_DISPLAY (f), target_window,
4549 prop_atom, 0, 0, False, target_type,
4550 &actual_type, &actual_format, &actual_size,
a3db4b26 4551 &bytes_remaining, &tmp_data);
6b61353c
KH		 4552 if (rc == Success)
4553 {
4554 int size = bytes_remaining;
333b20bb 4555
6b61353c
KH		 4556 XFree (tmp_data);
4557 tmp_data = NULL;
333b20bb 4558
6b61353c 4559 rc = XGetWindowProperty (FRAME_X_DISPLAY (f), target_window,
333b20bb 4560 prop_atom, 0, bytes_remaining,
6b61353c 4561 ! NILP (delete_p), target_type,
177c0ea7
JB		 4562 &actual_type, &actual_format,
4563 &actual_size, &bytes_remaining,
a3db4b26 4564 &tmp_data);
4c8c7926 4565 if (rc == Success && tmp_data)
6b61353c 4566 {
fede04ef
JD		 4567 /* The man page for XGetWindowProperty says:
4568 "If the returned format is 32, the returned data is represented
4569 as a long array and should be cast to that type to obtain the
4570 elements."
4571 This applies even if long is more than 32 bits, the X library
4572 converts from 32 bit elements received from the X server to long
4573 and passes the long array to us. Thus, for that case bcopy can not
4574 be used. We convert to a 32 bit type here, because so much code
4575 assume on that.
4576
4577 The bytes and offsets passed to XGetWindowProperty refers to the
4578 property and those are indeed in 32 bit quantities if format is
4579 32. */
4580
4581 if (actual_format == 32 && actual_format < BITS_PER_LONG)
4582 {
4583 unsigned long i;
4584 int *idata = (int *) tmp_data;
4585 long *ldata = (long *) tmp_data;
4586
4587 for (i = 0; i < actual_size; ++i)
a3db4b26 4588 idata[i] = (int) ldata[i];
fede04ef
JD		 4589 }
4590
6b61353c
KH		 4591 if (NILP (vector_ret_p))
4592 prop_value = make_string (tmp_data, size);
4593 else
4594 prop_value = x_property_data_to_lisp (f,
a3db4b26 4595 tmp_data,
6b61353c
KH		 4596 actual_type,
4597 actual_format,
4598 actual_size);
4599 }
333b20bb 4600
6b61353c 4601 if (tmp_data) XFree (tmp_data);
333b20bb
GM		 4602 }
4603
4604 UNBLOCK_INPUT;
6b61353c 4605 UNGCPRO;
333b20bb
GM		 4606 return prop_value;
4607}
4608
4609
4610\f
4611/***********************************************************************
4612 Busy cursor
4613 ***********************************************************************/
4614
4ae9a85e 4615/* If non-null, an asynchronous timer that, when it expires, displays
0af913d7 4616 an hourglass cursor on all frames. */
333b20bb 4617
0af913d7 4618static struct atimer *hourglass_atimer;
333b20bb 4619
0af913d7 4620/* Non-zero means an hourglass cursor is currently shown. */
333b20bb 4621
0af913d7 4622static int hourglass_shown_p;
333b20bb 4623
0af913d7 4624/* Number of seconds to wait before displaying an hourglass cursor. */
333b20bb 4625
0af913d7 4626static Lisp_Object Vhourglass_delay;
333b20bb 4627
0af913d7 4628/* Default number of seconds to wait before displaying an hourglass
4ae9a85e
GM		 4629 cursor. */
4630
0af913d7 4631#define DEFAULT_HOURGLASS_DELAY 1
4ae9a85e
GM		 4632
4633/* Function prototypes. */
4634
0af913d7
GM		 4635static void show_hourglass P_ ((struct atimer *));
4636static void hide_hourglass P_ ((void));
4ae9a85e 4637
83c31c8d
JD		 4638/* Return non-zero if houglass timer has been started or hourglass is shown. */
4639
4640int
4641hourglass_started ()
4642{
4643 return hourglass_shown_p || hourglass_atimer != NULL;
4644}
4645
4ae9a85e 4646
0af913d7 4647/* Cancel a currently active hourglass timer, and start a new one. */
4ae9a85e
GM		 4648
4649void
0af913d7 4650start_hourglass ()
333b20bb 4651{
4ae9a85e 4652 EMACS_TIME delay;
3caa99d3 4653 int secs, usecs = 0;
177c0ea7 4654
0af913d7 4655 cancel_hourglass ();
4ae9a85e 4656
0af913d7
GM		 4657 if (INTEGERP (Vhourglass_delay)
4658 && XINT (Vhourglass_delay) > 0)
4659 secs = XFASTINT (Vhourglass_delay);
4660 else if (FLOATP (Vhourglass_delay)
4661 && XFLOAT_DATA (Vhourglass_delay) > 0)
3caa99d3
GM		 4662 {
4663 Lisp_Object tem;
0af913d7 4664 tem = Ftruncate (Vhourglass_delay, Qnil);
3caa99d3 4665 secs = XFASTINT (tem);
0af913d7 4666 usecs = (XFLOAT_DATA (Vhourglass_delay) - secs) * 1000000;
3caa99d3 4667 }
4ae9a85e 4668 else
0af913d7 4669 secs = DEFAULT_HOURGLASS_DELAY;
177c0ea7 4670
3caa99d3 4671 EMACS_SET_SECS_USECS (delay, secs, usecs);
0af913d7
GM		 4672 hourglass_atimer = start_atimer (ATIMER_RELATIVE, delay,
4673 show_hourglass, NULL);
4ae9a85e
GM		 4674}
4675
4676
0af913d7 4677/* Cancel the hourglass cursor timer if active, hide a busy cursor if
4ae9a85e
GM		 4678 shown. */
4679
4680void
0af913d7 4681cancel_hourglass ()
4ae9a85e 4682{
0af913d7 4683 if (hourglass_atimer)
99f01f62 4684 {
0af913d7
GM		 4685 cancel_atimer (hourglass_atimer);
4686 hourglass_atimer = NULL;
99f01f62 4687 }
177c0ea7 4688
0af913d7
GM		 4689 if (hourglass_shown_p)
4690 hide_hourglass ();
4ae9a85e
GM		 4691}
4692
4693
0af913d7
GM		 4694/* Timer function of hourglass_atimer. TIMER is equal to
4695 hourglass_atimer.
4ae9a85e 4696
0af913d7
GM		 4697 Display an hourglass pointer on all frames by mapping the frames'
4698 hourglass_window. Set the hourglass_p flag in the frames'
4699 output_data.x structure to indicate that an hourglass cursor is
4700 shown on the frames. */
4ae9a85e
GM		 4701
4702static void
0af913d7 4703show_hourglass (timer)
4ae9a85e
GM		 4704 struct atimer *timer;
4705{
4706 /* The timer implementation will cancel this timer automatically
0af913d7 4707 after this function has run. Set hourglass_atimer to null
4ae9a85e 4708 so that we know the timer doesn't have to be canceled. */
0af913d7 4709 hourglass_atimer = NULL;
4ae9a85e 4710
0af913d7 4711 if (!hourglass_shown_p)
333b20bb
GM		 4712 {
4713 Lisp_Object rest, frame;
177c0ea7 4714
4ae9a85e 4715 BLOCK_INPUT;
177c0ea7 4716
333b20bb 4717 FOR_EACH_FRAME (rest, frame)
5f7a1890
GM		 4718 {
4719 struct frame *f = XFRAME (frame);
177c0ea7 4720
5f7a1890
GM		 4721 if (FRAME_LIVE_P (f) && FRAME_X_P (f) && FRAME_X_DISPLAY (f))
4722 {
4723 Display *dpy = FRAME_X_DISPLAY (f);
177c0ea7 4724
5f7a1890
GM		 4725#ifdef USE_X_TOOLKIT
4726 if (f->output_data.x->widget)
4727#else
4728 if (FRAME_OUTER_WINDOW (f))
4729#endif
4730 {
0af913d7 4731 f->output_data.x->hourglass_p = 1;
177c0ea7 4732
0af913d7 4733 if (!f->output_data.x->hourglass_window)
5f7a1890
GM		 4734 {
4735 unsigned long mask = CWCursor;
4736 XSetWindowAttributes attrs;
49b8b5dc
JD		 4737#ifdef USE_GTK
4738 Window parent = FRAME_X_WINDOW (f);
4739#else
4740 Window parent = FRAME_OUTER_WINDOW (f);
4741#endif
0af913d7 4742 attrs.cursor = f->output_data.x->hourglass_cursor;
177c0ea7 4743
0af913d7 4744 f->output_data.x->hourglass_window
49b8b5dc 4745 = XCreateWindow (dpy, parent,
5f7a1890
GM		 4746 0, 0, 32000, 32000, 0, 0,
4747 InputOnly,
4748 CopyFromParent,
4749 mask, &attrs);
4750 }
177c0ea7 4751
0af913d7 4752 XMapRaised (dpy, f->output_data.x->hourglass_window);
5f7a1890
GM		 4753 XFlush (dpy);
4754 }
4755 }
4756 }
333b20bb 4757
0af913d7 4758 hourglass_shown_p = 1;
4ae9a85e
GM		 4759 UNBLOCK_INPUT;
4760 }
333b20bb
GM		 4761}
4762
4763
0af913d7
GM		 4764/* Hide the hourglass pointer on all frames, if it is currently
4765 shown. */
333b20bb 4766
4ae9a85e 4767static void
0af913d7 4768hide_hourglass ()
4ae9a85e 4769{
0af913d7 4770 if (hourglass_shown_p)
333b20bb 4771 {
4ae9a85e
GM		 4772 Lisp_Object rest, frame;
4773
4774 BLOCK_INPUT;
4775 FOR_EACH_FRAME (rest, frame)
333b20bb 4776 {
4ae9a85e 4777 struct frame *f = XFRAME (frame);
177c0ea7 4778
4ae9a85e
GM		 4779 if (FRAME_X_P (f)
4780 /* Watch out for newly created frames. */
0af913d7 4781 && f->output_data.x->hourglass_window)
4ae9a85e 4782 {
0af913d7
GM		 4783 XUnmapWindow (FRAME_X_DISPLAY (f),
4784 f->output_data.x->hourglass_window);
4785 /* Sync here because XTread_socket looks at the
4786 hourglass_p flag that is reset to zero below. */
4ae9a85e 4787 XSync (FRAME_X_DISPLAY (f), False);
0af913d7 4788 f->output_data.x->hourglass_p = 0;
4ae9a85e 4789 }
333b20bb 4790 }
333b20bb 4791
0af913d7 4792 hourglass_shown_p = 0;
4ae9a85e
GM		 4793 UNBLOCK_INPUT;
4794 }
333b20bb
GM		 4795}
4796
4797
4798\f
4799/***********************************************************************
4800 Tool tips
4801 ***********************************************************************/
4802
4803static Lisp_Object x_create_tip_frame P_ ((struct x_display_info *,
275841bf 4804 Lisp_Object, Lisp_Object));
06d62053 4805static void compute_tip_xy P_ ((struct frame *, Lisp_Object, Lisp_Object,
ab452f99 4806 Lisp_Object, int, int, int *, int *));
177c0ea7 4807
44b5a125 4808/* The frame of a currently visible tooltip. */
333b20bb 4809
44b5a125 4810Lisp_Object tip_frame;
333b20bb
GM		 4811
4812/* If non-nil, a timer started that hides the last tooltip when it
4813 fires. */
4814
4815Lisp_Object tip_timer;
4816Window tip_window;
4817
06d62053
GM		 4818/* If non-nil, a vector of 3 elements containing the last args
4819 with which x-show-tip was called. See there. */
4820
4821Lisp_Object last_show_tip_args;
4822
d63931a2
GM		 4823/* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4824
4825Lisp_Object Vx_max_tooltip_size;
4826
eaf1eea9
GM		 4827
4828static Lisp_Object
4829unwind_create_tip_frame (frame)
4830 Lisp_Object frame;
4831{
c844a81a
GM		 4832 Lisp_Object deleted;
4833
4834 deleted = unwind_create_frame (frame);
4835 if (EQ (deleted, Qt))
4836 {
4837 tip_window = None;
4838 tip_frame = Qnil;
4839 }
177c0ea7 4840
c844a81a 4841 return deleted;
eaf1eea9
GM		 4842}
4843
4844
333b20bb 4845/* Create a frame for a tooltip on the display described by DPYINFO.
275841bf
GM		 4846 PARMS is a list of frame parameters. TEXT is the string to
4847 display in the tip frame. Value is the frame.
eaf1eea9
GM		 4848
4849 Note that functions called here, esp. x_default_parameter can
4850 signal errors, for instance when a specified color name is
4851 undefined. We have to make sure that we're in a consistent state
4852 when this happens. */
333b20bb
GM		 4853
4854static Lisp_Object
275841bf 4855x_create_tip_frame (dpyinfo, parms, text)
333b20bb 4856 struct x_display_info *dpyinfo;
275841bf 4857 Lisp_Object parms, text;
333b20bb
GM		 4858{
4859 struct frame *f;
4860 Lisp_Object frame, tem;
4861 Lisp_Object name;
333b20bb
GM		 4862 long window_prompting = 0;
4863 int width, height;
331379bf 4864 int count = SPECPDL_INDEX ();
b6d7acec 4865 struct gcpro gcpro1, gcpro2, gcpro3;
06d62053 4866 int face_change_count_before = face_change_count;
275841bf
GM		 4867 Lisp_Object buffer;
4868 struct buffer *old_buffer;
333b20bb
GM		 4869
4870 check_x ();
4871
89acb56d
SM		 4872 if (!dpyinfo->terminal->name)
4873 error ("Terminal is not live, can't create new frames on it");
333b20bb 4874
47f3c6b4 4875 parms = Fcopy_alist (parms);
333b20bb
GM		 4876
4877 /* Get the name of the frame to use for resource lookup. */
4878 name = x_get_arg (dpyinfo, parms, Qname, "name", "Name", RES_TYPE_STRING);
4879 if (!STRINGP (name)
4880 && !EQ (name, Qunbound)
4881 && !NILP (name))
4882 error ("Invalid frame name--not a string or nil");
333b20bb
GM		 4883
4884 frame = Qnil;
4885 GCPRO3 (parms, name, frame);
44b5a125 4886 f = make_frame (1);
333b20bb 4887 XSETFRAME (frame, f);
275841bf
GM		 4888
4889 buffer = Fget_buffer_create (build_string (" *tip*"));
be786000 4890 Fset_window_buffer (FRAME_ROOT_WINDOW (f), buffer, Qnil);
275841bf
GM		 4891 old_buffer = current_buffer;
4892 set_buffer_internal_1 (XBUFFER (buffer));
d63931a2 4893 current_buffer->truncate_lines = Qnil;
5c2a995d
KH		 4894 specbind (Qinhibit_read_only, Qt);
4895 specbind (Qinhibit_modification_hooks, Qt);
275841bf
GM		 4896 Ferase_buffer ();
4897 Finsert (1, &text);
4898 set_buffer_internal_1 (old_buffer);
177c0ea7 4899
333b20bb 4900 FRAME_CAN_HAVE_SCROLL_BARS (f) = 0;
8a1a7743 4901 record_unwind_protect (unwind_create_tip_frame, frame);
333b20bb 4902
6ed8eeff
KL		 4903 f->terminal = dpyinfo->terminal;
4904 f->terminal->reference_count++;
daf01701 4905
eaf1eea9
GM		 4906 /* By setting the output method, we're essentially saying that
4907 the frame is live, as per FRAME_LIVE_P. If we get a signal
4908 from this point on, x_destroy_window might screw up reference
4909 counts etc. */
333b20bb
GM		 4910 f->output_method = output_x_window;
4911 f->output_data.x = (struct x_output *) xmalloc (sizeof (struct x_output));
4912 bzero (f->output_data.x, sizeof (struct x_output));
4913 f->output_data.x->icon_bitmap = -1;
be786000 4914 FRAME_FONTSET (f) = -1;
61d461a8
GM		 4915 f->output_data.x->scroll_bar_foreground_pixel = -1;
4916 f->output_data.x->scroll_bar_background_pixel = -1;
f15340b7
MB		 4917#ifdef USE_TOOLKIT_SCROLL_BARS
4918 f->output_data.x->scroll_bar_top_shadow_pixel = -1;
4919 f->output_data.x->scroll_bar_bottom_shadow_pixel = -1;
4920#endif /* USE_TOOLKIT_SCROLL_BARS */
333b20bb
GM		 4921 f->icon_name = Qnil;
4922 FRAME_X_DISPLAY_INFO (f) = dpyinfo;
f1d2ce7f 4923#if GLYPH_DEBUG
eaf1eea9
GM		 4924 image_cache_refcount = FRAME_X_IMAGE_CACHE (f)->refcount;
4925 dpyinfo_refcount = dpyinfo->reference_count;
4926#endif /* GLYPH_DEBUG */
333b20bb
GM		 4927 f->output_data.x->parent_desc = FRAME_X_DISPLAY_INFO (f)->root_window;
4928 f->output_data.x->explicit_parent = 0;
4929
61d461a8
GM		 4930 /* These colors will be set anyway later, but it's important
4931 to get the color reference counts right, so initialize them! */
4932 {
4933 Lisp_Object black;
4934 struct gcpro gcpro1;
177c0ea7 4935
9d3d44ba
KL		 4936 /* Function x_decode_color can signal an error. Make
4937 sure to initialize color slots so that we won't try
4938 to free colors we haven't allocated. */
ce593f6e
KL		 4939 FRAME_FOREGROUND_PIXEL (f) = -1;
4940 FRAME_BACKGROUND_PIXEL (f) = -1;
9d3d44ba
KL		 4941 f->output_data.x->cursor_pixel = -1;
4942 f->output_data.x->cursor_foreground_pixel = -1;
4943 f->output_data.x->border_pixel = -1;
4944 f->output_data.x->mouse_pixel = -1;
4945
61d461a8
GM		 4946 black = build_string ("black");
4947 GCPRO1 (black);
ce593f6e 4948 FRAME_FOREGROUND_PIXEL (f)
61d461a8 4949 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
ce593f6e 4950 FRAME_BACKGROUND_PIXEL (f)
61d461a8
GM		 4951 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
4952 f->output_data.x->cursor_pixel
4953 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
4954 f->output_data.x->cursor_foreground_pixel
4955 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
4956 f->output_data.x->border_pixel
4957 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
4958 f->output_data.x->mouse_pixel
4959 = x_decode_color (f, black, BLACK_PIX_DEFAULT (f));
4960 UNGCPRO;
4961 }
4962
333b20bb
GM		 4963 /* Set the name; the functions to which we pass f expect the name to
4964 be set. */
4965 if (EQ (name, Qunbound) || NILP (name))
4966 {
4967 f->name = build_string (dpyinfo->x_id_name);
4968 f->explicit_name = 0;
4969 }
4970 else
4971 {
4972 f->name = name;
4973 f->explicit_name = 1;
4974 /* use the frame's title when getting resources for this frame. */
4975 specbind (Qx_resource_name, name);
4976 }
4977
02ed2ea8
KH		 4978 f->resx = dpyinfo->resx;
4979 f->resy = dpyinfo->resy;
4980
4981#ifdef USE_FONT_BACKEND
4982 if (enable_font_backend)
4983 {
4984 /* Perhaps, we must allow frame parameter, say `font-backend',
4985 to specify which font backends to use. */
4986#ifdef HAVE_FREETYPE
4987#ifdef HAVE_XFT
4988 register_font_driver (&xftfont_driver, f);
4989#else /* not HAVE_XFT */
4990 register_font_driver (&ftxfont_driver, f);
4991#endif /* not HAVE_XFT */
4992#endif /* HAVE_FREETYPE */
4993 register_font_driver (&xfont_driver, f);
d43f6b74
KH		 4994
4995 x_default_parameter (f, parms, Qfont_backend, Qnil,
4996 "fontBackend", "FontBackend", RES_TYPE_STRING);
02ed2ea8
KH		 4997 }
4998#endif /* USE_FONT_BACKEND */
4999
eaf1eea9
GM		 5000 /* Extract the window parameters from the supplied values that are
5001 needed to determine window geometry. */
02ed2ea8
KH		 5002#ifdef USE_FONT_BACKEND
5003 if (enable_font_backend)
5004 x_default_font_parameter (f, parms);
5005else
5006#endif /* USE_FONT_BACKEND */
333b20bb
GM		 5007 {
5008 Lisp_Object font;
5009
5010 font = x_get_arg (dpyinfo, parms, Qfont, "font", "Font", RES_TYPE_STRING);
5011
5012 BLOCK_INPUT;
5013 /* First, try whatever font the caller has specified. */
5014 if (STRINGP (font))
5015 {
5016 tem = Fquery_fontset (font, Qnil);
5017 if (STRINGP (tem))
7fb92cb1 5018 font = x_new_fontset (f, tem);
333b20bb 5019 else
d5db4077 5020 font = x_new_font (f, SDATA (font));
333b20bb 5021 }
177c0ea7 5022
333b20bb
GM		 5023 /* Try out a font which we hope has bold and italic variations. */
5024 if (!STRINGP (font))
5025 font = x_new_font (f, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
5026 if (!STRINGP (font))
5027 font = x_new_font (f, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
5028 if (! STRINGP (font))
5029 font = x_new_font (f, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
5030 if (! STRINGP (font))
5031 /* This was formerly the first thing tried, but it finds too many fonts
5032 and takes too long. */
5033 font = x_new_font (f, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
5034 /* If those didn't work, look for something which will at least work. */
5035 if (! STRINGP (font))
5036 font = x_new_font (f, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
5037 UNBLOCK_INPUT;
5038 if (! STRINGP (font))
5039 font = build_string ("fixed");
5040
6a46b018 5041 x_set_frame_parameters (f, Fcons (Fcons (Qfont, font), Qnil));
333b20bb
GM		 5042 }
5043
5044 x_default_parameter (f, parms, Qborder_width, make_number (2),
5045 "borderWidth", "BorderWidth", RES_TYPE_NUMBER);
177c0ea7 5046
333b20bb
GM		 5047 /* This defaults to 2 in order to match xterm. We recognize either
5048 internalBorderWidth or internalBorder (which is what xterm calls
5049 it). */
5050 if (NILP (Fassq (Qinternal_border_width, parms)))
5051 {
5052 Lisp_Object value;
5053
5054 value = x_get_arg (dpyinfo, parms, Qinternal_border_width,
5055 "internalBorder", "internalBorder", RES_TYPE_NUMBER);
5056 if (! EQ (value, Qunbound))
5057 parms = Fcons (Fcons (Qinternal_border_width, value),
5058 parms);
5059 }
5060
5061 x_default_parameter (f, parms, Qinternal_border_width, make_number (1),
5062 "internalBorderWidth", "internalBorderWidth",
5063 RES_TYPE_NUMBER);
5064
5065 /* Also do the stuff which must be set before the window exists. */
5066 x_default_parameter (f, parms, Qforeground_color, build_string ("black"),
5067 "foreground", "Foreground", RES_TYPE_STRING);
5068 x_default_parameter (f, parms, Qbackground_color, build_string ("white"),
5069 "background", "Background", RES_TYPE_STRING);
5070 x_default_parameter (f, parms, Qmouse_color, build_string ("black"),
5071 "pointerColor", "Foreground", RES_TYPE_STRING);
5072 x_default_parameter (f, parms, Qcursor_color, build_string ("black"),
5073 "cursorColor", "Foreground", RES_TYPE_STRING);
5074 x_default_parameter (f, parms, Qborder_color, build_string ("black"),
5075 "borderColor", "BorderColor", RES_TYPE_STRING);
5076
5077 /* Init faces before x_default_parameter is called for scroll-bar
5078 parameters because that function calls x_set_scroll_bar_width,
5079 which calls change_frame_size, which calls Fset_window_buffer,
5080 which runs hooks, which call Fvertical_motion. At the end, we
5081 end up in init_iterator with a null face cache, which should not
5082 happen. */
5083 init_frame_faces (f);
177c0ea7 5084
333b20bb 5085 f->output_data.x->parent_desc = FRAME_X_DISPLAY_INFO (f)->root_window;
333b20bb 5086
7c0d3ed8 5087 window_prompting = x_figure_window_size (f, parms, 0);
333b20bb 5088
333b20bb
GM		 5089 {
5090 XSetWindowAttributes attrs;
5091 unsigned long mask;
177c0ea7 5092
333b20bb 5093 BLOCK_INPUT;
c51d2b5e
GM		 5094 mask = CWBackPixel | CWOverrideRedirect | CWEventMask;
5095 if (DoesSaveUnders (dpyinfo->screen))
5096 mask |= CWSaveUnder;
177c0ea7 5097
9b2956e2
GM		 5098 /* Window managers look at the override-redirect flag to determine
5099 whether or net to give windows a decoration (Xlib spec, chapter
333b20bb
GM		 5100 3.2.8). */
5101 attrs.override_redirect = True;
5102 attrs.save_under = True;
5103 attrs.background_pixel = FRAME_BACKGROUND_PIXEL (f);
5104 /* Arrange for getting MapNotify and UnmapNotify events. */
5105 attrs.event_mask = StructureNotifyMask;
5106 tip_window
5107 = FRAME_X_WINDOW (f)
5108 = XCreateWindow (FRAME_X_DISPLAY (f),
5109 FRAME_X_DISPLAY_INFO (f)->root_window,
5110 /* x, y, width, height */
5111 0, 0, 1, 1,
5112 /* Border. */
5113 1,
5114 CopyFromParent, InputOutput, CopyFromParent,
5115 mask, &attrs);
5116 UNBLOCK_INPUT;
5117 }
5118
5119 x_make_gc (f);
5120
333b20bb
GM		 5121 x_default_parameter (f, parms, Qauto_raise, Qnil,
5122 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN);
5123 x_default_parameter (f, parms, Qauto_lower, Qnil,
5124 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN);
5125 x_default_parameter (f, parms, Qcursor_type, Qbox,
5126 "cursorType", "CursorType", RES_TYPE_SYMBOL);
5127
be786000 5128 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
333b20bb 5129 Change will not be effected unless different from the current
be786000
KS		 5130 FRAME_LINES (f). */
5131 width = FRAME_COLS (f);
5132 height = FRAME_LINES (f);
5133 SET_FRAME_COLS (f, 0);
5134 FRAME_LINES (f) = 0;
8938a4fb 5135 change_frame_size (f, height, width, 1, 0, 0);
177c0ea7 5136
cd1d850f
JPW		 5137 /* Add `tooltip' frame parameter's default value. */
5138 if (NILP (Fframe_parameter (frame, intern ("tooltip"))))
5139 Fmodify_frame_parameters (frame, Fcons (Fcons (intern ("tooltip"), Qt),
5140 Qnil));
177c0ea7 5141
cedb4d8b
GM		 5142 /* FIXME - can this be done in a similar way to normal frames?
5143 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
5144
35fdaa62
GM		 5145 /* Set the `display-type' frame parameter before setting up faces. */
5146 {
5147 Lisp_Object disptype;
5148
5149 if (FRAME_X_DISPLAY_INFO (f)->n_planes == 1)
5150 disptype = intern ("mono");
219ccf1b
RS		 5151 else if (FRAME_X_DISPLAY_INFO (f)->visual->class == GrayScale
5152 || FRAME_X_DISPLAY_INFO (f)->visual->class == StaticGray)
35fdaa62
GM		 5153 disptype = intern ("grayscale");
5154 else
5155 disptype = intern ("color");
5156
5157 if (NILP (Fframe_parameter (frame, Qdisplay_type)))
5158 Fmodify_frame_parameters (frame, Fcons (Fcons (Qdisplay_type, disptype),
5159 Qnil));
5160 }
5161
035d5114 5162 /* Set up faces after all frame parameters are known. This call
6801a572
GM		 5163 also merges in face attributes specified for new frames.
5164
5165 Frame parameters may be changed if .Xdefaults contains
5166 specifications for the default font. For example, if there is an
5167 `Emacs.default.attributeBackground: pink', the `background-color'
5168 attribute of the frame get's set, which let's the internal border
5169 of the tooltip frame appear in pink. Prevent this. */
5170 {
5171 Lisp_Object bg = Fframe_parameter (frame, Qbackground_color);
5172
5173 /* Set tip_frame here, so that */
5174 tip_frame = frame;
5175 call1 (Qface_set_after_frame_default, frame);
177c0ea7 5176
6801a572
GM		 5177 if (!EQ (bg, Fframe_parameter (frame, Qbackground_color)))
5178 Fmodify_frame_parameters (frame, Fcons (Fcons (Qbackground_color, bg),
5179 Qnil));
5180 }
177c0ea7 5181
333b20bb
GM		 5182 f->no_split = 1;
5183
5184 UNGCPRO;
5185
5186 /* It is now ok to make the frame official even if we get an error
5187 below. And the frame needs to be on Vframe_list or making it
5188 visible won't work. */
5189 Vframe_list = Fcons (frame, Vframe_list);
5190
5191 /* Now that the frame is official, it counts as a reference to
5192 its display. */
5193 FRAME_X_DISPLAY_INFO (f)->reference_count++;
5194
06d62053
GM		 5195 /* Setting attributes of faces of the tooltip frame from resources
5196 and similar will increment face_change_count, which leads to the
5197 clearing of all current matrices. Since this isn't necessary
5198 here, avoid it by resetting face_change_count to the value it
5199 had before we created the tip frame. */
5200 face_change_count = face_change_count_before;
5201
eaf1eea9 5202 /* Discard the unwind_protect. */
333b20bb
GM		 5203 return unbind_to (count, frame);
5204}
5205
5206
06d62053
GM		 5207/* Compute where to display tip frame F. PARMS is the list of frame
5208 parameters for F. DX and DY are specified offsets from the current
ab452f99
GM		 5209 location of the mouse. WIDTH and HEIGHT are the width and height
5210 of the tooltip. Return coordinates relative to the root window of
5211 the display in *ROOT_X, and *ROOT_Y. */
06d62053
GM		 5212
5213static void
ab452f99 5214compute_tip_xy (f, parms, dx, dy, width, height, root_x, root_y)
06d62053
GM		 5215 struct frame *f;
5216 Lisp_Object parms, dx, dy;
ab452f99 5217 int width, height;
06d62053
GM		 5218 int *root_x, *root_y;
5219{
5220 Lisp_Object left, top;
5221 int win_x, win_y;
5222 Window root, child;
5223 unsigned pmask;
177c0ea7 5224
06d62053
GM		 5225 /* User-specified position? */
5226 left = Fcdr (Fassq (Qleft, parms));
5227 top = Fcdr (Fassq (Qtop, parms));
177c0ea7 5228
06d62053
GM		 5229 /* Move the tooltip window where the mouse pointer is. Resize and
5230 show it. */
570d22b0 5231 if (!INTEGERP (left) || !INTEGERP (top))
ab452f99
GM		 5232 {
5233 BLOCK_INPUT;
5234 XQueryPointer (FRAME_X_DISPLAY (f), FRAME_X_DISPLAY_INFO (f)->root_window,
5235 &root, &child, root_x, root_y, &win_x, &win_y, &pmask);
5236 UNBLOCK_INPUT;
5237 }
06d62053 5238
06d62053
GM		 5239 if (INTEGERP (top))
5240 *root_y = XINT (top);
bf63eb69
JD		 5241 else if (*root_y + XINT (dy) <= 0)
5242 *root_y = 0; /* Can happen for negative dy */
7e8410d1
JD		 5243 else if (*root_y + XINT (dy) + height <= FRAME_X_DISPLAY_INFO (f)->height)
5244 /* It fits below the pointer */
ab452f99 5245 *root_y += XINT (dy);
7e8410d1
JD		 5246 else if (height + XINT (dy) <= *root_y)
5247 /* It fits above the pointer. */
5248 *root_y -= height + XINT (dy);
5249 else
5250 /* Put it on the top. */
5251 *root_y = 0;
ab452f99
GM		 5252
5253 if (INTEGERP (left))
5254 *root_x = XINT (left);
bf63eb69
JD		 5255 else if (*root_x + XINT (dx) <= 0)
5256 *root_x = 0; /* Can happen for negative dx */
d682d3df
RS		 5257 else if (*root_x + XINT (dx) + width <= FRAME_X_DISPLAY_INFO (f)->width)
5258 /* It fits to the right of the pointer. */
5259 *root_x += XINT (dx);
5260 else if (width + XINT (dx) <= *root_x)
5261 /* It fits to the left of the pointer. */
ab452f99
GM		 5262 *root_x -= width + XINT (dx);
5263 else
d682d3df
RS		 5264 /* Put it left-justified on the screen--it ought to fit that way. */
5265 *root_x = 0;
06d62053
GM		 5266}
5267
5268
0634ce98 5269DEFUN ("x-show-tip", Fx_show_tip, Sx_show_tip, 1, 6, 0,
7ee72033 5270 doc: /* Show STRING in a "tooltip" window on frame FRAME.
c061c855
GM		 5271A tooltip window is a small X window displaying a string.
5272
87c891c7
EZ		 5273This is an internal function; Lisp code should call `tooltip-show'.
5274
c061c855
GM		 5275FRAME nil or omitted means use the selected frame.
5276
5277PARMS is an optional list of frame parameters which can be used to
5278change the tooltip's appearance.
5279
5280Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5281means use the default timeout of 5 seconds.
5282
5283If the list of frame parameters PARAMS contains a `left' parameters,
5284the tooltip is displayed at that x-position. Otherwise it is
5285displayed at the mouse position, with offset DX added (default is 5 if
5286DX isn't specified). Likewise for the y-position; if a `top' frame
5287parameter is specified, it determines the y-position of the tooltip
5288window, otherwise it is displayed at the mouse position, with offset
5289DY added (default is -10).
5290
5291A tooltip's maximum size is specified by `x-max-tooltip-size'.
7ee72033
MB		 5292Text larger than the specified size is clipped. */)
5293 (string, frame, parms, timeout, dx, dy)
0634ce98 5294 Lisp_Object string, frame, parms, timeout, dx, dy;
333b20bb
GM		 5295{
5296 struct frame *f;
5297 struct window *w;
06d62053 5298 int root_x, root_y;
333b20bb
GM		 5299 struct buffer *old_buffer;
5300 struct text_pos pos;
5301 int i, width, height;
393f2d14 5302 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
333b20bb 5303 int old_windows_or_buffers_changed = windows_or_buffers_changed;
331379bf 5304 int count = SPECPDL_INDEX ();
177c0ea7 5305
333b20bb
GM		 5306 specbind (Qinhibit_redisplay, Qt);
5307
393f2d14 5308 GCPRO4 (string, parms, frame, timeout);
333b20bb 5309
b7826503 5310 CHECK_STRING (string);
333b20bb
GM		 5311 f = check_x_frame (frame);
5312 if (NILP (timeout))
5313 timeout = make_number (5);
5314 else
b7826503 5315 CHECK_NATNUM (timeout);
177c0ea7 5316
0634ce98
GM		 5317 if (NILP (dx))
5318 dx = make_number (5);
5319 else
b7826503 5320 CHECK_NUMBER (dx);
177c0ea7 5321
0634ce98 5322 if (NILP (dy))
12c67a7f 5323 dy = make_number (-10);
0634ce98 5324 else
b7826503 5325 CHECK_NUMBER (dy);
333b20bb 5326
06d62053
GM		 5327 if (NILP (last_show_tip_args))
5328 last_show_tip_args = Fmake_vector (make_number (3), Qnil);
5329
5330 if (!NILP (tip_frame))
5331 {
5332 Lisp_Object last_string = AREF (last_show_tip_args, 0);
5333 Lisp_Object last_frame = AREF (last_show_tip_args, 1);
5334 Lisp_Object last_parms = AREF (last_show_tip_args, 2);
5335
5336 if (EQ (frame, last_frame)
5337 && !NILP (Fequal (last_string, string))
5338 && !NILP (Fequal (last_parms, parms)))
5339 {
5340 struct frame *f = XFRAME (tip_frame);
177c0ea7 5341
06d62053
GM		 5342 /* Only DX and DY have changed. */
5343 if (!NILP (tip_timer))
ae782866
GM		 5344 {
5345 Lisp_Object timer = tip_timer;
5346 tip_timer = Qnil;
5347 call1 (Qcancel_timer, timer);
5348 }
06d62053
GM		 5349
5350 BLOCK_INPUT;
be786000
KS		 5351 compute_tip_xy (f, parms, dx, dy, FRAME_PIXEL_WIDTH (f),
5352 FRAME_PIXEL_HEIGHT (f), &root_x, &root_y);
06d62053 5353 XMoveWindow (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
ab452f99 5354 root_x, root_y);
06d62053
GM		 5355 UNBLOCK_INPUT;
5356 goto start_timer;
5357 }
5358 }
5359
333b20bb
GM		 5360 /* Hide a previous tip, if any. */
5361 Fx_hide_tip ();
5362
06d62053
GM		 5363 ASET (last_show_tip_args, 0, string);
5364 ASET (last_show_tip_args, 1, frame);
5365 ASET (last_show_tip_args, 2, parms);
5366
333b20bb
GM		 5367 /* Add default values to frame parameters. */
5368 if (NILP (Fassq (Qname, parms)))
5369 parms = Fcons (Fcons (Qname, build_string ("tooltip")), parms);
5370 if (NILP (Fassq (Qinternal_border_width, parms)))
5371 parms = Fcons (Fcons (Qinternal_border_width, make_number (3)), parms);
5372 if (NILP (Fassq (Qborder_width, parms)))
5373 parms = Fcons (Fcons (Qborder_width, make_number (1)), parms);
5374 if (NILP (Fassq (Qborder_color, parms)))
5375 parms = Fcons (Fcons (Qborder_color, build_string ("lightyellow")), parms);
5376 if (NILP (Fassq (Qbackground_color, parms)))
5377 parms = Fcons (Fcons (Qbackground_color, build_string ("lightyellow")),
5378 parms);
5379
5380 /* Create a frame for the tooltip, and record it in the global
5381 variable tip_frame. */
275841bf 5382 frame = x_create_tip_frame (FRAME_X_DISPLAY_INFO (f), parms, string);
44b5a125 5383 f = XFRAME (frame);
333b20bb 5384
d63931a2 5385 /* Set up the frame's root window. */
333b20bb 5386 w = XWINDOW (FRAME_ROOT_WINDOW (f));
be786000 5387 w->left_col = w->top_line = make_number (0);
177c0ea7 5388
d63931a2
GM		 5389 if (CONSP (Vx_max_tooltip_size)
5390 && INTEGERP (XCAR (Vx_max_tooltip_size))
5391 && XINT (XCAR (Vx_max_tooltip_size)) > 0
5392 && INTEGERP (XCDR (Vx_max_tooltip_size))
5393 && XINT (XCDR (Vx_max_tooltip_size)) > 0)
5394 {
be786000
KS		 5395 w->total_cols = XCAR (Vx_max_tooltip_size);
5396 w->total_lines = XCDR (Vx_max_tooltip_size);
d63931a2
GM		 5397 }
5398 else
5399 {
be786000
KS		 5400 w->total_cols = make_number (80);
5401 w->total_lines = make_number (40);
d63931a2 5402 }
177c0ea7 5403
be786000 5404 FRAME_TOTAL_COLS (f) = XINT (w->total_cols);
333b20bb
GM		 5405 adjust_glyphs (f);
5406 w->pseudo_window_p = 1;
5407
5408 /* Display the tooltip text in a temporary buffer. */
333b20bb 5409 old_buffer = current_buffer;
275841bf 5410 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f))->buffer));
d63931a2 5411 current_buffer->truncate_lines = Qnil;
333b20bb
GM		 5412 clear_glyph_matrix (w->desired_matrix);
5413 clear_glyph_matrix (w->current_matrix);
5414 SET_TEXT_POS (pos, BEGV, BEGV_BYTE);
29e95254 5415 try_window (FRAME_ROOT_WINDOW (f), pos, 0);
333b20bb
GM		 5416
5417 /* Compute width and height of the tooltip. */
5418 width = height = 0;
5419 for (i = 0; i < w->desired_matrix->nrows; ++i)
5420 {
5421 struct glyph_row *row = &w->desired_matrix->rows[i];
5422 struct glyph *last;
5423 int row_width;
5424
5425 /* Stop at the first empty row at the end. */
5426 if (!row->enabled_p || !row->displays_text_p)
5427 break;
5428
d7bf0342
GM		 5429 /* Let the row go over the full width of the frame. */
5430 row->full_width_p = 1;
333b20bb 5431
e3130015 5432 /* There's a glyph at the end of rows that is used to place
333b20bb
GM		 5433 the cursor there. Don't include the width of this glyph. */
5434 if (row->used[TEXT_AREA])
5435 {
5436 last = &row->glyphs[TEXT_AREA][row->used[TEXT_AREA] - 1];
5437 row_width = row->pixel_width - last->pixel_width;
5438 }
5439 else
5440 row_width = row->pixel_width;
177c0ea7 5441
333b20bb
GM		 5442 height += row->height;
5443 width = max (width, row_width);
5444 }
5445
5446 /* Add the frame's internal border to the width and height the X
5447 window should have. */
5448 height += 2 * FRAME_INTERNAL_BORDER_WIDTH (f);
5449 width += 2 * FRAME_INTERNAL_BORDER_WIDTH (f);
5450
5451 /* Move the tooltip window where the mouse pointer is. Resize and
5452 show it. */
ab452f99 5453 compute_tip_xy (f, parms, dx, dy, width, height, &root_x, &root_y);
0634ce98 5454
0634ce98 5455 BLOCK_INPUT;
333b20bb 5456 XMoveResizeWindow (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
ab452f99 5457 root_x, root_y, width, height);
333b20bb
GM		 5458 XMapRaised (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f));
5459 UNBLOCK_INPUT;
177c0ea7 5460
333b20bb
GM		 5461 /* Draw into the window. */
5462 w->must_be_updated_p = 1;
5463 update_single_window (w, 1);
5464
5465 /* Restore original current buffer. */
5466 set_buffer_internal_1 (old_buffer);
5467 windows_or_buffers_changed = old_windows_or_buffers_changed;
5468
06d62053 5469 start_timer:
333b20bb
GM		 5470 /* Let the tip disappear after timeout seconds. */
5471 tip_timer = call3 (intern ("run-at-time"), timeout, Qnil,
5472 intern ("x-hide-tip"));
a744a2ec
DL		 5473
5474 UNGCPRO;
333b20bb
GM		 5475 return unbind_to (count, Qnil);
5476}
5477
5478
5479DEFUN ("x-hide-tip", Fx_hide_tip, Sx_hide_tip, 0, 0, 0,
7ee72033
MB		 5480 doc: /* Hide the current tooltip window, if there is any.
5481Value is t if tooltip was open, nil otherwise. */)
5482 ()
333b20bb 5483{
44b5a125 5484 int count;
c0006262
GM		 5485 Lisp_Object deleted, frame, timer;
5486 struct gcpro gcpro1, gcpro2;
44b5a125
GM		 5487
5488 /* Return quickly if nothing to do. */
c0006262 5489 if (NILP (tip_timer) && NILP (tip_frame))
44b5a125 5490 return Qnil;
177c0ea7 5491
c0006262
GM		 5492 frame = tip_frame;
5493 timer = tip_timer;
5494 GCPRO2 (frame, timer);
5495 tip_frame = tip_timer = deleted = Qnil;
177c0ea7 5496
331379bf 5497 count = SPECPDL_INDEX ();
333b20bb 5498 specbind (Qinhibit_redisplay, Qt);
44b5a125 5499 specbind (Qinhibit_quit, Qt);
177c0ea7 5500
c0006262 5501 if (!NILP (timer))
ae782866 5502 call1 (Qcancel_timer, timer);
333b20bb 5503
c0006262 5504 if (FRAMEP (frame))
333b20bb 5505 {
44b5a125
GM		 5506 Fdelete_frame (frame, Qnil);
5507 deleted = Qt;
f6c44811
GM		 5508
5509#ifdef USE_LUCID
5510 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5511 redisplay procedure is not called when a tip frame over menu
5512 items is unmapped. Redisplay the menu manually... */
5513 {
5514 struct frame *f = SELECTED_FRAME ();
5515 Widget w = f->output_data.x->menubar_widget;
5516 extern void xlwmenu_redisplay P_ ((Widget));
9180dc8c 5517
f6c44811 5518 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f)->screen)
dbc64aa7 5519 && w != NULL)
f6c44811
GM		 5520 {
5521 BLOCK_INPUT;
5522 xlwmenu_redisplay (w);
5523 UNBLOCK_INPUT;
5524 }
5525 }
5526#endif /* USE_LUCID */
333b20bb
GM		 5527 }
5528
c0006262 5529 UNGCPRO;
44b5a125 5530 return unbind_to (count, deleted);
333b20bb
GM		 5531}
5532
5533
5534\f
5535/***********************************************************************
5536 File selection dialog
5537 ***********************************************************************/
5538
90f2e16b
JD		 5539DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog,
5540 Sx_uses_old_gtk_dialog,
5541 0, 0, 0,
5542 doc: /* Return t if the old Gtk+ file selection dialog is used. */)
5543 ()
5544{
5545#ifdef USE_GTK
5546 extern int use_dialog_box;
5547 extern int use_file_dialog;
333b20bb 5548
90f2e16b
JD		 5549 if (use_dialog_box
5550 && use_file_dialog
5551 && have_menus_p ()
5552 && xg_uses_old_file_dialog ())
5553 return Qt;
5554#endif
5555 return Qnil;
5556}
5557
333b20bb 5558
90f2e16b 5559#ifdef USE_MOTIF
333b20bb
GM		 5560/* Callback for "OK" and "Cancel" on file selection dialog. */
5561
5562static void
5563file_dialog_cb (widget, client_data, call_data)
5564 Widget widget;
5565 XtPointer call_data, client_data;
5566{
5567 int *result = (int *) client_data;
5568 XmAnyCallbackStruct *cb = (XmAnyCallbackStruct *) call_data;
5569 *result = cb->reason;
5570}
5571
5572
a779d213
GM		 5573/* Callback for unmapping a file selection dialog. This is used to
5574 capture the case where a dialog is closed via a window manager's
5575 closer button, for example. Using a XmNdestroyCallback didn't work
5576 in this case. */
5577
5578static void
5579file_dialog_unmap_cb (widget, client_data, call_data)
5580 Widget widget;
5581 XtPointer call_data, client_data;
5582{
5583 int *result = (int *) client_data;
5584 *result = XmCR_CANCEL;
5585}
5586
24ca7c5a
JD		 5587static Lisp_Object
5588clean_up_file_dialog (arg)
5589 Lisp_Object arg;
5590{
5591 struct Lisp_Save_Value *p = XSAVE_VALUE (arg);
5592 Widget dialog = (Widget) p->pointer;
5593
5594 /* Clean up. */
5595 BLOCK_INPUT;
5596 XtUnmanageChild (dialog);
5597 XtDestroyWidget (dialog);
5598 x_menu_set_in_use (0);
5599 UNBLOCK_INPUT;
5600
5601 return Qnil;
5602}
5603
a779d213 5604
f9d64bb3 5605DEFUN ("x-file-dialog", Fx_file_dialog, Sx_file_dialog, 2, 5, 0,
7ee72033 5606 doc: /* Read file name, prompting with PROMPT in directory DIR.
f9d64bb3
JD		 5607Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5608selection box, if specified. If MUSTMATCH is non-nil, the returned file
5609or directory must exist. ONLY-DIR-P is ignored." */)
5610 (prompt, dir, default_filename, mustmatch, only_dir_p)
5611 Lisp_Object prompt, dir, default_filename, mustmatch, only_dir_p;
333b20bb
GM		 5612{
5613 int result;
0fe92f72 5614 struct frame *f = SELECTED_FRAME ();
333b20bb 5615 Lisp_Object file = Qnil;
a8f4bdc6 5616 Lisp_Object decoded_file;
f9d64bb3 5617 Widget dialog, text, help;
333b20bb
GM		 5618 Arg al[10];
5619 int ac = 0;
5620 extern XtAppContext Xt_app_con;
333b20bb 5621 XmString dir_xmstring, pattern_xmstring;
65b21658 5622 int count = SPECPDL_INDEX ();
f9d64bb3 5623 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6;
333b20bb 5624
6eeee4d6
YM		 5625 check_x ();
5626
f9d64bb3 5627 GCPRO6 (prompt, dir, default_filename, mustmatch, only_dir_p, file);
24ca7c5a 5628
5ae53dcf 5629 if (popup_activated ())
24ca7c5a
JD		 5630 error ("Trying to use a menu from within a menu-entry");
5631
b7826503
PJ		 5632 CHECK_STRING (prompt);
5633 CHECK_STRING (dir);
333b20bb
GM		 5634
5635 /* Prevent redisplay. */
5636 specbind (Qinhibit_redisplay, Qt);
5637
5638 BLOCK_INPUT;
5639
5640 /* Create the dialog with PROMPT as title, using DIR as initial
5641 directory and using "*" as pattern. */
5642 dir = Fexpand_file_name (dir, Qnil);
d5db4077 5643 dir_xmstring = XmStringCreateLocalized (SDATA (dir));
333b20bb 5644 pattern_xmstring = XmStringCreateLocalized ("*");
177c0ea7 5645
d5db4077 5646 XtSetArg (al[ac], XmNtitle, SDATA (prompt)); ++ac;
333b20bb
GM		 5647 XtSetArg (al[ac], XmNdirectory, dir_xmstring); ++ac;
5648 XtSetArg (al[ac], XmNpattern, pattern_xmstring); ++ac;
5649 XtSetArg (al[ac], XmNresizePolicy, XmRESIZE_GROW); ++ac;
5650 XtSetArg (al[ac], XmNdialogStyle, XmDIALOG_APPLICATION_MODAL); ++ac;
5651 dialog = XmCreateFileSelectionDialog (f->output_data.x->widget,
5652 "fsb", al, ac);
5653 XmStringFree (dir_xmstring);
5654 XmStringFree (pattern_xmstring);
5655
5656 /* Add callbacks for OK and Cancel. */
5657 XtAddCallback (dialog, XmNokCallback, file_dialog_cb,
5658 (XtPointer) &result);
5659 XtAddCallback (dialog, XmNcancelCallback, file_dialog_cb,
5660 (XtPointer) &result);
a779d213
GM		 5661 XtAddCallback (dialog, XmNunmapCallback, file_dialog_unmap_cb,
5662 (XtPointer) &result);
333b20bb 5663
f9d64bb3 5664 /* Remove the help button since we can't display help. */
333b20bb 5665 help = XmFileSelectionBoxGetChild (dialog, XmDIALOG_HELP_BUTTON);
f9d64bb3 5666 XtUnmanageChild (help);
333b20bb 5667
177c0ea7 5668 /* Mark OK button as default. */
333b20bb
GM		 5669 XtVaSetValues (XmFileSelectionBoxGetChild (dialog, XmDIALOG_OK_BUTTON),
5670 XmNshowAsDefault, True, NULL);
5671
5672 /* If MUSTMATCH is non-nil, disable the file entry field of the
5673 dialog, so that the user must select a file from the files list
5674 box. We can't remove it because we wouldn't have a way to get at
5675 the result file name, then. */
5676 text = XmFileSelectionBoxGetChild (dialog, XmDIALOG_TEXT);
5677 if (!NILP (mustmatch))
5678 {
5679 Widget label;
5680 label = XmFileSelectionBoxGetChild (dialog, XmDIALOG_SELECTION_LABEL);
5681 XtSetSensitive (text, False);
5682 XtSetSensitive (label, False);
5683 }
5684
5685 /* Manage the dialog, so that list boxes get filled. */
5686 XtManageChild (dialog);
5687
333b20bb
GM		 5688 if (STRINGP (default_filename))
5689 {
5690 XmString default_xmstring;
f9d64bb3
JD		 5691 Widget wtext = XmFileSelectionBoxGetChild (dialog, XmDIALOG_TEXT);
5692 Widget list = XmFileSelectionBoxGetChild (dialog, XmDIALOG_LIST);
333b20bb 5693
f9d64bb3
JD		 5694 XmTextPosition last_pos = XmTextFieldGetLastPosition (wtext);
5695 XmTextFieldReplace (wtext, 0, last_pos,
5696 (SDATA (Ffile_name_nondirectory (default_filename))));
333b20bb 5697
f9d64bb3
JD		 5698 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5699 must include the path for this to work. */
5700
5701 default_xmstring = XmStringCreateLocalized (SDATA (default_filename));
333b20bb 5702
f9d64bb3
JD		 5703 if (XmListItemExists (list, default_xmstring))
5704 {
5705 int item_pos = XmListItemPos (list, default_xmstring);
5706 /* Select the item and scroll it into view. */
5707 XmListSelectPos (list, item_pos, True);
5708 XmListSetPos (list, item_pos);
5709 }
5710
5711 XmStringFree (default_xmstring);
333b20bb
GM		 5712 }
5713
24ca7c5a
JD		 5714 record_unwind_protect (clean_up_file_dialog, make_save_value (dialog, 0));
5715
bf338245 5716 /* Process events until the user presses Cancel or OK. */
5ae53dcf 5717 x_menu_set_in_use (1);
03100098 5718 result = 0;
a779d213 5719 while (result == 0)
563b384d 5720 {
bf338245 5721 XEvent event;
24ca7c5a 5722 x_menu_wait_for_event (0);
bf338245 5723 XtAppNextEvent (Xt_app_con, &event);
9f6fcdc5
JD		 5724 if (event.type == KeyPress
5725 && FRAME_X_DISPLAY (f) == event.xkey.display)
5726 {
5727 KeySym keysym = XLookupKeysym (&event.xkey, 0);
5728
5729 /* Pop down on C-g. */
5730 if (keysym == XK_g && (event.xkey.state & ControlMask) != 0)
5731 XtUnmanageChild (dialog);
5732 }
5b3f8550 5733
24ca7c5a 5734 (void) x_dispatch_event (&event, FRAME_X_DISPLAY (f));
563b384d 5735 }
03100098 5736
333b20bb
GM		 5737 /* Get the result. */
5738 if (result == XmCR_OK)
5739 {
5740 XmString text;
5741 String data;
177c0ea7 5742
d1670063 5743 XtVaGetValues (dialog, XmNtextString, &text, NULL);
333b20bb
GM		 5744 XmStringGetLtoR (text, XmFONTLIST_DEFAULT_TAG, &data);
5745 XmStringFree (text);
5746 file = build_string (data);
5747 XtFree (data);
5748 }
5749 else
5750 file = Qnil;
5751
333b20bb
GM		 5752 UNBLOCK_INPUT;
5753 UNGCPRO;
5754
5755 /* Make "Cancel" equivalent to C-g. */
5756 if (NILP (file))
5757 Fsignal (Qquit, Qnil);
177c0ea7 5758
a8f4bdc6
JD		 5759 decoded_file = DECODE_FILE (file);
5760
5761 return unbind_to (count, decoded_file);
333b20bb
GM		 5762}
5763
5764#endif /* USE_MOTIF */
5765
488dd4c4
JD		 5766#ifdef USE_GTK
5767
24ca7c5a
JD		 5768static Lisp_Object
5769clean_up_dialog (arg)
5770 Lisp_Object arg;
5771{
5772 x_menu_set_in_use (0);
5773
5774 return Qnil;
5775}
5776
f9d64bb3
JD		 5777DEFUN ("x-file-dialog", Fx_file_dialog, Sx_file_dialog, 2, 5, 0,
5778 doc: /* Read file name, prompting with PROMPT in directory DIR.
5779Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5780selection box, if specified. If MUSTMATCH is non-nil, the returned file
5781or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5782directories. */)
5783 (prompt, dir, default_filename, mustmatch, only_dir_p)
5784 Lisp_Object prompt, dir, default_filename, mustmatch, only_dir_p;
488dd4c4
JD		 5785{
5786 FRAME_PTR f = SELECTED_FRAME ();
5787 char *fn;
5788 Lisp_Object file = Qnil;
a8f4bdc6 5789 Lisp_Object decoded_file;
24ca7c5a 5790 int count = SPECPDL_INDEX ();
f9d64bb3 5791 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6;
488dd4c4 5792 char *cdef_file;
177c0ea7 5793
6eeee4d6
YM		 5794 check_x ();
5795
f9d64bb3 5796 GCPRO6 (prompt, dir, default_filename, mustmatch, only_dir_p, file);
24ca7c5a 5797
5ae53dcf 5798 if (popup_activated ())
24ca7c5a
JD		 5799 error ("Trying to use a menu from within a menu-entry");
5800
488dd4c4
JD		 5801 CHECK_STRING (prompt);
5802 CHECK_STRING (dir);
5803
5804 /* Prevent redisplay. */
5805 specbind (Qinhibit_redisplay, Qt);
24ca7c5a 5806 record_unwind_protect (clean_up_dialog, Qnil);
488dd4c4
JD		 5807
5808 BLOCK_INPUT;
5809
5810 if (STRINGP (default_filename))
5811 cdef_file = SDATA (default_filename);
5812 else
5813 cdef_file = SDATA (dir);
5814
f9d64bb3
JD		 5815 fn = xg_get_file_name (f, SDATA (prompt), cdef_file,
5816 ! NILP (mustmatch),
5817 ! NILP (only_dir_p));
177c0ea7 5818
488dd4c4
JD		 5819 if (fn)
5820 {
5821 file = build_string (fn);
5822 xfree (fn);
5823 }
5824
5825 UNBLOCK_INPUT;
5826 UNGCPRO;
5827
5828 /* Make "Cancel" equivalent to C-g. */
5829 if (NILP (file))
5830 Fsignal (Qquit, Qnil);
177c0ea7 5831
a8f4bdc6
JD		 5832 decoded_file = DECODE_FILE (file);
5833
5834 return unbind_to (count, decoded_file);
488dd4c4
JD		 5835}
5836
5837#endif /* USE_GTK */
333b20bb
GM		 5838
5839\f
82bab41c
GM		 5840/***********************************************************************
5841 Keyboard
5842 ***********************************************************************/
5843
5844#ifdef HAVE_XKBGETKEYBOARD
5845#include <X11/XKBlib.h>
5846#include <X11/keysym.h>
5847#endif
5848
5849DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p,
5850 Sx_backspace_delete_keys_p, 0, 1, 0,
7ee72033 5851 doc: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
c061c855
GM		 5852FRAME nil means use the selected frame.
5853Value is t if we know that both keys are present, and are mapped to the
20d1c5c5
DN		 5854usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5855present and mapped to the usual X keysyms. */)
7ee72033 5856 (frame)
82bab41c
GM		 5857 Lisp_Object frame;
5858{
5859#ifdef HAVE_XKBGETKEYBOARD
5860 XkbDescPtr kb;
5861 struct frame *f = check_x_frame (frame);
5862 Display *dpy = FRAME_X_DISPLAY (f);
5863 Lisp_Object have_keys;
46f6a258 5864 int major, minor, op, event, error;
82bab41c
GM		 5865
5866 BLOCK_INPUT;
46f6a258
GM		 5867
5868 /* Check library version in case we're dynamically linked. */
5869 major = XkbMajorVersion;
5870 minor = XkbMinorVersion;
5871 if (!XkbLibraryVersion (&major, &minor))
c1efd260
GM		 5872 {
5873 UNBLOCK_INPUT;
20d1c5c5 5874 return Qlambda;
c1efd260 5875 }
46f6a258
GM		 5876
5877 /* Check that the server supports XKB. */
5878 major = XkbMajorVersion;
5879 minor = XkbMinorVersion;
5880 if (!XkbQueryExtension (dpy, &op, &event, &error, &major, &minor))
c1efd260
GM		 5881 {
5882 UNBLOCK_INPUT;
20d1c5c5 5883 return Qlambda;
c1efd260 5884 }
177c0ea7 5885
3a441526
JD		 5886 /* In this code we check that the keyboard has physical keys with names
5887 that start with BKSP (Backspace) and DELE (Delete), and that they
5888 generate keysym XK_BackSpace and XK_Delete respectively.
5889 This function is used to test if normal-erase-is-backspace should be
5890 turned on.
5891 An alternative approach would be to just check if XK_BackSpace and
5892 XK_Delete are mapped to any key. But if any of those are mapped to
5893 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5894 user doesn't know about it, it is better to return false here.
5895 It is more obvious to the user what to do if she/he has two keys
5896 clearly marked with names/symbols and one key does something not
5897 expected (i.e. she/he then tries the other).
5898 The cases where Backspace/Delete is mapped to some other key combination
5899 are rare, and in those cases, normal-erase-is-backspace can be turned on
5900 manually. */
5901
46f6a258 5902 have_keys = Qnil;
c1efd260 5903 kb = XkbGetMap (dpy, XkbAllMapComponentsMask, XkbUseCoreKbd);
82bab41c
GM		 5904 if (kb)
5905 {
5906 int delete_keycode = 0, backspace_keycode = 0, i;
c1efd260
GM		 5907
5908 if (XkbGetNames (dpy, XkbAllNamesMask, kb) == Success)
82bab41c 5909 {
c1efd260
GM		 5910 for (i = kb->min_key_code;
5911 (i < kb->max_key_code
5912 && (delete_keycode == 0 || backspace_keycode == 0));
5913 ++i)
5914 {
d63931a2
GM		 5915 /* The XKB symbolic key names can be seen most easily in
5916 the PS file generated by `xkbprint -label name
5917 $DISPLAY'. */
c1efd260
GM		 5918 if (bcmp ("DELE", kb->names->keys[i].name, 4) == 0)
5919 delete_keycode = i;
5920 else if (bcmp ("BKSP", kb->names->keys[i].name, 4) == 0)
5921 backspace_keycode = i;
5922 }
5923
5924 XkbFreeNames (kb, 0, True);
82bab41c
GM		 5925 }
5926
c1efd260 5927 XkbFreeClientMap (kb, 0, True);
177c0ea7 5928
82bab41c
GM		 5929 if (delete_keycode
5930 && backspace_keycode
5931 && XKeysymToKeycode (dpy, XK_Delete) == delete_keycode
5932 && XKeysymToKeycode (dpy, XK_BackSpace) == backspace_keycode)
5933 have_keys = Qt;
5934 }
5935 UNBLOCK_INPUT;
5936 return have_keys;
5937#else /* not HAVE_XKBGETKEYBOARD */
20d1c5c5 5938 return Qlambda;
82bab41c
GM		 5939#endif /* not HAVE_XKBGETKEYBOARD */
5940}
5941
5942
5943\f
333b20bb
GM		 5944/***********************************************************************
5945 Initialization
5946 ***********************************************************************/
5947
4dacadcc 5948/* Keep this list in the same order as frame_parms in frame.c.
7c0d3ed8
KS		 5949 Use 0 for unsupported frame parameters. */
5950
5951frame_parm_handler x_frame_parm_handlers[] =
5952{
5953 x_set_autoraise,
5954 x_set_autolower,
5955 x_set_background_color,
5956 x_set_border_color,
5957 x_set_border_width,
5958 x_set_cursor_color,
5959 x_set_cursor_type,
5960 x_set_font,
5961 x_set_foreground_color,
5962 x_set_icon_name,
5963 x_set_icon_type,
5964 x_set_internal_border_width,
5965 x_set_menu_bar_lines,
5966 x_set_mouse_color,
5967 x_explicitly_set_name,
5968 x_set_scroll_bar_width,
5969 x_set_title,
5970 x_set_unsplittable,
5971 x_set_vertical_scroll_bars,
5972 x_set_visibility,
5973 x_set_tool_bar_lines,
5974 x_set_scroll_bar_foreground,
5975 x_set_scroll_bar_background,
5976 x_set_screen_gamma,
5977 x_set_line_spacing,
5978 x_set_fringe_width,
5979 x_set_fringe_width,
5980 x_set_wait_for_wm,
5981 x_set_fullscreen,
297cc20a
KH		 5982#ifdef USE_FONT_BACKEND
5983 x_set_font_backend
5984#endif /* USE_FONT_BACKEND */
7c0d3ed8
KS		 5985};
5986
333b20bb
GM		 5987void
5988syms_of_xfns ()
5989{
5990 /* This is zero if not using X windows. */
5991 x_in_use = 0;
5992
5993 /* The section below is built by the lisp expression at the top of the file,
5994 just above where these variables are declared. */
5995 /*&&& init symbols here &&&*/
baaed68e
JB		 5996 Qnone = intern ("none");
5997 staticpro (&Qnone);
8af1d7ca
JB		 5998 Qsuppress_icon = intern ("suppress-icon");
5999 staticpro (&Qsuppress_icon);
01f1ba30 6000 Qundefined_color = intern ("undefined-color");
f9942c9e 6001 staticpro (&Qundefined_color);
96db09e4
KH		 6002 Qcompound_text = intern ("compound-text");
6003 staticpro (&Qcompound_text);
ae782866
GM		 6004 Qcancel_timer = intern ("cancel-timer");
6005 staticpro (&Qcancel_timer);
f9942c9e
JB		 6006 /* This is the end of symbol initialization. */
6007
58cad5ed
KH		 6008 /* Text property `display' should be nonsticky by default. */
6009 Vtext_property_default_nonsticky
6010 = Fcons (Fcons (Qdisplay, Qt), Vtext_property_default_nonsticky);
6011
6012
01f1ba30
JB		 6013 Fput (Qundefined_color, Qerror_conditions,
6014 Fcons (Qundefined_color, Fcons (Qerror, Qnil)));
6015 Fput (Qundefined_color, Qerror_message,
6016 build_string ("Undefined color"));
6017
7ee72033
MB		 6018 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape,
6019 doc: /* The shape of the pointer when over text.
c061c855
GM		 6020Changing the value does not affect existing frames
6021unless you set the mouse color. */);
01f1ba30
JB		 6022 Vx_pointer_shape = Qnil;
6023
ca0ecbf5 6024#if 0 /* This doesn't really do anything. */
7ee72033
MB		 6025 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape,
6026 doc: /* The shape of the pointer when not over text.
c061c855
GM		 6027This variable takes effect when you create a new frame
6028or when you set the mouse color. */);
af01ef26 6029#endif
01f1ba30
JB		 6030 Vx_nontext_pointer_shape = Qnil;
6031
7ee72033
MB		 6032 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape,
6033 doc: /* The shape of the pointer when Emacs is busy.
c061c855
GM		 6034This variable takes effect when you create a new frame
6035or when you set the mouse color. */);
0af913d7 6036 Vx_hourglass_pointer_shape = Qnil;
333b20bb 6037
7ee72033
MB		 6038 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p,
6039 doc: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
0af913d7 6040 display_hourglass_p = 1;
177c0ea7 6041
7ee72033
MB		 6042 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay,
6043 doc: /* *Seconds to wait before displaying an hourglass pointer.
c061c855 6044Value must be an integer or float. */);
0af913d7 6045 Vhourglass_delay = make_number (DEFAULT_HOURGLASS_DELAY);
4ae9a85e 6046
ca0ecbf5 6047#if 0 /* This doesn't really do anything. */
7ee72033
MB		 6048 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape,
6049 doc: /* The shape of the pointer when over the mode line.
c061c855
GM		 6050This variable takes effect when you create a new frame
6051or when you set the mouse color. */);
af01ef26 6052#endif
01f1ba30
JB		 6053 Vx_mode_pointer_shape = Qnil;
6054
d3b06468 6055 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
7ee72033
MB		 6056 &Vx_sensitive_text_pointer_shape,
6057 doc: /* The shape of the pointer when over mouse-sensitive text.
c061c855
GM		 6058This variable takes effect when you create a new frame
6059or when you set the mouse color. */);
ca0ecbf5 6060 Vx_sensitive_text_pointer_shape = Qnil;
95f80c78 6061
8fb4ec9c 6062 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
7ee72033
MB		 6063 &Vx_window_horizontal_drag_shape,
6064 doc: /* Pointer shape to use for indicating a window can be dragged horizontally.
c061c855
GM		 6065This variable takes effect when you create a new frame
6066or when you set the mouse color. */);
8fb4ec9c
GM		 6067 Vx_window_horizontal_drag_shape = Qnil;
6068
7ee72033
MB		 6069 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel,
6070 doc: /* A string indicating the foreground color of the cursor box. */);
01f1ba30
JB		 6071 Vx_cursor_fore_pixel = Qnil;
6072
7ee72033
MB		 6073 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size,
6074 doc: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
c061c855 6075Text larger than this is clipped. */);
d63931a2 6076 Vx_max_tooltip_size = Fcons (make_number (80), make_number (40));
177c0ea7 6077
7ee72033
MB		 6078 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager,
6079 doc: /* Non-nil if no X window manager is in use.
c061c855
GM		 6080Emacs doesn't try to figure this out; this is always nil
6081unless you set it to something else. */);
2d38195d
RS		 6082 /* We don't have any way to find this out, so set it to nil
6083 and maybe the user would like to set it to t. */
6084 Vx_no_window_manager = Qnil;
1d3dac41 6085
942ea06d 6086 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
7ee72033
MB		 6087 &Vx_pixel_size_width_font_regexp,
6088 doc: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
c061c855
GM		 6089
6090Since Emacs gets width of a font matching with this regexp from
6091PIXEL_SIZE field of the name, font finding mechanism gets faster for
6092such a font. This is especially effective for such large fonts as
6093Chinese, Japanese, and Korean. */);
942ea06d
KH		 6094 Vx_pixel_size_width_font_regexp = Qnil;
6095
255e4140 6096/* This is not ifdef:ed, so other builds than GTK can customize it. */
fe2b14b7 6097 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", &x_gtk_use_old_file_dialog,
255e4140
JD		 6098 doc: /* *Non-nil means prompt with the old GTK file selection dialog.
6099If nil or if the file selection dialog is not available, the new GTK file
6100chooser is used instead. To turn off all file dialogs set the
6101variable `use-file-dialog'. */);
fe2b14b7 6102 x_gtk_use_old_file_dialog = 0;
255e4140 6103
a8a35720
JD		 6104 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files,
6105 doc: /* *If non-nil, the GTK file chooser will by default show hidden files.
6106Note that this is just the default, there is a toggle button on the file
6107chooser to show or not show hidden files on a case by case basis. */);
6108 x_gtk_show_hidden_files = 0;
6109
159f8da7 6110 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", &x_gtk_file_dialog_help_text,
66687b7c 6111 doc: /* *If non-nil, the GTK file chooser will show additional help text.
641c0105
JD		 6112If more space for files in the file chooser dialog is wanted, set this to nil
6113to turn the additional text off. */);
159f8da7 6114 x_gtk_file_dialog_help_text = 1;
641c0105 6115
e0f467cb
JD		 6116 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar,
6117 doc: /* *If non-nil, a detached tool bar is shown in full.
6118The default is to just show an arrow and pressing on that arrow shows
6119the tool bar buttons. */);
6120 x_gtk_whole_detached_tool_bar = 0;
6121
49be9d28
RS		 6122 Fprovide (intern ("x"), Qnil);
6123
1d3dac41 6124#ifdef USE_X_TOOLKIT
6f3f6a8d 6125 Fprovide (intern ("x-toolkit"), Qnil);
5b827abb 6126#ifdef USE_MOTIF
6f3f6a8d 6127 Fprovide (intern ("motif"), Qnil);
fc2cdd9a 6128
7ee72033
MB		 6129 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string,
6130 doc: /* Version info for LessTif/Motif. */);
fc2cdd9a
GM		 6131 Vmotif_version_string = build_string (XmVERSION_STRING);
6132#endif /* USE_MOTIF */
6133#endif /* USE_X_TOOLKIT */
01f1ba30 6134
6b61353c 6135#ifdef USE_GTK
1ec2a572
JD		 6136 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
6137 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
6138 But for a user it is a toolkit for X, and indeed, configure
6139 accepts --with-x-toolkit=gtk. */
6140 Fprovide (intern ("x-toolkit"), Qnil);
6b61353c
KH		 6141 Fprovide (intern ("gtk"), Qnil);
6142
6143 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string,
6144 doc: /* Version info for GTK+. */);
6145 {
6146 char gtk_version[40];
6147 g_snprintf (gtk_version, sizeof (gtk_version), "%u.%u.%u",
6148 GTK_MAJOR_VERSION, GTK_MINOR_VERSION, GTK_MICRO_VERSION);
6149 Vgtk_version_string = build_string (gtk_version);
6150 }
6151#endif /* USE_GTK */
6152
333b20bb
GM		 6153 /* X window properties. */
6154 defsubr (&Sx_change_window_property);
6155 defsubr (&Sx_delete_window_property);
6156 defsubr (&Sx_window_property);
6157
2d764c78 6158 defsubr (&Sxw_display_color_p);
d0c9d219 6159 defsubr (&Sx_display_grayscale_p);
2d764c78
EZ		 6160 defsubr (&Sxw_color_defined_p);
6161 defsubr (&Sxw_color_values);
9d317b2c 6162 defsubr (&Sx_server_max_request_size);
41beb8fc
RS		 6163 defsubr (&Sx_server_vendor);
6164 defsubr (&Sx_server_version);
6165 defsubr (&Sx_display_pixel_width);
6166 defsubr (&Sx_display_pixel_height);
6167 defsubr (&Sx_display_mm_width);
6168 defsubr (&Sx_display_mm_height);
6169 defsubr (&Sx_display_screens);
6170 defsubr (&Sx_display_planes);
6171 defsubr (&Sx_display_color_cells);
6172 defsubr (&Sx_display_visual_class);
6173 defsubr (&Sx_display_backing_store);
6174 defsubr (&Sx_display_save_under);
f676886a 6175 defsubr (&Sx_create_frame);
01f1ba30 6176 defsubr (&Sx_open_connection);
08a90d6a
RS		 6177 defsubr (&Sx_close_connection);
6178 defsubr (&Sx_display_list);
01f1ba30 6179 defsubr (&Sx_synchronize);
3decc1e7 6180 defsubr (&Sx_focus_frame);
82bab41c 6181 defsubr (&Sx_backspace_delete_keys_p);
177c0ea7 6182
942ea06d
KH		 6183 /* Setting callback functions for fontset handler. */
6184 get_font_info_func = x_get_font_info;
333b20bb
GM		 6185
6186#if 0 /* This function pointer doesn't seem to be used anywhere.
6187 And the pointer assigned has the wrong type, anyway. */
942ea06d 6188 list_fonts_func = x_list_fonts;
333b20bb 6189#endif
177c0ea7 6190
942ea06d 6191 load_font_func = x_load_font;
bc1958c4 6192 find_ccl_program_func = x_find_ccl_program;
942ea06d
KH		 6193 query_font_func = x_query_font;
6194 set_frame_fontset_func = x_set_font;
5f652afc 6195 get_font_repertory_func = x_get_font_repertory;
942ea06d 6196 check_window_system_func = check_x;
333b20bb 6197
0af913d7
GM		 6198 hourglass_atimer = NULL;
6199 hourglass_shown_p = 0;
333b20bb
GM		 6200
6201 defsubr (&Sx_show_tip);
6202 defsubr (&Sx_hide_tip);
333b20bb 6203 tip_timer = Qnil;
44b5a125
GM		 6204 staticpro (&tip_timer);
6205 tip_frame = Qnil;
6206 staticpro (&tip_frame);
333b20bb 6207
06d62053
GM		 6208 last_show_tip_args = Qnil;
6209 staticpro (&last_show_tip_args);
6210
90f2e16b 6211 defsubr (&Sx_uses_old_gtk_dialog);
29fabd8c 6212#if defined (USE_MOTIF) || defined (USE_GTK)
333b20bb
GM		 6213 defsubr (&Sx_file_dialog);
6214#endif
6215}
6216
01f1ba30 6217#endif /* HAVE_X_WINDOWS */
6b61353c
KH		 6218
6219/* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
6220 (do not change this comment) */
Unnamed repository; edit this file 'description' to name the repository.