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 if (! EQ (new_value
, Qleft
) && ! EQ (new_value
, Qright
)
461 && ! EQ (new_value
, Qbottom
) && ! EQ (new_value
, Qtop
))
463 if (EQ (new_value
, old_value
)) return;
466 xg_change_toolbar_position (f
, new_value
);
467 fset_tool_bar_position (f
, new_value
);
473 /* Set icon from FILE for frame F. By using GTK functions the icon
474 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
477 xg_set_icon (struct frame
*f
, Lisp_Object file
)
482 found
= x_find_image_file (file
);
488 char *filename
= SSDATA (found
);
491 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
495 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
497 g_object_unref (pixbuf
);
511 xg_set_icon_from_xpm_data (struct frame
*f
, const char **data
)
513 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data (data
);
518 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
519 g_object_unref (pixbuf
);
525 /* Functions called only from `x_set_frame_param'
526 to set individual parameters.
528 If FRAME_X_WINDOW (f) is 0,
529 the frame is being created and its X-window does not exist yet.
530 In that case, just record the parameter's new value
531 in the standard place; do not attempt to change the window. */
534 x_set_foreground_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
536 struct x_output
*x
= f
->output_data
.x
;
537 unsigned long fg
, old_fg
;
539 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
540 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
541 FRAME_FOREGROUND_PIXEL (f
) = fg
;
543 if (FRAME_X_WINDOW (f
) != 0)
545 Display
*dpy
= FRAME_X_DISPLAY (f
);
548 XSetForeground (dpy
, x
->normal_gc
, fg
);
549 XSetBackground (dpy
, x
->reverse_gc
, fg
);
551 if (x
->cursor_pixel
== old_fg
)
553 unload_color (f
, x
->cursor_pixel
);
554 x
->cursor_pixel
= x_copy_color (f
, fg
);
555 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
560 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
562 if (FRAME_VISIBLE_P (f
))
566 unload_color (f
, old_fg
);
570 x_set_background_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
572 struct x_output
*x
= f
->output_data
.x
;
575 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
576 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
577 FRAME_BACKGROUND_PIXEL (f
) = bg
;
579 if (FRAME_X_WINDOW (f
) != 0)
581 Display
*dpy
= FRAME_X_DISPLAY (f
);
584 XSetBackground (dpy
, x
->normal_gc
, bg
);
585 XSetForeground (dpy
, x
->reverse_gc
, bg
);
586 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
587 XSetForeground (dpy
, x
->cursor_gc
, bg
);
590 xg_set_background_color (f
, bg
);
593 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
594 toolkit scroll bars. */
597 for (bar
= FRAME_SCROLL_BARS (f
);
599 bar
= XSCROLL_BAR (bar
)->next
)
601 Window window
= XSCROLL_BAR (bar
)->x_window
;
602 XSetWindowBackground (dpy
, window
, bg
);
605 #endif /* USE_TOOLKIT_SCROLL_BARS */
608 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
610 if (FRAME_VISIBLE_P (f
))
616 x_set_mouse_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
618 struct x_output
*x
= f
->output_data
.x
;
619 Display
*dpy
= FRAME_X_DISPLAY (f
);
620 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
621 Cursor hourglass_cursor
, horizontal_drag_cursor
, vertical_drag_cursor
;
622 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
623 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
625 /* Don't let pointers be invisible. */
626 if (mask_color
== pixel
)
628 x_free_colors (f
, &pixel
, 1);
629 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
632 unload_color (f
, x
->mouse_pixel
);
633 x
->mouse_pixel
= pixel
;
637 /* It's not okay to crash if the user selects a screwy cursor. */
638 x_catch_errors (dpy
);
640 if (!NILP (Vx_pointer_shape
))
642 CHECK_NUMBER (Vx_pointer_shape
);
643 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
646 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
647 x_check_errors (dpy
, "bad text pointer cursor: %s");
649 if (!NILP (Vx_nontext_pointer_shape
))
651 CHECK_NUMBER (Vx_nontext_pointer_shape
);
653 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
656 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
657 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
659 if (!NILP (Vx_hourglass_pointer_shape
))
661 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
663 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
666 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
667 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
669 if (!NILP (Vx_mode_pointer_shape
))
671 CHECK_NUMBER (Vx_mode_pointer_shape
);
672 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
675 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
676 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
678 if (!NILP (Vx_sensitive_text_pointer_shape
))
680 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
682 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
685 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
687 if (!NILP (Vx_window_horizontal_drag_shape
))
689 CHECK_TYPE_RANGED_INTEGER (unsigned, Vx_window_horizontal_drag_shape
);
690 horizontal_drag_cursor
691 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
694 horizontal_drag_cursor
695 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
697 if (!NILP (Vx_window_vertical_drag_shape
))
699 CHECK_NUMBER (Vx_window_vertical_drag_shape
);
701 = XCreateFontCursor (dpy
, XINT (Vx_window_vertical_drag_shape
));
705 = XCreateFontCursor (dpy
, XC_sb_v_double_arrow
);
707 /* Check and report errors with the above calls. */
708 x_check_errors (dpy
, "can't set cursor shape: %s");
712 XColor fore_color
, back_color
;
714 fore_color
.pixel
= x
->mouse_pixel
;
715 x_query_color (f
, &fore_color
);
716 back_color
.pixel
= mask_color
;
717 x_query_color (f
, &back_color
);
719 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
720 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
721 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
722 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
723 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
724 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
725 XRecolorCursor (dpy
, vertical_drag_cursor
, &fore_color
, &back_color
);
728 if (FRAME_X_WINDOW (f
) != 0)
729 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
730 f
->output_data
.x
->current_cursor
= cursor
);
732 if (cursor
!= x
->text_cursor
733 && x
->text_cursor
!= 0)
734 XFreeCursor (dpy
, x
->text_cursor
);
735 x
->text_cursor
= cursor
;
737 if (nontext_cursor
!= x
->nontext_cursor
738 && x
->nontext_cursor
!= 0)
739 XFreeCursor (dpy
, x
->nontext_cursor
);
740 x
->nontext_cursor
= nontext_cursor
;
742 if (hourglass_cursor
!= x
->hourglass_cursor
743 && x
->hourglass_cursor
!= 0)
744 XFreeCursor (dpy
, x
->hourglass_cursor
);
745 x
->hourglass_cursor
= hourglass_cursor
;
747 if (mode_cursor
!= x
->modeline_cursor
748 && x
->modeline_cursor
!= 0)
749 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
750 x
->modeline_cursor
= mode_cursor
;
752 if (hand_cursor
!= x
->hand_cursor
753 && x
->hand_cursor
!= 0)
754 XFreeCursor (dpy
, x
->hand_cursor
);
755 x
->hand_cursor
= hand_cursor
;
757 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
758 && x
->horizontal_drag_cursor
!= 0)
759 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
760 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
762 if (vertical_drag_cursor
!= x
->vertical_drag_cursor
763 && x
->vertical_drag_cursor
!= 0)
764 XFreeCursor (dpy
, x
->vertical_drag_cursor
);
765 x
->vertical_drag_cursor
= vertical_drag_cursor
;
770 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
774 x_set_cursor_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
776 unsigned long fore_pixel
, pixel
;
777 bool fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
778 struct x_output
*x
= f
->output_data
.x
;
780 if (!NILP (Vx_cursor_fore_pixel
))
782 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
783 WHITE_PIX_DEFAULT (f
));
784 fore_pixel_allocated_p
= 1;
787 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
789 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
790 pixel_allocated_p
= 1;
792 /* Make sure that the cursor color differs from the background color. */
793 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
795 if (pixel_allocated_p
)
797 x_free_colors (f
, &pixel
, 1);
798 pixel_allocated_p
= 0;
801 pixel
= x
->mouse_pixel
;
802 if (pixel
== fore_pixel
)
804 if (fore_pixel_allocated_p
)
806 x_free_colors (f
, &fore_pixel
, 1);
807 fore_pixel_allocated_p
= 0;
809 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
813 unload_color (f
, x
->cursor_foreground_pixel
);
814 if (!fore_pixel_allocated_p
)
815 fore_pixel
= x_copy_color (f
, fore_pixel
);
816 x
->cursor_foreground_pixel
= fore_pixel
;
818 unload_color (f
, x
->cursor_pixel
);
819 if (!pixel_allocated_p
)
820 pixel
= x_copy_color (f
, pixel
);
821 x
->cursor_pixel
= pixel
;
823 if (FRAME_X_WINDOW (f
) != 0)
826 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
827 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
830 if (FRAME_VISIBLE_P (f
))
832 x_update_cursor (f
, 0);
833 x_update_cursor (f
, 1);
837 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
840 /* Set the border-color of frame F to pixel value PIX.
841 Note that this does not fully take effect if done before
842 F has an x-window. */
845 x_set_border_pixel (struct frame
*f
, int pix
)
847 unload_color (f
, f
->output_data
.x
->border_pixel
);
848 f
->output_data
.x
->border_pixel
= pix
;
850 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
853 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), pix
);
856 if (FRAME_VISIBLE_P (f
))
861 /* Set the border-color of frame F to value described by ARG.
862 ARG can be a string naming a color.
863 The border-color is used for the border that is drawn by the X server.
864 Note that this does not fully take effect if done before
865 F has an x-window; it must be redone when the window is created.
867 Note: this is done in two routines because of the way X10 works.
869 Note: under X11, this is normally the province of the window manager,
870 and so emacs's border colors may be overridden. */
873 x_set_border_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
878 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
879 x_set_border_pixel (f
, pix
);
880 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
885 x_set_cursor_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
887 set_frame_cursor_types (f
, arg
);
891 x_set_icon_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
897 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
900 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
905 result
= x_text_icon (f
,
906 SSDATA ((!NILP (f
->icon_name
)
910 result
= x_bitmap_icon (f
, arg
);
915 error ("No icon window available");
918 XFlush (FRAME_X_DISPLAY (f
));
923 x_set_icon_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
929 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
932 else if (!NILP (arg
) || NILP (oldval
))
935 fset_icon_name (f
, arg
);
937 if (f
->output_data
.x
->icon_bitmap
!= 0)
942 result
= x_text_icon (f
,
943 SSDATA ((!NILP (f
->icon_name
)
952 error ("No icon window available");
955 XFlush (FRAME_X_DISPLAY (f
));
961 x_set_menu_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
964 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
965 int olines
= FRAME_MENU_BAR_LINES (f
);
968 /* Right now, menu bars don't work properly in minibuf-only frames;
969 most of the commands try to apply themselves to the minibuffer
970 frame itself, and get an error because you can't switch buffers
971 in or split the minibuffer window. */
972 if (FRAME_MINIBUF_ONLY_P (f
))
975 if (TYPE_RANGED_INTEGERP (int, value
))
976 nlines
= XINT (value
);
980 /* Make sure we redisplay all windows in this frame. */
981 windows_or_buffers_changed
= 59;
983 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
984 FRAME_MENU_BAR_LINES (f
) = 0;
985 FRAME_MENU_BAR_HEIGHT (f
) = 0;
988 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
989 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
990 /* Make sure next redisplay shows the menu bar. */
991 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= 1;
995 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
996 free_frame_menubar (f
);
997 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
999 f
->output_data
.x
->menubar_widget
= 0;
1001 #else /* not USE_X_TOOLKIT && not USE_GTK */
1002 FRAME_MENU_BAR_LINES (f
) = nlines
;
1003 FRAME_MENU_BAR_HEIGHT (f
) = nlines
* FRAME_LINE_HEIGHT (f
);
1004 resize_frame_windows (f
, FRAME_TEXT_HEIGHT (f
), 0, 1);
1005 if (FRAME_X_WINDOW (f
))
1006 x_clear_under_internal_border (f
);
1008 /* If the menu bar height gets changed, the internal border below
1009 the top margin has to be cleared. Also, if the menu bar gets
1010 larger, the area for the added lines has to be cleared except for
1011 the first menu bar line that is to be drawn later. */
1012 if (nlines
!= olines
)
1014 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1015 int width
= FRAME_PIXEL_WIDTH (f
);
1018 /* height can be zero here. */
1019 if (FRAME_X_WINDOW (f
) && height
> 0 && width
> 0)
1021 y
= FRAME_TOP_MARGIN_HEIGHT (f
);
1024 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1025 0, y
, width
, height
);
1029 if (nlines
> 1 && nlines
> olines
)
1031 y
= (olines
== 0 ? 1 : olines
) * FRAME_LINE_HEIGHT (f
);
1032 height
= nlines
* FRAME_LINE_HEIGHT (f
) - y
;
1035 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1036 0, y
, width
, height
);
1040 if (nlines
== 0 && WINDOWP (f
->menu_bar_window
))
1041 clear_glyph_matrix (XWINDOW (f
->menu_bar_window
)->current_matrix
);
1043 #endif /* not USE_X_TOOLKIT && not USE_GTK */
1044 adjust_frame_glyphs (f
);
1045 run_window_configuration_change_hook (f
);
1049 /* Set the number of lines used for the tool bar of frame F to VALUE.
1050 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1051 is the old number of tool bar lines. This function changes the
1052 height of all windows on frame F to match the new tool bar height.
1053 The frame's height doesn't change. */
1056 x_set_tool_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1059 #if ! defined (USE_GTK)
1060 int delta
, root_height
;
1061 int unit
= FRAME_LINE_HEIGHT (f
);
1064 /* Treat tool bars like menu bars. */
1065 if (FRAME_MINIBUF_ONLY_P (f
))
1068 /* Use VALUE only if an int >= 0. */
1069 if (RANGED_INTEGERP (0, value
, INT_MAX
))
1070 nlines
= XFASTINT (value
);
1076 FRAME_TOOL_BAR_LINES (f
) = 0;
1077 FRAME_TOOL_BAR_HEIGHT (f
) = 0;
1080 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1081 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1082 /* Make sure next redisplay shows the tool bar. */
1083 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= 1;
1084 update_frame_tool_bar (f
);
1088 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1089 free_frame_tool_bar (f
);
1090 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1093 #else /* !USE_GTK */
1095 /* Make sure we redisplay all windows in this frame. */
1096 windows_or_buffers_changed
= 60;
1098 /* DELTA is in pixels now. */
1099 delta
= (nlines
- FRAME_TOOL_BAR_LINES (f
)) * unit
;
1101 /* Don't resize the tool-bar to more than we have room for. Note: The
1102 calculations below and the subsequent call to resize_frame_windows
1103 are inherently flawed because they can make the toolbar higher than
1104 the containing frame. */
1107 root_height
= WINDOW_PIXEL_HEIGHT (XWINDOW (FRAME_ROOT_WINDOW (f
)));
1108 if (root_height
- delta
< unit
)
1110 delta
= root_height
- unit
;
1111 /* When creating a new frame and toolbar mode is enabled, we
1112 need at least one toolbar line. */
1113 nlines
= max (FRAME_TOOL_BAR_LINES (f
) + delta
/ unit
, 1);
1117 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1118 FRAME_TOOL_BAR_HEIGHT (f
) = nlines
* FRAME_LINE_HEIGHT (f
);
1119 resize_frame_windows (f
, FRAME_TEXT_HEIGHT (f
), 0, 1);
1120 #if !defined USE_X_TOOLKIT && !defined USE_GTK
1121 if (FRAME_X_WINDOW (f
))
1122 x_clear_under_internal_border (f
);
1124 adjust_frame_glyphs (f
);
1126 /* We also have to make sure that the internal border at the top of
1127 the frame, below the menu bar or tool bar, is redrawn when the
1128 tool bar disappears. This is so because the internal border is
1129 below the tool bar if one is displayed, but is below the menu bar
1130 if there isn't a tool bar. The tool bar draws into the area
1131 below the menu bar. */
1132 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_HEIGHT (f
) == 0)
1135 clear_current_matrices (f
);
1138 /* If the tool bar gets smaller, the internal border below it
1139 has to be cleared. It was formerly part of the display
1140 of the larger tool bar, and updating windows won't clear it. */
1143 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1144 int width
= FRAME_PIXEL_WIDTH (f
);
1145 int y
= nlines
* unit
;
1147 /* height can be zero here. */
1148 if (height
> 0 && width
> 0)
1151 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1152 0, y
, width
, height
);
1156 if (WINDOWP (f
->tool_bar_window
))
1157 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1160 run_window_configuration_change_hook (f
);
1161 #endif /* USE_GTK */
1165 /* Set the foreground color for scroll bars on frame F to VALUE.
1166 VALUE should be a string, a color name. If it isn't a string or
1167 isn't a valid color name, do nothing. OLDVAL is the old value of
1168 the frame parameter. */
1171 x_set_scroll_bar_foreground (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1173 unsigned long pixel
;
1175 if (STRINGP (value
))
1176 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1180 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1181 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1183 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1184 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1186 /* Remove all scroll bars because they have wrong colors. */
1187 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1188 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1189 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1190 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1192 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1198 /* Set the background color for scroll bars on frame F to VALUE VALUE
1199 should be a string, a color name. If it isn't a string or isn't a
1200 valid color name, do nothing. OLDVAL is the old value of the frame
1204 x_set_scroll_bar_background (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1206 unsigned long pixel
;
1208 if (STRINGP (value
))
1209 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1213 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1214 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1216 #ifdef USE_TOOLKIT_SCROLL_BARS
1217 /* Scrollbar shadow colors. */
1218 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1220 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1221 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1223 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1225 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1226 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1228 #endif /* USE_TOOLKIT_SCROLL_BARS */
1230 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1231 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1233 /* Remove all scroll bars because they have wrong colors. */
1234 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1235 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1236 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1237 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1239 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1245 /* Encode Lisp string STRING as a text in a format appropriate for
1246 XICCC (X Inter Client Communication Conventions).
1248 This can call Lisp code, so callers must GCPRO.
1250 If STRING contains only ASCII characters, do no conversion and
1251 return the string data of STRING. Otherwise, encode the text by
1252 CODING_SYSTEM, and return a newly allocated memory area which
1253 should be freed by `xfree' by a caller.
1255 SELECTIONP non-zero means the string is being encoded for an X
1256 selection, so it is safe to run pre-write conversions (which
1259 Store the byte length of resulting text in *TEXT_BYTES.
1261 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1262 which means that the `encoding' of the result can be `STRING'.
1263 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1264 the result should be `COMPOUND_TEXT'. */
1266 static unsigned char *
1267 x_encode_text (Lisp_Object string
, Lisp_Object coding_system
, int selectionp
,
1268 ptrdiff_t *text_bytes
, int *stringp
, int *freep
)
1270 int result
= string_xstring_p (string
);
1271 struct coding_system coding
;
1275 /* No multibyte character in OBJ. We need not encode it. */
1276 *text_bytes
= SBYTES (string
);
1279 return SDATA (string
);
1282 setup_coding_system (coding_system
, &coding
);
1283 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1284 /* We suppress producing escape sequences for composition. */
1285 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1286 coding
.destination
= xnmalloc_atomic (SCHARS (string
), 2);
1287 coding
.dst_bytes
= SCHARS (string
) * 2;
1288 encode_coding_object (&coding
, string
, 0, 0,
1289 SCHARS (string
), SBYTES (string
), Qnil
);
1290 *text_bytes
= coding
.produced
;
1291 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1293 return coding
.destination
;
1297 /* Set the WM name to NAME for frame F. Also set the icon name.
1298 If the frame already has an icon name, use that, otherwise set the
1299 icon name to NAME. */
1302 x_set_name_internal (struct frame
*f
, Lisp_Object name
)
1304 if (FRAME_X_WINDOW (f
))
1308 XTextProperty text
, icon
;
1311 int do_free_icon_value
= 0, do_free_text_value
= 0;
1312 Lisp_Object coding_system
;
1313 Lisp_Object encoded_name
;
1314 Lisp_Object encoded_icon_name
;
1315 struct gcpro gcpro1
;
1317 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1318 we use it before x_encode_text that may return string data. */
1320 encoded_name
= ENCODE_UTF_8 (name
);
1323 coding_system
= Qcompound_text
;
1324 /* Note: Encoding strategy
1326 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1327 text.encoding. But, there are non-internationalized window
1328 managers which don't support that encoding. So, if NAME
1329 contains only ASCII and 8859-1 characters, encode it by
1330 iso-latin-1, and use "STRING" in text.encoding hoping that
1331 such window managers at least analyze this format correctly,
1332 i.e. treat 8-bit bytes as 8859-1 characters.
1334 We may also be able to use "UTF8_STRING" in text.encoding
1335 in the future which can encode all Unicode characters.
1336 But, for the moment, there's no way to know that the
1337 current window manager supports it or not.
1339 Either way, we also set the _NET_WM_NAME and _NET_WM_ICON_NAME
1340 properties. Per the EWMH specification, those two properties
1341 are always UTF8_STRING. This matches what gtk_window_set_title()
1342 does in the USE_GTK case. */
1343 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1344 &do_free_text_value
);
1345 text
.encoding
= (stringp
? XA_STRING
1346 : FRAME_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1348 text
.nitems
= bytes
;
1349 if (text
.nitems
!= bytes
)
1350 error ("Window name too large");
1352 if (!STRINGP (f
->icon_name
))
1355 encoded_icon_name
= encoded_name
;
1359 /* See the above comment "Note: Encoding strategy". */
1360 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1361 &bytes
, &stringp
, &do_free_icon_value
);
1362 icon
.encoding
= (stringp
? XA_STRING
1363 : FRAME_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1365 icon
.nitems
= bytes
;
1366 if (icon
.nitems
!= bytes
)
1367 error ("Icon name too large");
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 non-zero, 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 zero, 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
, int 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 (long)0, (long)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_atomic (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_atomic (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_atomic (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. */
2258 char *tem
, shell_position
[sizeof "=x++" + 4 * INT_STRLEN_BOUND (int)];
2261 int extra_borders
= 0;
2263 = (f
->output_data
.x
->menubar_widget
2264 ? (f
->output_data
.x
->menubar_widget
->core
.height
2265 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2268 #if 0 /* Experimentally, we now get the right results
2269 for -geometry -0-0 without this. 24 Aug 96, rms. */
2270 if (FRAME_EXTERNAL_MENU_BAR (f
))
2273 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2274 menubar_size
+= ibw
;
2278 f
->output_data
.x
->menubar_height
= menubar_size
;
2281 /* Motif seems to need this amount added to the sizes
2282 specified for the shell widget. The Athena/Lucid widgets don't.
2283 Both conclusions reached experimentally. -- rms. */
2284 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2285 &extra_borders
, NULL
);
2289 /* Convert our geometry parameters into a geometry string
2291 Note that we do not specify here whether the position
2292 is a user-specified or program-specified one.
2293 We pass that information later, in x_wm_set_size_hints. */
2295 int left
= f
->left_pos
;
2296 int xneg
= window_prompting
& XNegative
;
2297 int top
= f
->top_pos
;
2298 int yneg
= window_prompting
& YNegative
;
2304 if (window_prompting
& USPosition
)
2305 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2306 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2307 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2308 (xneg
? '-' : '+'), left
,
2309 (yneg
? '-' : '+'), top
);
2312 sprintf (shell_position
, "=%dx%d",
2313 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2314 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2316 /* Setting x and y when the position is not specified in
2317 the geometry string will set program position in the WM hints.
2318 If Emacs had just one program position, we could set it in
2319 fallback resources, but since each make-frame call can specify
2320 different program positions, this is easier. */
2321 XtSetArg (gal
[gac
], XtNx
, left
); gac
++;
2322 XtSetArg (gal
[gac
], XtNy
, top
); gac
++;
2326 /* We don't free this because we don't know whether
2327 it is safe to free it while the frame exists.
2328 It isn't worth the trouble of arranging to free it
2329 when the frame is deleted. */
2330 tem
= xstrdup (shell_position
);
2331 XtSetArg (gal
[gac
], XtNgeometry
, tem
); gac
++;
2332 XtSetValues (shell_widget
, gal
, gac
);
2335 XtManageChild (pane_widget
);
2336 XtRealizeWidget (shell_widget
);
2338 if (FRAME_X_EMBEDDED_P (f
))
2339 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2340 f
->output_data
.x
->parent_desc
, 0, 0);
2342 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2344 validate_x_resource_name ();
2346 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2347 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2348 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2351 FRAME_XIC (f
) = NULL
;
2353 create_frame_xic (f
);
2356 f
->output_data
.x
->wm_hints
.input
= True
;
2357 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2358 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2359 &f
->output_data
.x
->wm_hints
);
2361 hack_wm_protocols (f
, shell_widget
);
2364 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2367 /* Do a stupid property change to force the server to generate a
2368 PropertyNotify event so that the event_stream server timestamp will
2369 be initialized to something relevant to the time we created the window.
2371 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2372 FRAME_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2373 XA_ATOM
, 32, PropModeAppend
, NULL
, 0);
2375 /* Make all the standard events reach the Emacs frame. */
2376 attributes
.event_mask
= STANDARD_EVENT_SET
;
2381 /* XIM server might require some X events. */
2382 unsigned long fevent
= NoEventMask
;
2383 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2384 attributes
.event_mask
|= fevent
;
2386 #endif /* HAVE_X_I18N */
2388 attribute_mask
= CWEventMask
;
2389 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2390 attribute_mask
, &attributes
);
2392 XtMapWidget (frame_widget
);
2394 /* x_set_name normally ignores requests to set the name if the
2395 requested name is the same as the current name. This is the one
2396 place where that assumption isn't correct; f->name is set, but
2397 the X server hasn't been told. */
2400 int explicit = f
->explicit_name
;
2402 f
->explicit_name
= 0;
2404 fset_name (f
, Qnil
);
2405 x_set_name (f
, name
, explicit);
2408 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2409 f
->output_data
.x
->current_cursor
2410 = f
->output_data
.x
->text_cursor
);
2414 /* This is a no-op, except under Motif. Make sure main areas are
2415 set to something reasonable, in case we get an error later. */
2416 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2419 #else /* not USE_X_TOOLKIT */
2422 x_window (struct frame
*f
)
2424 if (! xg_create_frame_widgets (f
))
2425 error ("Unable to create window");
2428 FRAME_XIC (f
) = NULL
;
2432 create_frame_xic (f
);
2435 /* XIM server might require some X events. */
2436 unsigned long fevent
= NoEventMask
;
2437 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2439 if (fevent
!= NoEventMask
)
2441 XSetWindowAttributes attributes
;
2442 XWindowAttributes wattr
;
2443 unsigned long attribute_mask
;
2445 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2447 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2448 attribute_mask
= CWEventMask
;
2449 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2450 attribute_mask
, &attributes
);
2458 #else /*! USE_GTK */
2459 /* Create and set up the X window for frame F. */
2462 x_window (struct frame
*f
)
2464 XClassHint class_hints
;
2465 XSetWindowAttributes attributes
;
2466 unsigned long attribute_mask
;
2468 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2469 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2470 attributes
.bit_gravity
= StaticGravity
;
2471 attributes
.backing_store
= NotUseful
;
2472 attributes
.save_under
= True
;
2473 attributes
.event_mask
= STANDARD_EVENT_SET
;
2474 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2475 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2480 = XCreateWindow (FRAME_X_DISPLAY (f
),
2481 f
->output_data
.x
->parent_desc
,
2484 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2486 CopyFromParent
, /* depth */
2487 InputOutput
, /* class */
2489 attribute_mask
, &attributes
);
2494 create_frame_xic (f
);
2497 /* XIM server might require some X events. */
2498 unsigned long fevent
= NoEventMask
;
2499 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2500 attributes
.event_mask
|= fevent
;
2501 attribute_mask
= CWEventMask
;
2502 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2503 attribute_mask
, &attributes
);
2506 #endif /* HAVE_X_I18N */
2508 validate_x_resource_name ();
2510 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2511 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2512 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2514 /* The menubar is part of the ordinary display;
2515 it does not count in addition to the height of the window. */
2516 f
->output_data
.x
->menubar_height
= 0;
2518 /* This indicates that we use the "Passive Input" input model.
2519 Unless we do this, we don't get the Focus{In,Out} events that we
2520 need to draw the cursor correctly. Accursed bureaucrats.
2521 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2523 f
->output_data
.x
->wm_hints
.input
= True
;
2524 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2525 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2526 &f
->output_data
.x
->wm_hints
);
2527 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2529 /* Request "save yourself" and "delete window" commands from wm. */
2532 protocols
[0] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2533 protocols
[1] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2534 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2537 /* x_set_name normally ignores requests to set the name if the
2538 requested name is the same as the current name. This is the one
2539 place where that assumption isn't correct; f->name is set, but
2540 the X server hasn't been told. */
2543 int explicit = f
->explicit_name
;
2545 f
->explicit_name
= 0;
2547 fset_name (f
, Qnil
);
2548 x_set_name (f
, name
, explicit);
2551 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2552 f
->output_data
.x
->current_cursor
2553 = f
->output_data
.x
->text_cursor
);
2557 if (FRAME_X_WINDOW (f
) == 0)
2558 error ("Unable to create window");
2561 #endif /* not USE_GTK */
2562 #endif /* not USE_X_TOOLKIT */
2564 /* Verify that the icon position args for this window are valid. */
2567 x_icon_verify (struct frame
*f
, Lisp_Object parms
)
2569 Lisp_Object icon_x
, icon_y
;
2571 /* Set the position of the icon. Note that twm groups all
2572 icons in an icon window. */
2573 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2574 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2575 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2577 CHECK_NUMBER (icon_x
);
2578 CHECK_NUMBER (icon_y
);
2580 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2581 error ("Both left and top icon corners of icon must be specified");
2584 /* Handle the icon stuff for this window. Perhaps later we might
2585 want an x_set_icon_position which can be called interactively as
2589 x_icon (struct frame
*f
, Lisp_Object parms
)
2591 Lisp_Object icon_x
, icon_y
;
2593 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
2596 /* Set the position of the icon. Note that twm groups all
2597 icons in an icon window. */
2598 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2599 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2600 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2602 CHECK_TYPE_RANGED_INTEGER (int, icon_x
);
2603 CHECK_TYPE_RANGED_INTEGER (int, icon_y
);
2605 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2606 error ("Both left and top icon corners of icon must be specified");
2610 if (! EQ (icon_x
, Qunbound
))
2611 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2613 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2614 but x_create_frame still needs it. */
2615 /* Start up iconic or window? */
2616 x_wm_set_window_state
2617 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2623 x_text_icon (f
, SSDATA ((!NILP (f
->icon_name
)
2630 /* Make the GCs needed for this window, setting the
2631 background, border and mouse colors; also create the
2632 mouse cursor and the gray border tile. */
2635 x_make_gc (struct frame
*f
)
2637 XGCValues gc_values
;
2641 /* Create the GCs of this frame.
2642 Note that many default values are used. */
2644 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2645 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2646 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2647 f
->output_data
.x
->normal_gc
2648 = XCreateGC (FRAME_X_DISPLAY (f
),
2650 GCLineWidth
| GCForeground
| GCBackground
,
2653 /* Reverse video style. */
2654 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2655 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2656 f
->output_data
.x
->reverse_gc
2657 = XCreateGC (FRAME_X_DISPLAY (f
),
2659 GCForeground
| GCBackground
| GCLineWidth
,
2662 /* Cursor has cursor-color background, background-color foreground. */
2663 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2664 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2665 gc_values
.fill_style
= FillOpaqueStippled
;
2666 f
->output_data
.x
->cursor_gc
2667 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2668 (GCForeground
| GCBackground
2669 | GCFillStyle
| GCLineWidth
),
2672 /* Create the gray border tile used when the pointer is not in
2673 the frame. Since this depends on the frame's pixel values,
2674 this must be done on a per-frame basis. */
2675 f
->output_data
.x
->border_tile
2676 = (XCreatePixmapFromBitmapData
2677 (FRAME_X_DISPLAY (f
), FRAME_DISPLAY_INFO (f
)->root_window
,
2678 gray_bits
, gray_width
, gray_height
,
2679 FRAME_FOREGROUND_PIXEL (f
),
2680 FRAME_BACKGROUND_PIXEL (f
),
2681 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2687 /* Free what was allocated in x_make_gc. */
2690 x_free_gcs (struct frame
*f
)
2692 Display
*dpy
= FRAME_X_DISPLAY (f
);
2696 if (f
->output_data
.x
->normal_gc
)
2698 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2699 f
->output_data
.x
->normal_gc
= 0;
2702 if (f
->output_data
.x
->reverse_gc
)
2704 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2705 f
->output_data
.x
->reverse_gc
= 0;
2708 if (f
->output_data
.x
->cursor_gc
)
2710 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2711 f
->output_data
.x
->cursor_gc
= 0;
2714 if (f
->output_data
.x
->border_tile
)
2716 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2717 f
->output_data
.x
->border_tile
= 0;
2724 /* Handler for signals raised during x_create_frame and
2725 x_create_tip_frame. FRAME is the frame which is partially
2729 unwind_create_frame (Lisp_Object frame
)
2731 struct frame
*f
= XFRAME (frame
);
2733 /* If frame is already dead, nothing to do. This can happen if the
2734 display is disconnected after the frame has become official, but
2735 before x_create_frame removes the unwind protect. */
2736 if (!FRAME_LIVE_P (f
))
2739 /* If frame is ``official'', nothing to do. */
2740 if (NILP (Fmemq (frame
, Vframe_list
)))
2742 #if defined GLYPH_DEBUG && defined ENABLE_CHECKING
2743 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
2746 x_free_frame_resources (f
);
2749 #if defined GLYPH_DEBUG && defined ENABLE_CHECKING
2750 /* Check that reference counts are indeed correct. */
2751 eassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2752 eassert (dpyinfo
->terminal
->image_cache
->refcount
== image_cache_refcount
);
2761 do_unwind_create_frame (Lisp_Object frame
)
2763 unwind_create_frame (frame
);
2767 unwind_create_frame_1 (Lisp_Object val
)
2769 inhibit_lisp_code
= val
;
2773 x_default_font_parameter (struct frame
*f
, Lisp_Object parms
)
2775 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
2776 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
2778 Lisp_Object font
= Qnil
;
2779 if (EQ (font_param
, Qunbound
))
2782 if (NILP (font_param
))
2784 /* System font should take precedence over X resources. We suggest this
2785 regardless of font-use-system-font because .emacs may not have been
2787 const char *system_font
= xsettings_get_system_font ();
2789 font
= font_open_by_name (f
, build_unibyte_string (system_font
));
2793 font
= !NILP (font_param
) ? font_param
2794 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
2796 if (! FONTP (font
) && ! STRINGP (font
))
2801 /* This will find the normal Xft font. */
2804 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
2805 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2806 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2807 /* This was formerly the first thing tried, but it finds
2808 too many fonts and takes too long. */
2809 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
2810 /* If those didn't work, look for something which will
2812 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
2817 for (i
= 0; names
[i
]; i
++)
2819 font
= font_open_by_name (f
, build_unibyte_string (names
[i
]));
2824 error ("No suitable font was found");
2826 else if (!NILP (font_param
))
2828 /* Remember the explicit font parameter, so we can re-apply it after
2829 we've applied the `default' face settings. */
2830 x_set_frame_parameters (f
, list1 (Fcons (Qfont_param
, font_param
)));
2833 /* This call will make X resources override any system font setting. */
2834 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
2838 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
2840 doc
: /* Send the size hints for frame FRAME to the window manager.
2841 If FRAME is omitted or nil, use the selected frame.
2842 Signal error if FRAME is not an X frame. */)
2845 struct frame
*f
= decode_window_system_frame (frame
);
2848 x_wm_set_size_hint (f
, 0, 0);
2854 set_machine_and_pid_properties (struct frame
*f
)
2856 long pid
= (long) getpid ();
2858 /* This will set WM_CLIENT_MACHINE and WM_LOCALE_NAME. */
2859 XSetWMProperties (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), NULL
, NULL
,
2860 NULL
, 0, NULL
, NULL
, NULL
);
2861 XChangeProperty (FRAME_X_DISPLAY (f
),
2862 FRAME_OUTER_WINDOW (f
),
2863 XInternAtom (FRAME_X_DISPLAY (f
),
2866 XA_CARDINAL
, 32, PropModeReplace
,
2867 (unsigned char *) &pid
, 1);
2870 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2872 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
2873 Return an Emacs frame object.
2874 PARMS is an alist of frame parameters.
2875 If the parameters specify that the frame should not have a minibuffer,
2876 and do not specify a specific minibuffer window to use,
2877 then `default-minibuffer-frame' must be a frame whose minibuffer can
2878 be shared by the new frame.
2880 This function is an internal primitive--use `make-frame' instead. */)
2884 Lisp_Object frame
, tem
;
2886 int minibuffer_only
= 0;
2887 long window_prompting
= 0;
2889 ptrdiff_t count
= SPECPDL_INDEX ();
2890 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
2891 Lisp_Object display
;
2892 struct x_display_info
*dpyinfo
= NULL
;
2896 parms
= Fcopy_alist (parms
);
2898 /* Use this general default value to start with
2899 until we know if this frame has a specified name. */
2900 Vx_resource_name
= Vinvocation_name
;
2902 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
2903 if (EQ (display
, Qunbound
))
2904 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
2905 if (EQ (display
, Qunbound
))
2907 dpyinfo
= check_x_display_info (display
);
2908 kb
= dpyinfo
->terminal
->kboard
;
2910 if (!dpyinfo
->terminal
->name
)
2911 error ("Terminal is not live, can't create new frames on it");
2913 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
2915 && ! EQ (name
, Qunbound
)
2917 error ("Invalid frame name--not a string or nil");
2920 Vx_resource_name
= name
;
2922 /* See if parent window is specified. */
2923 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
2924 if (EQ (parent
, Qunbound
))
2926 if (! NILP (parent
))
2927 CHECK_NUMBER (parent
);
2929 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
2930 /* No need to protect DISPLAY because that's not used after passing
2931 it to make_frame_without_minibuffer. */
2933 GCPRO4 (parms
, parent
, name
, frame
);
2934 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
2936 if (EQ (tem
, Qnone
) || NILP (tem
))
2937 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
2938 else if (EQ (tem
, Qonly
))
2940 f
= make_minibuffer_frame ();
2941 minibuffer_only
= 1;
2943 else if (WINDOWP (tem
))
2944 f
= make_frame_without_minibuffer (tem
, kb
, display
);
2948 XSETFRAME (frame
, f
);
2950 f
->terminal
= dpyinfo
->terminal
;
2952 f
->output_method
= output_x_window
;
2953 f
->output_data
.x
= xzalloc (sizeof *f
->output_data
.x
);
2954 f
->output_data
.x
->icon_bitmap
= -1;
2955 FRAME_FONTSET (f
) = -1;
2956 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
2957 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
2958 #ifdef USE_TOOLKIT_SCROLL_BARS
2959 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
2960 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
2961 #endif /* USE_TOOLKIT_SCROLL_BARS */
2962 f
->output_data
.x
->white_relief
.pixel
= -1;
2963 f
->output_data
.x
->black_relief
.pixel
= -1;
2966 x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
2968 if (! STRINGP (f
->icon_name
))
2969 fset_icon_name (f
, Qnil
);
2971 FRAME_DISPLAY_INFO (f
) = dpyinfo
;
2973 /* With FRAME_DISPLAY_INFO set up, this unwind-protect is safe. */
2974 record_unwind_protect (do_unwind_create_frame
, frame
);
2976 /* These colors will be set anyway later, but it's important
2977 to get the color reference counts right, so initialize them! */
2980 struct gcpro gcpro1
;
2982 /* Function x_decode_color can signal an error. Make
2983 sure to initialize color slots so that we won't try
2984 to free colors we haven't allocated. */
2985 FRAME_FOREGROUND_PIXEL (f
) = -1;
2986 FRAME_BACKGROUND_PIXEL (f
) = -1;
2987 f
->output_data
.x
->cursor_pixel
= -1;
2988 f
->output_data
.x
->cursor_foreground_pixel
= -1;
2989 f
->output_data
.x
->border_pixel
= -1;
2990 f
->output_data
.x
->mouse_pixel
= -1;
2992 black
= build_string ("black");
2994 FRAME_FOREGROUND_PIXEL (f
)
2995 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2996 FRAME_BACKGROUND_PIXEL (f
)
2997 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2998 f
->output_data
.x
->cursor_pixel
2999 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3000 f
->output_data
.x
->cursor_foreground_pixel
3001 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3002 f
->output_data
.x
->border_pixel
3003 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3004 f
->output_data
.x
->mouse_pixel
3005 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3009 /* Specify the parent under which to make this X window. */
3013 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3014 f
->output_data
.x
->explicit_parent
= 1;
3018 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
3019 f
->output_data
.x
->explicit_parent
= 0;
3022 /* Set the name; the functions to which we pass f expect the name to
3024 if (EQ (name
, Qunbound
) || NILP (name
))
3026 fset_name (f
, build_string (dpyinfo
->x_id_name
));
3027 f
->explicit_name
= 0;
3031 fset_name (f
, name
);
3032 f
->explicit_name
= 1;
3033 /* use the frame's title when getting resources for this frame. */
3034 specbind (Qx_resource_name
, name
);
3037 #ifdef HAVE_FREETYPE
3039 register_font_driver (&xftfont_driver
, f
);
3040 #else /* not HAVE_XFT */
3041 register_font_driver (&ftxfont_driver
, f
);
3042 #endif /* not HAVE_XFT */
3043 #endif /* HAVE_FREETYPE */
3044 register_font_driver (&xfont_driver
, f
);
3046 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3047 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3049 /* Extract the window parameters from the supplied values
3050 that are needed to determine window geometry. */
3051 x_default_font_parameter (f
, parms
);
3052 if (!FRAME_FONT (f
))
3054 delete_frame (frame
, Qnoelisp
);
3055 error ("Invalid frame font");
3058 /* Frame contents get displaced if an embedded X window has a border. */
3059 if (! FRAME_X_EMBEDDED_P (f
))
3060 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
3061 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3063 /* This defaults to 1 in order to match xterm. We recognize either
3064 internalBorderWidth or internalBorder (which is what xterm calls
3066 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3070 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3071 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3072 if (! EQ (value
, Qunbound
))
3073 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3076 x_default_parameter (f
, parms
, Qinternal_border_width
,
3077 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3082 "internalBorderWidth", "internalBorderWidth",
3084 x_default_parameter (f
, parms
, Qright_divider_width
, make_number (0),
3085 NULL
, NULL
, RES_TYPE_NUMBER
);
3086 x_default_parameter (f
, parms
, Qbottom_divider_width
, make_number (0),
3087 NULL
, NULL
, RES_TYPE_NUMBER
);
3088 x_default_parameter (f
, parms
, Qvertical_scroll_bars
,
3089 #if defined (USE_GTK) && defined (USE_TOOLKIT_SCROLL_BARS)
3094 "verticalScrollBars", "ScrollBars",
3097 /* Also do the stuff which must be set before the window exists. */
3098 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3099 "foreground", "Foreground", RES_TYPE_STRING
);
3100 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3101 "background", "Background", RES_TYPE_STRING
);
3102 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3103 "pointerColor", "Foreground", RES_TYPE_STRING
);
3104 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3105 "borderColor", "BorderColor", RES_TYPE_STRING
);
3106 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3107 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3108 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3109 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3110 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3111 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3112 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3113 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3115 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3116 "scrollBarForeground",
3117 "ScrollBarForeground", 1);
3118 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3119 "scrollBarBackground",
3120 "ScrollBarBackground", 0);
3123 image_cache_refcount
=
3124 FRAME_IMAGE_CACHE (f
) ? FRAME_IMAGE_CACHE (f
)->refcount
: 0;
3125 dpyinfo_refcount
= dpyinfo
->reference_count
;
3126 #endif /* GLYPH_DEBUG */
3128 /* Init faces before x_default_parameter is called for scroll-bar
3129 parameters because that function calls x_set_scroll_bar_width,
3130 which calls change_frame_size, which calls Fset_window_buffer,
3131 which runs hooks, which call Fvertical_motion. At the end, we
3132 end up in init_iterator with a null face cache, which should not
3134 init_frame_faces (f
);
3136 /* PXW: This is a duplicate from below. We have to do it here since
3137 otherwise x_set_tool_bar_lines will work with the character sizes
3138 installed by init_frame_faces while the frame's pixel size is still
3139 calculated from a character size of 1 and we subsequently hit the
3140 eassert (height >= 0) assertion in window_box_height. The
3141 non-pixelwise code apparently worked around this because it had one
3142 frame line vs one toolbar line which left us with a zero root
3143 window height which was obviously wrong as well ... */
3144 change_frame_size (f
, FRAME_COLS (f
) * FRAME_COLUMN_WIDTH (f
),
3145 FRAME_LINES (f
) * FRAME_LINE_HEIGHT (f
), 1, 0, 0, 1);
3147 /* Set the menu-bar-lines and tool-bar-lines parameters. We don't
3148 look up the X resources controlling the menu-bar and tool-bar
3149 here; they are processed specially at startup, and reflected in
3150 the values of the mode variables.
3152 Avoid calling window-configuration-change-hook; otherwise we
3153 could get an infloop in next_frame since the frame is not yet in
3156 ptrdiff_t count2
= SPECPDL_INDEX ();
3157 record_unwind_protect (unwind_create_frame_1
, inhibit_lisp_code
);
3158 inhibit_lisp_code
= Qt
;
3160 x_default_parameter (f
, parms
, Qmenu_bar_lines
,
3161 NILP (Vmenu_bar_mode
)
3162 ? make_number (0) : make_number (1),
3163 NULL
, NULL
, RES_TYPE_NUMBER
);
3164 x_default_parameter (f
, parms
, Qtool_bar_lines
,
3165 NILP (Vtool_bar_mode
)
3166 ? make_number (0) : make_number (1),
3167 NULL
, NULL
, RES_TYPE_NUMBER
);
3169 unbind_to (count2
, Qnil
);
3172 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3173 "bufferPredicate", "BufferPredicate",
3175 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3176 "title", "Title", RES_TYPE_STRING
);
3177 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3178 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3179 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3180 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3181 x_default_parameter (f
, parms
, Qtool_bar_position
,
3182 f
->tool_bar_position
, 0, 0, RES_TYPE_SYMBOL
);
3184 /* Compute the size of the X window. */
3185 window_prompting
= x_figure_window_size (f
, parms
, 1);
3187 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3188 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3190 x_icon_verify (f
, parms
);
3192 /* Create the X widget or window. */
3193 #ifdef USE_X_TOOLKIT
3194 x_window (f
, window_prompting
, minibuffer_only
);
3202 /* Now consider the frame official. */
3203 f
->terminal
->reference_count
++;
3204 FRAME_DISPLAY_INFO (f
)->reference_count
++;
3205 Vframe_list
= Fcons (frame
, Vframe_list
);
3207 /* We need to do this after creating the X window, so that the
3208 icon-creation functions can say whose icon they're describing. */
3209 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3210 "bitmapIcon", "BitmapIcon", RES_TYPE_BOOLEAN
);
3212 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3213 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3214 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3215 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3216 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3217 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3218 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3219 "scrollBarWidth", "ScrollBarWidth",
3221 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3222 "alpha", "Alpha", RES_TYPE_NUMBER
);
3224 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3225 Change will not be effected unless different from the current
3227 width
= FRAME_TEXT_WIDTH (f
);
3228 height
= FRAME_TEXT_HEIGHT (f
);
3229 FRAME_TEXT_HEIGHT (f
) = 0;
3230 SET_FRAME_WIDTH (f
, 0);
3231 change_frame_size (f
, width
, height
, 1, 0, 0, 1);
3233 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3234 /* Create the menu bar. */
3235 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3237 /* If this signals an error, we haven't set size hints for the
3238 frame and we didn't make it visible. */
3239 initialize_frame_menubar (f
);
3242 /* This is a no-op, except under Motif where it arranges the
3243 main window for the widgets on it. */
3244 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3245 f
->output_data
.x
->menubar_widget
,
3246 f
->output_data
.x
->edit_widget
);
3247 #endif /* not USE_GTK */
3249 #endif /* USE_X_TOOLKIT || USE_GTK */
3251 /* Tell the server what size and position, etc, we want, and how
3252 badly we want them. This should be done after we have the menu
3253 bar so that its size can be taken into account. */
3255 x_wm_set_size_hint (f
, window_prompting
, 0);
3258 /* Make the window appear on the frame and enable display, unless
3259 the caller says not to. However, with explicit parent, Emacs
3260 cannot control visibility, so don't try. */
3261 if (! f
->output_data
.x
->explicit_parent
)
3263 Lisp_Object visibility
;
3265 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3267 if (EQ (visibility
, Qunbound
))
3270 if (EQ (visibility
, Qicon
))
3271 x_iconify_frame (f
);
3272 else if (! NILP (visibility
))
3273 x_make_frame_visible (f
);
3276 /* Must have been Qnil. */
3282 /* Set machine name and pid for the purpose of window managers. */
3283 set_machine_and_pid_properties (f
);
3285 /* Set the WM leader property. GTK does this itself, so this is not
3286 needed when using GTK. */
3287 if (dpyinfo
->client_leader_window
!= 0)
3289 XChangeProperty (FRAME_X_DISPLAY (f
),
3290 FRAME_OUTER_WINDOW (f
),
3291 dpyinfo
->Xatom_wm_client_leader
,
3292 XA_WINDOW
, 32, PropModeReplace
,
3293 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3298 /* Initialize `default-minibuffer-frame' in case this is the first
3299 frame on this terminal. */
3300 if (FRAME_HAS_MINIBUF_P (f
)
3301 && (!FRAMEP (KVAR (kb
, Vdefault_minibuffer_frame
))
3302 || !FRAME_LIVE_P (XFRAME (KVAR (kb
, Vdefault_minibuffer_frame
)))))
3303 kset_default_minibuffer_frame (kb
, frame
);
3305 /* All remaining specified parameters, which have not been "used"
3306 by x_get_arg and friends, now go in the misc. alist of the frame. */
3307 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3308 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3309 fset_param_alist (f
, Fcons (XCAR (tem
), f
->param_alist
));
3313 /* Make sure windows on this frame appear in calls to next-window
3314 and similar functions. */
3315 Vwindow_list
= Qnil
;
3317 return unbind_to (count
, frame
);
3321 /* FRAME is used only to get a handle on the X display. We don't pass the
3322 display info directly because we're called from frame.c, which doesn't
3323 know about that structure. */
3326 x_get_focus_frame (struct frame
*frame
)
3328 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (frame
);
3330 if (! dpyinfo
->x_focus_frame
)
3333 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3338 /* In certain situations, when the window manager follows a
3339 click-to-focus policy, there seems to be no way around calling
3340 XSetInputFocus to give another frame the input focus .
3342 In an ideal world, XSetInputFocus should generally be avoided so
3343 that applications don't interfere with the window manager's focus
3344 policy. But I think it's okay to use when it's clearly done
3345 following a user-command. */
3348 x_focus_frame (struct frame
*f
)
3350 Display
*dpy
= FRAME_X_DISPLAY (f
);
3353 x_catch_errors (dpy
);
3355 if (FRAME_X_EMBEDDED_P (f
))
3357 /* For Xembedded frames, normally the embedder forwards key
3358 events. See XEmbed Protocol Specification at
3359 http://freedesktop.org/wiki/Specifications/xembed-spec */
3360 xembed_request_focus (f
);
3364 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3365 RevertToParent
, CurrentTime
);
3366 x_ewmh_activate_frame (f
);
3369 x_uncatch_errors ();
3374 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3375 doc
: /* Internal function called by `color-defined-p', which see
3376 .\(Note that the Nextstep version of this function ignores FRAME.) */)
3377 (Lisp_Object color
, Lisp_Object frame
)
3380 struct frame
*f
= decode_window_system_frame (frame
);
3382 CHECK_STRING (color
);
3384 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3390 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3391 doc
: /* Internal function called by `color-values', which see. */)
3392 (Lisp_Object color
, Lisp_Object frame
)
3395 struct frame
*f
= decode_window_system_frame (frame
);
3397 CHECK_STRING (color
);
3399 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3400 return list3i (foo
.red
, foo
.green
, foo
.blue
);
3405 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3406 doc
: /* Internal function called by `display-color-p', which see. */)
3407 (Lisp_Object terminal
)
3409 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3411 if (dpyinfo
->n_planes
<= 2)
3414 switch (dpyinfo
->visual
->class)
3427 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3429 doc
: /* Return t if the X display supports shades of gray.
3430 Note that color displays do support shades of gray.
3431 The optional argument TERMINAL specifies which display to ask about.
3432 TERMINAL should be a terminal object, a frame or a display name (a string).
3433 If omitted or nil, that stands for the selected frame's display. */)
3434 (Lisp_Object terminal
)
3436 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3438 if (dpyinfo
->n_planes
<= 1)
3441 switch (dpyinfo
->visual
->class)
3456 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3458 doc
: /* Return the width in pixels of the X display TERMINAL.
3459 The optional argument TERMINAL specifies which display to ask about.
3460 TERMINAL should be a terminal object, a frame or a display name (a string).
3461 If omitted or nil, that stands for the selected frame's display.
3463 On \"multi-monitor\" setups this refers to the pixel width for all
3464 physical monitors associated with TERMINAL. To get information for
3465 each physical monitor, use `display-monitor-attributes-list'. */)
3466 (Lisp_Object terminal
)
3468 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3470 return make_number (x_display_pixel_width (dpyinfo
));
3473 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3474 Sx_display_pixel_height
, 0, 1, 0,
3475 doc
: /* Return the height in pixels of the X display TERMINAL.
3476 The optional argument TERMINAL specifies which display to ask about.
3477 TERMINAL should be a terminal object, a frame or a display name (a string).
3478 If omitted or nil, that stands for the selected frame's display.
3480 On \"multi-monitor\" setups this refers to the pixel height for all
3481 physical monitors associated with TERMINAL. To get information for
3482 each physical monitor, use `display-monitor-attributes-list'. */)
3483 (Lisp_Object terminal
)
3485 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3487 return make_number (x_display_pixel_height (dpyinfo
));
3490 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3492 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3493 The optional argument TERMINAL specifies which display to ask about.
3494 TERMINAL should be a terminal object, a frame or a display name (a string).
3495 If omitted or nil, that stands for the selected frame's display. */)
3496 (Lisp_Object terminal
)
3498 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3500 return make_number (dpyinfo
->n_planes
);
3503 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3505 doc
: /* Return the number of color cells of the X display TERMINAL.
3506 The optional argument TERMINAL specifies which display to ask about.
3507 TERMINAL should be a terminal object, a frame or a display name (a string).
3508 If omitted or nil, that stands for the selected frame's display. */)
3509 (Lisp_Object terminal
)
3511 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3513 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3514 XScreenNumberOfScreen (dpyinfo
->screen
));
3516 /* Truncate nr_planes to 24 to avoid integer overflow.
3517 Some displays says 32, but only 24 bits are actually significant.
3518 There are only very few and rare video cards that have more than
3519 24 significant bits. Also 24 bits is more than 16 million colors,
3520 it "should be enough for everyone". */
3521 if (nr_planes
> 24) nr_planes
= 24;
3523 return make_number (1 << nr_planes
);
3526 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3527 Sx_server_max_request_size
,
3529 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3530 The optional argument TERMINAL specifies which display to ask about.
3531 TERMINAL should be a terminal object, a frame or a display name (a string).
3532 If omitted or nil, that stands for the selected frame's display. */)
3533 (Lisp_Object terminal
)
3535 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3537 return make_number (MAXREQUEST (dpyinfo
->display
));
3540 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3541 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3542 \(Labeling every distributor as a "vendor" embodies the false assumption
3543 that operating systems cannot be developed and distributed noncommercially.)
3544 The optional argument TERMINAL specifies which display to ask about.
3545 TERMINAL should be a terminal object, a frame or a display name (a string).
3546 If omitted or nil, that stands for the selected frame's display. */)
3547 (Lisp_Object terminal
)
3549 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3550 const char *vendor
= ServerVendor (dpyinfo
->display
);
3552 if (! vendor
) vendor
= "";
3553 return build_string (vendor
);
3556 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3557 doc
: /* Return the version numbers of the X server of display TERMINAL.
3558 The value is a list of three integers: the major and minor
3559 version numbers of the X Protocol in use, and the distributor-specific release
3560 number. See also the function `x-server-vendor'.
3562 The optional argument TERMINAL specifies which display to ask about.
3563 TERMINAL should be a terminal object, a frame or a display name (a string).
3564 If omitted or nil, that stands for the selected frame's display. */)
3565 (Lisp_Object terminal
)
3567 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3568 Display
*dpy
= dpyinfo
->display
;
3570 return list3i (ProtocolVersion (dpy
), ProtocolRevision (dpy
),
3571 VendorRelease (dpy
));
3574 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3575 doc
: /* Return the number of screens on the X server of display TERMINAL.
3576 The optional argument TERMINAL specifies which display to ask about.
3577 TERMINAL should be a terminal object, a frame or a display name (a string).
3578 If omitted or nil, that stands for the selected frame's display. */)
3579 (Lisp_Object terminal
)
3581 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3583 return make_number (ScreenCount (dpyinfo
->display
));
3586 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3587 doc
: /* Return the height in millimeters of the X display TERMINAL.
3588 The optional argument TERMINAL specifies which display to ask about.
3589 TERMINAL should be a terminal object, a frame or a display name (a string).
3590 If omitted or nil, that stands for the selected frame's display.
3592 On \"multi-monitor\" setups this refers to the height in millimeters for
3593 all physical monitors associated with TERMINAL. To get information
3594 for each physical monitor, use `display-monitor-attributes-list'. */)
3595 (Lisp_Object terminal
)
3597 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3599 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3602 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3603 doc
: /* Return the width in millimeters of the X display TERMINAL.
3604 The optional argument TERMINAL specifies which display to ask about.
3605 TERMINAL should be a terminal object, a frame or a display name (a string).
3606 If omitted or nil, that stands for the selected frame's display.
3608 On \"multi-monitor\" setups this refers to the width in millimeters for
3609 all physical monitors associated with TERMINAL. To get information
3610 for each physical monitor, use `display-monitor-attributes-list'. */)
3611 (Lisp_Object terminal
)
3613 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3615 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3618 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3619 Sx_display_backing_store
, 0, 1, 0,
3620 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3621 The value may be `always', `when-mapped', or `not-useful'.
3622 The optional argument TERMINAL specifies which display to ask about.
3623 TERMINAL should be a terminal object, a frame or a display name (a string).
3624 If omitted or nil, that stands for the selected frame's display. */)
3625 (Lisp_Object terminal
)
3627 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3630 switch (DoesBackingStore (dpyinfo
->screen
))
3633 result
= intern ("always");
3637 result
= intern ("when-mapped");
3641 result
= intern ("not-useful");
3645 error ("Strange value for BackingStore parameter of screen");
3651 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3652 Sx_display_visual_class
, 0, 1, 0,
3653 doc
: /* Return the visual class of the X display TERMINAL.
3654 The value is one of the symbols `static-gray', `gray-scale',
3655 `static-color', `pseudo-color', `true-color', or `direct-color'.
3657 The optional argument TERMINAL specifies which display to ask about.
3658 TERMINAL should a terminal object, a frame or a display name (a string).
3659 If omitted or nil, that stands for the selected frame's display. */)
3660 (Lisp_Object terminal
)
3662 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3665 switch (dpyinfo
->visual
->class)
3668 result
= intern ("static-gray");
3671 result
= intern ("gray-scale");
3674 result
= intern ("static-color");
3677 result
= intern ("pseudo-color");
3680 result
= intern ("true-color");
3683 result
= intern ("direct-color");
3686 error ("Display has an unknown visual class");
3692 DEFUN ("x-display-save-under", Fx_display_save_under
,
3693 Sx_display_save_under
, 0, 1, 0,
3694 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3695 The optional argument TERMINAL specifies which display to ask about.
3696 TERMINAL should be a terminal object, a frame or a display name (a string).
3697 If omitted or nil, that stands for the selected frame's display. */)
3698 (Lisp_Object terminal
)
3700 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3702 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3708 /* Store the geometry of the workarea on display DPYINFO into *RECT.
3709 Return false if and only if the workarea information cannot be
3710 obtained via the _NET_WORKAREA root window property. */
3712 #if ! GTK_CHECK_VERSION (3, 4, 0)
3714 x_get_net_workarea (struct x_display_info
*dpyinfo
, XRectangle
*rect
)
3716 Display
*dpy
= dpyinfo
->display
;
3717 long offset
, max_len
;
3718 Atom target_type
, actual_type
;
3719 unsigned long actual_size
, bytes_remaining
;
3720 int rc
, actual_format
;
3721 unsigned char *tmp_data
= NULL
;
3722 bool result
= false;
3724 x_catch_errors (dpy
);
3727 target_type
= XA_CARDINAL
;
3728 rc
= XGetWindowProperty (dpy
, dpyinfo
->root_window
,
3729 dpyinfo
->Xatom_net_current_desktop
,
3730 offset
, max_len
, False
, target_type
,
3731 &actual_type
, &actual_format
, &actual_size
,
3732 &bytes_remaining
, &tmp_data
);
3733 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
3734 && actual_format
== 32 && actual_size
== max_len
)
3736 long current_desktop
= ((long *) tmp_data
)[0];
3741 offset
= 4 * current_desktop
;
3743 rc
= XGetWindowProperty (dpy
, dpyinfo
->root_window
,
3744 dpyinfo
->Xatom_net_workarea
,
3745 offset
, max_len
, False
, target_type
,
3746 &actual_type
, &actual_format
, &actual_size
,
3747 &bytes_remaining
, &tmp_data
);
3748 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
3749 && actual_format
== 32 && actual_size
== max_len
)
3751 long *values
= (long *) tmp_data
;
3753 rect
->x
= values
[0];
3754 rect
->y
= values
[1];
3755 rect
->width
= values
[2];
3756 rect
->height
= values
[3];
3766 x_uncatch_errors ();
3774 /* Return monitor number where F is "most" or closest to. */
3776 x_get_monitor_for_frame (struct frame
*f
,
3777 struct MonitorInfo
*monitors
,
3781 int area
= 0, dist
= -1;
3782 int best_area
= -1, best_dist
= -1;
3785 if (n_monitors
== 1) return 0;
3786 frect
.x
= f
->left_pos
;
3787 frect
.y
= f
->top_pos
;
3788 frect
.width
= FRAME_PIXEL_WIDTH (f
);
3789 frect
.height
= FRAME_PIXEL_HEIGHT (f
);
3791 for (i
= 0; i
< n_monitors
; ++i
)
3793 struct MonitorInfo
*mi
= &monitors
[i
];
3797 if (mi
->geom
.width
== 0) continue;
3799 if (x_intersect_rectangles (&mi
->geom
, &frect
, &res
))
3801 a
= res
.width
* res
.height
;
3809 if (a
== 0 && area
== 0)
3812 if (frect
.x
+ frect
.width
< mi
->geom
.x
)
3813 dx
= mi
->geom
.x
- frect
.x
+ frect
.width
;
3814 else if (frect
.x
> mi
->geom
.x
+ mi
->geom
.width
)
3815 dx
= frect
.x
- mi
->geom
.x
+ mi
->geom
.width
;
3818 if (frect
.y
+ frect
.height
< mi
->geom
.y
)
3819 dy
= mi
->geom
.y
- frect
.y
+ frect
.height
;
3820 else if (frect
.y
> mi
->geom
.y
+ mi
->geom
.height
)
3821 dy
= frect
.y
- mi
->geom
.y
+ mi
->geom
.height
;
3826 if (dist
== -1 || dist
> d
)
3834 return best_area
!= -1 ? best_area
: (best_dist
!= -1 ? best_dist
: 0);
3838 x_make_monitor_attribute_list (struct MonitorInfo
*monitors
,
3840 int primary_monitor
,
3841 struct x_display_info
*dpyinfo
,
3844 Lisp_Object monitor_frames
= Fmake_vector (make_number (n_monitors
), Qnil
);
3845 Lisp_Object frame
, rest
;
3847 FOR_EACH_FRAME (rest
, frame
)
3849 struct frame
*f
= XFRAME (frame
);
3851 if (FRAME_X_P (f
) && FRAME_DISPLAY_INFO (f
) == dpyinfo
3852 && !EQ (frame
, tip_frame
))
3854 int i
= x_get_monitor_for_frame (f
, monitors
, n_monitors
);
3855 ASET (monitor_frames
, i
, Fcons (frame
, AREF (monitor_frames
, i
)));
3859 return make_monitor_attribute_list (monitors
, n_monitors
, primary_monitor
,
3860 monitor_frames
, source
);
3864 x_get_monitor_attributes_fallback (struct x_display_info
*dpyinfo
)
3866 struct MonitorInfo monitor
;
3867 XRectangle workarea_r
;
3869 /* Fallback: treat (possibly) multiple physical monitors as if they
3870 formed a single monitor as a whole. This should provide a
3871 consistent result at least on single monitor environments. */
3872 monitor
.geom
.x
= monitor
.geom
.y
= 0;
3873 monitor
.geom
.width
= x_display_pixel_width (dpyinfo
);
3874 monitor
.geom
.height
= x_display_pixel_height (dpyinfo
);
3875 monitor
.mm_width
= WidthMMOfScreen (dpyinfo
->screen
);
3876 monitor
.mm_height
= HeightMMOfScreen (dpyinfo
->screen
);
3877 monitor
.name
= xstrdup ("combined screen");
3879 if (x_get_net_workarea (dpyinfo
, &workarea_r
))
3880 monitor
.work
= workarea_r
;
3882 monitor
.work
= monitor
.geom
;
3883 return x_make_monitor_attribute_list (&monitor
, 1, 0, dpyinfo
, "fallback");
3887 #ifdef HAVE_XINERAMA
3889 x_get_monitor_attributes_xinerama (struct x_display_info
*dpyinfo
)
3892 Lisp_Object attributes_list
= Qnil
;
3893 Display
*dpy
= dpyinfo
->display
;
3894 XineramaScreenInfo
*info
= XineramaQueryScreens (dpy
, &n_monitors
);
3895 struct MonitorInfo
*monitors
;
3896 double mm_width_per_pixel
, mm_height_per_pixel
;
3898 if (! info
|| n_monitors
== 0)
3902 return attributes_list
;
3905 mm_width_per_pixel
= ((double) WidthMMOfScreen (dpyinfo
->screen
)
3906 / x_display_pixel_width (dpyinfo
));
3907 mm_height_per_pixel
= ((double) HeightMMOfScreen (dpyinfo
->screen
)
3908 / x_display_pixel_height (dpyinfo
));
3909 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
3910 for (i
= 0; i
< n_monitors
; ++i
)
3912 struct MonitorInfo
*mi
= &monitors
[i
];
3913 XRectangle workarea_r
;
3915 mi
->geom
.x
= info
[i
].x_org
;
3916 mi
->geom
.y
= info
[i
].y_org
;
3917 mi
->geom
.width
= info
[i
].width
;
3918 mi
->geom
.height
= info
[i
].height
;
3919 mi
->mm_width
= mi
->geom
.width
* mm_width_per_pixel
+ 0.5;
3920 mi
->mm_height
= mi
->geom
.height
* mm_height_per_pixel
+ 0.5;
3923 /* Xinerama usually have primary monitor first, just use that. */
3924 if (i
== 0 && x_get_net_workarea (dpyinfo
, &workarea_r
))
3926 mi
->work
= workarea_r
;
3927 if (! x_intersect_rectangles (&mi
->geom
, &mi
->work
, &mi
->work
))
3928 mi
->work
= mi
->geom
;
3931 mi
->work
= mi
->geom
;
3935 attributes_list
= x_make_monitor_attribute_list (monitors
,
3940 free_monitors (monitors
, n_monitors
);
3941 return attributes_list
;
3943 #endif /* HAVE_XINERAMA */
3948 x_get_monitor_attributes_xrandr (struct x_display_info
*dpyinfo
)
3950 Lisp_Object attributes_list
= Qnil
;
3951 XRRScreenResources
*resources
;
3952 Display
*dpy
= dpyinfo
->display
;
3953 int i
, n_monitors
, primary
= -1;
3954 RROutput pxid
= None
;
3955 struct MonitorInfo
*monitors
;
3957 #ifdef HAVE_XRRGETSCREENRESOURCESCURRENT
3958 resources
= XRRGetScreenResourcesCurrent (dpy
, dpyinfo
->root_window
);
3960 resources
= XRRGetScreenResources (dpy
, dpyinfo
->root_window
);
3962 if (! resources
|| resources
->noutput
== 0)
3965 XRRFreeScreenResources (resources
);
3968 n_monitors
= resources
->noutput
;
3969 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
3971 #ifdef HAVE_XRRGETOUTPUTPRIMARY
3972 pxid
= XRRGetOutputPrimary (dpy
, dpyinfo
->root_window
);
3975 for (i
= 0; i
< n_monitors
; ++i
)
3977 XRROutputInfo
*info
= XRRGetOutputInfo (dpy
, resources
,
3978 resources
->outputs
[i
]);
3979 Connection conn
= info
? info
->connection
: RR_Disconnected
;
3980 RRCrtc id
= info
? info
->crtc
: None
;
3982 if (strcmp (info
->name
, "default") == 0)
3984 /* Non XRandr 1.2 driver, does not give useful data. */
3985 XRRFreeOutputInfo (info
);
3986 XRRFreeScreenResources (resources
);
3987 free_monitors (monitors
, n_monitors
);
3991 if (conn
!= RR_Disconnected
&& id
!= None
)
3993 XRRCrtcInfo
*crtc
= XRRGetCrtcInfo (dpy
, resources
, id
);
3994 struct MonitorInfo
*mi
= &monitors
[i
];
3995 XRectangle workarea_r
;
3999 XRRFreeOutputInfo (info
);
4003 mi
->geom
.x
= crtc
->x
;
4004 mi
->geom
.y
= crtc
->y
;
4005 mi
->geom
.width
= crtc
->width
;
4006 mi
->geom
.height
= crtc
->height
;
4007 mi
->mm_width
= info
->mm_width
;
4008 mi
->mm_height
= info
->mm_height
;
4009 mi
->name
= xstrdup (info
->name
);
4011 if (pxid
!= None
&& pxid
== resources
->outputs
[i
])
4013 else if (primary
== -1 && strcmp (info
->name
, "LVDS") == 0)
4016 if (i
== primary
&& x_get_net_workarea (dpyinfo
, &workarea_r
))
4018 mi
->work
= workarea_r
;
4019 if (! x_intersect_rectangles (&mi
->geom
, &mi
->work
, &mi
->work
))
4020 mi
->work
= mi
->geom
;
4023 mi
->work
= mi
->geom
;
4025 XRRFreeCrtcInfo (crtc
);
4027 XRRFreeOutputInfo (info
);
4029 XRRFreeScreenResources (resources
);
4031 attributes_list
= x_make_monitor_attribute_list (monitors
,
4036 free_monitors (monitors
, n_monitors
);
4037 return attributes_list
;
4039 #endif /* HAVE_XRANDR */
4042 x_get_monitor_attributes (struct x_display_info
*dpyinfo
)
4044 Lisp_Object attributes_list
= Qnil
;
4045 Display
*dpy
= dpyinfo
->display
;
4047 (void) dpy
; /* Suppress unused variable warning. */
4050 int xrr_event_base
, xrr_error_base
;
4051 bool xrr_ok
= false;
4052 xrr_ok
= XRRQueryExtension (dpy
, &xrr_event_base
, &xrr_error_base
);
4055 int xrr_major
, xrr_minor
;
4056 XRRQueryVersion (dpy
, &xrr_major
, &xrr_minor
);
4057 xrr_ok
= (xrr_major
== 1 && xrr_minor
>= 2) || xrr_major
> 1;
4061 attributes_list
= x_get_monitor_attributes_xrandr (dpyinfo
);
4062 #endif /* HAVE_XRANDR */
4064 #ifdef HAVE_XINERAMA
4065 if (NILP (attributes_list
))
4067 int xin_event_base
, xin_error_base
;
4068 bool xin_ok
= false;
4069 xin_ok
= XineramaQueryExtension (dpy
, &xin_event_base
, &xin_error_base
);
4070 if (xin_ok
&& XineramaIsActive (dpy
))
4071 attributes_list
= x_get_monitor_attributes_xinerama (dpyinfo
);
4073 #endif /* HAVE_XINERAMA */
4075 if (NILP (attributes_list
))
4076 attributes_list
= x_get_monitor_attributes_fallback (dpyinfo
);
4078 return attributes_list
;
4081 #endif /* !USE_GTK */
4083 DEFUN ("x-display-monitor-attributes-list", Fx_display_monitor_attributes_list
,
4084 Sx_display_monitor_attributes_list
,
4086 doc
: /* Return a list of physical monitor attributes on the X display TERMINAL.
4088 The optional argument TERMINAL specifies which display to ask about.
4089 TERMINAL should be a terminal object, a frame or a display name (a string).
4090 If omitted or nil, that stands for the selected frame's display.
4092 In addition to the standard attribute keys listed in
4093 `display-monitor-attributes-list', the following keys are contained in
4096 source -- String describing the source from which multi-monitor
4097 information is obtained, one of \"Gdk\", \"XRandr\",
4098 \"Xinerama\", or \"fallback\"
4100 Internal use only, use `display-monitor-attributes-list' instead. */)
4101 (Lisp_Object terminal
)
4103 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4104 Lisp_Object attributes_list
= Qnil
;
4107 double mm_width_per_pixel
, mm_height_per_pixel
;
4110 gint primary_monitor
= 0, n_monitors
, i
;
4111 Lisp_Object monitor_frames
, rest
, frame
;
4112 static const char *source
= "Gdk";
4113 struct MonitorInfo
*monitors
;
4116 mm_width_per_pixel
= ((double) WidthMMOfScreen (dpyinfo
->screen
)
4117 / x_display_pixel_width (dpyinfo
));
4118 mm_height_per_pixel
= ((double) HeightMMOfScreen (dpyinfo
->screen
)
4119 / x_display_pixel_height (dpyinfo
));
4120 gdpy
= gdk_x11_lookup_xdisplay (dpyinfo
->display
);
4121 gscreen
= gdk_display_get_default_screen (gdpy
);
4122 #if GTK_CHECK_VERSION (2, 20, 0)
4123 primary_monitor
= gdk_screen_get_primary_monitor (gscreen
);
4125 n_monitors
= gdk_screen_get_n_monitors (gscreen
);
4126 monitor_frames
= Fmake_vector (make_number (n_monitors
), Qnil
);
4127 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
4129 FOR_EACH_FRAME (rest
, frame
)
4131 struct frame
*f
= XFRAME (frame
);
4133 if (FRAME_X_P (f
) && FRAME_DISPLAY_INFO (f
) == dpyinfo
4134 && !EQ (frame
, tip_frame
))
4136 GdkWindow
*gwin
= gtk_widget_get_window (FRAME_GTK_WIDGET (f
));
4138 i
= gdk_screen_get_monitor_at_window (gscreen
, gwin
);
4139 ASET (monitor_frames
, i
, Fcons (frame
, AREF (monitor_frames
, i
)));
4143 for (i
= 0; i
< n_monitors
; ++i
)
4145 gint width_mm
= -1, height_mm
= -1;
4146 GdkRectangle rec
, work
;
4147 struct MonitorInfo
*mi
= &monitors
[i
];
4149 gdk_screen_get_monitor_geometry (gscreen
, i
, &rec
);
4151 #if GTK_CHECK_VERSION (2, 14, 0)
4152 width_mm
= gdk_screen_get_monitor_width_mm (gscreen
, i
);
4153 height_mm
= gdk_screen_get_monitor_height_mm (gscreen
, i
);
4156 width_mm
= rec
.width
* mm_width_per_pixel
+ 0.5;
4158 height_mm
= rec
.height
* mm_height_per_pixel
+ 0.5;
4160 #if GTK_CHECK_VERSION (3, 4, 0)
4161 gdk_screen_get_monitor_workarea (gscreen
, i
, &work
);
4163 /* Emulate the behavior of GTK+ 3.4. */
4165 XRectangle workarea_r
;
4167 if (i
== primary_monitor
&& x_get_net_workarea (dpyinfo
, &workarea_r
))
4169 work
.x
= workarea_r
.x
;
4170 work
.y
= workarea_r
.y
;
4171 work
.width
= workarea_r
.width
;
4172 work
.height
= workarea_r
.height
;
4173 if (! gdk_rectangle_intersect (&rec
, &work
, &work
))
4184 mi
->geom
.width
= rec
.width
;
4185 mi
->geom
.height
= rec
.height
;
4186 mi
->work
.x
= work
.x
;
4187 mi
->work
.y
= work
.y
;
4188 mi
->work
.width
= work
.width
;
4189 mi
->work
.height
= work
.height
;
4190 mi
->mm_width
= width_mm
;
4191 mi
->mm_height
= height_mm
;
4193 #if GTK_CHECK_VERSION (2, 14, 0)
4194 mi
->name
= gdk_screen_get_monitor_plug_name (gscreen
, i
);
4198 attributes_list
= make_monitor_attribute_list (monitors
,
4204 #else /* not USE_GTK */
4207 attributes_list
= x_get_monitor_attributes (dpyinfo
);
4210 #endif /* not USE_GTK */
4212 return attributes_list
;
4215 /************************************************************************
4217 ************************************************************************/
4220 /* Mapping visual names to visuals. */
4222 static struct visual_class
4229 {"StaticGray", StaticGray
},
4230 {"GrayScale", GrayScale
},
4231 {"StaticColor", StaticColor
},
4232 {"PseudoColor", PseudoColor
},
4233 {"TrueColor", TrueColor
},
4234 {"DirectColor", DirectColor
},
4239 #ifndef HAVE_XSCREENNUMBEROFSCREEN
4241 /* Value is the screen number of screen SCR. This is a substitute for
4242 the X function with the same name when that doesn't exist. */
4245 XScreenNumberOfScreen (scr
)
4246 register Screen
*scr
;
4248 Display
*dpy
= scr
->display
;
4251 for (i
= 0; i
< dpy
->nscreens
; ++i
)
4252 if (scr
== dpy
->screens
+ i
)
4258 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
4261 /* Select the visual that should be used on display DPYINFO. Set
4262 members of DPYINFO appropriately. Called from x_term_init. */
4265 select_visual (struct x_display_info
*dpyinfo
)
4267 Display
*dpy
= dpyinfo
->display
;
4268 Screen
*screen
= dpyinfo
->screen
;
4271 /* See if a visual is specified. */
4272 value
= display_x_get_resource (dpyinfo
,
4273 build_string ("visualClass"),
4274 build_string ("VisualClass"),
4276 if (STRINGP (value
))
4278 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
4279 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4280 depth, a decimal number. NAME is compared with case ignored. */
4281 char *s
= alloca (SBYTES (value
) + 1);
4286 strcpy (s
, SSDATA (value
));
4287 dash
= strchr (s
, '-');
4290 dpyinfo
->n_planes
= atoi (dash
+ 1);
4294 /* We won't find a matching visual with depth 0, so that
4295 an error will be printed below. */
4296 dpyinfo
->n_planes
= 0;
4298 /* Determine the visual class. */
4299 for (i
= 0; visual_classes
[i
].name
; ++i
)
4300 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4302 class = visual_classes
[i
].class;
4306 /* Look up a matching visual for the specified class. */
4308 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4309 dpyinfo
->n_planes
, class, &vinfo
))
4310 fatal ("Invalid visual specification `%s'", SDATA (value
));
4312 dpyinfo
->visual
= vinfo
.visual
;
4317 XVisualInfo
*vinfo
, vinfo_template
;
4319 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4321 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4322 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4323 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4324 &vinfo_template
, &n_visuals
);
4326 fatal ("Can't get proper X visual info");
4328 dpyinfo
->n_planes
= vinfo
->depth
;
4334 /* Return the X display structure for the display named NAME.
4335 Open a new connection if necessary. */
4337 static struct x_display_info
*
4338 x_display_info_for_name (Lisp_Object name
)
4340 struct x_display_info
*dpyinfo
;
4342 CHECK_STRING (name
);
4344 for (dpyinfo
= x_display_list
; dpyinfo
; dpyinfo
= dpyinfo
->next
)
4345 if (!NILP (Fstring_equal (XCAR (dpyinfo
->name_list_element
), name
)))
4348 /* Use this general default value to start with. */
4349 Vx_resource_name
= Vinvocation_name
;
4351 validate_x_resource_name ();
4353 dpyinfo
= x_term_init (name
, 0, SSDATA (Vx_resource_name
));
4356 error ("Cannot connect to X server %s", SDATA (name
));
4358 XSETFASTINT (Vwindow_system_version
, 11);
4364 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4366 doc
: /* Open a connection to a display server.
4367 DISPLAY is the name of the display to connect to.
4368 Optional second arg XRM-STRING is a string of resources in xrdb format.
4369 If the optional third arg MUST-SUCCEED is non-nil,
4370 terminate Emacs if we can't open the connection.
4371 \(In the Nextstep version, the last two arguments are currently ignored.) */)
4372 (Lisp_Object display
, Lisp_Object xrm_string
, Lisp_Object must_succeed
)
4375 struct x_display_info
*dpyinfo
;
4377 CHECK_STRING (display
);
4378 if (! NILP (xrm_string
))
4379 CHECK_STRING (xrm_string
);
4381 xrm_option
= NILP (xrm_string
) ? 0 : SSDATA (xrm_string
);
4383 validate_x_resource_name ();
4385 /* This is what opens the connection and sets x_current_display.
4386 This also initializes many symbols, such as those used for input. */
4387 dpyinfo
= x_term_init (display
, xrm_option
,
4388 SSDATA (Vx_resource_name
));
4392 if (!NILP (must_succeed
))
4393 fatal ("Cannot connect to X server %s.\n\
4394 Check the DISPLAY environment variable or use `-d'.\n\
4395 Also use the `xauth' program to verify that you have the proper\n\
4396 authorization information needed to connect the X server.\n\
4397 An insecure way to solve the problem may be to use `xhost'.\n",
4400 error ("Cannot connect to X server %s", SDATA (display
));
4403 XSETFASTINT (Vwindow_system_version
, 11);
4407 DEFUN ("x-close-connection", Fx_close_connection
,
4408 Sx_close_connection
, 1, 1, 0,
4409 doc
: /* Close the connection to TERMINAL's X server.
4410 For TERMINAL, specify a terminal object, a frame or a display name (a
4411 string). If TERMINAL is nil, that stands for the selected frame's
4413 (Lisp_Object terminal
)
4415 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4417 if (dpyinfo
->reference_count
> 0)
4418 error ("Display still has frames on it");
4420 x_delete_terminal (dpyinfo
->terminal
);
4425 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4426 doc
: /* Return the list of display names that Emacs has connections to. */)
4429 Lisp_Object result
= Qnil
;
4430 struct x_display_info
*xdi
;
4432 for (xdi
= x_display_list
; xdi
; xdi
= xdi
->next
)
4433 result
= Fcons (XCAR (xdi
->name_list_element
), result
);
4438 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4439 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4440 This function only has an effect on X Windows. With MS Windows, it is
4441 defined but does nothing.
4443 If ON is nil, allow buffering of requests.
4444 Turning on synchronization prohibits the Xlib routines from buffering
4445 requests and seriously degrades performance, but makes debugging much
4447 The optional second argument TERMINAL specifies which display to act on.
4448 TERMINAL should be a terminal object, a frame or a display name (a string).
4449 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4450 (Lisp_Object on
, Lisp_Object terminal
)
4452 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4454 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4459 /* Wait for responses to all X commands issued so far for frame F. */
4462 x_sync (struct frame
*f
)
4465 XSync (FRAME_X_DISPLAY (f
), False
);
4470 /***********************************************************************
4472 ***********************************************************************/
4474 DEFUN ("x-change-window-property", Fx_change_window_property
,
4475 Sx_change_window_property
, 2, 6, 0,
4476 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4477 PROP must be a string. VALUE may be a string or a list of conses,
4478 numbers and/or strings. If an element in the list is a string, it is
4479 converted to an atom and the value of the atom is used. If an element
4480 is a cons, it is converted to a 32 bit number where the car is the 16
4481 top bits and the cdr is the lower 16 bits.
4483 FRAME nil or omitted means use the selected frame.
4484 If TYPE is given and non-nil, it is the name of the type of VALUE.
4485 If TYPE is not given or nil, the type is STRING.
4486 FORMAT gives the size in bits of each element if VALUE is a list.
4487 It must be one of 8, 16 or 32.
4488 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4489 If OUTER-P is non-nil, the property is changed for the outer X window of
4490 FRAME. Default is to change on the edit X window. */)
4491 (Lisp_Object prop
, Lisp_Object value
, Lisp_Object frame
,
4492 Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4494 struct frame
*f
= decode_window_system_frame (frame
);
4496 Atom target_type
= XA_STRING
;
4497 int element_format
= 8;
4498 unsigned char *data
;
4502 CHECK_STRING (prop
);
4504 if (! NILP (format
))
4506 CHECK_NUMBER (format
);
4508 if (XINT (format
) != 8 && XINT (format
) != 16
4509 && XINT (format
) != 32)
4510 error ("FORMAT must be one of 8, 16 or 32");
4511 element_format
= XINT (format
);
4518 nelements
= x_check_property_data (value
);
4519 if (nelements
== -1)
4520 error ("Bad data in VALUE, must be number, string or cons");
4522 /* The man page for XChangeProperty:
4523 "If the specified format is 32, the property data must be a
4525 This applies even if long is more than 32 bits. The X library
4526 converts to 32 bits before sending to the X server. */
4527 elsize
= element_format
== 32 ? sizeof (long) : element_format
>> 3;
4528 data
= xnmalloc_atomic (nelements
, elsize
);
4530 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4534 CHECK_STRING (value
);
4535 data
= SDATA (value
);
4536 if (INT_MAX
< SBYTES (value
))
4537 error ("VALUE too long");
4538 nelements
= SBYTES (value
);
4542 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4545 CHECK_STRING (type
);
4546 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4549 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4550 else w
= FRAME_X_WINDOW (f
);
4552 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4553 prop_atom
, target_type
, element_format
, PropModeReplace
,
4556 if (CONSP (value
)) xfree (data
);
4558 /* Make sure the property is set when we return. */
4559 XFlush (FRAME_X_DISPLAY (f
));
4566 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4567 Sx_delete_window_property
, 1, 2, 0,
4568 doc
: /* Remove window property PROP from X window of FRAME.
4569 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4570 (Lisp_Object prop
, Lisp_Object frame
)
4572 struct frame
*f
= decode_window_system_frame (frame
);
4575 CHECK_STRING (prop
);
4577 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4578 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4580 /* Make sure the property is removed when we return. */
4581 XFlush (FRAME_X_DISPLAY (f
));
4589 x_window_property_intern (struct frame
*f
,
4590 Window target_window
,
4593 Lisp_Object delete_p
,
4594 Lisp_Object vector_ret_p
,
4597 unsigned char *tmp_data
= NULL
;
4598 Lisp_Object prop_value
= Qnil
;
4601 unsigned long actual_size
, bytes_remaining
;
4603 struct gcpro gcpro1
;
4605 GCPRO1 (prop_value
);
4607 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4608 prop_atom
, 0, 0, False
, target_type
,
4609 &actual_type
, &actual_format
, &actual_size
,
4610 &bytes_remaining
, &tmp_data
);
4612 *found
= actual_format
!= 0;
4614 if (rc
== Success
&& *found
)
4619 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4620 prop_atom
, 0, bytes_remaining
,
4621 ! NILP (delete_p
), target_type
,
4622 &actual_type
, &actual_format
,
4623 &actual_size
, &bytes_remaining
,
4625 if (rc
== Success
&& tmp_data
)
4627 /* The man page for XGetWindowProperty says:
4628 "If the returned format is 32, the returned data is represented
4629 as a long array and should be cast to that type to obtain the
4631 This applies even if long is more than 32 bits, the X library
4632 converts from 32 bit elements received from the X server to long
4633 and passes the long array to us. Thus, for that case memcpy can not
4634 be used. We convert to a 32 bit type here, because so much code
4637 The bytes and offsets passed to XGetWindowProperty refers to the
4638 property and those are indeed in 32 bit quantities if format is
4641 if (BITS_PER_LONG
> 32 && actual_format
== 32)
4644 int *idata
= (int *) tmp_data
;
4645 long *ldata
= (long *) tmp_data
;
4647 for (i
= 0; i
< actual_size
; ++i
)
4648 idata
[i
] = (int) ldata
[i
];
4651 if (NILP (vector_ret_p
))
4652 prop_value
= make_string ((char *) tmp_data
, actual_size
);
4654 prop_value
= x_property_data_to_lisp (f
,
4661 if (tmp_data
) XFree (tmp_data
);
4668 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4670 doc
: /* Value is the value of window property PROP on FRAME.
4671 If FRAME is nil or omitted, use the selected frame.
4673 On X Windows, the following optional arguments are also accepted:
4674 If TYPE is nil or omitted, get the property as a string.
4675 Otherwise TYPE is the name of the atom that denotes the type expected.
4676 If SOURCE is non-nil, get the property on that window instead of from
4677 FRAME. The number 0 denotes the root window.
4678 If DELETE-P is non-nil, delete the property after retrieving it.
4679 If VECTOR-RET-P is non-nil, don't return a string but a vector of values.
4681 On MS Windows, this function accepts but ignores those optional arguments.
4683 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4684 no value of TYPE (always string in the MS Windows case). */)
4685 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
,
4686 Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4688 struct frame
*f
= decode_window_system_frame (frame
);
4690 Lisp_Object prop_value
= Qnil
;
4691 Atom target_type
= XA_STRING
;
4692 Window target_window
= FRAME_X_WINDOW (f
);
4693 struct gcpro gcpro1
;
4696 GCPRO1 (prop_value
);
4697 CHECK_STRING (prop
);
4699 if (! NILP (source
))
4701 CONS_TO_INTEGER (source
, Window
, target_window
);
4702 if (! target_window
)
4703 target_window
= FRAME_DISPLAY_INFO (f
)->root_window
;
4709 if (strcmp ("AnyPropertyType", SSDATA (type
)) == 0)
4710 target_type
= AnyPropertyType
;
4712 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4715 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4716 prop_value
= x_window_property_intern (f
,
4723 if (NILP (prop_value
)
4726 && target_window
!= FRAME_OUTER_WINDOW (f
))
4728 prop_value
= x_window_property_intern (f
,
4729 FRAME_OUTER_WINDOW (f
),
4745 /***********************************************************************
4747 ***********************************************************************/
4749 /* Timer function of hourglass_atimer. TIMER is equal to
4752 Display an hourglass pointer on all frames by mapping the frames'
4753 hourglass_window. Set the hourglass_p flag in the frames'
4754 output_data.x structure to indicate that an hourglass cursor is
4755 shown on the frames. */
4758 show_hourglass (struct atimer
*timer
)
4760 /* The timer implementation will cancel this timer automatically
4761 after this function has run. Set hourglass_atimer to null
4762 so that we know the timer doesn't have to be canceled. */
4763 hourglass_atimer
= NULL
;
4765 if (!hourglass_shown_p
)
4767 Lisp_Object rest
, frame
;
4771 FOR_EACH_FRAME (rest
, frame
)
4773 struct frame
*f
= XFRAME (frame
);
4775 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4777 Display
*dpy
= FRAME_X_DISPLAY (f
);
4779 #ifdef USE_X_TOOLKIT
4780 if (f
->output_data
.x
->widget
)
4782 if (FRAME_OUTER_WINDOW (f
))
4785 f
->output_data
.x
->hourglass_p
= 1;
4787 if (!f
->output_data
.x
->hourglass_window
)
4789 unsigned long mask
= CWCursor
;
4790 XSetWindowAttributes attrs
;
4792 Window parent
= FRAME_X_WINDOW (f
);
4794 Window parent
= FRAME_OUTER_WINDOW (f
);
4796 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4798 f
->output_data
.x
->hourglass_window
4799 = XCreateWindow (dpy
, parent
,
4800 0, 0, 32000, 32000, 0, 0,
4806 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4812 hourglass_shown_p
= 1;
4818 /* Hide the hourglass pointer on all frames, if it is currently
4822 hide_hourglass (void)
4824 if (hourglass_shown_p
)
4826 Lisp_Object rest
, frame
;
4829 FOR_EACH_FRAME (rest
, frame
)
4831 struct frame
*f
= XFRAME (frame
);
4834 /* Watch out for newly created frames. */
4835 && f
->output_data
.x
->hourglass_window
)
4837 XUnmapWindow (FRAME_X_DISPLAY (f
),
4838 f
->output_data
.x
->hourglass_window
);
4839 /* Sync here because XTread_socket looks at the
4840 hourglass_p flag that is reset to zero below. */
4841 XSync (FRAME_X_DISPLAY (f
), False
);
4842 f
->output_data
.x
->hourglass_p
= 0;
4846 hourglass_shown_p
= 0;
4853 /***********************************************************************
4855 ***********************************************************************/
4857 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4858 Lisp_Object
, Lisp_Object
);
4859 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4860 Lisp_Object
, int, int, int *, int *);
4862 /* The frame of a currently visible tooltip. */
4864 Lisp_Object tip_frame
;
4866 /* If non-nil, a timer started that hides the last tooltip when it
4869 static Lisp_Object tip_timer
;
4872 /* If non-nil, a vector of 3 elements containing the last args
4873 with which x-show-tip was called. See there. */
4875 static Lisp_Object last_show_tip_args
;
4879 unwind_create_tip_frame (Lisp_Object frame
)
4881 Lisp_Object deleted
;
4883 deleted
= unwind_create_frame (frame
);
4884 if (EQ (deleted
, Qt
))
4892 /* Create a frame for a tooltip on the display described by DPYINFO.
4893 PARMS is a list of frame parameters. TEXT is the string to
4894 display in the tip frame. Value is the frame.
4896 Note that functions called here, esp. x_default_parameter can
4897 signal errors, for instance when a specified color name is
4898 undefined. We have to make sure that we're in a consistent state
4899 when this happens. */
4902 x_create_tip_frame (struct x_display_info
*dpyinfo
,
4910 ptrdiff_t count
= SPECPDL_INDEX ();
4911 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4912 int face_change_count_before
= face_change_count
;
4914 struct buffer
*old_buffer
;
4916 if (!dpyinfo
->terminal
->name
)
4917 error ("Terminal is not live, can't create new frames on it");
4919 parms
= Fcopy_alist (parms
);
4921 /* Get the name of the frame to use for resource lookup. */
4922 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4924 && !EQ (name
, Qunbound
)
4926 error ("Invalid frame name--not a string or nil");
4929 GCPRO3 (parms
, name
, frame
);
4931 XSETFRAME (frame
, f
);
4933 buffer
= Fget_buffer_create (build_string (" *tip*"));
4934 /* Use set_window_buffer instead of Fset_window_buffer (see
4935 discussion of bug#11984, bug#12025, bug#12026). */
4936 set_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, 0, 0);
4937 old_buffer
= current_buffer
;
4938 set_buffer_internal_1 (XBUFFER (buffer
));
4939 bset_truncate_lines (current_buffer
, Qnil
);
4940 specbind (Qinhibit_read_only
, Qt
);
4941 specbind (Qinhibit_modification_hooks
, Qt
);
4944 set_buffer_internal_1 (old_buffer
);
4946 record_unwind_protect (unwind_create_tip_frame
, frame
);
4948 f
->terminal
= dpyinfo
->terminal
;
4950 /* By setting the output method, we're essentially saying that
4951 the frame is live, as per FRAME_LIVE_P. If we get a signal
4952 from this point on, x_destroy_window might screw up reference
4954 f
->output_method
= output_x_window
;
4955 f
->output_data
.x
= xzalloc (sizeof *f
->output_data
.x
);
4956 f
->output_data
.x
->icon_bitmap
= -1;
4957 FRAME_FONTSET (f
) = -1;
4958 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4959 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4960 #ifdef USE_TOOLKIT_SCROLL_BARS
4961 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4962 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4963 #endif /* USE_TOOLKIT_SCROLL_BARS */
4964 f
->output_data
.x
->white_relief
.pixel
= -1;
4965 f
->output_data
.x
->black_relief
.pixel
= -1;
4967 fset_icon_name (f
, Qnil
);
4968 FRAME_DISPLAY_INFO (f
) = dpyinfo
;
4969 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
4970 f
->output_data
.x
->explicit_parent
= 0;
4972 /* These colors will be set anyway later, but it's important
4973 to get the color reference counts right, so initialize them! */
4976 struct gcpro gcpro1
;
4978 /* Function x_decode_color can signal an error. Make
4979 sure to initialize color slots so that we won't try
4980 to free colors we haven't allocated. */
4981 FRAME_FOREGROUND_PIXEL (f
) = -1;
4982 FRAME_BACKGROUND_PIXEL (f
) = -1;
4983 f
->output_data
.x
->cursor_pixel
= -1;
4984 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4985 f
->output_data
.x
->border_pixel
= -1;
4986 f
->output_data
.x
->mouse_pixel
= -1;
4988 black
= build_string ("black");
4990 FRAME_FOREGROUND_PIXEL (f
)
4991 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4992 FRAME_BACKGROUND_PIXEL (f
)
4993 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4994 f
->output_data
.x
->cursor_pixel
4995 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4996 f
->output_data
.x
->cursor_foreground_pixel
4997 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4998 f
->output_data
.x
->border_pixel
4999 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
5000 f
->output_data
.x
->mouse_pixel
5001 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
5005 /* Set the name; the functions to which we pass f expect the name to
5007 if (EQ (name
, Qunbound
) || NILP (name
))
5009 fset_name (f
, build_string (dpyinfo
->x_id_name
));
5010 f
->explicit_name
= 0;
5014 fset_name (f
, name
);
5015 f
->explicit_name
= 1;
5016 /* use the frame's title when getting resources for this frame. */
5017 specbind (Qx_resource_name
, name
);
5020 register_font_driver (&xfont_driver
, f
);
5021 #ifdef HAVE_FREETYPE
5023 register_font_driver (&xftfont_driver
, f
);
5024 #else /* not HAVE_XFT */
5025 register_font_driver (&ftxfont_driver
, f
);
5026 #endif /* not HAVE_XFT */
5027 #endif /* HAVE_FREETYPE */
5029 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
5030 "fontBackend", "FontBackend", RES_TYPE_STRING
);
5032 /* Extract the window parameters from the supplied values that are
5033 needed to determine window geometry. */
5034 x_default_font_parameter (f
, parms
);
5036 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
5037 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
5039 /* This defaults to 2 in order to match xterm. We recognize either
5040 internalBorderWidth or internalBorder (which is what xterm calls
5042 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5046 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
5047 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
5048 if (! EQ (value
, Qunbound
))
5049 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
5053 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
5054 "internalBorderWidth", "internalBorderWidth",
5056 x_default_parameter (f
, parms
, Qright_divider_width
, make_number (0),
5057 NULL
, NULL
, RES_TYPE_NUMBER
);
5058 x_default_parameter (f
, parms
, Qbottom_divider_width
, make_number (0),
5059 NULL
, NULL
, RES_TYPE_NUMBER
);
5061 /* Also do the stuff which must be set before the window exists. */
5062 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
5063 "foreground", "Foreground", RES_TYPE_STRING
);
5064 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
5065 "background", "Background", RES_TYPE_STRING
);
5066 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
5067 "pointerColor", "Foreground", RES_TYPE_STRING
);
5068 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
5069 "cursorColor", "Foreground", RES_TYPE_STRING
);
5070 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
5071 "borderColor", "BorderColor", RES_TYPE_STRING
);
5074 image_cache_refcount
=
5075 FRAME_IMAGE_CACHE (f
) ? FRAME_IMAGE_CACHE (f
)->refcount
: 0;
5076 dpyinfo_refcount
= dpyinfo
->reference_count
;
5077 #endif /* GLYPH_DEBUG */
5079 /* Init faces before x_default_parameter is called for scroll-bar
5080 parameters because that function calls x_set_scroll_bar_width,
5081 which calls change_frame_size, which calls Fset_window_buffer,
5082 which runs hooks, which call Fvertical_motion. At the end, we
5083 end up in init_iterator with a null face cache, which should not
5085 init_frame_faces (f
);
5087 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
5089 x_figure_window_size (f
, parms
, 0);
5092 XSetWindowAttributes attrs
;
5094 Atom type
= FRAME_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
5097 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
5098 if (DoesSaveUnders (dpyinfo
->screen
))
5099 mask
|= CWSaveUnder
;
5101 /* Window managers look at the override-redirect flag to determine
5102 whether or net to give windows a decoration (Xlib spec, chapter
5104 attrs
.override_redirect
= True
;
5105 attrs
.save_under
= True
;
5106 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
5107 /* Arrange for getting MapNotify and UnmapNotify events. */
5108 attrs
.event_mask
= StructureNotifyMask
;
5110 = FRAME_X_WINDOW (f
)
5111 = XCreateWindow (FRAME_X_DISPLAY (f
),
5112 FRAME_DISPLAY_INFO (f
)->root_window
,
5113 /* x, y, width, height */
5117 CopyFromParent
, InputOutput
, CopyFromParent
,
5119 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
5120 FRAME_DISPLAY_INFO (f
)->Xatom_net_window_type
,
5121 XA_ATOM
, 32, PropModeReplace
,
5122 (unsigned char *)&type
, 1);
5128 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
5129 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
5130 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
5131 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
5132 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
5133 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
5135 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
5136 Change will not be effected unless different from the current
5138 width
= FRAME_COLS (f
);
5139 height
= FRAME_LINES (f
);
5140 SET_FRAME_COLS (f
, 0);
5141 FRAME_LINES (f
) = 0;
5142 change_frame_size (f
, width
, height
, 1, 0, 0, 0);
5144 /* Add `tooltip' frame parameter's default value. */
5145 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
5146 Fmodify_frame_parameters (frame
, list1 (Fcons (Qtooltip
, Qt
)));
5148 /* FIXME - can this be done in a similar way to normal frames?
5149 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
5151 /* Set the `display-type' frame parameter before setting up faces. */
5153 Lisp_Object disptype
;
5155 if (FRAME_DISPLAY_INFO (f
)->n_planes
== 1)
5156 disptype
= intern ("mono");
5157 else if (FRAME_DISPLAY_INFO (f
)->visual
->class == GrayScale
5158 || FRAME_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
5159 disptype
= intern ("grayscale");
5161 disptype
= intern ("color");
5163 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
5164 Fmodify_frame_parameters (frame
, list1 (Fcons (Qdisplay_type
, disptype
)));
5167 /* Set up faces after all frame parameters are known. This call
5168 also merges in face attributes specified for new frames.
5170 Frame parameters may be changed if .Xdefaults contains
5171 specifications for the default font. For example, if there is an
5172 `Emacs.default.attributeBackground: pink', the `background-color'
5173 attribute of the frame get's set, which let's the internal border
5174 of the tooltip frame appear in pink. Prevent this. */
5176 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
5178 /* Set tip_frame here, so that */
5180 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
5182 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
5183 Fmodify_frame_parameters (frame
, list1 (Fcons (Qbackground_color
, bg
)));
5190 /* Now that the frame will be official, it counts as a reference to
5191 its display and terminal. */
5192 FRAME_DISPLAY_INFO (f
)->reference_count
++;
5193 f
->terminal
->reference_count
++;
5195 /* It is now ok to make the frame official even if we get an error
5196 below. And the frame needs to be on Vframe_list or making it
5197 visible won't work. */
5198 Vframe_list
= Fcons (frame
, Vframe_list
);
5201 /* Setting attributes of faces of the tooltip frame from resources
5202 and similar will increment face_change_count, which leads to the
5203 clearing of all current matrices. Since this isn't necessary
5204 here, avoid it by resetting face_change_count to the value it
5205 had before we created the tip frame. */
5206 face_change_count
= face_change_count_before
;
5208 /* Discard the unwind_protect. */
5209 return unbind_to (count
, frame
);
5213 /* Compute where to display tip frame F. PARMS is the list of frame
5214 parameters for F. DX and DY are specified offsets from the current
5215 location of the mouse. WIDTH and HEIGHT are the width and height
5216 of the tooltip. Return coordinates relative to the root window of
5217 the display in *ROOT_X, and *ROOT_Y. */
5220 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
)
5222 Lisp_Object left
, top
;
5227 /* User-specified position? */
5228 left
= Fcdr (Fassq (Qleft
, parms
));
5229 top
= Fcdr (Fassq (Qtop
, parms
));
5231 /* Move the tooltip window where the mouse pointer is. Resize and
5233 if (!INTEGERP (left
) || !INTEGERP (top
))
5236 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_DISPLAY_INFO (f
)->root_window
,
5237 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
5242 *root_y
= XINT (top
);
5243 else if (*root_y
+ XINT (dy
) <= 0)
5244 *root_y
= 0; /* Can happen for negative dy */
5245 else if (*root_y
+ XINT (dy
) + height
5246 <= x_display_pixel_height (FRAME_DISPLAY_INFO (f
)))
5247 /* It fits below the pointer */
5248 *root_y
+= XINT (dy
);
5249 else if (height
+ XINT (dy
) <= *root_y
)
5250 /* It fits above the pointer. */
5251 *root_y
-= height
+ XINT (dy
);
5253 /* Put it on the top. */
5256 if (INTEGERP (left
))
5257 *root_x
= XINT (left
);
5258 else if (*root_x
+ XINT (dx
) <= 0)
5259 *root_x
= 0; /* Can happen for negative dx */
5260 else if (*root_x
+ XINT (dx
) + width
5261 <= x_display_pixel_width (FRAME_DISPLAY_INFO (f
)))
5262 /* It fits to the right of the pointer. */
5263 *root_x
+= XINT (dx
);
5264 else if (width
+ XINT (dx
) <= *root_x
)
5265 /* It fits to the left of the pointer. */
5266 *root_x
-= width
+ XINT (dx
);
5268 /* Put it left-justified on the screen--it ought to fit that way. */
5273 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5274 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5275 A tooltip window is a small X window displaying a string.
5277 This is an internal function; Lisp code should call `tooltip-show'.
5279 FRAME nil or omitted means use the selected frame.
5281 PARMS is an optional list of frame parameters which can be used to
5282 change the tooltip's appearance.
5284 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5285 means use the default timeout of 5 seconds.
5287 If the list of frame parameters PARMS contains a `left' parameters,
5288 the tooltip is displayed at that x-position. Otherwise it is
5289 displayed at the mouse position, with offset DX added (default is 5 if
5290 DX isn't specified). Likewise for the y-position; if a `top' frame
5291 parameter is specified, it determines the y-position of the tooltip
5292 window, otherwise it is displayed at the mouse position, with offset
5293 DY added (default is -10).
5295 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5296 Text larger than the specified size is clipped. */)
5297 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
5302 struct buffer
*old_buffer
;
5303 struct text_pos pos
;
5304 int i
, width
, height
, seen_reversed_p
;
5305 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5306 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5307 ptrdiff_t count
= SPECPDL_INDEX ();
5309 specbind (Qinhibit_redisplay
, Qt
);
5311 GCPRO4 (string
, parms
, frame
, timeout
);
5313 CHECK_STRING (string
);
5314 if (SCHARS (string
) == 0)
5315 string
= make_unibyte_string (" ", 1);
5317 f
= decode_window_system_frame (frame
);
5319 timeout
= make_number (5);
5321 CHECK_NATNUM (timeout
);
5324 dx
= make_number (5);
5329 dy
= make_number (-10);
5334 if (x_gtk_use_system_tooltips
)
5338 /* Hide a previous tip, if any. */
5342 ok
= xg_prepare_tooltip (f
, string
, &width
, &height
);
5345 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5346 xg_show_tooltip (f
, root_x
, root_y
);
5347 /* This is used in Fx_hide_tip. */
5348 XSETFRAME (tip_frame
, f
);
5351 if (ok
) goto start_timer
;
5353 #endif /* USE_GTK */
5355 if (NILP (last_show_tip_args
))
5356 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5358 if (!NILP (tip_frame
))
5360 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5361 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5362 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5364 if (EQ (frame
, last_frame
)
5365 && !NILP (Fequal (last_string
, string
))
5366 && !NILP (Fequal (last_parms
, parms
)))
5368 struct frame
*tip_f
= XFRAME (tip_frame
);
5370 /* Only DX and DY have changed. */
5371 if (!NILP (tip_timer
))
5373 Lisp_Object timer
= tip_timer
;
5375 call1 (Qcancel_timer
, timer
);
5379 compute_tip_xy (tip_f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (tip_f
),
5380 FRAME_PIXEL_HEIGHT (tip_f
), &root_x
, &root_y
);
5381 XMoveWindow (FRAME_X_DISPLAY (tip_f
), FRAME_X_WINDOW (tip_f
),
5388 /* Hide a previous tip, if any. */
5391 ASET (last_show_tip_args
, 0, string
);
5392 ASET (last_show_tip_args
, 1, frame
);
5393 ASET (last_show_tip_args
, 2, parms
);
5395 /* Add default values to frame parameters. */
5396 if (NILP (Fassq (Qname
, parms
)))
5397 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5398 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5399 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5400 if (NILP (Fassq (Qborder_width
, parms
)))
5401 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5402 if (NILP (Fassq (Qbottom_divider_width
, parms
)))
5403 parms
= Fcons (Fcons (Qbottom_divider_width
, make_number (0)), parms
);
5404 if (NILP (Fassq (Qright_divider_width
, parms
)))
5405 parms
= Fcons (Fcons (Qright_divider_width
, make_number (0)), parms
);
5406 if (NILP (Fassq (Qborder_color
, parms
)))
5407 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5408 if (NILP (Fassq (Qbackground_color
, parms
)))
5409 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5412 /* Create a frame for the tooltip, and record it in the global
5413 variable tip_frame. */
5414 frame
= x_create_tip_frame (FRAME_DISPLAY_INFO (f
), parms
, string
);
5417 /* Set up the frame's root window. */
5418 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5424 if (CONSP (Vx_max_tooltip_size
)
5425 && RANGED_INTEGERP (1, XCAR (Vx_max_tooltip_size
), INT_MAX
)
5426 && RANGED_INTEGERP (1, XCDR (Vx_max_tooltip_size
), INT_MAX
))
5428 w
->total_cols
= XFASTINT (XCAR (Vx_max_tooltip_size
));
5429 w
->total_lines
= XFASTINT (XCDR (Vx_max_tooltip_size
));
5434 w
->total_lines
= 40;
5437 w
->pixel_width
= w
->total_cols
* FRAME_COLUMN_WIDTH (f
);
5438 w
->pixel_height
= w
->total_lines
* FRAME_LINE_HEIGHT (f
);
5440 FRAME_TOTAL_COLS (f
) = w
->total_cols
;
5441 adjust_frame_glyphs (f
);
5442 w
->pseudo_window_p
= 1;
5444 /* Display the tooltip text in a temporary buffer. */
5445 old_buffer
= current_buffer
;
5446 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->contents
));
5447 bset_truncate_lines (current_buffer
, Qnil
);
5448 clear_glyph_matrix (w
->desired_matrix
);
5449 clear_glyph_matrix (w
->current_matrix
);
5450 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5451 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5453 /* Compute width and height of the tooltip. */
5454 width
= height
= seen_reversed_p
= 0;
5455 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5457 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5461 /* Stop at the first empty row at the end. */
5462 if (!row
->enabled_p
|| !MATRIX_ROW_DISPLAYS_TEXT_P (row
))
5465 /* Let the row go over the full width of the frame. */
5466 row
->full_width_p
= 1;
5468 row_width
= row
->pixel_width
;
5469 if (row
->used
[TEXT_AREA
])
5471 /* There's a glyph at the end of rows that is used to place
5472 the cursor there. Don't include the width of this glyph. */
5473 if (!row
->reversed_p
)
5475 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5476 if (INTEGERP (last
->object
))
5477 row_width
-= last
->pixel_width
;
5481 /* There could be a stretch glyph at the beginning of R2L
5482 rows that is produced by extend_face_to_end_of_line.
5483 Don't count that glyph. */
5484 struct glyph
*g
= row
->glyphs
[TEXT_AREA
];
5486 if (g
->type
== STRETCH_GLYPH
&& INTEGERP (g
->object
))
5488 row_width
-= g
->pixel_width
;
5489 seen_reversed_p
= 1;
5494 height
+= row
->height
;
5495 width
= max (width
, row_width
);
5498 /* If we've seen partial-length R2L rows, we need to re-adjust the
5499 tool-tip frame width and redisplay it again, to avoid over-wide
5500 tips due to the stretch glyph that extends R2L lines to full
5501 width of the frame. */
5502 if (seen_reversed_p
)
5504 /* w->total_cols and FRAME_TOTAL_COLS want the width in columns,
5506 w
->pixel_width
= width
;
5507 width
/= WINDOW_FRAME_COLUMN_WIDTH (w
);
5508 w
->total_cols
= width
;
5509 FRAME_TOTAL_COLS (f
) = width
;
5510 SET_FRAME_WIDTH (f
, width
);
5511 adjust_frame_glyphs (f
);
5512 clear_glyph_matrix (w
->desired_matrix
);
5513 clear_glyph_matrix (w
->current_matrix
);
5514 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5516 /* Recompute width and height of the tooltip. */
5517 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5519 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5523 if (!row
->enabled_p
|| !MATRIX_ROW_DISPLAYS_TEXT_P (row
))
5525 row
->full_width_p
= 1;
5526 row_width
= row
->pixel_width
;
5527 if (row
->used
[TEXT_AREA
] && !row
->reversed_p
)
5529 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5530 if (INTEGERP (last
->object
))
5531 row_width
-= last
->pixel_width
;
5534 height
+= row
->height
;
5535 width
= max (width
, row_width
);
5539 /* Add the frame's internal border to the width and height the X
5540 window should have. */
5541 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5542 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5544 /* Move the tooltip window where the mouse pointer is. Resize and
5546 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5549 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5550 root_x
, root_y
, width
, height
);
5551 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5554 /* Draw into the window. */
5555 w
->must_be_updated_p
= 1;
5556 update_single_window (w
, 1);
5558 /* Restore original current buffer. */
5559 set_buffer_internal_1 (old_buffer
);
5560 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5563 /* Let the tip disappear after timeout seconds. */
5564 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5565 intern ("x-hide-tip"));
5568 return unbind_to (count
, Qnil
);
5572 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5573 doc
: /* Hide the current tooltip window, if there is any.
5574 Value is t if tooltip was open, nil otherwise. */)
5578 Lisp_Object deleted
, frame
, timer
;
5579 struct gcpro gcpro1
, gcpro2
;
5581 /* Return quickly if nothing to do. */
5582 if (NILP (tip_timer
) && NILP (tip_frame
))
5587 GCPRO2 (frame
, timer
);
5588 tip_frame
= tip_timer
= deleted
= Qnil
;
5590 count
= SPECPDL_INDEX ();
5591 specbind (Qinhibit_redisplay
, Qt
);
5592 specbind (Qinhibit_quit
, Qt
);
5595 call1 (Qcancel_timer
, timer
);
5599 /* When using system tooltip, tip_frame is the Emacs frame on which
5600 the tip is shown. */
5601 struct frame
*f
= XFRAME (frame
);
5602 if (FRAME_LIVE_P (f
) && xg_hide_tooltip (f
))
5609 delete_frame (frame
, Qnil
);
5613 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5614 redisplay procedure is not called when a tip frame over menu
5615 items is unmapped. Redisplay the menu manually... */
5618 struct frame
*f
= SELECTED_FRAME ();
5619 w
= f
->output_data
.x
->menubar_widget
;
5621 if (!DoesSaveUnders (FRAME_DISPLAY_INFO (f
)->screen
)
5625 xlwmenu_redisplay (w
);
5629 #endif /* USE_LUCID */
5633 return unbind_to (count
, deleted
);
5638 /***********************************************************************
5639 File selection dialog
5640 ***********************************************************************/
5642 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5643 Sx_uses_old_gtk_dialog
,
5645 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5651 && window_system_available (SELECTED_FRAME ())
5652 && xg_uses_old_file_dialog ())
5660 /* Callback for "OK" and "Cancel" on file selection dialog. */
5663 file_dialog_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5665 int *result
= client_data
;
5666 XmAnyCallbackStruct
*cb
= call_data
;
5667 *result
= cb
->reason
;
5671 /* Callback for unmapping a file selection dialog. This is used to
5672 capture the case where a dialog is closed via a window manager's
5673 closer button, for example. Using a XmNdestroyCallback didn't work
5677 file_dialog_unmap_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5679 int *result
= client_data
;
5680 *result
= XmCR_CANCEL
;
5684 clean_up_file_dialog (void *arg
)
5686 Widget dialog
= arg
;
5690 XtUnmanageChild (dialog
);
5691 XtDestroyWidget (dialog
);
5692 x_menu_set_in_use (0);
5697 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5698 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5699 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5700 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5701 or directory must exist.
5703 This function is only defined on NS, MS Windows, and X Windows with the
5704 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5705 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5706 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
,
5707 Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5710 struct frame
*f
= SELECTED_FRAME ();
5711 Lisp_Object file
= Qnil
;
5712 Lisp_Object decoded_file
;
5713 Widget dialog
, text
, help
;
5716 XmString dir_xmstring
, pattern_xmstring
;
5717 ptrdiff_t count
= SPECPDL_INDEX ();
5718 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5720 check_window_system (f
);
5722 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5724 if (popup_activated ())
5725 error ("Trying to use a menu from within a menu-entry");
5727 CHECK_STRING (prompt
);
5730 /* Prevent redisplay. */
5731 specbind (Qinhibit_redisplay
, Qt
);
5735 /* Create the dialog with PROMPT as title, using DIR as initial
5736 directory and using "*" as pattern. */
5737 dir
= Fexpand_file_name (dir
, Qnil
);
5738 dir_xmstring
= XmStringCreateLocalized (SSDATA (dir
));
5739 pattern_xmstring
= XmStringCreateLocalized ("*");
5741 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5742 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5743 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5744 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5745 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5746 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5748 XmStringFree (dir_xmstring
);
5749 XmStringFree (pattern_xmstring
);
5751 /* Add callbacks for OK and Cancel. */
5752 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5753 (XtPointer
) &result
);
5754 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5755 (XtPointer
) &result
);
5756 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5757 (XtPointer
) &result
);
5759 /* Remove the help button since we can't display help. */
5760 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5761 XtUnmanageChild (help
);
5763 /* Mark OK button as default. */
5764 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5765 XmNshowAsDefault
, True
, NULL
);
5767 /* If MUSTMATCH is non-nil, disable the file entry field of the
5768 dialog, so that the user must select a file from the files list
5769 box. We can't remove it because we wouldn't have a way to get at
5770 the result file name, then. */
5771 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5772 if (!NILP (mustmatch
))
5775 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5776 XtSetSensitive (text
, False
);
5777 XtSetSensitive (label
, False
);
5780 /* Manage the dialog, so that list boxes get filled. */
5781 XtManageChild (dialog
);
5783 if (STRINGP (default_filename
))
5785 XmString default_xmstring
;
5786 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5787 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5789 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5790 XmTextFieldReplace (wtext
, 0, last_pos
,
5791 (SSDATA (Ffile_name_nondirectory (default_filename
))));
5793 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5794 must include the path for this to work. */
5796 default_xmstring
= XmStringCreateLocalized (SSDATA (default_filename
));
5798 if (XmListItemExists (list
, default_xmstring
))
5800 int item_pos
= XmListItemPos (list
, default_xmstring
);
5801 /* Select the item and scroll it into view. */
5802 XmListSelectPos (list
, item_pos
, True
);
5803 XmListSetPos (list
, item_pos
);
5806 XmStringFree (default_xmstring
);
5809 record_unwind_protect_ptr (clean_up_file_dialog
, dialog
);
5811 /* Process events until the user presses Cancel or OK. */
5812 x_menu_set_in_use (1);
5817 x_menu_wait_for_event (0);
5818 XtAppNextEvent (Xt_app_con
, &event
);
5819 if (event
.type
== KeyPress
5820 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5822 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5824 /* Pop down on C-g. */
5825 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5826 XtUnmanageChild (dialog
);
5829 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5832 /* Get the result. */
5833 if (result
== XmCR_OK
)
5835 XmString text_string
;
5838 XtVaGetValues (dialog
, XmNtextString
, &text_string
, NULL
);
5839 XmStringGetLtoR (text_string
, XmFONTLIST_DEFAULT_TAG
, &data
);
5840 XmStringFree (text_string
);
5841 file
= build_string (data
);
5850 /* Make "Cancel" equivalent to C-g. */
5852 Fsignal (Qquit
, Qnil
);
5854 decoded_file
= DECODE_FILE (file
);
5856 return unbind_to (count
, decoded_file
);
5859 #endif /* USE_MOTIF */
5864 clean_up_dialog (void)
5866 x_menu_set_in_use (0);
5869 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5870 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5871 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5872 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5873 or directory must exist.
5875 This function is only defined on NS, MS Windows, and X Windows with the
5876 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5877 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5878 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5880 struct frame
*f
= SELECTED_FRAME ();
5882 Lisp_Object file
= Qnil
;
5883 Lisp_Object decoded_file
;
5884 ptrdiff_t count
= SPECPDL_INDEX ();
5885 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5888 check_window_system (f
);
5890 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5892 if (popup_activated ())
5893 error ("Trying to use a menu from within a menu-entry");
5895 CHECK_STRING (prompt
);
5898 /* Prevent redisplay. */
5899 specbind (Qinhibit_redisplay
, Qt
);
5900 record_unwind_protect_void (clean_up_dialog
);
5904 if (STRINGP (default_filename
))
5905 cdef_file
= SSDATA (default_filename
);
5907 cdef_file
= SSDATA (dir
);
5909 fn
= xg_get_file_name (f
, SSDATA (prompt
), cdef_file
,
5911 ! NILP (only_dir_p
));
5915 file
= build_string (fn
);
5922 /* Make "Cancel" equivalent to C-g. */
5924 Fsignal (Qquit
, Qnil
);
5926 decoded_file
= DECODE_FILE (file
);
5928 return unbind_to (count
, decoded_file
);
5932 #ifdef HAVE_FREETYPE
5934 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5935 doc
: /* Read a font using a GTK dialog.
5936 Return either a font spec (for GTK versions >= 3.2) or a string
5937 containing a GTK-style font name.
5939 FRAME is the frame on which to pop up the font chooser. If omitted or
5940 nil, it defaults to the selected frame. */)
5941 (Lisp_Object frame
, Lisp_Object ignored
)
5943 struct frame
*f
= decode_window_system_frame (frame
);
5945 Lisp_Object font_param
;
5946 char *default_name
= NULL
;
5947 struct gcpro gcpro1
, gcpro2
;
5948 ptrdiff_t count
= SPECPDL_INDEX ();
5950 if (popup_activated ())
5951 error ("Trying to use a menu from within a menu-entry");
5953 /* Prevent redisplay. */
5954 specbind (Qinhibit_redisplay
, Qt
);
5955 record_unwind_protect_void (clean_up_dialog
);
5959 GCPRO2 (font_param
, font
);
5961 XSETFONT (font
, FRAME_FONT (f
));
5962 font_param
= Ffont_get (font
, intern (":name"));
5963 if (STRINGP (font_param
))
5964 default_name
= xstrdup (SSDATA (font_param
));
5967 font_param
= Fframe_parameter (frame
, Qfont_param
);
5968 if (STRINGP (font_param
))
5969 default_name
= xstrdup (SSDATA (font_param
));
5972 font
= xg_get_font (f
, default_name
);
5973 xfree (default_name
);
5978 Fsignal (Qquit
, Qnil
);
5980 return unbind_to (count
, font
);
5982 #endif /* HAVE_FREETYPE */
5984 #endif /* USE_GTK */
5987 /***********************************************************************
5989 ***********************************************************************/
5992 #include <X11/XKBlib.h>
5993 #include <X11/keysym.h>
5996 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5997 Sx_backspace_delete_keys_p
, 0, 1, 0,
5998 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5999 FRAME nil means use the selected frame.
6000 Value is t if we know that both keys are present, and are mapped to the
6001 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
6002 present and mapped to the usual X keysyms. */)
6009 struct frame
*f
= decode_window_system_frame (frame
);
6010 Display
*dpy
= FRAME_X_DISPLAY (f
);
6011 Lisp_Object have_keys
;
6012 int major
, minor
, op
, event
, error_code
;
6016 /* Check library version in case we're dynamically linked. */
6017 major
= XkbMajorVersion
;
6018 minor
= XkbMinorVersion
;
6019 if (!XkbLibraryVersion (&major
, &minor
))
6025 /* Check that the server supports XKB. */
6026 major
= XkbMajorVersion
;
6027 minor
= XkbMinorVersion
;
6028 if (!XkbQueryExtension (dpy
, &op
, &event
, &error_code
, &major
, &minor
))
6034 /* In this code we check that the keyboard has physical keys with names
6035 that start with BKSP (Backspace) and DELE (Delete), and that they
6036 generate keysym XK_BackSpace and XK_Delete respectively.
6037 This function is used to test if normal-erase-is-backspace should be
6039 An alternative approach would be to just check if XK_BackSpace and
6040 XK_Delete are mapped to any key. But if any of those are mapped to
6041 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
6042 user doesn't know about it, it is better to return false here.
6043 It is more obvious to the user what to do if she/he has two keys
6044 clearly marked with names/symbols and one key does something not
6045 expected (i.e. she/he then tries the other).
6046 The cases where Backspace/Delete is mapped to some other key combination
6047 are rare, and in those cases, normal-erase-is-backspace can be turned on
6051 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
6054 int delete_keycode
= 0, backspace_keycode
= 0, i
;
6056 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
6058 for (i
= kb
->min_key_code
;
6059 (i
< kb
->max_key_code
6060 && (delete_keycode
== 0 || backspace_keycode
== 0));
6063 /* The XKB symbolic key names can be seen most easily in
6064 the PS file generated by `xkbprint -label name
6066 if (memcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
6068 else if (memcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
6069 backspace_keycode
= i
;
6072 XkbFreeNames (kb
, 0, True
);
6075 XkbFreeClientMap (kb
, 0, True
);
6078 && backspace_keycode
6079 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
6080 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
6090 /***********************************************************************
6092 ***********************************************************************/
6094 /* Keep this list in the same order as frame_parms in frame.c.
6095 Use 0 for unsupported frame parameters. */
6097 frame_parm_handler x_frame_parm_handlers
[] =
6101 x_set_background_color
,
6107 x_set_foreground_color
,
6110 x_set_internal_border_width
,
6111 x_set_right_divider_width
,
6112 x_set_bottom_divider_width
,
6113 x_set_menu_bar_lines
,
6115 x_explicitly_set_name
,
6116 x_set_scroll_bar_width
,
6119 x_set_vertical_scroll_bars
,
6121 x_set_tool_bar_lines
,
6122 x_set_scroll_bar_foreground
,
6123 x_set_scroll_bar_background
,
6133 x_set_tool_bar_position
,
6139 DEFSYM (Qundefined_color
, "undefined-color");
6140 DEFSYM (Qcompound_text
, "compound-text");
6141 DEFSYM (Qcancel_timer
, "cancel-timer");
6142 DEFSYM (Qfont_param
, "font-parameter");
6144 Fput (Qundefined_color
, Qerror_conditions
,
6145 listn (CONSTYPE_PURE
, 2, Qundefined_color
, Qerror
));
6146 Fput (Qundefined_color
, Qerror_message
,
6147 build_pure_c_string ("Undefined color"));
6149 DEFVAR_LISP ("x-pointer-shape", Vx_pointer_shape
,
6150 doc
: /* The shape of the pointer when over text.
6151 Changing the value does not affect existing frames
6152 unless you set the mouse color. */);
6153 Vx_pointer_shape
= Qnil
;
6155 #if 0 /* This doesn't really do anything. */
6156 DEFVAR_LISP ("x-nontext-pointer-shape", Vx_nontext_pointer_shape
,
6157 doc
: /* The shape of the pointer when not over text.
6158 This variable takes effect when you create a new frame
6159 or when you set the mouse color. */);
6161 Vx_nontext_pointer_shape
= Qnil
;
6163 DEFVAR_LISP ("x-hourglass-pointer-shape", Vx_hourglass_pointer_shape
,
6164 doc
: /* The shape of the pointer when Emacs is busy.
6165 This variable takes effect when you create a new frame
6166 or when you set the mouse color. */);
6167 Vx_hourglass_pointer_shape
= Qnil
;
6169 #if 0 /* This doesn't really do anything. */
6170 DEFVAR_LISP ("x-mode-pointer-shape", Vx_mode_pointer_shape
,
6171 doc
: /* The shape of the pointer when over the mode line.
6172 This variable takes effect when you create a new frame
6173 or when you set the mouse color. */);
6175 Vx_mode_pointer_shape
= Qnil
;
6177 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
6178 Vx_sensitive_text_pointer_shape
,
6179 doc
: /* The shape of the pointer when over mouse-sensitive text.
6180 This variable takes effect when you create a new frame
6181 or when you set the mouse color. */);
6182 Vx_sensitive_text_pointer_shape
= Qnil
;
6184 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
6185 Vx_window_horizontal_drag_shape
,
6186 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
6187 This variable takes effect when you create a new frame
6188 or when you set the mouse color. */);
6189 Vx_window_horizontal_drag_shape
= Qnil
;
6191 DEFVAR_LISP ("x-window-vertical-drag-cursor",
6192 Vx_window_vertical_drag_shape
,
6193 doc
: /* Pointer shape to use for indicating a window can be dragged vertically.
6194 This variable takes effect when you create a new frame
6195 or when you set the mouse color. */);
6196 Vx_window_vertical_drag_shape
= Qnil
;
6198 DEFVAR_LISP ("x-cursor-fore-pixel", Vx_cursor_fore_pixel
,
6199 doc
: /* A string indicating the foreground color of the cursor box. */);
6200 Vx_cursor_fore_pixel
= Qnil
;
6202 DEFVAR_LISP ("x-max-tooltip-size", Vx_max_tooltip_size
,
6203 doc
: /* Maximum size for tooltips.
6204 Value is a pair (COLUMNS . ROWS). Text larger than this is clipped. */);
6205 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
6207 DEFVAR_LISP ("x-no-window-manager", Vx_no_window_manager
,
6208 doc
: /* Non-nil if no X window manager is in use.
6209 Emacs doesn't try to figure this out; this is always nil
6210 unless you set it to something else. */);
6211 /* We don't have any way to find this out, so set it to nil
6212 and maybe the user would like to set it to t. */
6213 Vx_no_window_manager
= Qnil
;
6215 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
6216 Vx_pixel_size_width_font_regexp
,
6217 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
6219 Since Emacs gets width of a font matching with this regexp from
6220 PIXEL_SIZE field of the name, font finding mechanism gets faster for
6221 such a font. This is especially effective for such large fonts as
6222 Chinese, Japanese, and Korean. */);
6223 Vx_pixel_size_width_font_regexp
= Qnil
;
6225 /* This is not ifdef:ed, so other builds than GTK can customize it. */
6226 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", x_gtk_use_old_file_dialog
,
6227 doc
: /* Non-nil means prompt with the old GTK file selection dialog.
6228 If nil or if the file selection dialog is not available, the new GTK file
6229 chooser is used instead. To turn off all file dialogs set the
6230 variable `use-file-dialog'. */);
6231 x_gtk_use_old_file_dialog
= 0;
6233 DEFVAR_BOOL ("x-gtk-show-hidden-files", x_gtk_show_hidden_files
,
6234 doc
: /* If non-nil, the GTK file chooser will by default show hidden files.
6235 Note that this is just the default, there is a toggle button on the file
6236 chooser to show or not show hidden files on a case by case basis. */);
6237 x_gtk_show_hidden_files
= 0;
6239 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", x_gtk_file_dialog_help_text
,
6240 doc
: /* If non-nil, the GTK file chooser will show additional help text.
6241 If more space for files in the file chooser dialog is wanted, set this to nil
6242 to turn the additional text off. */);
6243 x_gtk_file_dialog_help_text
= 1;
6245 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", x_gtk_whole_detached_tool_bar
,
6246 doc
: /* If non-nil, a detached tool bar is shown in full.
6247 The default is to just show an arrow and pressing on that arrow shows
6248 the tool bar buttons. */);
6249 x_gtk_whole_detached_tool_bar
= 0;
6251 DEFVAR_BOOL ("x-gtk-use-system-tooltips", x_gtk_use_system_tooltips
,
6252 doc
: /* If non-nil with a Gtk+ built Emacs, the Gtk+ tooltip is used.
6253 Otherwise use Emacs own tooltip implementation.
6254 When using Gtk+ tooltips, the tooltip face is not used. */);
6255 x_gtk_use_system_tooltips
= 1;
6257 /* Tell Emacs about this window system. */
6258 Fprovide (Qx
, Qnil
);
6260 #ifdef USE_X_TOOLKIT
6261 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6263 Fprovide (intern_c_string ("motif"), Qnil
);
6265 DEFVAR_LISP ("motif-version-string", Vmotif_version_string
,
6266 doc
: /* Version info for LessTif/Motif. */);
6267 Vmotif_version_string
= build_string (XmVERSION_STRING
);
6268 #endif /* USE_MOTIF */
6269 #endif /* USE_X_TOOLKIT */
6272 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
6273 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
6274 But for a user it is a toolkit for X, and indeed, configure
6275 accepts --with-x-toolkit=gtk. */
6276 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6277 Fprovide (intern_c_string ("gtk"), Qnil
);
6278 Fprovide (intern_c_string ("move-toolbar"), Qnil
);
6280 DEFVAR_LISP ("gtk-version-string", Vgtk_version_string
,
6281 doc
: /* Version info for GTK+. */);
6283 char gtk_version
[sizeof ".." + 3 * INT_STRLEN_BOUND (int)];
6284 int len
= sprintf (gtk_version
, "%d.%d.%d",
6285 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
6286 Vgtk_version_string
= make_pure_string (gtk_version
, len
, len
, 0);
6288 #endif /* USE_GTK */
6290 /* X window properties. */
6291 defsubr (&Sx_change_window_property
);
6292 defsubr (&Sx_delete_window_property
);
6293 defsubr (&Sx_window_property
);
6295 defsubr (&Sxw_display_color_p
);
6296 defsubr (&Sx_display_grayscale_p
);
6297 defsubr (&Sxw_color_defined_p
);
6298 defsubr (&Sxw_color_values
);
6299 defsubr (&Sx_server_max_request_size
);
6300 defsubr (&Sx_server_vendor
);
6301 defsubr (&Sx_server_version
);
6302 defsubr (&Sx_display_pixel_width
);
6303 defsubr (&Sx_display_pixel_height
);
6304 defsubr (&Sx_display_mm_width
);
6305 defsubr (&Sx_display_mm_height
);
6306 defsubr (&Sx_display_screens
);
6307 defsubr (&Sx_display_planes
);
6308 defsubr (&Sx_display_color_cells
);
6309 defsubr (&Sx_display_visual_class
);
6310 defsubr (&Sx_display_backing_store
);
6311 defsubr (&Sx_display_save_under
);
6312 defsubr (&Sx_display_monitor_attributes_list
);
6313 defsubr (&Sx_wm_set_size_hint
);
6314 defsubr (&Sx_create_frame
);
6315 defsubr (&Sx_open_connection
);
6316 defsubr (&Sx_close_connection
);
6317 defsubr (&Sx_display_list
);
6318 defsubr (&Sx_synchronize
);
6319 defsubr (&Sx_backspace_delete_keys_p
);
6321 defsubr (&Sx_show_tip
);
6322 defsubr (&Sx_hide_tip
);
6324 staticpro (&tip_timer
);
6326 staticpro (&tip_frame
);
6328 last_show_tip_args
= Qnil
;
6329 staticpro (&last_show_tip_args
);
6331 defsubr (&Sx_uses_old_gtk_dialog
);
6332 #if defined (USE_MOTIF) || defined (USE_GTK)
6333 defsubr (&Sx_file_dialog
);
6336 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
6337 defsubr (&Sx_select_font
);