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