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
, vertical_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 if (!NILP (Vx_window_vertical_drag_shape
))
693 CHECK_NUMBER (Vx_window_vertical_drag_shape
);
695 = XCreateFontCursor (dpy
, XINT (Vx_window_vertical_drag_shape
));
699 = XCreateFontCursor (dpy
, XC_sb_v_double_arrow
);
701 /* Check and report errors with the above calls. */
702 x_check_errors (dpy
, "can't set cursor shape: %s");
706 XColor fore_color
, back_color
;
708 fore_color
.pixel
= x
->mouse_pixel
;
709 x_query_color (f
, &fore_color
);
710 back_color
.pixel
= mask_color
;
711 x_query_color (f
, &back_color
);
713 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
714 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
715 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
716 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
717 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
718 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
721 if (FRAME_X_WINDOW (f
) != 0)
722 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
723 f
->output_data
.x
->current_cursor
= cursor
);
725 if (FRAME_DISPLAY_INFO (f
)->invisible_cursor
== 0)
726 FRAME_DISPLAY_INFO (f
)->invisible_cursor
= make_invisible_cursor (f
);
728 if (cursor
!= x
->text_cursor
729 && x
->text_cursor
!= 0)
730 XFreeCursor (dpy
, x
->text_cursor
);
731 x
->text_cursor
= cursor
;
733 if (nontext_cursor
!= x
->nontext_cursor
734 && x
->nontext_cursor
!= 0)
735 XFreeCursor (dpy
, x
->nontext_cursor
);
736 x
->nontext_cursor
= nontext_cursor
;
738 if (hourglass_cursor
!= x
->hourglass_cursor
739 && x
->hourglass_cursor
!= 0)
740 XFreeCursor (dpy
, x
->hourglass_cursor
);
741 x
->hourglass_cursor
= hourglass_cursor
;
743 if (mode_cursor
!= x
->modeline_cursor
744 && x
->modeline_cursor
!= 0)
745 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
746 x
->modeline_cursor
= mode_cursor
;
748 if (hand_cursor
!= x
->hand_cursor
749 && x
->hand_cursor
!= 0)
750 XFreeCursor (dpy
, x
->hand_cursor
);
751 x
->hand_cursor
= hand_cursor
;
753 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
754 && x
->horizontal_drag_cursor
!= 0)
755 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
756 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
758 if (vertical_drag_cursor
!= x
->vertical_drag_cursor
759 && x
->vertical_drag_cursor
!= 0)
760 XFreeCursor (dpy
, x
->vertical_drag_cursor
);
761 x
->vertical_drag_cursor
= vertical_drag_cursor
;
766 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
770 x_set_cursor_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
772 unsigned long fore_pixel
, pixel
;
773 bool fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
774 struct x_output
*x
= f
->output_data
.x
;
776 if (!NILP (Vx_cursor_fore_pixel
))
778 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
779 WHITE_PIX_DEFAULT (f
));
780 fore_pixel_allocated_p
= 1;
783 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
785 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
786 pixel_allocated_p
= 1;
788 /* Make sure that the cursor color differs from the background color. */
789 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
791 if (pixel_allocated_p
)
793 x_free_colors (f
, &pixel
, 1);
794 pixel_allocated_p
= 0;
797 pixel
= x
->mouse_pixel
;
798 if (pixel
== fore_pixel
)
800 if (fore_pixel_allocated_p
)
802 x_free_colors (f
, &fore_pixel
, 1);
803 fore_pixel_allocated_p
= 0;
805 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
809 unload_color (f
, x
->cursor_foreground_pixel
);
810 if (!fore_pixel_allocated_p
)
811 fore_pixel
= x_copy_color (f
, fore_pixel
);
812 x
->cursor_foreground_pixel
= fore_pixel
;
814 unload_color (f
, x
->cursor_pixel
);
815 if (!pixel_allocated_p
)
816 pixel
= x_copy_color (f
, pixel
);
817 x
->cursor_pixel
= pixel
;
819 if (FRAME_X_WINDOW (f
) != 0)
822 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
823 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
826 if (FRAME_VISIBLE_P (f
))
828 x_update_cursor (f
, 0);
829 x_update_cursor (f
, 1);
833 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
836 /* Set the border-color of frame F to pixel value PIX.
837 Note that this does not fully take effect if done before
838 F has an x-window. */
841 x_set_border_pixel (struct frame
*f
, int pix
)
843 unload_color (f
, f
->output_data
.x
->border_pixel
);
844 f
->output_data
.x
->border_pixel
= pix
;
846 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
849 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), pix
);
852 if (FRAME_VISIBLE_P (f
))
857 /* Set the border-color of frame F to value described by ARG.
858 ARG can be a string naming a color.
859 The border-color is used for the border that is drawn by the X server.
860 Note that this does not fully take effect if done before
861 F has an x-window; it must be redone when the window is created.
863 Note: this is done in two routines because of the way X10 works.
865 Note: under X11, this is normally the province of the window manager,
866 and so emacs's border colors may be overridden. */
869 x_set_border_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
874 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
875 x_set_border_pixel (f
, pix
);
876 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
881 x_set_cursor_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
883 set_frame_cursor_types (f
, arg
);
887 x_set_icon_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
893 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
896 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
901 result
= x_text_icon (f
,
902 SSDATA ((!NILP (f
->icon_name
)
906 result
= x_bitmap_icon (f
, arg
);
911 error ("No icon window available");
914 XFlush (FRAME_X_DISPLAY (f
));
919 x_set_icon_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
925 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
928 else if (!NILP (arg
) || NILP (oldval
))
931 fset_icon_name (f
, arg
);
933 if (f
->output_data
.x
->icon_bitmap
!= 0)
938 result
= x_text_icon (f
,
939 SSDATA ((!NILP (f
->icon_name
)
948 error ("No icon window available");
951 XFlush (FRAME_X_DISPLAY (f
));
957 x_set_menu_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
960 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
961 int olines
= FRAME_MENU_BAR_LINES (f
);
964 /* Right now, menu bars don't work properly in minibuf-only frames;
965 most of the commands try to apply themselves to the minibuffer
966 frame itself, and get an error because you can't switch buffers
967 in or split the minibuffer window. */
968 if (FRAME_MINIBUF_ONLY_P (f
))
971 if (TYPE_RANGED_INTEGERP (int, value
))
972 nlines
= XINT (value
);
976 /* Make sure we redisplay all windows in this frame. */
977 windows_or_buffers_changed
= 59;
979 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
980 FRAME_MENU_BAR_LINES (f
) = 0;
981 FRAME_MENU_BAR_HEIGHT (f
) = 0;
984 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
985 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
986 /* Make sure next redisplay shows the menu bar. */
987 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= 1;
991 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
992 free_frame_menubar (f
);
993 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
995 f
->output_data
.x
->menubar_widget
= 0;
997 #else /* not USE_X_TOOLKIT && not USE_GTK */
998 FRAME_MENU_BAR_LINES (f
) = nlines
;
999 FRAME_MENU_BAR_HEIGHT (f
) = nlines
* FRAME_LINE_HEIGHT (f
);
1000 resize_frame_windows (f
, FRAME_LINES (f
), 0, 0);
1002 /* If the menu bar height gets changed, the internal border below
1003 the top margin has to be cleared. Also, if the menu bar gets
1004 larger, the area for the added lines has to be cleared except for
1005 the first menu bar line that is to be drawn later. */
1006 if (nlines
!= olines
)
1008 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1009 int width
= FRAME_PIXEL_WIDTH (f
);
1012 /* height can be zero here. */
1013 if (FRAME_X_WINDOW (f
) && height
> 0 && width
> 0)
1015 y
= FRAME_TOP_MARGIN_HEIGHT (f
);
1018 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1019 0, y
, width
, height
);
1023 if (nlines
> 1 && nlines
> olines
)
1025 y
= (olines
== 0 ? 1 : olines
) * FRAME_LINE_HEIGHT (f
);
1026 height
= nlines
* FRAME_LINE_HEIGHT (f
) - y
;
1029 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1030 0, y
, width
, height
);
1034 if (nlines
== 0 && WINDOWP (f
->menu_bar_window
))
1035 clear_glyph_matrix (XWINDOW (f
->menu_bar_window
)->current_matrix
);
1037 #endif /* not USE_X_TOOLKIT && not USE_GTK */
1038 adjust_frame_glyphs (f
);
1039 run_window_configuration_change_hook (f
);
1043 /* Set the number of lines used for the tool bar of frame F to VALUE.
1044 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1045 is the old number of tool bar lines. This function changes the
1046 height of all windows on frame F to match the new tool bar height.
1047 The frame's height doesn't change. */
1050 x_set_tool_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1053 #if ! defined (USE_GTK)
1054 int delta
, root_height
;
1055 Lisp_Object root_window
;
1058 /* Treat tool bars like menu bars. */
1059 if (FRAME_MINIBUF_ONLY_P (f
))
1062 /* Use VALUE only if an int >= 0. */
1063 if (RANGED_INTEGERP (0, value
, INT_MAX
))
1064 nlines
= XFASTINT (value
);
1070 FRAME_TOOL_BAR_LINES (f
) = 0;
1071 FRAME_TOOL_BAR_HEIGHT (f
) = 0;
1074 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1075 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1076 /* Make sure next redisplay shows the tool bar. */
1077 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= 1;
1078 update_frame_tool_bar (f
);
1082 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1083 free_frame_tool_bar (f
);
1084 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1087 #else /* !USE_GTK */
1089 /* Make sure we redisplay all windows in this frame. */
1090 windows_or_buffers_changed
= 60;
1092 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1094 /* Don't resize the tool-bar to more than we have room for. */
1095 root_window
= FRAME_ROOT_WINDOW (f
);
1096 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1097 if (root_height
- delta
< 1)
1099 delta
= root_height
- 1;
1100 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1103 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1104 FRAME_TOOL_BAR_HEIGHT (f
) = nlines
* FRAME_LINE_HEIGHT (f
);
1105 resize_frame_windows (f
, FRAME_LINES (f
), 0, 0);
1106 adjust_frame_glyphs (f
);
1108 /* We also have to make sure that the internal border at the top of
1109 the frame, below the menu bar or tool bar, is redrawn when the
1110 tool bar disappears. This is so because the internal border is
1111 below the tool bar if one is displayed, but is below the menu bar
1112 if there isn't a tool bar. The tool bar draws into the area
1113 below the menu bar. */
1114 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_HEIGHT (f
) == 0)
1117 clear_current_matrices (f
);
1120 /* If the tool bar gets smaller, the internal border below it
1121 has to be cleared. It was formerly part of the display
1122 of the larger tool bar, and updating windows won't clear it. */
1125 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1126 int width
= FRAME_PIXEL_WIDTH (f
);
1127 int y
= (FRAME_MENU_BAR_LINES (f
) + nlines
) * FRAME_LINE_HEIGHT (f
);
1129 /* height can be zero here. */
1130 if (height
> 0 && width
> 0)
1133 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1134 0, y
, width
, height
);
1138 if (WINDOWP (f
->tool_bar_window
))
1139 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1142 run_window_configuration_change_hook (f
);
1143 #endif /* USE_GTK */
1147 /* Set the foreground color for scroll bars on frame F to VALUE.
1148 VALUE should be a string, a color name. If it isn't a string or
1149 isn't a valid color name, do nothing. OLDVAL is the old value of
1150 the frame parameter. */
1153 x_set_scroll_bar_foreground (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1155 unsigned long pixel
;
1157 if (STRINGP (value
))
1158 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1162 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1163 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1165 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1166 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1168 /* Remove all scroll bars because they have wrong colors. */
1169 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1170 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1171 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1172 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1174 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1180 /* Set the background color for scroll bars on frame F to VALUE VALUE
1181 should be a string, a color name. If it isn't a string or isn't a
1182 valid color name, do nothing. OLDVAL is the old value of the frame
1186 x_set_scroll_bar_background (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1188 unsigned long pixel
;
1190 if (STRINGP (value
))
1191 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1195 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1196 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1198 #ifdef USE_TOOLKIT_SCROLL_BARS
1199 /* Scrollbar shadow colors. */
1200 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1202 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1203 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1205 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1207 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1208 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1210 #endif /* USE_TOOLKIT_SCROLL_BARS */
1212 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1213 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1215 /* Remove all scroll bars because they have wrong colors. */
1216 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1217 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1218 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1219 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1221 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1227 /* Encode Lisp string STRING as a text in a format appropriate for
1228 XICCC (X Inter Client Communication Conventions).
1230 This can call Lisp code, so callers must GCPRO.
1232 If STRING contains only ASCII characters, do no conversion and
1233 return the string data of STRING. Otherwise, encode the text by
1234 CODING_SYSTEM, and return a newly allocated memory area which
1235 should be freed by `xfree' by a caller.
1237 SELECTIONP non-zero means the string is being encoded for an X
1238 selection, so it is safe to run pre-write conversions (which
1241 Store the byte length of resulting text in *TEXT_BYTES.
1243 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1244 which means that the `encoding' of the result can be `STRING'.
1245 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1246 the result should be `COMPOUND_TEXT'. */
1248 static unsigned char *
1249 x_encode_text (Lisp_Object string
, Lisp_Object coding_system
, int selectionp
,
1250 ptrdiff_t *text_bytes
, int *stringp
, int *freep
)
1252 int result
= string_xstring_p (string
);
1253 struct coding_system coding
;
1257 /* No multibyte character in OBJ. We need not encode it. */
1258 *text_bytes
= SBYTES (string
);
1261 return SDATA (string
);
1264 setup_coding_system (coding_system
, &coding
);
1265 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1266 /* We suppress producing escape sequences for composition. */
1267 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1268 coding
.destination
= xnmalloc (SCHARS (string
), 2);
1269 coding
.dst_bytes
= SCHARS (string
) * 2;
1270 encode_coding_object (&coding
, string
, 0, 0,
1271 SCHARS (string
), SBYTES (string
), Qnil
);
1272 *text_bytes
= coding
.produced
;
1273 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1275 return coding
.destination
;
1279 /* Set the WM name to NAME for frame F. Also set the icon name.
1280 If the frame already has an icon name, use that, otherwise set the
1281 icon name to NAME. */
1284 x_set_name_internal (struct frame
*f
, Lisp_Object name
)
1286 if (FRAME_X_WINDOW (f
))
1290 XTextProperty text
, icon
;
1293 int do_free_icon_value
= 0, do_free_text_value
= 0;
1294 Lisp_Object coding_system
;
1295 Lisp_Object encoded_name
;
1296 Lisp_Object encoded_icon_name
;
1297 struct gcpro gcpro1
;
1299 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1300 we use it before x_encode_text that may return string data. */
1302 encoded_name
= ENCODE_UTF_8 (name
);
1305 coding_system
= Qcompound_text
;
1306 /* Note: Encoding strategy
1308 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1309 text.encoding. But, there are non-internationalized window
1310 managers which don't support that encoding. So, if NAME
1311 contains only ASCII and 8859-1 characters, encode it by
1312 iso-latin-1, and use "STRING" in text.encoding hoping that
1313 such window managers at least analyze this format correctly,
1314 i.e. treat 8-bit bytes as 8859-1 characters.
1316 We may also be able to use "UTF8_STRING" in text.encoding
1317 in the future which can encode all Unicode characters.
1318 But, for the moment, there's no way to know that the
1319 current window manager supports it or not.
1321 Either way, we also set the _NET_WM_NAME and _NET_WM_ICON_NAME
1322 properties. Per the EWMH specification, those two properties
1323 are always UTF8_STRING. This matches what gtk_window_set_title()
1324 does in the USE_GTK case. */
1325 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1326 &do_free_text_value
);
1327 text
.encoding
= (stringp
? XA_STRING
1328 : FRAME_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1330 text
.nitems
= bytes
;
1331 if (text
.nitems
!= bytes
)
1332 error ("Window name too large");
1334 if (!STRINGP (f
->icon_name
))
1337 encoded_icon_name
= encoded_name
;
1341 /* See the above comment "Note: Encoding strategy". */
1342 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1343 &bytes
, &stringp
, &do_free_icon_value
);
1344 icon
.encoding
= (stringp
? XA_STRING
1345 : FRAME_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1347 icon
.nitems
= bytes
;
1348 if (icon
.nitems
!= bytes
)
1349 error ("Icon name too large");
1351 encoded_icon_name
= ENCODE_UTF_8 (f
->icon_name
);
1355 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1356 SSDATA (encoded_name
));
1357 #else /* not USE_GTK */
1358 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1359 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1360 FRAME_DISPLAY_INFO (f
)->Xatom_net_wm_name
,
1361 FRAME_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1363 SDATA (encoded_name
),
1364 SBYTES (encoded_name
));
1365 #endif /* not USE_GTK */
1367 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1368 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1369 FRAME_DISPLAY_INFO (f
)->Xatom_net_wm_icon_name
,
1370 FRAME_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1372 SDATA (encoded_icon_name
),
1373 SBYTES (encoded_icon_name
));
1375 if (do_free_icon_value
)
1377 if (do_free_text_value
)
1384 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1387 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1388 name; if NAME is a string, set F's name to NAME and set
1389 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1391 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1392 suggesting a new name, which lisp code should override; if
1393 F->explicit_name is set, ignore the new name; otherwise, set it. */
1396 x_set_name (struct frame
*f
, Lisp_Object name
, int explicit)
1398 /* Make sure that requests from lisp code override requests from
1399 Emacs redisplay code. */
1402 /* If we're switching from explicit to implicit, we had better
1403 update the mode lines and thereby update the title. */
1404 if (f
->explicit_name
&& NILP (name
))
1405 update_mode_lines
= 37;
1407 f
->explicit_name
= ! NILP (name
);
1409 else if (f
->explicit_name
)
1412 /* If NAME is nil, set the name to the x_id_name. */
1415 /* Check for no change needed in this very common case
1416 before we do any consing. */
1417 if (!strcmp (FRAME_DISPLAY_INFO (f
)->x_id_name
,
1420 name
= build_string (FRAME_DISPLAY_INFO (f
)->x_id_name
);
1423 CHECK_STRING (name
);
1425 /* Don't change the name if it's already NAME. */
1426 if (! NILP (Fstring_equal (name
, f
->name
)))
1429 fset_name (f
, name
);
1431 /* For setting the frame title, the title parameter should override
1432 the name parameter. */
1433 if (! NILP (f
->title
))
1436 x_set_name_internal (f
, name
);
1439 /* This function should be called when the user's lisp code has
1440 specified a name for the frame; the name will override any set by the
1443 x_explicitly_set_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1445 x_set_name (f
, arg
, 1);
1448 /* This function should be called by Emacs redisplay code to set the
1449 name; names set this way will never override names set by the user's
1452 x_implicitly_set_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1454 x_set_name (f
, arg
, 0);
1457 /* Change the title of frame F to NAME.
1458 If NAME is nil, use the frame name as the title. */
1461 x_set_title (struct frame
*f
, Lisp_Object name
, Lisp_Object old_name
)
1463 /* Don't change the title if it's already NAME. */
1464 if (EQ (name
, f
->title
))
1467 update_mode_lines
= 38;
1469 fset_title (f
, name
);
1474 CHECK_STRING (name
);
1476 x_set_name_internal (f
, name
);
1480 x_set_scroll_bar_default_width (struct frame
*f
)
1482 int wid
= FRAME_COLUMN_WIDTH (f
);
1483 #ifdef USE_TOOLKIT_SCROLL_BARS
1485 int minw
= xg_get_default_scrollbar_width ();
1489 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1490 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (minw
+ wid
- 1) / wid
;
1491 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = minw
;
1493 /* Make the actual width 16 pixels and a multiple of a
1495 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (16 + wid
- 1) / wid
;
1497 /* Use all of that space (aside from required margins) for the
1499 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 16;
1504 /* Record in frame F the specified or default value according to ALIST
1505 of the parameter named PROP (a Lisp symbol). If no value is
1506 specified for PROP, look for an X default for XPROP on the frame
1507 named NAME. If that is not found either, use the value DEFLT. */
1510 x_default_scroll_bar_color_parameter (struct frame
*f
,
1511 Lisp_Object alist
, Lisp_Object prop
,
1512 const char *xprop
, const char *xclass
,
1515 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
1518 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1519 if (EQ (tem
, Qunbound
))
1521 #ifdef USE_TOOLKIT_SCROLL_BARS
1523 /* See if an X resource for the scroll bar color has been
1525 tem
= display_x_get_resource (dpyinfo
,
1526 build_string (foreground_p
1529 empty_unibyte_string
,
1530 build_string ("verticalScrollBar"),
1531 empty_unibyte_string
);
1534 /* If nothing has been specified, scroll bars will use a
1535 toolkit-dependent default. Because these defaults are
1536 difficult to get at without actually creating a scroll
1537 bar, use nil to indicate that no color has been
1542 #else /* not USE_TOOLKIT_SCROLL_BARS */
1546 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1549 x_set_frame_parameters (f
, list1 (Fcons (prop
, tem
)));
1556 #ifdef USE_X_TOOLKIT
1558 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1559 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1560 already be present because of the toolkit (Motif adds some of them,
1561 for example, but Xt doesn't). */
1564 hack_wm_protocols (struct frame
*f
, Widget widget
)
1566 Display
*dpy
= XtDisplay (widget
);
1567 Window w
= XtWindow (widget
);
1568 int need_delete
= 1;
1575 unsigned char *catoms
;
1577 unsigned long nitems
= 0;
1578 unsigned long bytes_after
;
1580 if ((XGetWindowProperty (dpy
, w
,
1581 FRAME_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1582 (long)0, (long)100, False
, XA_ATOM
,
1583 &type
, &format
, &nitems
, &bytes_after
,
1586 && format
== 32 && type
== XA_ATOM
)
1588 Atom
*atoms
= (Atom
*) catoms
;
1593 == FRAME_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1595 else if (atoms
[nitems
]
1596 == FRAME_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1598 else if (atoms
[nitems
]
1599 == FRAME_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1610 props
[count
++] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1612 props
[count
++] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1614 props
[count
++] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1616 XChangeProperty (dpy
, w
, FRAME_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1617 XA_ATOM
, 32, PropModeAppend
,
1618 (unsigned char *) props
, count
);
1626 /* Support routines for XIC (X Input Context). */
1630 static XFontSet
xic_create_xfontset (struct frame
*);
1631 static XIMStyle
best_xim_style (XIMStyles
*, XIMStyles
*);
1634 /* Supported XIM styles, ordered by preference. */
1636 static XIMStyle supported_xim_styles
[] =
1638 XIMPreeditPosition
| XIMStatusArea
,
1639 XIMPreeditPosition
| XIMStatusNothing
,
1640 XIMPreeditPosition
| XIMStatusNone
,
1641 XIMPreeditNothing
| XIMStatusArea
,
1642 XIMPreeditNothing
| XIMStatusNothing
,
1643 XIMPreeditNothing
| XIMStatusNone
,
1644 XIMPreeditNone
| XIMStatusArea
,
1645 XIMPreeditNone
| XIMStatusNothing
,
1646 XIMPreeditNone
| XIMStatusNone
,
1651 #if defined HAVE_X_WINDOWS && defined USE_X_TOOLKIT
1652 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1654 static const char xic_default_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1656 /* Create an Xt fontset spec from the name of a base font.
1657 If `motif' is True use the Motif syntax. */
1659 xic_create_fontsetname (const char *base_fontname
, int motif
)
1661 const char *sep
= motif
? ";" : ",";
1664 /* Make a fontset name from the base font name. */
1665 if (xic_default_fontset
== base_fontname
)
1667 /* There is no base font name, use the default. */
1668 fontsetname
= xmalloc (strlen (base_fontname
) + 2);
1669 strcpy (fontsetname
, base_fontname
);
1673 /* Make a fontset name from the base font name.
1674 The font set will be made of the following elements:
1676 - the base font where the charset spec is replaced by -*-*.
1677 - the same but with the family also replaced with -*-*-. */
1678 const char *p
= base_fontname
;
1681 for (i
= 0; *p
; p
++)
1685 /* As the font name doesn't conform to XLFD, we can't
1686 modify it to generalize it to allcs and allfamilies.
1687 Use the specified font plus the default. */
1688 fontsetname
= xmalloc (strlen (base_fontname
)
1689 + strlen (xic_default_fontset
) + 3);
1690 strcpy (fontsetname
, base_fontname
);
1691 strcat (fontsetname
, sep
);
1692 strcat (fontsetname
, xic_default_fontset
);
1697 const char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1698 char *font_allcs
= NULL
;
1699 char *font_allfamilies
= NULL
;
1700 char *font_all
= NULL
;
1701 const char *allcs
= "*-*-*-*-*-*-*";
1702 const char *allfamilies
= "-*-*-";
1703 const char *all
= "*-*-*-*-";
1706 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
1719 /* If base_fontname specifies ADSTYLE, make it a
1723 ptrdiff_t diff
= (p2
- p3
) - 2;
1725 base
= alloca (strlen (base_fontname
) + 1);
1726 memcpy (base
, base_fontname
, p3
- base_fontname
);
1727 base
[p3
- base_fontname
] = '*';
1728 base
[(p3
- base_fontname
) + 1] = '-';
1729 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
1730 p
= base
+ (p
- base_fontname
) - diff
;
1731 p1
= base
+ (p1
- base_fontname
);
1732 p2
= base
+ (p2
- base_fontname
) - diff
;
1733 base_fontname
= base
;
1736 /* Build the font spec that matches all charsets. */
1737 len
= p
- base_fontname
+ strlen (allcs
) + 1;
1738 font_allcs
= alloca (len
);
1739 memcpy (font_allcs
, base_fontname
, p
- base_fontname
);
1740 strcat (font_allcs
, allcs
);
1742 /* Build the font spec that matches all families and
1744 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
1745 font_allfamilies
= alloca (len
);
1746 strcpy (font_allfamilies
, allfamilies
);
1747 memcpy (font_allfamilies
+ strlen (allfamilies
), p1
, p
- p1
);
1748 strcat (font_allfamilies
, allcs
);
1750 /* Build the font spec that matches all. */
1751 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
1752 font_all
= alloca (len
);
1753 strcpy (font_all
, allfamilies
);
1754 strcat (font_all
, all
);
1755 memcpy (font_all
+ strlen (all
) + strlen (allfamilies
), p2
, p
- p2
);
1756 strcat (font_all
, allcs
);
1758 /* Build the actual font set name. */
1759 len
= strlen (base_fontname
) + strlen (font_allcs
)
1760 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
1761 fontsetname
= xmalloc (len
);
1762 strcpy (fontsetname
, base_fontname
);
1763 strcat (fontsetname
, sep
);
1764 strcat (fontsetname
, font_allcs
);
1765 strcat (fontsetname
, sep
);
1766 strcat (fontsetname
, font_allfamilies
);
1767 strcat (fontsetname
, sep
);
1768 strcat (fontsetname
, font_all
);
1772 return strcat (fontsetname
, ":");
1775 #endif /* HAVE_X_WINDOWS && USE_X_TOOLKIT */
1777 #ifdef DEBUG_XIC_FONTSET
1779 print_fontset_result (XFontSet xfs
, char *name
, char **missing_list
,
1783 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
1786 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
1787 while (missing_count
-- > 0)
1789 fprintf (stderr
, " missing: %s\n", *missing_list
);
1798 xic_create_xfontset (struct frame
*f
)
1800 XFontSet xfs
= NULL
;
1801 struct font
*font
= FRAME_FONT (f
);
1802 int pixel_size
= font
->pixel_size
;
1803 Lisp_Object rest
, frame
;
1805 /* See if there is another frame already using same fontset. */
1806 FOR_EACH_FRAME (rest
, frame
)
1808 struct frame
*cf
= XFRAME (frame
);
1810 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
1811 && FRAME_DISPLAY_INFO (cf
) == FRAME_DISPLAY_INFO (f
)
1813 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
1815 xfs
= FRAME_XIC_FONTSET (cf
);
1823 char **missing_list
;
1826 const char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
1828 sprintf (buf
, xlfd_format
, pixel_size
);
1829 missing_list
= NULL
;
1830 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
1831 &missing_list
, &missing_count
, &def_string
);
1832 #ifdef DEBUG_XIC_FONTSET
1833 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
1836 XFreeStringList (missing_list
);
1839 /* List of pixel sizes most likely available. Find one that
1840 is closest to pixel_size. */
1841 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
1842 int *smaller
, *larger
;
1844 for (smaller
= sizes
; smaller
[1]; smaller
++)
1845 if (smaller
[1] >= pixel_size
)
1847 larger
= smaller
+ 1;
1848 if (*larger
== pixel_size
)
1850 while (*smaller
|| *larger
)
1855 this_size
= *smaller
--;
1856 else if (! *smaller
)
1857 this_size
= *larger
++;
1858 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
1859 this_size
= *smaller
--;
1861 this_size
= *larger
++;
1862 sprintf (buf
, xlfd_format
, this_size
);
1863 missing_list
= NULL
;
1864 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
1865 &missing_list
, &missing_count
, &def_string
);
1866 #ifdef DEBUG_XIC_FONTSET
1867 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
1870 XFreeStringList (missing_list
);
1877 const char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
1879 missing_list
= NULL
;
1880 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
1881 &missing_list
, &missing_count
, &def_string
);
1882 #ifdef DEBUG_XIC_FONTSET
1883 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
1886 XFreeStringList (missing_list
);
1894 /* Free the X fontset of frame F if it is the last frame using it. */
1897 xic_free_xfontset (struct frame
*f
)
1899 Lisp_Object rest
, frame
;
1902 if (!FRAME_XIC_FONTSET (f
))
1905 /* See if there is another frame sharing the same fontset. */
1906 FOR_EACH_FRAME (rest
, frame
)
1908 struct frame
*cf
= XFRAME (frame
);
1909 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
1910 && FRAME_DISPLAY_INFO (cf
) == FRAME_DISPLAY_INFO (f
)
1911 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
1919 /* The fontset is not used anymore. It is safe to free it. */
1920 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
1922 FRAME_XIC_FONTSET (f
) = NULL
;
1926 /* Value is the best input style, given user preferences USER (already
1927 checked to be supported by Emacs), and styles supported by the
1928 input method XIM. */
1931 best_xim_style (XIMStyles
*user
, XIMStyles
*xim
)
1935 for (i
= 0; i
< user
->count_styles
; ++i
)
1936 for (j
= 0; j
< xim
->count_styles
; ++j
)
1937 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
1938 return user
->supported_styles
[i
];
1940 /* Return the default style. */
1941 return XIMPreeditNothing
| XIMStatusNothing
;
1944 /* Create XIC for frame F. */
1946 static XIMStyle xic_style
;
1949 create_frame_xic (struct frame
*f
)
1953 XFontSet xfs
= NULL
;
1958 /* Create X fontset. */
1959 xfs
= xic_create_xfontset (f
);
1960 xim
= FRAME_X_XIM (f
);
1965 XVaNestedList preedit_attr
;
1966 XVaNestedList status_attr
;
1968 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
1969 spot
.x
= 0; spot
.y
= 1;
1971 /* Determine XIC style. */
1974 XIMStyles supported_list
;
1975 supported_list
.count_styles
= (sizeof supported_xim_styles
1976 / sizeof supported_xim_styles
[0]);
1977 supported_list
.supported_styles
= supported_xim_styles
;
1978 xic_style
= best_xim_style (&supported_list
,
1979 FRAME_X_XIM_STYLES (f
));
1982 preedit_attr
= XVaCreateNestedList (0,
1985 FRAME_FOREGROUND_PIXEL (f
),
1987 FRAME_BACKGROUND_PIXEL (f
),
1988 (xic_style
& XIMPreeditPosition
1993 status_attr
= XVaCreateNestedList (0,
1999 FRAME_FOREGROUND_PIXEL (f
),
2001 FRAME_BACKGROUND_PIXEL (f
),
2004 xic
= XCreateIC (xim
,
2005 XNInputStyle
, xic_style
,
2006 XNClientWindow
, FRAME_X_WINDOW (f
),
2007 XNFocusWindow
, FRAME_X_WINDOW (f
),
2008 XNStatusAttributes
, status_attr
,
2009 XNPreeditAttributes
, preedit_attr
,
2011 XFree (preedit_attr
);
2012 XFree (status_attr
);
2015 FRAME_XIC (f
) = xic
;
2016 FRAME_XIC_STYLE (f
) = xic_style
;
2017 FRAME_XIC_FONTSET (f
) = xfs
;
2021 /* Destroy XIC and free XIC fontset of frame F, if any. */
2024 free_frame_xic (struct frame
*f
)
2026 if (FRAME_XIC (f
) == NULL
)
2029 XDestroyIC (FRAME_XIC (f
));
2030 xic_free_xfontset (f
);
2032 FRAME_XIC (f
) = NULL
;
2036 /* Place preedit area for XIC of window W's frame to specified
2037 pixel position X/Y. X and Y are relative to window W. */
2040 xic_set_preeditarea (struct window
*w
, int x
, int y
)
2042 struct frame
*f
= XFRAME (w
->frame
);
2046 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2047 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2048 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2049 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2054 /* Place status area for XIC in bottom right corner of frame F.. */
2057 xic_set_statusarea (struct frame
*f
)
2059 XIC xic
= FRAME_XIC (f
);
2064 /* Negotiate geometry of status area. If input method has existing
2065 status area, use its current size. */
2066 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2067 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2068 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2071 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2072 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2075 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2077 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2078 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2082 area
.width
= needed
->width
;
2083 area
.height
= needed
->height
;
2084 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2085 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2086 - FRAME_MENUBAR_HEIGHT (f
)
2087 - FRAME_TOOLBAR_TOP_HEIGHT (f
)
2088 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2091 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2092 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2097 /* Set X fontset for XIC of frame F, using base font name
2098 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2101 xic_set_xfontset (struct frame
*f
, const char *base_fontname
)
2106 xic_free_xfontset (f
);
2108 xfs
= xic_create_xfontset (f
);
2110 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2111 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2112 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2113 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2114 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2117 FRAME_XIC_FONTSET (f
) = xfs
;
2120 #endif /* HAVE_X_I18N */
2124 #ifdef USE_X_TOOLKIT
2126 /* Create and set up the X widget for frame F. */
2129 x_window (struct frame
*f
, long window_prompting
, int minibuffer_only
)
2131 XClassHint class_hints
;
2132 XSetWindowAttributes attributes
;
2133 unsigned long attribute_mask
;
2134 Widget shell_widget
;
2136 Widget frame_widget
;
2142 /* Use the resource name as the top-level widget name
2143 for looking up resources. Make a non-Lisp copy
2144 for the window manager, so GC relocation won't bother it.
2146 Elsewhere we specify the window name for the window manager. */
2147 f
->namebuf
= xstrdup (SSDATA (Vx_resource_name
));
2150 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2151 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2152 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2153 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2154 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2155 XtSetArg (al
[ac
], XtNdepth
, FRAME_DISPLAY_INFO (f
)->n_planes
); ac
++;
2156 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2157 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2158 applicationShellWidgetClass
,
2159 FRAME_X_DISPLAY (f
), al
, ac
);
2161 f
->output_data
.x
->widget
= shell_widget
;
2162 /* maybe_set_screen_title_format (shell_widget); */
2164 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2165 NULL
, shell_widget
, False
,
2166 NULL
, NULL
, NULL
, NULL
);
2169 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2170 XtSetArg (al
[ac
], XtNdepth
, FRAME_DISPLAY_INFO (f
)->n_planes
); ac
++;
2171 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2172 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2173 XtSetValues (pane_widget
, al
, ac
);
2174 f
->output_data
.x
->column_widget
= pane_widget
;
2176 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2177 the emacs screen when changing menubar. This reduces flickering. */
2180 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2181 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2182 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2183 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2184 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2185 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2186 XtSetArg (al
[ac
], XtNdepth
, FRAME_DISPLAY_INFO (f
)->n_planes
); ac
++;
2187 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2188 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2189 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2192 f
->output_data
.x
->edit_widget
= frame_widget
;
2194 XtManageChild (frame_widget
);
2196 /* Do some needed geometry management. */
2198 char *tem
, shell_position
[sizeof "=x++" + 4 * INT_STRLEN_BOUND (int)];
2201 int extra_borders
= 0;
2203 = (f
->output_data
.x
->menubar_widget
2204 ? (f
->output_data
.x
->menubar_widget
->core
.height
2205 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2208 #if 0 /* Experimentally, we now get the right results
2209 for -geometry -0-0 without this. 24 Aug 96, rms. */
2210 if (FRAME_EXTERNAL_MENU_BAR (f
))
2213 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2214 menubar_size
+= ibw
;
2218 f
->output_data
.x
->menubar_height
= menubar_size
;
2221 /* Motif seems to need this amount added to the sizes
2222 specified for the shell widget. The Athena/Lucid widgets don't.
2223 Both conclusions reached experimentally. -- rms. */
2224 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2225 &extra_borders
, NULL
);
2229 /* Convert our geometry parameters into a geometry string
2231 Note that we do not specify here whether the position
2232 is a user-specified or program-specified one.
2233 We pass that information later, in x_wm_set_size_hints. */
2235 int left
= f
->left_pos
;
2236 int xneg
= window_prompting
& XNegative
;
2237 int top
= f
->top_pos
;
2238 int yneg
= window_prompting
& YNegative
;
2244 if (window_prompting
& USPosition
)
2245 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2246 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2247 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2248 (xneg
? '-' : '+'), left
,
2249 (yneg
? '-' : '+'), top
);
2252 sprintf (shell_position
, "=%dx%d",
2253 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2254 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2256 /* Setting x and y when the position is not specified in
2257 the geometry string will set program position in the WM hints.
2258 If Emacs had just one program position, we could set it in
2259 fallback resources, but since each make-frame call can specify
2260 different program positions, this is easier. */
2261 XtSetArg (gal
[gac
], XtNx
, left
); gac
++;
2262 XtSetArg (gal
[gac
], XtNy
, top
); gac
++;
2266 /* We don't free this because we don't know whether
2267 it is safe to free it while the frame exists.
2268 It isn't worth the trouble of arranging to free it
2269 when the frame is deleted. */
2270 tem
= xstrdup (shell_position
);
2271 XtSetArg (gal
[gac
], XtNgeometry
, tem
); gac
++;
2272 XtSetValues (shell_widget
, gal
, gac
);
2275 XtManageChild (pane_widget
);
2276 XtRealizeWidget (shell_widget
);
2278 if (FRAME_X_EMBEDDED_P (f
))
2279 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2280 f
->output_data
.x
->parent_desc
, 0, 0);
2282 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2284 validate_x_resource_name ();
2286 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2287 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2288 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2291 FRAME_XIC (f
) = NULL
;
2293 create_frame_xic (f
);
2296 f
->output_data
.x
->wm_hints
.input
= True
;
2297 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2298 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2299 &f
->output_data
.x
->wm_hints
);
2301 hack_wm_protocols (f
, shell_widget
);
2304 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2307 /* Do a stupid property change to force the server to generate a
2308 PropertyNotify event so that the event_stream server timestamp will
2309 be initialized to something relevant to the time we created the window.
2311 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2312 FRAME_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2313 XA_ATOM
, 32, PropModeAppend
, NULL
, 0);
2315 /* Make all the standard events reach the Emacs frame. */
2316 attributes
.event_mask
= STANDARD_EVENT_SET
;
2321 /* XIM server might require some X events. */
2322 unsigned long fevent
= NoEventMask
;
2323 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2324 attributes
.event_mask
|= fevent
;
2326 #endif /* HAVE_X_I18N */
2328 attribute_mask
= CWEventMask
;
2329 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2330 attribute_mask
, &attributes
);
2332 XtMapWidget (frame_widget
);
2334 /* x_set_name normally ignores requests to set the name if the
2335 requested name is the same as the current name. This is the one
2336 place where that assumption isn't correct; f->name is set, but
2337 the X server hasn't been told. */
2340 int explicit = f
->explicit_name
;
2342 f
->explicit_name
= 0;
2344 fset_name (f
, Qnil
);
2345 x_set_name (f
, name
, explicit);
2348 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2349 f
->output_data
.x
->current_cursor
2350 = f
->output_data
.x
->text_cursor
);
2354 /* This is a no-op, except under Motif. Make sure main areas are
2355 set to something reasonable, in case we get an error later. */
2356 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2359 #else /* not USE_X_TOOLKIT */
2362 x_window (struct frame
*f
)
2364 if (! xg_create_frame_widgets (f
))
2365 error ("Unable to create window");
2368 FRAME_XIC (f
) = NULL
;
2372 create_frame_xic (f
);
2375 /* XIM server might require some X events. */
2376 unsigned long fevent
= NoEventMask
;
2377 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2379 if (fevent
!= NoEventMask
)
2381 XSetWindowAttributes attributes
;
2382 XWindowAttributes wattr
;
2383 unsigned long attribute_mask
;
2385 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2387 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2388 attribute_mask
= CWEventMask
;
2389 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2390 attribute_mask
, &attributes
);
2398 #else /*! USE_GTK */
2399 /* Create and set up the X window for frame F. */
2402 x_window (struct frame
*f
)
2404 XClassHint class_hints
;
2405 XSetWindowAttributes attributes
;
2406 unsigned long attribute_mask
;
2408 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2409 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2410 attributes
.bit_gravity
= StaticGravity
;
2411 attributes
.backing_store
= NotUseful
;
2412 attributes
.save_under
= True
;
2413 attributes
.event_mask
= STANDARD_EVENT_SET
;
2414 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2415 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2420 = XCreateWindow (FRAME_X_DISPLAY (f
),
2421 f
->output_data
.x
->parent_desc
,
2424 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2426 CopyFromParent
, /* depth */
2427 InputOutput
, /* class */
2429 attribute_mask
, &attributes
);
2434 create_frame_xic (f
);
2437 /* XIM server might require some X events. */
2438 unsigned long fevent
= NoEventMask
;
2439 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2440 attributes
.event_mask
|= fevent
;
2441 attribute_mask
= CWEventMask
;
2442 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2443 attribute_mask
, &attributes
);
2446 #endif /* HAVE_X_I18N */
2448 validate_x_resource_name ();
2450 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2451 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2452 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2454 /* The menubar is part of the ordinary display;
2455 it does not count in addition to the height of the window. */
2456 f
->output_data
.x
->menubar_height
= 0;
2458 /* This indicates that we use the "Passive Input" input model.
2459 Unless we do this, we don't get the Focus{In,Out} events that we
2460 need to draw the cursor correctly. Accursed bureaucrats.
2461 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2463 f
->output_data
.x
->wm_hints
.input
= True
;
2464 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2465 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2466 &f
->output_data
.x
->wm_hints
);
2467 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2469 /* Request "save yourself" and "delete window" commands from wm. */
2472 protocols
[0] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2473 protocols
[1] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2474 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2477 /* x_set_name normally ignores requests to set the name if the
2478 requested name is the same as the current name. This is the one
2479 place where that assumption isn't correct; f->name is set, but
2480 the X server hasn't been told. */
2483 int explicit = f
->explicit_name
;
2485 f
->explicit_name
= 0;
2487 fset_name (f
, Qnil
);
2488 x_set_name (f
, name
, explicit);
2491 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2492 f
->output_data
.x
->current_cursor
2493 = f
->output_data
.x
->text_cursor
);
2497 if (FRAME_X_WINDOW (f
) == 0)
2498 error ("Unable to create window");
2501 #endif /* not USE_GTK */
2502 #endif /* not USE_X_TOOLKIT */
2504 /* Verify that the icon position args for this window are valid. */
2507 x_icon_verify (struct frame
*f
, Lisp_Object parms
)
2509 Lisp_Object icon_x
, icon_y
;
2511 /* Set the position of the icon. Note that twm groups all
2512 icons in an icon window. */
2513 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2514 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2515 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2517 CHECK_NUMBER (icon_x
);
2518 CHECK_NUMBER (icon_y
);
2520 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2521 error ("Both left and top icon corners of icon must be specified");
2524 /* Handle the icon stuff for this window. Perhaps later we might
2525 want an x_set_icon_position which can be called interactively as
2529 x_icon (struct frame
*f
, Lisp_Object parms
)
2531 Lisp_Object icon_x
, icon_y
;
2533 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
2536 /* Set the position of the icon. Note that twm groups all
2537 icons in an icon window. */
2538 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2539 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2540 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2542 CHECK_TYPE_RANGED_INTEGER (int, icon_x
);
2543 CHECK_TYPE_RANGED_INTEGER (int, icon_y
);
2545 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2546 error ("Both left and top icon corners of icon must be specified");
2550 if (! EQ (icon_x
, Qunbound
))
2551 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2553 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2554 but x_create_frame still needs it. */
2555 /* Start up iconic or window? */
2556 x_wm_set_window_state
2557 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2563 x_text_icon (f
, SSDATA ((!NILP (f
->icon_name
)
2570 /* Make the GCs needed for this window, setting the
2571 background, border and mouse colors; also create the
2572 mouse cursor and the gray border tile. */
2575 x_make_gc (struct frame
*f
)
2577 XGCValues gc_values
;
2581 /* Create the GCs of this frame.
2582 Note that many default values are used. */
2584 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2585 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2586 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2587 f
->output_data
.x
->normal_gc
2588 = XCreateGC (FRAME_X_DISPLAY (f
),
2590 GCLineWidth
| GCForeground
| GCBackground
,
2593 /* Reverse video style. */
2594 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2595 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2596 f
->output_data
.x
->reverse_gc
2597 = XCreateGC (FRAME_X_DISPLAY (f
),
2599 GCForeground
| GCBackground
| GCLineWidth
,
2602 /* Cursor has cursor-color background, background-color foreground. */
2603 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2604 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2605 gc_values
.fill_style
= FillOpaqueStippled
;
2606 f
->output_data
.x
->cursor_gc
2607 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2608 (GCForeground
| GCBackground
2609 | GCFillStyle
| GCLineWidth
),
2612 /* Create the gray border tile used when the pointer is not in
2613 the frame. Since this depends on the frame's pixel values,
2614 this must be done on a per-frame basis. */
2615 f
->output_data
.x
->border_tile
2616 = (XCreatePixmapFromBitmapData
2617 (FRAME_X_DISPLAY (f
), FRAME_DISPLAY_INFO (f
)->root_window
,
2618 gray_bits
, gray_width
, gray_height
,
2619 FRAME_FOREGROUND_PIXEL (f
),
2620 FRAME_BACKGROUND_PIXEL (f
),
2621 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2627 /* Free what was allocated in x_make_gc. */
2630 x_free_gcs (struct frame
*f
)
2632 Display
*dpy
= FRAME_X_DISPLAY (f
);
2636 if (f
->output_data
.x
->normal_gc
)
2638 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2639 f
->output_data
.x
->normal_gc
= 0;
2642 if (f
->output_data
.x
->reverse_gc
)
2644 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2645 f
->output_data
.x
->reverse_gc
= 0;
2648 if (f
->output_data
.x
->cursor_gc
)
2650 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2651 f
->output_data
.x
->cursor_gc
= 0;
2654 if (f
->output_data
.x
->border_tile
)
2656 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2657 f
->output_data
.x
->border_tile
= 0;
2664 /* Handler for signals raised during x_create_frame and
2665 x_create_tip_frame. FRAME is the frame which is partially
2669 unwind_create_frame (Lisp_Object frame
)
2671 struct frame
*f
= XFRAME (frame
);
2673 /* If frame is already dead, nothing to do. This can happen if the
2674 display is disconnected after the frame has become official, but
2675 before x_create_frame removes the unwind protect. */
2676 if (!FRAME_LIVE_P (f
))
2679 /* If frame is ``official'', nothing to do. */
2680 if (NILP (Fmemq (frame
, Vframe_list
)))
2682 #if defined GLYPH_DEBUG && defined ENABLE_CHECKING
2683 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
2686 x_free_frame_resources (f
);
2689 #if defined GLYPH_DEBUG && defined ENABLE_CHECKING
2690 /* Check that reference counts are indeed correct. */
2691 eassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2692 eassert (dpyinfo
->terminal
->image_cache
->refcount
== image_cache_refcount
);
2701 do_unwind_create_frame (Lisp_Object frame
)
2703 unwind_create_frame (frame
);
2707 unwind_create_frame_1 (Lisp_Object val
)
2709 inhibit_lisp_code
= val
;
2713 x_default_font_parameter (struct frame
*f
, Lisp_Object parms
)
2715 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
2716 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
2718 Lisp_Object font
= Qnil
;
2719 if (EQ (font_param
, Qunbound
))
2722 if (NILP (font_param
))
2724 /* System font should take precedence over X resources. We suggest this
2725 regardless of font-use-system-font because .emacs may not have been
2727 const char *system_font
= xsettings_get_system_font ();
2729 font
= font_open_by_name (f
, build_unibyte_string (system_font
));
2733 font
= !NILP (font_param
) ? font_param
2734 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
2736 if (! FONTP (font
) && ! STRINGP (font
))
2741 /* This will find the normal Xft font. */
2744 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
2745 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2746 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2747 /* This was formerly the first thing tried, but it finds
2748 too many fonts and takes too long. */
2749 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
2750 /* If those didn't work, look for something which will
2752 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
2757 for (i
= 0; names
[i
]; i
++)
2759 font
= font_open_by_name (f
, build_unibyte_string (names
[i
]));
2764 error ("No suitable font was found");
2766 else if (!NILP (font_param
))
2768 /* Remember the explicit font parameter, so we can re-apply it after
2769 we've applied the `default' face settings. */
2770 x_set_frame_parameters (f
, list1 (Fcons (Qfont_param
, font_param
)));
2773 /* This call will make X resources override any system font setting. */
2774 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
2778 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
2780 doc
: /* Send the size hints for frame FRAME to the window manager.
2781 If FRAME is omitted or nil, use the selected frame.
2782 Signal error if FRAME is not an X frame. */)
2785 struct frame
*f
= decode_window_system_frame (frame
);
2788 x_wm_set_size_hint (f
, 0, 0);
2794 set_machine_and_pid_properties (struct frame
*f
)
2796 long pid
= (long) getpid ();
2798 /* This will set WM_CLIENT_MACHINE and WM_LOCALE_NAME. */
2799 XSetWMProperties (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), NULL
, NULL
,
2800 NULL
, 0, NULL
, NULL
, NULL
);
2801 XChangeProperty (FRAME_X_DISPLAY (f
),
2802 FRAME_OUTER_WINDOW (f
),
2803 XInternAtom (FRAME_X_DISPLAY (f
),
2806 XA_CARDINAL
, 32, PropModeReplace
,
2807 (unsigned char *) &pid
, 1);
2810 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2812 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
2813 Return an Emacs frame object.
2814 PARMS is an alist of frame parameters.
2815 If the parameters specify that the frame should not have a minibuffer,
2816 and do not specify a specific minibuffer window to use,
2817 then `default-minibuffer-frame' must be a frame whose minibuffer can
2818 be shared by the new frame.
2820 This function is an internal primitive--use `make-frame' instead. */)
2824 Lisp_Object frame
, tem
;
2826 int minibuffer_only
= 0;
2827 long window_prompting
= 0;
2829 ptrdiff_t count
= SPECPDL_INDEX ();
2830 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
2831 Lisp_Object display
;
2832 struct x_display_info
*dpyinfo
= NULL
;
2836 parms
= Fcopy_alist (parms
);
2838 /* Use this general default value to start with
2839 until we know if this frame has a specified name. */
2840 Vx_resource_name
= Vinvocation_name
;
2842 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
2843 if (EQ (display
, Qunbound
))
2844 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
2845 if (EQ (display
, Qunbound
))
2847 dpyinfo
= check_x_display_info (display
);
2848 kb
= dpyinfo
->terminal
->kboard
;
2850 if (!dpyinfo
->terminal
->name
)
2851 error ("Terminal is not live, can't create new frames on it");
2853 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
2855 && ! EQ (name
, Qunbound
)
2857 error ("Invalid frame name--not a string or nil");
2860 Vx_resource_name
= name
;
2862 /* See if parent window is specified. */
2863 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
2864 if (EQ (parent
, Qunbound
))
2866 if (! NILP (parent
))
2867 CHECK_NUMBER (parent
);
2869 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
2870 /* No need to protect DISPLAY because that's not used after passing
2871 it to make_frame_without_minibuffer. */
2873 GCPRO4 (parms
, parent
, name
, frame
);
2874 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
2876 if (EQ (tem
, Qnone
) || NILP (tem
))
2877 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
2878 else if (EQ (tem
, Qonly
))
2880 f
= make_minibuffer_frame ();
2881 minibuffer_only
= 1;
2883 else if (WINDOWP (tem
))
2884 f
= make_frame_without_minibuffer (tem
, kb
, display
);
2888 XSETFRAME (frame
, f
);
2890 f
->terminal
= dpyinfo
->terminal
;
2892 f
->output_method
= output_x_window
;
2893 f
->output_data
.x
= xzalloc (sizeof *f
->output_data
.x
);
2894 f
->output_data
.x
->icon_bitmap
= -1;
2895 FRAME_FONTSET (f
) = -1;
2896 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
2897 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
2898 #ifdef USE_TOOLKIT_SCROLL_BARS
2899 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
2900 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
2901 #endif /* USE_TOOLKIT_SCROLL_BARS */
2902 f
->output_data
.x
->white_relief
.pixel
= -1;
2903 f
->output_data
.x
->black_relief
.pixel
= -1;
2906 x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
2908 if (! STRINGP (f
->icon_name
))
2909 fset_icon_name (f
, Qnil
);
2911 FRAME_DISPLAY_INFO (f
) = dpyinfo
;
2913 /* With FRAME_DISPLAY_INFO set up, this unwind-protect is safe. */
2914 record_unwind_protect (do_unwind_create_frame
, frame
);
2916 /* These colors will be set anyway later, but it's important
2917 to get the color reference counts right, so initialize them! */
2920 struct gcpro gcpro1
;
2922 /* Function x_decode_color can signal an error. Make
2923 sure to initialize color slots so that we won't try
2924 to free colors we haven't allocated. */
2925 FRAME_FOREGROUND_PIXEL (f
) = -1;
2926 FRAME_BACKGROUND_PIXEL (f
) = -1;
2927 f
->output_data
.x
->cursor_pixel
= -1;
2928 f
->output_data
.x
->cursor_foreground_pixel
= -1;
2929 f
->output_data
.x
->border_pixel
= -1;
2930 f
->output_data
.x
->mouse_pixel
= -1;
2932 black
= build_string ("black");
2934 FRAME_FOREGROUND_PIXEL (f
)
2935 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2936 FRAME_BACKGROUND_PIXEL (f
)
2937 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2938 f
->output_data
.x
->cursor_pixel
2939 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2940 f
->output_data
.x
->cursor_foreground_pixel
2941 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2942 f
->output_data
.x
->border_pixel
2943 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2944 f
->output_data
.x
->mouse_pixel
2945 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2949 /* Specify the parent under which to make this X window. */
2953 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
2954 f
->output_data
.x
->explicit_parent
= 1;
2958 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
2959 f
->output_data
.x
->explicit_parent
= 0;
2962 /* Set the name; the functions to which we pass f expect the name to
2964 if (EQ (name
, Qunbound
) || NILP (name
))
2966 fset_name (f
, build_string (dpyinfo
->x_id_name
));
2967 f
->explicit_name
= 0;
2971 fset_name (f
, name
);
2972 f
->explicit_name
= 1;
2973 /* use the frame's title when getting resources for this frame. */
2974 specbind (Qx_resource_name
, name
);
2977 #ifdef HAVE_FREETYPE
2979 register_font_driver (&xftfont_driver
, f
);
2980 #else /* not HAVE_XFT */
2981 register_font_driver (&ftxfont_driver
, f
);
2982 #endif /* not HAVE_XFT */
2983 #endif /* HAVE_FREETYPE */
2984 register_font_driver (&xfont_driver
, f
);
2986 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
2987 "fontBackend", "FontBackend", RES_TYPE_STRING
);
2989 /* Extract the window parameters from the supplied values
2990 that are needed to determine window geometry. */
2991 x_default_font_parameter (f
, parms
);
2992 if (!FRAME_FONT (f
))
2994 delete_frame (frame
, Qnoelisp
);
2995 error ("Invalid frame font");
2998 /* Frame contents get displaced if an embedded X window has a border. */
2999 if (! FRAME_X_EMBEDDED_P (f
))
3000 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
3001 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3003 /* This defaults to 1 in order to match xterm. We recognize either
3004 internalBorderWidth or internalBorder (which is what xterm calls
3006 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3010 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3011 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3012 if (! EQ (value
, Qunbound
))
3013 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3016 x_default_parameter (f
, parms
, Qinternal_border_width
,
3017 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3022 "internalBorderWidth", "internalBorderWidth",
3024 x_default_parameter (f
, parms
, Qvertical_scroll_bars
,
3025 #if defined (USE_GTK) && defined (USE_TOOLKIT_SCROLL_BARS)
3030 "verticalScrollBars", "ScrollBars",
3033 /* Also do the stuff which must be set before the window exists. */
3034 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3035 "foreground", "Foreground", RES_TYPE_STRING
);
3036 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3037 "background", "Background", RES_TYPE_STRING
);
3038 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3039 "pointerColor", "Foreground", RES_TYPE_STRING
);
3040 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3041 "borderColor", "BorderColor", RES_TYPE_STRING
);
3042 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3043 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3044 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3045 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3046 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3047 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3048 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3049 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3051 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3052 "scrollBarForeground",
3053 "ScrollBarForeground", 1);
3054 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3055 "scrollBarBackground",
3056 "ScrollBarBackground", 0);
3059 image_cache_refcount
=
3060 FRAME_IMAGE_CACHE (f
) ? FRAME_IMAGE_CACHE (f
)->refcount
: 0;
3061 dpyinfo_refcount
= dpyinfo
->reference_count
;
3062 #endif /* GLYPH_DEBUG */
3064 /* Init faces before x_default_parameter is called for scroll-bar
3065 parameters because that function calls x_set_scroll_bar_width,
3066 which calls change_frame_size, which calls Fset_window_buffer,
3067 which runs hooks, which call Fvertical_motion. At the end, we
3068 end up in init_iterator with a null face cache, which should not
3070 init_frame_faces (f
);
3072 /* Set the menu-bar-lines and tool-bar-lines parameters. We don't
3073 look up the X resources controlling the menu-bar and tool-bar
3074 here; they are processed specially at startup, and reflected in
3075 the values of the mode variables.
3077 Avoid calling window-configuration-change-hook; otherwise we
3078 could get an infloop in next_frame since the frame is not yet in
3081 ptrdiff_t count2
= SPECPDL_INDEX ();
3082 record_unwind_protect (unwind_create_frame_1
, inhibit_lisp_code
);
3083 inhibit_lisp_code
= Qt
;
3085 x_default_parameter (f
, parms
, Qmenu_bar_lines
,
3086 NILP (Vmenu_bar_mode
)
3087 ? make_number (0) : make_number (1),
3088 NULL
, NULL
, RES_TYPE_NUMBER
);
3089 x_default_parameter (f
, parms
, Qtool_bar_lines
,
3090 NILP (Vtool_bar_mode
)
3091 ? make_number (0) : make_number (1),
3092 NULL
, NULL
, RES_TYPE_NUMBER
);
3094 unbind_to (count2
, Qnil
);
3097 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3098 "bufferPredicate", "BufferPredicate",
3100 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3101 "title", "Title", RES_TYPE_STRING
);
3102 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3103 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3104 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3105 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3106 x_default_parameter (f
, parms
, Qtool_bar_position
,
3107 f
->tool_bar_position
, 0, 0, RES_TYPE_SYMBOL
);
3109 /* Compute the size of the X window. */
3110 window_prompting
= x_figure_window_size (f
, parms
, 1);
3112 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3113 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3115 x_icon_verify (f
, parms
);
3117 /* Create the X widget or window. */
3118 #ifdef USE_X_TOOLKIT
3119 x_window (f
, window_prompting
, minibuffer_only
);
3127 /* Now consider the frame official. */
3128 f
->terminal
->reference_count
++;
3129 FRAME_DISPLAY_INFO (f
)->reference_count
++;
3130 Vframe_list
= Fcons (frame
, Vframe_list
);
3132 /* We need to do this after creating the X window, so that the
3133 icon-creation functions can say whose icon they're describing. */
3134 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3135 "bitmapIcon", "BitmapIcon", RES_TYPE_BOOLEAN
);
3137 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3138 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3139 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3140 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3141 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3142 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3143 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3144 "scrollBarWidth", "ScrollBarWidth",
3146 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3147 "alpha", "Alpha", RES_TYPE_NUMBER
);
3149 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3150 Change will not be effected unless different from the current
3152 width
= FRAME_TEXT_WIDTH (f
);
3153 height
= FRAME_TEXT_HEIGHT (f
);
3154 FRAME_TEXT_HEIGHT (f
) = 0;
3155 SET_FRAME_WIDTH (f
, 0);
3156 change_frame_size (f
, width
, height
, 1, 0, 0, 1);
3158 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3159 /* Create the menu bar. */
3160 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3162 /* If this signals an error, we haven't set size hints for the
3163 frame and we didn't make it visible. */
3164 initialize_frame_menubar (f
);
3167 /* This is a no-op, except under Motif where it arranges the
3168 main window for the widgets on it. */
3169 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3170 f
->output_data
.x
->menubar_widget
,
3171 f
->output_data
.x
->edit_widget
);
3172 #endif /* not USE_GTK */
3174 #endif /* USE_X_TOOLKIT || USE_GTK */
3176 /* Tell the server what size and position, etc, we want, and how
3177 badly we want them. This should be done after we have the menu
3178 bar so that its size can be taken into account. */
3180 x_wm_set_size_hint (f
, window_prompting
, 0);
3183 /* Make the window appear on the frame and enable display, unless
3184 the caller says not to. However, with explicit parent, Emacs
3185 cannot control visibility, so don't try. */
3186 if (! f
->output_data
.x
->explicit_parent
)
3188 Lisp_Object visibility
;
3190 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3192 if (EQ (visibility
, Qunbound
))
3195 if (EQ (visibility
, Qicon
))
3196 x_iconify_frame (f
);
3197 else if (! NILP (visibility
))
3198 x_make_frame_visible (f
);
3201 /* Must have been Qnil. */
3207 /* Set machine name and pid for the purpose of window managers. */
3208 set_machine_and_pid_properties (f
);
3210 /* Set the WM leader property. GTK does this itself, so this is not
3211 needed when using GTK. */
3212 if (dpyinfo
->client_leader_window
!= 0)
3214 XChangeProperty (FRAME_X_DISPLAY (f
),
3215 FRAME_OUTER_WINDOW (f
),
3216 dpyinfo
->Xatom_wm_client_leader
,
3217 XA_WINDOW
, 32, PropModeReplace
,
3218 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3223 /* Initialize `default-minibuffer-frame' in case this is the first
3224 frame on this terminal. */
3225 if (FRAME_HAS_MINIBUF_P (f
)
3226 && (!FRAMEP (KVAR (kb
, Vdefault_minibuffer_frame
))
3227 || !FRAME_LIVE_P (XFRAME (KVAR (kb
, Vdefault_minibuffer_frame
)))))
3228 kset_default_minibuffer_frame (kb
, frame
);
3230 /* All remaining specified parameters, which have not been "used"
3231 by x_get_arg and friends, now go in the misc. alist of the frame. */
3232 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3233 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3234 fset_param_alist (f
, Fcons (XCAR (tem
), f
->param_alist
));
3238 /* Make sure windows on this frame appear in calls to next-window
3239 and similar functions. */
3240 Vwindow_list
= Qnil
;
3242 return unbind_to (count
, frame
);
3246 /* FRAME is used only to get a handle on the X display. We don't pass the
3247 display info directly because we're called from frame.c, which doesn't
3248 know about that structure. */
3251 x_get_focus_frame (struct frame
*frame
)
3253 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (frame
);
3255 if (! dpyinfo
->x_focus_frame
)
3258 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3263 /* In certain situations, when the window manager follows a
3264 click-to-focus policy, there seems to be no way around calling
3265 XSetInputFocus to give another frame the input focus .
3267 In an ideal world, XSetInputFocus should generally be avoided so
3268 that applications don't interfere with the window manager's focus
3269 policy. But I think it's okay to use when it's clearly done
3270 following a user-command. */
3273 x_focus_frame (struct frame
*f
)
3275 Display
*dpy
= FRAME_X_DISPLAY (f
);
3278 x_catch_errors (dpy
);
3280 if (FRAME_X_EMBEDDED_P (f
))
3282 /* For Xembedded frames, normally the embedder forwards key
3283 events. See XEmbed Protocol Specification at
3284 http://freedesktop.org/wiki/Specifications/xembed-spec */
3285 xembed_request_focus (f
);
3289 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3290 RevertToParent
, CurrentTime
);
3291 x_ewmh_activate_frame (f
);
3294 x_uncatch_errors ();
3299 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3300 doc
: /* Internal function called by `color-defined-p', which see
3301 .\(Note that the Nextstep version of this function ignores FRAME.) */)
3302 (Lisp_Object color
, Lisp_Object frame
)
3305 struct frame
*f
= decode_window_system_frame (frame
);
3307 CHECK_STRING (color
);
3309 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3315 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3316 doc
: /* Internal function called by `color-values', which see. */)
3317 (Lisp_Object color
, Lisp_Object frame
)
3320 struct frame
*f
= decode_window_system_frame (frame
);
3322 CHECK_STRING (color
);
3324 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3325 return list3i (foo
.red
, foo
.green
, foo
.blue
);
3330 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3331 doc
: /* Internal function called by `display-color-p', which see. */)
3332 (Lisp_Object terminal
)
3334 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3336 if (dpyinfo
->n_planes
<= 2)
3339 switch (dpyinfo
->visual
->class)
3352 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3354 doc
: /* Return t if the X display supports shades of gray.
3355 Note that color displays do support shades of gray.
3356 The optional argument TERMINAL specifies which display to ask about.
3357 TERMINAL should be a terminal object, a frame or a display name (a string).
3358 If omitted or nil, that stands for the selected frame's display. */)
3359 (Lisp_Object terminal
)
3361 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3363 if (dpyinfo
->n_planes
<= 1)
3366 switch (dpyinfo
->visual
->class)
3381 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3383 doc
: /* Return the width in pixels of the X display TERMINAL.
3384 The optional argument TERMINAL specifies which display to ask about.
3385 TERMINAL should be a terminal object, a frame or a display name (a string).
3386 If omitted or nil, that stands for the selected frame's display.
3388 On \"multi-monitor\" setups this refers to the pixel width for all
3389 physical monitors associated with TERMINAL. To get information for
3390 each physical monitor, use `display-monitor-attributes-list'. */)
3391 (Lisp_Object terminal
)
3393 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3395 return make_number (x_display_pixel_width (dpyinfo
));
3398 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3399 Sx_display_pixel_height
, 0, 1, 0,
3400 doc
: /* Return the height in pixels of the X display TERMINAL.
3401 The optional argument TERMINAL specifies which display to ask about.
3402 TERMINAL should be a terminal object, a frame or a display name (a string).
3403 If omitted or nil, that stands for the selected frame's display.
3405 On \"multi-monitor\" setups this refers to the pixel height for all
3406 physical monitors associated with TERMINAL. To get information for
3407 each physical monitor, use `display-monitor-attributes-list'. */)
3408 (Lisp_Object terminal
)
3410 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3412 return make_number (x_display_pixel_height (dpyinfo
));
3415 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3417 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3418 The optional argument TERMINAL specifies which display to ask about.
3419 TERMINAL should be a terminal object, a frame or a display name (a string).
3420 If omitted or nil, that stands for the selected frame's display. */)
3421 (Lisp_Object terminal
)
3423 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3425 return make_number (dpyinfo
->n_planes
);
3428 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3430 doc
: /* Return the number of color cells of the X display TERMINAL.
3431 The optional argument TERMINAL specifies which display to ask about.
3432 TERMINAL should be a terminal object, a frame or a display name (a string).
3433 If omitted or nil, that stands for the selected frame's display. */)
3434 (Lisp_Object terminal
)
3436 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3438 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3439 XScreenNumberOfScreen (dpyinfo
->screen
));
3441 /* Truncate nr_planes to 24 to avoid integer overflow.
3442 Some displays says 32, but only 24 bits are actually significant.
3443 There are only very few and rare video cards that have more than
3444 24 significant bits. Also 24 bits is more than 16 million colors,
3445 it "should be enough for everyone". */
3446 if (nr_planes
> 24) nr_planes
= 24;
3448 return make_number (1 << nr_planes
);
3451 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3452 Sx_server_max_request_size
,
3454 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3455 The optional argument TERMINAL specifies which display to ask about.
3456 TERMINAL should be a terminal object, a frame or a display name (a string).
3457 If omitted or nil, that stands for the selected frame's display. */)
3458 (Lisp_Object terminal
)
3460 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3462 return make_number (MAXREQUEST (dpyinfo
->display
));
3465 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3466 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3467 \(Labeling every distributor as a "vendor" embodies the false assumption
3468 that operating systems cannot be developed and distributed noncommercially.)
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 const char *vendor
= ServerVendor (dpyinfo
->display
);
3477 if (! vendor
) vendor
= "";
3478 return build_string (vendor
);
3481 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3482 doc
: /* Return the version numbers of the X server of display TERMINAL.
3483 The value is a list of three integers: the major and minor
3484 version numbers of the X Protocol in use, and the distributor-specific release
3485 number. See also the function `x-server-vendor'.
3487 The optional argument TERMINAL specifies which display to ask about.
3488 TERMINAL should be a terminal object, a frame or a display name (a string).
3489 If omitted or nil, that stands for the selected frame's display. */)
3490 (Lisp_Object terminal
)
3492 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3493 Display
*dpy
= dpyinfo
->display
;
3495 return list3i (ProtocolVersion (dpy
), ProtocolRevision (dpy
),
3496 VendorRelease (dpy
));
3499 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3500 doc
: /* Return the number of screens on the X server of display TERMINAL.
3501 The optional argument TERMINAL specifies which display to ask about.
3502 TERMINAL should be a terminal object, a frame or a display name (a string).
3503 If omitted or nil, that stands for the selected frame's display. */)
3504 (Lisp_Object terminal
)
3506 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3508 return make_number (ScreenCount (dpyinfo
->display
));
3511 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3512 doc
: /* Return the height in millimeters of the X display TERMINAL.
3513 The optional argument TERMINAL specifies which display to ask about.
3514 TERMINAL should be a terminal object, a frame or a display name (a string).
3515 If omitted or nil, that stands for the selected frame's display.
3517 On \"multi-monitor\" setups this refers to the height in millimeters for
3518 all physical monitors associated with TERMINAL. To get information
3519 for each physical monitor, use `display-monitor-attributes-list'. */)
3520 (Lisp_Object terminal
)
3522 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3524 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3527 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3528 doc
: /* Return the width in millimeters of the X display TERMINAL.
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.
3533 On \"multi-monitor\" setups this refers to the width in millimeters for
3534 all physical monitors associated with TERMINAL. To get information
3535 for each physical monitor, use `display-monitor-attributes-list'. */)
3536 (Lisp_Object terminal
)
3538 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3540 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3543 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3544 Sx_display_backing_store
, 0, 1, 0,
3545 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3546 The value may be `always', `when-mapped', or `not-useful'.
3547 The optional argument TERMINAL specifies which display to ask about.
3548 TERMINAL should be a terminal object, a frame or a display name (a string).
3549 If omitted or nil, that stands for the selected frame's display. */)
3550 (Lisp_Object terminal
)
3552 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3555 switch (DoesBackingStore (dpyinfo
->screen
))
3558 result
= intern ("always");
3562 result
= intern ("when-mapped");
3566 result
= intern ("not-useful");
3570 error ("Strange value for BackingStore parameter of screen");
3576 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3577 Sx_display_visual_class
, 0, 1, 0,
3578 doc
: /* Return the visual class of the X display TERMINAL.
3579 The value is one of the symbols `static-gray', `gray-scale',
3580 `static-color', `pseudo-color', `true-color', or `direct-color'.
3582 The optional argument TERMINAL specifies which display to ask about.
3583 TERMINAL should a terminal object, a frame or a display name (a string).
3584 If omitted or nil, that stands for the selected frame's display. */)
3585 (Lisp_Object terminal
)
3587 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3590 switch (dpyinfo
->visual
->class)
3593 result
= intern ("static-gray");
3596 result
= intern ("gray-scale");
3599 result
= intern ("static-color");
3602 result
= intern ("pseudo-color");
3605 result
= intern ("true-color");
3608 result
= intern ("direct-color");
3611 error ("Display has an unknown visual class");
3617 DEFUN ("x-display-save-under", Fx_display_save_under
,
3618 Sx_display_save_under
, 0, 1, 0,
3619 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3620 The optional argument TERMINAL specifies which display to ask about.
3621 TERMINAL should be a terminal object, a frame or a display name (a string).
3622 If omitted or nil, that stands for the selected frame's display. */)
3623 (Lisp_Object terminal
)
3625 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3627 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3633 /* Store the geometry of the workarea on display DPYINFO into *RECT.
3634 Return false if and only if the workarea information cannot be
3635 obtained via the _NET_WORKAREA root window property. */
3637 #if ! GTK_CHECK_VERSION (3, 4, 0)
3639 x_get_net_workarea (struct x_display_info
*dpyinfo
, XRectangle
*rect
)
3641 Display
*dpy
= dpyinfo
->display
;
3642 long offset
, max_len
;
3643 Atom target_type
, actual_type
;
3644 unsigned long actual_size
, bytes_remaining
;
3645 int rc
, actual_format
;
3646 unsigned char *tmp_data
= NULL
;
3647 bool result
= false;
3649 x_catch_errors (dpy
);
3652 target_type
= XA_CARDINAL
;
3653 rc
= XGetWindowProperty (dpy
, dpyinfo
->root_window
,
3654 dpyinfo
->Xatom_net_current_desktop
,
3655 offset
, max_len
, False
, target_type
,
3656 &actual_type
, &actual_format
, &actual_size
,
3657 &bytes_remaining
, &tmp_data
);
3658 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
3659 && actual_format
== 32 && actual_size
== max_len
)
3661 long current_desktop
= ((long *) tmp_data
)[0];
3666 offset
= 4 * current_desktop
;
3668 rc
= XGetWindowProperty (dpy
, dpyinfo
->root_window
,
3669 dpyinfo
->Xatom_net_workarea
,
3670 offset
, max_len
, False
, target_type
,
3671 &actual_type
, &actual_format
, &actual_size
,
3672 &bytes_remaining
, &tmp_data
);
3673 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
3674 && actual_format
== 32 && actual_size
== max_len
)
3676 long *values
= (long *) tmp_data
;
3678 rect
->x
= values
[0];
3679 rect
->y
= values
[1];
3680 rect
->width
= values
[2];
3681 rect
->height
= values
[3];
3691 x_uncatch_errors ();
3699 /* Return monitor number where F is "most" or closest to. */
3701 x_get_monitor_for_frame (struct frame
*f
,
3702 struct MonitorInfo
*monitors
,
3706 int area
= 0, dist
= -1;
3707 int best_area
= -1, best_dist
= -1;
3710 if (n_monitors
== 1) return 0;
3711 frect
.x
= f
->left_pos
;
3712 frect
.y
= f
->top_pos
;
3713 frect
.width
= FRAME_PIXEL_WIDTH (f
);
3714 frect
.height
= FRAME_PIXEL_HEIGHT (f
);
3716 for (i
= 0; i
< n_monitors
; ++i
)
3718 struct MonitorInfo
*mi
= &monitors
[i
];
3722 if (mi
->geom
.width
== 0) continue;
3724 if (x_intersect_rectangles (&mi
->geom
, &frect
, &res
))
3726 a
= res
.width
* res
.height
;
3734 if (a
== 0 && area
== 0)
3737 if (frect
.x
+ frect
.width
< mi
->geom
.x
)
3738 dx
= mi
->geom
.x
- frect
.x
+ frect
.width
;
3739 else if (frect
.x
> mi
->geom
.x
+ mi
->geom
.width
)
3740 dx
= frect
.x
- mi
->geom
.x
+ mi
->geom
.width
;
3743 if (frect
.y
+ frect
.height
< mi
->geom
.y
)
3744 dy
= mi
->geom
.y
- frect
.y
+ frect
.height
;
3745 else if (frect
.y
> mi
->geom
.y
+ mi
->geom
.height
)
3746 dy
= frect
.y
- mi
->geom
.y
+ mi
->geom
.height
;
3751 if (dist
== -1 || dist
> d
)
3759 return best_area
!= -1 ? best_area
: (best_dist
!= -1 ? best_dist
: 0);
3763 x_make_monitor_attribute_list (struct MonitorInfo
*monitors
,
3765 int primary_monitor
,
3766 struct x_display_info
*dpyinfo
,
3769 Lisp_Object monitor_frames
= Fmake_vector (make_number (n_monitors
), Qnil
);
3770 Lisp_Object frame
, rest
;
3772 FOR_EACH_FRAME (rest
, frame
)
3774 struct frame
*f
= XFRAME (frame
);
3776 if (FRAME_X_P (f
) && FRAME_DISPLAY_INFO (f
) == dpyinfo
3777 && !EQ (frame
, tip_frame
))
3779 int i
= x_get_monitor_for_frame (f
, monitors
, n_monitors
);
3780 ASET (monitor_frames
, i
, Fcons (frame
, AREF (monitor_frames
, i
)));
3784 return make_monitor_attribute_list (monitors
, n_monitors
, primary_monitor
,
3785 monitor_frames
, source
);
3789 x_get_monitor_attributes_fallback (struct x_display_info
*dpyinfo
)
3791 struct MonitorInfo monitor
;
3792 XRectangle workarea_r
;
3794 /* Fallback: treat (possibly) multiple physical monitors as if they
3795 formed a single monitor as a whole. This should provide a
3796 consistent result at least on single monitor environments. */
3797 monitor
.geom
.x
= monitor
.geom
.y
= 0;
3798 monitor
.geom
.width
= x_display_pixel_width (dpyinfo
);
3799 monitor
.geom
.height
= x_display_pixel_height (dpyinfo
);
3800 monitor
.mm_width
= WidthMMOfScreen (dpyinfo
->screen
);
3801 monitor
.mm_height
= HeightMMOfScreen (dpyinfo
->screen
);
3802 monitor
.name
= xstrdup ("combined screen");
3804 if (x_get_net_workarea (dpyinfo
, &workarea_r
))
3805 monitor
.work
= workarea_r
;
3807 monitor
.work
= monitor
.geom
;
3808 return x_make_monitor_attribute_list (&monitor
, 1, 0, dpyinfo
, "fallback");
3812 #ifdef HAVE_XINERAMA
3814 x_get_monitor_attributes_xinerama (struct x_display_info
*dpyinfo
)
3817 Lisp_Object attributes_list
= Qnil
;
3818 Display
*dpy
= dpyinfo
->display
;
3819 XineramaScreenInfo
*info
= XineramaQueryScreens (dpy
, &n_monitors
);
3820 struct MonitorInfo
*monitors
;
3821 double mm_width_per_pixel
, mm_height_per_pixel
;
3823 if (! info
|| n_monitors
== 0)
3827 return attributes_list
;
3830 mm_width_per_pixel
= ((double) WidthMMOfScreen (dpyinfo
->screen
)
3831 / x_display_pixel_width (dpyinfo
));
3832 mm_height_per_pixel
= ((double) HeightMMOfScreen (dpyinfo
->screen
)
3833 / x_display_pixel_height (dpyinfo
));
3834 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
3835 for (i
= 0; i
< n_monitors
; ++i
)
3837 struct MonitorInfo
*mi
= &monitors
[i
];
3838 XRectangle workarea_r
;
3840 mi
->geom
.x
= info
[i
].x_org
;
3841 mi
->geom
.y
= info
[i
].y_org
;
3842 mi
->geom
.width
= info
[i
].width
;
3843 mi
->geom
.height
= info
[i
].height
;
3844 mi
->mm_width
= mi
->geom
.width
* mm_width_per_pixel
+ 0.5;
3845 mi
->mm_height
= mi
->geom
.height
* mm_height_per_pixel
+ 0.5;
3848 /* Xinerama usually have primary monitor first, just use that. */
3849 if (i
== 0 && x_get_net_workarea (dpyinfo
, &workarea_r
))
3851 mi
->work
= workarea_r
;
3852 if (! x_intersect_rectangles (&mi
->geom
, &mi
->work
, &mi
->work
))
3853 mi
->work
= mi
->geom
;
3856 mi
->work
= mi
->geom
;
3860 attributes_list
= x_make_monitor_attribute_list (monitors
,
3865 free_monitors (monitors
, n_monitors
);
3866 return attributes_list
;
3868 #endif /* HAVE_XINERAMA */
3873 x_get_monitor_attributes_xrandr (struct x_display_info
*dpyinfo
)
3875 Lisp_Object attributes_list
= Qnil
;
3876 XRRScreenResources
*resources
;
3877 Display
*dpy
= dpyinfo
->display
;
3878 int i
, n_monitors
, primary
= -1;
3879 RROutput pxid
= None
;
3880 struct MonitorInfo
*monitors
;
3882 #ifdef HAVE_XRRGETSCREENRESOURCESCURRENT
3883 resources
= XRRGetScreenResourcesCurrent (dpy
, dpyinfo
->root_window
);
3885 resources
= XRRGetScreenResources (dpy
, dpyinfo
->root_window
);
3887 if (! resources
|| resources
->noutput
== 0)
3890 XRRFreeScreenResources (resources
);
3893 n_monitors
= resources
->noutput
;
3894 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
3896 #ifdef HAVE_XRRGETOUTPUTPRIMARY
3897 pxid
= XRRGetOutputPrimary (dpy
, dpyinfo
->root_window
);
3900 for (i
= 0; i
< n_monitors
; ++i
)
3902 XRROutputInfo
*info
= XRRGetOutputInfo (dpy
, resources
,
3903 resources
->outputs
[i
]);
3904 Connection conn
= info
? info
->connection
: RR_Disconnected
;
3905 RRCrtc id
= info
? info
->crtc
: None
;
3907 if (strcmp (info
->name
, "default") == 0)
3909 /* Non XRandr 1.2 driver, does not give useful data. */
3910 XRRFreeOutputInfo (info
);
3911 XRRFreeScreenResources (resources
);
3912 free_monitors (monitors
, n_monitors
);
3916 if (conn
!= RR_Disconnected
&& id
!= None
)
3918 XRRCrtcInfo
*crtc
= XRRGetCrtcInfo (dpy
, resources
, id
);
3919 struct MonitorInfo
*mi
= &monitors
[i
];
3920 XRectangle workarea_r
;
3924 XRRFreeOutputInfo (info
);
3928 mi
->geom
.x
= crtc
->x
;
3929 mi
->geom
.y
= crtc
->y
;
3930 mi
->geom
.width
= crtc
->width
;
3931 mi
->geom
.height
= crtc
->height
;
3932 mi
->mm_width
= info
->mm_width
;
3933 mi
->mm_height
= info
->mm_height
;
3934 mi
->name
= xstrdup (info
->name
);
3936 if (pxid
!= None
&& pxid
== resources
->outputs
[i
])
3938 else if (primary
== -1 && strcmp (info
->name
, "LVDS") == 0)
3941 if (i
== primary
&& x_get_net_workarea (dpyinfo
, &workarea_r
))
3943 mi
->work
= workarea_r
;
3944 if (! x_intersect_rectangles (&mi
->geom
, &mi
->work
, &mi
->work
))
3945 mi
->work
= mi
->geom
;
3948 mi
->work
= mi
->geom
;
3950 XRRFreeCrtcInfo (crtc
);
3952 XRRFreeOutputInfo (info
);
3954 XRRFreeScreenResources (resources
);
3956 attributes_list
= x_make_monitor_attribute_list (monitors
,
3961 free_monitors (monitors
, n_monitors
);
3962 return attributes_list
;
3964 #endif /* HAVE_XRANDR */
3967 x_get_monitor_attributes (struct x_display_info
*dpyinfo
)
3969 Lisp_Object attributes_list
= Qnil
;
3970 Display
*dpy
= dpyinfo
->display
;
3972 (void) dpy
; /* Suppress unused variable warning. */
3975 int xrr_event_base
, xrr_error_base
;
3976 bool xrr_ok
= false;
3977 xrr_ok
= XRRQueryExtension (dpy
, &xrr_event_base
, &xrr_error_base
);
3980 int xrr_major
, xrr_minor
;
3981 XRRQueryVersion (dpy
, &xrr_major
, &xrr_minor
);
3982 xrr_ok
= (xrr_major
== 1 && xrr_minor
>= 2) || xrr_major
> 1;
3986 attributes_list
= x_get_monitor_attributes_xrandr (dpyinfo
);
3987 #endif /* HAVE_XRANDR */
3989 #ifdef HAVE_XINERAMA
3990 if (NILP (attributes_list
))
3992 int xin_event_base
, xin_error_base
;
3993 bool xin_ok
= false;
3994 xin_ok
= XineramaQueryExtension (dpy
, &xin_event_base
, &xin_error_base
);
3995 if (xin_ok
&& XineramaIsActive (dpy
))
3996 attributes_list
= x_get_monitor_attributes_xinerama (dpyinfo
);
3998 #endif /* HAVE_XINERAMA */
4000 if (NILP (attributes_list
))
4001 attributes_list
= x_get_monitor_attributes_fallback (dpyinfo
);
4003 return attributes_list
;
4006 #endif /* !USE_GTK */
4008 DEFUN ("x-display-monitor-attributes-list", Fx_display_monitor_attributes_list
,
4009 Sx_display_monitor_attributes_list
,
4011 doc
: /* Return a list of physical monitor attributes on the X display TERMINAL.
4013 The optional argument TERMINAL specifies which display to ask about.
4014 TERMINAL should be a terminal object, a frame or a display name (a string).
4015 If omitted or nil, that stands for the selected frame's display.
4017 In addition to the standard attribute keys listed in
4018 `display-monitor-attributes-list', the following keys are contained in
4021 source -- String describing the source from which multi-monitor
4022 information is obtained, one of \"Gdk\", \"XRandr\",
4023 \"Xinerama\", or \"fallback\"
4025 Internal use only, use `display-monitor-attributes-list' instead. */)
4026 (Lisp_Object terminal
)
4028 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4029 Lisp_Object attributes_list
= Qnil
;
4032 double mm_width_per_pixel
, mm_height_per_pixel
;
4035 gint primary_monitor
= 0, n_monitors
, i
;
4036 Lisp_Object monitor_frames
, rest
, frame
;
4037 static const char *source
= "Gdk";
4038 struct MonitorInfo
*monitors
;
4041 mm_width_per_pixel
= ((double) WidthMMOfScreen (dpyinfo
->screen
)
4042 / x_display_pixel_width (dpyinfo
));
4043 mm_height_per_pixel
= ((double) HeightMMOfScreen (dpyinfo
->screen
)
4044 / x_display_pixel_height (dpyinfo
));
4045 gdpy
= gdk_x11_lookup_xdisplay (dpyinfo
->display
);
4046 gscreen
= gdk_display_get_default_screen (gdpy
);
4047 #if GTK_CHECK_VERSION (2, 20, 0)
4048 primary_monitor
= gdk_screen_get_primary_monitor (gscreen
);
4050 n_monitors
= gdk_screen_get_n_monitors (gscreen
);
4051 monitor_frames
= Fmake_vector (make_number (n_monitors
), Qnil
);
4052 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
4054 FOR_EACH_FRAME (rest
, frame
)
4056 struct frame
*f
= XFRAME (frame
);
4058 if (FRAME_X_P (f
) && FRAME_DISPLAY_INFO (f
) == dpyinfo
4059 && !EQ (frame
, tip_frame
))
4061 GdkWindow
*gwin
= gtk_widget_get_window (FRAME_GTK_WIDGET (f
));
4063 i
= gdk_screen_get_monitor_at_window (gscreen
, gwin
);
4064 ASET (monitor_frames
, i
, Fcons (frame
, AREF (monitor_frames
, i
)));
4068 for (i
= 0; i
< n_monitors
; ++i
)
4070 gint width_mm
= -1, height_mm
= -1;
4071 GdkRectangle rec
, work
;
4072 struct MonitorInfo
*mi
= &monitors
[i
];
4074 gdk_screen_get_monitor_geometry (gscreen
, i
, &rec
);
4076 #if GTK_CHECK_VERSION (2, 14, 0)
4077 width_mm
= gdk_screen_get_monitor_width_mm (gscreen
, i
);
4078 height_mm
= gdk_screen_get_monitor_height_mm (gscreen
, i
);
4081 width_mm
= rec
.width
* mm_width_per_pixel
+ 0.5;
4083 height_mm
= rec
.height
* mm_height_per_pixel
+ 0.5;
4085 #if GTK_CHECK_VERSION (3, 4, 0)
4086 gdk_screen_get_monitor_workarea (gscreen
, i
, &work
);
4088 /* Emulate the behavior of GTK+ 3.4. */
4090 XRectangle workarea_r
;
4092 if (i
== primary_monitor
&& x_get_net_workarea (dpyinfo
, &workarea_r
))
4094 work
.x
= workarea_r
.x
;
4095 work
.y
= workarea_r
.y
;
4096 work
.width
= workarea_r
.width
;
4097 work
.height
= workarea_r
.height
;
4098 if (! gdk_rectangle_intersect (&rec
, &work
, &work
))
4109 mi
->geom
.width
= rec
.width
;
4110 mi
->geom
.height
= rec
.height
;
4111 mi
->work
.x
= work
.x
;
4112 mi
->work
.y
= work
.y
;
4113 mi
->work
.width
= work
.width
;
4114 mi
->work
.height
= work
.height
;
4115 mi
->mm_width
= width_mm
;
4116 mi
->mm_height
= height_mm
;
4118 #if GTK_CHECK_VERSION (2, 14, 0)
4119 mi
->name
= gdk_screen_get_monitor_plug_name (gscreen
, i
);
4123 attributes_list
= make_monitor_attribute_list (monitors
,
4129 #else /* not USE_GTK */
4132 attributes_list
= x_get_monitor_attributes (dpyinfo
);
4135 #endif /* not USE_GTK */
4137 return attributes_list
;
4140 /************************************************************************
4142 ************************************************************************/
4145 /* Mapping visual names to visuals. */
4147 static struct visual_class
4154 {"StaticGray", StaticGray
},
4155 {"GrayScale", GrayScale
},
4156 {"StaticColor", StaticColor
},
4157 {"PseudoColor", PseudoColor
},
4158 {"TrueColor", TrueColor
},
4159 {"DirectColor", DirectColor
},
4164 #ifndef HAVE_XSCREENNUMBEROFSCREEN
4166 /* Value is the screen number of screen SCR. This is a substitute for
4167 the X function with the same name when that doesn't exist. */
4170 XScreenNumberOfScreen (scr
)
4171 register Screen
*scr
;
4173 Display
*dpy
= scr
->display
;
4176 for (i
= 0; i
< dpy
->nscreens
; ++i
)
4177 if (scr
== dpy
->screens
+ i
)
4183 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
4186 /* Select the visual that should be used on display DPYINFO. Set
4187 members of DPYINFO appropriately. Called from x_term_init. */
4190 select_visual (struct x_display_info
*dpyinfo
)
4192 Display
*dpy
= dpyinfo
->display
;
4193 Screen
*screen
= dpyinfo
->screen
;
4196 /* See if a visual is specified. */
4197 value
= display_x_get_resource (dpyinfo
,
4198 build_string ("visualClass"),
4199 build_string ("VisualClass"),
4201 if (STRINGP (value
))
4203 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
4204 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4205 depth, a decimal number. NAME is compared with case ignored. */
4206 char *s
= alloca (SBYTES (value
) + 1);
4211 strcpy (s
, SSDATA (value
));
4212 dash
= strchr (s
, '-');
4215 dpyinfo
->n_planes
= atoi (dash
+ 1);
4219 /* We won't find a matching visual with depth 0, so that
4220 an error will be printed below. */
4221 dpyinfo
->n_planes
= 0;
4223 /* Determine the visual class. */
4224 for (i
= 0; visual_classes
[i
].name
; ++i
)
4225 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4227 class = visual_classes
[i
].class;
4231 /* Look up a matching visual for the specified class. */
4233 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4234 dpyinfo
->n_planes
, class, &vinfo
))
4235 fatal ("Invalid visual specification `%s'", SDATA (value
));
4237 dpyinfo
->visual
= vinfo
.visual
;
4242 XVisualInfo
*vinfo
, vinfo_template
;
4244 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4246 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4247 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4248 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4249 &vinfo_template
, &n_visuals
);
4251 fatal ("Can't get proper X visual info");
4253 dpyinfo
->n_planes
= vinfo
->depth
;
4259 /* Return the X display structure for the display named NAME.
4260 Open a new connection if necessary. */
4262 static struct x_display_info
*
4263 x_display_info_for_name (Lisp_Object name
)
4265 struct x_display_info
*dpyinfo
;
4267 CHECK_STRING (name
);
4269 for (dpyinfo
= x_display_list
; dpyinfo
; dpyinfo
= dpyinfo
->next
)
4270 if (!NILP (Fstring_equal (XCAR (dpyinfo
->name_list_element
), name
)))
4273 /* Use this general default value to start with. */
4274 Vx_resource_name
= Vinvocation_name
;
4276 validate_x_resource_name ();
4278 dpyinfo
= x_term_init (name
, 0, SSDATA (Vx_resource_name
));
4281 error ("Cannot connect to X server %s", SDATA (name
));
4283 XSETFASTINT (Vwindow_system_version
, 11);
4289 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4291 doc
: /* Open a connection to a display server.
4292 DISPLAY is the name of the display to connect to.
4293 Optional second arg XRM-STRING is a string of resources in xrdb format.
4294 If the optional third arg MUST-SUCCEED is non-nil,
4295 terminate Emacs if we can't open the connection.
4296 \(In the Nextstep version, the last two arguments are currently ignored.) */)
4297 (Lisp_Object display
, Lisp_Object xrm_string
, Lisp_Object must_succeed
)
4300 struct x_display_info
*dpyinfo
;
4302 CHECK_STRING (display
);
4303 if (! NILP (xrm_string
))
4304 CHECK_STRING (xrm_string
);
4306 xrm_option
= NILP (xrm_string
) ? 0 : SSDATA (xrm_string
);
4308 validate_x_resource_name ();
4310 /* This is what opens the connection and sets x_current_display.
4311 This also initializes many symbols, such as those used for input. */
4312 dpyinfo
= x_term_init (display
, xrm_option
,
4313 SSDATA (Vx_resource_name
));
4317 if (!NILP (must_succeed
))
4318 fatal ("Cannot connect to X server %s.\n\
4319 Check the DISPLAY environment variable or use `-d'.\n\
4320 Also use the `xauth' program to verify that you have the proper\n\
4321 authorization information needed to connect the X server.\n\
4322 An insecure way to solve the problem may be to use `xhost'.\n",
4325 error ("Cannot connect to X server %s", SDATA (display
));
4328 XSETFASTINT (Vwindow_system_version
, 11);
4332 DEFUN ("x-close-connection", Fx_close_connection
,
4333 Sx_close_connection
, 1, 1, 0,
4334 doc
: /* Close the connection to TERMINAL's X server.
4335 For TERMINAL, specify a terminal object, a frame or a display name (a
4336 string). If TERMINAL is nil, that stands for the selected frame's
4338 (Lisp_Object terminal
)
4340 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4342 if (dpyinfo
->reference_count
> 0)
4343 error ("Display still has frames on it");
4345 x_delete_terminal (dpyinfo
->terminal
);
4350 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4351 doc
: /* Return the list of display names that Emacs has connections to. */)
4354 Lisp_Object result
= Qnil
;
4355 struct x_display_info
*xdi
;
4357 for (xdi
= x_display_list
; xdi
; xdi
= xdi
->next
)
4358 result
= Fcons (XCAR (xdi
->name_list_element
), result
);
4363 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4364 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4365 This function only has an effect on X Windows. With MS Windows, it is
4366 defined but does nothing.
4368 If ON is nil, allow buffering of requests.
4369 Turning on synchronization prohibits the Xlib routines from buffering
4370 requests and seriously degrades performance, but makes debugging much
4372 The optional second argument TERMINAL specifies which display to act on.
4373 TERMINAL should be a terminal object, a frame or a display name (a string).
4374 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4375 (Lisp_Object on
, Lisp_Object terminal
)
4377 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4379 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4384 /* Wait for responses to all X commands issued so far for frame F. */
4387 x_sync (struct frame
*f
)
4390 XSync (FRAME_X_DISPLAY (f
), False
);
4395 /***********************************************************************
4397 ***********************************************************************/
4399 DEFUN ("x-change-window-property", Fx_change_window_property
,
4400 Sx_change_window_property
, 2, 6, 0,
4401 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4402 PROP must be a string. VALUE may be a string or a list of conses,
4403 numbers and/or strings. If an element in the list is a string, it is
4404 converted to an atom and the value of the atom is used. If an element
4405 is a cons, it is converted to a 32 bit number where the car is the 16
4406 top bits and the cdr is the lower 16 bits.
4408 FRAME nil or omitted means use the selected frame.
4409 If TYPE is given and non-nil, it is the name of the type of VALUE.
4410 If TYPE is not given or nil, the type is STRING.
4411 FORMAT gives the size in bits of each element if VALUE is a list.
4412 It must be one of 8, 16 or 32.
4413 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4414 If OUTER-P is non-nil, the property is changed for the outer X window of
4415 FRAME. Default is to change on the edit X window. */)
4416 (Lisp_Object prop
, Lisp_Object value
, Lisp_Object frame
,
4417 Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4419 struct frame
*f
= decode_window_system_frame (frame
);
4421 Atom target_type
= XA_STRING
;
4422 int element_format
= 8;
4423 unsigned char *data
;
4427 CHECK_STRING (prop
);
4429 if (! NILP (format
))
4431 CHECK_NUMBER (format
);
4433 if (XINT (format
) != 8 && XINT (format
) != 16
4434 && XINT (format
) != 32)
4435 error ("FORMAT must be one of 8, 16 or 32");
4436 element_format
= XINT (format
);
4443 nelements
= x_check_property_data (value
);
4444 if (nelements
== -1)
4445 error ("Bad data in VALUE, must be number, string or cons");
4447 /* The man page for XChangeProperty:
4448 "If the specified format is 32, the property data must be a
4450 This applies even if long is more than 32 bits. The X library
4451 converts to 32 bits before sending to the X server. */
4452 elsize
= element_format
== 32 ? sizeof (long) : element_format
>> 3;
4453 data
= xnmalloc (nelements
, elsize
);
4455 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4459 CHECK_STRING (value
);
4460 data
= SDATA (value
);
4461 if (INT_MAX
< SBYTES (value
))
4462 error ("VALUE too long");
4463 nelements
= SBYTES (value
);
4467 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4470 CHECK_STRING (type
);
4471 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4474 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4475 else w
= FRAME_X_WINDOW (f
);
4477 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4478 prop_atom
, target_type
, element_format
, PropModeReplace
,
4481 if (CONSP (value
)) xfree (data
);
4483 /* Make sure the property is set when we return. */
4484 XFlush (FRAME_X_DISPLAY (f
));
4491 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4492 Sx_delete_window_property
, 1, 2, 0,
4493 doc
: /* Remove window property PROP from X window of FRAME.
4494 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4495 (Lisp_Object prop
, Lisp_Object frame
)
4497 struct frame
*f
= decode_window_system_frame (frame
);
4500 CHECK_STRING (prop
);
4502 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4503 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4505 /* Make sure the property is removed when we return. */
4506 XFlush (FRAME_X_DISPLAY (f
));
4513 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4515 doc
: /* Value is the value of window property PROP on FRAME.
4516 If FRAME is nil or omitted, use the selected frame.
4518 On X Windows, the following optional arguments are also accepted:
4519 If TYPE is nil or omitted, get the property as a string.
4520 Otherwise TYPE is the name of the atom that denotes the type expected.
4521 If SOURCE is non-nil, get the property on that window instead of from
4522 FRAME. The number 0 denotes the root window.
4523 If DELETE-P is non-nil, delete the property after retrieving it.
4524 If VECTOR-RET-P is non-nil, don't return a string but a vector of values.
4526 On MS Windows, this function accepts but ignores those optional arguments.
4528 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4529 no value of TYPE (always string in the MS Windows case). */)
4530 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
,
4531 Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4533 struct frame
*f
= decode_window_system_frame (frame
);
4536 Lisp_Object prop_value
= Qnil
;
4537 unsigned char *tmp_data
= NULL
;
4539 Atom target_type
= XA_STRING
;
4541 unsigned long actual_size
, bytes_remaining
;
4542 Window target_window
= FRAME_X_WINDOW (f
);
4543 struct gcpro gcpro1
;
4545 GCPRO1 (prop_value
);
4546 CHECK_STRING (prop
);
4548 if (! NILP (source
))
4550 CONS_TO_INTEGER (source
, Window
, target_window
);
4551 if (! target_window
)
4552 target_window
= FRAME_DISPLAY_INFO (f
)->root_window
;
4558 if (strcmp ("AnyPropertyType", SSDATA (type
)) == 0)
4559 target_type
= AnyPropertyType
;
4561 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4564 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4565 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4566 prop_atom
, 0, 0, False
, target_type
,
4567 &actual_type
, &actual_format
, &actual_size
,
4568 &bytes_remaining
, &tmp_data
);
4571 int size
= bytes_remaining
;
4576 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4577 prop_atom
, 0, bytes_remaining
,
4578 ! NILP (delete_p
), target_type
,
4579 &actual_type
, &actual_format
,
4580 &actual_size
, &bytes_remaining
,
4582 if (rc
== Success
&& tmp_data
)
4584 /* The man page for XGetWindowProperty says:
4585 "If the returned format is 32, the returned data is represented
4586 as a long array and should be cast to that type to obtain the
4588 This applies even if long is more than 32 bits, the X library
4589 converts from 32 bit elements received from the X server to long
4590 and passes the long array to us. Thus, for that case memcpy can not
4591 be used. We convert to a 32 bit type here, because so much code
4594 The bytes and offsets passed to XGetWindowProperty refers to the
4595 property and those are indeed in 32 bit quantities if format is
4598 if (BITS_PER_LONG
> 32 && actual_format
== 32)
4601 int *idata
= (int *) tmp_data
;
4602 long *ldata
= (long *) tmp_data
;
4604 for (i
= 0; i
< actual_size
; ++i
)
4605 idata
[i
] = (int) ldata
[i
];
4608 if (NILP (vector_ret_p
))
4609 prop_value
= make_string ((char *) tmp_data
, size
);
4611 prop_value
= x_property_data_to_lisp (f
,
4618 if (tmp_data
) XFree (tmp_data
);
4628 /***********************************************************************
4630 ***********************************************************************/
4632 /* Timer function of hourglass_atimer. TIMER is equal to
4635 Display an hourglass pointer on all frames by mapping the frames'
4636 hourglass_window. Set the hourglass_p flag in the frames'
4637 output_data.x structure to indicate that an hourglass cursor is
4638 shown on the frames. */
4641 show_hourglass (struct atimer
*timer
)
4643 /* The timer implementation will cancel this timer automatically
4644 after this function has run. Set hourglass_atimer to null
4645 so that we know the timer doesn't have to be canceled. */
4646 hourglass_atimer
= NULL
;
4648 if (!hourglass_shown_p
)
4650 Lisp_Object rest
, frame
;
4654 FOR_EACH_FRAME (rest
, frame
)
4656 struct frame
*f
= XFRAME (frame
);
4658 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4660 Display
*dpy
= FRAME_X_DISPLAY (f
);
4662 #ifdef USE_X_TOOLKIT
4663 if (f
->output_data
.x
->widget
)
4665 if (FRAME_OUTER_WINDOW (f
))
4668 f
->output_data
.x
->hourglass_p
= 1;
4670 if (!f
->output_data
.x
->hourglass_window
)
4672 unsigned long mask
= CWCursor
;
4673 XSetWindowAttributes attrs
;
4675 Window parent
= FRAME_X_WINDOW (f
);
4677 Window parent
= FRAME_OUTER_WINDOW (f
);
4679 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4681 f
->output_data
.x
->hourglass_window
4682 = XCreateWindow (dpy
, parent
,
4683 0, 0, 32000, 32000, 0, 0,
4689 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4695 hourglass_shown_p
= 1;
4701 /* Hide the hourglass pointer on all frames, if it is currently
4705 hide_hourglass (void)
4707 if (hourglass_shown_p
)
4709 Lisp_Object rest
, frame
;
4712 FOR_EACH_FRAME (rest
, frame
)
4714 struct frame
*f
= XFRAME (frame
);
4717 /* Watch out for newly created frames. */
4718 && f
->output_data
.x
->hourglass_window
)
4720 XUnmapWindow (FRAME_X_DISPLAY (f
),
4721 f
->output_data
.x
->hourglass_window
);
4722 /* Sync here because XTread_socket looks at the
4723 hourglass_p flag that is reset to zero below. */
4724 XSync (FRAME_X_DISPLAY (f
), False
);
4725 f
->output_data
.x
->hourglass_p
= 0;
4729 hourglass_shown_p
= 0;
4736 /***********************************************************************
4738 ***********************************************************************/
4740 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4741 Lisp_Object
, Lisp_Object
);
4742 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4743 Lisp_Object
, int, int, int *, int *);
4745 /* The frame of a currently visible tooltip. */
4747 Lisp_Object tip_frame
;
4749 /* If non-nil, a timer started that hides the last tooltip when it
4752 static Lisp_Object tip_timer
;
4755 /* If non-nil, a vector of 3 elements containing the last args
4756 with which x-show-tip was called. See there. */
4758 static Lisp_Object last_show_tip_args
;
4762 unwind_create_tip_frame (Lisp_Object frame
)
4764 Lisp_Object deleted
;
4766 deleted
= unwind_create_frame (frame
);
4767 if (EQ (deleted
, Qt
))
4775 /* Create a frame for a tooltip on the display described by DPYINFO.
4776 PARMS is a list of frame parameters. TEXT is the string to
4777 display in the tip frame. Value is the frame.
4779 Note that functions called here, esp. x_default_parameter can
4780 signal errors, for instance when a specified color name is
4781 undefined. We have to make sure that we're in a consistent state
4782 when this happens. */
4785 x_create_tip_frame (struct x_display_info
*dpyinfo
,
4793 ptrdiff_t count
= SPECPDL_INDEX ();
4794 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4795 int face_change_count_before
= face_change_count
;
4797 struct buffer
*old_buffer
;
4799 if (!dpyinfo
->terminal
->name
)
4800 error ("Terminal is not live, can't create new frames on it");
4802 parms
= Fcopy_alist (parms
);
4804 /* Get the name of the frame to use for resource lookup. */
4805 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4807 && !EQ (name
, Qunbound
)
4809 error ("Invalid frame name--not a string or nil");
4812 GCPRO3 (parms
, name
, frame
);
4814 XSETFRAME (frame
, f
);
4816 buffer
= Fget_buffer_create (build_string (" *tip*"));
4817 /* Use set_window_buffer instead of Fset_window_buffer (see
4818 discussion of bug#11984, bug#12025, bug#12026). */
4819 set_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, 0, 0);
4820 old_buffer
= current_buffer
;
4821 set_buffer_internal_1 (XBUFFER (buffer
));
4822 bset_truncate_lines (current_buffer
, Qnil
);
4823 specbind (Qinhibit_read_only
, Qt
);
4824 specbind (Qinhibit_modification_hooks
, Qt
);
4827 set_buffer_internal_1 (old_buffer
);
4829 record_unwind_protect (unwind_create_tip_frame
, frame
);
4831 f
->terminal
= dpyinfo
->terminal
;
4833 /* By setting the output method, we're essentially saying that
4834 the frame is live, as per FRAME_LIVE_P. If we get a signal
4835 from this point on, x_destroy_window might screw up reference
4837 f
->output_method
= output_x_window
;
4838 f
->output_data
.x
= xzalloc (sizeof *f
->output_data
.x
);
4839 f
->output_data
.x
->icon_bitmap
= -1;
4840 FRAME_FONTSET (f
) = -1;
4841 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4842 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4843 #ifdef USE_TOOLKIT_SCROLL_BARS
4844 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4845 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4846 #endif /* USE_TOOLKIT_SCROLL_BARS */
4847 f
->output_data
.x
->white_relief
.pixel
= -1;
4848 f
->output_data
.x
->black_relief
.pixel
= -1;
4850 fset_icon_name (f
, Qnil
);
4851 FRAME_DISPLAY_INFO (f
) = dpyinfo
;
4852 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
4853 f
->output_data
.x
->explicit_parent
= 0;
4855 /* These colors will be set anyway later, but it's important
4856 to get the color reference counts right, so initialize them! */
4859 struct gcpro gcpro1
;
4861 /* Function x_decode_color can signal an error. Make
4862 sure to initialize color slots so that we won't try
4863 to free colors we haven't allocated. */
4864 FRAME_FOREGROUND_PIXEL (f
) = -1;
4865 FRAME_BACKGROUND_PIXEL (f
) = -1;
4866 f
->output_data
.x
->cursor_pixel
= -1;
4867 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4868 f
->output_data
.x
->border_pixel
= -1;
4869 f
->output_data
.x
->mouse_pixel
= -1;
4871 black
= build_string ("black");
4873 FRAME_FOREGROUND_PIXEL (f
)
4874 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4875 FRAME_BACKGROUND_PIXEL (f
)
4876 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4877 f
->output_data
.x
->cursor_pixel
4878 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4879 f
->output_data
.x
->cursor_foreground_pixel
4880 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4881 f
->output_data
.x
->border_pixel
4882 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4883 f
->output_data
.x
->mouse_pixel
4884 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4888 /* Set the name; the functions to which we pass f expect the name to
4890 if (EQ (name
, Qunbound
) || NILP (name
))
4892 fset_name (f
, build_string (dpyinfo
->x_id_name
));
4893 f
->explicit_name
= 0;
4897 fset_name (f
, name
);
4898 f
->explicit_name
= 1;
4899 /* use the frame's title when getting resources for this frame. */
4900 specbind (Qx_resource_name
, name
);
4903 register_font_driver (&xfont_driver
, f
);
4904 #ifdef HAVE_FREETYPE
4906 register_font_driver (&xftfont_driver
, f
);
4907 #else /* not HAVE_XFT */
4908 register_font_driver (&ftxfont_driver
, f
);
4909 #endif /* not HAVE_XFT */
4910 #endif /* HAVE_FREETYPE */
4912 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4913 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4915 /* Extract the window parameters from the supplied values that are
4916 needed to determine window geometry. */
4917 x_default_font_parameter (f
, parms
);
4919 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
4920 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4922 /* This defaults to 2 in order to match xterm. We recognize either
4923 internalBorderWidth or internalBorder (which is what xterm calls
4925 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4929 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4930 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4931 if (! EQ (value
, Qunbound
))
4932 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4936 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4937 "internalBorderWidth", "internalBorderWidth",
4939 x_default_parameter (f
, parms
, Qright_divider_width
, make_number (0),
4940 NULL
, NULL
, RES_TYPE_NUMBER
);
4941 x_default_parameter (f
, parms
, Qbottom_divider_width
, make_number (0),
4942 NULL
, NULL
, RES_TYPE_NUMBER
);
4944 /* Also do the stuff which must be set before the window exists. */
4945 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4946 "foreground", "Foreground", RES_TYPE_STRING
);
4947 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4948 "background", "Background", RES_TYPE_STRING
);
4949 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4950 "pointerColor", "Foreground", RES_TYPE_STRING
);
4951 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4952 "cursorColor", "Foreground", RES_TYPE_STRING
);
4953 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4954 "borderColor", "BorderColor", RES_TYPE_STRING
);
4957 image_cache_refcount
=
4958 FRAME_IMAGE_CACHE (f
) ? FRAME_IMAGE_CACHE (f
)->refcount
: 0;
4959 dpyinfo_refcount
= dpyinfo
->reference_count
;
4960 #endif /* GLYPH_DEBUG */
4962 /* Init faces before x_default_parameter is called for scroll-bar
4963 parameters because that function calls x_set_scroll_bar_width,
4964 which calls change_frame_size, which calls Fset_window_buffer,
4965 which runs hooks, which call Fvertical_motion. At the end, we
4966 end up in init_iterator with a null face cache, which should not
4968 init_frame_faces (f
);
4970 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
4972 x_figure_window_size (f
, parms
, 0);
4975 XSetWindowAttributes attrs
;
4977 Atom type
= FRAME_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
4980 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4981 if (DoesSaveUnders (dpyinfo
->screen
))
4982 mask
|= CWSaveUnder
;
4984 /* Window managers look at the override-redirect flag to determine
4985 whether or net to give windows a decoration (Xlib spec, chapter
4987 attrs
.override_redirect
= True
;
4988 attrs
.save_under
= True
;
4989 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4990 /* Arrange for getting MapNotify and UnmapNotify events. */
4991 attrs
.event_mask
= StructureNotifyMask
;
4993 = FRAME_X_WINDOW (f
)
4994 = XCreateWindow (FRAME_X_DISPLAY (f
),
4995 FRAME_DISPLAY_INFO (f
)->root_window
,
4996 /* x, y, width, height */
5000 CopyFromParent
, InputOutput
, CopyFromParent
,
5002 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
5003 FRAME_DISPLAY_INFO (f
)->Xatom_net_window_type
,
5004 XA_ATOM
, 32, PropModeReplace
,
5005 (unsigned char *)&type
, 1);
5011 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
5012 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
5013 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
5014 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
5015 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
5016 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
5018 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
5019 Change will not be effected unless different from the current
5021 width
= FRAME_COLS (f
);
5022 height
= FRAME_LINES (f
);
5023 SET_FRAME_COLS (f
, 0);
5024 FRAME_LINES (f
) = 0;
5025 change_frame_size (f
, width
, height
, 1, 0, 0, 0);
5027 /* Add `tooltip' frame parameter's default value. */
5028 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
5029 Fmodify_frame_parameters (frame
, list1 (Fcons (Qtooltip
, Qt
)));
5031 /* FIXME - can this be done in a similar way to normal frames?
5032 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
5034 /* Set the `display-type' frame parameter before setting up faces. */
5036 Lisp_Object disptype
;
5038 if (FRAME_DISPLAY_INFO (f
)->n_planes
== 1)
5039 disptype
= intern ("mono");
5040 else if (FRAME_DISPLAY_INFO (f
)->visual
->class == GrayScale
5041 || FRAME_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
5042 disptype
= intern ("grayscale");
5044 disptype
= intern ("color");
5046 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
5047 Fmodify_frame_parameters (frame
, list1 (Fcons (Qdisplay_type
, disptype
)));
5050 /* Set up faces after all frame parameters are known. This call
5051 also merges in face attributes specified for new frames.
5053 Frame parameters may be changed if .Xdefaults contains
5054 specifications for the default font. For example, if there is an
5055 `Emacs.default.attributeBackground: pink', the `background-color'
5056 attribute of the frame get's set, which let's the internal border
5057 of the tooltip frame appear in pink. Prevent this. */
5059 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
5061 /* Set tip_frame here, so that */
5063 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
5065 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
5066 Fmodify_frame_parameters (frame
, list1 (Fcons (Qbackground_color
, bg
)));
5073 /* Now that the frame will be official, it counts as a reference to
5074 its display and terminal. */
5075 FRAME_DISPLAY_INFO (f
)->reference_count
++;
5076 f
->terminal
->reference_count
++;
5078 /* It is now ok to make the frame official even if we get an error
5079 below. And the frame needs to be on Vframe_list or making it
5080 visible won't work. */
5081 Vframe_list
= Fcons (frame
, Vframe_list
);
5084 /* Setting attributes of faces of the tooltip frame from resources
5085 and similar will increment face_change_count, which leads to the
5086 clearing of all current matrices. Since this isn't necessary
5087 here, avoid it by resetting face_change_count to the value it
5088 had before we created the tip frame. */
5089 face_change_count
= face_change_count_before
;
5091 /* Discard the unwind_protect. */
5092 return unbind_to (count
, frame
);
5096 /* Compute where to display tip frame F. PARMS is the list of frame
5097 parameters for F. DX and DY are specified offsets from the current
5098 location of the mouse. WIDTH and HEIGHT are the width and height
5099 of the tooltip. Return coordinates relative to the root window of
5100 the display in *ROOT_X, and *ROOT_Y. */
5103 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
)
5105 Lisp_Object left
, top
;
5110 /* User-specified position? */
5111 left
= Fcdr (Fassq (Qleft
, parms
));
5112 top
= Fcdr (Fassq (Qtop
, parms
));
5114 /* Move the tooltip window where the mouse pointer is. Resize and
5116 if (!INTEGERP (left
) || !INTEGERP (top
))
5119 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_DISPLAY_INFO (f
)->root_window
,
5120 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
5125 *root_y
= XINT (top
);
5126 else if (*root_y
+ XINT (dy
) <= 0)
5127 *root_y
= 0; /* Can happen for negative dy */
5128 else if (*root_y
+ XINT (dy
) + height
5129 <= x_display_pixel_height (FRAME_DISPLAY_INFO (f
)))
5130 /* It fits below the pointer */
5131 *root_y
+= XINT (dy
);
5132 else if (height
+ XINT (dy
) <= *root_y
)
5133 /* It fits above the pointer. */
5134 *root_y
-= height
+ XINT (dy
);
5136 /* Put it on the top. */
5139 if (INTEGERP (left
))
5140 *root_x
= XINT (left
);
5141 else if (*root_x
+ XINT (dx
) <= 0)
5142 *root_x
= 0; /* Can happen for negative dx */
5143 else if (*root_x
+ XINT (dx
) + width
5144 <= x_display_pixel_width (FRAME_DISPLAY_INFO (f
)))
5145 /* It fits to the right of the pointer. */
5146 *root_x
+= XINT (dx
);
5147 else if (width
+ XINT (dx
) <= *root_x
)
5148 /* It fits to the left of the pointer. */
5149 *root_x
-= width
+ XINT (dx
);
5151 /* Put it left-justified on the screen--it ought to fit that way. */
5156 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5157 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5158 A tooltip window is a small X window displaying a string.
5160 This is an internal function; Lisp code should call `tooltip-show'.
5162 FRAME nil or omitted means use the selected frame.
5164 PARMS is an optional list of frame parameters which can be used to
5165 change the tooltip's appearance.
5167 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5168 means use the default timeout of 5 seconds.
5170 If the list of frame parameters PARMS contains a `left' parameters,
5171 the tooltip is displayed at that x-position. Otherwise it is
5172 displayed at the mouse position, with offset DX added (default is 5 if
5173 DX isn't specified). Likewise for the y-position; if a `top' frame
5174 parameter is specified, it determines the y-position of the tooltip
5175 window, otherwise it is displayed at the mouse position, with offset
5176 DY added (default is -10).
5178 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5179 Text larger than the specified size is clipped. */)
5180 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
5185 struct buffer
*old_buffer
;
5186 struct text_pos pos
;
5187 int i
, width
, height
, seen_reversed_p
;
5188 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5189 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5190 ptrdiff_t count
= SPECPDL_INDEX ();
5192 specbind (Qinhibit_redisplay
, Qt
);
5194 GCPRO4 (string
, parms
, frame
, timeout
);
5196 CHECK_STRING (string
);
5197 if (SCHARS (string
) == 0)
5198 string
= make_unibyte_string (" ", 1);
5200 f
= decode_window_system_frame (frame
);
5202 timeout
= make_number (5);
5204 CHECK_NATNUM (timeout
);
5207 dx
= make_number (5);
5212 dy
= make_number (-10);
5217 if (x_gtk_use_system_tooltips
)
5221 /* Hide a previous tip, if any. */
5225 ok
= xg_prepare_tooltip (f
, string
, &width
, &height
);
5228 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5229 xg_show_tooltip (f
, root_x
, root_y
);
5230 /* This is used in Fx_hide_tip. */
5231 XSETFRAME (tip_frame
, f
);
5234 if (ok
) goto start_timer
;
5236 #endif /* USE_GTK */
5238 if (NILP (last_show_tip_args
))
5239 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5241 if (!NILP (tip_frame
))
5243 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5244 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5245 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5247 if (EQ (frame
, last_frame
)
5248 && !NILP (Fequal (last_string
, string
))
5249 && !NILP (Fequal (last_parms
, parms
)))
5251 struct frame
*tip_f
= XFRAME (tip_frame
);
5253 /* Only DX and DY have changed. */
5254 if (!NILP (tip_timer
))
5256 Lisp_Object timer
= tip_timer
;
5258 call1 (Qcancel_timer
, timer
);
5262 compute_tip_xy (tip_f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (tip_f
),
5263 FRAME_PIXEL_HEIGHT (tip_f
), &root_x
, &root_y
);
5264 XMoveWindow (FRAME_X_DISPLAY (tip_f
), FRAME_X_WINDOW (tip_f
),
5271 /* Hide a previous tip, if any. */
5274 ASET (last_show_tip_args
, 0, string
);
5275 ASET (last_show_tip_args
, 1, frame
);
5276 ASET (last_show_tip_args
, 2, parms
);
5278 /* Add default values to frame parameters. */
5279 if (NILP (Fassq (Qname
, parms
)))
5280 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5281 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5282 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5283 if (NILP (Fassq (Qborder_width
, parms
)))
5284 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5285 if (NILP (Fassq (Qbottom_divider_width
, parms
)))
5286 parms
= Fcons (Fcons (Qbottom_divider_width
, make_number (0)), parms
);
5287 if (NILP (Fassq (Qright_divider_width
, parms
)))
5288 parms
= Fcons (Fcons (Qright_divider_width
, make_number (0)), parms
);
5289 if (NILP (Fassq (Qborder_color
, parms
)))
5290 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5291 if (NILP (Fassq (Qbackground_color
, parms
)))
5292 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5295 /* Create a frame for the tooltip, and record it in the global
5296 variable tip_frame. */
5297 frame
= x_create_tip_frame (FRAME_DISPLAY_INFO (f
), parms
, string
);
5300 /* Set up the frame's root window. */
5301 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5307 if (CONSP (Vx_max_tooltip_size
)
5308 && RANGED_INTEGERP (1, XCAR (Vx_max_tooltip_size
), INT_MAX
)
5309 && RANGED_INTEGERP (1, XCDR (Vx_max_tooltip_size
), INT_MAX
))
5311 w
->total_cols
= XFASTINT (XCAR (Vx_max_tooltip_size
));
5312 w
->total_lines
= XFASTINT (XCDR (Vx_max_tooltip_size
));
5317 w
->total_lines
= 40;
5320 w
->pixel_width
= w
->total_cols
* FRAME_COLUMN_WIDTH (f
);
5321 w
->pixel_height
= w
->total_lines
* FRAME_LINE_HEIGHT (f
);
5323 FRAME_TOTAL_COLS (f
) = w
->total_cols
;
5324 adjust_frame_glyphs (f
);
5325 w
->pseudo_window_p
= 1;
5327 /* Display the tooltip text in a temporary buffer. */
5328 old_buffer
= current_buffer
;
5329 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->contents
));
5330 bset_truncate_lines (current_buffer
, Qnil
);
5331 clear_glyph_matrix (w
->desired_matrix
);
5332 clear_glyph_matrix (w
->current_matrix
);
5333 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5334 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5336 /* Compute width and height of the tooltip. */
5337 width
= height
= seen_reversed_p
= 0;
5338 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5340 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5344 /* Stop at the first empty row at the end. */
5345 if (!row
->enabled_p
|| !MATRIX_ROW_DISPLAYS_TEXT_P (row
))
5348 /* Let the row go over the full width of the frame. */
5349 row
->full_width_p
= 1;
5351 row_width
= row
->pixel_width
;
5352 if (row
->used
[TEXT_AREA
])
5354 /* There's a glyph at the end of rows that is used to place
5355 the cursor there. Don't include the width of this glyph. */
5356 if (!row
->reversed_p
)
5358 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5359 if (INTEGERP (last
->object
))
5360 row_width
-= last
->pixel_width
;
5364 /* There could be a stretch glyph at the beginning of R2L
5365 rows that is produced by extend_face_to_end_of_line.
5366 Don't count that glyph. */
5367 struct glyph
*g
= row
->glyphs
[TEXT_AREA
];
5369 if (g
->type
== STRETCH_GLYPH
&& INTEGERP (g
->object
))
5371 row_width
-= g
->pixel_width
;
5372 seen_reversed_p
= 1;
5377 height
+= row
->height
;
5378 width
= max (width
, row_width
);
5381 /* If we've seen partial-length R2L rows, we need to re-adjust the
5382 tool-tip frame width and redisplay it again, to avoid over-wide
5383 tips due to the stretch glyph that extends R2L lines to full
5384 width of the frame. */
5385 if (seen_reversed_p
)
5387 /* w->total_cols and FRAME_TOTAL_COLS want the width in columns,
5389 w
->pixel_width
= width
;
5390 width
/= WINDOW_FRAME_COLUMN_WIDTH (w
);
5391 w
->total_cols
= width
;
5392 FRAME_TOTAL_COLS (f
) = width
;
5393 SET_FRAME_WIDTH (f
, width
);
5394 adjust_frame_glyphs (f
);
5395 clear_glyph_matrix (w
->desired_matrix
);
5396 clear_glyph_matrix (w
->current_matrix
);
5397 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5399 /* Recompute width and height of the tooltip. */
5400 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5402 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5406 if (!row
->enabled_p
|| !MATRIX_ROW_DISPLAYS_TEXT_P (row
))
5408 row
->full_width_p
= 1;
5409 row_width
= row
->pixel_width
;
5410 if (row
->used
[TEXT_AREA
] && !row
->reversed_p
)
5412 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5413 if (INTEGERP (last
->object
))
5414 row_width
-= last
->pixel_width
;
5417 height
+= row
->height
;
5418 width
= max (width
, row_width
);
5422 /* Add the frame's internal border to the width and height the X
5423 window should have. */
5424 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5425 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5427 /* Move the tooltip window where the mouse pointer is. Resize and
5429 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5432 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5433 root_x
, root_y
, width
, height
);
5434 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5437 /* Draw into the window. */
5438 w
->must_be_updated_p
= 1;
5439 update_single_window (w
, 1);
5441 /* Restore original current buffer. */
5442 set_buffer_internal_1 (old_buffer
);
5443 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5446 /* Let the tip disappear after timeout seconds. */
5447 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5448 intern ("x-hide-tip"));
5451 return unbind_to (count
, Qnil
);
5455 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5456 doc
: /* Hide the current tooltip window, if there is any.
5457 Value is t if tooltip was open, nil otherwise. */)
5461 Lisp_Object deleted
, frame
, timer
;
5462 struct gcpro gcpro1
, gcpro2
;
5464 /* Return quickly if nothing to do. */
5465 if (NILP (tip_timer
) && NILP (tip_frame
))
5470 GCPRO2 (frame
, timer
);
5471 tip_frame
= tip_timer
= deleted
= Qnil
;
5473 count
= SPECPDL_INDEX ();
5474 specbind (Qinhibit_redisplay
, Qt
);
5475 specbind (Qinhibit_quit
, Qt
);
5478 call1 (Qcancel_timer
, timer
);
5482 /* When using system tooltip, tip_frame is the Emacs frame on which
5483 the tip is shown. */
5484 struct frame
*f
= XFRAME (frame
);
5485 if (FRAME_LIVE_P (f
) && xg_hide_tooltip (f
))
5492 delete_frame (frame
, Qnil
);
5496 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5497 redisplay procedure is not called when a tip frame over menu
5498 items is unmapped. Redisplay the menu manually... */
5501 struct frame
*f
= SELECTED_FRAME ();
5502 w
= f
->output_data
.x
->menubar_widget
;
5504 if (!DoesSaveUnders (FRAME_DISPLAY_INFO (f
)->screen
)
5508 xlwmenu_redisplay (w
);
5512 #endif /* USE_LUCID */
5516 return unbind_to (count
, deleted
);
5521 /***********************************************************************
5522 File selection dialog
5523 ***********************************************************************/
5525 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5526 Sx_uses_old_gtk_dialog
,
5528 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5534 && window_system_available (SELECTED_FRAME ())
5535 && xg_uses_old_file_dialog ())
5543 /* Callback for "OK" and "Cancel" on file selection dialog. */
5546 file_dialog_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5548 int *result
= client_data
;
5549 XmAnyCallbackStruct
*cb
= call_data
;
5550 *result
= cb
->reason
;
5554 /* Callback for unmapping a file selection dialog. This is used to
5555 capture the case where a dialog is closed via a window manager's
5556 closer button, for example. Using a XmNdestroyCallback didn't work
5560 file_dialog_unmap_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5562 int *result
= client_data
;
5563 *result
= XmCR_CANCEL
;
5567 clean_up_file_dialog (void *arg
)
5569 Widget dialog
= arg
;
5573 XtUnmanageChild (dialog
);
5574 XtDestroyWidget (dialog
);
5575 x_menu_set_in_use (0);
5580 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5581 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5582 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5583 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5584 or directory must exist.
5586 This function is only defined on NS, MS Windows, and X Windows with the
5587 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5588 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5589 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
,
5590 Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5593 struct frame
*f
= SELECTED_FRAME ();
5594 Lisp_Object file
= Qnil
;
5595 Lisp_Object decoded_file
;
5596 Widget dialog
, text
, help
;
5599 XmString dir_xmstring
, pattern_xmstring
;
5600 ptrdiff_t count
= SPECPDL_INDEX ();
5601 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5603 check_window_system (f
);
5605 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5607 if (popup_activated ())
5608 error ("Trying to use a menu from within a menu-entry");
5610 CHECK_STRING (prompt
);
5613 /* Prevent redisplay. */
5614 specbind (Qinhibit_redisplay
, Qt
);
5618 /* Create the dialog with PROMPT as title, using DIR as initial
5619 directory and using "*" as pattern. */
5620 dir
= Fexpand_file_name (dir
, Qnil
);
5621 dir_xmstring
= XmStringCreateLocalized (SSDATA (dir
));
5622 pattern_xmstring
= XmStringCreateLocalized ("*");
5624 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5625 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5626 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5627 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5628 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5629 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5631 XmStringFree (dir_xmstring
);
5632 XmStringFree (pattern_xmstring
);
5634 /* Add callbacks for OK and Cancel. */
5635 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5636 (XtPointer
) &result
);
5637 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5638 (XtPointer
) &result
);
5639 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5640 (XtPointer
) &result
);
5642 /* Remove the help button since we can't display help. */
5643 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5644 XtUnmanageChild (help
);
5646 /* Mark OK button as default. */
5647 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5648 XmNshowAsDefault
, True
, NULL
);
5650 /* If MUSTMATCH is non-nil, disable the file entry field of the
5651 dialog, so that the user must select a file from the files list
5652 box. We can't remove it because we wouldn't have a way to get at
5653 the result file name, then. */
5654 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5655 if (!NILP (mustmatch
))
5658 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5659 XtSetSensitive (text
, False
);
5660 XtSetSensitive (label
, False
);
5663 /* Manage the dialog, so that list boxes get filled. */
5664 XtManageChild (dialog
);
5666 if (STRINGP (default_filename
))
5668 XmString default_xmstring
;
5669 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5670 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5672 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5673 XmTextFieldReplace (wtext
, 0, last_pos
,
5674 (SSDATA (Ffile_name_nondirectory (default_filename
))));
5676 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5677 must include the path for this to work. */
5679 default_xmstring
= XmStringCreateLocalized (SSDATA (default_filename
));
5681 if (XmListItemExists (list
, default_xmstring
))
5683 int item_pos
= XmListItemPos (list
, default_xmstring
);
5684 /* Select the item and scroll it into view. */
5685 XmListSelectPos (list
, item_pos
, True
);
5686 XmListSetPos (list
, item_pos
);
5689 XmStringFree (default_xmstring
);
5692 record_unwind_protect_ptr (clean_up_file_dialog
, dialog
);
5694 /* Process events until the user presses Cancel or OK. */
5695 x_menu_set_in_use (1);
5700 x_menu_wait_for_event (0);
5701 XtAppNextEvent (Xt_app_con
, &event
);
5702 if (event
.type
== KeyPress
5703 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5705 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5707 /* Pop down on C-g. */
5708 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5709 XtUnmanageChild (dialog
);
5712 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5715 /* Get the result. */
5716 if (result
== XmCR_OK
)
5718 XmString text_string
;
5721 XtVaGetValues (dialog
, XmNtextString
, &text_string
, NULL
);
5722 XmStringGetLtoR (text_string
, XmFONTLIST_DEFAULT_TAG
, &data
);
5723 XmStringFree (text_string
);
5724 file
= build_string (data
);
5733 /* Make "Cancel" equivalent to C-g. */
5735 Fsignal (Qquit
, Qnil
);
5737 decoded_file
= DECODE_FILE (file
);
5739 return unbind_to (count
, decoded_file
);
5742 #endif /* USE_MOTIF */
5747 clean_up_dialog (void)
5749 x_menu_set_in_use (0);
5752 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5753 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5754 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5755 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5756 or directory must exist.
5758 This function is only defined on NS, MS Windows, and X Windows with the
5759 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5760 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5761 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5763 struct frame
*f
= SELECTED_FRAME ();
5765 Lisp_Object file
= Qnil
;
5766 Lisp_Object decoded_file
;
5767 ptrdiff_t count
= SPECPDL_INDEX ();
5768 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5771 check_window_system (f
);
5773 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5775 if (popup_activated ())
5776 error ("Trying to use a menu from within a menu-entry");
5778 CHECK_STRING (prompt
);
5781 /* Prevent redisplay. */
5782 specbind (Qinhibit_redisplay
, Qt
);
5783 record_unwind_protect_void (clean_up_dialog
);
5787 if (STRINGP (default_filename
))
5788 cdef_file
= SSDATA (default_filename
);
5790 cdef_file
= SSDATA (dir
);
5792 fn
= xg_get_file_name (f
, SSDATA (prompt
), cdef_file
,
5794 ! NILP (only_dir_p
));
5798 file
= build_string (fn
);
5805 /* Make "Cancel" equivalent to C-g. */
5807 Fsignal (Qquit
, Qnil
);
5809 decoded_file
= DECODE_FILE (file
);
5811 return unbind_to (count
, decoded_file
);
5815 #ifdef HAVE_FREETYPE
5817 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5818 doc
: /* Read a font using a GTK dialog.
5819 Return either a font spec (for GTK versions >= 3.2) or a string
5820 containing a GTK-style font name.
5822 FRAME is the frame on which to pop up the font chooser. If omitted or
5823 nil, it defaults to the selected frame. */)
5824 (Lisp_Object frame
, Lisp_Object ignored
)
5826 struct frame
*f
= decode_window_system_frame (frame
);
5828 Lisp_Object font_param
;
5829 char *default_name
= NULL
;
5830 struct gcpro gcpro1
, gcpro2
;
5831 ptrdiff_t count
= SPECPDL_INDEX ();
5833 if (popup_activated ())
5834 error ("Trying to use a menu from within a menu-entry");
5836 /* Prevent redisplay. */
5837 specbind (Qinhibit_redisplay
, Qt
);
5838 record_unwind_protect_void (clean_up_dialog
);
5842 GCPRO2 (font_param
, font
);
5844 XSETFONT (font
, FRAME_FONT (f
));
5845 font_param
= Ffont_get (font
, intern (":name"));
5846 if (STRINGP (font_param
))
5847 default_name
= xstrdup (SSDATA (font_param
));
5850 font_param
= Fframe_parameter (frame
, Qfont_param
);
5851 if (STRINGP (font_param
))
5852 default_name
= xstrdup (SSDATA (font_param
));
5855 font
= xg_get_font (f
, default_name
);
5856 xfree (default_name
);
5861 Fsignal (Qquit
, Qnil
);
5863 return unbind_to (count
, font
);
5865 #endif /* HAVE_FREETYPE */
5867 #endif /* USE_GTK */
5870 /***********************************************************************
5872 ***********************************************************************/
5875 #include <X11/XKBlib.h>
5876 #include <X11/keysym.h>
5879 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5880 Sx_backspace_delete_keys_p
, 0, 1, 0,
5881 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5882 FRAME nil means use the selected frame.
5883 Value is t if we know that both keys are present, and are mapped to the
5884 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5885 present and mapped to the usual X keysyms. */)
5892 struct frame
*f
= decode_window_system_frame (frame
);
5893 Display
*dpy
= FRAME_X_DISPLAY (f
);
5894 Lisp_Object have_keys
;
5895 int major
, minor
, op
, event
, error_code
;
5899 /* Check library version in case we're dynamically linked. */
5900 major
= XkbMajorVersion
;
5901 minor
= XkbMinorVersion
;
5902 if (!XkbLibraryVersion (&major
, &minor
))
5908 /* Check that the server supports XKB. */
5909 major
= XkbMajorVersion
;
5910 minor
= XkbMinorVersion
;
5911 if (!XkbQueryExtension (dpy
, &op
, &event
, &error_code
, &major
, &minor
))
5917 /* In this code we check that the keyboard has physical keys with names
5918 that start with BKSP (Backspace) and DELE (Delete), and that they
5919 generate keysym XK_BackSpace and XK_Delete respectively.
5920 This function is used to test if normal-erase-is-backspace should be
5922 An alternative approach would be to just check if XK_BackSpace and
5923 XK_Delete are mapped to any key. But if any of those are mapped to
5924 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5925 user doesn't know about it, it is better to return false here.
5926 It is more obvious to the user what to do if she/he has two keys
5927 clearly marked with names/symbols and one key does something not
5928 expected (i.e. she/he then tries the other).
5929 The cases where Backspace/Delete is mapped to some other key combination
5930 are rare, and in those cases, normal-erase-is-backspace can be turned on
5934 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5937 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5939 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5941 for (i
= kb
->min_key_code
;
5942 (i
< kb
->max_key_code
5943 && (delete_keycode
== 0 || backspace_keycode
== 0));
5946 /* The XKB symbolic key names can be seen most easily in
5947 the PS file generated by `xkbprint -label name
5949 if (memcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5951 else if (memcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5952 backspace_keycode
= i
;
5955 XkbFreeNames (kb
, 0, True
);
5958 XkbFreeClientMap (kb
, 0, True
);
5961 && backspace_keycode
5962 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5963 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5973 /***********************************************************************
5975 ***********************************************************************/
5977 /* Keep this list in the same order as frame_parms in frame.c.
5978 Use 0 for unsupported frame parameters. */
5980 frame_parm_handler x_frame_parm_handlers
[] =
5984 x_set_background_color
,
5990 x_set_foreground_color
,
5993 x_set_internal_border_width
,
5994 x_set_right_divider_width
,
5995 x_set_bottom_divider_width
,
5996 x_set_menu_bar_lines
,
5998 x_explicitly_set_name
,
5999 x_set_scroll_bar_width
,
6002 x_set_vertical_scroll_bars
,
6004 x_set_tool_bar_lines
,
6005 x_set_scroll_bar_foreground
,
6006 x_set_scroll_bar_background
,
6016 x_set_tool_bar_position
,
6022 /* The section below is built by the lisp expression at the top of the file,
6023 just above where these variables are declared. */
6024 /*&&& init symbols here &&&*/
6025 DEFSYM (Qsuppress_icon
, "suppress-icon");
6026 DEFSYM (Qundefined_color
, "undefined-color");
6027 DEFSYM (Qcompound_text
, "compound-text");
6028 DEFSYM (Qcancel_timer
, "cancel-timer");
6029 DEFSYM (Qfont_param
, "font-parameter");
6030 /* This is the end of symbol initialization. */
6032 Fput (Qundefined_color
, Qerror_conditions
,
6033 listn (CONSTYPE_PURE
, 2, Qundefined_color
, Qerror
));
6034 Fput (Qundefined_color
, Qerror_message
,
6035 build_pure_c_string ("Undefined color"));
6037 DEFVAR_LISP ("x-pointer-shape", Vx_pointer_shape
,
6038 doc
: /* The shape of the pointer when over text.
6039 Changing the value does not affect existing frames
6040 unless you set the mouse color. */);
6041 Vx_pointer_shape
= Qnil
;
6043 #if 0 /* This doesn't really do anything. */
6044 DEFVAR_LISP ("x-nontext-pointer-shape", Vx_nontext_pointer_shape
,
6045 doc
: /* The shape of the pointer when not over text.
6046 This variable takes effect when you create a new frame
6047 or when you set the mouse color. */);
6049 Vx_nontext_pointer_shape
= Qnil
;
6051 DEFVAR_LISP ("x-hourglass-pointer-shape", Vx_hourglass_pointer_shape
,
6052 doc
: /* The shape of the pointer when Emacs is busy.
6053 This variable takes effect when you create a new frame
6054 or when you set the mouse color. */);
6055 Vx_hourglass_pointer_shape
= Qnil
;
6057 #if 0 /* This doesn't really do anything. */
6058 DEFVAR_LISP ("x-mode-pointer-shape", Vx_mode_pointer_shape
,
6059 doc
: /* The shape of the pointer when over the mode line.
6060 This variable takes effect when you create a new frame
6061 or when you set the mouse color. */);
6063 Vx_mode_pointer_shape
= Qnil
;
6065 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
6066 Vx_sensitive_text_pointer_shape
,
6067 doc
: /* The shape of the pointer when over mouse-sensitive text.
6068 This variable takes effect when you create a new frame
6069 or when you set the mouse color. */);
6070 Vx_sensitive_text_pointer_shape
= Qnil
;
6072 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
6073 Vx_window_horizontal_drag_shape
,
6074 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
6075 This variable takes effect when you create a new frame
6076 or when you set the mouse color. */);
6077 Vx_window_horizontal_drag_shape
= Qnil
;
6079 DEFVAR_LISP ("x-window-vertical-drag-cursor",
6080 Vx_window_vertical_drag_shape
,
6081 doc
: /* Pointer shape to use for indicating a window can be dragged vertically.
6082 This variable takes effect when you create a new frame
6083 or when you set the mouse color. */);
6084 Vx_window_vertical_drag_shape
= Qnil
;
6086 DEFVAR_LISP ("x-cursor-fore-pixel", Vx_cursor_fore_pixel
,
6087 doc
: /* A string indicating the foreground color of the cursor box. */);
6088 Vx_cursor_fore_pixel
= Qnil
;
6090 DEFVAR_LISP ("x-max-tooltip-size", Vx_max_tooltip_size
,
6091 doc
: /* Maximum size for tooltips.
6092 Value is a pair (COLUMNS . ROWS). Text larger than this is clipped. */);
6093 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
6095 DEFVAR_LISP ("x-no-window-manager", Vx_no_window_manager
,
6096 doc
: /* Non-nil if no X window manager is in use.
6097 Emacs doesn't try to figure this out; this is always nil
6098 unless you set it to something else. */);
6099 /* We don't have any way to find this out, so set it to nil
6100 and maybe the user would like to set it to t. */
6101 Vx_no_window_manager
= Qnil
;
6103 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
6104 Vx_pixel_size_width_font_regexp
,
6105 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
6107 Since Emacs gets width of a font matching with this regexp from
6108 PIXEL_SIZE field of the name, font finding mechanism gets faster for
6109 such a font. This is especially effective for such large fonts as
6110 Chinese, Japanese, and Korean. */);
6111 Vx_pixel_size_width_font_regexp
= Qnil
;
6113 /* This is not ifdef:ed, so other builds than GTK can customize it. */
6114 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", x_gtk_use_old_file_dialog
,
6115 doc
: /* Non-nil means prompt with the old GTK file selection dialog.
6116 If nil or if the file selection dialog is not available, the new GTK file
6117 chooser is used instead. To turn off all file dialogs set the
6118 variable `use-file-dialog'. */);
6119 x_gtk_use_old_file_dialog
= 0;
6121 DEFVAR_BOOL ("x-gtk-show-hidden-files", x_gtk_show_hidden_files
,
6122 doc
: /* If non-nil, the GTK file chooser will by default show hidden files.
6123 Note that this is just the default, there is a toggle button on the file
6124 chooser to show or not show hidden files on a case by case basis. */);
6125 x_gtk_show_hidden_files
= 0;
6127 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", x_gtk_file_dialog_help_text
,
6128 doc
: /* If non-nil, the GTK file chooser will show additional help text.
6129 If more space for files in the file chooser dialog is wanted, set this to nil
6130 to turn the additional text off. */);
6131 x_gtk_file_dialog_help_text
= 1;
6133 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", x_gtk_whole_detached_tool_bar
,
6134 doc
: /* If non-nil, a detached tool bar is shown in full.
6135 The default is to just show an arrow and pressing on that arrow shows
6136 the tool bar buttons. */);
6137 x_gtk_whole_detached_tool_bar
= 0;
6139 DEFVAR_BOOL ("x-gtk-use-system-tooltips", x_gtk_use_system_tooltips
,
6140 doc
: /* If non-nil with a Gtk+ built Emacs, the Gtk+ tooltip is used.
6141 Otherwise use Emacs own tooltip implementation.
6142 When using Gtk+ tooltips, the tooltip face is not used. */);
6143 x_gtk_use_system_tooltips
= 1;
6145 /* Tell Emacs about this window system. */
6146 Fprovide (Qx
, Qnil
);
6148 #ifdef USE_X_TOOLKIT
6149 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6151 Fprovide (intern_c_string ("motif"), Qnil
);
6153 DEFVAR_LISP ("motif-version-string", Vmotif_version_string
,
6154 doc
: /* Version info for LessTif/Motif. */);
6155 Vmotif_version_string
= build_string (XmVERSION_STRING
);
6156 #endif /* USE_MOTIF */
6157 #endif /* USE_X_TOOLKIT */
6160 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
6161 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
6162 But for a user it is a toolkit for X, and indeed, configure
6163 accepts --with-x-toolkit=gtk. */
6164 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6165 Fprovide (intern_c_string ("gtk"), Qnil
);
6166 Fprovide (intern_c_string ("move-toolbar"), Qnil
);
6168 DEFVAR_LISP ("gtk-version-string", Vgtk_version_string
,
6169 doc
: /* Version info for GTK+. */);
6171 char gtk_version
[sizeof ".." + 3 * INT_STRLEN_BOUND (int)];
6172 int len
= sprintf (gtk_version
, "%d.%d.%d",
6173 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
6174 Vgtk_version_string
= make_pure_string (gtk_version
, len
, len
, 0);
6176 #endif /* USE_GTK */
6178 /* X window properties. */
6179 defsubr (&Sx_change_window_property
);
6180 defsubr (&Sx_delete_window_property
);
6181 defsubr (&Sx_window_property
);
6183 defsubr (&Sxw_display_color_p
);
6184 defsubr (&Sx_display_grayscale_p
);
6185 defsubr (&Sxw_color_defined_p
);
6186 defsubr (&Sxw_color_values
);
6187 defsubr (&Sx_server_max_request_size
);
6188 defsubr (&Sx_server_vendor
);
6189 defsubr (&Sx_server_version
);
6190 defsubr (&Sx_display_pixel_width
);
6191 defsubr (&Sx_display_pixel_height
);
6192 defsubr (&Sx_display_mm_width
);
6193 defsubr (&Sx_display_mm_height
);
6194 defsubr (&Sx_display_screens
);
6195 defsubr (&Sx_display_planes
);
6196 defsubr (&Sx_display_color_cells
);
6197 defsubr (&Sx_display_visual_class
);
6198 defsubr (&Sx_display_backing_store
);
6199 defsubr (&Sx_display_save_under
);
6200 defsubr (&Sx_display_monitor_attributes_list
);
6201 defsubr (&Sx_wm_set_size_hint
);
6202 defsubr (&Sx_create_frame
);
6203 defsubr (&Sx_open_connection
);
6204 defsubr (&Sx_close_connection
);
6205 defsubr (&Sx_display_list
);
6206 defsubr (&Sx_synchronize
);
6207 defsubr (&Sx_backspace_delete_keys_p
);
6209 defsubr (&Sx_show_tip
);
6210 defsubr (&Sx_hide_tip
);
6212 staticpro (&tip_timer
);
6214 staticpro (&tip_frame
);
6216 last_show_tip_args
= Qnil
;
6217 staticpro (&last_show_tip_args
);
6219 defsubr (&Sx_uses_old_gtk_dialog
);
6220 #if defined (USE_MOTIF) || defined (USE_GTK)
6221 defsubr (&Sx_file_dialog
);
6224 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
6225 defsubr (&Sx_select_font
);