1 /* Functions for the X window system.
3 Copyright (C) 1989, 1992-2013 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
29 #include "character.h"
31 #include "intervals.h"
32 #include "dispextern.h"
34 #include "blockinput.h"
40 #include "termhooks.h"
45 #include <sys/types.h>
48 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
49 #include "bitmaps/gray.xbm"
51 #include <X11/bitmaps/gray>
54 #include "xsettings.h"
57 #include <X11/extensions/Xrandr.h>
60 #include <X11/extensions/Xinerama.h>
68 #include <X11/Shell.h>
72 #include <X11/Xaw3d/Paned.h>
73 #include <X11/Xaw3d/Label.h>
74 #else /* !HAVE_XAW3D */
75 #include <X11/Xaw/Paned.h>
76 #include <X11/Xaw/Label.h>
77 #endif /* HAVE_XAW3D */
78 #endif /* USE_MOTIF */
81 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
84 #ifdef USG /* Pacify gcc -Wunused-macros. */
92 #include "../lwlib/lwlib.h"
96 #include <Xm/DialogS.h>
97 #include <Xm/FileSB.h>
103 #include "../lwlib/xlwmenu.h"
106 #if !defined (NO_EDITRES)
108 extern void _XEditResCheckMessages (Widget
, XtPointer
, XEvent
*, Boolean
*);
109 #endif /* not defined NO_EDITRES */
111 /* Unique id counter for widgets created by the Lucid Widget Library. */
113 extern LWLIB_ID widget_id_tick
;
117 #endif /* USE_MOTIF */
119 #endif /* USE_X_TOOLKIT */
125 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
127 static Lisp_Object Qsuppress_icon
;
128 static Lisp_Object Qundefined_color
;
129 static Lisp_Object Qcompound_text
, Qcancel_timer
;
130 Lisp_Object Qfont_param
;
133 static ptrdiff_t image_cache_refcount
;
134 static int dpyinfo_refcount
;
137 static struct x_display_info
*x_display_info_for_name (Lisp_Object
);
139 /* Let the user specify an X display with a Lisp object.
140 OBJECT may be nil, a frame or a terminal object.
141 nil stands for the selected frame--or, if that is not an X frame,
142 the first X display on the list. */
144 struct x_display_info
*
145 check_x_display_info (Lisp_Object object
)
147 struct x_display_info
*dpyinfo
= NULL
;
151 struct frame
*sf
= XFRAME (selected_frame
);
153 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
154 dpyinfo
= FRAME_DISPLAY_INFO (sf
);
155 else if (x_display_list
!= 0)
156 dpyinfo
= x_display_list
;
158 error ("X windows are not in use or not initialized");
160 else if (TERMINALP (object
))
162 struct terminal
*t
= get_terminal (object
, 1);
164 if (t
->type
!= output_x_window
)
165 error ("Terminal %d is not an X display", t
->id
);
167 dpyinfo
= t
->display_info
.x
;
169 else if (STRINGP (object
))
170 dpyinfo
= x_display_info_for_name (object
);
173 struct frame
*f
= decode_window_system_frame (object
);
174 dpyinfo
= FRAME_DISPLAY_INFO (f
);
180 /* Store the screen positions of frame F into XPTR and YPTR.
181 These are the positions of the containing window manager window,
182 not Emacs's own window. */
185 x_real_positions (struct frame
*f
, int *xptr
, int *yptr
)
187 int win_x
, win_y
, outer_x
IF_LINT (= 0), outer_y
IF_LINT (= 0);
188 int real_x
= 0, real_y
= 0;
190 Window win
= f
->output_data
.x
->parent_desc
;
192 unsigned long actual_size
, bytes_remaining
;
193 int rc
, actual_format
;
194 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
196 Display
*dpy
= FRAME_X_DISPLAY (f
);
197 unsigned char *tmp_data
= NULL
;
198 Atom target_type
= XA_CARDINAL
;
202 x_catch_errors (dpy
);
204 if (win
== dpyinfo
->root_window
)
205 win
= FRAME_OUTER_WINDOW (f
);
207 /* This loop traverses up the containment tree until we hit the root
208 window. Window managers may intersect many windows between our window
209 and the root window. The window we find just before the root window
210 should be the outer WM window. */
213 Window wm_window
, rootw
;
214 Window
*tmp_children
;
215 unsigned int tmp_nchildren
;
218 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
219 &wm_window
, &tmp_children
, &tmp_nchildren
);
221 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
223 /* Don't free tmp_children if XQueryTree failed. */
227 XFree (tmp_children
);
229 if (wm_window
== rootw
|| had_errors
)
240 /* Get the real coordinates for the WM window upper left corner */
241 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
242 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
244 /* Translate real coordinates to coordinates relative to our
245 window. For our window, the upper left corner is 0, 0.
246 Since the upper left corner of the WM window is outside
247 our window, win_x and win_y will be negative:
249 ------------------ ---> x
251 | ----------------- v y
254 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
256 /* From-window, to-window. */
257 FRAME_DISPLAY_INFO (f
)->root_window
,
260 /* From-position, to-position. */
261 real_x
, real_y
, &win_x
, &win_y
,
266 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
273 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
275 /* From-window, to-window. */
276 FRAME_DISPLAY_INFO (f
)->root_window
,
277 FRAME_OUTER_WINDOW (f
),
279 /* From-position, to-position. */
280 real_x
, real_y
, &outer_x
, &outer_y
,
286 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
290 if (dpyinfo
->root_window
== f
->output_data
.x
->parent_desc
)
292 /* Try _NET_FRAME_EXTENTS if our parent is the root window. */
293 rc
= XGetWindowProperty (dpy
, win
, dpyinfo
->Xatom_net_frame_extents
,
294 0, max_len
, False
, target_type
,
295 &actual_type
, &actual_format
, &actual_size
,
296 &bytes_remaining
, &tmp_data
);
298 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
299 && actual_size
== 4 && actual_format
== 32)
303 long *fe
= (long *)tmp_data
;
305 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
306 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
314 if (tmp_data
) XFree (tmp_data
);
320 if (had_errors
) return;
322 f
->x_pixels_diff
= -win_x
;
323 f
->y_pixels_diff
= -win_y
;
325 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
326 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
335 /* Gamma-correct COLOR on frame F. */
338 gamma_correct (struct frame
*f
, XColor
*color
)
342 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
343 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
344 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
349 /* Decide if color named COLOR_NAME is valid for use on frame F. If
350 so, return the RGB values in COLOR. If ALLOC_P,
351 allocate the color. Value is false if COLOR_NAME is invalid, or
352 no color could be allocated. */
355 x_defined_color (struct frame
*f
, const char *color_name
,
356 XColor
*color
, bool alloc_p
)
359 Display
*dpy
= FRAME_X_DISPLAY (f
);
360 Colormap cmap
= FRAME_X_COLORMAP (f
);
364 success_p
= xg_check_special_colors (f
, color_name
, color
);
367 success_p
= XParseColor (dpy
, cmap
, color_name
, color
) != 0;
368 if (success_p
&& alloc_p
)
369 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
376 /* Return the pixel color value for color COLOR_NAME on frame F. If F
377 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
378 Signal an error if color can't be allocated. */
381 x_decode_color (struct frame
*f
, Lisp_Object color_name
, int mono_color
)
385 CHECK_STRING (color_name
);
387 #if 0 /* Don't do this. It's wrong when we're not using the default
388 colormap, it makes freeing difficult, and it's probably not
389 an important optimization. */
390 if (strcmp (SDATA (color_name
), "black") == 0)
391 return BLACK_PIX_DEFAULT (f
);
392 else if (strcmp (SDATA (color_name
), "white") == 0)
393 return WHITE_PIX_DEFAULT (f
);
396 /* Return MONO_COLOR for monochrome frames. */
397 if (FRAME_DISPLAY_INFO (f
)->n_planes
== 1)
400 /* x_defined_color is responsible for coping with failures
401 by looking for a near-miss. */
402 if (x_defined_color (f
, SSDATA (color_name
), &cdef
, 1))
405 signal_error ("Undefined color", color_name
);
410 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
411 the previous value of that parameter, NEW_VALUE is the new value.
412 See also the comment of wait_for_wm in struct x_output. */
415 x_set_wait_for_wm (struct frame
*f
, Lisp_Object new_value
, Lisp_Object old_value
)
417 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
421 x_set_tool_bar_position (struct frame
*f
,
422 Lisp_Object new_value
,
423 Lisp_Object old_value
)
425 if (! EQ (new_value
, Qleft
) && ! EQ (new_value
, Qright
)
426 && ! EQ (new_value
, Qbottom
) && ! EQ (new_value
, Qtop
))
428 if (EQ (new_value
, old_value
)) return;
431 xg_change_toolbar_position (f
, new_value
);
432 fset_tool_bar_position (f
, new_value
);
438 /* Set icon from FILE for frame F. By using GTK functions the icon
439 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
442 xg_set_icon (struct frame
*f
, Lisp_Object file
)
447 found
= x_find_image_file (file
);
453 char *filename
= SSDATA (found
);
456 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
460 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
462 g_object_unref (pixbuf
);
476 xg_set_icon_from_xpm_data (struct frame
*f
, const char **data
)
478 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data (data
);
483 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
484 g_object_unref (pixbuf
);
490 /* Functions called only from `x_set_frame_param'
491 to set individual parameters.
493 If FRAME_X_WINDOW (f) is 0,
494 the frame is being created and its X-window does not exist yet.
495 In that case, just record the parameter's new value
496 in the standard place; do not attempt to change the window. */
499 x_set_foreground_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
501 struct x_output
*x
= f
->output_data
.x
;
502 unsigned long fg
, old_fg
;
504 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
505 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
506 FRAME_FOREGROUND_PIXEL (f
) = fg
;
508 if (FRAME_X_WINDOW (f
) != 0)
510 Display
*dpy
= FRAME_X_DISPLAY (f
);
513 XSetForeground (dpy
, x
->normal_gc
, fg
);
514 XSetBackground (dpy
, x
->reverse_gc
, fg
);
516 if (x
->cursor_pixel
== old_fg
)
518 unload_color (f
, x
->cursor_pixel
);
519 x
->cursor_pixel
= x_copy_color (f
, fg
);
520 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
525 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
527 if (FRAME_VISIBLE_P (f
))
531 unload_color (f
, old_fg
);
535 x_set_background_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
537 struct x_output
*x
= f
->output_data
.x
;
540 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
541 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
542 FRAME_BACKGROUND_PIXEL (f
) = bg
;
544 if (FRAME_X_WINDOW (f
) != 0)
546 Display
*dpy
= FRAME_X_DISPLAY (f
);
549 XSetBackground (dpy
, x
->normal_gc
, bg
);
550 XSetForeground (dpy
, x
->reverse_gc
, bg
);
551 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
552 XSetForeground (dpy
, x
->cursor_gc
, bg
);
555 xg_set_background_color (f
, bg
);
558 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
559 toolkit scroll bars. */
562 for (bar
= FRAME_SCROLL_BARS (f
);
564 bar
= XSCROLL_BAR (bar
)->next
)
566 Window window
= XSCROLL_BAR (bar
)->x_window
;
567 XSetWindowBackground (dpy
, window
, bg
);
570 #endif /* USE_TOOLKIT_SCROLL_BARS */
573 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
575 if (FRAME_VISIBLE_P (f
))
581 make_invisible_cursor (struct frame
*f
)
583 Display
*dpy
= FRAME_X_DISPLAY (f
);
584 static char const no_data
[] = { 0 };
589 x_catch_errors (dpy
);
590 pix
= XCreateBitmapFromData (dpy
, FRAME_DISPLAY_INFO (f
)->root_window
,
592 if (! x_had_errors_p (dpy
) && pix
!= None
)
596 col
.red
= col
.green
= col
.blue
= 0;
597 col
.flags
= DoRed
| DoGreen
| DoBlue
;
598 pixc
= XCreatePixmapCursor (dpy
, pix
, pix
, &col
, &col
, 0, 0);
599 if (! x_had_errors_p (dpy
) && pixc
!= None
)
601 XFreePixmap (dpy
, pix
);
610 x_set_mouse_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
612 struct x_output
*x
= f
->output_data
.x
;
613 Display
*dpy
= FRAME_X_DISPLAY (f
);
614 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
615 Cursor hourglass_cursor
, horizontal_drag_cursor
;
616 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
617 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
619 /* Don't let pointers be invisible. */
620 if (mask_color
== pixel
)
622 x_free_colors (f
, &pixel
, 1);
623 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
626 unload_color (f
, x
->mouse_pixel
);
627 x
->mouse_pixel
= pixel
;
631 /* It's not okay to crash if the user selects a screwy cursor. */
632 x_catch_errors (dpy
);
634 if (!NILP (Vx_pointer_shape
))
636 CHECK_NUMBER (Vx_pointer_shape
);
637 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
640 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
641 x_check_errors (dpy
, "bad text pointer cursor: %s");
643 if (!NILP (Vx_nontext_pointer_shape
))
645 CHECK_NUMBER (Vx_nontext_pointer_shape
);
647 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
650 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
651 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
653 if (!NILP (Vx_hourglass_pointer_shape
))
655 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
657 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
660 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
661 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
663 if (!NILP (Vx_mode_pointer_shape
))
665 CHECK_NUMBER (Vx_mode_pointer_shape
);
666 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
669 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
670 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
672 if (!NILP (Vx_sensitive_text_pointer_shape
))
674 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
676 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
679 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
681 if (!NILP (Vx_window_horizontal_drag_shape
))
683 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
684 horizontal_drag_cursor
685 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
688 horizontal_drag_cursor
689 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
691 /* Check and report errors with the above calls. */
692 x_check_errors (dpy
, "can't set cursor shape: %s");
696 XColor fore_color
, back_color
;
698 fore_color
.pixel
= x
->mouse_pixel
;
699 x_query_color (f
, &fore_color
);
700 back_color
.pixel
= mask_color
;
701 x_query_color (f
, &back_color
);
703 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
704 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
705 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
706 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
707 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
708 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
711 if (FRAME_X_WINDOW (f
) != 0)
712 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
713 f
->output_data
.x
->current_cursor
= cursor
);
715 if (FRAME_DISPLAY_INFO (f
)->invisible_cursor
== 0)
716 FRAME_DISPLAY_INFO (f
)->invisible_cursor
= make_invisible_cursor (f
);
718 if (cursor
!= x
->text_cursor
719 && x
->text_cursor
!= 0)
720 XFreeCursor (dpy
, x
->text_cursor
);
721 x
->text_cursor
= cursor
;
723 if (nontext_cursor
!= x
->nontext_cursor
724 && x
->nontext_cursor
!= 0)
725 XFreeCursor (dpy
, x
->nontext_cursor
);
726 x
->nontext_cursor
= nontext_cursor
;
728 if (hourglass_cursor
!= x
->hourglass_cursor
729 && x
->hourglass_cursor
!= 0)
730 XFreeCursor (dpy
, x
->hourglass_cursor
);
731 x
->hourglass_cursor
= hourglass_cursor
;
733 if (mode_cursor
!= x
->modeline_cursor
734 && x
->modeline_cursor
!= 0)
735 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
736 x
->modeline_cursor
= mode_cursor
;
738 if (hand_cursor
!= x
->hand_cursor
739 && x
->hand_cursor
!= 0)
740 XFreeCursor (dpy
, x
->hand_cursor
);
741 x
->hand_cursor
= hand_cursor
;
743 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
744 && x
->horizontal_drag_cursor
!= 0)
745 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
746 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
751 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
755 x_set_cursor_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
757 unsigned long fore_pixel
, pixel
;
758 bool fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
759 struct x_output
*x
= f
->output_data
.x
;
761 if (!NILP (Vx_cursor_fore_pixel
))
763 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
764 WHITE_PIX_DEFAULT (f
));
765 fore_pixel_allocated_p
= 1;
768 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
770 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
771 pixel_allocated_p
= 1;
773 /* Make sure that the cursor color differs from the background color. */
774 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
776 if (pixel_allocated_p
)
778 x_free_colors (f
, &pixel
, 1);
779 pixel_allocated_p
= 0;
782 pixel
= x
->mouse_pixel
;
783 if (pixel
== fore_pixel
)
785 if (fore_pixel_allocated_p
)
787 x_free_colors (f
, &fore_pixel
, 1);
788 fore_pixel_allocated_p
= 0;
790 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
794 unload_color (f
, x
->cursor_foreground_pixel
);
795 if (!fore_pixel_allocated_p
)
796 fore_pixel
= x_copy_color (f
, fore_pixel
);
797 x
->cursor_foreground_pixel
= fore_pixel
;
799 unload_color (f
, x
->cursor_pixel
);
800 if (!pixel_allocated_p
)
801 pixel
= x_copy_color (f
, pixel
);
802 x
->cursor_pixel
= pixel
;
804 if (FRAME_X_WINDOW (f
) != 0)
807 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
808 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
811 if (FRAME_VISIBLE_P (f
))
813 x_update_cursor (f
, 0);
814 x_update_cursor (f
, 1);
818 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
821 /* Set the border-color of frame F to pixel value PIX.
822 Note that this does not fully take effect if done before
823 F has an x-window. */
826 x_set_border_pixel (struct frame
*f
, int pix
)
828 unload_color (f
, f
->output_data
.x
->border_pixel
);
829 f
->output_data
.x
->border_pixel
= pix
;
831 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
834 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), pix
);
837 if (FRAME_VISIBLE_P (f
))
842 /* Set the border-color of frame F to value described by ARG.
843 ARG can be a string naming a color.
844 The border-color is used for the border that is drawn by the X server.
845 Note that this does not fully take effect if done before
846 F has an x-window; it must be redone when the window is created.
848 Note: this is done in two routines because of the way X10 works.
850 Note: under X11, this is normally the province of the window manager,
851 and so emacs's border colors may be overridden. */
854 x_set_border_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
859 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
860 x_set_border_pixel (f
, pix
);
861 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
866 x_set_cursor_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
868 set_frame_cursor_types (f
, arg
);
872 x_set_icon_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
878 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
881 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
886 result
= x_text_icon (f
,
887 SSDATA ((!NILP (f
->icon_name
)
891 result
= x_bitmap_icon (f
, arg
);
896 error ("No icon window available");
899 XFlush (FRAME_X_DISPLAY (f
));
904 x_set_icon_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
910 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
913 else if (!NILP (arg
) || NILP (oldval
))
916 fset_icon_name (f
, arg
);
918 if (f
->output_data
.x
->icon_bitmap
!= 0)
923 result
= x_text_icon (f
,
924 SSDATA ((!NILP (f
->icon_name
)
933 error ("No icon window available");
936 XFlush (FRAME_X_DISPLAY (f
));
942 x_set_menu_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
945 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
946 int olines
= FRAME_MENU_BAR_LINES (f
);
949 /* Right now, menu bars don't work properly in minibuf-only frames;
950 most of the commands try to apply themselves to the minibuffer
951 frame itself, and get an error because you can't switch buffers
952 in or split the minibuffer window. */
953 if (FRAME_MINIBUF_ONLY_P (f
))
956 if (TYPE_RANGED_INTEGERP (int, value
))
957 nlines
= XINT (value
);
961 /* Make sure we redisplay all windows in this frame. */
962 windows_or_buffers_changed
= 59;
964 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
965 FRAME_MENU_BAR_LINES (f
) = 0;
968 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
969 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
970 /* Make sure next redisplay shows the menu bar. */
971 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= 1;
975 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
976 free_frame_menubar (f
);
977 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
979 f
->output_data
.x
->menubar_widget
= 0;
981 #else /* not USE_X_TOOLKIT && not USE_GTK */
982 FRAME_MENU_BAR_LINES (f
) = nlines
;
983 resize_frame_windows (f
, FRAME_LINES (f
), 0);
985 /* If the menu bar height gets changed, the internal border below
986 the top margin has to be cleared. Also, if the menu bar gets
987 larger, the area for the added lines has to be cleared except for
988 the first menu bar line that is to be drawn later. */
989 if (nlines
!= olines
)
991 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
992 int width
= FRAME_PIXEL_WIDTH (f
);
995 /* height can be zero here. */
996 if (height
> 0 && width
> 0)
998 y
= FRAME_TOP_MARGIN_HEIGHT (f
);
1001 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1002 0, y
, width
, height
);
1006 if (nlines
> 1 && nlines
> olines
)
1008 y
= (olines
== 0 ? 1 : olines
) * FRAME_LINE_HEIGHT (f
);
1009 height
= nlines
* FRAME_LINE_HEIGHT (f
) - y
;
1012 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1013 0, y
, width
, height
);
1017 if (nlines
== 0 && WINDOWP (f
->menu_bar_window
))
1018 clear_glyph_matrix (XWINDOW (f
->menu_bar_window
)->current_matrix
);
1020 #endif /* not USE_X_TOOLKIT && not USE_GTK */
1021 adjust_frame_glyphs (f
);
1022 run_window_configuration_change_hook (f
);
1026 /* Set the number of lines used for the tool bar of frame F to VALUE.
1027 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1028 is the old number of tool bar lines. This function changes the
1029 height of all windows on frame F to match the new tool bar height.
1030 The frame's height doesn't change. */
1033 x_set_tool_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1036 #if ! defined (USE_GTK)
1037 int delta
, root_height
;
1038 Lisp_Object root_window
;
1041 /* Treat tool bars like menu bars. */
1042 if (FRAME_MINIBUF_ONLY_P (f
))
1045 /* Use VALUE only if an int >= 0. */
1046 if (RANGED_INTEGERP (0, value
, INT_MAX
))
1047 nlines
= XFASTINT (value
);
1053 FRAME_TOOL_BAR_LINES (f
) = 0;
1056 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1057 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1058 /* Make sure next redisplay shows the tool bar. */
1059 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= 1;
1060 update_frame_tool_bar (f
);
1064 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1065 free_frame_tool_bar (f
);
1066 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1069 #else /* !USE_GTK */
1071 /* Make sure we redisplay all windows in this frame. */
1072 windows_or_buffers_changed
= 60;
1074 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1076 /* Don't resize the tool-bar to more than we have room for. */
1077 root_window
= FRAME_ROOT_WINDOW (f
);
1078 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1079 if (root_height
- delta
< 1)
1081 delta
= root_height
- 1;
1082 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1085 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1086 resize_frame_windows (f
, FRAME_LINES (f
), 0);
1087 adjust_frame_glyphs (f
);
1089 /* We also have to make sure that the internal border at the top of
1090 the frame, below the menu bar or tool bar, is redrawn when the
1091 tool bar disappears. This is so because the internal border is
1092 below the tool bar if one is displayed, but is below the menu bar
1093 if there isn't a tool bar. The tool bar draws into the area
1094 below the menu bar. */
1095 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1098 clear_current_matrices (f
);
1101 /* If the tool bar gets smaller, the internal border below it
1102 has to be cleared. It was formerly part of the display
1103 of the larger tool bar, and updating windows won't clear it. */
1106 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1107 int width
= FRAME_PIXEL_WIDTH (f
);
1108 int y
= (FRAME_MENU_BAR_LINES (f
) + nlines
) * FRAME_LINE_HEIGHT (f
);
1110 /* height can be zero here. */
1111 if (height
> 0 && width
> 0)
1114 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1115 0, y
, width
, height
);
1119 if (WINDOWP (f
->tool_bar_window
))
1120 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1123 run_window_configuration_change_hook (f
);
1124 #endif /* USE_GTK */
1128 /* Set the foreground color for scroll bars on frame F to VALUE.
1129 VALUE should be a string, a color name. If it isn't a string or
1130 isn't a valid color name, do nothing. OLDVAL is the old value of
1131 the frame parameter. */
1134 x_set_scroll_bar_foreground (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1136 unsigned long pixel
;
1138 if (STRINGP (value
))
1139 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1143 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1144 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1146 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1147 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1149 /* Remove all scroll bars because they have wrong colors. */
1150 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1151 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1152 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1153 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1155 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1161 /* Set the background color for scroll bars on frame F to VALUE VALUE
1162 should be a string, a color name. If it isn't a string or isn't a
1163 valid color name, do nothing. OLDVAL is the old value of the frame
1167 x_set_scroll_bar_background (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1169 unsigned long pixel
;
1171 if (STRINGP (value
))
1172 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1176 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1177 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1179 #ifdef USE_TOOLKIT_SCROLL_BARS
1180 /* Scrollbar shadow colors. */
1181 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1183 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1184 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1186 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1188 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1189 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1191 #endif /* USE_TOOLKIT_SCROLL_BARS */
1193 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1194 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1196 /* Remove all scroll bars because they have wrong colors. */
1197 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1198 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1199 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1200 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1202 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1208 /* Encode Lisp string STRING as a text in a format appropriate for
1209 XICCC (X Inter Client Communication Conventions).
1211 This can call Lisp code, so callers must GCPRO.
1213 If STRING contains only ASCII characters, do no conversion and
1214 return the string data of STRING. Otherwise, encode the text by
1215 CODING_SYSTEM, and return a newly allocated memory area which
1216 should be freed by `xfree' by a caller.
1218 SELECTIONP non-zero means the string is being encoded for an X
1219 selection, so it is safe to run pre-write conversions (which
1222 Store the byte length of resulting text in *TEXT_BYTES.
1224 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1225 which means that the `encoding' of the result can be `STRING'.
1226 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1227 the result should be `COMPOUND_TEXT'. */
1229 static unsigned char *
1230 x_encode_text (Lisp_Object string
, Lisp_Object coding_system
, int selectionp
,
1231 ptrdiff_t *text_bytes
, int *stringp
, int *freep
)
1233 int result
= string_xstring_p (string
);
1234 struct coding_system coding
;
1238 /* No multibyte character in OBJ. We need not encode it. */
1239 *text_bytes
= SBYTES (string
);
1242 return SDATA (string
);
1245 setup_coding_system (coding_system
, &coding
);
1246 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1247 /* We suppress producing escape sequences for composition. */
1248 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1249 coding
.destination
= xnmalloc (SCHARS (string
), 2);
1250 coding
.dst_bytes
= SCHARS (string
) * 2;
1251 encode_coding_object (&coding
, string
, 0, 0,
1252 SCHARS (string
), SBYTES (string
), Qnil
);
1253 *text_bytes
= coding
.produced
;
1254 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1256 return coding
.destination
;
1260 /* Set the WM name to NAME for frame F. Also set the icon name.
1261 If the frame already has an icon name, use that, otherwise set the
1262 icon name to NAME. */
1265 x_set_name_internal (struct frame
*f
, Lisp_Object name
)
1267 if (FRAME_X_WINDOW (f
))
1271 XTextProperty text
, icon
;
1274 int do_free_icon_value
= 0, do_free_text_value
= 0;
1275 Lisp_Object coding_system
;
1276 Lisp_Object encoded_name
;
1277 Lisp_Object encoded_icon_name
;
1278 struct gcpro gcpro1
;
1280 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1281 we use it before x_encode_text that may return string data. */
1283 encoded_name
= ENCODE_UTF_8 (name
);
1286 coding_system
= Qcompound_text
;
1287 /* Note: Encoding strategy
1289 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1290 text.encoding. But, there are non-internationalized window
1291 managers which don't support that encoding. So, if NAME
1292 contains only ASCII and 8859-1 characters, encode it by
1293 iso-latin-1, and use "STRING" in text.encoding hoping that
1294 such window managers at least analyze this format correctly,
1295 i.e. treat 8-bit bytes as 8859-1 characters.
1297 We may also be able to use "UTF8_STRING" in text.encoding
1298 in the future which can encode all Unicode characters.
1299 But, for the moment, there's no way to know that the
1300 current window manager supports it or not.
1302 Either way, we also set the _NET_WM_NAME and _NET_WM_ICON_NAME
1303 properties. Per the EWMH specification, those two properties
1304 are always UTF8_STRING. This matches what gtk_window_set_title()
1305 does in the USE_GTK case. */
1306 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1307 &do_free_text_value
);
1308 text
.encoding
= (stringp
? XA_STRING
1309 : FRAME_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1311 text
.nitems
= bytes
;
1312 if (text
.nitems
!= bytes
)
1313 error ("Window name too large");
1315 if (!STRINGP (f
->icon_name
))
1318 encoded_icon_name
= encoded_name
;
1322 /* See the above comment "Note: Encoding strategy". */
1323 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1324 &bytes
, &stringp
, &do_free_icon_value
);
1325 icon
.encoding
= (stringp
? XA_STRING
1326 : FRAME_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1328 icon
.nitems
= bytes
;
1329 if (icon
.nitems
!= bytes
)
1330 error ("Icon name too large");
1332 encoded_icon_name
= ENCODE_UTF_8 (f
->icon_name
);
1336 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1337 SSDATA (encoded_name
));
1338 #else /* not USE_GTK */
1339 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1340 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1341 FRAME_DISPLAY_INFO (f
)->Xatom_net_wm_name
,
1342 FRAME_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1344 SDATA (encoded_name
),
1345 SBYTES (encoded_name
));
1346 #endif /* not USE_GTK */
1348 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1349 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1350 FRAME_DISPLAY_INFO (f
)->Xatom_net_wm_icon_name
,
1351 FRAME_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1353 SDATA (encoded_icon_name
),
1354 SBYTES (encoded_icon_name
));
1356 if (do_free_icon_value
)
1358 if (do_free_text_value
)
1365 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1368 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1369 name; if NAME is a string, set F's name to NAME and set
1370 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1372 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1373 suggesting a new name, which lisp code should override; if
1374 F->explicit_name is set, ignore the new name; otherwise, set it. */
1377 x_set_name (struct frame
*f
, Lisp_Object name
, int explicit)
1379 /* Make sure that requests from lisp code override requests from
1380 Emacs redisplay code. */
1383 /* If we're switching from explicit to implicit, we had better
1384 update the mode lines and thereby update the title. */
1385 if (f
->explicit_name
&& NILP (name
))
1386 update_mode_lines
= 37;
1388 f
->explicit_name
= ! NILP (name
);
1390 else if (f
->explicit_name
)
1393 /* If NAME is nil, set the name to the x_id_name. */
1396 /* Check for no change needed in this very common case
1397 before we do any consing. */
1398 if (!strcmp (FRAME_DISPLAY_INFO (f
)->x_id_name
,
1401 name
= build_string (FRAME_DISPLAY_INFO (f
)->x_id_name
);
1404 CHECK_STRING (name
);
1406 /* Don't change the name if it's already NAME. */
1407 if (! NILP (Fstring_equal (name
, f
->name
)))
1410 fset_name (f
, name
);
1412 /* For setting the frame title, the title parameter should override
1413 the name parameter. */
1414 if (! NILP (f
->title
))
1417 x_set_name_internal (f
, name
);
1420 /* This function should be called when the user's lisp code has
1421 specified a name for the frame; the name will override any set by the
1424 x_explicitly_set_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1426 x_set_name (f
, arg
, 1);
1429 /* This function should be called by Emacs redisplay code to set the
1430 name; names set this way will never override names set by the user's
1433 x_implicitly_set_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1435 x_set_name (f
, arg
, 0);
1438 /* Change the title of frame F to NAME.
1439 If NAME is nil, use the frame name as the title. */
1442 x_set_title (struct frame
*f
, Lisp_Object name
, Lisp_Object old_name
)
1444 /* Don't change the title if it's already NAME. */
1445 if (EQ (name
, f
->title
))
1448 update_mode_lines
= 38;
1450 fset_title (f
, name
);
1455 CHECK_STRING (name
);
1457 x_set_name_internal (f
, name
);
1461 x_set_scroll_bar_default_width (struct frame
*f
)
1463 int wid
= FRAME_COLUMN_WIDTH (f
);
1464 #ifdef USE_TOOLKIT_SCROLL_BARS
1466 int minw
= xg_get_default_scrollbar_width ();
1470 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1471 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (minw
+ wid
- 1) / wid
;
1472 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = minw
;
1474 /* Make the actual width at least 14 pixels and a multiple of a
1476 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1478 /* Use all of that space (aside from required margins) for the
1480 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1485 /* Record in frame F the specified or default value according to ALIST
1486 of the parameter named PROP (a Lisp symbol). If no value is
1487 specified for PROP, look for an X default for XPROP on the frame
1488 named NAME. If that is not found either, use the value DEFLT. */
1491 x_default_scroll_bar_color_parameter (struct frame
*f
,
1492 Lisp_Object alist
, Lisp_Object prop
,
1493 const char *xprop
, const char *xclass
,
1496 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
1499 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1500 if (EQ (tem
, Qunbound
))
1502 #ifdef USE_TOOLKIT_SCROLL_BARS
1504 /* See if an X resource for the scroll bar color has been
1506 tem
= display_x_get_resource (dpyinfo
,
1507 build_string (foreground_p
1510 empty_unibyte_string
,
1511 build_string ("verticalScrollBar"),
1512 empty_unibyte_string
);
1515 /* If nothing has been specified, scroll bars will use a
1516 toolkit-dependent default. Because these defaults are
1517 difficult to get at without actually creating a scroll
1518 bar, use nil to indicate that no color has been
1523 #else /* not USE_TOOLKIT_SCROLL_BARS */
1527 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1530 x_set_frame_parameters (f
, list1 (Fcons (prop
, tem
)));
1537 #ifdef USE_X_TOOLKIT
1539 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1540 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1541 already be present because of the toolkit (Motif adds some of them,
1542 for example, but Xt doesn't). */
1545 hack_wm_protocols (struct frame
*f
, Widget widget
)
1547 Display
*dpy
= XtDisplay (widget
);
1548 Window w
= XtWindow (widget
);
1549 int need_delete
= 1;
1556 unsigned char *catoms
;
1558 unsigned long nitems
= 0;
1559 unsigned long bytes_after
;
1561 if ((XGetWindowProperty (dpy
, w
,
1562 FRAME_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1563 (long)0, (long)100, False
, XA_ATOM
,
1564 &type
, &format
, &nitems
, &bytes_after
,
1567 && format
== 32 && type
== XA_ATOM
)
1569 Atom
*atoms
= (Atom
*) catoms
;
1574 == FRAME_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1576 else if (atoms
[nitems
]
1577 == FRAME_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1579 else if (atoms
[nitems
]
1580 == FRAME_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1591 props
[count
++] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1593 props
[count
++] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1595 props
[count
++] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1597 XChangeProperty (dpy
, w
, FRAME_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1598 XA_ATOM
, 32, PropModeAppend
,
1599 (unsigned char *) props
, count
);
1607 /* Support routines for XIC (X Input Context). */
1611 static XFontSet
xic_create_xfontset (struct frame
*);
1612 static XIMStyle
best_xim_style (XIMStyles
*, XIMStyles
*);
1615 /* Supported XIM styles, ordered by preference. */
1617 static XIMStyle supported_xim_styles
[] =
1619 XIMPreeditPosition
| XIMStatusArea
,
1620 XIMPreeditPosition
| XIMStatusNothing
,
1621 XIMPreeditPosition
| XIMStatusNone
,
1622 XIMPreeditNothing
| XIMStatusArea
,
1623 XIMPreeditNothing
| XIMStatusNothing
,
1624 XIMPreeditNothing
| XIMStatusNone
,
1625 XIMPreeditNone
| XIMStatusArea
,
1626 XIMPreeditNone
| XIMStatusNothing
,
1627 XIMPreeditNone
| XIMStatusNone
,
1632 #if defined HAVE_X_WINDOWS && defined USE_X_TOOLKIT
1633 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1635 static const char xic_default_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1637 /* Create an Xt fontset spec from the name of a base font.
1638 If `motif' is True use the Motif syntax. */
1640 xic_create_fontsetname (const char *base_fontname
, int motif
)
1642 const char *sep
= motif
? ";" : ",";
1645 /* Make a fontset name from the base font name. */
1646 if (xic_default_fontset
== base_fontname
)
1648 /* There is no base font name, use the default. */
1649 fontsetname
= xmalloc (strlen (base_fontname
) + 2);
1650 strcpy (fontsetname
, base_fontname
);
1654 /* Make a fontset name from the base font name.
1655 The font set will be made of the following elements:
1657 - the base font where the charset spec is replaced by -*-*.
1658 - the same but with the family also replaced with -*-*-. */
1659 const char *p
= base_fontname
;
1662 for (i
= 0; *p
; p
++)
1666 /* As the font name doesn't conform to XLFD, we can't
1667 modify it to generalize it to allcs and allfamilies.
1668 Use the specified font plus the default. */
1669 fontsetname
= xmalloc (strlen (base_fontname
)
1670 + strlen (xic_default_fontset
) + 3);
1671 strcpy (fontsetname
, base_fontname
);
1672 strcat (fontsetname
, sep
);
1673 strcat (fontsetname
, xic_default_fontset
);
1678 const char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1679 char *font_allcs
= NULL
;
1680 char *font_allfamilies
= NULL
;
1681 char *font_all
= NULL
;
1682 const char *allcs
= "*-*-*-*-*-*-*";
1683 const char *allfamilies
= "-*-*-";
1684 const char *all
= "*-*-*-*-";
1687 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
1700 /* If base_fontname specifies ADSTYLE, make it a
1704 ptrdiff_t diff
= (p2
- p3
) - 2;
1706 base
= alloca (strlen (base_fontname
) + 1);
1707 memcpy (base
, base_fontname
, p3
- base_fontname
);
1708 base
[p3
- base_fontname
] = '*';
1709 base
[(p3
- base_fontname
) + 1] = '-';
1710 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
1711 p
= base
+ (p
- base_fontname
) - diff
;
1712 p1
= base
+ (p1
- base_fontname
);
1713 p2
= base
+ (p2
- base_fontname
) - diff
;
1714 base_fontname
= base
;
1717 /* Build the font spec that matches all charsets. */
1718 len
= p
- base_fontname
+ strlen (allcs
) + 1;
1719 font_allcs
= alloca (len
);
1720 memcpy (font_allcs
, base_fontname
, p
- base_fontname
);
1721 strcat (font_allcs
, allcs
);
1723 /* Build the font spec that matches all families and
1725 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
1726 font_allfamilies
= alloca (len
);
1727 strcpy (font_allfamilies
, allfamilies
);
1728 memcpy (font_allfamilies
+ strlen (allfamilies
), p1
, p
- p1
);
1729 strcat (font_allfamilies
, allcs
);
1731 /* Build the font spec that matches all. */
1732 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
1733 font_all
= alloca (len
);
1734 strcpy (font_all
, allfamilies
);
1735 strcat (font_all
, all
);
1736 memcpy (font_all
+ strlen (all
) + strlen (allfamilies
), p2
, p
- p2
);
1737 strcat (font_all
, allcs
);
1739 /* Build the actual font set name. */
1740 len
= strlen (base_fontname
) + strlen (font_allcs
)
1741 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
1742 fontsetname
= xmalloc (len
);
1743 strcpy (fontsetname
, base_fontname
);
1744 strcat (fontsetname
, sep
);
1745 strcat (fontsetname
, font_allcs
);
1746 strcat (fontsetname
, sep
);
1747 strcat (fontsetname
, font_allfamilies
);
1748 strcat (fontsetname
, sep
);
1749 strcat (fontsetname
, font_all
);
1753 strcat (fontsetname
, ":");
1756 #endif /* HAVE_X_WINDOWS && USE_X_TOOLKIT */
1758 #ifdef DEBUG_XIC_FONTSET
1760 print_fontset_result (XFontSet xfs
, char *name
, char **missing_list
,
1764 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
1767 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
1768 while (missing_count
-- > 0)
1770 fprintf (stderr
, " missing: %s\n", *missing_list
);
1779 xic_create_xfontset (struct frame
*f
)
1781 XFontSet xfs
= NULL
;
1782 struct font
*font
= FRAME_FONT (f
);
1783 int pixel_size
= font
->pixel_size
;
1784 Lisp_Object rest
, frame
;
1786 /* See if there is another frame already using same fontset. */
1787 FOR_EACH_FRAME (rest
, frame
)
1789 struct frame
*cf
= XFRAME (frame
);
1791 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
1792 && FRAME_DISPLAY_INFO (cf
) == FRAME_DISPLAY_INFO (f
)
1794 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
1796 xfs
= FRAME_XIC_FONTSET (cf
);
1804 char **missing_list
;
1807 const char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
1809 sprintf (buf
, xlfd_format
, pixel_size
);
1810 missing_list
= NULL
;
1811 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
1812 &missing_list
, &missing_count
, &def_string
);
1813 #ifdef DEBUG_XIC_FONTSET
1814 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
1817 XFreeStringList (missing_list
);
1820 /* List of pixel sizes most likely available. Find one that
1821 is closest to pixel_size. */
1822 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
1823 int *smaller
, *larger
;
1825 for (smaller
= sizes
; smaller
[1]; smaller
++)
1826 if (smaller
[1] >= pixel_size
)
1828 larger
= smaller
+ 1;
1829 if (*larger
== pixel_size
)
1831 while (*smaller
|| *larger
)
1836 this_size
= *smaller
--;
1837 else if (! *smaller
)
1838 this_size
= *larger
++;
1839 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
1840 this_size
= *smaller
--;
1842 this_size
= *larger
++;
1843 sprintf (buf
, xlfd_format
, this_size
);
1844 missing_list
= NULL
;
1845 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
1846 &missing_list
, &missing_count
, &def_string
);
1847 #ifdef DEBUG_XIC_FONTSET
1848 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
1851 XFreeStringList (missing_list
);
1858 const char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
1860 missing_list
= NULL
;
1861 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
1862 &missing_list
, &missing_count
, &def_string
);
1863 #ifdef DEBUG_XIC_FONTSET
1864 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
1867 XFreeStringList (missing_list
);
1875 /* Free the X fontset of frame F if it is the last frame using it. */
1878 xic_free_xfontset (struct frame
*f
)
1880 Lisp_Object rest
, frame
;
1883 if (!FRAME_XIC_FONTSET (f
))
1886 /* See if there is another frame sharing the same fontset. */
1887 FOR_EACH_FRAME (rest
, frame
)
1889 struct frame
*cf
= XFRAME (frame
);
1890 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
1891 && FRAME_DISPLAY_INFO (cf
) == FRAME_DISPLAY_INFO (f
)
1892 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
1900 /* The fontset is not used anymore. It is safe to free it. */
1901 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
1903 FRAME_XIC_FONTSET (f
) = NULL
;
1907 /* Value is the best input style, given user preferences USER (already
1908 checked to be supported by Emacs), and styles supported by the
1909 input method XIM. */
1912 best_xim_style (XIMStyles
*user
, XIMStyles
*xim
)
1916 for (i
= 0; i
< user
->count_styles
; ++i
)
1917 for (j
= 0; j
< xim
->count_styles
; ++j
)
1918 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
1919 return user
->supported_styles
[i
];
1921 /* Return the default style. */
1922 return XIMPreeditNothing
| XIMStatusNothing
;
1925 /* Create XIC for frame F. */
1927 static XIMStyle xic_style
;
1930 create_frame_xic (struct frame
*f
)
1934 XFontSet xfs
= NULL
;
1939 /* Create X fontset. */
1940 xfs
= xic_create_xfontset (f
);
1941 xim
= FRAME_X_XIM (f
);
1946 XVaNestedList preedit_attr
;
1947 XVaNestedList status_attr
;
1949 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
1950 spot
.x
= 0; spot
.y
= 1;
1952 /* Determine XIC style. */
1955 XIMStyles supported_list
;
1956 supported_list
.count_styles
= (sizeof supported_xim_styles
1957 / sizeof supported_xim_styles
[0]);
1958 supported_list
.supported_styles
= supported_xim_styles
;
1959 xic_style
= best_xim_style (&supported_list
,
1960 FRAME_X_XIM_STYLES (f
));
1963 preedit_attr
= XVaCreateNestedList (0,
1966 FRAME_FOREGROUND_PIXEL (f
),
1968 FRAME_BACKGROUND_PIXEL (f
),
1969 (xic_style
& XIMPreeditPosition
1974 status_attr
= XVaCreateNestedList (0,
1980 FRAME_FOREGROUND_PIXEL (f
),
1982 FRAME_BACKGROUND_PIXEL (f
),
1985 xic
= XCreateIC (xim
,
1986 XNInputStyle
, xic_style
,
1987 XNClientWindow
, FRAME_X_WINDOW (f
),
1988 XNFocusWindow
, FRAME_X_WINDOW (f
),
1989 XNStatusAttributes
, status_attr
,
1990 XNPreeditAttributes
, preedit_attr
,
1992 XFree (preedit_attr
);
1993 XFree (status_attr
);
1996 FRAME_XIC (f
) = xic
;
1997 FRAME_XIC_STYLE (f
) = xic_style
;
1998 FRAME_XIC_FONTSET (f
) = xfs
;
2002 /* Destroy XIC and free XIC fontset of frame F, if any. */
2005 free_frame_xic (struct frame
*f
)
2007 if (FRAME_XIC (f
) == NULL
)
2010 XDestroyIC (FRAME_XIC (f
));
2011 xic_free_xfontset (f
);
2013 FRAME_XIC (f
) = NULL
;
2017 /* Place preedit area for XIC of window W's frame to specified
2018 pixel position X/Y. X and Y are relative to window W. */
2021 xic_set_preeditarea (struct window
*w
, int x
, int y
)
2023 struct frame
*f
= XFRAME (w
->frame
);
2027 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2028 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2029 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2030 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2035 /* Place status area for XIC in bottom right corner of frame F.. */
2038 xic_set_statusarea (struct frame
*f
)
2040 XIC xic
= FRAME_XIC (f
);
2045 /* Negotiate geometry of status area. If input method has existing
2046 status area, use its current size. */
2047 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2048 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2049 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2052 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2053 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2056 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2058 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2059 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2063 area
.width
= needed
->width
;
2064 area
.height
= needed
->height
;
2065 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2066 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2067 - FRAME_MENUBAR_HEIGHT (f
)
2068 - FRAME_TOOLBAR_TOP_HEIGHT (f
)
2069 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2072 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2073 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2078 /* Set X fontset for XIC of frame F, using base font name
2079 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2082 xic_set_xfontset (struct frame
*f
, const char *base_fontname
)
2087 xic_free_xfontset (f
);
2089 xfs
= xic_create_xfontset (f
);
2091 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2092 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2093 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2094 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2095 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2098 FRAME_XIC_FONTSET (f
) = xfs
;
2101 #endif /* HAVE_X_I18N */
2105 #ifdef USE_X_TOOLKIT
2107 /* Create and set up the X widget for frame F. */
2110 x_window (struct frame
*f
, long window_prompting
, int minibuffer_only
)
2112 XClassHint class_hints
;
2113 XSetWindowAttributes attributes
;
2114 unsigned long attribute_mask
;
2115 Widget shell_widget
;
2117 Widget frame_widget
;
2123 /* Use the resource name as the top-level widget name
2124 for looking up resources. Make a non-Lisp copy
2125 for the window manager, so GC relocation won't bother it.
2127 Elsewhere we specify the window name for the window manager. */
2128 f
->namebuf
= xstrdup (SSDATA (Vx_resource_name
));
2131 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2132 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2133 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2134 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2135 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2136 XtSetArg (al
[ac
], XtNdepth
, FRAME_DISPLAY_INFO (f
)->n_planes
); ac
++;
2137 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2138 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2139 applicationShellWidgetClass
,
2140 FRAME_X_DISPLAY (f
), al
, ac
);
2142 f
->output_data
.x
->widget
= shell_widget
;
2143 /* maybe_set_screen_title_format (shell_widget); */
2145 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2146 NULL
, shell_widget
, False
,
2147 NULL
, NULL
, NULL
, NULL
);
2150 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2151 XtSetArg (al
[ac
], XtNdepth
, FRAME_DISPLAY_INFO (f
)->n_planes
); ac
++;
2152 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2153 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2154 XtSetValues (pane_widget
, al
, ac
);
2155 f
->output_data
.x
->column_widget
= pane_widget
;
2157 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2158 the emacs screen when changing menubar. This reduces flickering. */
2161 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2162 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2163 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2164 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2165 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2166 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2167 XtSetArg (al
[ac
], XtNdepth
, FRAME_DISPLAY_INFO (f
)->n_planes
); ac
++;
2168 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2169 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2170 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2173 f
->output_data
.x
->edit_widget
= frame_widget
;
2175 XtManageChild (frame_widget
);
2177 /* Do some needed geometry management. */
2179 char *tem
, shell_position
[sizeof "=x++" + 4 * INT_STRLEN_BOUND (int)];
2182 int extra_borders
= 0;
2184 = (f
->output_data
.x
->menubar_widget
2185 ? (f
->output_data
.x
->menubar_widget
->core
.height
2186 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2189 #if 0 /* Experimentally, we now get the right results
2190 for -geometry -0-0 without this. 24 Aug 96, rms. */
2191 if (FRAME_EXTERNAL_MENU_BAR (f
))
2194 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2195 menubar_size
+= ibw
;
2199 f
->output_data
.x
->menubar_height
= menubar_size
;
2202 /* Motif seems to need this amount added to the sizes
2203 specified for the shell widget. The Athena/Lucid widgets don't.
2204 Both conclusions reached experimentally. -- rms. */
2205 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2206 &extra_borders
, NULL
);
2210 /* Convert our geometry parameters into a geometry string
2212 Note that we do not specify here whether the position
2213 is a user-specified or program-specified one.
2214 We pass that information later, in x_wm_set_size_hints. */
2216 int left
= f
->left_pos
;
2217 int xneg
= window_prompting
& XNegative
;
2218 int top
= f
->top_pos
;
2219 int yneg
= window_prompting
& YNegative
;
2225 if (window_prompting
& USPosition
)
2226 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2227 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2228 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2229 (xneg
? '-' : '+'), left
,
2230 (yneg
? '-' : '+'), top
);
2233 sprintf (shell_position
, "=%dx%d",
2234 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2235 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2237 /* Setting x and y when the position is not specified in
2238 the geometry string will set program position in the WM hints.
2239 If Emacs had just one program position, we could set it in
2240 fallback resources, but since each make-frame call can specify
2241 different program positions, this is easier. */
2242 XtSetArg (gal
[gac
], XtNx
, left
); gac
++;
2243 XtSetArg (gal
[gac
], XtNy
, top
); gac
++;
2247 /* We don't free this because we don't know whether
2248 it is safe to free it while the frame exists.
2249 It isn't worth the trouble of arranging to free it
2250 when the frame is deleted. */
2251 tem
= xstrdup (shell_position
);
2252 XtSetArg (gal
[gac
], XtNgeometry
, tem
); gac
++;
2253 XtSetValues (shell_widget
, gal
, gac
);
2256 XtManageChild (pane_widget
);
2257 XtRealizeWidget (shell_widget
);
2259 if (FRAME_X_EMBEDDED_P (f
))
2260 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2261 f
->output_data
.x
->parent_desc
, 0, 0);
2263 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2265 validate_x_resource_name ();
2267 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2268 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2269 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2272 FRAME_XIC (f
) = NULL
;
2274 create_frame_xic (f
);
2277 f
->output_data
.x
->wm_hints
.input
= True
;
2278 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2279 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2280 &f
->output_data
.x
->wm_hints
);
2282 hack_wm_protocols (f
, shell_widget
);
2285 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2288 /* Do a stupid property change to force the server to generate a
2289 PropertyNotify event so that the event_stream server timestamp will
2290 be initialized to something relevant to the time we created the window.
2292 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2293 FRAME_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2294 XA_ATOM
, 32, PropModeAppend
, NULL
, 0);
2296 /* Make all the standard events reach the Emacs frame. */
2297 attributes
.event_mask
= STANDARD_EVENT_SET
;
2302 /* XIM server might require some X events. */
2303 unsigned long fevent
= NoEventMask
;
2304 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2305 attributes
.event_mask
|= fevent
;
2307 #endif /* HAVE_X_I18N */
2309 attribute_mask
= CWEventMask
;
2310 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2311 attribute_mask
, &attributes
);
2313 XtMapWidget (frame_widget
);
2315 /* x_set_name normally ignores requests to set the name if the
2316 requested name is the same as the current name. This is the one
2317 place where that assumption isn't correct; f->name is set, but
2318 the X server hasn't been told. */
2321 int explicit = f
->explicit_name
;
2323 f
->explicit_name
= 0;
2325 fset_name (f
, Qnil
);
2326 x_set_name (f
, name
, explicit);
2329 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2330 f
->output_data
.x
->current_cursor
2331 = f
->output_data
.x
->text_cursor
);
2335 /* This is a no-op, except under Motif. Make sure main areas are
2336 set to something reasonable, in case we get an error later. */
2337 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2340 #else /* not USE_X_TOOLKIT */
2343 x_window (struct frame
*f
)
2345 if (! xg_create_frame_widgets (f
))
2346 error ("Unable to create window");
2349 FRAME_XIC (f
) = NULL
;
2353 create_frame_xic (f
);
2356 /* XIM server might require some X events. */
2357 unsigned long fevent
= NoEventMask
;
2358 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2360 if (fevent
!= NoEventMask
)
2362 XSetWindowAttributes attributes
;
2363 XWindowAttributes wattr
;
2364 unsigned long attribute_mask
;
2366 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2368 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2369 attribute_mask
= CWEventMask
;
2370 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2371 attribute_mask
, &attributes
);
2379 #else /*! USE_GTK */
2380 /* Create and set up the X window for frame F. */
2383 x_window (struct frame
*f
)
2385 XClassHint class_hints
;
2386 XSetWindowAttributes attributes
;
2387 unsigned long attribute_mask
;
2389 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2390 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2391 attributes
.bit_gravity
= StaticGravity
;
2392 attributes
.backing_store
= NotUseful
;
2393 attributes
.save_under
= True
;
2394 attributes
.event_mask
= STANDARD_EVENT_SET
;
2395 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2396 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2401 = XCreateWindow (FRAME_X_DISPLAY (f
),
2402 f
->output_data
.x
->parent_desc
,
2405 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2407 CopyFromParent
, /* depth */
2408 InputOutput
, /* class */
2410 attribute_mask
, &attributes
);
2415 create_frame_xic (f
);
2418 /* XIM server might require some X events. */
2419 unsigned long fevent
= NoEventMask
;
2420 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2421 attributes
.event_mask
|= fevent
;
2422 attribute_mask
= CWEventMask
;
2423 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2424 attribute_mask
, &attributes
);
2427 #endif /* HAVE_X_I18N */
2429 validate_x_resource_name ();
2431 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2432 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2433 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2435 /* The menubar is part of the ordinary display;
2436 it does not count in addition to the height of the window. */
2437 f
->output_data
.x
->menubar_height
= 0;
2439 /* This indicates that we use the "Passive Input" input model.
2440 Unless we do this, we don't get the Focus{In,Out} events that we
2441 need to draw the cursor correctly. Accursed bureaucrats.
2442 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2444 f
->output_data
.x
->wm_hints
.input
= True
;
2445 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2446 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2447 &f
->output_data
.x
->wm_hints
);
2448 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2450 /* Request "save yourself" and "delete window" commands from wm. */
2453 protocols
[0] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2454 protocols
[1] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2455 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2458 /* x_set_name normally ignores requests to set the name if the
2459 requested name is the same as the current name. This is the one
2460 place where that assumption isn't correct; f->name is set, but
2461 the X server hasn't been told. */
2464 int explicit = f
->explicit_name
;
2466 f
->explicit_name
= 0;
2468 fset_name (f
, Qnil
);
2469 x_set_name (f
, name
, explicit);
2472 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2473 f
->output_data
.x
->current_cursor
2474 = f
->output_data
.x
->text_cursor
);
2478 if (FRAME_X_WINDOW (f
) == 0)
2479 error ("Unable to create window");
2482 #endif /* not USE_GTK */
2483 #endif /* not USE_X_TOOLKIT */
2485 /* Verify that the icon position args for this window are valid. */
2488 x_icon_verify (struct frame
*f
, Lisp_Object parms
)
2490 Lisp_Object icon_x
, icon_y
;
2492 /* Set the position of the icon. Note that twm groups all
2493 icons in an icon window. */
2494 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2495 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2496 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2498 CHECK_NUMBER (icon_x
);
2499 CHECK_NUMBER (icon_y
);
2501 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2502 error ("Both left and top icon corners of icon must be specified");
2505 /* Handle the icon stuff for this window. Perhaps later we might
2506 want an x_set_icon_position which can be called interactively as
2510 x_icon (struct frame
*f
, Lisp_Object parms
)
2512 Lisp_Object icon_x
, icon_y
;
2514 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
2517 /* Set the position of the icon. Note that twm groups all
2518 icons in an icon window. */
2519 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2520 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2521 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2523 CHECK_TYPE_RANGED_INTEGER (int, icon_x
);
2524 CHECK_TYPE_RANGED_INTEGER (int, icon_y
);
2526 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2527 error ("Both left and top icon corners of icon must be specified");
2531 if (! EQ (icon_x
, Qunbound
))
2532 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2534 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2535 but x_create_frame still needs it. */
2536 /* Start up iconic or window? */
2537 x_wm_set_window_state
2538 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2544 x_text_icon (f
, SSDATA ((!NILP (f
->icon_name
)
2551 /* Make the GCs needed for this window, setting the
2552 background, border and mouse colors; also create the
2553 mouse cursor and the gray border tile. */
2556 x_make_gc (struct frame
*f
)
2558 XGCValues gc_values
;
2562 /* Create the GCs of this frame.
2563 Note that many default values are used. */
2565 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2566 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2567 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2568 f
->output_data
.x
->normal_gc
2569 = XCreateGC (FRAME_X_DISPLAY (f
),
2571 GCLineWidth
| GCForeground
| GCBackground
,
2574 /* Reverse video style. */
2575 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2576 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2577 f
->output_data
.x
->reverse_gc
2578 = XCreateGC (FRAME_X_DISPLAY (f
),
2580 GCForeground
| GCBackground
| GCLineWidth
,
2583 /* Cursor has cursor-color background, background-color foreground. */
2584 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2585 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2586 gc_values
.fill_style
= FillOpaqueStippled
;
2587 f
->output_data
.x
->cursor_gc
2588 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2589 (GCForeground
| GCBackground
2590 | GCFillStyle
| GCLineWidth
),
2593 /* Create the gray border tile used when the pointer is not in
2594 the frame. Since this depends on the frame's pixel values,
2595 this must be done on a per-frame basis. */
2596 f
->output_data
.x
->border_tile
2597 = (XCreatePixmapFromBitmapData
2598 (FRAME_X_DISPLAY (f
), FRAME_DISPLAY_INFO (f
)->root_window
,
2599 gray_bits
, gray_width
, gray_height
,
2600 FRAME_FOREGROUND_PIXEL (f
),
2601 FRAME_BACKGROUND_PIXEL (f
),
2602 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2608 /* Free what was allocated in x_make_gc. */
2611 x_free_gcs (struct frame
*f
)
2613 Display
*dpy
= FRAME_X_DISPLAY (f
);
2617 if (f
->output_data
.x
->normal_gc
)
2619 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2620 f
->output_data
.x
->normal_gc
= 0;
2623 if (f
->output_data
.x
->reverse_gc
)
2625 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2626 f
->output_data
.x
->reverse_gc
= 0;
2629 if (f
->output_data
.x
->cursor_gc
)
2631 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2632 f
->output_data
.x
->cursor_gc
= 0;
2635 if (f
->output_data
.x
->border_tile
)
2637 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2638 f
->output_data
.x
->border_tile
= 0;
2645 /* Handler for signals raised during x_create_frame and
2646 x_create_tip_frame. FRAME is the frame which is partially
2650 unwind_create_frame (Lisp_Object frame
)
2652 struct frame
*f
= XFRAME (frame
);
2654 /* If frame is already dead, nothing to do. This can happen if the
2655 display is disconnected after the frame has become official, but
2656 before x_create_frame removes the unwind protect. */
2657 if (!FRAME_LIVE_P (f
))
2660 /* If frame is ``official'', nothing to do. */
2661 if (NILP (Fmemq (frame
, Vframe_list
)))
2663 #if defined GLYPH_DEBUG && defined ENABLE_CHECKING
2664 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
2667 x_free_frame_resources (f
);
2670 #if defined GLYPH_DEBUG && defined ENABLE_CHECKING
2671 /* Check that reference counts are indeed correct. */
2672 eassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2673 eassert (dpyinfo
->terminal
->image_cache
->refcount
== image_cache_refcount
);
2682 do_unwind_create_frame (Lisp_Object frame
)
2684 unwind_create_frame (frame
);
2688 unwind_create_frame_1 (Lisp_Object val
)
2690 inhibit_lisp_code
= val
;
2694 x_default_font_parameter (struct frame
*f
, Lisp_Object parms
)
2696 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
2697 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
2699 Lisp_Object font
= Qnil
;
2700 if (EQ (font_param
, Qunbound
))
2703 if (NILP (font_param
))
2705 /* System font should take precedence over X resources. We suggest this
2706 regardless of font-use-system-font because .emacs may not have been
2708 const char *system_font
= xsettings_get_system_font ();
2710 font
= font_open_by_name (f
, build_unibyte_string (system_font
));
2714 font
= !NILP (font_param
) ? font_param
2715 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
2717 if (! FONTP (font
) && ! STRINGP (font
))
2722 /* This will find the normal Xft font. */
2725 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
2726 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2727 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2728 /* This was formerly the first thing tried, but it finds
2729 too many fonts and takes too long. */
2730 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
2731 /* If those didn't work, look for something which will
2733 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
2738 for (i
= 0; names
[i
]; i
++)
2740 font
= font_open_by_name (f
, build_unibyte_string (names
[i
]));
2745 error ("No suitable font was found");
2747 else if (!NILP (font_param
))
2749 /* Remember the explicit font parameter, so we can re-apply it after
2750 we've applied the `default' face settings. */
2751 x_set_frame_parameters (f
, list1 (Fcons (Qfont_param
, font_param
)));
2754 /* This call will make X resources override any system font setting. */
2755 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
2759 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
2761 doc
: /* Send the size hints for frame FRAME to the window manager.
2762 If FRAME is omitted or nil, use the selected frame.
2763 Signal error if FRAME is not an X frame. */)
2766 struct frame
*f
= decode_window_system_frame (frame
);
2769 x_wm_set_size_hint (f
, 0, 0);
2775 set_machine_and_pid_properties (struct frame
*f
)
2777 long pid
= (long) getpid ();
2779 /* This will set WM_CLIENT_MACHINE and WM_LOCALE_NAME. */
2780 XSetWMProperties (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), NULL
, NULL
,
2781 NULL
, 0, NULL
, NULL
, NULL
);
2782 XChangeProperty (FRAME_X_DISPLAY (f
),
2783 FRAME_OUTER_WINDOW (f
),
2784 XInternAtom (FRAME_X_DISPLAY (f
),
2787 XA_CARDINAL
, 32, PropModeReplace
,
2788 (unsigned char *) &pid
, 1);
2791 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2793 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
2794 Return an Emacs frame object.
2795 PARMS is an alist of frame parameters.
2796 If the parameters specify that the frame should not have a minibuffer,
2797 and do not specify a specific minibuffer window to use,
2798 then `default-minibuffer-frame' must be a frame whose minibuffer can
2799 be shared by the new frame.
2801 This function is an internal primitive--use `make-frame' instead. */)
2805 Lisp_Object frame
, tem
;
2807 int minibuffer_only
= 0;
2808 long window_prompting
= 0;
2810 ptrdiff_t count
= SPECPDL_INDEX ();
2811 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
2812 Lisp_Object display
;
2813 struct x_display_info
*dpyinfo
= NULL
;
2817 parms
= Fcopy_alist (parms
);
2819 /* Use this general default value to start with
2820 until we know if this frame has a specified name. */
2821 Vx_resource_name
= Vinvocation_name
;
2823 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
2824 if (EQ (display
, Qunbound
))
2825 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
2826 if (EQ (display
, Qunbound
))
2828 dpyinfo
= check_x_display_info (display
);
2829 kb
= dpyinfo
->terminal
->kboard
;
2831 if (!dpyinfo
->terminal
->name
)
2832 error ("Terminal is not live, can't create new frames on it");
2834 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
2836 && ! EQ (name
, Qunbound
)
2838 error ("Invalid frame name--not a string or nil");
2841 Vx_resource_name
= name
;
2843 /* See if parent window is specified. */
2844 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
2845 if (EQ (parent
, Qunbound
))
2847 if (! NILP (parent
))
2848 CHECK_NUMBER (parent
);
2850 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
2851 /* No need to protect DISPLAY because that's not used after passing
2852 it to make_frame_without_minibuffer. */
2854 GCPRO4 (parms
, parent
, name
, frame
);
2855 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
2857 if (EQ (tem
, Qnone
) || NILP (tem
))
2858 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
2859 else if (EQ (tem
, Qonly
))
2861 f
= make_minibuffer_frame ();
2862 minibuffer_only
= 1;
2864 else if (WINDOWP (tem
))
2865 f
= make_frame_without_minibuffer (tem
, kb
, display
);
2869 XSETFRAME (frame
, f
);
2871 f
->terminal
= dpyinfo
->terminal
;
2873 f
->output_method
= output_x_window
;
2874 f
->output_data
.x
= xzalloc (sizeof *f
->output_data
.x
);
2875 f
->output_data
.x
->icon_bitmap
= -1;
2876 FRAME_FONTSET (f
) = -1;
2877 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
2878 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
2879 #ifdef USE_TOOLKIT_SCROLL_BARS
2880 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
2881 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
2882 #endif /* USE_TOOLKIT_SCROLL_BARS */
2883 f
->output_data
.x
->white_relief
.pixel
= -1;
2884 f
->output_data
.x
->black_relief
.pixel
= -1;
2887 x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
2889 if (! STRINGP (f
->icon_name
))
2890 fset_icon_name (f
, Qnil
);
2892 FRAME_DISPLAY_INFO (f
) = dpyinfo
;
2894 /* With FRAME_DISPLAY_INFO set up, this unwind-protect is safe. */
2895 record_unwind_protect (do_unwind_create_frame
, frame
);
2897 /* These colors will be set anyway later, but it's important
2898 to get the color reference counts right, so initialize them! */
2901 struct gcpro gcpro1
;
2903 /* Function x_decode_color can signal an error. Make
2904 sure to initialize color slots so that we won't try
2905 to free colors we haven't allocated. */
2906 FRAME_FOREGROUND_PIXEL (f
) = -1;
2907 FRAME_BACKGROUND_PIXEL (f
) = -1;
2908 f
->output_data
.x
->cursor_pixel
= -1;
2909 f
->output_data
.x
->cursor_foreground_pixel
= -1;
2910 f
->output_data
.x
->border_pixel
= -1;
2911 f
->output_data
.x
->mouse_pixel
= -1;
2913 black
= build_string ("black");
2915 FRAME_FOREGROUND_PIXEL (f
)
2916 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2917 FRAME_BACKGROUND_PIXEL (f
)
2918 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2919 f
->output_data
.x
->cursor_pixel
2920 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2921 f
->output_data
.x
->cursor_foreground_pixel
2922 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2923 f
->output_data
.x
->border_pixel
2924 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2925 f
->output_data
.x
->mouse_pixel
2926 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2930 /* Specify the parent under which to make this X window. */
2934 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
2935 f
->output_data
.x
->explicit_parent
= 1;
2939 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
2940 f
->output_data
.x
->explicit_parent
= 0;
2943 /* Set the name; the functions to which we pass f expect the name to
2945 if (EQ (name
, Qunbound
) || NILP (name
))
2947 fset_name (f
, build_string (dpyinfo
->x_id_name
));
2948 f
->explicit_name
= 0;
2952 fset_name (f
, name
);
2953 f
->explicit_name
= 1;
2954 /* use the frame's title when getting resources for this frame. */
2955 specbind (Qx_resource_name
, name
);
2958 #ifdef HAVE_FREETYPE
2960 register_font_driver (&xftfont_driver
, f
);
2961 #else /* not HAVE_XFT */
2962 register_font_driver (&ftxfont_driver
, f
);
2963 #endif /* not HAVE_XFT */
2964 #endif /* HAVE_FREETYPE */
2965 register_font_driver (&xfont_driver
, f
);
2967 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
2968 "fontBackend", "FontBackend", RES_TYPE_STRING
);
2970 /* Extract the window parameters from the supplied values
2971 that are needed to determine window geometry. */
2972 x_default_font_parameter (f
, parms
);
2973 if (!FRAME_FONT (f
))
2975 delete_frame (frame
, Qnoelisp
);
2976 error ("Invalid frame font");
2979 /* Frame contents get displaced if an embedded X window has a border. */
2980 if (! FRAME_X_EMBEDDED_P (f
))
2981 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
2982 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
2984 /* This defaults to 1 in order to match xterm. We recognize either
2985 internalBorderWidth or internalBorder (which is what xterm calls
2987 if (NILP (Fassq (Qinternal_border_width
, parms
)))
2991 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
2992 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
2993 if (! EQ (value
, Qunbound
))
2994 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
2997 x_default_parameter (f
, parms
, Qinternal_border_width
,
2998 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3003 "internalBorderWidth", "internalBorderWidth",
3005 x_default_parameter (f
, parms
, Qvertical_scroll_bars
,
3006 #if defined (USE_GTK) && defined (USE_TOOLKIT_SCROLL_BARS)
3011 "verticalScrollBars", "ScrollBars",
3014 /* Also do the stuff which must be set before the window exists. */
3015 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3016 "foreground", "Foreground", RES_TYPE_STRING
);
3017 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3018 "background", "Background", RES_TYPE_STRING
);
3019 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3020 "pointerColor", "Foreground", RES_TYPE_STRING
);
3021 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3022 "borderColor", "BorderColor", RES_TYPE_STRING
);
3023 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3024 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3025 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3026 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3027 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3028 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3029 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3030 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3032 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3033 "scrollBarForeground",
3034 "ScrollBarForeground", 1);
3035 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3036 "scrollBarBackground",
3037 "ScrollBarBackground", 0);
3040 image_cache_refcount
=
3041 FRAME_IMAGE_CACHE (f
) ? FRAME_IMAGE_CACHE (f
)->refcount
: 0;
3042 dpyinfo_refcount
= dpyinfo
->reference_count
;
3043 #endif /* GLYPH_DEBUG */
3045 /* Init faces before x_default_parameter is called for scroll-bar
3046 parameters because that function calls x_set_scroll_bar_width,
3047 which calls change_frame_size, which calls Fset_window_buffer,
3048 which runs hooks, which call Fvertical_motion. At the end, we
3049 end up in init_iterator with a null face cache, which should not
3051 init_frame_faces (f
);
3053 /* Set the menu-bar-lines and tool-bar-lines parameters. We don't
3054 look up the X resources controlling the menu-bar and tool-bar
3055 here; they are processed specially at startup, and reflected in
3056 the values of the mode variables.
3058 Avoid calling window-configuration-change-hook; otherwise we
3059 could get an infloop in next_frame since the frame is not yet in
3062 ptrdiff_t count2
= SPECPDL_INDEX ();
3063 record_unwind_protect (unwind_create_frame_1
, inhibit_lisp_code
);
3064 inhibit_lisp_code
= Qt
;
3066 x_default_parameter (f
, parms
, Qmenu_bar_lines
,
3067 NILP (Vmenu_bar_mode
)
3068 ? make_number (0) : make_number (1),
3069 NULL
, NULL
, RES_TYPE_NUMBER
);
3070 x_default_parameter (f
, parms
, Qtool_bar_lines
,
3071 NILP (Vtool_bar_mode
)
3072 ? make_number (0) : make_number (1),
3073 NULL
, NULL
, RES_TYPE_NUMBER
);
3075 unbind_to (count2
, Qnil
);
3078 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3079 "bufferPredicate", "BufferPredicate",
3081 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3082 "title", "Title", RES_TYPE_STRING
);
3083 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3084 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3085 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3086 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3087 x_default_parameter (f
, parms
, Qtool_bar_position
,
3088 f
->tool_bar_position
, 0, 0, RES_TYPE_SYMBOL
);
3090 /* Compute the size of the X window. */
3091 window_prompting
= x_figure_window_size (f
, parms
, 1);
3093 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3094 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3096 x_icon_verify (f
, parms
);
3098 /* Create the X widget or window. */
3099 #ifdef USE_X_TOOLKIT
3100 x_window (f
, window_prompting
, minibuffer_only
);
3108 /* Now consider the frame official. */
3109 f
->terminal
->reference_count
++;
3110 FRAME_DISPLAY_INFO (f
)->reference_count
++;
3111 Vframe_list
= Fcons (frame
, Vframe_list
);
3113 /* We need to do this after creating the X window, so that the
3114 icon-creation functions can say whose icon they're describing. */
3115 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3116 "bitmapIcon", "BitmapIcon", RES_TYPE_BOOLEAN
);
3118 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3119 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3120 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3121 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3122 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3123 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3124 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3125 "scrollBarWidth", "ScrollBarWidth",
3127 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3128 "alpha", "Alpha", RES_TYPE_NUMBER
);
3130 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3131 Change will not be effected unless different from the current
3133 width
= FRAME_COLS (f
);
3134 height
= FRAME_LINES (f
);
3136 SET_FRAME_COLS (f
, 0);
3137 FRAME_LINES (f
) = 0;
3138 change_frame_size (f
, height
, width
, 1, 0, 0);
3140 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3141 /* Create the menu bar. */
3142 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3144 /* If this signals an error, we haven't set size hints for the
3145 frame and we didn't make it visible. */
3146 initialize_frame_menubar (f
);
3149 /* This is a no-op, except under Motif where it arranges the
3150 main window for the widgets on it. */
3151 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3152 f
->output_data
.x
->menubar_widget
,
3153 f
->output_data
.x
->edit_widget
);
3154 #endif /* not USE_GTK */
3156 #endif /* USE_X_TOOLKIT || USE_GTK */
3158 /* Tell the server what size and position, etc, we want, and how
3159 badly we want them. This should be done after we have the menu
3160 bar so that its size can be taken into account. */
3162 x_wm_set_size_hint (f
, window_prompting
, 0);
3165 /* Make the window appear on the frame and enable display, unless
3166 the caller says not to. However, with explicit parent, Emacs
3167 cannot control visibility, so don't try. */
3168 if (! f
->output_data
.x
->explicit_parent
)
3170 Lisp_Object visibility
;
3172 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3174 if (EQ (visibility
, Qunbound
))
3177 if (EQ (visibility
, Qicon
))
3178 x_iconify_frame (f
);
3179 else if (! NILP (visibility
))
3180 x_make_frame_visible (f
);
3183 /* Must have been Qnil. */
3189 /* Set machine name and pid for the purpose of window managers. */
3190 set_machine_and_pid_properties (f
);
3192 /* Set the WM leader property. GTK does this itself, so this is not
3193 needed when using GTK. */
3194 if (dpyinfo
->client_leader_window
!= 0)
3196 XChangeProperty (FRAME_X_DISPLAY (f
),
3197 FRAME_OUTER_WINDOW (f
),
3198 dpyinfo
->Xatom_wm_client_leader
,
3199 XA_WINDOW
, 32, PropModeReplace
,
3200 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3205 /* Initialize `default-minibuffer-frame' in case this is the first
3206 frame on this terminal. */
3207 if (FRAME_HAS_MINIBUF_P (f
)
3208 && (!FRAMEP (KVAR (kb
, Vdefault_minibuffer_frame
))
3209 || !FRAME_LIVE_P (XFRAME (KVAR (kb
, Vdefault_minibuffer_frame
)))))
3210 kset_default_minibuffer_frame (kb
, frame
);
3212 /* All remaining specified parameters, which have not been "used"
3213 by x_get_arg and friends, now go in the misc. alist of the frame. */
3214 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3215 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3216 fset_param_alist (f
, Fcons (XCAR (tem
), f
->param_alist
));
3220 /* Make sure windows on this frame appear in calls to next-window
3221 and similar functions. */
3222 Vwindow_list
= Qnil
;
3224 return unbind_to (count
, frame
);
3228 /* FRAME is used only to get a handle on the X display. We don't pass the
3229 display info directly because we're called from frame.c, which doesn't
3230 know about that structure. */
3233 x_get_focus_frame (struct frame
*frame
)
3235 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (frame
);
3237 if (! dpyinfo
->x_focus_frame
)
3240 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3245 /* In certain situations, when the window manager follows a
3246 click-to-focus policy, there seems to be no way around calling
3247 XSetInputFocus to give another frame the input focus .
3249 In an ideal world, XSetInputFocus should generally be avoided so
3250 that applications don't interfere with the window manager's focus
3251 policy. But I think it's okay to use when it's clearly done
3252 following a user-command. */
3255 x_focus_frame (struct frame
*f
)
3257 Display
*dpy
= FRAME_X_DISPLAY (f
);
3260 x_catch_errors (dpy
);
3262 if (FRAME_X_EMBEDDED_P (f
))
3264 /* For Xembedded frames, normally the embedder forwards key
3265 events. See XEmbed Protocol Specification at
3266 http://freedesktop.org/wiki/Specifications/xembed-spec */
3267 xembed_request_focus (f
);
3271 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3272 RevertToParent
, CurrentTime
);
3273 x_ewmh_activate_frame (f
);
3276 x_uncatch_errors ();
3281 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3282 doc
: /* Internal function called by `color-defined-p', which see
3283 .\(Note that the Nextstep version of this function ignores FRAME.) */)
3284 (Lisp_Object color
, Lisp_Object frame
)
3287 struct frame
*f
= decode_window_system_frame (frame
);
3289 CHECK_STRING (color
);
3291 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3297 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3298 doc
: /* Internal function called by `color-values', which see. */)
3299 (Lisp_Object color
, Lisp_Object frame
)
3302 struct frame
*f
= decode_window_system_frame (frame
);
3304 CHECK_STRING (color
);
3306 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3307 return list3i (foo
.red
, foo
.green
, foo
.blue
);
3312 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3313 doc
: /* Internal function called by `display-color-p', which see. */)
3314 (Lisp_Object terminal
)
3316 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3318 if (dpyinfo
->n_planes
<= 2)
3321 switch (dpyinfo
->visual
->class)
3334 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3336 doc
: /* Return t if the X display supports shades of gray.
3337 Note that color displays do support shades of gray.
3338 The optional argument TERMINAL specifies which display to ask about.
3339 TERMINAL should be a terminal object, a frame or a display name (a string).
3340 If omitted or nil, that stands for the selected frame's display. */)
3341 (Lisp_Object terminal
)
3343 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3345 if (dpyinfo
->n_planes
<= 1)
3348 switch (dpyinfo
->visual
->class)
3363 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3365 doc
: /* Return the width in pixels of the X display TERMINAL.
3366 The optional argument TERMINAL specifies which display to ask about.
3367 TERMINAL should be a terminal object, a frame or a display name (a string).
3368 If omitted or nil, that stands for the selected frame's display.
3370 On \"multi-monitor\" setups this refers to the pixel width for all
3371 physical monitors associated with TERMINAL. To get information for
3372 each physical monitor, use `display-monitor-attributes-list'. */)
3373 (Lisp_Object terminal
)
3375 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3377 return make_number (x_display_pixel_width (dpyinfo
));
3380 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3381 Sx_display_pixel_height
, 0, 1, 0,
3382 doc
: /* Return the height in pixels of the X display TERMINAL.
3383 The optional argument TERMINAL specifies which display to ask about.
3384 TERMINAL should be a terminal object, a frame or a display name (a string).
3385 If omitted or nil, that stands for the selected frame's display.
3387 On \"multi-monitor\" setups this refers to the pixel height for all
3388 physical monitors associated with TERMINAL. To get information for
3389 each physical monitor, use `display-monitor-attributes-list'. */)
3390 (Lisp_Object terminal
)
3392 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3394 return make_number (x_display_pixel_height (dpyinfo
));
3397 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3399 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3400 The optional argument TERMINAL specifies which display to ask about.
3401 TERMINAL should be a terminal object, a frame or a display name (a string).
3402 If omitted or nil, that stands for the selected frame's display. */)
3403 (Lisp_Object terminal
)
3405 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3407 return make_number (dpyinfo
->n_planes
);
3410 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3412 doc
: /* Return the number of color cells of the X display TERMINAL.
3413 The optional argument TERMINAL specifies which display to ask about.
3414 TERMINAL should be a terminal object, a frame or a display name (a string).
3415 If omitted or nil, that stands for the selected frame's display. */)
3416 (Lisp_Object terminal
)
3418 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3420 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3421 XScreenNumberOfScreen (dpyinfo
->screen
));
3423 /* Truncate nr_planes to 24 to avoid integer overflow.
3424 Some displays says 32, but only 24 bits are actually significant.
3425 There are only very few and rare video cards that have more than
3426 24 significant bits. Also 24 bits is more than 16 million colors,
3427 it "should be enough for everyone". */
3428 if (nr_planes
> 24) nr_planes
= 24;
3430 return make_number (1 << nr_planes
);
3433 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3434 Sx_server_max_request_size
,
3436 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3437 The optional argument TERMINAL specifies which display to ask about.
3438 TERMINAL should be a terminal object, a frame or a display name (a string).
3439 If omitted or nil, that stands for the selected frame's display. */)
3440 (Lisp_Object terminal
)
3442 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3444 return make_number (MAXREQUEST (dpyinfo
->display
));
3447 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3448 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3449 \(Labeling every distributor as a "vendor" embodies the false assumption
3450 that operating systems cannot be developed and distributed noncommercially.)
3451 The optional argument TERMINAL specifies which display to ask about.
3452 TERMINAL should be a terminal object, a frame or a display name (a string).
3453 If omitted or nil, that stands for the selected frame's display. */)
3454 (Lisp_Object terminal
)
3456 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3457 const char *vendor
= ServerVendor (dpyinfo
->display
);
3459 if (! vendor
) vendor
= "";
3460 return build_string (vendor
);
3463 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3464 doc
: /* Return the version numbers of the X server of display TERMINAL.
3465 The value is a list of three integers: the major and minor
3466 version numbers of the X Protocol in use, and the distributor-specific release
3467 number. See also the function `x-server-vendor'.
3469 The optional argument TERMINAL specifies which display to ask about.
3470 TERMINAL should be a terminal object, a frame or a display name (a string).
3471 If omitted or nil, that stands for the selected frame's display. */)
3472 (Lisp_Object terminal
)
3474 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3475 Display
*dpy
= dpyinfo
->display
;
3477 return list3i (ProtocolVersion (dpy
), ProtocolRevision (dpy
),
3478 VendorRelease (dpy
));
3481 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3482 doc
: /* Return the number of screens on the X server of display TERMINAL.
3483 The optional argument TERMINAL specifies which display to ask about.
3484 TERMINAL should be a terminal object, a frame or a display name (a string).
3485 If omitted or nil, that stands for the selected frame's display. */)
3486 (Lisp_Object terminal
)
3488 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3490 return make_number (ScreenCount (dpyinfo
->display
));
3493 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3494 doc
: /* Return the height in millimeters of the X display TERMINAL.
3495 The optional argument TERMINAL specifies which display to ask about.
3496 TERMINAL should be a terminal object, a frame or a display name (a string).
3497 If omitted or nil, that stands for the selected frame's display.
3499 On \"multi-monitor\" setups this refers to the height in millimeters for
3500 all physical monitors associated with TERMINAL. To get information
3501 for each physical monitor, use `display-monitor-attributes-list'. */)
3502 (Lisp_Object terminal
)
3504 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3506 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3509 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3510 doc
: /* Return the width in millimeters of the X display TERMINAL.
3511 The optional argument TERMINAL specifies which display to ask about.
3512 TERMINAL should be a terminal object, a frame or a display name (a string).
3513 If omitted or nil, that stands for the selected frame's display.
3515 On \"multi-monitor\" setups this refers to the width in millimeters for
3516 all physical monitors associated with TERMINAL. To get information
3517 for each physical monitor, use `display-monitor-attributes-list'. */)
3518 (Lisp_Object terminal
)
3520 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3522 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3525 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3526 Sx_display_backing_store
, 0, 1, 0,
3527 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3528 The value may be `always', `when-mapped', or `not-useful'.
3529 The optional argument TERMINAL specifies which display to ask about.
3530 TERMINAL should be a terminal object, a frame or a display name (a string).
3531 If omitted or nil, that stands for the selected frame's display. */)
3532 (Lisp_Object terminal
)
3534 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3537 switch (DoesBackingStore (dpyinfo
->screen
))
3540 result
= intern ("always");
3544 result
= intern ("when-mapped");
3548 result
= intern ("not-useful");
3552 error ("Strange value for BackingStore parameter of screen");
3558 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3559 Sx_display_visual_class
, 0, 1, 0,
3560 doc
: /* Return the visual class of the X display TERMINAL.
3561 The value is one of the symbols `static-gray', `gray-scale',
3562 `static-color', `pseudo-color', `true-color', or `direct-color'.
3564 The optional argument TERMINAL specifies which display to ask about.
3565 TERMINAL should a terminal object, a frame or a display name (a string).
3566 If omitted or nil, that stands for the selected frame's display. */)
3567 (Lisp_Object terminal
)
3569 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3572 switch (dpyinfo
->visual
->class)
3575 result
= intern ("static-gray");
3578 result
= intern ("gray-scale");
3581 result
= intern ("static-color");
3584 result
= intern ("pseudo-color");
3587 result
= intern ("true-color");
3590 result
= intern ("direct-color");
3593 error ("Display has an unknown visual class");
3599 DEFUN ("x-display-save-under", Fx_display_save_under
,
3600 Sx_display_save_under
, 0, 1, 0,
3601 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3602 The optional argument TERMINAL specifies which display to ask about.
3603 TERMINAL should be a terminal object, a frame or a display name (a string).
3604 If omitted or nil, that stands for the selected frame's display. */)
3605 (Lisp_Object terminal
)
3607 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3609 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3615 /* Store the geometry of the workarea on display DPYINFO into *RECT.
3616 Return false if and only if the workarea information cannot be
3617 obtained via the _NET_WORKAREA root window property. */
3619 #if ! GTK_CHECK_VERSION (3, 4, 0)
3621 x_get_net_workarea (struct x_display_info
*dpyinfo
, XRectangle
*rect
)
3623 Display
*dpy
= dpyinfo
->display
;
3624 long offset
, max_len
;
3625 Atom target_type
, actual_type
;
3626 unsigned long actual_size
, bytes_remaining
;
3627 int rc
, actual_format
;
3628 unsigned char *tmp_data
= NULL
;
3629 bool result
= false;
3631 x_catch_errors (dpy
);
3634 target_type
= XA_CARDINAL
;
3635 rc
= XGetWindowProperty (dpy
, dpyinfo
->root_window
,
3636 dpyinfo
->Xatom_net_current_desktop
,
3637 offset
, max_len
, False
, target_type
,
3638 &actual_type
, &actual_format
, &actual_size
,
3639 &bytes_remaining
, &tmp_data
);
3640 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
3641 && actual_format
== 32 && actual_size
== max_len
)
3643 long current_desktop
= ((long *) tmp_data
)[0];
3648 offset
= 4 * current_desktop
;
3650 rc
= XGetWindowProperty (dpy
, dpyinfo
->root_window
,
3651 dpyinfo
->Xatom_net_workarea
,
3652 offset
, max_len
, False
, target_type
,
3653 &actual_type
, &actual_format
, &actual_size
,
3654 &bytes_remaining
, &tmp_data
);
3655 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
3656 && actual_format
== 32 && actual_size
== max_len
)
3658 long *values
= (long *) tmp_data
;
3660 rect
->x
= values
[0];
3661 rect
->y
= values
[1];
3662 rect
->width
= values
[2];
3663 rect
->height
= values
[3];
3673 x_uncatch_errors ();
3681 /* Return monitor number where F is "most" or closest to. */
3683 x_get_monitor_for_frame (struct frame
*f
,
3684 struct MonitorInfo
*monitors
,
3688 int area
= 0, dist
= -1;
3689 int best_area
= -1, best_dist
= -1;
3692 if (n_monitors
== 1) return 0;
3693 frect
.x
= f
->left_pos
;
3694 frect
.y
= f
->top_pos
;
3695 frect
.width
= FRAME_PIXEL_WIDTH (f
);
3696 frect
.height
= FRAME_PIXEL_HEIGHT (f
);
3698 for (i
= 0; i
< n_monitors
; ++i
)
3700 struct MonitorInfo
*mi
= &monitors
[i
];
3704 if (mi
->geom
.width
== 0) continue;
3706 if (x_intersect_rectangles (&mi
->geom
, &frect
, &res
))
3708 a
= res
.width
* res
.height
;
3716 if (a
== 0 && area
== 0)
3719 if (frect
.x
+ frect
.width
< mi
->geom
.x
)
3720 dx
= mi
->geom
.x
- frect
.x
+ frect
.width
;
3721 else if (frect
.x
> mi
->geom
.x
+ mi
->geom
.width
)
3722 dx
= frect
.x
- mi
->geom
.x
+ mi
->geom
.width
;
3725 if (frect
.y
+ frect
.height
< mi
->geom
.y
)
3726 dy
= mi
->geom
.y
- frect
.y
+ frect
.height
;
3727 else if (frect
.y
> mi
->geom
.y
+ mi
->geom
.height
)
3728 dy
= frect
.y
- mi
->geom
.y
+ mi
->geom
.height
;
3733 if (dist
== -1 || dist
> d
)
3741 return best_area
!= -1 ? best_area
: (best_dist
!= -1 ? best_dist
: 0);
3745 x_make_monitor_attribute_list (struct MonitorInfo
*monitors
,
3747 int primary_monitor
,
3748 struct x_display_info
*dpyinfo
,
3751 Lisp_Object monitor_frames
= Fmake_vector (make_number (n_monitors
), Qnil
);
3752 Lisp_Object frame
, rest
;
3754 FOR_EACH_FRAME (rest
, frame
)
3756 struct frame
*f
= XFRAME (frame
);
3758 if (FRAME_X_P (f
) && FRAME_DISPLAY_INFO (f
) == dpyinfo
3759 && !EQ (frame
, tip_frame
))
3761 int i
= x_get_monitor_for_frame (f
, monitors
, n_monitors
);
3762 ASET (monitor_frames
, i
, Fcons (frame
, AREF (monitor_frames
, i
)));
3766 return make_monitor_attribute_list (monitors
, n_monitors
, primary_monitor
,
3767 monitor_frames
, source
);
3771 x_get_monitor_attributes_fallback (struct x_display_info
*dpyinfo
)
3773 struct MonitorInfo monitor
;
3774 XRectangle workarea_r
;
3776 /* Fallback: treat (possibly) multiple physical monitors as if they
3777 formed a single monitor as a whole. This should provide a
3778 consistent result at least on single monitor environments. */
3779 monitor
.geom
.x
= monitor
.geom
.y
= 0;
3780 monitor
.geom
.width
= x_display_pixel_width (dpyinfo
);
3781 monitor
.geom
.height
= x_display_pixel_height (dpyinfo
);
3782 monitor
.mm_width
= WidthMMOfScreen (dpyinfo
->screen
);
3783 monitor
.mm_height
= HeightMMOfScreen (dpyinfo
->screen
);
3784 monitor
.name
= xstrdup ("combined screen");
3786 if (x_get_net_workarea (dpyinfo
, &workarea_r
))
3787 monitor
.work
= workarea_r
;
3789 monitor
.work
= monitor
.geom
;
3790 return x_make_monitor_attribute_list (&monitor
, 1, 0, dpyinfo
, "fallback");
3794 #ifdef HAVE_XINERAMA
3796 x_get_monitor_attributes_xinerama (struct x_display_info
*dpyinfo
)
3799 Lisp_Object attributes_list
= Qnil
;
3800 Display
*dpy
= dpyinfo
->display
;
3801 XineramaScreenInfo
*info
= XineramaQueryScreens (dpy
, &n_monitors
);
3802 struct MonitorInfo
*monitors
;
3803 double mm_width_per_pixel
, mm_height_per_pixel
;
3805 if (! info
|| n_monitors
== 0)
3809 return attributes_list
;
3812 mm_width_per_pixel
= ((double) WidthMMOfScreen (dpyinfo
->screen
)
3813 / x_display_pixel_width (dpyinfo
));
3814 mm_height_per_pixel
= ((double) HeightMMOfScreen (dpyinfo
->screen
)
3815 / x_display_pixel_height (dpyinfo
));
3816 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
3817 for (i
= 0; i
< n_monitors
; ++i
)
3819 struct MonitorInfo
*mi
= &monitors
[i
];
3820 XRectangle workarea_r
;
3822 mi
->geom
.x
= info
[i
].x_org
;
3823 mi
->geom
.y
= info
[i
].y_org
;
3824 mi
->geom
.width
= info
[i
].width
;
3825 mi
->geom
.height
= info
[i
].height
;
3826 mi
->mm_width
= mi
->geom
.width
* mm_width_per_pixel
+ 0.5;
3827 mi
->mm_height
= mi
->geom
.height
* mm_height_per_pixel
+ 0.5;
3830 /* Xinerama usually have primary monitor first, just use that. */
3831 if (i
== 0 && x_get_net_workarea (dpyinfo
, &workarea_r
))
3833 mi
->work
= workarea_r
;
3834 if (! x_intersect_rectangles (&mi
->geom
, &mi
->work
, &mi
->work
))
3835 mi
->work
= mi
->geom
;
3838 mi
->work
= mi
->geom
;
3842 attributes_list
= x_make_monitor_attribute_list (monitors
,
3847 free_monitors (monitors
, n_monitors
);
3848 return attributes_list
;
3850 #endif /* HAVE_XINERAMA */
3855 x_get_monitor_attributes_xrandr (struct x_display_info
*dpyinfo
)
3857 Lisp_Object attributes_list
= Qnil
;
3858 XRRScreenResources
*resources
;
3859 Display
*dpy
= dpyinfo
->display
;
3860 int i
, n_monitors
, primary
= -1;
3861 RROutput pxid
= None
;
3862 struct MonitorInfo
*monitors
;
3864 #ifdef HAVE_XRRGETSCREENRESOURCESCURRENT
3865 resources
= XRRGetScreenResourcesCurrent (dpy
, dpyinfo
->root_window
);
3867 resources
= XRRGetScreenResources (dpy
, dpyinfo
->root_window
);
3869 if (! resources
|| resources
->noutput
== 0)
3872 XRRFreeScreenResources (resources
);
3875 n_monitors
= resources
->noutput
;
3876 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
3878 #ifdef HAVE_XRRGETOUTPUTPRIMARY
3879 pxid
= XRRGetOutputPrimary (dpy
, dpyinfo
->root_window
);
3882 for (i
= 0; i
< n_monitors
; ++i
)
3884 XRROutputInfo
*info
= XRRGetOutputInfo (dpy
, resources
,
3885 resources
->outputs
[i
]);
3886 Connection conn
= info
? info
->connection
: RR_Disconnected
;
3887 RRCrtc id
= info
? info
->crtc
: None
;
3889 if (strcmp (info
->name
, "default") == 0)
3891 /* Non XRandr 1.2 driver, does not give useful data. */
3892 XRRFreeOutputInfo (info
);
3893 XRRFreeScreenResources (resources
);
3894 free_monitors (monitors
, n_monitors
);
3898 if (conn
!= RR_Disconnected
&& id
!= None
)
3900 XRRCrtcInfo
*crtc
= XRRGetCrtcInfo (dpy
, resources
, id
);
3901 struct MonitorInfo
*mi
= &monitors
[i
];
3902 XRectangle workarea_r
;
3906 XRRFreeOutputInfo (info
);
3910 mi
->geom
.x
= crtc
->x
;
3911 mi
->geom
.y
= crtc
->y
;
3912 mi
->geom
.width
= crtc
->width
;
3913 mi
->geom
.height
= crtc
->height
;
3914 mi
->mm_width
= info
->mm_width
;
3915 mi
->mm_height
= info
->mm_height
;
3916 mi
->name
= xstrdup (info
->name
);
3918 if (pxid
!= None
&& pxid
== resources
->outputs
[i
])
3920 else if (primary
== -1 && strcmp (info
->name
, "LVDS") == 0)
3923 if (i
== primary
&& x_get_net_workarea (dpyinfo
, &workarea_r
))
3925 mi
->work
= workarea_r
;
3926 if (! x_intersect_rectangles (&mi
->geom
, &mi
->work
, &mi
->work
))
3927 mi
->work
= mi
->geom
;
3930 mi
->work
= mi
->geom
;
3932 XRRFreeCrtcInfo (crtc
);
3934 XRRFreeOutputInfo (info
);
3936 XRRFreeScreenResources (resources
);
3938 attributes_list
= x_make_monitor_attribute_list (monitors
,
3943 free_monitors (monitors
, n_monitors
);
3944 return attributes_list
;
3946 #endif /* HAVE_XRANDR */
3949 x_get_monitor_attributes (struct x_display_info
*dpyinfo
)
3951 Lisp_Object attributes_list
= Qnil
;
3952 Display
*dpy
= dpyinfo
->display
;
3954 (void) dpy
; /* Suppress unused variable warning. */
3957 int xrr_event_base
, xrr_error_base
;
3958 bool xrr_ok
= false;
3959 xrr_ok
= XRRQueryExtension (dpy
, &xrr_event_base
, &xrr_error_base
);
3962 int xrr_major
, xrr_minor
;
3963 XRRQueryVersion (dpy
, &xrr_major
, &xrr_minor
);
3964 xrr_ok
= (xrr_major
== 1 && xrr_minor
>= 2) || xrr_major
> 1;
3968 attributes_list
= x_get_monitor_attributes_xrandr (dpyinfo
);
3969 #endif /* HAVE_XRANDR */
3971 #ifdef HAVE_XINERAMA
3972 if (NILP (attributes_list
))
3974 int xin_event_base
, xin_error_base
;
3975 bool xin_ok
= false;
3976 xin_ok
= XineramaQueryExtension (dpy
, &xin_event_base
, &xin_error_base
);
3977 if (xin_ok
&& XineramaIsActive (dpy
))
3978 attributes_list
= x_get_monitor_attributes_xinerama (dpyinfo
);
3980 #endif /* HAVE_XINERAMA */
3982 if (NILP (attributes_list
))
3983 attributes_list
= x_get_monitor_attributes_fallback (dpyinfo
);
3985 return attributes_list
;
3988 #endif /* !USE_GTK */
3990 DEFUN ("x-display-monitor-attributes-list", Fx_display_monitor_attributes_list
,
3991 Sx_display_monitor_attributes_list
,
3993 doc
: /* Return a list of physical monitor attributes on the X display TERMINAL.
3995 The optional argument TERMINAL specifies which display to ask about.
3996 TERMINAL should be a terminal object, a frame or a display name (a string).
3997 If omitted or nil, that stands for the selected frame's display.
3999 In addition to the standard attribute keys listed in
4000 `display-monitor-attributes-list', the following keys are contained in
4003 source -- String describing the source from which multi-monitor
4004 information is obtained, one of \"Gdk\", \"XRandr\",
4005 \"Xinerama\", or \"fallback\"
4007 Internal use only, use `display-monitor-attributes-list' instead. */)
4008 (Lisp_Object terminal
)
4010 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4011 Lisp_Object attributes_list
= Qnil
;
4014 double mm_width_per_pixel
, mm_height_per_pixel
;
4017 gint primary_monitor
= 0, n_monitors
, i
;
4018 Lisp_Object monitor_frames
, rest
, frame
;
4019 static const char *source
= "Gdk";
4020 struct MonitorInfo
*monitors
;
4023 mm_width_per_pixel
= ((double) WidthMMOfScreen (dpyinfo
->screen
)
4024 / x_display_pixel_width (dpyinfo
));
4025 mm_height_per_pixel
= ((double) HeightMMOfScreen (dpyinfo
->screen
)
4026 / x_display_pixel_height (dpyinfo
));
4027 gdpy
= gdk_x11_lookup_xdisplay (dpyinfo
->display
);
4028 gscreen
= gdk_display_get_default_screen (gdpy
);
4029 #if GTK_CHECK_VERSION (2, 20, 0)
4030 primary_monitor
= gdk_screen_get_primary_monitor (gscreen
);
4032 n_monitors
= gdk_screen_get_n_monitors (gscreen
);
4033 monitor_frames
= Fmake_vector (make_number (n_monitors
), Qnil
);
4034 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
4036 FOR_EACH_FRAME (rest
, frame
)
4038 struct frame
*f
= XFRAME (frame
);
4040 if (FRAME_X_P (f
) && FRAME_DISPLAY_INFO (f
) == dpyinfo
4041 && !EQ (frame
, tip_frame
))
4043 GdkWindow
*gwin
= gtk_widget_get_window (FRAME_GTK_WIDGET (f
));
4045 i
= gdk_screen_get_monitor_at_window (gscreen
, gwin
);
4046 ASET (monitor_frames
, i
, Fcons (frame
, AREF (monitor_frames
, i
)));
4050 for (i
= 0; i
< n_monitors
; ++i
)
4052 gint width_mm
= -1, height_mm
= -1;
4053 GdkRectangle rec
, work
;
4054 struct MonitorInfo
*mi
= &monitors
[i
];
4056 gdk_screen_get_monitor_geometry (gscreen
, i
, &rec
);
4058 #if GTK_CHECK_VERSION (2, 14, 0)
4059 width_mm
= gdk_screen_get_monitor_width_mm (gscreen
, i
);
4060 height_mm
= gdk_screen_get_monitor_height_mm (gscreen
, i
);
4063 width_mm
= rec
.width
* mm_width_per_pixel
+ 0.5;
4065 height_mm
= rec
.height
* mm_height_per_pixel
+ 0.5;
4067 #if GTK_CHECK_VERSION (3, 4, 0)
4068 gdk_screen_get_monitor_workarea (gscreen
, i
, &work
);
4070 /* Emulate the behavior of GTK+ 3.4. */
4072 XRectangle workarea_r
;
4074 if (i
== primary_monitor
&& x_get_net_workarea (dpyinfo
, &workarea_r
))
4076 work
.x
= workarea_r
.x
;
4077 work
.y
= workarea_r
.y
;
4078 work
.width
= workarea_r
.width
;
4079 work
.height
= workarea_r
.height
;
4080 if (! gdk_rectangle_intersect (&rec
, &work
, &work
))
4091 mi
->geom
.width
= rec
.width
;
4092 mi
->geom
.height
= rec
.height
;
4093 mi
->work
.x
= work
.x
;
4094 mi
->work
.y
= work
.y
;
4095 mi
->work
.width
= work
.width
;
4096 mi
->work
.height
= work
.height
;
4097 mi
->mm_width
= width_mm
;
4098 mi
->mm_height
= height_mm
;
4100 #if GTK_CHECK_VERSION (2, 14, 0)
4101 mi
->name
= gdk_screen_get_monitor_plug_name (gscreen
, i
);
4105 attributes_list
= make_monitor_attribute_list (monitors
,
4111 #else /* not USE_GTK */
4114 attributes_list
= x_get_monitor_attributes (dpyinfo
);
4117 #endif /* not USE_GTK */
4119 return attributes_list
;
4122 /************************************************************************
4124 ************************************************************************/
4127 /* Mapping visual names to visuals. */
4129 static struct visual_class
4136 {"StaticGray", StaticGray
},
4137 {"GrayScale", GrayScale
},
4138 {"StaticColor", StaticColor
},
4139 {"PseudoColor", PseudoColor
},
4140 {"TrueColor", TrueColor
},
4141 {"DirectColor", DirectColor
},
4146 #ifndef HAVE_XSCREENNUMBEROFSCREEN
4148 /* Value is the screen number of screen SCR. This is a substitute for
4149 the X function with the same name when that doesn't exist. */
4152 XScreenNumberOfScreen (scr
)
4153 register Screen
*scr
;
4155 Display
*dpy
= scr
->display
;
4158 for (i
= 0; i
< dpy
->nscreens
; ++i
)
4159 if (scr
== dpy
->screens
+ i
)
4165 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
4168 /* Select the visual that should be used on display DPYINFO. Set
4169 members of DPYINFO appropriately. Called from x_term_init. */
4172 select_visual (struct x_display_info
*dpyinfo
)
4174 Display
*dpy
= dpyinfo
->display
;
4175 Screen
*screen
= dpyinfo
->screen
;
4178 /* See if a visual is specified. */
4179 value
= display_x_get_resource (dpyinfo
,
4180 build_string ("visualClass"),
4181 build_string ("VisualClass"),
4183 if (STRINGP (value
))
4185 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
4186 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4187 depth, a decimal number. NAME is compared with case ignored. */
4188 char *s
= alloca (SBYTES (value
) + 1);
4193 strcpy (s
, SSDATA (value
));
4194 dash
= strchr (s
, '-');
4197 dpyinfo
->n_planes
= atoi (dash
+ 1);
4201 /* We won't find a matching visual with depth 0, so that
4202 an error will be printed below. */
4203 dpyinfo
->n_planes
= 0;
4205 /* Determine the visual class. */
4206 for (i
= 0; visual_classes
[i
].name
; ++i
)
4207 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4209 class = visual_classes
[i
].class;
4213 /* Look up a matching visual for the specified class. */
4215 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4216 dpyinfo
->n_planes
, class, &vinfo
))
4217 fatal ("Invalid visual specification `%s'", SDATA (value
));
4219 dpyinfo
->visual
= vinfo
.visual
;
4224 XVisualInfo
*vinfo
, vinfo_template
;
4226 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4228 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4229 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4230 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4231 &vinfo_template
, &n_visuals
);
4233 fatal ("Can't get proper X visual info");
4235 dpyinfo
->n_planes
= vinfo
->depth
;
4241 /* Return the X display structure for the display named NAME.
4242 Open a new connection if necessary. */
4244 static struct x_display_info
*
4245 x_display_info_for_name (Lisp_Object name
)
4247 struct x_display_info
*dpyinfo
;
4249 CHECK_STRING (name
);
4251 for (dpyinfo
= x_display_list
; dpyinfo
; dpyinfo
= dpyinfo
->next
)
4252 if (!NILP (Fstring_equal (XCAR (dpyinfo
->name_list_element
), name
)))
4255 /* Use this general default value to start with. */
4256 Vx_resource_name
= Vinvocation_name
;
4258 validate_x_resource_name ();
4260 dpyinfo
= x_term_init (name
, 0, SSDATA (Vx_resource_name
));
4263 error ("Cannot connect to X server %s", SDATA (name
));
4265 XSETFASTINT (Vwindow_system_version
, 11);
4271 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4273 doc
: /* Open a connection to a display server.
4274 DISPLAY is the name of the display to connect to.
4275 Optional second arg XRM-STRING is a string of resources in xrdb format.
4276 If the optional third arg MUST-SUCCEED is non-nil,
4277 terminate Emacs if we can't open the connection.
4278 \(In the Nextstep version, the last two arguments are currently ignored.) */)
4279 (Lisp_Object display
, Lisp_Object xrm_string
, Lisp_Object must_succeed
)
4282 struct x_display_info
*dpyinfo
;
4284 CHECK_STRING (display
);
4285 if (! NILP (xrm_string
))
4286 CHECK_STRING (xrm_string
);
4288 xrm_option
= NILP (xrm_string
) ? 0 : SSDATA (xrm_string
);
4290 validate_x_resource_name ();
4292 /* This is what opens the connection and sets x_current_display.
4293 This also initializes many symbols, such as those used for input. */
4294 dpyinfo
= x_term_init (display
, xrm_option
,
4295 SSDATA (Vx_resource_name
));
4299 if (!NILP (must_succeed
))
4300 fatal ("Cannot connect to X server %s.\n\
4301 Check the DISPLAY environment variable or use `-d'.\n\
4302 Also use the `xauth' program to verify that you have the proper\n\
4303 authorization information needed to connect the X server.\n\
4304 An insecure way to solve the problem may be to use `xhost'.\n",
4307 error ("Cannot connect to X server %s", SDATA (display
));
4310 XSETFASTINT (Vwindow_system_version
, 11);
4314 DEFUN ("x-close-connection", Fx_close_connection
,
4315 Sx_close_connection
, 1, 1, 0,
4316 doc
: /* Close the connection to TERMINAL's X server.
4317 For TERMINAL, specify a terminal object, a frame or a display name (a
4318 string). If TERMINAL is nil, that stands for the selected frame's
4320 (Lisp_Object terminal
)
4322 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4324 if (dpyinfo
->reference_count
> 0)
4325 error ("Display still has frames on it");
4327 x_delete_terminal (dpyinfo
->terminal
);
4332 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4333 doc
: /* Return the list of display names that Emacs has connections to. */)
4336 Lisp_Object result
= Qnil
;
4337 struct x_display_info
*xdi
;
4339 for (xdi
= x_display_list
; xdi
; xdi
= xdi
->next
)
4340 result
= Fcons (XCAR (xdi
->name_list_element
), result
);
4345 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4346 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4347 This function only has an effect on X Windows. With MS Windows, it is
4348 defined but does nothing.
4350 If ON is nil, allow buffering of requests.
4351 Turning on synchronization prohibits the Xlib routines from buffering
4352 requests and seriously degrades performance, but makes debugging much
4354 The optional second argument TERMINAL specifies which display to act on.
4355 TERMINAL should be a terminal object, a frame or a display name (a string).
4356 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4357 (Lisp_Object on
, Lisp_Object terminal
)
4359 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4361 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4366 /* Wait for responses to all X commands issued so far for frame F. */
4369 x_sync (struct frame
*f
)
4372 XSync (FRAME_X_DISPLAY (f
), False
);
4377 /***********************************************************************
4379 ***********************************************************************/
4381 DEFUN ("x-change-window-property", Fx_change_window_property
,
4382 Sx_change_window_property
, 2, 6, 0,
4383 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4384 PROP must be a string. VALUE may be a string or a list of conses,
4385 numbers and/or strings. If an element in the list is a string, it is
4386 converted to an atom and the value of the atom is used. If an element
4387 is a cons, it is converted to a 32 bit number where the car is the 16
4388 top bits and the cdr is the lower 16 bits.
4390 FRAME nil or omitted means use the selected frame.
4391 If TYPE is given and non-nil, it is the name of the type of VALUE.
4392 If TYPE is not given or nil, the type is STRING.
4393 FORMAT gives the size in bits of each element if VALUE is a list.
4394 It must be one of 8, 16 or 32.
4395 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4396 If OUTER-P is non-nil, the property is changed for the outer X window of
4397 FRAME. Default is to change on the edit X window. */)
4398 (Lisp_Object prop
, Lisp_Object value
, Lisp_Object frame
,
4399 Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4401 struct frame
*f
= decode_window_system_frame (frame
);
4403 Atom target_type
= XA_STRING
;
4404 int element_format
= 8;
4405 unsigned char *data
;
4409 CHECK_STRING (prop
);
4411 if (! NILP (format
))
4413 CHECK_NUMBER (format
);
4415 if (XINT (format
) != 8 && XINT (format
) != 16
4416 && XINT (format
) != 32)
4417 error ("FORMAT must be one of 8, 16 or 32");
4418 element_format
= XINT (format
);
4425 nelements
= x_check_property_data (value
);
4426 if (nelements
== -1)
4427 error ("Bad data in VALUE, must be number, string or cons");
4429 /* The man page for XChangeProperty:
4430 "If the specified format is 32, the property data must be a
4432 This applies even if long is more than 32 bits. The X library
4433 converts to 32 bits before sending to the X server. */
4434 elsize
= element_format
== 32 ? sizeof (long) : element_format
>> 3;
4435 data
= xnmalloc (nelements
, elsize
);
4437 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4441 CHECK_STRING (value
);
4442 data
= SDATA (value
);
4443 if (INT_MAX
< SBYTES (value
))
4444 error ("VALUE too long");
4445 nelements
= SBYTES (value
);
4449 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4452 CHECK_STRING (type
);
4453 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4456 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4457 else w
= FRAME_X_WINDOW (f
);
4459 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4460 prop_atom
, target_type
, element_format
, PropModeReplace
,
4463 if (CONSP (value
)) xfree (data
);
4465 /* Make sure the property is set when we return. */
4466 XFlush (FRAME_X_DISPLAY (f
));
4473 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4474 Sx_delete_window_property
, 1, 2, 0,
4475 doc
: /* Remove window property PROP from X window of FRAME.
4476 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4477 (Lisp_Object prop
, Lisp_Object frame
)
4479 struct frame
*f
= decode_window_system_frame (frame
);
4482 CHECK_STRING (prop
);
4484 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4485 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4487 /* Make sure the property is removed when we return. */
4488 XFlush (FRAME_X_DISPLAY (f
));
4495 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4497 doc
: /* Value is the value of window property PROP on FRAME.
4498 If FRAME is nil or omitted, use the selected frame.
4500 On X Windows, the following optional arguments are also accepted:
4501 If TYPE is nil or omitted, get the property as a string.
4502 Otherwise TYPE is the name of the atom that denotes the type expected.
4503 If SOURCE is non-nil, get the property on that window instead of from
4504 FRAME. The number 0 denotes the root window.
4505 If DELETE-P is non-nil, delete the property after retrieving it.
4506 If VECTOR-RET-P is non-nil, don't return a string but a vector of values.
4508 On MS Windows, this function accepts but ignores those optional arguments.
4510 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4511 no value of TYPE (always string in the MS Windows case). */)
4512 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
,
4513 Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4515 struct frame
*f
= decode_window_system_frame (frame
);
4518 Lisp_Object prop_value
= Qnil
;
4519 unsigned char *tmp_data
= NULL
;
4521 Atom target_type
= XA_STRING
;
4523 unsigned long actual_size
, bytes_remaining
;
4524 Window target_window
= FRAME_X_WINDOW (f
);
4525 struct gcpro gcpro1
;
4527 GCPRO1 (prop_value
);
4528 CHECK_STRING (prop
);
4530 if (! NILP (source
))
4532 CONS_TO_INTEGER (source
, Window
, target_window
);
4533 if (! target_window
)
4534 target_window
= FRAME_DISPLAY_INFO (f
)->root_window
;
4540 if (strcmp ("AnyPropertyType", SSDATA (type
)) == 0)
4541 target_type
= AnyPropertyType
;
4543 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4546 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4547 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4548 prop_atom
, 0, 0, False
, target_type
,
4549 &actual_type
, &actual_format
, &actual_size
,
4550 &bytes_remaining
, &tmp_data
);
4553 int size
= bytes_remaining
;
4558 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4559 prop_atom
, 0, bytes_remaining
,
4560 ! NILP (delete_p
), target_type
,
4561 &actual_type
, &actual_format
,
4562 &actual_size
, &bytes_remaining
,
4564 if (rc
== Success
&& tmp_data
)
4566 /* The man page for XGetWindowProperty says:
4567 "If the returned format is 32, the returned data is represented
4568 as a long array and should be cast to that type to obtain the
4570 This applies even if long is more than 32 bits, the X library
4571 converts from 32 bit elements received from the X server to long
4572 and passes the long array to us. Thus, for that case memcpy can not
4573 be used. We convert to a 32 bit type here, because so much code
4576 The bytes and offsets passed to XGetWindowProperty refers to the
4577 property and those are indeed in 32 bit quantities if format is
4580 if (BITS_PER_LONG
> 32 && actual_format
== 32)
4583 int *idata
= (int *) tmp_data
;
4584 long *ldata
= (long *) tmp_data
;
4586 for (i
= 0; i
< actual_size
; ++i
)
4587 idata
[i
] = (int) ldata
[i
];
4590 if (NILP (vector_ret_p
))
4591 prop_value
= make_string ((char *) tmp_data
, size
);
4593 prop_value
= x_property_data_to_lisp (f
,
4600 if (tmp_data
) XFree (tmp_data
);
4610 /***********************************************************************
4612 ***********************************************************************/
4614 /* Timer function of hourglass_atimer. TIMER is equal to
4617 Display an hourglass pointer on all frames by mapping the frames'
4618 hourglass_window. Set the hourglass_p flag in the frames'
4619 output_data.x structure to indicate that an hourglass cursor is
4620 shown on the frames. */
4623 show_hourglass (struct atimer
*timer
)
4625 /* The timer implementation will cancel this timer automatically
4626 after this function has run. Set hourglass_atimer to null
4627 so that we know the timer doesn't have to be canceled. */
4628 hourglass_atimer
= NULL
;
4630 if (!hourglass_shown_p
)
4632 Lisp_Object rest
, frame
;
4636 FOR_EACH_FRAME (rest
, frame
)
4638 struct frame
*f
= XFRAME (frame
);
4640 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4642 Display
*dpy
= FRAME_X_DISPLAY (f
);
4644 #ifdef USE_X_TOOLKIT
4645 if (f
->output_data
.x
->widget
)
4647 if (FRAME_OUTER_WINDOW (f
))
4650 f
->output_data
.x
->hourglass_p
= 1;
4652 if (!f
->output_data
.x
->hourglass_window
)
4654 unsigned long mask
= CWCursor
;
4655 XSetWindowAttributes attrs
;
4657 Window parent
= FRAME_X_WINDOW (f
);
4659 Window parent
= FRAME_OUTER_WINDOW (f
);
4661 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4663 f
->output_data
.x
->hourglass_window
4664 = XCreateWindow (dpy
, parent
,
4665 0, 0, 32000, 32000, 0, 0,
4671 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4677 hourglass_shown_p
= 1;
4683 /* Hide the hourglass pointer on all frames, if it is currently
4687 hide_hourglass (void)
4689 if (hourglass_shown_p
)
4691 Lisp_Object rest
, frame
;
4694 FOR_EACH_FRAME (rest
, frame
)
4696 struct frame
*f
= XFRAME (frame
);
4699 /* Watch out for newly created frames. */
4700 && f
->output_data
.x
->hourglass_window
)
4702 XUnmapWindow (FRAME_X_DISPLAY (f
),
4703 f
->output_data
.x
->hourglass_window
);
4704 /* Sync here because XTread_socket looks at the
4705 hourglass_p flag that is reset to zero below. */
4706 XSync (FRAME_X_DISPLAY (f
), False
);
4707 f
->output_data
.x
->hourglass_p
= 0;
4711 hourglass_shown_p
= 0;
4718 /***********************************************************************
4720 ***********************************************************************/
4722 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4723 Lisp_Object
, Lisp_Object
);
4724 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4725 Lisp_Object
, int, int, int *, int *);
4727 /* The frame of a currently visible tooltip. */
4729 Lisp_Object tip_frame
;
4731 /* If non-nil, a timer started that hides the last tooltip when it
4734 static Lisp_Object tip_timer
;
4737 /* If non-nil, a vector of 3 elements containing the last args
4738 with which x-show-tip was called. See there. */
4740 static Lisp_Object last_show_tip_args
;
4744 unwind_create_tip_frame (Lisp_Object frame
)
4746 Lisp_Object deleted
;
4748 deleted
= unwind_create_frame (frame
);
4749 if (EQ (deleted
, Qt
))
4757 /* Create a frame for a tooltip on the display described by DPYINFO.
4758 PARMS is a list of frame parameters. TEXT is the string to
4759 display in the tip frame. Value is the frame.
4761 Note that functions called here, esp. x_default_parameter can
4762 signal errors, for instance when a specified color name is
4763 undefined. We have to make sure that we're in a consistent state
4764 when this happens. */
4767 x_create_tip_frame (struct x_display_info
*dpyinfo
,
4775 ptrdiff_t count
= SPECPDL_INDEX ();
4776 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4777 int face_change_count_before
= face_change_count
;
4779 struct buffer
*old_buffer
;
4781 if (!dpyinfo
->terminal
->name
)
4782 error ("Terminal is not live, can't create new frames on it");
4784 parms
= Fcopy_alist (parms
);
4786 /* Get the name of the frame to use for resource lookup. */
4787 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4789 && !EQ (name
, Qunbound
)
4791 error ("Invalid frame name--not a string or nil");
4794 GCPRO3 (parms
, name
, frame
);
4796 XSETFRAME (frame
, f
);
4798 buffer
= Fget_buffer_create (build_string (" *tip*"));
4799 /* Use set_window_buffer instead of Fset_window_buffer (see
4800 discussion of bug#11984, bug#12025, bug#12026). */
4801 set_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, 0, 0);
4802 old_buffer
= current_buffer
;
4803 set_buffer_internal_1 (XBUFFER (buffer
));
4804 bset_truncate_lines (current_buffer
, Qnil
);
4805 specbind (Qinhibit_read_only
, Qt
);
4806 specbind (Qinhibit_modification_hooks
, Qt
);
4809 set_buffer_internal_1 (old_buffer
);
4811 record_unwind_protect (unwind_create_tip_frame
, frame
);
4813 f
->terminal
= dpyinfo
->terminal
;
4815 /* By setting the output method, we're essentially saying that
4816 the frame is live, as per FRAME_LIVE_P. If we get a signal
4817 from this point on, x_destroy_window might screw up reference
4819 f
->output_method
= output_x_window
;
4820 f
->output_data
.x
= xzalloc (sizeof *f
->output_data
.x
);
4821 f
->output_data
.x
->icon_bitmap
= -1;
4822 FRAME_FONTSET (f
) = -1;
4823 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4824 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4825 #ifdef USE_TOOLKIT_SCROLL_BARS
4826 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4827 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4828 #endif /* USE_TOOLKIT_SCROLL_BARS */
4829 f
->output_data
.x
->white_relief
.pixel
= -1;
4830 f
->output_data
.x
->black_relief
.pixel
= -1;
4832 fset_icon_name (f
, Qnil
);
4833 FRAME_DISPLAY_INFO (f
) = dpyinfo
;
4834 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
4835 f
->output_data
.x
->explicit_parent
= 0;
4837 /* These colors will be set anyway later, but it's important
4838 to get the color reference counts right, so initialize them! */
4841 struct gcpro gcpro1
;
4843 /* Function x_decode_color can signal an error. Make
4844 sure to initialize color slots so that we won't try
4845 to free colors we haven't allocated. */
4846 FRAME_FOREGROUND_PIXEL (f
) = -1;
4847 FRAME_BACKGROUND_PIXEL (f
) = -1;
4848 f
->output_data
.x
->cursor_pixel
= -1;
4849 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4850 f
->output_data
.x
->border_pixel
= -1;
4851 f
->output_data
.x
->mouse_pixel
= -1;
4853 black
= build_string ("black");
4855 FRAME_FOREGROUND_PIXEL (f
)
4856 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4857 FRAME_BACKGROUND_PIXEL (f
)
4858 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4859 f
->output_data
.x
->cursor_pixel
4860 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4861 f
->output_data
.x
->cursor_foreground_pixel
4862 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4863 f
->output_data
.x
->border_pixel
4864 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4865 f
->output_data
.x
->mouse_pixel
4866 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4870 /* Set the name; the functions to which we pass f expect the name to
4872 if (EQ (name
, Qunbound
) || NILP (name
))
4874 fset_name (f
, build_string (dpyinfo
->x_id_name
));
4875 f
->explicit_name
= 0;
4879 fset_name (f
, name
);
4880 f
->explicit_name
= 1;
4881 /* use the frame's title when getting resources for this frame. */
4882 specbind (Qx_resource_name
, name
);
4885 register_font_driver (&xfont_driver
, f
);
4886 #ifdef HAVE_FREETYPE
4888 register_font_driver (&xftfont_driver
, f
);
4889 #else /* not HAVE_XFT */
4890 register_font_driver (&ftxfont_driver
, f
);
4891 #endif /* not HAVE_XFT */
4892 #endif /* HAVE_FREETYPE */
4894 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4895 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4897 /* Extract the window parameters from the supplied values that are
4898 needed to determine window geometry. */
4899 x_default_font_parameter (f
, parms
);
4901 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
4902 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4904 /* This defaults to 2 in order to match xterm. We recognize either
4905 internalBorderWidth or internalBorder (which is what xterm calls
4907 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4911 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4912 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4913 if (! EQ (value
, Qunbound
))
4914 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4918 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4919 "internalBorderWidth", "internalBorderWidth",
4922 /* Also do the stuff which must be set before the window exists. */
4923 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4924 "foreground", "Foreground", RES_TYPE_STRING
);
4925 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4926 "background", "Background", RES_TYPE_STRING
);
4927 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4928 "pointerColor", "Foreground", RES_TYPE_STRING
);
4929 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4930 "cursorColor", "Foreground", RES_TYPE_STRING
);
4931 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4932 "borderColor", "BorderColor", RES_TYPE_STRING
);
4935 image_cache_refcount
=
4936 FRAME_IMAGE_CACHE (f
) ? FRAME_IMAGE_CACHE (f
)->refcount
: 0;
4937 dpyinfo_refcount
= dpyinfo
->reference_count
;
4938 #endif /* GLYPH_DEBUG */
4940 /* Init faces before x_default_parameter is called for scroll-bar
4941 parameters because that function calls x_set_scroll_bar_width,
4942 which calls change_frame_size, which calls Fset_window_buffer,
4943 which runs hooks, which call Fvertical_motion. At the end, we
4944 end up in init_iterator with a null face cache, which should not
4946 init_frame_faces (f
);
4948 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
4950 x_figure_window_size (f
, parms
, 0);
4953 XSetWindowAttributes attrs
;
4955 Atom type
= FRAME_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
4958 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4959 if (DoesSaveUnders (dpyinfo
->screen
))
4960 mask
|= CWSaveUnder
;
4962 /* Window managers look at the override-redirect flag to determine
4963 whether or net to give windows a decoration (Xlib spec, chapter
4965 attrs
.override_redirect
= True
;
4966 attrs
.save_under
= True
;
4967 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4968 /* Arrange for getting MapNotify and UnmapNotify events. */
4969 attrs
.event_mask
= StructureNotifyMask
;
4971 = FRAME_X_WINDOW (f
)
4972 = XCreateWindow (FRAME_X_DISPLAY (f
),
4973 FRAME_DISPLAY_INFO (f
)->root_window
,
4974 /* x, y, width, height */
4978 CopyFromParent
, InputOutput
, CopyFromParent
,
4980 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
4981 FRAME_DISPLAY_INFO (f
)->Xatom_net_window_type
,
4982 XA_ATOM
, 32, PropModeReplace
,
4983 (unsigned char *)&type
, 1);
4989 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4990 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4991 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4992 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4993 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4994 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4996 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4997 Change will not be effected unless different from the current
4999 width
= FRAME_COLS (f
);
5000 height
= FRAME_LINES (f
);
5001 SET_FRAME_COLS (f
, 0);
5002 FRAME_LINES (f
) = 0;
5003 change_frame_size (f
, height
, width
, 1, 0, 0);
5005 /* Add `tooltip' frame parameter's default value. */
5006 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
5007 Fmodify_frame_parameters (frame
, list1 (Fcons (Qtooltip
, Qt
)));
5009 /* FIXME - can this be done in a similar way to normal frames?
5010 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
5012 /* Set the `display-type' frame parameter before setting up faces. */
5014 Lisp_Object disptype
;
5016 if (FRAME_DISPLAY_INFO (f
)->n_planes
== 1)
5017 disptype
= intern ("mono");
5018 else if (FRAME_DISPLAY_INFO (f
)->visual
->class == GrayScale
5019 || FRAME_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
5020 disptype
= intern ("grayscale");
5022 disptype
= intern ("color");
5024 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
5025 Fmodify_frame_parameters (frame
, list1 (Fcons (Qdisplay_type
, disptype
)));
5028 /* Set up faces after all frame parameters are known. This call
5029 also merges in face attributes specified for new frames.
5031 Frame parameters may be changed if .Xdefaults contains
5032 specifications for the default font. For example, if there is an
5033 `Emacs.default.attributeBackground: pink', the `background-color'
5034 attribute of the frame get's set, which let's the internal border
5035 of the tooltip frame appear in pink. Prevent this. */
5037 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
5039 /* Set tip_frame here, so that */
5041 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
5043 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
5044 Fmodify_frame_parameters (frame
, list1 (Fcons (Qbackground_color
, bg
)));
5051 /* Now that the frame will be official, it counts as a reference to
5052 its display and terminal. */
5053 FRAME_DISPLAY_INFO (f
)->reference_count
++;
5054 f
->terminal
->reference_count
++;
5056 /* It is now ok to make the frame official even if we get an error
5057 below. And the frame needs to be on Vframe_list or making it
5058 visible won't work. */
5059 Vframe_list
= Fcons (frame
, Vframe_list
);
5062 /* Setting attributes of faces of the tooltip frame from resources
5063 and similar will increment face_change_count, which leads to the
5064 clearing of all current matrices. Since this isn't necessary
5065 here, avoid it by resetting face_change_count to the value it
5066 had before we created the tip frame. */
5067 face_change_count
= face_change_count_before
;
5069 /* Discard the unwind_protect. */
5070 return unbind_to (count
, frame
);
5074 /* Compute where to display tip frame F. PARMS is the list of frame
5075 parameters for F. DX and DY are specified offsets from the current
5076 location of the mouse. WIDTH and HEIGHT are the width and height
5077 of the tooltip. Return coordinates relative to the root window of
5078 the display in *ROOT_X, and *ROOT_Y. */
5081 compute_tip_xy (struct frame
*f
, Lisp_Object parms
, Lisp_Object dx
, Lisp_Object dy
, int width
, int height
, int *root_x
, int *root_y
)
5083 Lisp_Object left
, top
;
5088 /* User-specified position? */
5089 left
= Fcdr (Fassq (Qleft
, parms
));
5090 top
= Fcdr (Fassq (Qtop
, parms
));
5092 /* Move the tooltip window where the mouse pointer is. Resize and
5094 if (!INTEGERP (left
) || !INTEGERP (top
))
5097 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_DISPLAY_INFO (f
)->root_window
,
5098 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
5103 *root_y
= XINT (top
);
5104 else if (*root_y
+ XINT (dy
) <= 0)
5105 *root_y
= 0; /* Can happen for negative dy */
5106 else if (*root_y
+ XINT (dy
) + height
5107 <= x_display_pixel_height (FRAME_DISPLAY_INFO (f
)))
5108 /* It fits below the pointer */
5109 *root_y
+= XINT (dy
);
5110 else if (height
+ XINT (dy
) <= *root_y
)
5111 /* It fits above the pointer. */
5112 *root_y
-= height
+ XINT (dy
);
5114 /* Put it on the top. */
5117 if (INTEGERP (left
))
5118 *root_x
= XINT (left
);
5119 else if (*root_x
+ XINT (dx
) <= 0)
5120 *root_x
= 0; /* Can happen for negative dx */
5121 else if (*root_x
+ XINT (dx
) + width
5122 <= x_display_pixel_width (FRAME_DISPLAY_INFO (f
)))
5123 /* It fits to the right of the pointer. */
5124 *root_x
+= XINT (dx
);
5125 else if (width
+ XINT (dx
) <= *root_x
)
5126 /* It fits to the left of the pointer. */
5127 *root_x
-= width
+ XINT (dx
);
5129 /* Put it left-justified on the screen--it ought to fit that way. */
5134 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5135 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5136 A tooltip window is a small X window displaying a string.
5138 This is an internal function; Lisp code should call `tooltip-show'.
5140 FRAME nil or omitted means use the selected frame.
5142 PARMS is an optional list of frame parameters which can be used to
5143 change the tooltip's appearance.
5145 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5146 means use the default timeout of 5 seconds.
5148 If the list of frame parameters PARMS contains a `left' parameters,
5149 the tooltip is displayed at that x-position. Otherwise it is
5150 displayed at the mouse position, with offset DX added (default is 5 if
5151 DX isn't specified). Likewise for the y-position; if a `top' frame
5152 parameter is specified, it determines the y-position of the tooltip
5153 window, otherwise it is displayed at the mouse position, with offset
5154 DY added (default is -10).
5156 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5157 Text larger than the specified size is clipped. */)
5158 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
5163 struct buffer
*old_buffer
;
5164 struct text_pos pos
;
5165 int i
, width
, height
, seen_reversed_p
;
5166 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5167 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5168 ptrdiff_t count
= SPECPDL_INDEX ();
5170 specbind (Qinhibit_redisplay
, Qt
);
5172 GCPRO4 (string
, parms
, frame
, timeout
);
5174 CHECK_STRING (string
);
5175 if (SCHARS (string
) == 0)
5176 string
= make_unibyte_string (" ", 1);
5178 f
= decode_window_system_frame (frame
);
5180 timeout
= make_number (5);
5182 CHECK_NATNUM (timeout
);
5185 dx
= make_number (5);
5190 dy
= make_number (-10);
5195 if (x_gtk_use_system_tooltips
)
5199 /* Hide a previous tip, if any. */
5203 ok
= xg_prepare_tooltip (f
, string
, &width
, &height
);
5206 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5207 xg_show_tooltip (f
, root_x
, root_y
);
5208 /* This is used in Fx_hide_tip. */
5209 XSETFRAME (tip_frame
, f
);
5212 if (ok
) goto start_timer
;
5214 #endif /* USE_GTK */
5216 if (NILP (last_show_tip_args
))
5217 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5219 if (!NILP (tip_frame
))
5221 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5222 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5223 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5225 if (EQ (frame
, last_frame
)
5226 && !NILP (Fequal (last_string
, string
))
5227 && !NILP (Fequal (last_parms
, parms
)))
5229 struct frame
*tip_f
= XFRAME (tip_frame
);
5231 /* Only DX and DY have changed. */
5232 if (!NILP (tip_timer
))
5234 Lisp_Object timer
= tip_timer
;
5236 call1 (Qcancel_timer
, timer
);
5240 compute_tip_xy (tip_f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (tip_f
),
5241 FRAME_PIXEL_HEIGHT (tip_f
), &root_x
, &root_y
);
5242 XMoveWindow (FRAME_X_DISPLAY (tip_f
), FRAME_X_WINDOW (tip_f
),
5249 /* Hide a previous tip, if any. */
5252 ASET (last_show_tip_args
, 0, string
);
5253 ASET (last_show_tip_args
, 1, frame
);
5254 ASET (last_show_tip_args
, 2, parms
);
5256 /* Add default values to frame parameters. */
5257 if (NILP (Fassq (Qname
, parms
)))
5258 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5259 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5260 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5261 if (NILP (Fassq (Qborder_width
, parms
)))
5262 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5263 if (NILP (Fassq (Qborder_color
, parms
)))
5264 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5265 if (NILP (Fassq (Qbackground_color
, parms
)))
5266 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5269 /* Create a frame for the tooltip, and record it in the global
5270 variable tip_frame. */
5271 frame
= x_create_tip_frame (FRAME_DISPLAY_INFO (f
), parms
, string
);
5274 /* Set up the frame's root window. */
5275 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5279 if (CONSP (Vx_max_tooltip_size
)
5280 && RANGED_INTEGERP (1, XCAR (Vx_max_tooltip_size
), INT_MAX
)
5281 && RANGED_INTEGERP (1, XCDR (Vx_max_tooltip_size
), INT_MAX
))
5283 w
->total_cols
= XFASTINT (XCAR (Vx_max_tooltip_size
));
5284 w
->total_lines
= XFASTINT (XCDR (Vx_max_tooltip_size
));
5289 w
->total_lines
= 40;
5292 FRAME_TOTAL_COLS (f
) = w
->total_cols
;
5293 adjust_frame_glyphs (f
);
5294 w
->pseudo_window_p
= 1;
5296 /* Display the tooltip text in a temporary buffer. */
5297 old_buffer
= current_buffer
;
5298 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->contents
));
5299 bset_truncate_lines (current_buffer
, Qnil
);
5300 clear_glyph_matrix (w
->desired_matrix
);
5301 clear_glyph_matrix (w
->current_matrix
);
5302 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5303 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5305 /* Compute width and height of the tooltip. */
5306 width
= height
= seen_reversed_p
= 0;
5307 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5309 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5313 /* Stop at the first empty row at the end. */
5314 if (!row
->enabled_p
|| !MATRIX_ROW_DISPLAYS_TEXT_P (row
))
5317 /* Let the row go over the full width of the frame. */
5318 row
->full_width_p
= 1;
5320 row_width
= row
->pixel_width
;
5321 if (row
->used
[TEXT_AREA
])
5323 /* There's a glyph at the end of rows that is used to place
5324 the cursor there. Don't include the width of this glyph. */
5325 if (!row
->reversed_p
)
5327 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5328 if (INTEGERP (last
->object
))
5329 row_width
-= last
->pixel_width
;
5333 /* There could be a stretch glyph at the beginning of R2L
5334 rows that is produced by extend_face_to_end_of_line.
5335 Don't count that glyph. */
5336 struct glyph
*g
= row
->glyphs
[TEXT_AREA
];
5338 if (g
->type
== STRETCH_GLYPH
&& INTEGERP (g
->object
))
5340 row_width
-= g
->pixel_width
;
5341 seen_reversed_p
= 1;
5346 height
+= row
->height
;
5347 width
= max (width
, row_width
);
5350 /* If we've seen partial-length R2L rows, we need to re-adjust the
5351 tool-tip frame width and redisplay it again, to avoid over-wide
5352 tips due to the stretch glyph that extends R2L lines to full
5353 width of the frame. */
5354 if (seen_reversed_p
)
5356 /* w->total_cols and FRAME_TOTAL_COLS want the width in columns,
5358 width
/= WINDOW_FRAME_COLUMN_WIDTH (w
);
5359 w
->total_cols
= width
;
5360 FRAME_TOTAL_COLS (f
) = width
;
5361 adjust_frame_glyphs (f
);
5362 clear_glyph_matrix (w
->desired_matrix
);
5363 clear_glyph_matrix (w
->current_matrix
);
5364 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5366 /* Recompute width and height of the tooltip. */
5367 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5369 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5373 if (!row
->enabled_p
|| !MATRIX_ROW_DISPLAYS_TEXT_P (row
))
5375 row
->full_width_p
= 1;
5376 row_width
= row
->pixel_width
;
5377 if (row
->used
[TEXT_AREA
] && !row
->reversed_p
)
5379 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5380 if (INTEGERP (last
->object
))
5381 row_width
-= last
->pixel_width
;
5384 height
+= row
->height
;
5385 width
= max (width
, row_width
);
5389 /* Add the frame's internal border to the width and height the X
5390 window should have. */
5391 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5392 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5394 /* Move the tooltip window where the mouse pointer is. Resize and
5396 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5399 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5400 root_x
, root_y
, width
, height
);
5401 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5404 /* Draw into the window. */
5405 w
->must_be_updated_p
= 1;
5406 update_single_window (w
, 1);
5408 /* Restore original current buffer. */
5409 set_buffer_internal_1 (old_buffer
);
5410 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5413 /* Let the tip disappear after timeout seconds. */
5414 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5415 intern ("x-hide-tip"));
5418 return unbind_to (count
, Qnil
);
5422 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5423 doc
: /* Hide the current tooltip window, if there is any.
5424 Value is t if tooltip was open, nil otherwise. */)
5428 Lisp_Object deleted
, frame
, timer
;
5429 struct gcpro gcpro1
, gcpro2
;
5431 /* Return quickly if nothing to do. */
5432 if (NILP (tip_timer
) && NILP (tip_frame
))
5437 GCPRO2 (frame
, timer
);
5438 tip_frame
= tip_timer
= deleted
= Qnil
;
5440 count
= SPECPDL_INDEX ();
5441 specbind (Qinhibit_redisplay
, Qt
);
5442 specbind (Qinhibit_quit
, Qt
);
5445 call1 (Qcancel_timer
, timer
);
5449 /* When using system tooltip, tip_frame is the Emacs frame on which
5450 the tip is shown. */
5451 struct frame
*f
= XFRAME (frame
);
5452 if (FRAME_LIVE_P (f
) && xg_hide_tooltip (f
))
5459 delete_frame (frame
, Qnil
);
5463 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5464 redisplay procedure is not called when a tip frame over menu
5465 items is unmapped. Redisplay the menu manually... */
5468 struct frame
*f
= SELECTED_FRAME ();
5469 w
= f
->output_data
.x
->menubar_widget
;
5471 if (!DoesSaveUnders (FRAME_DISPLAY_INFO (f
)->screen
)
5475 xlwmenu_redisplay (w
);
5479 #endif /* USE_LUCID */
5483 return unbind_to (count
, deleted
);
5488 /***********************************************************************
5489 File selection dialog
5490 ***********************************************************************/
5492 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5493 Sx_uses_old_gtk_dialog
,
5495 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5501 && window_system_available (SELECTED_FRAME ())
5502 && xg_uses_old_file_dialog ())
5510 /* Callback for "OK" and "Cancel" on file selection dialog. */
5513 file_dialog_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5515 int *result
= client_data
;
5516 XmAnyCallbackStruct
*cb
= call_data
;
5517 *result
= cb
->reason
;
5521 /* Callback for unmapping a file selection dialog. This is used to
5522 capture the case where a dialog is closed via a window manager's
5523 closer button, for example. Using a XmNdestroyCallback didn't work
5527 file_dialog_unmap_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5529 int *result
= client_data
;
5530 *result
= XmCR_CANCEL
;
5534 clean_up_file_dialog (void *arg
)
5536 Widget dialog
= arg
;
5540 XtUnmanageChild (dialog
);
5541 XtDestroyWidget (dialog
);
5542 x_menu_set_in_use (0);
5547 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5548 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5549 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5550 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5551 or directory must exist.
5553 This function is only defined on NS, MS Windows, and X Windows with the
5554 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5555 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5556 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
,
5557 Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5560 struct frame
*f
= SELECTED_FRAME ();
5561 Lisp_Object file
= Qnil
;
5562 Lisp_Object decoded_file
;
5563 Widget dialog
, text
, help
;
5566 XmString dir_xmstring
, pattern_xmstring
;
5567 ptrdiff_t count
= SPECPDL_INDEX ();
5568 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5570 check_window_system (f
);
5572 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5574 if (popup_activated ())
5575 error ("Trying to use a menu from within a menu-entry");
5577 CHECK_STRING (prompt
);
5580 /* Prevent redisplay. */
5581 specbind (Qinhibit_redisplay
, Qt
);
5585 /* Create the dialog with PROMPT as title, using DIR as initial
5586 directory and using "*" as pattern. */
5587 dir
= Fexpand_file_name (dir
, Qnil
);
5588 dir_xmstring
= XmStringCreateLocalized (SSDATA (dir
));
5589 pattern_xmstring
= XmStringCreateLocalized ("*");
5591 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5592 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5593 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5594 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5595 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5596 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5598 XmStringFree (dir_xmstring
);
5599 XmStringFree (pattern_xmstring
);
5601 /* Add callbacks for OK and Cancel. */
5602 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5603 (XtPointer
) &result
);
5604 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5605 (XtPointer
) &result
);
5606 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5607 (XtPointer
) &result
);
5609 /* Remove the help button since we can't display help. */
5610 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5611 XtUnmanageChild (help
);
5613 /* Mark OK button as default. */
5614 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5615 XmNshowAsDefault
, True
, NULL
);
5617 /* If MUSTMATCH is non-nil, disable the file entry field of the
5618 dialog, so that the user must select a file from the files list
5619 box. We can't remove it because we wouldn't have a way to get at
5620 the result file name, then. */
5621 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5622 if (!NILP (mustmatch
))
5625 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5626 XtSetSensitive (text
, False
);
5627 XtSetSensitive (label
, False
);
5630 /* Manage the dialog, so that list boxes get filled. */
5631 XtManageChild (dialog
);
5633 if (STRINGP (default_filename
))
5635 XmString default_xmstring
;
5636 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5637 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5639 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5640 XmTextFieldReplace (wtext
, 0, last_pos
,
5641 (SSDATA (Ffile_name_nondirectory (default_filename
))));
5643 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5644 must include the path for this to work. */
5646 default_xmstring
= XmStringCreateLocalized (SSDATA (default_filename
));
5648 if (XmListItemExists (list
, default_xmstring
))
5650 int item_pos
= XmListItemPos (list
, default_xmstring
);
5651 /* Select the item and scroll it into view. */
5652 XmListSelectPos (list
, item_pos
, True
);
5653 XmListSetPos (list
, item_pos
);
5656 XmStringFree (default_xmstring
);
5659 record_unwind_protect_ptr (clean_up_file_dialog
, dialog
);
5661 /* Process events until the user presses Cancel or OK. */
5662 x_menu_set_in_use (1);
5667 x_menu_wait_for_event (0);
5668 XtAppNextEvent (Xt_app_con
, &event
);
5669 if (event
.type
== KeyPress
5670 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5672 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5674 /* Pop down on C-g. */
5675 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5676 XtUnmanageChild (dialog
);
5679 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5682 /* Get the result. */
5683 if (result
== XmCR_OK
)
5685 XmString text_string
;
5688 XtVaGetValues (dialog
, XmNtextString
, &text_string
, NULL
);
5689 XmStringGetLtoR (text_string
, XmFONTLIST_DEFAULT_TAG
, &data
);
5690 XmStringFree (text_string
);
5691 file
= build_string (data
);
5700 /* Make "Cancel" equivalent to C-g. */
5702 Fsignal (Qquit
, Qnil
);
5704 decoded_file
= DECODE_FILE (file
);
5706 return unbind_to (count
, decoded_file
);
5709 #endif /* USE_MOTIF */
5714 clean_up_dialog (void)
5716 x_menu_set_in_use (0);
5719 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5720 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5721 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5722 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5723 or directory must exist.
5725 This function is only defined on NS, MS Windows, and X Windows with the
5726 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5727 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5728 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5730 struct frame
*f
= SELECTED_FRAME ();
5732 Lisp_Object file
= Qnil
;
5733 Lisp_Object decoded_file
;
5734 ptrdiff_t count
= SPECPDL_INDEX ();
5735 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5738 check_window_system (f
);
5740 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5742 if (popup_activated ())
5743 error ("Trying to use a menu from within a menu-entry");
5745 CHECK_STRING (prompt
);
5748 /* Prevent redisplay. */
5749 specbind (Qinhibit_redisplay
, Qt
);
5750 record_unwind_protect_void (clean_up_dialog
);
5754 if (STRINGP (default_filename
))
5755 cdef_file
= SSDATA (default_filename
);
5757 cdef_file
= SSDATA (dir
);
5759 fn
= xg_get_file_name (f
, SSDATA (prompt
), cdef_file
,
5761 ! NILP (only_dir_p
));
5765 file
= build_string (fn
);
5772 /* Make "Cancel" equivalent to C-g. */
5774 Fsignal (Qquit
, Qnil
);
5776 decoded_file
= DECODE_FILE (file
);
5778 return unbind_to (count
, decoded_file
);
5782 #ifdef HAVE_FREETYPE
5784 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5785 doc
: /* Read a font using a GTK dialog.
5786 Return either a font spec (for GTK versions >= 3.2) or a string
5787 containing a GTK-style font name.
5789 FRAME is the frame on which to pop up the font chooser. If omitted or
5790 nil, it defaults to the selected frame. */)
5791 (Lisp_Object frame
, Lisp_Object ignored
)
5793 struct frame
*f
= decode_window_system_frame (frame
);
5795 Lisp_Object font_param
;
5796 char *default_name
= NULL
;
5797 struct gcpro gcpro1
, gcpro2
;
5798 ptrdiff_t count
= SPECPDL_INDEX ();
5800 if (popup_activated ())
5801 error ("Trying to use a menu from within a menu-entry");
5803 /* Prevent redisplay. */
5804 specbind (Qinhibit_redisplay
, Qt
);
5805 record_unwind_protect_void (clean_up_dialog
);
5809 GCPRO2 (font_param
, font
);
5811 XSETFONT (font
, FRAME_FONT (f
));
5812 font_param
= Ffont_get (font
, intern (":name"));
5813 if (STRINGP (font_param
))
5814 default_name
= xstrdup (SSDATA (font_param
));
5817 font_param
= Fframe_parameter (frame
, Qfont_param
);
5818 if (STRINGP (font_param
))
5819 default_name
= xstrdup (SSDATA (font_param
));
5822 font
= xg_get_font (f
, default_name
);
5823 xfree (default_name
);
5828 Fsignal (Qquit
, Qnil
);
5830 return unbind_to (count
, font
);
5832 #endif /* HAVE_FREETYPE */
5834 #endif /* USE_GTK */
5837 /***********************************************************************
5839 ***********************************************************************/
5842 #include <X11/XKBlib.h>
5843 #include <X11/keysym.h>
5846 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5847 Sx_backspace_delete_keys_p
, 0, 1, 0,
5848 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5849 FRAME nil means use the selected frame.
5850 Value is t if we know that both keys are present, and are mapped to the
5851 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5852 present and mapped to the usual X keysyms. */)
5859 struct frame
*f
= decode_window_system_frame (frame
);
5860 Display
*dpy
= FRAME_X_DISPLAY (f
);
5861 Lisp_Object have_keys
;
5862 int major
, minor
, op
, event
, error_code
;
5866 /* Check library version in case we're dynamically linked. */
5867 major
= XkbMajorVersion
;
5868 minor
= XkbMinorVersion
;
5869 if (!XkbLibraryVersion (&major
, &minor
))
5875 /* Check that the server supports XKB. */
5876 major
= XkbMajorVersion
;
5877 minor
= XkbMinorVersion
;
5878 if (!XkbQueryExtension (dpy
, &op
, &event
, &error_code
, &major
, &minor
))
5884 /* In this code we check that the keyboard has physical keys with names
5885 that start with BKSP (Backspace) and DELE (Delete), and that they
5886 generate keysym XK_BackSpace and XK_Delete respectively.
5887 This function is used to test if normal-erase-is-backspace should be
5889 An alternative approach would be to just check if XK_BackSpace and
5890 XK_Delete are mapped to any key. But if any of those are mapped to
5891 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5892 user doesn't know about it, it is better to return false here.
5893 It is more obvious to the user what to do if she/he has two keys
5894 clearly marked with names/symbols and one key does something not
5895 expected (i.e. she/he then tries the other).
5896 The cases where Backspace/Delete is mapped to some other key combination
5897 are rare, and in those cases, normal-erase-is-backspace can be turned on
5901 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5904 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5906 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5908 for (i
= kb
->min_key_code
;
5909 (i
< kb
->max_key_code
5910 && (delete_keycode
== 0 || backspace_keycode
== 0));
5913 /* The XKB symbolic key names can be seen most easily in
5914 the PS file generated by `xkbprint -label name
5916 if (memcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5918 else if (memcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5919 backspace_keycode
= i
;
5922 XkbFreeNames (kb
, 0, True
);
5925 XkbFreeClientMap (kb
, 0, True
);
5928 && backspace_keycode
5929 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5930 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5940 /***********************************************************************
5942 ***********************************************************************/
5944 /* Keep this list in the same order as frame_parms in frame.c.
5945 Use 0 for unsupported frame parameters. */
5947 frame_parm_handler x_frame_parm_handlers
[] =
5951 x_set_background_color
,
5957 x_set_foreground_color
,
5960 x_set_internal_border_width
,
5961 x_set_menu_bar_lines
,
5963 x_explicitly_set_name
,
5964 x_set_scroll_bar_width
,
5967 x_set_vertical_scroll_bars
,
5969 x_set_tool_bar_lines
,
5970 x_set_scroll_bar_foreground
,
5971 x_set_scroll_bar_background
,
5981 x_set_tool_bar_position
,
5987 /* The section below is built by the lisp expression at the top of the file,
5988 just above where these variables are declared. */
5989 /*&&& init symbols here &&&*/
5990 DEFSYM (Qsuppress_icon
, "suppress-icon");
5991 DEFSYM (Qundefined_color
, "undefined-color");
5992 DEFSYM (Qcompound_text
, "compound-text");
5993 DEFSYM (Qcancel_timer
, "cancel-timer");
5994 DEFSYM (Qfont_param
, "font-parameter");
5995 /* This is the end of symbol initialization. */
5997 Fput (Qundefined_color
, Qerror_conditions
,
5998 listn (CONSTYPE_PURE
, 2, Qundefined_color
, Qerror
));
5999 Fput (Qundefined_color
, Qerror_message
,
6000 build_pure_c_string ("Undefined color"));
6002 DEFVAR_LISP ("x-pointer-shape", Vx_pointer_shape
,
6003 doc
: /* The shape of the pointer when over text.
6004 Changing the value does not affect existing frames
6005 unless you set the mouse color. */);
6006 Vx_pointer_shape
= Qnil
;
6008 #if 0 /* This doesn't really do anything. */
6009 DEFVAR_LISP ("x-nontext-pointer-shape", Vx_nontext_pointer_shape
,
6010 doc
: /* The shape of the pointer when not over text.
6011 This variable takes effect when you create a new frame
6012 or when you set the mouse color. */);
6014 Vx_nontext_pointer_shape
= Qnil
;
6016 DEFVAR_LISP ("x-hourglass-pointer-shape", Vx_hourglass_pointer_shape
,
6017 doc
: /* The shape of the pointer when Emacs is busy.
6018 This variable takes effect when you create a new frame
6019 or when you set the mouse color. */);
6020 Vx_hourglass_pointer_shape
= Qnil
;
6022 #if 0 /* This doesn't really do anything. */
6023 DEFVAR_LISP ("x-mode-pointer-shape", Vx_mode_pointer_shape
,
6024 doc
: /* The shape of the pointer when over the mode line.
6025 This variable takes effect when you create a new frame
6026 or when you set the mouse color. */);
6028 Vx_mode_pointer_shape
= Qnil
;
6030 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
6031 Vx_sensitive_text_pointer_shape
,
6032 doc
: /* The shape of the pointer when over mouse-sensitive text.
6033 This variable takes effect when you create a new frame
6034 or when you set the mouse color. */);
6035 Vx_sensitive_text_pointer_shape
= Qnil
;
6037 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
6038 Vx_window_horizontal_drag_shape
,
6039 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
6040 This variable takes effect when you create a new frame
6041 or when you set the mouse color. */);
6042 Vx_window_horizontal_drag_shape
= Qnil
;
6044 DEFVAR_LISP ("x-cursor-fore-pixel", Vx_cursor_fore_pixel
,
6045 doc
: /* A string indicating the foreground color of the cursor box. */);
6046 Vx_cursor_fore_pixel
= Qnil
;
6048 DEFVAR_LISP ("x-max-tooltip-size", Vx_max_tooltip_size
,
6049 doc
: /* Maximum size for tooltips.
6050 Value is a pair (COLUMNS . ROWS). Text larger than this is clipped. */);
6051 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
6053 DEFVAR_LISP ("x-no-window-manager", Vx_no_window_manager
,
6054 doc
: /* Non-nil if no X window manager is in use.
6055 Emacs doesn't try to figure this out; this is always nil
6056 unless you set it to something else. */);
6057 /* We don't have any way to find this out, so set it to nil
6058 and maybe the user would like to set it to t. */
6059 Vx_no_window_manager
= Qnil
;
6061 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
6062 Vx_pixel_size_width_font_regexp
,
6063 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
6065 Since Emacs gets width of a font matching with this regexp from
6066 PIXEL_SIZE field of the name, font finding mechanism gets faster for
6067 such a font. This is especially effective for such large fonts as
6068 Chinese, Japanese, and Korean. */);
6069 Vx_pixel_size_width_font_regexp
= Qnil
;
6071 /* This is not ifdef:ed, so other builds than GTK can customize it. */
6072 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", x_gtk_use_old_file_dialog
,
6073 doc
: /* Non-nil means prompt with the old GTK file selection dialog.
6074 If nil or if the file selection dialog is not available, the new GTK file
6075 chooser is used instead. To turn off all file dialogs set the
6076 variable `use-file-dialog'. */);
6077 x_gtk_use_old_file_dialog
= 0;
6079 DEFVAR_BOOL ("x-gtk-show-hidden-files", x_gtk_show_hidden_files
,
6080 doc
: /* If non-nil, the GTK file chooser will by default show hidden files.
6081 Note that this is just the default, there is a toggle button on the file
6082 chooser to show or not show hidden files on a case by case basis. */);
6083 x_gtk_show_hidden_files
= 0;
6085 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", x_gtk_file_dialog_help_text
,
6086 doc
: /* If non-nil, the GTK file chooser will show additional help text.
6087 If more space for files in the file chooser dialog is wanted, set this to nil
6088 to turn the additional text off. */);
6089 x_gtk_file_dialog_help_text
= 1;
6091 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", x_gtk_whole_detached_tool_bar
,
6092 doc
: /* If non-nil, a detached tool bar is shown in full.
6093 The default is to just show an arrow and pressing on that arrow shows
6094 the tool bar buttons. */);
6095 x_gtk_whole_detached_tool_bar
= 0;
6097 DEFVAR_BOOL ("x-gtk-use-system-tooltips", x_gtk_use_system_tooltips
,
6098 doc
: /* If non-nil with a Gtk+ built Emacs, the Gtk+ tooltip is used.
6099 Otherwise use Emacs own tooltip implementation.
6100 When using Gtk+ tooltips, the tooltip face is not used. */);
6101 x_gtk_use_system_tooltips
= 1;
6103 /* Tell Emacs about this window system. */
6104 Fprovide (Qx
, Qnil
);
6106 #ifdef USE_X_TOOLKIT
6107 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6109 Fprovide (intern_c_string ("motif"), Qnil
);
6111 DEFVAR_LISP ("motif-version-string", Vmotif_version_string
,
6112 doc
: /* Version info for LessTif/Motif. */);
6113 Vmotif_version_string
= build_string (XmVERSION_STRING
);
6114 #endif /* USE_MOTIF */
6115 #endif /* USE_X_TOOLKIT */
6118 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
6119 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
6120 But for a user it is a toolkit for X, and indeed, configure
6121 accepts --with-x-toolkit=gtk. */
6122 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6123 Fprovide (intern_c_string ("gtk"), Qnil
);
6124 Fprovide (intern_c_string ("move-toolbar"), Qnil
);
6126 DEFVAR_LISP ("gtk-version-string", Vgtk_version_string
,
6127 doc
: /* Version info for GTK+. */);
6129 char gtk_version
[sizeof ".." + 3 * INT_STRLEN_BOUND (int)];
6130 int len
= sprintf (gtk_version
, "%d.%d.%d",
6131 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
6132 Vgtk_version_string
= make_pure_string (gtk_version
, len
, len
, 0);
6134 #endif /* USE_GTK */
6136 /* X window properties. */
6137 defsubr (&Sx_change_window_property
);
6138 defsubr (&Sx_delete_window_property
);
6139 defsubr (&Sx_window_property
);
6141 defsubr (&Sxw_display_color_p
);
6142 defsubr (&Sx_display_grayscale_p
);
6143 defsubr (&Sxw_color_defined_p
);
6144 defsubr (&Sxw_color_values
);
6145 defsubr (&Sx_server_max_request_size
);
6146 defsubr (&Sx_server_vendor
);
6147 defsubr (&Sx_server_version
);
6148 defsubr (&Sx_display_pixel_width
);
6149 defsubr (&Sx_display_pixel_height
);
6150 defsubr (&Sx_display_mm_width
);
6151 defsubr (&Sx_display_mm_height
);
6152 defsubr (&Sx_display_screens
);
6153 defsubr (&Sx_display_planes
);
6154 defsubr (&Sx_display_color_cells
);
6155 defsubr (&Sx_display_visual_class
);
6156 defsubr (&Sx_display_backing_store
);
6157 defsubr (&Sx_display_save_under
);
6158 defsubr (&Sx_display_monitor_attributes_list
);
6159 defsubr (&Sx_wm_set_size_hint
);
6160 defsubr (&Sx_create_frame
);
6161 defsubr (&Sx_open_connection
);
6162 defsubr (&Sx_close_connection
);
6163 defsubr (&Sx_display_list
);
6164 defsubr (&Sx_synchronize
);
6165 defsubr (&Sx_backspace_delete_keys_p
);
6167 defsubr (&Sx_show_tip
);
6168 defsubr (&Sx_hide_tip
);
6170 staticpro (&tip_timer
);
6172 staticpro (&tip_frame
);
6174 last_show_tip_args
= Qnil
;
6175 staticpro (&last_show_tip_args
);
6177 defsubr (&Sx_uses_old_gtk_dialog
);
6178 #if defined (USE_MOTIF) || defined (USE_GTK)
6179 defsubr (&Sx_file_dialog
);
6182 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
6183 defsubr (&Sx_select_font
);