1 /* Functions for the X window system.
3 Copyright (C) 1989, 1992-2014 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/>. */
30 #include "character.h"
32 #include "intervals.h"
33 #include "dispextern.h"
35 #include "blockinput.h"
41 #include "termhooks.h"
46 #include <sys/types.h>
49 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
50 #include "bitmaps/gray.xbm"
52 #include <X11/bitmaps/gray>
55 #include "xsettings.h"
58 #include <X11/extensions/Xrandr.h>
61 #include <X11/extensions/Xinerama.h>
69 #include <X11/Shell.h>
73 #include <X11/Xaw3d/Paned.h>
74 #include <X11/Xaw3d/Label.h>
75 #else /* !HAVE_XAW3D */
76 #include <X11/Xaw/Paned.h>
77 #include <X11/Xaw/Label.h>
78 #endif /* HAVE_XAW3D */
79 #endif /* USE_MOTIF */
82 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
85 #ifdef USG /* Pacify gcc -Wunused-macros. */
93 #include "../lwlib/lwlib.h"
97 #include <Xm/DialogS.h>
98 #include <Xm/FileSB.h>
100 #include <Xm/TextF.h>
104 #include "../lwlib/xlwmenu.h"
107 #if !defined (NO_EDITRES)
109 extern void _XEditResCheckMessages (Widget
, XtPointer
, XEvent
*, Boolean
*);
110 #endif /* not defined NO_EDITRES */
112 /* Unique id counter for widgets created by the Lucid Widget Library. */
114 extern LWLIB_ID widget_id_tick
;
118 #endif /* USE_MOTIF */
120 #endif /* USE_X_TOOLKIT */
126 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
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
;
332 /* Get the mouse position in frame relative coordinates. */
335 x_relative_mouse_position (struct frame
*f
, int *x
, int *y
)
337 Window root
, dummy_window
;
340 eassert (FRAME_X_P (f
));
344 XQueryPointer (FRAME_X_DISPLAY (f
),
345 DefaultRootWindow (FRAME_X_DISPLAY (f
)),
347 /* The root window which contains the pointer. */
350 /* Window pointer is on, not used */
353 /* The position on that root window. */
356 /* x/y in dummy_window coordinates, not used. */
359 /* Modifier keys and pointer buttons, about which
361 (unsigned int *) &dummy
);
365 /* Translate root window coordinates to window coordinates. */
366 *x
-= f
->left_pos
+ FRAME_OUTER_TO_INNER_DIFF_X (f
);
367 *y
-= f
->top_pos
+ FRAME_OUTER_TO_INNER_DIFF_Y (f
);
370 /* Gamma-correct COLOR on frame F. */
373 gamma_correct (struct frame
*f
, XColor
*color
)
377 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
378 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
379 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
384 /* Decide if color named COLOR_NAME is valid for use on frame F. If
385 so, return the RGB values in COLOR. If ALLOC_P,
386 allocate the color. Value is false if COLOR_NAME is invalid, or
387 no color could be allocated. */
390 x_defined_color (struct frame
*f
, const char *color_name
,
391 XColor
*color
, bool alloc_p
)
394 Display
*dpy
= FRAME_X_DISPLAY (f
);
395 Colormap cmap
= FRAME_X_COLORMAP (f
);
399 success_p
= xg_check_special_colors (f
, color_name
, color
);
402 success_p
= XParseColor (dpy
, cmap
, color_name
, color
) != 0;
403 if (success_p
&& alloc_p
)
404 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
411 /* Return the pixel color value for color COLOR_NAME on frame F. If F
412 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
413 Signal an error if color can't be allocated. */
416 x_decode_color (struct frame
*f
, Lisp_Object color_name
, int mono_color
)
420 CHECK_STRING (color_name
);
422 #if 0 /* Don't do this. It's wrong when we're not using the default
423 colormap, it makes freeing difficult, and it's probably not
424 an important optimization. */
425 if (strcmp (SDATA (color_name
), "black") == 0)
426 return BLACK_PIX_DEFAULT (f
);
427 else if (strcmp (SDATA (color_name
), "white") == 0)
428 return WHITE_PIX_DEFAULT (f
);
431 /* Return MONO_COLOR for monochrome frames. */
432 if (FRAME_DISPLAY_INFO (f
)->n_planes
== 1)
435 /* x_defined_color is responsible for coping with failures
436 by looking for a near-miss. */
437 if (x_defined_color (f
, SSDATA (color_name
), &cdef
, 1))
440 signal_error ("Undefined color", color_name
);
445 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
446 the previous value of that parameter, NEW_VALUE is the new value.
447 See also the comment of wait_for_wm in struct x_output. */
450 x_set_wait_for_wm (struct frame
*f
, Lisp_Object new_value
, Lisp_Object old_value
)
452 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
456 x_set_tool_bar_position (struct frame
*f
,
457 Lisp_Object new_value
,
458 Lisp_Object old_value
)
460 Lisp_Object choice
= list4 (Qleft
, Qright
, Qtop
, Qbottom
);
462 if (!NILP (Fmemq (new_value
, choice
)))
465 if (!EQ (new_value
, old_value
))
467 xg_change_toolbar_position (f
, new_value
);
468 fset_tool_bar_position (f
, new_value
);
471 if (!EQ (new_value
, Qtop
))
472 error ("The only supported tool bar position is top");
476 wrong_choice (choice
, new_value
);
481 /* Set icon from FILE for frame F. By using GTK functions the icon
482 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
485 xg_set_icon (struct frame
*f
, Lisp_Object file
)
490 found
= x_find_image_file (file
);
496 char *filename
= SSDATA (found
);
499 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
503 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
505 g_object_unref (pixbuf
);
519 xg_set_icon_from_xpm_data (struct frame
*f
, const char **data
)
521 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data (data
);
526 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
527 g_object_unref (pixbuf
);
533 /* Functions called only from `x_set_frame_param'
534 to set individual parameters.
536 If FRAME_X_WINDOW (f) is 0,
537 the frame is being created and its X-window does not exist yet.
538 In that case, just record the parameter's new value
539 in the standard place; do not attempt to change the window. */
542 x_set_foreground_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
544 struct x_output
*x
= f
->output_data
.x
;
545 unsigned long fg
, old_fg
;
547 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
548 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
549 FRAME_FOREGROUND_PIXEL (f
) = fg
;
551 if (FRAME_X_WINDOW (f
) != 0)
553 Display
*dpy
= FRAME_X_DISPLAY (f
);
556 XSetForeground (dpy
, x
->normal_gc
, fg
);
557 XSetBackground (dpy
, x
->reverse_gc
, fg
);
559 if (x
->cursor_pixel
== old_fg
)
561 unload_color (f
, x
->cursor_pixel
);
562 x
->cursor_pixel
= x_copy_color (f
, fg
);
563 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
568 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
570 if (FRAME_VISIBLE_P (f
))
574 unload_color (f
, old_fg
);
578 x_set_background_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
580 struct x_output
*x
= f
->output_data
.x
;
583 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
584 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
585 FRAME_BACKGROUND_PIXEL (f
) = bg
;
587 if (FRAME_X_WINDOW (f
) != 0)
589 Display
*dpy
= FRAME_X_DISPLAY (f
);
592 XSetBackground (dpy
, x
->normal_gc
, bg
);
593 XSetForeground (dpy
, x
->reverse_gc
, bg
);
594 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
595 XSetForeground (dpy
, x
->cursor_gc
, bg
);
598 xg_set_background_color (f
, bg
);
601 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
602 toolkit scroll bars. */
605 for (bar
= FRAME_SCROLL_BARS (f
);
607 bar
= XSCROLL_BAR (bar
)->next
)
609 Window window
= XSCROLL_BAR (bar
)->x_window
;
610 XSetWindowBackground (dpy
, window
, bg
);
613 #endif /* USE_TOOLKIT_SCROLL_BARS */
616 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
618 if (FRAME_VISIBLE_P (f
))
624 x_set_mouse_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
626 struct x_output
*x
= f
->output_data
.x
;
627 Display
*dpy
= FRAME_X_DISPLAY (f
);
628 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
629 Cursor hourglass_cursor
, horizontal_drag_cursor
, vertical_drag_cursor
;
630 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
631 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
633 /* Don't let pointers be invisible. */
634 if (mask_color
== pixel
)
636 x_free_colors (f
, &pixel
, 1);
637 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
640 unload_color (f
, x
->mouse_pixel
);
641 x
->mouse_pixel
= pixel
;
645 /* It's not okay to crash if the user selects a screwy cursor. */
646 x_catch_errors (dpy
);
648 if (!NILP (Vx_pointer_shape
))
650 CHECK_NUMBER (Vx_pointer_shape
);
651 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
654 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
655 x_check_errors (dpy
, "bad text pointer cursor: %s");
657 if (!NILP (Vx_nontext_pointer_shape
))
659 CHECK_NUMBER (Vx_nontext_pointer_shape
);
661 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
664 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
665 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
667 if (!NILP (Vx_hourglass_pointer_shape
))
669 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
671 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
674 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
675 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
677 if (!NILP (Vx_mode_pointer_shape
))
679 CHECK_NUMBER (Vx_mode_pointer_shape
);
680 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
683 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
684 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
686 if (!NILP (Vx_sensitive_text_pointer_shape
))
688 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
690 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
693 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
695 if (!NILP (Vx_window_horizontal_drag_shape
))
697 CHECK_TYPE_RANGED_INTEGER (unsigned, Vx_window_horizontal_drag_shape
);
698 horizontal_drag_cursor
699 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
702 horizontal_drag_cursor
703 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
705 if (!NILP (Vx_window_vertical_drag_shape
))
707 CHECK_NUMBER (Vx_window_vertical_drag_shape
);
709 = XCreateFontCursor (dpy
, XINT (Vx_window_vertical_drag_shape
));
713 = XCreateFontCursor (dpy
, XC_sb_v_double_arrow
);
715 /* Check and report errors with the above calls. */
716 x_check_errors (dpy
, "can't set cursor shape: %s");
720 XColor fore_color
, back_color
;
722 fore_color
.pixel
= x
->mouse_pixel
;
723 x_query_color (f
, &fore_color
);
724 back_color
.pixel
= mask_color
;
725 x_query_color (f
, &back_color
);
727 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
728 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
729 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
730 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
731 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
732 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
733 XRecolorCursor (dpy
, vertical_drag_cursor
, &fore_color
, &back_color
);
736 if (FRAME_X_WINDOW (f
) != 0)
737 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
738 f
->output_data
.x
->current_cursor
= cursor
);
740 if (cursor
!= x
->text_cursor
741 && x
->text_cursor
!= 0)
742 XFreeCursor (dpy
, x
->text_cursor
);
743 x
->text_cursor
= cursor
;
745 if (nontext_cursor
!= x
->nontext_cursor
746 && x
->nontext_cursor
!= 0)
747 XFreeCursor (dpy
, x
->nontext_cursor
);
748 x
->nontext_cursor
= nontext_cursor
;
750 if (hourglass_cursor
!= x
->hourglass_cursor
751 && x
->hourglass_cursor
!= 0)
752 XFreeCursor (dpy
, x
->hourglass_cursor
);
753 x
->hourglass_cursor
= hourglass_cursor
;
755 if (mode_cursor
!= x
->modeline_cursor
756 && x
->modeline_cursor
!= 0)
757 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
758 x
->modeline_cursor
= mode_cursor
;
760 if (hand_cursor
!= x
->hand_cursor
761 && x
->hand_cursor
!= 0)
762 XFreeCursor (dpy
, x
->hand_cursor
);
763 x
->hand_cursor
= hand_cursor
;
765 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
766 && x
->horizontal_drag_cursor
!= 0)
767 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
768 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
770 if (vertical_drag_cursor
!= x
->vertical_drag_cursor
771 && x
->vertical_drag_cursor
!= 0)
772 XFreeCursor (dpy
, x
->vertical_drag_cursor
);
773 x
->vertical_drag_cursor
= vertical_drag_cursor
;
778 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
782 x_set_cursor_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
784 unsigned long fore_pixel
, pixel
;
785 bool fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
786 struct x_output
*x
= f
->output_data
.x
;
788 if (!NILP (Vx_cursor_fore_pixel
))
790 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
791 WHITE_PIX_DEFAULT (f
));
792 fore_pixel_allocated_p
= 1;
795 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
797 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
798 pixel_allocated_p
= 1;
800 /* Make sure that the cursor color differs from the background color. */
801 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
803 if (pixel_allocated_p
)
805 x_free_colors (f
, &pixel
, 1);
806 pixel_allocated_p
= 0;
809 pixel
= x
->mouse_pixel
;
810 if (pixel
== fore_pixel
)
812 if (fore_pixel_allocated_p
)
814 x_free_colors (f
, &fore_pixel
, 1);
815 fore_pixel_allocated_p
= 0;
817 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
821 unload_color (f
, x
->cursor_foreground_pixel
);
822 if (!fore_pixel_allocated_p
)
823 fore_pixel
= x_copy_color (f
, fore_pixel
);
824 x
->cursor_foreground_pixel
= fore_pixel
;
826 unload_color (f
, x
->cursor_pixel
);
827 if (!pixel_allocated_p
)
828 pixel
= x_copy_color (f
, pixel
);
829 x
->cursor_pixel
= pixel
;
831 if (FRAME_X_WINDOW (f
) != 0)
834 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
835 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
838 if (FRAME_VISIBLE_P (f
))
840 x_update_cursor (f
, 0);
841 x_update_cursor (f
, 1);
845 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
848 /* Set the border-color of frame F to pixel value PIX.
849 Note that this does not fully take effect if done before
850 F has an x-window. */
853 x_set_border_pixel (struct frame
*f
, int pix
)
855 unload_color (f
, f
->output_data
.x
->border_pixel
);
856 f
->output_data
.x
->border_pixel
= pix
;
858 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
861 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), pix
);
864 if (FRAME_VISIBLE_P (f
))
869 /* Set the border-color of frame F to value described by ARG.
870 ARG can be a string naming a color.
871 The border-color is used for the border that is drawn by the X server.
872 Note that this does not fully take effect if done before
873 F has an x-window; it must be redone when the window is created.
875 Note: this is done in two routines because of the way X10 works.
877 Note: under X11, this is normally the province of the window manager,
878 and so emacs's border colors may be overridden. */
881 x_set_border_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
886 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
887 x_set_border_pixel (f
, pix
);
888 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
893 x_set_cursor_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
895 set_frame_cursor_types (f
, arg
);
899 x_set_icon_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
905 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
908 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
913 result
= x_text_icon (f
,
914 SSDATA ((!NILP (f
->icon_name
)
918 result
= x_bitmap_icon (f
, arg
);
923 error ("No icon window available");
926 XFlush (FRAME_X_DISPLAY (f
));
931 x_set_icon_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
937 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
940 else if (!NILP (arg
) || NILP (oldval
))
943 fset_icon_name (f
, arg
);
945 if (f
->output_data
.x
->icon_bitmap
!= 0)
950 result
= x_text_icon (f
,
951 SSDATA ((!NILP (f
->icon_name
)
960 error ("No icon window available");
963 XFlush (FRAME_X_DISPLAY (f
));
969 x_set_menu_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
972 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
973 int olines
= FRAME_MENU_BAR_LINES (f
);
976 /* Right now, menu bars don't work properly in minibuf-only frames;
977 most of the commands try to apply themselves to the minibuffer
978 frame itself, and get an error because you can't switch buffers
979 in or split the minibuffer window. */
980 if (FRAME_MINIBUF_ONLY_P (f
))
983 if (TYPE_RANGED_INTEGERP (int, value
))
984 nlines
= XINT (value
);
988 /* Make sure we redisplay all windows in this frame. */
989 windows_or_buffers_changed
= 59;
991 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
992 FRAME_MENU_BAR_LINES (f
) = 0;
993 FRAME_MENU_BAR_HEIGHT (f
) = 0;
996 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
997 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
998 /* Make sure next redisplay shows the menu bar. */
999 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= 1;
1003 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1004 free_frame_menubar (f
);
1005 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1007 f
->output_data
.x
->menubar_widget
= 0;
1009 #else /* not USE_X_TOOLKIT && not USE_GTK */
1010 FRAME_MENU_BAR_LINES (f
) = nlines
;
1011 FRAME_MENU_BAR_HEIGHT (f
) = nlines
* FRAME_LINE_HEIGHT (f
);
1012 resize_frame_windows (f
, FRAME_TEXT_HEIGHT (f
), 0, 1);
1013 if (FRAME_X_WINDOW (f
))
1014 x_clear_under_internal_border (f
);
1016 /* If the menu bar height gets changed, the internal border below
1017 the top margin has to be cleared. Also, if the menu bar gets
1018 larger, the area for the added lines has to be cleared except for
1019 the first menu bar line that is to be drawn later. */
1020 if (nlines
!= olines
)
1022 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1023 int width
= FRAME_PIXEL_WIDTH (f
);
1026 /* height can be zero here. */
1027 if (FRAME_X_WINDOW (f
) && height
> 0 && width
> 0)
1029 y
= FRAME_TOP_MARGIN_HEIGHT (f
);
1032 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1033 0, y
, width
, height
);
1037 if (nlines
> 1 && nlines
> olines
)
1039 y
= (olines
== 0 ? 1 : olines
) * FRAME_LINE_HEIGHT (f
);
1040 height
= nlines
* FRAME_LINE_HEIGHT (f
) - y
;
1043 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1044 0, y
, width
, height
);
1048 if (nlines
== 0 && WINDOWP (f
->menu_bar_window
))
1049 clear_glyph_matrix (XWINDOW (f
->menu_bar_window
)->current_matrix
);
1051 #endif /* not USE_X_TOOLKIT && not USE_GTK */
1052 adjust_frame_glyphs (f
);
1053 run_window_configuration_change_hook (f
);
1057 /* Set the number of lines used for the tool bar of frame F to VALUE.
1058 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1059 is the old number of tool bar lines. This function changes the
1060 height of all windows on frame F to match the new tool bar height.
1061 The frame's height doesn't change. */
1064 x_set_tool_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1067 #if ! defined (USE_GTK)
1068 int delta
, root_height
;
1069 int unit
= FRAME_LINE_HEIGHT (f
);
1072 /* Treat tool bars like menu bars. */
1073 if (FRAME_MINIBUF_ONLY_P (f
))
1076 /* Use VALUE only if an int >= 0. */
1077 if (RANGED_INTEGERP (0, value
, INT_MAX
))
1078 nlines
= XFASTINT (value
);
1084 FRAME_TOOL_BAR_LINES (f
) = 0;
1085 FRAME_TOOL_BAR_HEIGHT (f
) = 0;
1088 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1089 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1090 /* Make sure next redisplay shows the tool bar. */
1091 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= 1;
1092 update_frame_tool_bar (f
);
1096 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1097 free_frame_tool_bar (f
);
1098 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1101 #else /* !USE_GTK */
1103 /* Make sure we redisplay all windows in this frame. */
1104 windows_or_buffers_changed
= 60;
1106 /* DELTA is in pixels now. */
1107 delta
= (nlines
- FRAME_TOOL_BAR_LINES (f
)) * unit
;
1109 /* Don't resize the tool-bar to more than we have room for. Note: The
1110 calculations below and the subsequent call to resize_frame_windows
1111 are inherently flawed because they can make the toolbar higher than
1112 the containing frame. */
1115 root_height
= WINDOW_PIXEL_HEIGHT (XWINDOW (FRAME_ROOT_WINDOW (f
)));
1116 if (root_height
- delta
< unit
)
1118 delta
= root_height
- unit
;
1119 /* When creating a new frame and toolbar mode is enabled, we
1120 need at least one toolbar line. */
1121 nlines
= max (FRAME_TOOL_BAR_LINES (f
) + delta
/ unit
, 1);
1125 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1126 FRAME_TOOL_BAR_HEIGHT (f
) = nlines
* FRAME_LINE_HEIGHT (f
);
1127 resize_frame_windows (f
, FRAME_TEXT_HEIGHT (f
), 0, 1);
1128 #if !defined USE_X_TOOLKIT && !defined USE_GTK
1129 if (FRAME_X_WINDOW (f
))
1130 x_clear_under_internal_border (f
);
1132 adjust_frame_glyphs (f
);
1134 /* We also have to make sure that the internal border at the top of
1135 the frame, below the menu bar or tool bar, is redrawn when the
1136 tool bar disappears. This is so because the internal border is
1137 below the tool bar if one is displayed, but is below the menu bar
1138 if there isn't a tool bar. The tool bar draws into the area
1139 below the menu bar. */
1140 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_HEIGHT (f
) == 0)
1143 clear_current_matrices (f
);
1146 /* If the tool bar gets smaller, the internal border below it
1147 has to be cleared. It was formerly part of the display
1148 of the larger tool bar, and updating windows won't clear it. */
1151 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1152 int width
= FRAME_PIXEL_WIDTH (f
);
1153 int y
= nlines
* unit
;
1155 /* height can be zero here. */
1156 if (height
> 0 && width
> 0)
1159 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1160 0, y
, width
, height
);
1164 if (WINDOWP (f
->tool_bar_window
))
1165 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1168 run_window_configuration_change_hook (f
);
1169 #endif /* USE_GTK */
1173 /* Set the foreground color for scroll bars on frame F to VALUE.
1174 VALUE should be a string, a color name. If it isn't a string or
1175 isn't a valid color name, do nothing. OLDVAL is the old value of
1176 the frame parameter. */
1179 x_set_scroll_bar_foreground (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1181 unsigned long pixel
;
1183 if (STRINGP (value
))
1184 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1188 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1189 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1191 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1192 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1194 /* Remove all scroll bars because they have wrong colors. */
1195 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1196 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1197 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1198 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1200 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1206 /* Set the background color for scroll bars on frame F to VALUE VALUE
1207 should be a string, a color name. If it isn't a string or isn't a
1208 valid color name, do nothing. OLDVAL is the old value of the frame
1212 x_set_scroll_bar_background (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1214 unsigned long pixel
;
1216 if (STRINGP (value
))
1217 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1221 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1222 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1224 #ifdef USE_TOOLKIT_SCROLL_BARS
1225 /* Scrollbar shadow colors. */
1226 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1228 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1229 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1231 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1233 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1234 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1236 #endif /* USE_TOOLKIT_SCROLL_BARS */
1238 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1239 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1241 /* Remove all scroll bars because they have wrong colors. */
1242 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1243 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1244 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1245 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1247 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1253 /* Encode Lisp string STRING as a text in a format appropriate for
1254 XICCC (X Inter Client Communication Conventions).
1256 This can call Lisp code, so callers must GCPRO.
1258 If STRING contains only ASCII characters, do no conversion and
1259 return the string data of STRING. Otherwise, encode the text by
1260 CODING_SYSTEM, and return a newly allocated memory area which
1261 should be freed by `xfree' by a caller.
1263 Store the byte length of resulting text in *TEXT_BYTES.
1265 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1266 which means that the `encoding' of the result can be `STRING'.
1267 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1268 the result should be `COMPOUND_TEXT'. */
1270 static unsigned char *
1271 x_encode_text (Lisp_Object string
, Lisp_Object coding_system
,
1272 ptrdiff_t *text_bytes
, int *stringp
, bool *freep
)
1274 int result
= string_xstring_p (string
);
1275 struct coding_system coding
;
1279 /* No multibyte character in OBJ. We need not encode it. */
1280 *text_bytes
= SBYTES (string
);
1283 return SDATA (string
);
1286 setup_coding_system (coding_system
, &coding
);
1287 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1288 /* We suppress producing escape sequences for composition. */
1289 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1290 coding
.destination
= xnmalloc (SCHARS (string
), 2);
1291 coding
.dst_bytes
= SCHARS (string
) * 2;
1292 encode_coding_object (&coding
, string
, 0, 0,
1293 SCHARS (string
), SBYTES (string
), Qnil
);
1294 *text_bytes
= coding
.produced
;
1295 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1297 return coding
.destination
;
1301 /* Set the WM name to NAME for frame F. Also set the icon name.
1302 If the frame already has an icon name, use that, otherwise set the
1303 icon name to NAME. */
1306 x_set_name_internal (struct frame
*f
, Lisp_Object name
)
1308 if (FRAME_X_WINDOW (f
))
1312 XTextProperty text
, icon
;
1315 bool do_free_icon_value
= 0, do_free_text_value
= 0;
1316 Lisp_Object coding_system
;
1317 Lisp_Object encoded_name
;
1318 Lisp_Object encoded_icon_name
;
1319 struct gcpro gcpro1
;
1321 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1322 we use it before x_encode_text that may return string data. */
1324 encoded_name
= ENCODE_UTF_8 (name
);
1327 coding_system
= Qcompound_text
;
1328 /* Note: Encoding strategy
1330 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1331 text.encoding. But, there are non-internationalized window
1332 managers which don't support that encoding. So, if NAME
1333 contains only ASCII and 8859-1 characters, encode it by
1334 iso-latin-1, and use "STRING" in text.encoding hoping that
1335 such window managers at least analyze this format correctly,
1336 i.e. treat 8-bit bytes as 8859-1 characters.
1338 We may also be able to use "UTF8_STRING" in text.encoding
1339 in the future which can encode all Unicode characters.
1340 But, for the moment, there's no way to know that the
1341 current window manager supports it or not.
1343 Either way, we also set the _NET_WM_NAME and _NET_WM_ICON_NAME
1344 properties. Per the EWMH specification, those two properties
1345 are always UTF8_STRING. This matches what gtk_window_set_title()
1346 does in the USE_GTK case. */
1347 text
.value
= x_encode_text (name
, coding_system
, &bytes
,
1348 &stringp
, &do_free_text_value
);
1349 text
.encoding
= (stringp
? XA_STRING
1350 : FRAME_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1352 text
.nitems
= bytes
;
1354 if (!STRINGP (f
->icon_name
))
1357 encoded_icon_name
= encoded_name
;
1361 /* See the above comment "Note: Encoding strategy". */
1362 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, &bytes
,
1363 &stringp
, &do_free_icon_value
);
1364 icon
.encoding
= (stringp
? XA_STRING
1365 : FRAME_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1367 icon
.nitems
= bytes
;
1369 encoded_icon_name
= ENCODE_UTF_8 (f
->icon_name
);
1373 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1374 SSDATA (encoded_name
));
1375 #else /* not USE_GTK */
1376 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1377 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1378 FRAME_DISPLAY_INFO (f
)->Xatom_net_wm_name
,
1379 FRAME_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1381 SDATA (encoded_name
),
1382 SBYTES (encoded_name
));
1383 #endif /* not USE_GTK */
1385 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1386 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1387 FRAME_DISPLAY_INFO (f
)->Xatom_net_wm_icon_name
,
1388 FRAME_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1390 SDATA (encoded_icon_name
),
1391 SBYTES (encoded_icon_name
));
1393 if (do_free_icon_value
)
1395 if (do_free_text_value
)
1402 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1405 If EXPLICIT is true, that indicates that lisp code is setting the
1406 name; if NAME is a string, set F's name to NAME and set
1407 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1409 If EXPLICIT is false, that indicates that Emacs redisplay code is
1410 suggesting a new name, which lisp code should override; if
1411 F->explicit_name is set, ignore the new name; otherwise, set it. */
1414 x_set_name (struct frame
*f
, Lisp_Object name
, bool explicit)
1416 /* Make sure that requests from lisp code override requests from
1417 Emacs redisplay code. */
1420 /* If we're switching from explicit to implicit, we had better
1421 update the mode lines and thereby update the title. */
1422 if (f
->explicit_name
&& NILP (name
))
1423 update_mode_lines
= 37;
1425 f
->explicit_name
= ! NILP (name
);
1427 else if (f
->explicit_name
)
1430 /* If NAME is nil, set the name to the x_id_name. */
1433 /* Check for no change needed in this very common case
1434 before we do any consing. */
1435 if (!strcmp (FRAME_DISPLAY_INFO (f
)->x_id_name
,
1438 name
= build_string (FRAME_DISPLAY_INFO (f
)->x_id_name
);
1441 CHECK_STRING (name
);
1443 /* Don't change the name if it's already NAME. */
1444 if (! NILP (Fstring_equal (name
, f
->name
)))
1447 fset_name (f
, name
);
1449 /* For setting the frame title, the title parameter should override
1450 the name parameter. */
1451 if (! NILP (f
->title
))
1454 x_set_name_internal (f
, name
);
1457 /* This function should be called when the user's lisp code has
1458 specified a name for the frame; the name will override any set by the
1461 x_explicitly_set_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1463 x_set_name (f
, arg
, 1);
1466 /* This function should be called by Emacs redisplay code to set the
1467 name; names set this way will never override names set by the user's
1470 x_implicitly_set_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1472 x_set_name (f
, arg
, 0);
1475 /* Change the title of frame F to NAME.
1476 If NAME is nil, use the frame name as the title. */
1479 x_set_title (struct frame
*f
, Lisp_Object name
, Lisp_Object old_name
)
1481 /* Don't change the title if it's already NAME. */
1482 if (EQ (name
, f
->title
))
1485 update_mode_lines
= 38;
1487 fset_title (f
, name
);
1492 CHECK_STRING (name
);
1494 x_set_name_internal (f
, name
);
1498 x_set_scroll_bar_default_width (struct frame
*f
)
1500 int unit
= FRAME_COLUMN_WIDTH (f
);
1501 #ifdef USE_TOOLKIT_SCROLL_BARS
1503 int minw
= xg_get_default_scrollbar_width ();
1507 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1508 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (minw
+ unit
- 1) / unit
;
1509 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = minw
;
1511 /* The width of a non-toolkit scrollbar is at least 14 pixels and a
1512 multiple of the frame's character width. */
1513 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + unit
- 1) / unit
;
1514 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
)
1515 = FRAME_CONFIG_SCROLL_BAR_COLS (f
) * unit
;
1520 /* Record in frame F the specified or default value according to ALIST
1521 of the parameter named PROP (a Lisp symbol). If no value is
1522 specified for PROP, look for an X default for XPROP on the frame
1523 named NAME. If that is not found either, use the value DEFLT. */
1526 x_default_scroll_bar_color_parameter (struct frame
*f
,
1527 Lisp_Object alist
, Lisp_Object prop
,
1528 const char *xprop
, const char *xclass
,
1531 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
1534 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1535 if (EQ (tem
, Qunbound
))
1537 #ifdef USE_TOOLKIT_SCROLL_BARS
1539 /* See if an X resource for the scroll bar color has been
1541 tem
= display_x_get_resource (dpyinfo
,
1542 build_string (foreground_p
1545 empty_unibyte_string
,
1546 build_string ("verticalScrollBar"),
1547 empty_unibyte_string
);
1550 /* If nothing has been specified, scroll bars will use a
1551 toolkit-dependent default. Because these defaults are
1552 difficult to get at without actually creating a scroll
1553 bar, use nil to indicate that no color has been
1558 #else /* not USE_TOOLKIT_SCROLL_BARS */
1562 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1565 x_set_frame_parameters (f
, list1 (Fcons (prop
, tem
)));
1572 #ifdef USE_X_TOOLKIT
1574 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1575 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1576 already be present because of the toolkit (Motif adds some of them,
1577 for example, but Xt doesn't). */
1580 hack_wm_protocols (struct frame
*f
, Widget widget
)
1582 Display
*dpy
= XtDisplay (widget
);
1583 Window w
= XtWindow (widget
);
1584 int need_delete
= 1;
1591 unsigned char *catoms
;
1593 unsigned long nitems
= 0;
1594 unsigned long bytes_after
;
1596 if ((XGetWindowProperty (dpy
, w
,
1597 FRAME_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1598 0, 100, False
, XA_ATOM
,
1599 &type
, &format
, &nitems
, &bytes_after
,
1602 && format
== 32 && type
== XA_ATOM
)
1604 Atom
*atoms
= (Atom
*) catoms
;
1609 == FRAME_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1611 else if (atoms
[nitems
]
1612 == FRAME_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1614 else if (atoms
[nitems
]
1615 == FRAME_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1626 props
[count
++] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1628 props
[count
++] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1630 props
[count
++] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1632 XChangeProperty (dpy
, w
, FRAME_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1633 XA_ATOM
, 32, PropModeAppend
,
1634 (unsigned char *) props
, count
);
1642 /* Support routines for XIC (X Input Context). */
1646 static XFontSet
xic_create_xfontset (struct frame
*);
1647 static XIMStyle
best_xim_style (XIMStyles
*);
1650 /* Supported XIM styles, ordered by preference. */
1652 static const XIMStyle supported_xim_styles
[] =
1654 XIMPreeditPosition
| XIMStatusArea
,
1655 XIMPreeditPosition
| XIMStatusNothing
,
1656 XIMPreeditPosition
| XIMStatusNone
,
1657 XIMPreeditNothing
| XIMStatusArea
,
1658 XIMPreeditNothing
| XIMStatusNothing
,
1659 XIMPreeditNothing
| XIMStatusNone
,
1660 XIMPreeditNone
| XIMStatusArea
,
1661 XIMPreeditNone
| XIMStatusNothing
,
1662 XIMPreeditNone
| XIMStatusNone
,
1667 #if defined HAVE_X_WINDOWS && defined USE_X_TOOLKIT
1668 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1670 static const char xic_default_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1672 /* Create an Xt fontset spec from the name of a base font.
1673 If `motif' is True use the Motif syntax. */
1675 xic_create_fontsetname (const char *base_fontname
, int motif
)
1677 const char *sep
= motif
? ";" : ",";
1680 /* Make a fontset name from the base font name. */
1681 if (xic_default_fontset
== base_fontname
)
1683 /* There is no base font name, use the default. */
1684 fontsetname
= xmalloc (strlen (base_fontname
) + 2);
1685 strcpy (fontsetname
, base_fontname
);
1689 /* Make a fontset name from the base font name.
1690 The font set will be made of the following elements:
1692 - the base font where the charset spec is replaced by -*-*.
1693 - the same but with the family also replaced with -*-*-. */
1694 const char *p
= base_fontname
;
1697 for (i
= 0; *p
; p
++)
1701 /* As the font name doesn't conform to XLFD, we can't
1702 modify it to generalize it to allcs and allfamilies.
1703 Use the specified font plus the default. */
1704 fontsetname
= xmalloc (strlen (base_fontname
)
1705 + strlen (xic_default_fontset
) + 3);
1706 strcpy (fontsetname
, base_fontname
);
1707 strcat (fontsetname
, sep
);
1708 strcat (fontsetname
, xic_default_fontset
);
1713 const char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1714 char *font_allcs
= NULL
;
1715 char *font_allfamilies
= NULL
;
1716 char *font_all
= NULL
;
1717 const char *allcs
= "*-*-*-*-*-*-*";
1718 const char *allfamilies
= "-*-*-";
1719 const char *all
= "*-*-*-*-";
1722 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
1735 /* If base_fontname specifies ADSTYLE, make it a
1739 ptrdiff_t diff
= (p2
- p3
) - 2;
1741 base
= alloca (strlen (base_fontname
) + 1);
1742 memcpy (base
, base_fontname
, p3
- base_fontname
);
1743 base
[p3
- base_fontname
] = '*';
1744 base
[(p3
- base_fontname
) + 1] = '-';
1745 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
1746 p
= base
+ (p
- base_fontname
) - diff
;
1747 p1
= base
+ (p1
- base_fontname
);
1748 p2
= base
+ (p2
- base_fontname
) - diff
;
1749 base_fontname
= base
;
1752 /* Build the font spec that matches all charsets. */
1753 len
= p
- base_fontname
+ strlen (allcs
) + 1;
1754 font_allcs
= alloca (len
);
1755 memcpy (font_allcs
, base_fontname
, p
- base_fontname
);
1756 strcat (font_allcs
, allcs
);
1758 /* Build the font spec that matches all families and
1760 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
1761 font_allfamilies
= alloca (len
);
1762 strcpy (font_allfamilies
, allfamilies
);
1763 memcpy (font_allfamilies
+ strlen (allfamilies
), p1
, p
- p1
);
1764 strcat (font_allfamilies
, allcs
);
1766 /* Build the font spec that matches all. */
1767 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
1768 font_all
= alloca (len
);
1769 strcpy (font_all
, allfamilies
);
1770 strcat (font_all
, all
);
1771 memcpy (font_all
+ strlen (all
) + strlen (allfamilies
), p2
, p
- p2
);
1772 strcat (font_all
, allcs
);
1774 /* Build the actual font set name. */
1775 len
= strlen (base_fontname
) + strlen (font_allcs
)
1776 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
1777 fontsetname
= xmalloc (len
);
1778 strcpy (fontsetname
, base_fontname
);
1779 strcat (fontsetname
, sep
);
1780 strcat (fontsetname
, font_allcs
);
1781 strcat (fontsetname
, sep
);
1782 strcat (fontsetname
, font_allfamilies
);
1783 strcat (fontsetname
, sep
);
1784 strcat (fontsetname
, font_all
);
1788 return strcat (fontsetname
, ":");
1791 #endif /* HAVE_X_WINDOWS && USE_X_TOOLKIT */
1793 #ifdef DEBUG_XIC_FONTSET
1795 print_fontset_result (XFontSet xfs
, char *name
, char **missing_list
,
1799 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
1802 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
1803 while (missing_count
-- > 0)
1805 fprintf (stderr
, " missing: %s\n", *missing_list
);
1814 xic_create_xfontset (struct frame
*f
)
1816 XFontSet xfs
= NULL
;
1817 struct font
*font
= FRAME_FONT (f
);
1818 int pixel_size
= font
->pixel_size
;
1819 Lisp_Object rest
, frame
;
1821 /* See if there is another frame already using same fontset. */
1822 FOR_EACH_FRAME (rest
, frame
)
1824 struct frame
*cf
= XFRAME (frame
);
1826 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
1827 && FRAME_DISPLAY_INFO (cf
) == FRAME_DISPLAY_INFO (f
)
1829 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
1831 xfs
= FRAME_XIC_FONTSET (cf
);
1839 char **missing_list
;
1842 const char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
1844 sprintf (buf
, xlfd_format
, pixel_size
);
1845 missing_list
= NULL
;
1846 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
1847 &missing_list
, &missing_count
, &def_string
);
1848 #ifdef DEBUG_XIC_FONTSET
1849 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
1852 XFreeStringList (missing_list
);
1855 /* List of pixel sizes most likely available. Find one that
1856 is closest to pixel_size. */
1857 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
1858 int *smaller
, *larger
;
1860 for (smaller
= sizes
; smaller
[1]; smaller
++)
1861 if (smaller
[1] >= pixel_size
)
1863 larger
= smaller
+ 1;
1864 if (*larger
== pixel_size
)
1866 while (*smaller
|| *larger
)
1871 this_size
= *smaller
--;
1872 else if (! *smaller
)
1873 this_size
= *larger
++;
1874 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
1875 this_size
= *smaller
--;
1877 this_size
= *larger
++;
1878 sprintf (buf
, xlfd_format
, this_size
);
1879 missing_list
= NULL
;
1880 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
1881 &missing_list
, &missing_count
, &def_string
);
1882 #ifdef DEBUG_XIC_FONTSET
1883 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
1886 XFreeStringList (missing_list
);
1893 const char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
1895 missing_list
= NULL
;
1896 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
1897 &missing_list
, &missing_count
, &def_string
);
1898 #ifdef DEBUG_XIC_FONTSET
1899 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
1902 XFreeStringList (missing_list
);
1910 /* Free the X fontset of frame F if it is the last frame using it. */
1913 xic_free_xfontset (struct frame
*f
)
1915 Lisp_Object rest
, frame
;
1918 if (!FRAME_XIC_FONTSET (f
))
1921 /* See if there is another frame sharing the same fontset. */
1922 FOR_EACH_FRAME (rest
, frame
)
1924 struct frame
*cf
= XFRAME (frame
);
1925 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
1926 && FRAME_DISPLAY_INFO (cf
) == FRAME_DISPLAY_INFO (f
)
1927 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
1935 /* The fontset is not used anymore. It is safe to free it. */
1936 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
1938 FRAME_XIC_FONTSET (f
) = NULL
;
1942 /* Value is the best input style, given user preferences USER (already
1943 checked to be supported by Emacs), and styles supported by the
1944 input method XIM. */
1947 best_xim_style (XIMStyles
*xim
)
1950 int nr_supported
= ARRAYELTS (supported_xim_styles
);
1952 for (i
= 0; i
< nr_supported
; ++i
)
1953 for (j
= 0; j
< xim
->count_styles
; ++j
)
1954 if (supported_xim_styles
[i
] == xim
->supported_styles
[j
])
1955 return supported_xim_styles
[i
];
1957 /* Return the default style. */
1958 return XIMPreeditNothing
| XIMStatusNothing
;
1961 /* Create XIC for frame F. */
1964 create_frame_xic (struct frame
*f
)
1968 XFontSet xfs
= NULL
;
1969 XVaNestedList status_attr
= NULL
;
1970 XVaNestedList preedit_attr
= NULL
;
1978 xim
= FRAME_X_XIM (f
);
1982 /* Determine XIC style. */
1983 xic_style
= best_xim_style (FRAME_X_XIM_STYLES (f
));
1985 /* Create X fontset. */
1986 if (xic_style
& (XIMPreeditPosition
| XIMStatusArea
))
1988 xfs
= xic_create_xfontset (f
);
1992 FRAME_XIC_FONTSET (f
) = xfs
;
1995 if (xic_style
& XIMPreeditPosition
)
1997 spot
.x
= 0; spot
.y
= 1;
1998 preedit_attr
= XVaCreateNestedList (0,
2001 FRAME_FOREGROUND_PIXEL (f
),
2003 FRAME_BACKGROUND_PIXEL (f
),
2004 (xic_style
& XIMPreeditPosition
2014 if (xic_style
& XIMStatusArea
)
2016 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2017 status_attr
= XVaCreateNestedList (0,
2023 FRAME_FOREGROUND_PIXEL (f
),
2025 FRAME_BACKGROUND_PIXEL (f
),
2032 if (preedit_attr
&& status_attr
)
2033 xic
= XCreateIC (xim
,
2034 XNInputStyle
, xic_style
,
2035 XNClientWindow
, FRAME_X_WINDOW (f
),
2036 XNFocusWindow
, FRAME_X_WINDOW (f
),
2037 XNStatusAttributes
, status_attr
,
2038 XNPreeditAttributes
, preedit_attr
,
2040 else if (preedit_attr
)
2041 xic
= XCreateIC (xim
,
2042 XNInputStyle
, xic_style
,
2043 XNClientWindow
, FRAME_X_WINDOW (f
),
2044 XNFocusWindow
, FRAME_X_WINDOW (f
),
2045 XNPreeditAttributes
, preedit_attr
,
2047 else if (status_attr
)
2048 xic
= XCreateIC (xim
,
2049 XNInputStyle
, xic_style
,
2050 XNClientWindow
, FRAME_X_WINDOW (f
),
2051 XNFocusWindow
, FRAME_X_WINDOW (f
),
2052 XNStatusAttributes
, status_attr
,
2055 xic
= XCreateIC (xim
,
2056 XNInputStyle
, xic_style
,
2057 XNClientWindow
, FRAME_X_WINDOW (f
),
2058 XNFocusWindow
, FRAME_X_WINDOW (f
),
2064 FRAME_XIC (f
) = xic
;
2065 FRAME_XIC_STYLE (f
) = xic_style
;
2066 xfs
= NULL
; /* Don't free below. */
2074 XFree (preedit_attr
);
2077 XFree (status_attr
);
2081 /* Destroy XIC and free XIC fontset of frame F, if any. */
2084 free_frame_xic (struct frame
*f
)
2086 if (FRAME_XIC (f
) == NULL
)
2089 XDestroyIC (FRAME_XIC (f
));
2090 xic_free_xfontset (f
);
2092 FRAME_XIC (f
) = NULL
;
2096 /* Place preedit area for XIC of window W's frame to specified
2097 pixel position X/Y. X and Y are relative to window W. */
2100 xic_set_preeditarea (struct window
*w
, int x
, int y
)
2102 struct frame
*f
= XFRAME (w
->frame
);
2106 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2107 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2108 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2109 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2114 /* Place status area for XIC in bottom right corner of frame F.. */
2117 xic_set_statusarea (struct frame
*f
)
2119 XIC xic
= FRAME_XIC (f
);
2124 /* Negotiate geometry of status area. If input method has existing
2125 status area, use its current size. */
2126 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2127 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2128 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2131 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2132 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2135 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2137 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2138 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2142 area
.width
= needed
->width
;
2143 area
.height
= needed
->height
;
2144 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2145 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2146 - FRAME_MENUBAR_HEIGHT (f
)
2147 - FRAME_TOOLBAR_TOP_HEIGHT (f
)
2148 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2151 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2152 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2157 /* Set X fontset for XIC of frame F, using base font name
2158 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2161 xic_set_xfontset (struct frame
*f
, const char *base_fontname
)
2166 xic_free_xfontset (f
);
2168 xfs
= xic_create_xfontset (f
);
2170 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2171 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2172 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2173 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2174 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2177 FRAME_XIC_FONTSET (f
) = xfs
;
2180 #endif /* HAVE_X_I18N */
2184 #ifdef USE_X_TOOLKIT
2186 /* Create and set up the X widget for frame F. */
2189 x_window (struct frame
*f
, long window_prompting
, int minibuffer_only
)
2191 XClassHint class_hints
;
2192 XSetWindowAttributes attributes
;
2193 unsigned long attribute_mask
;
2194 Widget shell_widget
;
2196 Widget frame_widget
;
2202 /* Use the resource name as the top-level widget name
2203 for looking up resources. Make a non-Lisp copy
2204 for the window manager, so GC relocation won't bother it.
2206 Elsewhere we specify the window name for the window manager. */
2207 f
->namebuf
= xstrdup (SSDATA (Vx_resource_name
));
2210 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2211 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2212 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2213 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2214 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2215 XtSetArg (al
[ac
], XtNdepth
, FRAME_DISPLAY_INFO (f
)->n_planes
); ac
++;
2216 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2217 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2218 applicationShellWidgetClass
,
2219 FRAME_X_DISPLAY (f
), al
, ac
);
2221 f
->output_data
.x
->widget
= shell_widget
;
2222 /* maybe_set_screen_title_format (shell_widget); */
2224 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2225 NULL
, shell_widget
, False
,
2226 NULL
, NULL
, NULL
, NULL
);
2229 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2230 XtSetArg (al
[ac
], XtNdepth
, FRAME_DISPLAY_INFO (f
)->n_planes
); ac
++;
2231 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2232 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2233 XtSetValues (pane_widget
, al
, ac
);
2234 f
->output_data
.x
->column_widget
= pane_widget
;
2236 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2237 the emacs screen when changing menubar. This reduces flickering. */
2240 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2241 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2242 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2243 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2244 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2245 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2246 XtSetArg (al
[ac
], XtNdepth
, FRAME_DISPLAY_INFO (f
)->n_planes
); ac
++;
2247 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2248 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2249 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2252 f
->output_data
.x
->edit_widget
= frame_widget
;
2254 XtManageChild (frame_widget
);
2256 /* Do some needed geometry management. */
2260 int extra_borders
= 0;
2262 = (f
->output_data
.x
->menubar_widget
2263 ? (f
->output_data
.x
->menubar_widget
->core
.height
2264 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2267 #if 0 /* Experimentally, we now get the right results
2268 for -geometry -0-0 without this. 24 Aug 96, rms. */
2269 if (FRAME_EXTERNAL_MENU_BAR (f
))
2272 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2273 menubar_size
+= ibw
;
2277 FRAME_MENUBAR_HEIGHT (f
) = menubar_size
;
2280 /* Motif seems to need this amount added to the sizes
2281 specified for the shell widget. The Athena/Lucid widgets don't.
2282 Both conclusions reached experimentally. -- rms. */
2283 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2284 &extra_borders
, NULL
);
2288 f
->shell_position
= xmalloc (sizeof "=x++" + 4 * INT_STRLEN_BOUND (int));
2290 /* Convert our geometry parameters into a geometry string
2292 Note that we do not specify here whether the position
2293 is a user-specified or program-specified one.
2294 We pass that information later, in x_wm_set_size_hints. */
2296 int left
= f
->left_pos
;
2297 int xneg
= window_prompting
& XNegative
;
2298 int top
= f
->top_pos
;
2299 int yneg
= window_prompting
& YNegative
;
2305 if (window_prompting
& USPosition
)
2306 sprintf (f
->shell_position
, "=%dx%d%c%d%c%d",
2307 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2308 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2309 (xneg
? '-' : '+'), left
,
2310 (yneg
? '-' : '+'), top
);
2313 sprintf (f
->shell_position
, "=%dx%d",
2314 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2315 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2317 /* Setting x and y when the position is not specified in
2318 the geometry string will set program position in the WM hints.
2319 If Emacs had just one program position, we could set it in
2320 fallback resources, but since each make-frame call can specify
2321 different program positions, this is easier. */
2322 XtSetArg (gal
[gac
], XtNx
, left
); gac
++;
2323 XtSetArg (gal
[gac
], XtNy
, top
); gac
++;
2327 XtSetArg (gal
[gac
], XtNgeometry
, f
->shell_position
); gac
++;
2328 XtSetValues (shell_widget
, gal
, gac
);
2331 XtManageChild (pane_widget
);
2332 XtRealizeWidget (shell_widget
);
2334 if (FRAME_X_EMBEDDED_P (f
))
2335 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2336 f
->output_data
.x
->parent_desc
, 0, 0);
2338 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2340 validate_x_resource_name ();
2342 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2343 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2344 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2347 FRAME_XIC (f
) = NULL
;
2349 create_frame_xic (f
);
2352 f
->output_data
.x
->wm_hints
.input
= True
;
2353 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2354 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2355 &f
->output_data
.x
->wm_hints
);
2357 hack_wm_protocols (f
, shell_widget
);
2360 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2363 /* Do a stupid property change to force the server to generate a
2364 PropertyNotify event so that the event_stream server timestamp will
2365 be initialized to something relevant to the time we created the window.
2367 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2368 FRAME_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2369 XA_ATOM
, 32, PropModeAppend
, NULL
, 0);
2371 /* Make all the standard events reach the Emacs frame. */
2372 attributes
.event_mask
= STANDARD_EVENT_SET
;
2377 /* XIM server might require some X events. */
2378 unsigned long fevent
= NoEventMask
;
2379 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2380 attributes
.event_mask
|= fevent
;
2382 #endif /* HAVE_X_I18N */
2384 attribute_mask
= CWEventMask
;
2385 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2386 attribute_mask
, &attributes
);
2388 XtMapWidget (frame_widget
);
2390 /* x_set_name normally ignores requests to set the name if the
2391 requested name is the same as the current name. This is the one
2392 place where that assumption isn't correct; f->name is set, but
2393 the X server hasn't been told. */
2396 bool explicit = f
->explicit_name
;
2398 f
->explicit_name
= 0;
2400 fset_name (f
, Qnil
);
2401 x_set_name (f
, name
, explicit);
2404 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2405 f
->output_data
.x
->current_cursor
2406 = f
->output_data
.x
->text_cursor
);
2410 /* This is a no-op, except under Motif. Make sure main areas are
2411 set to something reasonable, in case we get an error later. */
2412 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2415 #else /* not USE_X_TOOLKIT */
2418 x_window (struct frame
*f
)
2420 if (! xg_create_frame_widgets (f
))
2421 error ("Unable to create window");
2424 FRAME_XIC (f
) = NULL
;
2428 create_frame_xic (f
);
2431 /* XIM server might require some X events. */
2432 unsigned long fevent
= NoEventMask
;
2433 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2435 if (fevent
!= NoEventMask
)
2437 XSetWindowAttributes attributes
;
2438 XWindowAttributes wattr
;
2439 unsigned long attribute_mask
;
2441 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2443 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2444 attribute_mask
= CWEventMask
;
2445 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2446 attribute_mask
, &attributes
);
2454 #else /*! USE_GTK */
2455 /* Create and set up the X window for frame F. */
2458 x_window (struct frame
*f
)
2460 XClassHint class_hints
;
2461 XSetWindowAttributes attributes
;
2462 unsigned long attribute_mask
;
2464 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2465 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2466 attributes
.bit_gravity
= StaticGravity
;
2467 attributes
.backing_store
= NotUseful
;
2468 attributes
.save_under
= True
;
2469 attributes
.event_mask
= STANDARD_EVENT_SET
;
2470 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2471 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2476 = XCreateWindow (FRAME_X_DISPLAY (f
),
2477 f
->output_data
.x
->parent_desc
,
2480 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2482 CopyFromParent
, /* depth */
2483 InputOutput
, /* class */
2485 attribute_mask
, &attributes
);
2490 create_frame_xic (f
);
2493 /* XIM server might require some X events. */
2494 unsigned long fevent
= NoEventMask
;
2495 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2496 attributes
.event_mask
|= fevent
;
2497 attribute_mask
= CWEventMask
;
2498 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2499 attribute_mask
, &attributes
);
2502 #endif /* HAVE_X_I18N */
2504 validate_x_resource_name ();
2506 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2507 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2508 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2510 /* This indicates that we use the "Passive Input" input model.
2511 Unless we do this, we don't get the Focus{In,Out} events that we
2512 need to draw the cursor correctly. Accursed bureaucrats.
2513 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2515 f
->output_data
.x
->wm_hints
.input
= True
;
2516 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2517 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2518 &f
->output_data
.x
->wm_hints
);
2519 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2521 /* Request "save yourself" and "delete window" commands from wm. */
2524 protocols
[0] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2525 protocols
[1] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2526 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2529 /* x_set_name normally ignores requests to set the name if the
2530 requested name is the same as the current name. This is the one
2531 place where that assumption isn't correct; f->name is set, but
2532 the X server hasn't been told. */
2535 bool explicit = f
->explicit_name
;
2537 f
->explicit_name
= 0;
2539 fset_name (f
, Qnil
);
2540 x_set_name (f
, name
, explicit);
2543 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2544 f
->output_data
.x
->current_cursor
2545 = f
->output_data
.x
->text_cursor
);
2549 if (FRAME_X_WINDOW (f
) == 0)
2550 error ("Unable to create window");
2553 #endif /* not USE_GTK */
2554 #endif /* not USE_X_TOOLKIT */
2556 /* Verify that the icon position args for this window are valid. */
2559 x_icon_verify (struct frame
*f
, Lisp_Object parms
)
2561 Lisp_Object icon_x
, icon_y
;
2563 /* Set the position of the icon. Note that twm groups all
2564 icons in an icon window. */
2565 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2566 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2567 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2569 CHECK_NUMBER (icon_x
);
2570 CHECK_NUMBER (icon_y
);
2572 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2573 error ("Both left and top icon corners of icon must be specified");
2576 /* Handle the icon stuff for this window. Perhaps later we might
2577 want an x_set_icon_position which can be called interactively as
2581 x_icon (struct frame
*f
, Lisp_Object parms
)
2583 Lisp_Object icon_x
, icon_y
;
2585 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
2588 /* Set the position of the icon. Note that twm groups all
2589 icons in an icon window. */
2590 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2591 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2592 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2594 CHECK_TYPE_RANGED_INTEGER (int, icon_x
);
2595 CHECK_TYPE_RANGED_INTEGER (int, icon_y
);
2597 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2598 error ("Both left and top icon corners of icon must be specified");
2602 if (! EQ (icon_x
, Qunbound
))
2603 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2605 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2606 but x_create_frame still needs it. */
2607 /* Start up iconic or window? */
2608 x_wm_set_window_state
2609 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2615 x_text_icon (f
, SSDATA ((!NILP (f
->icon_name
)
2622 /* Make the GCs needed for this window, setting the
2623 background, border and mouse colors; also create the
2624 mouse cursor and the gray border tile. */
2627 x_make_gc (struct frame
*f
)
2629 XGCValues gc_values
;
2633 /* Create the GCs of this frame.
2634 Note that many default values are used. */
2636 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2637 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2638 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2639 f
->output_data
.x
->normal_gc
2640 = XCreateGC (FRAME_X_DISPLAY (f
),
2642 GCLineWidth
| GCForeground
| GCBackground
,
2645 /* Reverse video style. */
2646 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2647 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2648 f
->output_data
.x
->reverse_gc
2649 = XCreateGC (FRAME_X_DISPLAY (f
),
2651 GCForeground
| GCBackground
| GCLineWidth
,
2654 /* Cursor has cursor-color background, background-color foreground. */
2655 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2656 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2657 gc_values
.fill_style
= FillOpaqueStippled
;
2658 f
->output_data
.x
->cursor_gc
2659 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2660 (GCForeground
| GCBackground
2661 | GCFillStyle
| GCLineWidth
),
2664 /* Create the gray border tile used when the pointer is not in
2665 the frame. Since this depends on the frame's pixel values,
2666 this must be done on a per-frame basis. */
2667 f
->output_data
.x
->border_tile
2668 = (XCreatePixmapFromBitmapData
2669 (FRAME_X_DISPLAY (f
), FRAME_DISPLAY_INFO (f
)->root_window
,
2670 gray_bits
, gray_width
, gray_height
,
2671 FRAME_FOREGROUND_PIXEL (f
),
2672 FRAME_BACKGROUND_PIXEL (f
),
2673 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2679 /* Free what was allocated in x_make_gc. */
2682 x_free_gcs (struct frame
*f
)
2684 Display
*dpy
= FRAME_X_DISPLAY (f
);
2688 if (f
->output_data
.x
->normal_gc
)
2690 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2691 f
->output_data
.x
->normal_gc
= 0;
2694 if (f
->output_data
.x
->reverse_gc
)
2696 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2697 f
->output_data
.x
->reverse_gc
= 0;
2700 if (f
->output_data
.x
->cursor_gc
)
2702 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2703 f
->output_data
.x
->cursor_gc
= 0;
2706 if (f
->output_data
.x
->border_tile
)
2708 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2709 f
->output_data
.x
->border_tile
= 0;
2716 /* Handler for signals raised during x_create_frame and
2717 x_create_tip_frame. FRAME is the frame which is partially
2721 unwind_create_frame (Lisp_Object frame
)
2723 struct frame
*f
= XFRAME (frame
);
2725 /* If frame is already dead, nothing to do. This can happen if the
2726 display is disconnected after the frame has become official, but
2727 before x_create_frame removes the unwind protect. */
2728 if (!FRAME_LIVE_P (f
))
2731 /* If frame is ``official'', nothing to do. */
2732 if (NILP (Fmemq (frame
, Vframe_list
)))
2734 #if defined GLYPH_DEBUG && defined ENABLE_CHECKING
2735 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
2738 x_free_frame_resources (f
);
2741 #if defined GLYPH_DEBUG && defined ENABLE_CHECKING
2742 /* Check that reference counts are indeed correct. */
2743 eassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2744 eassert (dpyinfo
->terminal
->image_cache
->refcount
== image_cache_refcount
);
2753 do_unwind_create_frame (Lisp_Object frame
)
2755 unwind_create_frame (frame
);
2759 unwind_create_frame_1 (Lisp_Object val
)
2761 inhibit_lisp_code
= val
;
2765 x_default_font_parameter (struct frame
*f
, Lisp_Object parms
)
2767 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
2768 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
2770 Lisp_Object font
= Qnil
;
2771 if (EQ (font_param
, Qunbound
))
2774 if (NILP (font_param
))
2776 /* System font should take precedence over X resources. We suggest this
2777 regardless of font-use-system-font because .emacs may not have been
2779 const char *system_font
= xsettings_get_system_font ();
2781 font
= font_open_by_name (f
, build_unibyte_string (system_font
));
2785 font
= !NILP (font_param
) ? font_param
2786 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
2788 if (! FONTP (font
) && ! STRINGP (font
))
2793 /* This will find the normal Xft font. */
2796 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
2797 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2798 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2799 /* This was formerly the first thing tried, but it finds
2800 too many fonts and takes too long. */
2801 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
2802 /* If those didn't work, look for something which will
2804 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
2809 for (i
= 0; names
[i
]; i
++)
2811 font
= font_open_by_name (f
, build_unibyte_string (names
[i
]));
2816 error ("No suitable font was found");
2818 else if (!NILP (font_param
))
2820 /* Remember the explicit font parameter, so we can re-apply it after
2821 we've applied the `default' face settings. */
2822 x_set_frame_parameters (f
, list1 (Fcons (Qfont_param
, font_param
)));
2825 /* This call will make X resources override any system font setting. */
2826 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
2830 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
2832 doc
: /* Send the size hints for frame FRAME to the window manager.
2833 If FRAME is omitted or nil, use the selected frame.
2834 Signal error if FRAME is not an X frame. */)
2837 struct frame
*f
= decode_window_system_frame (frame
);
2840 x_wm_set_size_hint (f
, 0, 0);
2846 set_machine_and_pid_properties (struct frame
*f
)
2848 /* This will set WM_CLIENT_MACHINE and WM_LOCALE_NAME. */
2849 XSetWMProperties (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), NULL
, NULL
,
2850 NULL
, 0, NULL
, NULL
, NULL
);
2851 pid_t pid
= getpid ();
2852 if (pid
<= 0xffffffffu
)
2854 unsigned long xpid
= pid
;
2855 XChangeProperty (FRAME_X_DISPLAY (f
),
2856 FRAME_OUTER_WINDOW (f
),
2857 XInternAtom (FRAME_X_DISPLAY (f
),
2860 XA_CARDINAL
, 32, PropModeReplace
,
2861 (unsigned char *) &xpid
, 1);
2865 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2867 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
2868 Return an Emacs frame object.
2869 PARMS is an alist of frame parameters.
2870 If the parameters specify that the frame should not have a minibuffer,
2871 and do not specify a specific minibuffer window to use,
2872 then `default-minibuffer-frame' must be a frame whose minibuffer can
2873 be shared by the new frame.
2875 This function is an internal primitive--use `make-frame' instead. */)
2879 Lisp_Object frame
, tem
;
2881 int minibuffer_only
= 0;
2882 long window_prompting
= 0;
2884 ptrdiff_t count
= SPECPDL_INDEX ();
2885 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
2886 Lisp_Object display
;
2887 struct x_display_info
*dpyinfo
= NULL
;
2891 parms
= Fcopy_alist (parms
);
2893 /* Use this general default value to start with
2894 until we know if this frame has a specified name. */
2895 Vx_resource_name
= Vinvocation_name
;
2897 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
2898 if (EQ (display
, Qunbound
))
2899 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
2900 if (EQ (display
, Qunbound
))
2902 dpyinfo
= check_x_display_info (display
);
2903 kb
= dpyinfo
->terminal
->kboard
;
2905 if (!dpyinfo
->terminal
->name
)
2906 error ("Terminal is not live, can't create new frames on it");
2908 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
2910 && ! EQ (name
, Qunbound
)
2912 error ("Invalid frame name--not a string or nil");
2915 Vx_resource_name
= name
;
2917 /* See if parent window is specified. */
2918 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
2919 if (EQ (parent
, Qunbound
))
2921 if (! NILP (parent
))
2922 CHECK_NUMBER (parent
);
2924 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
2925 /* No need to protect DISPLAY because that's not used after passing
2926 it to make_frame_without_minibuffer. */
2928 GCPRO4 (parms
, parent
, name
, frame
);
2929 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
2931 if (EQ (tem
, Qnone
) || NILP (tem
))
2932 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
2933 else if (EQ (tem
, Qonly
))
2935 f
= make_minibuffer_frame ();
2936 minibuffer_only
= 1;
2938 else if (WINDOWP (tem
))
2939 f
= make_frame_without_minibuffer (tem
, kb
, display
);
2943 XSETFRAME (frame
, f
);
2945 f
->terminal
= dpyinfo
->terminal
;
2947 f
->output_method
= output_x_window
;
2948 f
->output_data
.x
= xzalloc (sizeof *f
->output_data
.x
);
2949 f
->output_data
.x
->icon_bitmap
= -1;
2950 FRAME_FONTSET (f
) = -1;
2951 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
2952 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
2953 #ifdef USE_TOOLKIT_SCROLL_BARS
2954 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
2955 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
2956 #endif /* USE_TOOLKIT_SCROLL_BARS */
2957 f
->output_data
.x
->white_relief
.pixel
= -1;
2958 f
->output_data
.x
->black_relief
.pixel
= -1;
2961 x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
2963 if (! STRINGP (f
->icon_name
))
2964 fset_icon_name (f
, Qnil
);
2966 FRAME_DISPLAY_INFO (f
) = dpyinfo
;
2968 /* With FRAME_DISPLAY_INFO set up, this unwind-protect is safe. */
2969 record_unwind_protect (do_unwind_create_frame
, frame
);
2971 /* These colors will be set anyway later, but it's important
2972 to get the color reference counts right, so initialize them! */
2975 struct gcpro gcpro1
;
2977 /* Function x_decode_color can signal an error. Make
2978 sure to initialize color slots so that we won't try
2979 to free colors we haven't allocated. */
2980 FRAME_FOREGROUND_PIXEL (f
) = -1;
2981 FRAME_BACKGROUND_PIXEL (f
) = -1;
2982 f
->output_data
.x
->cursor_pixel
= -1;
2983 f
->output_data
.x
->cursor_foreground_pixel
= -1;
2984 f
->output_data
.x
->border_pixel
= -1;
2985 f
->output_data
.x
->mouse_pixel
= -1;
2987 black
= build_string ("black");
2989 FRAME_FOREGROUND_PIXEL (f
)
2990 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2991 FRAME_BACKGROUND_PIXEL (f
)
2992 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2993 f
->output_data
.x
->cursor_pixel
2994 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2995 f
->output_data
.x
->cursor_foreground_pixel
2996 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2997 f
->output_data
.x
->border_pixel
2998 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2999 f
->output_data
.x
->mouse_pixel
3000 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3004 /* Specify the parent under which to make this X window. */
3008 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3009 f
->output_data
.x
->explicit_parent
= 1;
3013 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
3014 f
->output_data
.x
->explicit_parent
= 0;
3017 /* Set the name; the functions to which we pass f expect the name to
3019 if (EQ (name
, Qunbound
) || NILP (name
))
3021 fset_name (f
, build_string (dpyinfo
->x_id_name
));
3022 f
->explicit_name
= 0;
3026 fset_name (f
, name
);
3027 f
->explicit_name
= 1;
3028 /* use the frame's title when getting resources for this frame. */
3029 specbind (Qx_resource_name
, name
);
3032 #ifdef HAVE_FREETYPE
3034 register_font_driver (&xftfont_driver
, f
);
3035 #else /* not HAVE_XFT */
3036 register_font_driver (&ftxfont_driver
, f
);
3037 #endif /* not HAVE_XFT */
3038 #endif /* HAVE_FREETYPE */
3039 register_font_driver (&xfont_driver
, f
);
3041 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3042 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3044 /* Extract the window parameters from the supplied values
3045 that are needed to determine window geometry. */
3046 x_default_font_parameter (f
, parms
);
3047 if (!FRAME_FONT (f
))
3049 delete_frame (frame
, Qnoelisp
);
3050 error ("Invalid frame font");
3053 /* Frame contents get displaced if an embedded X window has a border. */
3054 if (! FRAME_X_EMBEDDED_P (f
))
3055 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
3056 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3058 /* This defaults to 1 in order to match xterm. We recognize either
3059 internalBorderWidth or internalBorder (which is what xterm calls
3061 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3065 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3066 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3067 if (! EQ (value
, Qunbound
))
3068 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3071 x_default_parameter (f
, parms
, Qinternal_border_width
,
3072 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3077 "internalBorderWidth", "internalBorderWidth",
3079 x_default_parameter (f
, parms
, Qright_divider_width
, make_number (0),
3080 NULL
, NULL
, RES_TYPE_NUMBER
);
3081 x_default_parameter (f
, parms
, Qbottom_divider_width
, make_number (0),
3082 NULL
, NULL
, RES_TYPE_NUMBER
);
3083 x_default_parameter (f
, parms
, Qvertical_scroll_bars
,
3084 #if defined (USE_GTK) && defined (USE_TOOLKIT_SCROLL_BARS)
3089 "verticalScrollBars", "ScrollBars",
3092 /* Also do the stuff which must be set before the window exists. */
3093 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3094 "foreground", "Foreground", RES_TYPE_STRING
);
3095 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3096 "background", "Background", RES_TYPE_STRING
);
3097 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3098 "pointerColor", "Foreground", RES_TYPE_STRING
);
3099 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3100 "borderColor", "BorderColor", RES_TYPE_STRING
);
3101 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3102 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3103 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3104 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3105 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3106 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3107 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3108 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3110 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3111 "scrollBarForeground",
3112 "ScrollBarForeground", 1);
3113 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3114 "scrollBarBackground",
3115 "ScrollBarBackground", 0);
3118 image_cache_refcount
=
3119 FRAME_IMAGE_CACHE (f
) ? FRAME_IMAGE_CACHE (f
)->refcount
: 0;
3120 dpyinfo_refcount
= dpyinfo
->reference_count
;
3121 #endif /* GLYPH_DEBUG */
3123 /* Init faces before x_default_parameter is called for scroll-bar
3124 parameters because that function calls x_set_scroll_bar_width,
3125 which calls change_frame_size, which calls Fset_window_buffer,
3126 which runs hooks, which call Fvertical_motion. At the end, we
3127 end up in init_iterator with a null face cache, which should not
3129 init_frame_faces (f
);
3131 /* PXW: This is a duplicate from below. We have to do it here since
3132 otherwise x_set_tool_bar_lines will work with the character sizes
3133 installed by init_frame_faces while the frame's pixel size is still
3134 calculated from a character size of 1 and we subsequently hit the
3135 eassert (height >= 0) assertion in window_box_height. The
3136 non-pixelwise code apparently worked around this because it had one
3137 frame line vs one toolbar line which left us with a zero root
3138 window height which was obviously wrong as well ... */
3139 change_frame_size (f
, FRAME_COLS (f
) * FRAME_COLUMN_WIDTH (f
),
3140 FRAME_LINES (f
) * FRAME_LINE_HEIGHT (f
), 1, 0, 0, 1);
3142 /* Set the menu-bar-lines and tool-bar-lines parameters. We don't
3143 look up the X resources controlling the menu-bar and tool-bar
3144 here; they are processed specially at startup, and reflected in
3145 the values of the mode variables.
3147 Avoid calling window-configuration-change-hook; otherwise we
3148 could get an infloop in next_frame since the frame is not yet in
3151 ptrdiff_t count2
= SPECPDL_INDEX ();
3152 record_unwind_protect (unwind_create_frame_1
, inhibit_lisp_code
);
3153 inhibit_lisp_code
= Qt
;
3155 x_default_parameter (f
, parms
, Qmenu_bar_lines
,
3156 NILP (Vmenu_bar_mode
)
3157 ? make_number (0) : make_number (1),
3158 NULL
, NULL
, RES_TYPE_NUMBER
);
3159 x_default_parameter (f
, parms
, Qtool_bar_lines
,
3160 NILP (Vtool_bar_mode
)
3161 ? make_number (0) : make_number (1),
3162 NULL
, NULL
, RES_TYPE_NUMBER
);
3164 unbind_to (count2
, Qnil
);
3167 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3168 "bufferPredicate", "BufferPredicate",
3170 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3171 "title", "Title", RES_TYPE_STRING
);
3172 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3173 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3174 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3175 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3176 x_default_parameter (f
, parms
, Qtool_bar_position
,
3177 FRAME_TOOL_BAR_POSITION (f
), 0, 0, RES_TYPE_SYMBOL
);
3179 /* Compute the size of the X window. */
3180 window_prompting
= x_figure_window_size (f
, parms
, 1);
3182 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3183 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3185 x_icon_verify (f
, parms
);
3187 /* Create the X widget or window. */
3188 #ifdef USE_X_TOOLKIT
3189 x_window (f
, window_prompting
, minibuffer_only
);
3197 /* Now consider the frame official. */
3198 f
->terminal
->reference_count
++;
3199 FRAME_DISPLAY_INFO (f
)->reference_count
++;
3200 Vframe_list
= Fcons (frame
, Vframe_list
);
3202 /* We need to do this after creating the X window, so that the
3203 icon-creation functions can say whose icon they're describing. */
3204 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3205 "bitmapIcon", "BitmapIcon", RES_TYPE_BOOLEAN
);
3207 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3208 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3209 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3210 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3211 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3212 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3213 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3214 "scrollBarWidth", "ScrollBarWidth",
3216 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3217 "alpha", "Alpha", RES_TYPE_NUMBER
);
3219 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3220 Change will not be effected unless different from the current
3222 width
= FRAME_TEXT_WIDTH (f
);
3223 height
= FRAME_TEXT_HEIGHT (f
);
3224 FRAME_TEXT_HEIGHT (f
) = 0;
3225 SET_FRAME_WIDTH (f
, 0);
3226 change_frame_size (f
, width
, height
, 1, 0, 0, 1);
3228 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3229 /* Create the menu bar. */
3230 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3232 /* If this signals an error, we haven't set size hints for the
3233 frame and we didn't make it visible. */
3234 initialize_frame_menubar (f
);
3237 /* This is a no-op, except under Motif where it arranges the
3238 main window for the widgets on it. */
3239 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3240 f
->output_data
.x
->menubar_widget
,
3241 f
->output_data
.x
->edit_widget
);
3242 #endif /* not USE_GTK */
3244 #endif /* USE_X_TOOLKIT || USE_GTK */
3246 /* Tell the server what size and position, etc, we want, and how
3247 badly we want them. This should be done after we have the menu
3248 bar so that its size can be taken into account. */
3250 x_wm_set_size_hint (f
, window_prompting
, 0);
3253 /* Make the window appear on the frame and enable display, unless
3254 the caller says not to. However, with explicit parent, Emacs
3255 cannot control visibility, so don't try. */
3256 if (! f
->output_data
.x
->explicit_parent
)
3258 Lisp_Object visibility
;
3260 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3262 if (EQ (visibility
, Qunbound
))
3265 if (EQ (visibility
, Qicon
))
3266 x_iconify_frame (f
);
3267 else if (! NILP (visibility
))
3268 x_make_frame_visible (f
);
3271 /* Must have been Qnil. */
3277 /* Set machine name and pid for the purpose of window managers. */
3278 set_machine_and_pid_properties (f
);
3280 /* Set the WM leader property. GTK does this itself, so this is not
3281 needed when using GTK. */
3282 if (dpyinfo
->client_leader_window
!= 0)
3284 XChangeProperty (FRAME_X_DISPLAY (f
),
3285 FRAME_OUTER_WINDOW (f
),
3286 dpyinfo
->Xatom_wm_client_leader
,
3287 XA_WINDOW
, 32, PropModeReplace
,
3288 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3293 /* Initialize `default-minibuffer-frame' in case this is the first
3294 frame on this terminal. */
3295 if (FRAME_HAS_MINIBUF_P (f
)
3296 && (!FRAMEP (KVAR (kb
, Vdefault_minibuffer_frame
))
3297 || !FRAME_LIVE_P (XFRAME (KVAR (kb
, Vdefault_minibuffer_frame
)))))
3298 kset_default_minibuffer_frame (kb
, frame
);
3300 /* All remaining specified parameters, which have not been "used"
3301 by x_get_arg and friends, now go in the misc. alist of the frame. */
3302 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3303 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3304 fset_param_alist (f
, Fcons (XCAR (tem
), f
->param_alist
));
3308 /* Make sure windows on this frame appear in calls to next-window
3309 and similar functions. */
3310 Vwindow_list
= Qnil
;
3312 return unbind_to (count
, frame
);
3316 /* FRAME is used only to get a handle on the X display. We don't pass the
3317 display info directly because we're called from frame.c, which doesn't
3318 know about that structure. */
3321 x_get_focus_frame (struct frame
*frame
)
3323 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (frame
);
3325 if (! dpyinfo
->x_focus_frame
)
3328 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3333 /* In certain situations, when the window manager follows a
3334 click-to-focus policy, there seems to be no way around calling
3335 XSetInputFocus to give another frame the input focus .
3337 In an ideal world, XSetInputFocus should generally be avoided so
3338 that applications don't interfere with the window manager's focus
3339 policy. But I think it's okay to use when it's clearly done
3340 following a user-command. */
3343 x_focus_frame (struct frame
*f
)
3345 Display
*dpy
= FRAME_X_DISPLAY (f
);
3348 x_catch_errors (dpy
);
3350 if (FRAME_X_EMBEDDED_P (f
))
3352 /* For Xembedded frames, normally the embedder forwards key
3353 events. See XEmbed Protocol Specification at
3354 http://freedesktop.org/wiki/Specifications/xembed-spec */
3355 xembed_request_focus (f
);
3359 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3360 RevertToParent
, CurrentTime
);
3361 x_ewmh_activate_frame (f
);
3364 x_uncatch_errors ();
3369 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3370 doc
: /* Internal function called by `color-defined-p', which see
3371 .\(Note that the Nextstep version of this function ignores FRAME.) */)
3372 (Lisp_Object color
, Lisp_Object frame
)
3375 struct frame
*f
= decode_window_system_frame (frame
);
3377 CHECK_STRING (color
);
3379 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3385 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3386 doc
: /* Internal function called by `color-values', which see. */)
3387 (Lisp_Object color
, Lisp_Object frame
)
3390 struct frame
*f
= decode_window_system_frame (frame
);
3392 CHECK_STRING (color
);
3394 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3395 return list3i (foo
.red
, foo
.green
, foo
.blue
);
3400 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3401 doc
: /* Internal function called by `display-color-p', which see. */)
3402 (Lisp_Object terminal
)
3404 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3406 if (dpyinfo
->n_planes
<= 2)
3409 switch (dpyinfo
->visual
->class)
3422 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3424 doc
: /* Return t if the X display supports shades of gray.
3425 Note that color displays do support shades of gray.
3426 The optional argument TERMINAL specifies which display to ask about.
3427 TERMINAL should be a terminal object, a frame or a display name (a string).
3428 If omitted or nil, that stands for the selected frame's display. */)
3429 (Lisp_Object terminal
)
3431 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3433 if (dpyinfo
->n_planes
<= 1)
3436 switch (dpyinfo
->visual
->class)
3451 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3453 doc
: /* Return the width in pixels of the X display TERMINAL.
3454 The optional argument TERMINAL specifies which display to ask about.
3455 TERMINAL should be a terminal object, a frame or a display name (a string).
3456 If omitted or nil, that stands for the selected frame's display.
3458 On \"multi-monitor\" setups this refers to the pixel width for all
3459 physical monitors associated with TERMINAL. To get information for
3460 each physical monitor, use `display-monitor-attributes-list'. */)
3461 (Lisp_Object terminal
)
3463 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3465 return make_number (x_display_pixel_width (dpyinfo
));
3468 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3469 Sx_display_pixel_height
, 0, 1, 0,
3470 doc
: /* Return the height in pixels of the X display TERMINAL.
3471 The optional argument TERMINAL specifies which display to ask about.
3472 TERMINAL should be a terminal object, a frame or a display name (a string).
3473 If omitted or nil, that stands for the selected frame's display.
3475 On \"multi-monitor\" setups this refers to the pixel height for all
3476 physical monitors associated with TERMINAL. To get information for
3477 each physical monitor, use `display-monitor-attributes-list'. */)
3478 (Lisp_Object terminal
)
3480 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3482 return make_number (x_display_pixel_height (dpyinfo
));
3485 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3487 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3488 The optional argument TERMINAL specifies which display to ask about.
3489 TERMINAL should be a terminal object, a frame or a display name (a string).
3490 If omitted or nil, that stands for the selected frame's display. */)
3491 (Lisp_Object terminal
)
3493 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3495 return make_number (dpyinfo
->n_planes
);
3498 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3500 doc
: /* Return the number of color cells of the X 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 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3509 XScreenNumberOfScreen (dpyinfo
->screen
));
3511 /* Truncate nr_planes to 24 to avoid integer overflow.
3512 Some displays says 32, but only 24 bits are actually significant.
3513 There are only very few and rare video cards that have more than
3514 24 significant bits. Also 24 bits is more than 16 million colors,
3515 it "should be enough for everyone". */
3516 if (nr_planes
> 24) nr_planes
= 24;
3518 return make_number (1 << nr_planes
);
3521 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3522 Sx_server_max_request_size
,
3524 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3525 The optional argument TERMINAL specifies which display to ask about.
3526 TERMINAL should be a terminal object, a frame or a display name (a string).
3527 If omitted or nil, that stands for the selected frame's display. */)
3528 (Lisp_Object terminal
)
3530 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3532 return make_number (MAXREQUEST (dpyinfo
->display
));
3535 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3536 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3537 \(Labeling every distributor as a "vendor" embodies the false assumption
3538 that operating systems cannot be developed and distributed noncommercially.)
3539 The optional argument TERMINAL specifies which display to ask about.
3540 TERMINAL should be a terminal object, a frame or a display name (a string).
3541 If omitted or nil, that stands for the selected frame's display. */)
3542 (Lisp_Object terminal
)
3544 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3545 const char *vendor
= ServerVendor (dpyinfo
->display
);
3547 if (! vendor
) vendor
= "";
3548 return build_string (vendor
);
3551 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3552 doc
: /* Return the version numbers of the X server of display TERMINAL.
3553 The value is a list of three integers: the major and minor
3554 version numbers of the X Protocol in use, and the distributor-specific release
3555 number. See also the function `x-server-vendor'.
3557 The optional argument TERMINAL specifies which display to ask about.
3558 TERMINAL should be a terminal object, a frame or a display name (a string).
3559 If omitted or nil, that stands for the selected frame's display. */)
3560 (Lisp_Object terminal
)
3562 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3563 Display
*dpy
= dpyinfo
->display
;
3565 return list3i (ProtocolVersion (dpy
), ProtocolRevision (dpy
),
3566 VendorRelease (dpy
));
3569 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3570 doc
: /* Return the number of screens on the X server of display TERMINAL.
3571 The optional argument TERMINAL specifies which display to ask about.
3572 TERMINAL should be a terminal object, a frame or a display name (a string).
3573 If omitted or nil, that stands for the selected frame's display. */)
3574 (Lisp_Object terminal
)
3576 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3578 return make_number (ScreenCount (dpyinfo
->display
));
3581 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3582 doc
: /* Return the height in millimeters of the X display TERMINAL.
3583 The optional argument TERMINAL specifies which display to ask about.
3584 TERMINAL should be a terminal object, a frame or a display name (a string).
3585 If omitted or nil, that stands for the selected frame's display.
3587 On \"multi-monitor\" setups this refers to the height in millimeters for
3588 all physical monitors associated with TERMINAL. To get information
3589 for each physical monitor, use `display-monitor-attributes-list'. */)
3590 (Lisp_Object terminal
)
3592 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3594 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3597 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3598 doc
: /* Return the width in millimeters of the X display TERMINAL.
3599 The optional argument TERMINAL specifies which display to ask about.
3600 TERMINAL should be a terminal object, a frame or a display name (a string).
3601 If omitted or nil, that stands for the selected frame's display.
3603 On \"multi-monitor\" setups this refers to the width in millimeters for
3604 all physical monitors associated with TERMINAL. To get information
3605 for each physical monitor, use `display-monitor-attributes-list'. */)
3606 (Lisp_Object terminal
)
3608 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3610 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3613 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3614 Sx_display_backing_store
, 0, 1, 0,
3615 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3616 The value may be `always', `when-mapped', or `not-useful'.
3617 The optional argument TERMINAL specifies which display to ask about.
3618 TERMINAL should be a terminal object, a frame or a display name (a string).
3619 If omitted or nil, that stands for the selected frame's display. */)
3620 (Lisp_Object terminal
)
3622 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3625 switch (DoesBackingStore (dpyinfo
->screen
))
3628 result
= intern ("always");
3632 result
= intern ("when-mapped");
3636 result
= intern ("not-useful");
3640 error ("Strange value for BackingStore parameter of screen");
3646 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3647 Sx_display_visual_class
, 0, 1, 0,
3648 doc
: /* Return the visual class of the X display TERMINAL.
3649 The value is one of the symbols `static-gray', `gray-scale',
3650 `static-color', `pseudo-color', `true-color', or `direct-color'.
3652 The optional argument TERMINAL specifies which display to ask about.
3653 TERMINAL should a terminal object, a frame or a display name (a string).
3654 If omitted or nil, that stands for the selected frame's display. */)
3655 (Lisp_Object terminal
)
3657 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3660 switch (dpyinfo
->visual
->class)
3663 result
= intern ("static-gray");
3666 result
= intern ("gray-scale");
3669 result
= intern ("static-color");
3672 result
= intern ("pseudo-color");
3675 result
= intern ("true-color");
3678 result
= intern ("direct-color");
3681 error ("Display has an unknown visual class");
3687 DEFUN ("x-display-save-under", Fx_display_save_under
,
3688 Sx_display_save_under
, 0, 1, 0,
3689 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3690 The optional argument TERMINAL specifies which display to ask about.
3691 TERMINAL should be a terminal object, a frame or a display name (a string).
3692 If omitted or nil, that stands for the selected frame's display. */)
3693 (Lisp_Object terminal
)
3695 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3697 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3703 /* Store the geometry of the workarea on display DPYINFO into *RECT.
3704 Return false if and only if the workarea information cannot be
3705 obtained via the _NET_WORKAREA root window property. */
3707 #if ! GTK_CHECK_VERSION (3, 4, 0)
3709 x_get_net_workarea (struct x_display_info
*dpyinfo
, XRectangle
*rect
)
3711 Display
*dpy
= dpyinfo
->display
;
3712 long offset
, max_len
;
3713 Atom target_type
, actual_type
;
3714 unsigned long actual_size
, bytes_remaining
;
3715 int rc
, actual_format
;
3716 unsigned char *tmp_data
= NULL
;
3717 bool result
= false;
3719 x_catch_errors (dpy
);
3722 target_type
= XA_CARDINAL
;
3723 rc
= XGetWindowProperty (dpy
, dpyinfo
->root_window
,
3724 dpyinfo
->Xatom_net_current_desktop
,
3725 offset
, max_len
, False
, target_type
,
3726 &actual_type
, &actual_format
, &actual_size
,
3727 &bytes_remaining
, &tmp_data
);
3728 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
3729 && actual_format
== 32 && actual_size
== max_len
)
3731 long current_desktop
= ((long *) tmp_data
)[0];
3736 offset
= 4 * current_desktop
;
3738 rc
= XGetWindowProperty (dpy
, dpyinfo
->root_window
,
3739 dpyinfo
->Xatom_net_workarea
,
3740 offset
, max_len
, False
, target_type
,
3741 &actual_type
, &actual_format
, &actual_size
,
3742 &bytes_remaining
, &tmp_data
);
3743 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
3744 && actual_format
== 32 && actual_size
== max_len
)
3746 long *values
= (long *) tmp_data
;
3748 rect
->x
= values
[0];
3749 rect
->y
= values
[1];
3750 rect
->width
= values
[2];
3751 rect
->height
= values
[3];
3761 x_uncatch_errors ();
3769 /* Return monitor number where F is "most" or closest to. */
3771 x_get_monitor_for_frame (struct frame
*f
,
3772 struct MonitorInfo
*monitors
,
3776 int area
= 0, dist
= -1;
3777 int best_area
= -1, best_dist
= -1;
3780 if (n_monitors
== 1) return 0;
3781 frect
.x
= f
->left_pos
;
3782 frect
.y
= f
->top_pos
;
3783 frect
.width
= FRAME_PIXEL_WIDTH (f
);
3784 frect
.height
= FRAME_PIXEL_HEIGHT (f
);
3786 for (i
= 0; i
< n_monitors
; ++i
)
3788 struct MonitorInfo
*mi
= &monitors
[i
];
3792 if (mi
->geom
.width
== 0) continue;
3794 if (x_intersect_rectangles (&mi
->geom
, &frect
, &res
))
3796 a
= res
.width
* res
.height
;
3804 if (a
== 0 && area
== 0)
3807 if (frect
.x
+ frect
.width
< mi
->geom
.x
)
3808 dx
= mi
->geom
.x
- frect
.x
+ frect
.width
;
3809 else if (frect
.x
> mi
->geom
.x
+ mi
->geom
.width
)
3810 dx
= frect
.x
- mi
->geom
.x
+ mi
->geom
.width
;
3813 if (frect
.y
+ frect
.height
< mi
->geom
.y
)
3814 dy
= mi
->geom
.y
- frect
.y
+ frect
.height
;
3815 else if (frect
.y
> mi
->geom
.y
+ mi
->geom
.height
)
3816 dy
= frect
.y
- mi
->geom
.y
+ mi
->geom
.height
;
3821 if (dist
== -1 || dist
> d
)
3829 return best_area
!= -1 ? best_area
: (best_dist
!= -1 ? best_dist
: 0);
3833 x_make_monitor_attribute_list (struct MonitorInfo
*monitors
,
3835 int primary_monitor
,
3836 struct x_display_info
*dpyinfo
,
3839 Lisp_Object monitor_frames
= Fmake_vector (make_number (n_monitors
), Qnil
);
3840 Lisp_Object frame
, rest
;
3842 FOR_EACH_FRAME (rest
, frame
)
3844 struct frame
*f
= XFRAME (frame
);
3846 if (FRAME_X_P (f
) && FRAME_DISPLAY_INFO (f
) == dpyinfo
3847 && !EQ (frame
, tip_frame
))
3849 int i
= x_get_monitor_for_frame (f
, monitors
, n_monitors
);
3850 ASET (monitor_frames
, i
, Fcons (frame
, AREF (monitor_frames
, i
)));
3854 return make_monitor_attribute_list (monitors
, n_monitors
, primary_monitor
,
3855 monitor_frames
, source
);
3859 x_get_monitor_attributes_fallback (struct x_display_info
*dpyinfo
)
3861 struct MonitorInfo monitor
;
3862 XRectangle workarea_r
;
3864 /* Fallback: treat (possibly) multiple physical monitors as if they
3865 formed a single monitor as a whole. This should provide a
3866 consistent result at least on single monitor environments. */
3867 monitor
.geom
.x
= monitor
.geom
.y
= 0;
3868 monitor
.geom
.width
= x_display_pixel_width (dpyinfo
);
3869 monitor
.geom
.height
= x_display_pixel_height (dpyinfo
);
3870 monitor
.mm_width
= WidthMMOfScreen (dpyinfo
->screen
);
3871 monitor
.mm_height
= HeightMMOfScreen (dpyinfo
->screen
);
3872 monitor
.name
= xstrdup ("combined screen");
3874 if (x_get_net_workarea (dpyinfo
, &workarea_r
))
3875 monitor
.work
= workarea_r
;
3877 monitor
.work
= monitor
.geom
;
3878 return x_make_monitor_attribute_list (&monitor
, 1, 0, dpyinfo
, "fallback");
3882 #ifdef HAVE_XINERAMA
3884 x_get_monitor_attributes_xinerama (struct x_display_info
*dpyinfo
)
3887 Lisp_Object attributes_list
= Qnil
;
3888 Display
*dpy
= dpyinfo
->display
;
3889 XineramaScreenInfo
*info
= XineramaQueryScreens (dpy
, &n_monitors
);
3890 struct MonitorInfo
*monitors
;
3891 double mm_width_per_pixel
, mm_height_per_pixel
;
3893 if (! info
|| n_monitors
== 0)
3897 return attributes_list
;
3900 mm_width_per_pixel
= ((double) WidthMMOfScreen (dpyinfo
->screen
)
3901 / x_display_pixel_width (dpyinfo
));
3902 mm_height_per_pixel
= ((double) HeightMMOfScreen (dpyinfo
->screen
)
3903 / x_display_pixel_height (dpyinfo
));
3904 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
3905 for (i
= 0; i
< n_monitors
; ++i
)
3907 struct MonitorInfo
*mi
= &monitors
[i
];
3908 XRectangle workarea_r
;
3910 mi
->geom
.x
= info
[i
].x_org
;
3911 mi
->geom
.y
= info
[i
].y_org
;
3912 mi
->geom
.width
= info
[i
].width
;
3913 mi
->geom
.height
= info
[i
].height
;
3914 mi
->mm_width
= mi
->geom
.width
* mm_width_per_pixel
+ 0.5;
3915 mi
->mm_height
= mi
->geom
.height
* mm_height_per_pixel
+ 0.5;
3918 /* Xinerama usually have primary monitor first, just use that. */
3919 if (i
== 0 && x_get_net_workarea (dpyinfo
, &workarea_r
))
3921 mi
->work
= workarea_r
;
3922 if (! x_intersect_rectangles (&mi
->geom
, &mi
->work
, &mi
->work
))
3923 mi
->work
= mi
->geom
;
3926 mi
->work
= mi
->geom
;
3930 attributes_list
= x_make_monitor_attribute_list (monitors
,
3935 free_monitors (monitors
, n_monitors
);
3936 return attributes_list
;
3938 #endif /* HAVE_XINERAMA */
3943 x_get_monitor_attributes_xrandr (struct x_display_info
*dpyinfo
)
3945 Lisp_Object attributes_list
= Qnil
;
3946 XRRScreenResources
*resources
;
3947 Display
*dpy
= dpyinfo
->display
;
3948 int i
, n_monitors
, primary
= -1;
3949 RROutput pxid
= None
;
3950 struct MonitorInfo
*monitors
;
3952 #ifdef HAVE_XRRGETSCREENRESOURCESCURRENT
3953 resources
= XRRGetScreenResourcesCurrent (dpy
, dpyinfo
->root_window
);
3955 resources
= XRRGetScreenResources (dpy
, dpyinfo
->root_window
);
3957 if (! resources
|| resources
->noutput
== 0)
3960 XRRFreeScreenResources (resources
);
3963 n_monitors
= resources
->noutput
;
3964 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
3966 #ifdef HAVE_XRRGETOUTPUTPRIMARY
3967 pxid
= XRRGetOutputPrimary (dpy
, dpyinfo
->root_window
);
3970 for (i
= 0; i
< n_monitors
; ++i
)
3972 XRROutputInfo
*info
= XRRGetOutputInfo (dpy
, resources
,
3973 resources
->outputs
[i
]);
3974 Connection conn
= info
? info
->connection
: RR_Disconnected
;
3975 RRCrtc id
= info
? info
->crtc
: None
;
3977 if (strcmp (info
->name
, "default") == 0)
3979 /* Non XRandr 1.2 driver, does not give useful data. */
3980 XRRFreeOutputInfo (info
);
3981 XRRFreeScreenResources (resources
);
3982 free_monitors (monitors
, n_monitors
);
3986 if (conn
!= RR_Disconnected
&& id
!= None
)
3988 XRRCrtcInfo
*crtc
= XRRGetCrtcInfo (dpy
, resources
, id
);
3989 struct MonitorInfo
*mi
= &monitors
[i
];
3990 XRectangle workarea_r
;
3994 XRRFreeOutputInfo (info
);
3998 mi
->geom
.x
= crtc
->x
;
3999 mi
->geom
.y
= crtc
->y
;
4000 mi
->geom
.width
= crtc
->width
;
4001 mi
->geom
.height
= crtc
->height
;
4002 mi
->mm_width
= info
->mm_width
;
4003 mi
->mm_height
= info
->mm_height
;
4004 mi
->name
= xstrdup (info
->name
);
4006 if (pxid
!= None
&& pxid
== resources
->outputs
[i
])
4008 else if (primary
== -1 && strcmp (info
->name
, "LVDS") == 0)
4011 if (i
== primary
&& x_get_net_workarea (dpyinfo
, &workarea_r
))
4013 mi
->work
= workarea_r
;
4014 if (! x_intersect_rectangles (&mi
->geom
, &mi
->work
, &mi
->work
))
4015 mi
->work
= mi
->geom
;
4018 mi
->work
= mi
->geom
;
4020 XRRFreeCrtcInfo (crtc
);
4022 XRRFreeOutputInfo (info
);
4024 XRRFreeScreenResources (resources
);
4026 attributes_list
= x_make_monitor_attribute_list (monitors
,
4031 free_monitors (monitors
, n_monitors
);
4032 return attributes_list
;
4034 #endif /* HAVE_XRANDR */
4037 x_get_monitor_attributes (struct x_display_info
*dpyinfo
)
4039 Lisp_Object attributes_list
= Qnil
;
4040 Display
*dpy
= dpyinfo
->display
;
4042 (void) dpy
; /* Suppress unused variable warning. */
4045 int xrr_event_base
, xrr_error_base
;
4046 bool xrr_ok
= false;
4047 xrr_ok
= XRRQueryExtension (dpy
, &xrr_event_base
, &xrr_error_base
);
4050 int xrr_major
, xrr_minor
;
4051 XRRQueryVersion (dpy
, &xrr_major
, &xrr_minor
);
4052 xrr_ok
= (xrr_major
== 1 && xrr_minor
>= 2) || xrr_major
> 1;
4056 attributes_list
= x_get_monitor_attributes_xrandr (dpyinfo
);
4057 #endif /* HAVE_XRANDR */
4059 #ifdef HAVE_XINERAMA
4060 if (NILP (attributes_list
))
4062 int xin_event_base
, xin_error_base
;
4063 bool xin_ok
= false;
4064 xin_ok
= XineramaQueryExtension (dpy
, &xin_event_base
, &xin_error_base
);
4065 if (xin_ok
&& XineramaIsActive (dpy
))
4066 attributes_list
= x_get_monitor_attributes_xinerama (dpyinfo
);
4068 #endif /* HAVE_XINERAMA */
4070 if (NILP (attributes_list
))
4071 attributes_list
= x_get_monitor_attributes_fallback (dpyinfo
);
4073 return attributes_list
;
4076 #endif /* !USE_GTK */
4078 DEFUN ("x-display-monitor-attributes-list", Fx_display_monitor_attributes_list
,
4079 Sx_display_monitor_attributes_list
,
4081 doc
: /* Return a list of physical monitor attributes on the X display TERMINAL.
4083 The optional argument TERMINAL specifies which display to ask about.
4084 TERMINAL should be a terminal object, a frame or a display name (a string).
4085 If omitted or nil, that stands for the selected frame's display.
4087 In addition to the standard attribute keys listed in
4088 `display-monitor-attributes-list', the following keys are contained in
4091 source -- String describing the source from which multi-monitor
4092 information is obtained, one of \"Gdk\", \"XRandr\",
4093 \"Xinerama\", or \"fallback\"
4095 Internal use only, use `display-monitor-attributes-list' instead. */)
4096 (Lisp_Object terminal
)
4098 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4099 Lisp_Object attributes_list
= Qnil
;
4102 double mm_width_per_pixel
, mm_height_per_pixel
;
4105 gint primary_monitor
= 0, n_monitors
, i
;
4106 Lisp_Object monitor_frames
, rest
, frame
;
4107 static const char *source
= "Gdk";
4108 struct MonitorInfo
*monitors
;
4111 mm_width_per_pixel
= ((double) WidthMMOfScreen (dpyinfo
->screen
)
4112 / x_display_pixel_width (dpyinfo
));
4113 mm_height_per_pixel
= ((double) HeightMMOfScreen (dpyinfo
->screen
)
4114 / x_display_pixel_height (dpyinfo
));
4115 gdpy
= gdk_x11_lookup_xdisplay (dpyinfo
->display
);
4116 gscreen
= gdk_display_get_default_screen (gdpy
);
4117 #if GTK_CHECK_VERSION (2, 20, 0)
4118 primary_monitor
= gdk_screen_get_primary_monitor (gscreen
);
4120 n_monitors
= gdk_screen_get_n_monitors (gscreen
);
4121 monitor_frames
= Fmake_vector (make_number (n_monitors
), Qnil
);
4122 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
4124 FOR_EACH_FRAME (rest
, frame
)
4126 struct frame
*f
= XFRAME (frame
);
4128 if (FRAME_X_P (f
) && FRAME_DISPLAY_INFO (f
) == dpyinfo
4129 && !EQ (frame
, tip_frame
))
4131 GdkWindow
*gwin
= gtk_widget_get_window (FRAME_GTK_WIDGET (f
));
4133 i
= gdk_screen_get_monitor_at_window (gscreen
, gwin
);
4134 ASET (monitor_frames
, i
, Fcons (frame
, AREF (monitor_frames
, i
)));
4138 for (i
= 0; i
< n_monitors
; ++i
)
4140 gint width_mm
= -1, height_mm
= -1;
4141 GdkRectangle rec
, work
;
4142 struct MonitorInfo
*mi
= &monitors
[i
];
4144 gdk_screen_get_monitor_geometry (gscreen
, i
, &rec
);
4146 #if GTK_CHECK_VERSION (2, 14, 0)
4147 width_mm
= gdk_screen_get_monitor_width_mm (gscreen
, i
);
4148 height_mm
= gdk_screen_get_monitor_height_mm (gscreen
, i
);
4151 width_mm
= rec
.width
* mm_width_per_pixel
+ 0.5;
4153 height_mm
= rec
.height
* mm_height_per_pixel
+ 0.5;
4155 #if GTK_CHECK_VERSION (3, 4, 0)
4156 gdk_screen_get_monitor_workarea (gscreen
, i
, &work
);
4158 /* Emulate the behavior of GTK+ 3.4. */
4160 XRectangle workarea_r
;
4162 if (i
== primary_monitor
&& x_get_net_workarea (dpyinfo
, &workarea_r
))
4164 work
.x
= workarea_r
.x
;
4165 work
.y
= workarea_r
.y
;
4166 work
.width
= workarea_r
.width
;
4167 work
.height
= workarea_r
.height
;
4168 if (! gdk_rectangle_intersect (&rec
, &work
, &work
))
4179 mi
->geom
.width
= rec
.width
;
4180 mi
->geom
.height
= rec
.height
;
4181 mi
->work
.x
= work
.x
;
4182 mi
->work
.y
= work
.y
;
4183 mi
->work
.width
= work
.width
;
4184 mi
->work
.height
= work
.height
;
4185 mi
->mm_width
= width_mm
;
4186 mi
->mm_height
= height_mm
;
4188 #if GTK_CHECK_VERSION (2, 14, 0)
4189 mi
->name
= gdk_screen_get_monitor_plug_name (gscreen
, i
);
4193 attributes_list
= make_monitor_attribute_list (monitors
,
4199 #else /* not USE_GTK */
4202 attributes_list
= x_get_monitor_attributes (dpyinfo
);
4205 #endif /* not USE_GTK */
4207 return attributes_list
;
4210 /************************************************************************
4212 ************************************************************************/
4215 /* Mapping visual names to visuals. */
4217 static struct visual_class
4224 {"StaticGray", StaticGray
},
4225 {"GrayScale", GrayScale
},
4226 {"StaticColor", StaticColor
},
4227 {"PseudoColor", PseudoColor
},
4228 {"TrueColor", TrueColor
},
4229 {"DirectColor", DirectColor
},
4234 #ifndef HAVE_XSCREENNUMBEROFSCREEN
4236 /* Value is the screen number of screen SCR. This is a substitute for
4237 the X function with the same name when that doesn't exist. */
4240 XScreenNumberOfScreen (scr
)
4241 register Screen
*scr
;
4243 Display
*dpy
= scr
->display
;
4246 for (i
= 0; i
< dpy
->nscreens
; ++i
)
4247 if (scr
== dpy
->screens
+ i
)
4253 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
4256 /* Select the visual that should be used on display DPYINFO. Set
4257 members of DPYINFO appropriately. Called from x_term_init. */
4260 select_visual (struct x_display_info
*dpyinfo
)
4262 Display
*dpy
= dpyinfo
->display
;
4263 Screen
*screen
= dpyinfo
->screen
;
4266 /* See if a visual is specified. */
4267 value
= display_x_get_resource (dpyinfo
,
4268 build_string ("visualClass"),
4269 build_string ("VisualClass"),
4271 if (STRINGP (value
))
4273 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
4274 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4275 depth, a decimal number. NAME is compared with case ignored. */
4276 char *s
= alloca (SBYTES (value
) + 1);
4281 strcpy (s
, SSDATA (value
));
4282 dash
= strchr (s
, '-');
4285 dpyinfo
->n_planes
= atoi (dash
+ 1);
4289 /* We won't find a matching visual with depth 0, so that
4290 an error will be printed below. */
4291 dpyinfo
->n_planes
= 0;
4293 /* Determine the visual class. */
4294 for (i
= 0; visual_classes
[i
].name
; ++i
)
4295 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4297 class = visual_classes
[i
].class;
4301 /* Look up a matching visual for the specified class. */
4303 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4304 dpyinfo
->n_planes
, class, &vinfo
))
4305 fatal ("Invalid visual specification `%s'", SDATA (value
));
4307 dpyinfo
->visual
= vinfo
.visual
;
4312 XVisualInfo
*vinfo
, vinfo_template
;
4314 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4316 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4317 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4318 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4319 &vinfo_template
, &n_visuals
);
4321 fatal ("Can't get proper X visual info");
4323 dpyinfo
->n_planes
= vinfo
->depth
;
4329 /* Return the X display structure for the display named NAME.
4330 Open a new connection if necessary. */
4332 static struct x_display_info
*
4333 x_display_info_for_name (Lisp_Object name
)
4335 struct x_display_info
*dpyinfo
;
4337 CHECK_STRING (name
);
4339 for (dpyinfo
= x_display_list
; dpyinfo
; dpyinfo
= dpyinfo
->next
)
4340 if (!NILP (Fstring_equal (XCAR (dpyinfo
->name_list_element
), name
)))
4343 /* Use this general default value to start with. */
4344 Vx_resource_name
= Vinvocation_name
;
4346 validate_x_resource_name ();
4348 dpyinfo
= x_term_init (name
, 0, SSDATA (Vx_resource_name
));
4351 error ("Cannot connect to X server %s", SDATA (name
));
4353 XSETFASTINT (Vwindow_system_version
, 11);
4359 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4361 doc
: /* Open a connection to a display server.
4362 DISPLAY is the name of the display to connect to.
4363 Optional second arg XRM-STRING is a string of resources in xrdb format.
4364 If the optional third arg MUST-SUCCEED is non-nil,
4365 terminate Emacs if we can't open the connection.
4366 \(In the Nextstep version, the last two arguments are currently ignored.) */)
4367 (Lisp_Object display
, Lisp_Object xrm_string
, Lisp_Object must_succeed
)
4370 struct x_display_info
*dpyinfo
;
4372 CHECK_STRING (display
);
4373 if (! NILP (xrm_string
))
4374 CHECK_STRING (xrm_string
);
4376 xrm_option
= NILP (xrm_string
) ? 0 : SSDATA (xrm_string
);
4378 validate_x_resource_name ();
4380 /* This is what opens the connection and sets x_current_display.
4381 This also initializes many symbols, such as those used for input. */
4382 dpyinfo
= x_term_init (display
, xrm_option
,
4383 SSDATA (Vx_resource_name
));
4387 if (!NILP (must_succeed
))
4388 fatal ("Cannot connect to X server %s.\n\
4389 Check the DISPLAY environment variable or use `-d'.\n\
4390 Also use the `xauth' program to verify that you have the proper\n\
4391 authorization information needed to connect the X server.\n\
4392 An insecure way to solve the problem may be to use `xhost'.\n",
4395 error ("Cannot connect to X server %s", SDATA (display
));
4398 XSETFASTINT (Vwindow_system_version
, 11);
4402 DEFUN ("x-close-connection", Fx_close_connection
,
4403 Sx_close_connection
, 1, 1, 0,
4404 doc
: /* Close the connection to TERMINAL's X server.
4405 For TERMINAL, specify a terminal object, a frame or a display name (a
4406 string). If TERMINAL is nil, that stands for the selected frame's
4408 (Lisp_Object terminal
)
4410 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4412 if (dpyinfo
->reference_count
> 0)
4413 error ("Display still has frames on it");
4415 x_delete_terminal (dpyinfo
->terminal
);
4420 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4421 doc
: /* Return the list of display names that Emacs has connections to. */)
4424 Lisp_Object result
= Qnil
;
4425 struct x_display_info
*xdi
;
4427 for (xdi
= x_display_list
; xdi
; xdi
= xdi
->next
)
4428 result
= Fcons (XCAR (xdi
->name_list_element
), result
);
4433 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4434 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4435 This function only has an effect on X Windows. With MS Windows, it is
4436 defined but does nothing.
4438 If ON is nil, allow buffering of requests.
4439 Turning on synchronization prohibits the Xlib routines from buffering
4440 requests and seriously degrades performance, but makes debugging much
4442 The optional second argument TERMINAL specifies which display to act on.
4443 TERMINAL should be a terminal object, a frame or a display name (a string).
4444 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4445 (Lisp_Object on
, Lisp_Object terminal
)
4447 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4449 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4454 /* Wait for responses to all X commands issued so far for frame F. */
4457 x_sync (struct frame
*f
)
4460 XSync (FRAME_X_DISPLAY (f
), False
);
4465 /***********************************************************************
4467 ***********************************************************************/
4469 DEFUN ("x-change-window-property", Fx_change_window_property
,
4470 Sx_change_window_property
, 2, 6, 0,
4471 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4472 PROP must be a string. VALUE may be a string or a list of conses,
4473 numbers and/or strings. If an element in the list is a string, it is
4474 converted to an atom and the value of the atom is used. If an element
4475 is a cons, it is converted to a 32 bit number where the car is the 16
4476 top bits and the cdr is the lower 16 bits.
4478 FRAME nil or omitted means use the selected frame.
4479 If TYPE is given and non-nil, it is the name of the type of VALUE.
4480 If TYPE is not given or nil, the type is STRING.
4481 FORMAT gives the size in bits of each element if VALUE is a list.
4482 It must be one of 8, 16 or 32.
4483 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4484 If OUTER-P is non-nil, the property is changed for the outer X window of
4485 FRAME. Default is to change on the edit X window. */)
4486 (Lisp_Object prop
, Lisp_Object value
, Lisp_Object frame
,
4487 Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4489 struct frame
*f
= decode_window_system_frame (frame
);
4491 Atom target_type
= XA_STRING
;
4492 int element_format
= 8;
4493 unsigned char *data
;
4497 CHECK_STRING (prop
);
4499 if (! NILP (format
))
4501 CHECK_NUMBER (format
);
4503 if (XINT (format
) != 8 && XINT (format
) != 16
4504 && XINT (format
) != 32)
4505 error ("FORMAT must be one of 8, 16 or 32");
4506 element_format
= XINT (format
);
4513 nelements
= x_check_property_data (value
);
4514 if (nelements
== -1)
4515 error ("Bad data in VALUE, must be number, string or cons");
4517 /* The man page for XChangeProperty:
4518 "If the specified format is 32, the property data must be a
4520 This applies even if long is more than 32 bits. The X library
4521 converts to 32 bits before sending to the X server. */
4522 elsize
= element_format
== 32 ? sizeof (long) : element_format
>> 3;
4523 data
= xnmalloc (nelements
, elsize
);
4525 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4529 CHECK_STRING (value
);
4530 data
= SDATA (value
);
4531 if (INT_MAX
< SBYTES (value
))
4532 error ("VALUE too long");
4533 nelements
= SBYTES (value
);
4537 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4540 CHECK_STRING (type
);
4541 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4544 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4545 else w
= FRAME_X_WINDOW (f
);
4547 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4548 prop_atom
, target_type
, element_format
, PropModeReplace
,
4551 if (CONSP (value
)) xfree (data
);
4553 /* Make sure the property is set when we return. */
4554 XFlush (FRAME_X_DISPLAY (f
));
4561 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4562 Sx_delete_window_property
, 1, 2, 0,
4563 doc
: /* Remove window property PROP from X window of FRAME.
4564 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4565 (Lisp_Object prop
, Lisp_Object frame
)
4567 struct frame
*f
= decode_window_system_frame (frame
);
4570 CHECK_STRING (prop
);
4572 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4573 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4575 /* Make sure the property is removed when we return. */
4576 XFlush (FRAME_X_DISPLAY (f
));
4584 x_window_property_intern (struct frame
*f
,
4585 Window target_window
,
4588 Lisp_Object delete_p
,
4589 Lisp_Object vector_ret_p
,
4592 unsigned char *tmp_data
= NULL
;
4593 Lisp_Object prop_value
= Qnil
;
4596 unsigned long actual_size
, bytes_remaining
;
4598 struct gcpro gcpro1
;
4600 GCPRO1 (prop_value
);
4602 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4603 prop_atom
, 0, 0, False
, target_type
,
4604 &actual_type
, &actual_format
, &actual_size
,
4605 &bytes_remaining
, &tmp_data
);
4607 *found
= actual_format
!= 0;
4609 if (rc
== Success
&& *found
)
4614 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4615 prop_atom
, 0, bytes_remaining
,
4616 ! NILP (delete_p
), target_type
,
4617 &actual_type
, &actual_format
,
4618 &actual_size
, &bytes_remaining
,
4620 if (rc
== Success
&& tmp_data
)
4622 /* The man page for XGetWindowProperty says:
4623 "If the returned format is 32, the returned data is represented
4624 as a long array and should be cast to that type to obtain the
4626 This applies even if long is more than 32 bits, the X library
4627 converts from 32 bit elements received from the X server to long
4628 and passes the long array to us. Thus, for that case memcpy can not
4629 be used. We convert to a 32 bit type here, because so much code
4632 The bytes and offsets passed to XGetWindowProperty refers to the
4633 property and those are indeed in 32 bit quantities if format is
4636 if (BITS_PER_LONG
> 32 && actual_format
== 32)
4639 int *idata
= (int *) tmp_data
;
4640 long *ldata
= (long *) tmp_data
;
4642 for (i
= 0; i
< actual_size
; ++i
)
4643 idata
[i
] = (int) ldata
[i
];
4646 if (NILP (vector_ret_p
))
4647 prop_value
= make_string ((char *) tmp_data
, actual_size
);
4649 prop_value
= x_property_data_to_lisp (f
,
4656 if (tmp_data
) XFree (tmp_data
);
4663 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4665 doc
: /* Value is the value of window property PROP on FRAME.
4666 If FRAME is nil or omitted, use the selected frame.
4668 On X Windows, the following optional arguments are also accepted:
4669 If TYPE is nil or omitted, get the property as a string.
4670 Otherwise TYPE is the name of the atom that denotes the type expected.
4671 If SOURCE is non-nil, get the property on that window instead of from
4672 FRAME. The number 0 denotes the root window.
4673 If DELETE-P is non-nil, delete the property after retrieving it.
4674 If VECTOR-RET-P is non-nil, don't return a string but a vector of values.
4676 On MS Windows, this function accepts but ignores those optional arguments.
4678 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4679 no value of TYPE (always string in the MS Windows case). */)
4680 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
,
4681 Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4683 struct frame
*f
= decode_window_system_frame (frame
);
4685 Lisp_Object prop_value
= Qnil
;
4686 Atom target_type
= XA_STRING
;
4687 Window target_window
= FRAME_X_WINDOW (f
);
4688 struct gcpro gcpro1
;
4691 GCPRO1 (prop_value
);
4692 CHECK_STRING (prop
);
4694 if (! NILP (source
))
4696 CONS_TO_INTEGER (source
, Window
, target_window
);
4697 if (! target_window
)
4698 target_window
= FRAME_DISPLAY_INFO (f
)->root_window
;
4704 if (strcmp ("AnyPropertyType", SSDATA (type
)) == 0)
4705 target_type
= AnyPropertyType
;
4707 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4710 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4711 prop_value
= x_window_property_intern (f
,
4718 if (NILP (prop_value
)
4721 && target_window
!= FRAME_OUTER_WINDOW (f
))
4723 prop_value
= x_window_property_intern (f
,
4724 FRAME_OUTER_WINDOW (f
),
4740 /***********************************************************************
4742 ***********************************************************************/
4744 /* Timer function of hourglass_atimer. TIMER is equal to
4747 Display an hourglass pointer on all frames by mapping the frames'
4748 hourglass_window. Set the hourglass_p flag in the frames'
4749 output_data.x structure to indicate that an hourglass cursor is
4750 shown on the frames. */
4753 show_hourglass (struct atimer
*timer
)
4755 /* The timer implementation will cancel this timer automatically
4756 after this function has run. Set hourglass_atimer to null
4757 so that we know the timer doesn't have to be canceled. */
4758 hourglass_atimer
= NULL
;
4760 if (!hourglass_shown_p
)
4762 Lisp_Object rest
, frame
;
4766 FOR_EACH_FRAME (rest
, frame
)
4768 struct frame
*f
= XFRAME (frame
);
4770 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4772 Display
*dpy
= FRAME_X_DISPLAY (f
);
4774 #ifdef USE_X_TOOLKIT
4775 if (f
->output_data
.x
->widget
)
4777 if (FRAME_OUTER_WINDOW (f
))
4780 f
->output_data
.x
->hourglass_p
= 1;
4782 if (!f
->output_data
.x
->hourglass_window
)
4784 unsigned long mask
= CWCursor
;
4785 XSetWindowAttributes attrs
;
4787 Window parent
= FRAME_X_WINDOW (f
);
4789 Window parent
= FRAME_OUTER_WINDOW (f
);
4791 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4793 f
->output_data
.x
->hourglass_window
4794 = XCreateWindow (dpy
, parent
,
4795 0, 0, 32000, 32000, 0, 0,
4801 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4807 hourglass_shown_p
= 1;
4813 /* Hide the hourglass pointer on all frames, if it is currently
4817 hide_hourglass (void)
4819 if (hourglass_shown_p
)
4821 Lisp_Object rest
, frame
;
4824 FOR_EACH_FRAME (rest
, frame
)
4826 struct frame
*f
= XFRAME (frame
);
4829 /* Watch out for newly created frames. */
4830 && f
->output_data
.x
->hourglass_window
)
4832 XUnmapWindow (FRAME_X_DISPLAY (f
),
4833 f
->output_data
.x
->hourglass_window
);
4834 /* Sync here because XTread_socket looks at the
4835 hourglass_p flag that is reset to zero below. */
4836 XSync (FRAME_X_DISPLAY (f
), False
);
4837 f
->output_data
.x
->hourglass_p
= 0;
4841 hourglass_shown_p
= 0;
4848 /***********************************************************************
4850 ***********************************************************************/
4852 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4853 Lisp_Object
, Lisp_Object
);
4854 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4855 Lisp_Object
, int, int, int *, int *);
4857 /* The frame of a currently visible tooltip. */
4859 Lisp_Object tip_frame
;
4861 /* If non-nil, a timer started that hides the last tooltip when it
4864 static Lisp_Object tip_timer
;
4867 /* If non-nil, a vector of 3 elements containing the last args
4868 with which x-show-tip was called. See there. */
4870 static Lisp_Object last_show_tip_args
;
4874 unwind_create_tip_frame (Lisp_Object frame
)
4876 Lisp_Object deleted
;
4878 deleted
= unwind_create_frame (frame
);
4879 if (EQ (deleted
, Qt
))
4887 /* Create a frame for a tooltip on the display described by DPYINFO.
4888 PARMS is a list of frame parameters. TEXT is the string to
4889 display in the tip frame. Value is the frame.
4891 Note that functions called here, esp. x_default_parameter can
4892 signal errors, for instance when a specified color name is
4893 undefined. We have to make sure that we're in a consistent state
4894 when this happens. */
4897 x_create_tip_frame (struct x_display_info
*dpyinfo
,
4905 ptrdiff_t count
= SPECPDL_INDEX ();
4906 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4907 int face_change_count_before
= face_change_count
;
4909 struct buffer
*old_buffer
;
4911 if (!dpyinfo
->terminal
->name
)
4912 error ("Terminal is not live, can't create new frames on it");
4914 parms
= Fcopy_alist (parms
);
4916 /* Get the name of the frame to use for resource lookup. */
4917 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4919 && !EQ (name
, Qunbound
)
4921 error ("Invalid frame name--not a string or nil");
4924 GCPRO3 (parms
, name
, frame
);
4926 XSETFRAME (frame
, f
);
4928 buffer
= Fget_buffer_create (build_string (" *tip*"));
4929 /* Use set_window_buffer instead of Fset_window_buffer (see
4930 discussion of bug#11984, bug#12025, bug#12026). */
4931 set_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, 0, 0);
4932 old_buffer
= current_buffer
;
4933 set_buffer_internal_1 (XBUFFER (buffer
));
4934 bset_truncate_lines (current_buffer
, Qnil
);
4935 specbind (Qinhibit_read_only
, Qt
);
4936 specbind (Qinhibit_modification_hooks
, Qt
);
4939 set_buffer_internal_1 (old_buffer
);
4941 record_unwind_protect (unwind_create_tip_frame
, frame
);
4943 f
->terminal
= dpyinfo
->terminal
;
4945 /* By setting the output method, we're essentially saying that
4946 the frame is live, as per FRAME_LIVE_P. If we get a signal
4947 from this point on, x_destroy_window might screw up reference
4949 f
->output_method
= output_x_window
;
4950 f
->output_data
.x
= xzalloc (sizeof *f
->output_data
.x
);
4951 f
->output_data
.x
->icon_bitmap
= -1;
4952 FRAME_FONTSET (f
) = -1;
4953 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4954 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4955 #ifdef USE_TOOLKIT_SCROLL_BARS
4956 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4957 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4958 #endif /* USE_TOOLKIT_SCROLL_BARS */
4959 f
->output_data
.x
->white_relief
.pixel
= -1;
4960 f
->output_data
.x
->black_relief
.pixel
= -1;
4962 fset_icon_name (f
, Qnil
);
4963 FRAME_DISPLAY_INFO (f
) = dpyinfo
;
4964 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
4965 f
->output_data
.x
->explicit_parent
= 0;
4967 /* These colors will be set anyway later, but it's important
4968 to get the color reference counts right, so initialize them! */
4971 struct gcpro gcpro1
;
4973 /* Function x_decode_color can signal an error. Make
4974 sure to initialize color slots so that we won't try
4975 to free colors we haven't allocated. */
4976 FRAME_FOREGROUND_PIXEL (f
) = -1;
4977 FRAME_BACKGROUND_PIXEL (f
) = -1;
4978 f
->output_data
.x
->cursor_pixel
= -1;
4979 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4980 f
->output_data
.x
->border_pixel
= -1;
4981 f
->output_data
.x
->mouse_pixel
= -1;
4983 black
= build_string ("black");
4985 FRAME_FOREGROUND_PIXEL (f
)
4986 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4987 FRAME_BACKGROUND_PIXEL (f
)
4988 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4989 f
->output_data
.x
->cursor_pixel
4990 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4991 f
->output_data
.x
->cursor_foreground_pixel
4992 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4993 f
->output_data
.x
->border_pixel
4994 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4995 f
->output_data
.x
->mouse_pixel
4996 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
5000 /* Set the name; the functions to which we pass f expect the name to
5002 if (EQ (name
, Qunbound
) || NILP (name
))
5004 fset_name (f
, build_string (dpyinfo
->x_id_name
));
5005 f
->explicit_name
= 0;
5009 fset_name (f
, name
);
5010 f
->explicit_name
= 1;
5011 /* use the frame's title when getting resources for this frame. */
5012 specbind (Qx_resource_name
, name
);
5015 register_font_driver (&xfont_driver
, f
);
5016 #ifdef HAVE_FREETYPE
5018 register_font_driver (&xftfont_driver
, f
);
5019 #else /* not HAVE_XFT */
5020 register_font_driver (&ftxfont_driver
, f
);
5021 #endif /* not HAVE_XFT */
5022 #endif /* HAVE_FREETYPE */
5024 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
5025 "fontBackend", "FontBackend", RES_TYPE_STRING
);
5027 /* Extract the window parameters from the supplied values that are
5028 needed to determine window geometry. */
5029 x_default_font_parameter (f
, parms
);
5031 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
5032 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
5034 /* This defaults to 2 in order to match xterm. We recognize either
5035 internalBorderWidth or internalBorder (which is what xterm calls
5037 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5041 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
5042 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
5043 if (! EQ (value
, Qunbound
))
5044 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
5048 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
5049 "internalBorderWidth", "internalBorderWidth",
5051 x_default_parameter (f
, parms
, Qright_divider_width
, make_number (0),
5052 NULL
, NULL
, RES_TYPE_NUMBER
);
5053 x_default_parameter (f
, parms
, Qbottom_divider_width
, make_number (0),
5054 NULL
, NULL
, RES_TYPE_NUMBER
);
5056 /* Also do the stuff which must be set before the window exists. */
5057 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
5058 "foreground", "Foreground", RES_TYPE_STRING
);
5059 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
5060 "background", "Background", RES_TYPE_STRING
);
5061 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
5062 "pointerColor", "Foreground", RES_TYPE_STRING
);
5063 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
5064 "cursorColor", "Foreground", RES_TYPE_STRING
);
5065 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
5066 "borderColor", "BorderColor", RES_TYPE_STRING
);
5069 image_cache_refcount
=
5070 FRAME_IMAGE_CACHE (f
) ? FRAME_IMAGE_CACHE (f
)->refcount
: 0;
5071 dpyinfo_refcount
= dpyinfo
->reference_count
;
5072 #endif /* GLYPH_DEBUG */
5074 /* Init faces before x_default_parameter is called for scroll-bar
5075 parameters because that function calls x_set_scroll_bar_width,
5076 which calls change_frame_size, which calls Fset_window_buffer,
5077 which runs hooks, which call Fvertical_motion. At the end, we
5078 end up in init_iterator with a null face cache, which should not
5080 init_frame_faces (f
);
5082 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
5084 x_figure_window_size (f
, parms
, 0);
5087 XSetWindowAttributes attrs
;
5089 Atom type
= FRAME_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
5092 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
5093 if (DoesSaveUnders (dpyinfo
->screen
))
5094 mask
|= CWSaveUnder
;
5096 /* Window managers look at the override-redirect flag to determine
5097 whether or net to give windows a decoration (Xlib spec, chapter
5099 attrs
.override_redirect
= True
;
5100 attrs
.save_under
= True
;
5101 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
5102 /* Arrange for getting MapNotify and UnmapNotify events. */
5103 attrs
.event_mask
= StructureNotifyMask
;
5105 = FRAME_X_WINDOW (f
)
5106 = XCreateWindow (FRAME_X_DISPLAY (f
),
5107 FRAME_DISPLAY_INFO (f
)->root_window
,
5108 /* x, y, width, height */
5112 CopyFromParent
, InputOutput
, CopyFromParent
,
5114 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
5115 FRAME_DISPLAY_INFO (f
)->Xatom_net_window_type
,
5116 XA_ATOM
, 32, PropModeReplace
,
5117 (unsigned char *)&type
, 1);
5123 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
5124 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
5125 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
5126 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
5127 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
5128 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
5130 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
5131 Change will not be effected unless different from the current
5133 width
= FRAME_COLS (f
);
5134 height
= FRAME_LINES (f
);
5135 SET_FRAME_COLS (f
, 0);
5136 FRAME_LINES (f
) = 0;
5137 change_frame_size (f
, width
, height
, 1, 0, 0, 0);
5139 /* Add `tooltip' frame parameter's default value. */
5140 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
5141 Fmodify_frame_parameters (frame
, list1 (Fcons (Qtooltip
, Qt
)));
5143 /* FIXME - can this be done in a similar way to normal frames?
5144 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
5146 /* Set the `display-type' frame parameter before setting up faces. */
5148 Lisp_Object disptype
;
5150 if (FRAME_DISPLAY_INFO (f
)->n_planes
== 1)
5151 disptype
= intern ("mono");
5152 else if (FRAME_DISPLAY_INFO (f
)->visual
->class == GrayScale
5153 || FRAME_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
5154 disptype
= intern ("grayscale");
5156 disptype
= intern ("color");
5158 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
5159 Fmodify_frame_parameters (frame
, list1 (Fcons (Qdisplay_type
, disptype
)));
5162 /* Set up faces after all frame parameters are known. This call
5163 also merges in face attributes specified for new frames.
5165 Frame parameters may be changed if .Xdefaults contains
5166 specifications for the default font. For example, if there is an
5167 `Emacs.default.attributeBackground: pink', the `background-color'
5168 attribute of the frame get's set, which let's the internal border
5169 of the tooltip frame appear in pink. Prevent this. */
5171 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
5173 /* Set tip_frame here, so that */
5175 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
5177 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
5178 Fmodify_frame_parameters (frame
, list1 (Fcons (Qbackground_color
, bg
)));
5185 /* Now that the frame will be official, it counts as a reference to
5186 its display and terminal. */
5187 FRAME_DISPLAY_INFO (f
)->reference_count
++;
5188 f
->terminal
->reference_count
++;
5190 /* It is now ok to make the frame official even if we get an error
5191 below. And the frame needs to be on Vframe_list or making it
5192 visible won't work. */
5193 Vframe_list
= Fcons (frame
, Vframe_list
);
5196 /* Setting attributes of faces of the tooltip frame from resources
5197 and similar will increment face_change_count, which leads to the
5198 clearing of all current matrices. Since this isn't necessary
5199 here, avoid it by resetting face_change_count to the value it
5200 had before we created the tip frame. */
5201 face_change_count
= face_change_count_before
;
5203 /* Discard the unwind_protect. */
5204 return unbind_to (count
, frame
);
5208 /* Compute where to display tip frame F. PARMS is the list of frame
5209 parameters for F. DX and DY are specified offsets from the current
5210 location of the mouse. WIDTH and HEIGHT are the width and height
5211 of the tooltip. Return coordinates relative to the root window of
5212 the display in *ROOT_X, and *ROOT_Y. */
5215 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
)
5217 Lisp_Object left
, top
;
5222 /* User-specified position? */
5223 left
= Fcdr (Fassq (Qleft
, parms
));
5224 top
= Fcdr (Fassq (Qtop
, parms
));
5226 /* Move the tooltip window where the mouse pointer is. Resize and
5228 if (!INTEGERP (left
) || !INTEGERP (top
))
5231 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_DISPLAY_INFO (f
)->root_window
,
5232 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
5237 *root_y
= XINT (top
);
5238 else if (*root_y
+ XINT (dy
) <= 0)
5239 *root_y
= 0; /* Can happen for negative dy */
5240 else if (*root_y
+ XINT (dy
) + height
5241 <= x_display_pixel_height (FRAME_DISPLAY_INFO (f
)))
5242 /* It fits below the pointer */
5243 *root_y
+= XINT (dy
);
5244 else if (height
+ XINT (dy
) <= *root_y
)
5245 /* It fits above the pointer. */
5246 *root_y
-= height
+ XINT (dy
);
5248 /* Put it on the top. */
5251 if (INTEGERP (left
))
5252 *root_x
= XINT (left
);
5253 else if (*root_x
+ XINT (dx
) <= 0)
5254 *root_x
= 0; /* Can happen for negative dx */
5255 else if (*root_x
+ XINT (dx
) + width
5256 <= x_display_pixel_width (FRAME_DISPLAY_INFO (f
)))
5257 /* It fits to the right of the pointer. */
5258 *root_x
+= XINT (dx
);
5259 else if (width
+ XINT (dx
) <= *root_x
)
5260 /* It fits to the left of the pointer. */
5261 *root_x
-= width
+ XINT (dx
);
5263 /* Put it left-justified on the screen--it ought to fit that way. */
5268 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5269 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5270 A tooltip window is a small X window displaying a string.
5272 This is an internal function; Lisp code should call `tooltip-show'.
5274 FRAME nil or omitted means use the selected frame.
5276 PARMS is an optional list of frame parameters which can be used to
5277 change the tooltip's appearance.
5279 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5280 means use the default timeout of 5 seconds.
5282 If the list of frame parameters PARMS contains a `left' parameters,
5283 the tooltip is displayed at that x-position. Otherwise it is
5284 displayed at the mouse position, with offset DX added (default is 5 if
5285 DX isn't specified). Likewise for the y-position; if a `top' frame
5286 parameter is specified, it determines the y-position of the tooltip
5287 window, otherwise it is displayed at the mouse position, with offset
5288 DY added (default is -10).
5290 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5291 Text larger than the specified size is clipped. */)
5292 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
5297 struct buffer
*old_buffer
;
5298 struct text_pos pos
;
5299 int i
, width
, height
, seen_reversed_p
;
5300 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5301 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5302 ptrdiff_t count
= SPECPDL_INDEX ();
5304 specbind (Qinhibit_redisplay
, Qt
);
5306 GCPRO4 (string
, parms
, frame
, timeout
);
5308 CHECK_STRING (string
);
5309 if (SCHARS (string
) == 0)
5310 string
= make_unibyte_string (" ", 1);
5312 f
= decode_window_system_frame (frame
);
5314 timeout
= make_number (5);
5316 CHECK_NATNUM (timeout
);
5319 dx
= make_number (5);
5324 dy
= make_number (-10);
5329 if (x_gtk_use_system_tooltips
)
5333 /* Hide a previous tip, if any. */
5337 ok
= xg_prepare_tooltip (f
, string
, &width
, &height
);
5340 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5341 xg_show_tooltip (f
, root_x
, root_y
);
5342 /* This is used in Fx_hide_tip. */
5343 XSETFRAME (tip_frame
, f
);
5346 if (ok
) goto start_timer
;
5348 #endif /* USE_GTK */
5350 if (NILP (last_show_tip_args
))
5351 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5353 if (!NILP (tip_frame
))
5355 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5356 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5357 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5359 if (EQ (frame
, last_frame
)
5360 && !NILP (Fequal (last_string
, string
))
5361 && !NILP (Fequal (last_parms
, parms
)))
5363 struct frame
*tip_f
= XFRAME (tip_frame
);
5365 /* Only DX and DY have changed. */
5366 if (!NILP (tip_timer
))
5368 Lisp_Object timer
= tip_timer
;
5370 call1 (Qcancel_timer
, timer
);
5374 compute_tip_xy (tip_f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (tip_f
),
5375 FRAME_PIXEL_HEIGHT (tip_f
), &root_x
, &root_y
);
5376 XMoveWindow (FRAME_X_DISPLAY (tip_f
), FRAME_X_WINDOW (tip_f
),
5383 /* Hide a previous tip, if any. */
5386 ASET (last_show_tip_args
, 0, string
);
5387 ASET (last_show_tip_args
, 1, frame
);
5388 ASET (last_show_tip_args
, 2, parms
);
5390 /* Add default values to frame parameters. */
5391 if (NILP (Fassq (Qname
, parms
)))
5392 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5393 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5394 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5395 if (NILP (Fassq (Qborder_width
, parms
)))
5396 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5397 if (NILP (Fassq (Qbottom_divider_width
, parms
)))
5398 parms
= Fcons (Fcons (Qbottom_divider_width
, make_number (0)), parms
);
5399 if (NILP (Fassq (Qright_divider_width
, parms
)))
5400 parms
= Fcons (Fcons (Qright_divider_width
, make_number (0)), parms
);
5401 if (NILP (Fassq (Qborder_color
, parms
)))
5402 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5403 if (NILP (Fassq (Qbackground_color
, parms
)))
5404 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5407 /* Create a frame for the tooltip, and record it in the global
5408 variable tip_frame. */
5409 frame
= x_create_tip_frame (FRAME_DISPLAY_INFO (f
), parms
, string
);
5412 /* Set up the frame's root window. */
5413 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5419 if (CONSP (Vx_max_tooltip_size
)
5420 && RANGED_INTEGERP (1, XCAR (Vx_max_tooltip_size
), INT_MAX
)
5421 && RANGED_INTEGERP (1, XCDR (Vx_max_tooltip_size
), INT_MAX
))
5423 w
->total_cols
= XFASTINT (XCAR (Vx_max_tooltip_size
));
5424 w
->total_lines
= XFASTINT (XCDR (Vx_max_tooltip_size
));
5429 w
->total_lines
= 40;
5432 w
->pixel_width
= w
->total_cols
* FRAME_COLUMN_WIDTH (f
);
5433 w
->pixel_height
= w
->total_lines
* FRAME_LINE_HEIGHT (f
);
5435 FRAME_TOTAL_COLS (f
) = w
->total_cols
;
5436 adjust_frame_glyphs (f
);
5437 w
->pseudo_window_p
= 1;
5439 /* Display the tooltip text in a temporary buffer. */
5440 old_buffer
= current_buffer
;
5441 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->contents
));
5442 bset_truncate_lines (current_buffer
, Qnil
);
5443 clear_glyph_matrix (w
->desired_matrix
);
5444 clear_glyph_matrix (w
->current_matrix
);
5445 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5446 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5448 /* Compute width and height of the tooltip. */
5449 width
= height
= seen_reversed_p
= 0;
5450 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5452 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5456 /* Stop at the first empty row at the end. */
5457 if (!row
->enabled_p
|| !MATRIX_ROW_DISPLAYS_TEXT_P (row
))
5460 /* Let the row go over the full width of the frame. */
5461 row
->full_width_p
= 1;
5463 row_width
= row
->pixel_width
;
5464 if (row
->used
[TEXT_AREA
])
5466 /* There's a glyph at the end of rows that is used to place
5467 the cursor there. Don't include the width of this glyph. */
5468 if (!row
->reversed_p
)
5470 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5471 if (INTEGERP (last
->object
))
5472 row_width
-= last
->pixel_width
;
5476 /* There could be a stretch glyph at the beginning of R2L
5477 rows that is produced by extend_face_to_end_of_line.
5478 Don't count that glyph. */
5479 struct glyph
*g
= row
->glyphs
[TEXT_AREA
];
5481 if (g
->type
== STRETCH_GLYPH
&& INTEGERP (g
->object
))
5483 row_width
-= g
->pixel_width
;
5484 seen_reversed_p
= 1;
5489 height
+= row
->height
;
5490 width
= max (width
, row_width
);
5493 /* If we've seen partial-length R2L rows, we need to re-adjust the
5494 tool-tip frame width and redisplay it again, to avoid over-wide
5495 tips due to the stretch glyph that extends R2L lines to full
5496 width of the frame. */
5497 if (seen_reversed_p
)
5499 /* w->total_cols and FRAME_TOTAL_COLS want the width in columns,
5501 w
->pixel_width
= width
;
5502 width
/= WINDOW_FRAME_COLUMN_WIDTH (w
);
5503 w
->total_cols
= width
;
5504 FRAME_TOTAL_COLS (f
) = width
;
5505 SET_FRAME_WIDTH (f
, width
);
5506 adjust_frame_glyphs (f
);
5507 clear_glyph_matrix (w
->desired_matrix
);
5508 clear_glyph_matrix (w
->current_matrix
);
5509 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5511 /* Recompute width and height of the tooltip. */
5512 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5514 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5518 if (!row
->enabled_p
|| !MATRIX_ROW_DISPLAYS_TEXT_P (row
))
5520 row
->full_width_p
= 1;
5521 row_width
= row
->pixel_width
;
5522 if (row
->used
[TEXT_AREA
] && !row
->reversed_p
)
5524 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5525 if (INTEGERP (last
->object
))
5526 row_width
-= last
->pixel_width
;
5529 height
+= row
->height
;
5530 width
= max (width
, row_width
);
5534 /* Add the frame's internal border to the width and height the X
5535 window should have. */
5536 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5537 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5539 /* Move the tooltip window where the mouse pointer is. Resize and
5541 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5544 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5545 root_x
, root_y
, width
, height
);
5546 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5549 /* Draw into the window. */
5550 w
->must_be_updated_p
= 1;
5551 update_single_window (w
, 1);
5553 /* Restore original current buffer. */
5554 set_buffer_internal_1 (old_buffer
);
5555 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5558 /* Let the tip disappear after timeout seconds. */
5559 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5560 intern ("x-hide-tip"));
5563 return unbind_to (count
, Qnil
);
5567 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5568 doc
: /* Hide the current tooltip window, if there is any.
5569 Value is t if tooltip was open, nil otherwise. */)
5573 Lisp_Object deleted
, frame
, timer
;
5574 struct gcpro gcpro1
, gcpro2
;
5576 /* Return quickly if nothing to do. */
5577 if (NILP (tip_timer
) && NILP (tip_frame
))
5582 GCPRO2 (frame
, timer
);
5583 tip_frame
= tip_timer
= deleted
= Qnil
;
5585 count
= SPECPDL_INDEX ();
5586 specbind (Qinhibit_redisplay
, Qt
);
5587 specbind (Qinhibit_quit
, Qt
);
5590 call1 (Qcancel_timer
, timer
);
5594 /* When using system tooltip, tip_frame is the Emacs frame on which
5595 the tip is shown. */
5596 struct frame
*f
= XFRAME (frame
);
5597 if (FRAME_LIVE_P (f
) && xg_hide_tooltip (f
))
5604 delete_frame (frame
, Qnil
);
5608 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5609 redisplay procedure is not called when a tip frame over menu
5610 items is unmapped. Redisplay the menu manually... */
5613 struct frame
*f
= SELECTED_FRAME ();
5614 w
= f
->output_data
.x
->menubar_widget
;
5616 if (!DoesSaveUnders (FRAME_DISPLAY_INFO (f
)->screen
)
5620 xlwmenu_redisplay (w
);
5624 #endif /* USE_LUCID */
5628 return unbind_to (count
, deleted
);
5633 /***********************************************************************
5634 File selection dialog
5635 ***********************************************************************/
5637 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5638 Sx_uses_old_gtk_dialog
,
5640 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5646 && window_system_available (SELECTED_FRAME ())
5647 && xg_uses_old_file_dialog ())
5655 /* Callback for "OK" and "Cancel" on file selection dialog. */
5658 file_dialog_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5660 int *result
= client_data
;
5661 XmAnyCallbackStruct
*cb
= call_data
;
5662 *result
= cb
->reason
;
5666 /* Callback for unmapping a file selection dialog. This is used to
5667 capture the case where a dialog is closed via a window manager's
5668 closer button, for example. Using a XmNdestroyCallback didn't work
5672 file_dialog_unmap_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5674 int *result
= client_data
;
5675 *result
= XmCR_CANCEL
;
5679 clean_up_file_dialog (void *arg
)
5681 Widget dialog
= arg
;
5685 XtUnmanageChild (dialog
);
5686 XtDestroyWidget (dialog
);
5687 x_menu_set_in_use (0);
5692 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5693 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5694 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5695 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5696 or directory must exist.
5698 This function is only defined on NS, MS Windows, and X Windows with the
5699 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5700 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories.
5701 On Windows 7 and later, the file selection dialog "remembers" the last
5702 directory where the user selected a file, and will open that directory
5703 instead of DIR on subsequent invocations of this function with the same
5704 value of DIR as in previous invocations; this is standard Windows behavior. */)
5705 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
,
5706 Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5709 struct frame
*f
= SELECTED_FRAME ();
5710 Lisp_Object file
= Qnil
;
5711 Lisp_Object decoded_file
;
5712 Widget dialog
, text
, help
;
5715 XmString dir_xmstring
, pattern_xmstring
;
5716 ptrdiff_t count
= SPECPDL_INDEX ();
5717 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5719 check_window_system (f
);
5721 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5723 if (popup_activated ())
5724 error ("Trying to use a menu from within a menu-entry");
5726 CHECK_STRING (prompt
);
5729 /* Prevent redisplay. */
5730 specbind (Qinhibit_redisplay
, Qt
);
5734 /* Create the dialog with PROMPT as title, using DIR as initial
5735 directory and using "*" as pattern. */
5736 dir
= Fexpand_file_name (dir
, Qnil
);
5737 dir_xmstring
= XmStringCreateLocalized (SSDATA (dir
));
5738 pattern_xmstring
= XmStringCreateLocalized ("*");
5740 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5741 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5742 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5743 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5744 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5745 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5747 XmStringFree (dir_xmstring
);
5748 XmStringFree (pattern_xmstring
);
5750 /* Add callbacks for OK and Cancel. */
5751 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5752 (XtPointer
) &result
);
5753 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5754 (XtPointer
) &result
);
5755 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5756 (XtPointer
) &result
);
5758 /* Remove the help button since we can't display help. */
5759 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5760 XtUnmanageChild (help
);
5762 /* Mark OK button as default. */
5763 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5764 XmNshowAsDefault
, True
, NULL
);
5766 /* If MUSTMATCH is non-nil, disable the file entry field of the
5767 dialog, so that the user must select a file from the files list
5768 box. We can't remove it because we wouldn't have a way to get at
5769 the result file name, then. */
5770 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5771 if (!NILP (mustmatch
))
5774 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5775 XtSetSensitive (text
, False
);
5776 XtSetSensitive (label
, False
);
5779 /* Manage the dialog, so that list boxes get filled. */
5780 XtManageChild (dialog
);
5782 if (STRINGP (default_filename
))
5784 XmString default_xmstring
;
5785 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5786 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5788 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5789 XmTextFieldReplace (wtext
, 0, last_pos
,
5790 (SSDATA (Ffile_name_nondirectory (default_filename
))));
5792 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5793 must include the path for this to work. */
5795 default_xmstring
= XmStringCreateLocalized (SSDATA (default_filename
));
5797 if (XmListItemExists (list
, default_xmstring
))
5799 int item_pos
= XmListItemPos (list
, default_xmstring
);
5800 /* Select the item and scroll it into view. */
5801 XmListSelectPos (list
, item_pos
, True
);
5802 XmListSetPos (list
, item_pos
);
5805 XmStringFree (default_xmstring
);
5808 record_unwind_protect_ptr (clean_up_file_dialog
, dialog
);
5810 /* Process events until the user presses Cancel or OK. */
5811 x_menu_set_in_use (1);
5816 x_menu_wait_for_event (0);
5817 XtAppNextEvent (Xt_app_con
, &event
);
5818 if (event
.type
== KeyPress
5819 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5821 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5823 /* Pop down on C-g. */
5824 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5825 XtUnmanageChild (dialog
);
5828 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5831 /* Get the result. */
5832 if (result
== XmCR_OK
)
5834 XmString text_string
;
5837 XtVaGetValues (dialog
, XmNtextString
, &text_string
, NULL
);
5838 XmStringGetLtoR (text_string
, XmFONTLIST_DEFAULT_TAG
, &data
);
5839 XmStringFree (text_string
);
5840 file
= build_string (data
);
5849 /* Make "Cancel" equivalent to C-g. */
5851 Fsignal (Qquit
, Qnil
);
5853 decoded_file
= DECODE_FILE (file
);
5855 return unbind_to (count
, decoded_file
);
5858 #endif /* USE_MOTIF */
5863 clean_up_dialog (void)
5865 x_menu_set_in_use (0);
5868 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5869 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5870 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5871 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5872 or directory must exist.
5874 This function is only defined on NS, MS Windows, and X Windows with the
5875 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5876 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories.
5877 On Windows 7 and later, the file selection dialog "remembers" the last
5878 directory where the user selected a file, and will open that directory
5879 instead of DIR on subsequent invocations of this function with the same
5880 value of DIR as in previous invocations; this is standard Windows behavior. */)
5881 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5883 struct frame
*f
= SELECTED_FRAME ();
5885 Lisp_Object file
= Qnil
;
5886 Lisp_Object decoded_file
;
5887 ptrdiff_t count
= SPECPDL_INDEX ();
5888 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5891 check_window_system (f
);
5893 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5895 if (popup_activated ())
5896 error ("Trying to use a menu from within a menu-entry");
5898 CHECK_STRING (prompt
);
5901 /* Prevent redisplay. */
5902 specbind (Qinhibit_redisplay
, Qt
);
5903 record_unwind_protect_void (clean_up_dialog
);
5907 if (STRINGP (default_filename
))
5908 cdef_file
= SSDATA (default_filename
);
5910 cdef_file
= SSDATA (dir
);
5912 fn
= xg_get_file_name (f
, SSDATA (prompt
), cdef_file
,
5914 ! NILP (only_dir_p
));
5918 file
= build_string (fn
);
5925 /* Make "Cancel" equivalent to C-g. */
5927 Fsignal (Qquit
, Qnil
);
5929 decoded_file
= DECODE_FILE (file
);
5931 return unbind_to (count
, decoded_file
);
5935 #ifdef HAVE_FREETYPE
5937 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5938 doc
: /* Read a font using a GTK dialog.
5939 Return either a font spec (for GTK versions >= 3.2) or a string
5940 containing a GTK-style font name.
5942 FRAME is the frame on which to pop up the font chooser. If omitted or
5943 nil, it defaults to the selected frame. */)
5944 (Lisp_Object frame
, Lisp_Object ignored
)
5946 struct frame
*f
= decode_window_system_frame (frame
);
5948 Lisp_Object font_param
;
5949 char *default_name
= NULL
;
5950 struct gcpro gcpro1
, gcpro2
;
5951 ptrdiff_t count
= SPECPDL_INDEX ();
5953 if (popup_activated ())
5954 error ("Trying to use a menu from within a menu-entry");
5956 /* Prevent redisplay. */
5957 specbind (Qinhibit_redisplay
, Qt
);
5958 record_unwind_protect_void (clean_up_dialog
);
5962 GCPRO2 (font_param
, font
);
5964 XSETFONT (font
, FRAME_FONT (f
));
5965 font_param
= Ffont_get (font
, intern (":name"));
5966 if (STRINGP (font_param
))
5967 default_name
= xstrdup (SSDATA (font_param
));
5970 font_param
= Fframe_parameter (frame
, Qfont_param
);
5971 if (STRINGP (font_param
))
5972 default_name
= xstrdup (SSDATA (font_param
));
5975 font
= xg_get_font (f
, default_name
);
5976 xfree (default_name
);
5981 Fsignal (Qquit
, Qnil
);
5983 return unbind_to (count
, font
);
5985 #endif /* HAVE_FREETYPE */
5987 #endif /* USE_GTK */
5990 /***********************************************************************
5992 ***********************************************************************/
5995 #include <X11/XKBlib.h>
5996 #include <X11/keysym.h>
5999 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
6000 Sx_backspace_delete_keys_p
, 0, 1, 0,
6001 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
6002 FRAME nil means use the selected frame.
6003 Value is t if we know that both keys are present, and are mapped to the
6004 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
6005 present and mapped to the usual X keysyms. */)
6012 struct frame
*f
= decode_window_system_frame (frame
);
6013 Display
*dpy
= FRAME_X_DISPLAY (f
);
6014 Lisp_Object have_keys
;
6015 int major
, minor
, op
, event
, error_code
;
6019 /* Check library version in case we're dynamically linked. */
6020 major
= XkbMajorVersion
;
6021 minor
= XkbMinorVersion
;
6022 if (!XkbLibraryVersion (&major
, &minor
))
6028 /* Check that the server supports XKB. */
6029 major
= XkbMajorVersion
;
6030 minor
= XkbMinorVersion
;
6031 if (!XkbQueryExtension (dpy
, &op
, &event
, &error_code
, &major
, &minor
))
6037 /* In this code we check that the keyboard has physical keys with names
6038 that start with BKSP (Backspace) and DELE (Delete), and that they
6039 generate keysym XK_BackSpace and XK_Delete respectively.
6040 This function is used to test if normal-erase-is-backspace should be
6042 An alternative approach would be to just check if XK_BackSpace and
6043 XK_Delete are mapped to any key. But if any of those are mapped to
6044 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
6045 user doesn't know about it, it is better to return false here.
6046 It is more obvious to the user what to do if she/he has two keys
6047 clearly marked with names/symbols and one key does something not
6048 expected (i.e. she/he then tries the other).
6049 The cases where Backspace/Delete is mapped to some other key combination
6050 are rare, and in those cases, normal-erase-is-backspace can be turned on
6054 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
6057 int delete_keycode
= 0, backspace_keycode
= 0, i
;
6059 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
6061 for (i
= kb
->min_key_code
;
6062 (i
< kb
->max_key_code
6063 && (delete_keycode
== 0 || backspace_keycode
== 0));
6066 /* The XKB symbolic key names can be seen most easily in
6067 the PS file generated by `xkbprint -label name
6069 if (memcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
6071 else if (memcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
6072 backspace_keycode
= i
;
6075 XkbFreeNames (kb
, 0, True
);
6078 /* As of libX11-1.6.2, XkbGetMap manual says that you should use
6079 XkbFreeClientMap to free the data returned by XkbGetMap. But
6080 this function just frees the data referenced from KB and not
6081 KB itself. To free KB as well, call XkbFreeKeyboard. */
6082 XkbFreeKeyboard (kb
, XkbAllMapComponentsMask
, True
);
6085 && backspace_keycode
6086 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
6087 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
6097 /***********************************************************************
6099 ***********************************************************************/
6101 /* Keep this list in the same order as frame_parms in frame.c.
6102 Use 0 for unsupported frame parameters. */
6104 frame_parm_handler x_frame_parm_handlers
[] =
6108 x_set_background_color
,
6114 x_set_foreground_color
,
6117 x_set_internal_border_width
,
6118 x_set_right_divider_width
,
6119 x_set_bottom_divider_width
,
6120 x_set_menu_bar_lines
,
6122 x_explicitly_set_name
,
6123 x_set_scroll_bar_width
,
6126 x_set_vertical_scroll_bars
,
6128 x_set_tool_bar_lines
,
6129 x_set_scroll_bar_foreground
,
6130 x_set_scroll_bar_background
,
6140 x_set_tool_bar_position
,
6146 DEFSYM (Qundefined_color
, "undefined-color");
6147 DEFSYM (Qcompound_text
, "compound-text");
6148 DEFSYM (Qcancel_timer
, "cancel-timer");
6149 DEFSYM (Qfont_param
, "font-parameter");
6151 Fput (Qundefined_color
, Qerror_conditions
,
6152 listn (CONSTYPE_PURE
, 2, Qundefined_color
, Qerror
));
6153 Fput (Qundefined_color
, Qerror_message
,
6154 build_pure_c_string ("Undefined color"));
6156 DEFVAR_LISP ("x-pointer-shape", Vx_pointer_shape
,
6157 doc
: /* The shape of the pointer when over text.
6158 Changing the value does not affect existing frames
6159 unless you set the mouse color. */);
6160 Vx_pointer_shape
= Qnil
;
6162 #if 0 /* This doesn't really do anything. */
6163 DEFVAR_LISP ("x-nontext-pointer-shape", Vx_nontext_pointer_shape
,
6164 doc
: /* The shape of the pointer when not over text.
6165 This variable takes effect when you create a new frame
6166 or when you set the mouse color. */);
6168 Vx_nontext_pointer_shape
= Qnil
;
6170 DEFVAR_LISP ("x-hourglass-pointer-shape", Vx_hourglass_pointer_shape
,
6171 doc
: /* The shape of the pointer when Emacs is busy.
6172 This variable takes effect when you create a new frame
6173 or when you set the mouse color. */);
6174 Vx_hourglass_pointer_shape
= Qnil
;
6176 #if 0 /* This doesn't really do anything. */
6177 DEFVAR_LISP ("x-mode-pointer-shape", Vx_mode_pointer_shape
,
6178 doc
: /* The shape of the pointer when over the mode line.
6179 This variable takes effect when you create a new frame
6180 or when you set the mouse color. */);
6182 Vx_mode_pointer_shape
= Qnil
;
6184 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
6185 Vx_sensitive_text_pointer_shape
,
6186 doc
: /* The shape of the pointer when over mouse-sensitive text.
6187 This variable takes effect when you create a new frame
6188 or when you set the mouse color. */);
6189 Vx_sensitive_text_pointer_shape
= Qnil
;
6191 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
6192 Vx_window_horizontal_drag_shape
,
6193 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
6194 This variable takes effect when you create a new frame
6195 or when you set the mouse color. */);
6196 Vx_window_horizontal_drag_shape
= Qnil
;
6198 DEFVAR_LISP ("x-window-vertical-drag-cursor",
6199 Vx_window_vertical_drag_shape
,
6200 doc
: /* Pointer shape to use for indicating a window can be dragged vertically.
6201 This variable takes effect when you create a new frame
6202 or when you set the mouse color. */);
6203 Vx_window_vertical_drag_shape
= Qnil
;
6205 DEFVAR_LISP ("x-cursor-fore-pixel", Vx_cursor_fore_pixel
,
6206 doc
: /* A string indicating the foreground color of the cursor box. */);
6207 Vx_cursor_fore_pixel
= Qnil
;
6209 DEFVAR_LISP ("x-max-tooltip-size", Vx_max_tooltip_size
,
6210 doc
: /* Maximum size for tooltips.
6211 Value is a pair (COLUMNS . ROWS). Text larger than this is clipped. */);
6212 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
6214 DEFVAR_LISP ("x-no-window-manager", Vx_no_window_manager
,
6215 doc
: /* Non-nil if no X window manager is in use.
6216 Emacs doesn't try to figure this out; this is always nil
6217 unless you set it to something else. */);
6218 /* We don't have any way to find this out, so set it to nil
6219 and maybe the user would like to set it to t. */
6220 Vx_no_window_manager
= Qnil
;
6222 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
6223 Vx_pixel_size_width_font_regexp
,
6224 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
6226 Since Emacs gets width of a font matching with this regexp from
6227 PIXEL_SIZE field of the name, font finding mechanism gets faster for
6228 such a font. This is especially effective for such large fonts as
6229 Chinese, Japanese, and Korean. */);
6230 Vx_pixel_size_width_font_regexp
= Qnil
;
6232 /* This is not ifdef:ed, so other builds than GTK can customize it. */
6233 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", x_gtk_use_old_file_dialog
,
6234 doc
: /* Non-nil means prompt with the old GTK file selection dialog.
6235 If nil or if the file selection dialog is not available, the new GTK file
6236 chooser is used instead. To turn off all file dialogs set the
6237 variable `use-file-dialog'. */);
6238 x_gtk_use_old_file_dialog
= 0;
6240 DEFVAR_BOOL ("x-gtk-show-hidden-files", x_gtk_show_hidden_files
,
6241 doc
: /* If non-nil, the GTK file chooser will by default show hidden files.
6242 Note that this is just the default, there is a toggle button on the file
6243 chooser to show or not show hidden files on a case by case basis. */);
6244 x_gtk_show_hidden_files
= 0;
6246 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", x_gtk_file_dialog_help_text
,
6247 doc
: /* If non-nil, the GTK file chooser will show additional help text.
6248 If more space for files in the file chooser dialog is wanted, set this to nil
6249 to turn the additional text off. */);
6250 x_gtk_file_dialog_help_text
= 1;
6252 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", x_gtk_whole_detached_tool_bar
,
6253 doc
: /* If non-nil, a detached tool bar is shown in full.
6254 The default is to just show an arrow and pressing on that arrow shows
6255 the tool bar buttons. */);
6256 x_gtk_whole_detached_tool_bar
= 0;
6258 DEFVAR_BOOL ("x-gtk-use-system-tooltips", x_gtk_use_system_tooltips
,
6259 doc
: /* If non-nil with a Gtk+ built Emacs, the Gtk+ tooltip is used.
6260 Otherwise use Emacs own tooltip implementation.
6261 When using Gtk+ tooltips, the tooltip face is not used. */);
6262 x_gtk_use_system_tooltips
= 1;
6264 /* Tell Emacs about this window system. */
6265 Fprovide (Qx
, Qnil
);
6267 #ifdef USE_X_TOOLKIT
6268 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6270 Fprovide (intern_c_string ("motif"), Qnil
);
6272 DEFVAR_LISP ("motif-version-string", Vmotif_version_string
,
6273 doc
: /* Version info for LessTif/Motif. */);
6274 Vmotif_version_string
= build_string (XmVERSION_STRING
);
6275 #endif /* USE_MOTIF */
6276 #endif /* USE_X_TOOLKIT */
6279 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
6280 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
6281 But for a user it is a toolkit for X, and indeed, configure
6282 accepts --with-x-toolkit=gtk. */
6283 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6284 Fprovide (intern_c_string ("gtk"), Qnil
);
6285 Fprovide (intern_c_string ("move-toolbar"), Qnil
);
6287 DEFVAR_LISP ("gtk-version-string", Vgtk_version_string
,
6288 doc
: /* Version info for GTK+. */);
6290 char gtk_version
[sizeof ".." + 3 * INT_STRLEN_BOUND (int)];
6291 int len
= sprintf (gtk_version
, "%d.%d.%d",
6292 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
6293 Vgtk_version_string
= make_pure_string (gtk_version
, len
, len
, 0);
6295 #endif /* USE_GTK */
6297 /* X window properties. */
6298 defsubr (&Sx_change_window_property
);
6299 defsubr (&Sx_delete_window_property
);
6300 defsubr (&Sx_window_property
);
6302 defsubr (&Sxw_display_color_p
);
6303 defsubr (&Sx_display_grayscale_p
);
6304 defsubr (&Sxw_color_defined_p
);
6305 defsubr (&Sxw_color_values
);
6306 defsubr (&Sx_server_max_request_size
);
6307 defsubr (&Sx_server_vendor
);
6308 defsubr (&Sx_server_version
);
6309 defsubr (&Sx_display_pixel_width
);
6310 defsubr (&Sx_display_pixel_height
);
6311 defsubr (&Sx_display_mm_width
);
6312 defsubr (&Sx_display_mm_height
);
6313 defsubr (&Sx_display_screens
);
6314 defsubr (&Sx_display_planes
);
6315 defsubr (&Sx_display_color_cells
);
6316 defsubr (&Sx_display_visual_class
);
6317 defsubr (&Sx_display_backing_store
);
6318 defsubr (&Sx_display_save_under
);
6319 defsubr (&Sx_display_monitor_attributes_list
);
6320 defsubr (&Sx_wm_set_size_hint
);
6321 defsubr (&Sx_create_frame
);
6322 defsubr (&Sx_open_connection
);
6323 defsubr (&Sx_close_connection
);
6324 defsubr (&Sx_display_list
);
6325 defsubr (&Sx_synchronize
);
6326 defsubr (&Sx_backspace_delete_keys_p
);
6328 defsubr (&Sx_show_tip
);
6329 defsubr (&Sx_hide_tip
);
6331 staticpro (&tip_timer
);
6333 staticpro (&tip_frame
);
6335 last_show_tip_args
= Qnil
;
6336 staticpro (&last_show_tip_args
);
6338 defsubr (&Sx_uses_old_gtk_dialog
);
6339 #if defined (USE_MOTIF) || defined (USE_GTK)
6340 defsubr (&Sx_file_dialog
);
6343 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
6344 defsubr (&Sx_select_font
);