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;
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
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
);
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
;
3322 /* FRAME is used only to get a handle on the X display. We don't pass the
3323 display info directly because we're called from frame.c, which doesn't
3324 know about that structure. */
3327 x_get_focus_frame (struct frame
*frame
)
3329 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (frame
);
3331 if (! dpyinfo
->x_focus_frame
)
3334 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3339 /* In certain situations, when the window manager follows a
3340 click-to-focus policy, there seems to be no way around calling
3341 XSetInputFocus to give another frame the input focus .
3343 In an ideal world, XSetInputFocus should generally be avoided so
3344 that applications don't interfere with the window manager's focus
3345 policy. But I think it's okay to use when it's clearly done
3346 following a user-command. */
3349 x_focus_frame (struct frame
*f
)
3351 Display
*dpy
= FRAME_X_DISPLAY (f
);
3354 x_catch_errors (dpy
);
3356 if (FRAME_X_EMBEDDED_P (f
))
3358 /* For Xembedded frames, normally the embedder forwards key
3359 events. See XEmbed Protocol Specification at
3360 http://freedesktop.org/wiki/Specifications/xembed-spec */
3361 xembed_request_focus (f
);
3365 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3366 RevertToParent
, CurrentTime
);
3367 x_ewmh_activate_frame (f
);
3370 x_uncatch_errors ();
3375 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3376 doc
: /* Internal function called by `color-defined-p', which see
3377 .\(Note that the Nextstep version of this function ignores FRAME.) */)
3378 (Lisp_Object color
, Lisp_Object frame
)
3381 struct frame
*f
= decode_window_system_frame (frame
);
3383 CHECK_STRING (color
);
3385 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3391 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3392 doc
: /* Internal function called by `color-values', which see. */)
3393 (Lisp_Object color
, Lisp_Object frame
)
3396 struct frame
*f
= decode_window_system_frame (frame
);
3398 CHECK_STRING (color
);
3400 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3401 return list3i (foo
.red
, foo
.green
, foo
.blue
);
3406 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3407 doc
: /* Internal function called by `display-color-p', which see. */)
3408 (Lisp_Object terminal
)
3410 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3412 if (dpyinfo
->n_planes
<= 2)
3415 switch (dpyinfo
->visual
->class)
3428 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3430 doc
: /* Return t if the X display supports shades of gray.
3431 Note that color displays do support shades of gray.
3432 The optional argument TERMINAL specifies which display to ask about.
3433 TERMINAL should be a terminal object, a frame or a display name (a string).
3434 If omitted or nil, that stands for the selected frame's display. */)
3435 (Lisp_Object terminal
)
3437 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3439 if (dpyinfo
->n_planes
<= 1)
3442 switch (dpyinfo
->visual
->class)
3457 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3459 doc
: /* Return the width in pixels of the X display TERMINAL.
3460 The optional argument TERMINAL specifies which display to ask about.
3461 TERMINAL should be a terminal object, a frame or a display name (a string).
3462 If omitted or nil, that stands for the selected frame's display.
3464 On \"multi-monitor\" setups this refers to the pixel width for all
3465 physical monitors associated with TERMINAL. To get information for
3466 each physical monitor, use `display-monitor-attributes-list'. */)
3467 (Lisp_Object terminal
)
3469 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3471 return make_number (x_display_pixel_width (dpyinfo
));
3474 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3475 Sx_display_pixel_height
, 0, 1, 0,
3476 doc
: /* Return the height in pixels of the X display TERMINAL.
3477 The optional argument TERMINAL specifies which display to ask about.
3478 TERMINAL should be a terminal object, a frame or a display name (a string).
3479 If omitted or nil, that stands for the selected frame's display.
3481 On \"multi-monitor\" setups this refers to the pixel height for all
3482 physical monitors associated with TERMINAL. To get information for
3483 each physical monitor, use `display-monitor-attributes-list'. */)
3484 (Lisp_Object terminal
)
3486 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3488 return make_number (x_display_pixel_height (dpyinfo
));
3491 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3493 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3494 The optional argument TERMINAL specifies which display to ask about.
3495 TERMINAL should be a terminal object, a frame or a display name (a string).
3496 If omitted or nil, that stands for the selected frame's display. */)
3497 (Lisp_Object terminal
)
3499 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3501 return make_number (dpyinfo
->n_planes
);
3504 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3506 doc
: /* Return the number of color cells of the X display TERMINAL.
3507 The optional argument TERMINAL specifies which display to ask about.
3508 TERMINAL should be a terminal object, a frame or a display name (a string).
3509 If omitted or nil, that stands for the selected frame's display. */)
3510 (Lisp_Object terminal
)
3512 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3514 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3515 XScreenNumberOfScreen (dpyinfo
->screen
));
3517 /* Truncate nr_planes to 24 to avoid integer overflow.
3518 Some displays says 32, but only 24 bits are actually significant.
3519 There are only very few and rare video cards that have more than
3520 24 significant bits. Also 24 bits is more than 16 million colors,
3521 it "should be enough for everyone". */
3522 if (nr_planes
> 24) nr_planes
= 24;
3524 return make_number (1 << nr_planes
);
3527 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3528 Sx_server_max_request_size
,
3530 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3531 The optional argument TERMINAL specifies which display to ask about.
3532 TERMINAL should be a terminal object, a frame or a display name (a string).
3533 If omitted or nil, that stands for the selected frame's display. */)
3534 (Lisp_Object terminal
)
3536 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3538 return make_number (MAXREQUEST (dpyinfo
->display
));
3541 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3542 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3543 \(Labeling every distributor as a "vendor" embodies the false assumption
3544 that operating systems cannot be developed and distributed noncommercially.)
3545 The optional argument TERMINAL specifies which display to ask about.
3546 TERMINAL should be a terminal object, a frame or a display name (a string).
3547 If omitted or nil, that stands for the selected frame's display. */)
3548 (Lisp_Object terminal
)
3550 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3551 const char *vendor
= ServerVendor (dpyinfo
->display
);
3553 if (! vendor
) vendor
= "";
3554 return build_string (vendor
);
3557 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3558 doc
: /* Return the version numbers of the X server of display TERMINAL.
3559 The value is a list of three integers: the major and minor
3560 version numbers of the X Protocol in use, and the distributor-specific release
3561 number. See also the function `x-server-vendor'.
3563 The optional argument TERMINAL specifies which display to ask about.
3564 TERMINAL should be a terminal object, a frame or a display name (a string).
3565 If omitted or nil, that stands for the selected frame's display. */)
3566 (Lisp_Object terminal
)
3568 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3569 Display
*dpy
= dpyinfo
->display
;
3571 return list3i (ProtocolVersion (dpy
), ProtocolRevision (dpy
),
3572 VendorRelease (dpy
));
3575 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3576 doc
: /* Return the number of screens on the X server of display TERMINAL.
3577 The optional argument TERMINAL specifies which display to ask about.
3578 TERMINAL should be a terminal object, a frame or a display name (a string).
3579 If omitted or nil, that stands for the selected frame's display. */)
3580 (Lisp_Object terminal
)
3582 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3584 return make_number (ScreenCount (dpyinfo
->display
));
3587 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3588 doc
: /* Return the height in millimeters of the X display TERMINAL.
3589 The optional argument TERMINAL specifies which display to ask about.
3590 TERMINAL should be a terminal object, a frame or a display name (a string).
3591 If omitted or nil, that stands for the selected frame's display.
3593 On \"multi-monitor\" setups this refers to the height in millimeters for
3594 all physical monitors associated with TERMINAL. To get information
3595 for each physical monitor, use `display-monitor-attributes-list'. */)
3596 (Lisp_Object terminal
)
3598 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3600 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3603 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3604 doc
: /* Return the width in millimeters of the X display TERMINAL.
3605 The optional argument TERMINAL specifies which display to ask about.
3606 TERMINAL should be a terminal object, a frame or a display name (a string).
3607 If omitted or nil, that stands for the selected frame's display.
3609 On \"multi-monitor\" setups this refers to the width in millimeters for
3610 all physical monitors associated with TERMINAL. To get information
3611 for each physical monitor, use `display-monitor-attributes-list'. */)
3612 (Lisp_Object terminal
)
3614 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3616 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3619 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3620 Sx_display_backing_store
, 0, 1, 0,
3621 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3622 The value may be `always', `when-mapped', or `not-useful'.
3623 The optional argument TERMINAL specifies which display to ask about.
3624 TERMINAL should be a terminal object, a frame or a display name (a string).
3625 If omitted or nil, that stands for the selected frame's display. */)
3626 (Lisp_Object terminal
)
3628 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3631 switch (DoesBackingStore (dpyinfo
->screen
))
3634 result
= intern ("always");
3638 result
= intern ("when-mapped");
3642 result
= intern ("not-useful");
3646 error ("Strange value for BackingStore parameter of screen");
3652 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3653 Sx_display_visual_class
, 0, 1, 0,
3654 doc
: /* Return the visual class of the X display TERMINAL.
3655 The value is one of the symbols `static-gray', `gray-scale',
3656 `static-color', `pseudo-color', `true-color', or `direct-color'.
3658 The optional argument TERMINAL specifies which display to ask about.
3659 TERMINAL should a terminal object, a frame or a display name (a string).
3660 If omitted or nil, that stands for the selected frame's display. */)
3661 (Lisp_Object terminal
)
3663 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3666 switch (dpyinfo
->visual
->class)
3669 result
= intern ("static-gray");
3672 result
= intern ("gray-scale");
3675 result
= intern ("static-color");
3678 result
= intern ("pseudo-color");
3681 result
= intern ("true-color");
3684 result
= intern ("direct-color");
3687 error ("Display has an unknown visual class");
3693 DEFUN ("x-display-save-under", Fx_display_save_under
,
3694 Sx_display_save_under
, 0, 1, 0,
3695 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3696 The optional argument TERMINAL specifies which display to ask about.
3697 TERMINAL should be a terminal object, a frame or a display name (a string).
3698 If omitted or nil, that stands for the selected frame's display. */)
3699 (Lisp_Object terminal
)
3701 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3703 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3709 /* Store the geometry of the workarea on display DPYINFO into *RECT.
3710 Return false if and only if the workarea information cannot be
3711 obtained via the _NET_WORKAREA root window property. */
3713 #if ! GTK_CHECK_VERSION (3, 4, 0)
3715 x_get_net_workarea (struct x_display_info
*dpyinfo
, XRectangle
*rect
)
3717 Display
*dpy
= dpyinfo
->display
;
3718 long offset
, max_len
;
3719 Atom target_type
, actual_type
;
3720 unsigned long actual_size
, bytes_remaining
;
3721 int rc
, actual_format
;
3722 unsigned char *tmp_data
= NULL
;
3723 bool result
= false;
3725 x_catch_errors (dpy
);
3728 target_type
= XA_CARDINAL
;
3729 rc
= XGetWindowProperty (dpy
, dpyinfo
->root_window
,
3730 dpyinfo
->Xatom_net_current_desktop
,
3731 offset
, max_len
, False
, target_type
,
3732 &actual_type
, &actual_format
, &actual_size
,
3733 &bytes_remaining
, &tmp_data
);
3734 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
3735 && actual_format
== 32 && actual_size
== max_len
)
3737 long current_desktop
= ((long *) tmp_data
)[0];
3742 offset
= 4 * current_desktop
;
3744 rc
= XGetWindowProperty (dpy
, dpyinfo
->root_window
,
3745 dpyinfo
->Xatom_net_workarea
,
3746 offset
, max_len
, False
, target_type
,
3747 &actual_type
, &actual_format
, &actual_size
,
3748 &bytes_remaining
, &tmp_data
);
3749 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
3750 && actual_format
== 32 && actual_size
== max_len
)
3752 long *values
= (long *) tmp_data
;
3754 rect
->x
= values
[0];
3755 rect
->y
= values
[1];
3756 rect
->width
= values
[2];
3757 rect
->height
= values
[3];
3767 x_uncatch_errors ();
3775 /* Return monitor number where F is "most" or closest to. */
3777 x_get_monitor_for_frame (struct frame
*f
,
3778 struct MonitorInfo
*monitors
,
3782 int area
= 0, dist
= -1;
3783 int best_area
= -1, best_dist
= -1;
3786 if (n_monitors
== 1) return 0;
3787 frect
.x
= f
->left_pos
;
3788 frect
.y
= f
->top_pos
;
3789 frect
.width
= FRAME_PIXEL_WIDTH (f
);
3790 frect
.height
= FRAME_PIXEL_HEIGHT (f
);
3792 for (i
= 0; i
< n_monitors
; ++i
)
3794 struct MonitorInfo
*mi
= &monitors
[i
];
3798 if (mi
->geom
.width
== 0) continue;
3800 if (x_intersect_rectangles (&mi
->geom
, &frect
, &res
))
3802 a
= res
.width
* res
.height
;
3810 if (a
== 0 && area
== 0)
3813 if (frect
.x
+ frect
.width
< mi
->geom
.x
)
3814 dx
= mi
->geom
.x
- frect
.x
+ frect
.width
;
3815 else if (frect
.x
> mi
->geom
.x
+ mi
->geom
.width
)
3816 dx
= frect
.x
- mi
->geom
.x
+ mi
->geom
.width
;
3819 if (frect
.y
+ frect
.height
< mi
->geom
.y
)
3820 dy
= mi
->geom
.y
- frect
.y
+ frect
.height
;
3821 else if (frect
.y
> mi
->geom
.y
+ mi
->geom
.height
)
3822 dy
= frect
.y
- mi
->geom
.y
+ mi
->geom
.height
;
3827 if (dist
== -1 || dist
> d
)
3835 return best_area
!= -1 ? best_area
: (best_dist
!= -1 ? best_dist
: 0);
3839 x_make_monitor_attribute_list (struct MonitorInfo
*monitors
,
3841 int primary_monitor
,
3842 struct x_display_info
*dpyinfo
,
3845 Lisp_Object monitor_frames
= Fmake_vector (make_number (n_monitors
), Qnil
);
3846 Lisp_Object frame
, rest
;
3848 FOR_EACH_FRAME (rest
, frame
)
3850 struct frame
*f
= XFRAME (frame
);
3852 if (FRAME_X_P (f
) && FRAME_DISPLAY_INFO (f
) == dpyinfo
3853 && !EQ (frame
, tip_frame
))
3855 int i
= x_get_monitor_for_frame (f
, monitors
, n_monitors
);
3856 ASET (monitor_frames
, i
, Fcons (frame
, AREF (monitor_frames
, i
)));
3860 return make_monitor_attribute_list (monitors
, n_monitors
, primary_monitor
,
3861 monitor_frames
, source
);
3865 x_get_monitor_attributes_fallback (struct x_display_info
*dpyinfo
)
3867 struct MonitorInfo monitor
;
3868 XRectangle workarea_r
;
3870 /* Fallback: treat (possibly) multiple physical monitors as if they
3871 formed a single monitor as a whole. This should provide a
3872 consistent result at least on single monitor environments. */
3873 monitor
.geom
.x
= monitor
.geom
.y
= 0;
3874 monitor
.geom
.width
= x_display_pixel_width (dpyinfo
);
3875 monitor
.geom
.height
= x_display_pixel_height (dpyinfo
);
3876 monitor
.mm_width
= WidthMMOfScreen (dpyinfo
->screen
);
3877 monitor
.mm_height
= HeightMMOfScreen (dpyinfo
->screen
);
3878 monitor
.name
= xstrdup ("combined screen");
3880 if (x_get_net_workarea (dpyinfo
, &workarea_r
))
3881 monitor
.work
= workarea_r
;
3883 monitor
.work
= monitor
.geom
;
3884 return x_make_monitor_attribute_list (&monitor
, 1, 0, dpyinfo
, "fallback");
3888 #ifdef HAVE_XINERAMA
3890 x_get_monitor_attributes_xinerama (struct x_display_info
*dpyinfo
)
3893 Lisp_Object attributes_list
= Qnil
;
3894 Display
*dpy
= dpyinfo
->display
;
3895 XineramaScreenInfo
*info
= XineramaQueryScreens (dpy
, &n_monitors
);
3896 struct MonitorInfo
*monitors
;
3897 double mm_width_per_pixel
, mm_height_per_pixel
;
3899 if (! info
|| n_monitors
== 0)
3903 return attributes_list
;
3906 mm_width_per_pixel
= ((double) WidthMMOfScreen (dpyinfo
->screen
)
3907 / x_display_pixel_width (dpyinfo
));
3908 mm_height_per_pixel
= ((double) HeightMMOfScreen (dpyinfo
->screen
)
3909 / x_display_pixel_height (dpyinfo
));
3910 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
3911 for (i
= 0; i
< n_monitors
; ++i
)
3913 struct MonitorInfo
*mi
= &monitors
[i
];
3914 XRectangle workarea_r
;
3916 mi
->geom
.x
= info
[i
].x_org
;
3917 mi
->geom
.y
= info
[i
].y_org
;
3918 mi
->geom
.width
= info
[i
].width
;
3919 mi
->geom
.height
= info
[i
].height
;
3920 mi
->mm_width
= mi
->geom
.width
* mm_width_per_pixel
+ 0.5;
3921 mi
->mm_height
= mi
->geom
.height
* mm_height_per_pixel
+ 0.5;
3924 /* Xinerama usually have primary monitor first, just use that. */
3925 if (i
== 0 && x_get_net_workarea (dpyinfo
, &workarea_r
))
3927 mi
->work
= workarea_r
;
3928 if (! x_intersect_rectangles (&mi
->geom
, &mi
->work
, &mi
->work
))
3929 mi
->work
= mi
->geom
;
3932 mi
->work
= mi
->geom
;
3936 attributes_list
= x_make_monitor_attribute_list (monitors
,
3941 free_monitors (monitors
, n_monitors
);
3942 return attributes_list
;
3944 #endif /* HAVE_XINERAMA */
3949 x_get_monitor_attributes_xrandr (struct x_display_info
*dpyinfo
)
3951 Lisp_Object attributes_list
= Qnil
;
3952 XRRScreenResources
*resources
;
3953 Display
*dpy
= dpyinfo
->display
;
3954 int i
, n_monitors
, primary
= -1;
3955 RROutput pxid
= None
;
3956 struct MonitorInfo
*monitors
;
3958 #ifdef HAVE_XRRGETSCREENRESOURCESCURRENT
3959 resources
= XRRGetScreenResourcesCurrent (dpy
, dpyinfo
->root_window
);
3961 resources
= XRRGetScreenResources (dpy
, dpyinfo
->root_window
);
3963 if (! resources
|| resources
->noutput
== 0)
3966 XRRFreeScreenResources (resources
);
3969 n_monitors
= resources
->noutput
;
3970 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
3972 #ifdef HAVE_XRRGETOUTPUTPRIMARY
3973 pxid
= XRRGetOutputPrimary (dpy
, dpyinfo
->root_window
);
3976 for (i
= 0; i
< n_monitors
; ++i
)
3978 XRROutputInfo
*info
= XRRGetOutputInfo (dpy
, resources
,
3979 resources
->outputs
[i
]);
3980 Connection conn
= info
? info
->connection
: RR_Disconnected
;
3981 RRCrtc id
= info
? info
->crtc
: None
;
3983 if (strcmp (info
->name
, "default") == 0)
3985 /* Non XRandr 1.2 driver, does not give useful data. */
3986 XRRFreeOutputInfo (info
);
3987 XRRFreeScreenResources (resources
);
3988 free_monitors (monitors
, n_monitors
);
3992 if (conn
!= RR_Disconnected
&& id
!= None
)
3994 XRRCrtcInfo
*crtc
= XRRGetCrtcInfo (dpy
, resources
, id
);
3995 struct MonitorInfo
*mi
= &monitors
[i
];
3996 XRectangle workarea_r
;
4000 XRRFreeOutputInfo (info
);
4004 mi
->geom
.x
= crtc
->x
;
4005 mi
->geom
.y
= crtc
->y
;
4006 mi
->geom
.width
= crtc
->width
;
4007 mi
->geom
.height
= crtc
->height
;
4008 mi
->mm_width
= info
->mm_width
;
4009 mi
->mm_height
= info
->mm_height
;
4010 mi
->name
= xstrdup (info
->name
);
4012 if (pxid
!= None
&& pxid
== resources
->outputs
[i
])
4014 else if (primary
== -1 && strcmp (info
->name
, "LVDS") == 0)
4017 if (i
== primary
&& x_get_net_workarea (dpyinfo
, &workarea_r
))
4019 mi
->work
= workarea_r
;
4020 if (! x_intersect_rectangles (&mi
->geom
, &mi
->work
, &mi
->work
))
4021 mi
->work
= mi
->geom
;
4024 mi
->work
= mi
->geom
;
4026 XRRFreeCrtcInfo (crtc
);
4028 XRRFreeOutputInfo (info
);
4030 XRRFreeScreenResources (resources
);
4032 attributes_list
= x_make_monitor_attribute_list (monitors
,
4037 free_monitors (monitors
, n_monitors
);
4038 return attributes_list
;
4040 #endif /* HAVE_XRANDR */
4043 x_get_monitor_attributes (struct x_display_info
*dpyinfo
)
4045 Lisp_Object attributes_list
= Qnil
;
4046 Display
*dpy
= dpyinfo
->display
;
4048 (void) dpy
; /* Suppress unused variable warning. */
4051 int xrr_event_base
, xrr_error_base
;
4052 bool xrr_ok
= false;
4053 xrr_ok
= XRRQueryExtension (dpy
, &xrr_event_base
, &xrr_error_base
);
4056 int xrr_major
, xrr_minor
;
4057 XRRQueryVersion (dpy
, &xrr_major
, &xrr_minor
);
4058 xrr_ok
= (xrr_major
== 1 && xrr_minor
>= 2) || xrr_major
> 1;
4062 attributes_list
= x_get_monitor_attributes_xrandr (dpyinfo
);
4063 #endif /* HAVE_XRANDR */
4065 #ifdef HAVE_XINERAMA
4066 if (NILP (attributes_list
))
4068 int xin_event_base
, xin_error_base
;
4069 bool xin_ok
= false;
4070 xin_ok
= XineramaQueryExtension (dpy
, &xin_event_base
, &xin_error_base
);
4071 if (xin_ok
&& XineramaIsActive (dpy
))
4072 attributes_list
= x_get_monitor_attributes_xinerama (dpyinfo
);
4074 #endif /* HAVE_XINERAMA */
4076 if (NILP (attributes_list
))
4077 attributes_list
= x_get_monitor_attributes_fallback (dpyinfo
);
4079 return attributes_list
;
4082 #endif /* !USE_GTK */
4084 DEFUN ("x-display-monitor-attributes-list", Fx_display_monitor_attributes_list
,
4085 Sx_display_monitor_attributes_list
,
4087 doc
: /* Return a list of physical monitor attributes on the X display TERMINAL.
4089 The optional argument TERMINAL specifies which display to ask about.
4090 TERMINAL should be a terminal object, a frame or a display name (a string).
4091 If omitted or nil, that stands for the selected frame's display.
4093 In addition to the standard attribute keys listed in
4094 `display-monitor-attributes-list', the following keys are contained in
4097 source -- String describing the source from which multi-monitor
4098 information is obtained, one of \"Gdk\", \"XRandr\",
4099 \"Xinerama\", or \"fallback\"
4101 Internal use only, use `display-monitor-attributes-list' instead. */)
4102 (Lisp_Object terminal
)
4104 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4105 Lisp_Object attributes_list
= Qnil
;
4108 double mm_width_per_pixel
, mm_height_per_pixel
;
4111 gint primary_monitor
= 0, n_monitors
, i
;
4112 Lisp_Object monitor_frames
, rest
, frame
;
4113 static const char *source
= "Gdk";
4114 struct MonitorInfo
*monitors
;
4117 mm_width_per_pixel
= ((double) WidthMMOfScreen (dpyinfo
->screen
)
4118 / x_display_pixel_width (dpyinfo
));
4119 mm_height_per_pixel
= ((double) HeightMMOfScreen (dpyinfo
->screen
)
4120 / x_display_pixel_height (dpyinfo
));
4121 gdpy
= gdk_x11_lookup_xdisplay (dpyinfo
->display
);
4122 gscreen
= gdk_display_get_default_screen (gdpy
);
4123 #if GTK_CHECK_VERSION (2, 20, 0)
4124 primary_monitor
= gdk_screen_get_primary_monitor (gscreen
);
4126 n_monitors
= gdk_screen_get_n_monitors (gscreen
);
4127 monitor_frames
= Fmake_vector (make_number (n_monitors
), Qnil
);
4128 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
4130 FOR_EACH_FRAME (rest
, frame
)
4132 struct frame
*f
= XFRAME (frame
);
4134 if (FRAME_X_P (f
) && FRAME_DISPLAY_INFO (f
) == dpyinfo
4135 && !EQ (frame
, tip_frame
))
4137 GdkWindow
*gwin
= gtk_widget_get_window (FRAME_GTK_WIDGET (f
));
4139 i
= gdk_screen_get_monitor_at_window (gscreen
, gwin
);
4140 ASET (monitor_frames
, i
, Fcons (frame
, AREF (monitor_frames
, i
)));
4144 for (i
= 0; i
< n_monitors
; ++i
)
4146 gint width_mm
= -1, height_mm
= -1;
4147 GdkRectangle rec
, work
;
4148 struct MonitorInfo
*mi
= &monitors
[i
];
4150 gdk_screen_get_monitor_geometry (gscreen
, i
, &rec
);
4152 #if GTK_CHECK_VERSION (2, 14, 0)
4153 width_mm
= gdk_screen_get_monitor_width_mm (gscreen
, i
);
4154 height_mm
= gdk_screen_get_monitor_height_mm (gscreen
, i
);
4157 width_mm
= rec
.width
* mm_width_per_pixel
+ 0.5;
4159 height_mm
= rec
.height
* mm_height_per_pixel
+ 0.5;
4161 #if GTK_CHECK_VERSION (3, 4, 0)
4162 gdk_screen_get_monitor_workarea (gscreen
, i
, &work
);
4164 /* Emulate the behavior of GTK+ 3.4. */
4166 XRectangle workarea_r
;
4168 if (i
== primary_monitor
&& x_get_net_workarea (dpyinfo
, &workarea_r
))
4170 work
.x
= workarea_r
.x
;
4171 work
.y
= workarea_r
.y
;
4172 work
.width
= workarea_r
.width
;
4173 work
.height
= workarea_r
.height
;
4174 if (! gdk_rectangle_intersect (&rec
, &work
, &work
))
4185 mi
->geom
.width
= rec
.width
;
4186 mi
->geom
.height
= rec
.height
;
4187 mi
->work
.x
= work
.x
;
4188 mi
->work
.y
= work
.y
;
4189 mi
->work
.width
= work
.width
;
4190 mi
->work
.height
= work
.height
;
4191 mi
->mm_width
= width_mm
;
4192 mi
->mm_height
= height_mm
;
4194 #if GTK_CHECK_VERSION (2, 14, 0)
4195 mi
->name
= gdk_screen_get_monitor_plug_name (gscreen
, i
);
4199 attributes_list
= make_monitor_attribute_list (monitors
,
4205 #else /* not USE_GTK */
4208 attributes_list
= x_get_monitor_attributes (dpyinfo
);
4211 #endif /* not USE_GTK */
4213 return attributes_list
;
4216 /************************************************************************
4218 ************************************************************************/
4221 /* Mapping visual names to visuals. */
4223 static struct visual_class
4230 {"StaticGray", StaticGray
},
4231 {"GrayScale", GrayScale
},
4232 {"StaticColor", StaticColor
},
4233 {"PseudoColor", PseudoColor
},
4234 {"TrueColor", TrueColor
},
4235 {"DirectColor", DirectColor
},
4240 #ifndef HAVE_XSCREENNUMBEROFSCREEN
4242 /* Value is the screen number of screen SCR. This is a substitute for
4243 the X function with the same name when that doesn't exist. */
4246 XScreenNumberOfScreen (scr
)
4247 register Screen
*scr
;
4249 Display
*dpy
= scr
->display
;
4252 for (i
= 0; i
< dpy
->nscreens
; ++i
)
4253 if (scr
== dpy
->screens
+ i
)
4259 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
4262 /* Select the visual that should be used on display DPYINFO. Set
4263 members of DPYINFO appropriately. Called from x_term_init. */
4266 select_visual (struct x_display_info
*dpyinfo
)
4268 Display
*dpy
= dpyinfo
->display
;
4269 Screen
*screen
= dpyinfo
->screen
;
4272 /* See if a visual is specified. */
4273 value
= display_x_get_resource (dpyinfo
,
4274 build_string ("visualClass"),
4275 build_string ("VisualClass"),
4277 if (STRINGP (value
))
4279 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
4280 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4281 depth, a decimal number. NAME is compared with case ignored. */
4282 char *s
= alloca (SBYTES (value
) + 1);
4287 strcpy (s
, SSDATA (value
));
4288 dash
= strchr (s
, '-');
4291 dpyinfo
->n_planes
= atoi (dash
+ 1);
4295 /* We won't find a matching visual with depth 0, so that
4296 an error will be printed below. */
4297 dpyinfo
->n_planes
= 0;
4299 /* Determine the visual class. */
4300 for (i
= 0; visual_classes
[i
].name
; ++i
)
4301 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4303 class = visual_classes
[i
].class;
4307 /* Look up a matching visual for the specified class. */
4309 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4310 dpyinfo
->n_planes
, class, &vinfo
))
4311 fatal ("Invalid visual specification `%s'", SDATA (value
));
4313 dpyinfo
->visual
= vinfo
.visual
;
4318 XVisualInfo
*vinfo
, vinfo_template
;
4320 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4322 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4323 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4324 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4325 &vinfo_template
, &n_visuals
);
4327 fatal ("Can't get proper X visual info");
4329 dpyinfo
->n_planes
= vinfo
->depth
;
4335 /* Return the X display structure for the display named NAME.
4336 Open a new connection if necessary. */
4338 static struct x_display_info
*
4339 x_display_info_for_name (Lisp_Object name
)
4341 struct x_display_info
*dpyinfo
;
4343 CHECK_STRING (name
);
4345 for (dpyinfo
= x_display_list
; dpyinfo
; dpyinfo
= dpyinfo
->next
)
4346 if (!NILP (Fstring_equal (XCAR (dpyinfo
->name_list_element
), name
)))
4349 /* Use this general default value to start with. */
4350 Vx_resource_name
= Vinvocation_name
;
4352 validate_x_resource_name ();
4354 dpyinfo
= x_term_init (name
, 0, SSDATA (Vx_resource_name
));
4357 error ("Cannot connect to X server %s", SDATA (name
));
4359 XSETFASTINT (Vwindow_system_version
, 11);
4365 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4367 doc
: /* Open a connection to a display server.
4368 DISPLAY is the name of the display to connect to.
4369 Optional second arg XRM-STRING is a string of resources in xrdb format.
4370 If the optional third arg MUST-SUCCEED is non-nil,
4371 terminate Emacs if we can't open the connection.
4372 \(In the Nextstep version, the last two arguments are currently ignored.) */)
4373 (Lisp_Object display
, Lisp_Object xrm_string
, Lisp_Object must_succeed
)
4376 struct x_display_info
*dpyinfo
;
4378 CHECK_STRING (display
);
4379 if (! NILP (xrm_string
))
4380 CHECK_STRING (xrm_string
);
4382 xrm_option
= NILP (xrm_string
) ? 0 : SSDATA (xrm_string
);
4384 validate_x_resource_name ();
4386 /* This is what opens the connection and sets x_current_display.
4387 This also initializes many symbols, such as those used for input. */
4388 dpyinfo
= x_term_init (display
, xrm_option
,
4389 SSDATA (Vx_resource_name
));
4393 if (!NILP (must_succeed
))
4394 fatal ("Cannot connect to X server %s.\n\
4395 Check the DISPLAY environment variable or use `-d'.\n\
4396 Also use the `xauth' program to verify that you have the proper\n\
4397 authorization information needed to connect the X server.\n\
4398 An insecure way to solve the problem may be to use `xhost'.\n",
4401 error ("Cannot connect to X server %s", SDATA (display
));
4404 XSETFASTINT (Vwindow_system_version
, 11);
4408 DEFUN ("x-close-connection", Fx_close_connection
,
4409 Sx_close_connection
, 1, 1, 0,
4410 doc
: /* Close the connection to TERMINAL's X server.
4411 For TERMINAL, specify a terminal object, a frame or a display name (a
4412 string). If TERMINAL is nil, that stands for the selected frame's
4414 (Lisp_Object terminal
)
4416 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4418 if (dpyinfo
->reference_count
> 0)
4419 error ("Display still has frames on it");
4421 x_delete_terminal (dpyinfo
->terminal
);
4426 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4427 doc
: /* Return the list of display names that Emacs has connections to. */)
4430 Lisp_Object result
= Qnil
;
4431 struct x_display_info
*xdi
;
4433 for (xdi
= x_display_list
; xdi
; xdi
= xdi
->next
)
4434 result
= Fcons (XCAR (xdi
->name_list_element
), result
);
4439 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4440 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4441 This function only has an effect on X Windows. With MS Windows, it is
4442 defined but does nothing.
4444 If ON is nil, allow buffering of requests.
4445 Turning on synchronization prohibits the Xlib routines from buffering
4446 requests and seriously degrades performance, but makes debugging much
4448 The optional second argument TERMINAL specifies which display to act on.
4449 TERMINAL should be a terminal object, a frame or a display name (a string).
4450 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4451 (Lisp_Object on
, Lisp_Object terminal
)
4453 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4455 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4460 /* Wait for responses to all X commands issued so far for frame F. */
4463 x_sync (struct frame
*f
)
4466 XSync (FRAME_X_DISPLAY (f
), False
);
4471 /***********************************************************************
4473 ***********************************************************************/
4475 DEFUN ("x-change-window-property", Fx_change_window_property
,
4476 Sx_change_window_property
, 2, 6, 0,
4477 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4478 PROP must be a string. VALUE may be a string or a list of conses,
4479 numbers and/or strings. If an element in the list is a string, it is
4480 converted to an atom and the value of the atom is used. If an element
4481 is a cons, it is converted to a 32 bit number where the car is the 16
4482 top bits and the cdr is the lower 16 bits.
4484 FRAME nil or omitted means use the selected frame.
4485 If TYPE is given and non-nil, it is the name of the type of VALUE.
4486 If TYPE is not given or nil, the type is STRING.
4487 FORMAT gives the size in bits of each element if VALUE is a list.
4488 It must be one of 8, 16 or 32.
4489 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4490 If OUTER-P is non-nil, the property is changed for the outer X window of
4491 FRAME. Default is to change on the edit X window. */)
4492 (Lisp_Object prop
, Lisp_Object value
, Lisp_Object frame
,
4493 Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4495 struct frame
*f
= decode_window_system_frame (frame
);
4497 Atom target_type
= XA_STRING
;
4498 int element_format
= 8;
4499 unsigned char *data
;
4503 CHECK_STRING (prop
);
4505 if (! NILP (format
))
4507 CHECK_NUMBER (format
);
4509 if (XINT (format
) != 8 && XINT (format
) != 16
4510 && XINT (format
) != 32)
4511 error ("FORMAT must be one of 8, 16 or 32");
4512 element_format
= XINT (format
);
4519 nelements
= x_check_property_data (value
);
4520 if (nelements
== -1)
4521 error ("Bad data in VALUE, must be number, string or cons");
4523 /* The man page for XChangeProperty:
4524 "If the specified format is 32, the property data must be a
4526 This applies even if long is more than 32 bits. The X library
4527 converts to 32 bits before sending to the X server. */
4528 elsize
= element_format
== 32 ? sizeof (long) : element_format
>> 3;
4529 data
= xnmalloc_atomic (nelements
, elsize
);
4531 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4535 CHECK_STRING (value
);
4536 data
= SDATA (value
);
4537 if (INT_MAX
< SBYTES (value
))
4538 error ("VALUE too long");
4539 nelements
= SBYTES (value
);
4543 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4546 CHECK_STRING (type
);
4547 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4550 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4551 else w
= FRAME_X_WINDOW (f
);
4553 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4554 prop_atom
, target_type
, element_format
, PropModeReplace
,
4557 if (CONSP (value
)) xfree (data
);
4559 /* Make sure the property is set when we return. */
4560 XFlush (FRAME_X_DISPLAY (f
));
4567 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4568 Sx_delete_window_property
, 1, 2, 0,
4569 doc
: /* Remove window property PROP from X window of FRAME.
4570 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4571 (Lisp_Object prop
, Lisp_Object frame
)
4573 struct frame
*f
= decode_window_system_frame (frame
);
4576 CHECK_STRING (prop
);
4578 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4579 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4581 /* Make sure the property is removed when we return. */
4582 XFlush (FRAME_X_DISPLAY (f
));
4590 x_window_property_intern (struct frame
*f
,
4591 Window target_window
,
4594 Lisp_Object delete_p
,
4595 Lisp_Object vector_ret_p
,
4598 unsigned char *tmp_data
= NULL
;
4599 Lisp_Object prop_value
= Qnil
;
4602 unsigned long actual_size
, bytes_remaining
;
4604 struct gcpro gcpro1
;
4606 GCPRO1 (prop_value
);
4608 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4609 prop_atom
, 0, 0, False
, target_type
,
4610 &actual_type
, &actual_format
, &actual_size
,
4611 &bytes_remaining
, &tmp_data
);
4613 *found
= actual_format
!= 0;
4615 if (rc
== Success
&& *found
)
4620 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4621 prop_atom
, 0, bytes_remaining
,
4622 ! NILP (delete_p
), target_type
,
4623 &actual_type
, &actual_format
,
4624 &actual_size
, &bytes_remaining
,
4626 if (rc
== Success
&& tmp_data
)
4628 /* The man page for XGetWindowProperty says:
4629 "If the returned format is 32, the returned data is represented
4630 as a long array and should be cast to that type to obtain the
4632 This applies even if long is more than 32 bits, the X library
4633 converts from 32 bit elements received from the X server to long
4634 and passes the long array to us. Thus, for that case memcpy can not
4635 be used. We convert to a 32 bit type here, because so much code
4638 The bytes and offsets passed to XGetWindowProperty refers to the
4639 property and those are indeed in 32 bit quantities if format is
4642 if (BITS_PER_LONG
> 32 && actual_format
== 32)
4645 int *idata
= (int *) tmp_data
;
4646 long *ldata
= (long *) tmp_data
;
4648 for (i
= 0; i
< actual_size
; ++i
)
4649 idata
[i
] = (int) ldata
[i
];
4652 if (NILP (vector_ret_p
))
4653 prop_value
= make_string ((char *) tmp_data
, actual_size
);
4655 prop_value
= x_property_data_to_lisp (f
,
4662 if (tmp_data
) XFree (tmp_data
);
4669 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4671 doc
: /* Value is the value of window property PROP on FRAME.
4672 If FRAME is nil or omitted, use the selected frame.
4674 On X Windows, the following optional arguments are also accepted:
4675 If TYPE is nil or omitted, get the property as a string.
4676 Otherwise TYPE is the name of the atom that denotes the type expected.
4677 If SOURCE is non-nil, get the property on that window instead of from
4678 FRAME. The number 0 denotes the root window.
4679 If DELETE-P is non-nil, delete the property after retrieving it.
4680 If VECTOR-RET-P is non-nil, don't return a string but a vector of values.
4682 On MS Windows, this function accepts but ignores those optional arguments.
4684 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4685 no value of TYPE (always string in the MS Windows case). */)
4686 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
,
4687 Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4689 struct frame
*f
= decode_window_system_frame (frame
);
4691 Lisp_Object prop_value
= Qnil
;
4692 Atom target_type
= XA_STRING
;
4693 Window target_window
= FRAME_X_WINDOW (f
);
4694 struct gcpro gcpro1
;
4697 GCPRO1 (prop_value
);
4698 CHECK_STRING (prop
);
4700 if (! NILP (source
))
4702 CONS_TO_INTEGER (source
, Window
, target_window
);
4703 if (! target_window
)
4704 target_window
= FRAME_DISPLAY_INFO (f
)->root_window
;
4710 if (strcmp ("AnyPropertyType", SSDATA (type
)) == 0)
4711 target_type
= AnyPropertyType
;
4713 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4716 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4717 prop_value
= x_window_property_intern (f
,
4724 if (NILP (prop_value
)
4727 && target_window
!= FRAME_OUTER_WINDOW (f
))
4729 prop_value
= x_window_property_intern (f
,
4730 FRAME_OUTER_WINDOW (f
),
4746 /***********************************************************************
4748 ***********************************************************************/
4750 /* Timer function of hourglass_atimer. TIMER is equal to
4753 Display an hourglass pointer on all frames by mapping the frames'
4754 hourglass_window. Set the hourglass_p flag in the frames'
4755 output_data.x structure to indicate that an hourglass cursor is
4756 shown on the frames. */
4759 show_hourglass (struct atimer
*timer
)
4761 /* The timer implementation will cancel this timer automatically
4762 after this function has run. Set hourglass_atimer to null
4763 so that we know the timer doesn't have to be canceled. */
4764 hourglass_atimer
= NULL
;
4766 if (!hourglass_shown_p
)
4768 Lisp_Object rest
, frame
;
4772 FOR_EACH_FRAME (rest
, frame
)
4774 struct frame
*f
= XFRAME (frame
);
4776 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4778 Display
*dpy
= FRAME_X_DISPLAY (f
);
4780 #ifdef USE_X_TOOLKIT
4781 if (f
->output_data
.x
->widget
)
4783 if (FRAME_OUTER_WINDOW (f
))
4786 f
->output_data
.x
->hourglass_p
= 1;
4788 if (!f
->output_data
.x
->hourglass_window
)
4790 unsigned long mask
= CWCursor
;
4791 XSetWindowAttributes attrs
;
4793 Window parent
= FRAME_X_WINDOW (f
);
4795 Window parent
= FRAME_OUTER_WINDOW (f
);
4797 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4799 f
->output_data
.x
->hourglass_window
4800 = XCreateWindow (dpy
, parent
,
4801 0, 0, 32000, 32000, 0, 0,
4807 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4813 hourglass_shown_p
= 1;
4819 /* Hide the hourglass pointer on all frames, if it is currently
4823 hide_hourglass (void)
4825 if (hourglass_shown_p
)
4827 Lisp_Object rest
, frame
;
4830 FOR_EACH_FRAME (rest
, frame
)
4832 struct frame
*f
= XFRAME (frame
);
4835 /* Watch out for newly created frames. */
4836 && f
->output_data
.x
->hourglass_window
)
4838 XUnmapWindow (FRAME_X_DISPLAY (f
),
4839 f
->output_data
.x
->hourglass_window
);
4840 /* Sync here because XTread_socket looks at the
4841 hourglass_p flag that is reset to zero below. */
4842 XSync (FRAME_X_DISPLAY (f
), False
);
4843 f
->output_data
.x
->hourglass_p
= 0;
4847 hourglass_shown_p
= 0;
4854 /***********************************************************************
4856 ***********************************************************************/
4858 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4859 Lisp_Object
, Lisp_Object
);
4860 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4861 Lisp_Object
, int, int, int *, int *);
4863 /* The frame of a currently visible tooltip. */
4865 Lisp_Object tip_frame
;
4867 /* If non-nil, a timer started that hides the last tooltip when it
4870 static Lisp_Object tip_timer
;
4873 /* If non-nil, a vector of 3 elements containing the last args
4874 with which x-show-tip was called. See there. */
4876 static Lisp_Object last_show_tip_args
;
4880 unwind_create_tip_frame (Lisp_Object frame
)
4882 Lisp_Object deleted
;
4884 deleted
= unwind_create_frame (frame
);
4885 if (EQ (deleted
, Qt
))
4893 /* Create a frame for a tooltip on the display described by DPYINFO.
4894 PARMS is a list of frame parameters. TEXT is the string to
4895 display in the tip frame. Value is the frame.
4897 Note that functions called here, esp. x_default_parameter can
4898 signal errors, for instance when a specified color name is
4899 undefined. We have to make sure that we're in a consistent state
4900 when this happens. */
4903 x_create_tip_frame (struct x_display_info
*dpyinfo
,
4912 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4913 int face_change_count_before
= face_change_count
;
4915 struct buffer
*old_buffer
;
4917 if (!dpyinfo
->terminal
->name
)
4918 error ("Terminal is not live, can't create new frames on it");
4920 parms
= Fcopy_alist (parms
);
4922 /* Get the name of the frame to use for resource lookup. */
4923 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4925 && !EQ (name
, Qunbound
)
4927 error ("Invalid frame name--not a string or nil");
4930 GCPRO3 (parms
, name
, frame
);
4932 XSETFRAME (frame
, f
);
4934 buffer
= Fget_buffer_create (build_string (" *tip*"));
4935 /* Use set_window_buffer instead of Fset_window_buffer (see
4936 discussion of bug#11984, bug#12025, bug#12026). */
4937 set_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, 0, 0);
4938 old_buffer
= current_buffer
;
4939 set_buffer_internal_1 (XBUFFER (buffer
));
4940 bset_truncate_lines (current_buffer
, Qnil
);
4941 specbind (Qinhibit_read_only
, Qt
);
4942 specbind (Qinhibit_modification_hooks
, Qt
);
4945 set_buffer_internal_1 (old_buffer
);
4947 record_unwind_protect (unwind_create_tip_frame
, frame
);
4949 f
->terminal
= dpyinfo
->terminal
;
4951 /* By setting the output method, we're essentially saying that
4952 the frame is live, as per FRAME_LIVE_P. If we get a signal
4953 from this point on, x_destroy_window might screw up reference
4955 f
->output_method
= output_x_window
;
4956 f
->output_data
.x
= xzalloc (sizeof *f
->output_data
.x
);
4957 f
->output_data
.x
->icon_bitmap
= -1;
4958 FRAME_FONTSET (f
) = -1;
4959 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4960 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4961 #ifdef USE_TOOLKIT_SCROLL_BARS
4962 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4963 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4964 #endif /* USE_TOOLKIT_SCROLL_BARS */
4965 f
->output_data
.x
->white_relief
.pixel
= -1;
4966 f
->output_data
.x
->black_relief
.pixel
= -1;
4968 fset_icon_name (f
, Qnil
);
4969 FRAME_DISPLAY_INFO (f
) = dpyinfo
;
4970 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
4971 f
->output_data
.x
->explicit_parent
= 0;
4973 /* These colors will be set anyway later, but it's important
4974 to get the color reference counts right, so initialize them! */
4977 struct gcpro gcpro1
;
4979 /* Function x_decode_color can signal an error. Make
4980 sure to initialize color slots so that we won't try
4981 to free colors we haven't allocated. */
4982 FRAME_FOREGROUND_PIXEL (f
) = -1;
4983 FRAME_BACKGROUND_PIXEL (f
) = -1;
4984 f
->output_data
.x
->cursor_pixel
= -1;
4985 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4986 f
->output_data
.x
->border_pixel
= -1;
4987 f
->output_data
.x
->mouse_pixel
= -1;
4989 black
= build_string ("black");
4991 FRAME_FOREGROUND_PIXEL (f
)
4992 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4993 FRAME_BACKGROUND_PIXEL (f
)
4994 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4995 f
->output_data
.x
->cursor_pixel
4996 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4997 f
->output_data
.x
->cursor_foreground_pixel
4998 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4999 f
->output_data
.x
->border_pixel
5000 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
5001 f
->output_data
.x
->mouse_pixel
5002 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
5006 /* Set the name; the functions to which we pass f expect the name to
5008 if (EQ (name
, Qunbound
) || NILP (name
))
5010 fset_name (f
, build_string (dpyinfo
->x_id_name
));
5011 f
->explicit_name
= 0;
5015 fset_name (f
, name
);
5016 f
->explicit_name
= 1;
5017 /* use the frame's title when getting resources for this frame. */
5018 specbind (Qx_resource_name
, name
);
5021 register_font_driver (&xfont_driver
, f
);
5022 #ifdef HAVE_FREETYPE
5024 register_font_driver (&xftfont_driver
, f
);
5025 #else /* not HAVE_XFT */
5026 register_font_driver (&ftxfont_driver
, f
);
5027 #endif /* not HAVE_XFT */
5028 #endif /* HAVE_FREETYPE */
5030 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
5031 "fontBackend", "FontBackend", RES_TYPE_STRING
);
5033 /* Extract the window parameters from the supplied values that are
5034 needed to determine window geometry. */
5035 x_default_font_parameter (f
, parms
);
5037 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
5038 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
5040 /* This defaults to 2 in order to match xterm. We recognize either
5041 internalBorderWidth or internalBorder (which is what xterm calls
5043 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5047 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
5048 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
5049 if (! EQ (value
, Qunbound
))
5050 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
5054 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
5055 "internalBorderWidth", "internalBorderWidth",
5057 x_default_parameter (f
, parms
, Qright_divider_width
, make_number (0),
5058 NULL
, NULL
, RES_TYPE_NUMBER
);
5059 x_default_parameter (f
, parms
, Qbottom_divider_width
, make_number (0),
5060 NULL
, NULL
, RES_TYPE_NUMBER
);
5062 /* Also do the stuff which must be set before the window exists. */
5063 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
5064 "foreground", "Foreground", RES_TYPE_STRING
);
5065 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
5066 "background", "Background", RES_TYPE_STRING
);
5067 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
5068 "pointerColor", "Foreground", RES_TYPE_STRING
);
5069 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
5070 "cursorColor", "Foreground", RES_TYPE_STRING
);
5071 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
5072 "borderColor", "BorderColor", RES_TYPE_STRING
);
5075 image_cache_refcount
=
5076 FRAME_IMAGE_CACHE (f
) ? FRAME_IMAGE_CACHE (f
)->refcount
: 0;
5077 dpyinfo_refcount
= dpyinfo
->reference_count
;
5078 #endif /* GLYPH_DEBUG */
5080 /* Init faces before x_default_parameter is called for scroll-bar
5081 parameters because that function calls x_set_scroll_bar_width,
5082 which calls change_frame_size, which calls Fset_window_buffer,
5083 which runs hooks, which call Fvertical_motion. At the end, we
5084 end up in init_iterator with a null face cache, which should not
5086 init_frame_faces (f
);
5088 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
5090 x_figure_window_size (f
, parms
, 0);
5093 XSetWindowAttributes attrs
;
5095 Atom type
= FRAME_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
5098 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
5099 if (DoesSaveUnders (dpyinfo
->screen
))
5100 mask
|= CWSaveUnder
;
5102 /* Window managers look at the override-redirect flag to determine
5103 whether or net to give windows a decoration (Xlib spec, chapter
5105 attrs
.override_redirect
= True
;
5106 attrs
.save_under
= True
;
5107 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
5108 /* Arrange for getting MapNotify and UnmapNotify events. */
5109 attrs
.event_mask
= StructureNotifyMask
;
5111 = FRAME_X_WINDOW (f
)
5112 = XCreateWindow (FRAME_X_DISPLAY (f
),
5113 FRAME_DISPLAY_INFO (f
)->root_window
,
5114 /* x, y, width, height */
5118 CopyFromParent
, InputOutput
, CopyFromParent
,
5120 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
5121 FRAME_DISPLAY_INFO (f
)->Xatom_net_window_type
,
5122 XA_ATOM
, 32, PropModeReplace
,
5123 (unsigned char *)&type
, 1);
5129 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
5130 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
5131 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
5132 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
5133 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
5134 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
5136 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
5137 Change will not be effected unless different from the current
5139 width
= FRAME_COLS (f
);
5140 height
= FRAME_LINES (f
);
5141 SET_FRAME_COLS (f
, 0);
5142 FRAME_LINES (f
) = 0;
5143 change_frame_size (f
, width
, height
, 1, 0, 0, 0);
5145 /* Add `tooltip' frame parameter's default value. */
5146 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
5147 Fmodify_frame_parameters (frame
, list1 (Fcons (Qtooltip
, Qt
)));
5149 /* FIXME - can this be done in a similar way to normal frames?
5150 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
5152 /* Set the `display-type' frame parameter before setting up faces. */
5154 Lisp_Object disptype
;
5156 if (FRAME_DISPLAY_INFO (f
)->n_planes
== 1)
5157 disptype
= intern ("mono");
5158 else if (FRAME_DISPLAY_INFO (f
)->visual
->class == GrayScale
5159 || FRAME_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
5160 disptype
= intern ("grayscale");
5162 disptype
= intern ("color");
5164 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
5165 Fmodify_frame_parameters (frame
, list1 (Fcons (Qdisplay_type
, disptype
)));
5168 /* Set up faces after all frame parameters are known. This call
5169 also merges in face attributes specified for new frames.
5171 Frame parameters may be changed if .Xdefaults contains
5172 specifications for the default font. For example, if there is an
5173 `Emacs.default.attributeBackground: pink', the `background-color'
5174 attribute of the frame get's set, which let's the internal border
5175 of the tooltip frame appear in pink. Prevent this. */
5177 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
5179 /* Set tip_frame here, so that */
5181 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
5183 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
5184 Fmodify_frame_parameters (frame
, list1 (Fcons (Qbackground_color
, bg
)));
5191 /* Now that the frame will be official, it counts as a reference to
5192 its display and terminal. */
5193 FRAME_DISPLAY_INFO (f
)->reference_count
++;
5194 f
->terminal
->reference_count
++;
5196 /* It is now ok to make the frame official even if we get an error
5197 below. And the frame needs to be on Vframe_list or making it
5198 visible won't work. */
5199 Vframe_list
= Fcons (frame
, Vframe_list
);
5202 /* Setting attributes of faces of the tooltip frame from resources
5203 and similar will increment face_change_count, which leads to the
5204 clearing of all current matrices. Since this isn't necessary
5205 here, avoid it by resetting face_change_count to the value it
5206 had before we created the tip frame. */
5207 face_change_count
= face_change_count_before
;
5209 /* Discard the unwind_protect. */
5215 /* Compute where to display tip frame F. PARMS is the list of frame
5216 parameters for F. DX and DY are specified offsets from the current
5217 location of the mouse. WIDTH and HEIGHT are the width and height
5218 of the tooltip. Return coordinates relative to the root window of
5219 the display in *ROOT_X, and *ROOT_Y. */
5222 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
)
5224 Lisp_Object left
, top
;
5229 /* User-specified position? */
5230 left
= Fcdr (Fassq (Qleft
, parms
));
5231 top
= Fcdr (Fassq (Qtop
, parms
));
5233 /* Move the tooltip window where the mouse pointer is. Resize and
5235 if (!INTEGERP (left
) || !INTEGERP (top
))
5238 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_DISPLAY_INFO (f
)->root_window
,
5239 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
5244 *root_y
= XINT (top
);
5245 else if (*root_y
+ XINT (dy
) <= 0)
5246 *root_y
= 0; /* Can happen for negative dy */
5247 else if (*root_y
+ XINT (dy
) + height
5248 <= x_display_pixel_height (FRAME_DISPLAY_INFO (f
)))
5249 /* It fits below the pointer */
5250 *root_y
+= XINT (dy
);
5251 else if (height
+ XINT (dy
) <= *root_y
)
5252 /* It fits above the pointer. */
5253 *root_y
-= height
+ XINT (dy
);
5255 /* Put it on the top. */
5258 if (INTEGERP (left
))
5259 *root_x
= XINT (left
);
5260 else if (*root_x
+ XINT (dx
) <= 0)
5261 *root_x
= 0; /* Can happen for negative dx */
5262 else if (*root_x
+ XINT (dx
) + width
5263 <= x_display_pixel_width (FRAME_DISPLAY_INFO (f
)))
5264 /* It fits to the right of the pointer. */
5265 *root_x
+= XINT (dx
);
5266 else if (width
+ XINT (dx
) <= *root_x
)
5267 /* It fits to the left of the pointer. */
5268 *root_x
-= width
+ XINT (dx
);
5270 /* Put it left-justified on the screen--it ought to fit that way. */
5275 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5276 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5277 A tooltip window is a small X window displaying a string.
5279 This is an internal function; Lisp code should call `tooltip-show'.
5281 FRAME nil or omitted means use the selected frame.
5283 PARMS is an optional list of frame parameters which can be used to
5284 change the tooltip's appearance.
5286 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5287 means use the default timeout of 5 seconds.
5289 If the list of frame parameters PARMS contains a `left' parameters,
5290 the tooltip is displayed at that x-position. Otherwise it is
5291 displayed at the mouse position, with offset DX added (default is 5 if
5292 DX isn't specified). Likewise for the y-position; if a `top' frame
5293 parameter is specified, it determines the y-position of the tooltip
5294 window, otherwise it is displayed at the mouse position, with offset
5295 DY added (default is -10).
5297 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5298 Text larger than the specified size is clipped. */)
5299 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
5304 struct buffer
*old_buffer
;
5305 struct text_pos pos
;
5306 int i
, width
, height
, seen_reversed_p
;
5307 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5308 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5311 specbind (Qinhibit_redisplay
, Qt
);
5313 GCPRO4 (string
, parms
, frame
, timeout
);
5315 CHECK_STRING (string
);
5316 if (SCHARS (string
) == 0)
5317 string
= make_unibyte_string (" ", 1);
5319 f
= decode_window_system_frame (frame
);
5321 timeout
= make_number (5);
5323 CHECK_NATNUM (timeout
);
5326 dx
= make_number (5);
5331 dy
= make_number (-10);
5336 if (x_gtk_use_system_tooltips
)
5340 /* Hide a previous tip, if any. */
5344 ok
= xg_prepare_tooltip (f
, string
, &width
, &height
);
5347 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5348 xg_show_tooltip (f
, root_x
, root_y
);
5349 /* This is used in Fx_hide_tip. */
5350 XSETFRAME (tip_frame
, f
);
5353 if (ok
) goto start_timer
;
5355 #endif /* USE_GTK */
5357 if (NILP (last_show_tip_args
))
5358 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5360 if (!NILP (tip_frame
))
5362 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5363 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5364 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5366 if (EQ (frame
, last_frame
)
5367 && !NILP (Fequal (last_string
, string
))
5368 && !NILP (Fequal (last_parms
, parms
)))
5370 struct frame
*tip_f
= XFRAME (tip_frame
);
5372 /* Only DX and DY have changed. */
5373 if (!NILP (tip_timer
))
5375 Lisp_Object timer
= tip_timer
;
5377 call1 (Qcancel_timer
, timer
);
5381 compute_tip_xy (tip_f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (tip_f
),
5382 FRAME_PIXEL_HEIGHT (tip_f
), &root_x
, &root_y
);
5383 XMoveWindow (FRAME_X_DISPLAY (tip_f
), FRAME_X_WINDOW (tip_f
),
5390 /* Hide a previous tip, if any. */
5393 ASET (last_show_tip_args
, 0, string
);
5394 ASET (last_show_tip_args
, 1, frame
);
5395 ASET (last_show_tip_args
, 2, parms
);
5397 /* Add default values to frame parameters. */
5398 if (NILP (Fassq (Qname
, parms
)))
5399 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5400 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5401 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5402 if (NILP (Fassq (Qborder_width
, parms
)))
5403 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5404 if (NILP (Fassq (Qbottom_divider_width
, parms
)))
5405 parms
= Fcons (Fcons (Qbottom_divider_width
, make_number (0)), parms
);
5406 if (NILP (Fassq (Qright_divider_width
, parms
)))
5407 parms
= Fcons (Fcons (Qright_divider_width
, make_number (0)), parms
);
5408 if (NILP (Fassq (Qborder_color
, parms
)))
5409 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5410 if (NILP (Fassq (Qbackground_color
, parms
)))
5411 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5414 /* Create a frame for the tooltip, and record it in the global
5415 variable tip_frame. */
5416 frame
= x_create_tip_frame (FRAME_DISPLAY_INFO (f
), parms
, string
);
5419 /* Set up the frame's root window. */
5420 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5426 if (CONSP (Vx_max_tooltip_size
)
5427 && RANGED_INTEGERP (1, XCAR (Vx_max_tooltip_size
), INT_MAX
)
5428 && RANGED_INTEGERP (1, XCDR (Vx_max_tooltip_size
), INT_MAX
))
5430 w
->total_cols
= XFASTINT (XCAR (Vx_max_tooltip_size
));
5431 w
->total_lines
= XFASTINT (XCDR (Vx_max_tooltip_size
));
5436 w
->total_lines
= 40;
5439 w
->pixel_width
= w
->total_cols
* FRAME_COLUMN_WIDTH (f
);
5440 w
->pixel_height
= w
->total_lines
* FRAME_LINE_HEIGHT (f
);
5442 FRAME_TOTAL_COLS (f
) = w
->total_cols
;
5443 adjust_frame_glyphs (f
);
5444 w
->pseudo_window_p
= 1;
5446 /* Display the tooltip text in a temporary buffer. */
5447 old_buffer
= current_buffer
;
5448 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->contents
));
5449 bset_truncate_lines (current_buffer
, Qnil
);
5450 clear_glyph_matrix (w
->desired_matrix
);
5451 clear_glyph_matrix (w
->current_matrix
);
5452 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5453 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5455 /* Compute width and height of the tooltip. */
5456 width
= height
= seen_reversed_p
= 0;
5457 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5459 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5463 /* Stop at the first empty row at the end. */
5464 if (!row
->enabled_p
|| !MATRIX_ROW_DISPLAYS_TEXT_P (row
))
5467 /* Let the row go over the full width of the frame. */
5468 row
->full_width_p
= 1;
5470 row_width
= row
->pixel_width
;
5471 if (row
->used
[TEXT_AREA
])
5473 /* There's a glyph at the end of rows that is used to place
5474 the cursor there. Don't include the width of this glyph. */
5475 if (!row
->reversed_p
)
5477 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5478 if (INTEGERP (last
->object
))
5479 row_width
-= last
->pixel_width
;
5483 /* There could be a stretch glyph at the beginning of R2L
5484 rows that is produced by extend_face_to_end_of_line.
5485 Don't count that glyph. */
5486 struct glyph
*g
= row
->glyphs
[TEXT_AREA
];
5488 if (g
->type
== STRETCH_GLYPH
&& INTEGERP (g
->object
))
5490 row_width
-= g
->pixel_width
;
5491 seen_reversed_p
= 1;
5496 height
+= row
->height
;
5497 width
= max (width
, row_width
);
5500 /* If we've seen partial-length R2L rows, we need to re-adjust the
5501 tool-tip frame width and redisplay it again, to avoid over-wide
5502 tips due to the stretch glyph that extends R2L lines to full
5503 width of the frame. */
5504 if (seen_reversed_p
)
5506 /* w->total_cols and FRAME_TOTAL_COLS want the width in columns,
5508 w
->pixel_width
= width
;
5509 width
/= WINDOW_FRAME_COLUMN_WIDTH (w
);
5510 w
->total_cols
= width
;
5511 FRAME_TOTAL_COLS (f
) = width
;
5512 SET_FRAME_WIDTH (f
, width
);
5513 adjust_frame_glyphs (f
);
5514 clear_glyph_matrix (w
->desired_matrix
);
5515 clear_glyph_matrix (w
->current_matrix
);
5516 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5518 /* Recompute width and height of the tooltip. */
5519 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5521 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5525 if (!row
->enabled_p
|| !MATRIX_ROW_DISPLAYS_TEXT_P (row
))
5527 row
->full_width_p
= 1;
5528 row_width
= row
->pixel_width
;
5529 if (row
->used
[TEXT_AREA
] && !row
->reversed_p
)
5531 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5532 if (INTEGERP (last
->object
))
5533 row_width
-= last
->pixel_width
;
5536 height
+= row
->height
;
5537 width
= max (width
, row_width
);
5541 /* Add the frame's internal border to the width and height the X
5542 window should have. */
5543 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5544 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5546 /* Move the tooltip window where the mouse pointer is. Resize and
5548 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5551 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5552 root_x
, root_y
, width
, height
);
5553 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5556 /* Draw into the window. */
5557 w
->must_be_updated_p
= 1;
5558 update_single_window (w
, 1);
5560 /* Restore original current buffer. */
5561 set_buffer_internal_1 (old_buffer
);
5562 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5565 /* Let the tip disappear after timeout seconds. */
5566 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5567 intern ("x-hide-tip"));
5575 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5576 doc
: /* Hide the current tooltip window, if there is any.
5577 Value is t if tooltip was open, nil otherwise. */)
5581 Lisp_Object deleted
, frame
, timer
;
5582 struct gcpro gcpro1
, gcpro2
;
5584 /* Return quickly if nothing to do. */
5585 if (NILP (tip_timer
) && NILP (tip_frame
))
5590 GCPRO2 (frame
, timer
);
5591 tip_frame
= tip_timer
= deleted
= Qnil
;
5594 specbind (Qinhibit_redisplay
, Qt
);
5595 specbind (Qinhibit_quit
, Qt
);
5598 call1 (Qcancel_timer
, timer
);
5602 /* When using system tooltip, tip_frame is the Emacs frame on which
5603 the tip is shown. */
5604 struct frame
*f
= XFRAME (frame
);
5605 if (FRAME_LIVE_P (f
) && xg_hide_tooltip (f
))
5612 delete_frame (frame
, Qnil
);
5616 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5617 redisplay procedure is not called when a tip frame over menu
5618 items is unmapped. Redisplay the menu manually... */
5621 struct frame
*f
= SELECTED_FRAME ();
5622 w
= f
->output_data
.x
->menubar_widget
;
5624 if (!DoesSaveUnders (FRAME_DISPLAY_INFO (f
)->screen
)
5628 xlwmenu_redisplay (w
);
5632 #endif /* USE_LUCID */
5642 /***********************************************************************
5643 File selection dialog
5644 ***********************************************************************/
5646 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5647 Sx_uses_old_gtk_dialog
,
5649 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5655 && window_system_available (SELECTED_FRAME ())
5656 && xg_uses_old_file_dialog ())
5664 /* Callback for "OK" and "Cancel" on file selection dialog. */
5667 file_dialog_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5669 int *result
= client_data
;
5670 XmAnyCallbackStruct
*cb
= call_data
;
5671 *result
= cb
->reason
;
5675 /* Callback for unmapping a file selection dialog. This is used to
5676 capture the case where a dialog is closed via a window manager's
5677 closer button, for example. Using a XmNdestroyCallback didn't work
5681 file_dialog_unmap_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5683 int *result
= client_data
;
5684 *result
= XmCR_CANCEL
;
5688 clean_up_file_dialog (void *arg
)
5690 Widget dialog
= arg
;
5694 XtUnmanageChild (dialog
);
5695 XtDestroyWidget (dialog
);
5696 x_menu_set_in_use (0);
5701 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5702 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5703 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5704 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5705 or directory must exist.
5707 This function is only defined on NS, MS Windows, and X Windows with the
5708 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5709 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5710 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
,
5711 Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5714 struct frame
*f
= SELECTED_FRAME ();
5715 Lisp_Object file
= Qnil
;
5716 Lisp_Object decoded_file
;
5717 Widget dialog
, text
, help
;
5720 XmString dir_xmstring
, pattern_xmstring
;
5722 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5724 check_window_system (f
);
5726 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5728 if (popup_activated ())
5729 error ("Trying to use a menu from within a menu-entry");
5731 CHECK_STRING (prompt
);
5734 /* Prevent redisplay. */
5735 specbind (Qinhibit_redisplay
, Qt
);
5739 /* Create the dialog with PROMPT as title, using DIR as initial
5740 directory and using "*" as pattern. */
5741 dir
= Fexpand_file_name (dir
, Qnil
);
5742 dir_xmstring
= XmStringCreateLocalized (SSDATA (dir
));
5743 pattern_xmstring
= XmStringCreateLocalized ("*");
5745 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5746 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5747 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5748 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5749 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5750 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5752 XmStringFree (dir_xmstring
);
5753 XmStringFree (pattern_xmstring
);
5755 /* Add callbacks for OK and Cancel. */
5756 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5757 (XtPointer
) &result
);
5758 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5759 (XtPointer
) &result
);
5760 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5761 (XtPointer
) &result
);
5763 /* Remove the help button since we can't display help. */
5764 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5765 XtUnmanageChild (help
);
5767 /* Mark OK button as default. */
5768 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5769 XmNshowAsDefault
, True
, NULL
);
5771 /* If MUSTMATCH is non-nil, disable the file entry field of the
5772 dialog, so that the user must select a file from the files list
5773 box. We can't remove it because we wouldn't have a way to get at
5774 the result file name, then. */
5775 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5776 if (!NILP (mustmatch
))
5779 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5780 XtSetSensitive (text
, False
);
5781 XtSetSensitive (label
, False
);
5784 /* Manage the dialog, so that list boxes get filled. */
5785 XtManageChild (dialog
);
5787 if (STRINGP (default_filename
))
5789 XmString default_xmstring
;
5790 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5791 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5793 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5794 XmTextFieldReplace (wtext
, 0, last_pos
,
5795 (SSDATA (Ffile_name_nondirectory (default_filename
))));
5797 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5798 must include the path for this to work. */
5800 default_xmstring
= XmStringCreateLocalized (SSDATA (default_filename
));
5802 if (XmListItemExists (list
, default_xmstring
))
5804 int item_pos
= XmListItemPos (list
, default_xmstring
);
5805 /* Select the item and scroll it into view. */
5806 XmListSelectPos (list
, item_pos
, True
);
5807 XmListSetPos (list
, item_pos
);
5810 XmStringFree (default_xmstring
);
5813 record_unwind_protect_ptr (clean_up_file_dialog
, dialog
);
5815 /* Process events until the user presses Cancel or OK. */
5816 x_menu_set_in_use (1);
5821 x_menu_wait_for_event (0);
5822 XtAppNextEvent (Xt_app_con
, &event
);
5823 if (event
.type
== KeyPress
5824 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5826 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5828 /* Pop down on C-g. */
5829 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5830 XtUnmanageChild (dialog
);
5833 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5836 /* Get the result. */
5837 if (result
== XmCR_OK
)
5839 XmString text_string
;
5842 XtVaGetValues (dialog
, XmNtextString
, &text_string
, NULL
);
5843 XmStringGetLtoR (text_string
, XmFONTLIST_DEFAULT_TAG
, &data
);
5844 XmStringFree (text_string
);
5845 file
= build_string (data
);
5854 /* Make "Cancel" equivalent to C-g. */
5856 Fsignal (Qquit
, Qnil
);
5858 decoded_file
= DECODE_FILE (file
);
5861 return decoded_file
;
5864 #endif /* USE_MOTIF */
5869 clean_up_dialog (void)
5871 x_menu_set_in_use (0);
5874 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5875 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5876 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5877 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5878 or directory must exist.
5880 This function is only defined on NS, MS Windows, and X Windows with the
5881 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5882 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5883 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5885 struct frame
*f
= SELECTED_FRAME ();
5887 Lisp_Object file
= Qnil
;
5888 Lisp_Object decoded_file
;
5890 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5893 check_window_system (f
);
5895 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5897 if (popup_activated ())
5898 error ("Trying to use a menu from within a menu-entry");
5900 CHECK_STRING (prompt
);
5903 /* Prevent redisplay. */
5904 specbind (Qinhibit_redisplay
, Qt
);
5905 record_unwind_protect_void (clean_up_dialog
);
5909 if (STRINGP (default_filename
))
5910 cdef_file
= SSDATA (default_filename
);
5912 cdef_file
= SSDATA (dir
);
5914 fn
= xg_get_file_name (f
, SSDATA (prompt
), cdef_file
,
5916 ! NILP (only_dir_p
));
5920 file
= build_string (fn
);
5927 /* Make "Cancel" equivalent to C-g. */
5929 Fsignal (Qquit
, Qnil
);
5931 decoded_file
= DECODE_FILE (file
);
5934 return decoded_file
;
5938 #ifdef HAVE_FREETYPE
5940 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5941 doc
: /* Read a font using a GTK dialog.
5942 Return either a font spec (for GTK versions >= 3.2) or a string
5943 containing a GTK-style font name.
5945 FRAME is the frame on which to pop up the font chooser. If omitted or
5946 nil, it defaults to the selected frame. */)
5947 (Lisp_Object frame
, Lisp_Object ignored
)
5949 struct frame
*f
= decode_window_system_frame (frame
);
5951 Lisp_Object font_param
;
5952 char *default_name
= NULL
;
5953 struct gcpro gcpro1
, gcpro2
;
5956 if (popup_activated ())
5957 error ("Trying to use a menu from within a menu-entry");
5959 /* Prevent redisplay. */
5960 specbind (Qinhibit_redisplay
, Qt
);
5961 record_unwind_protect_void (clean_up_dialog
);
5965 GCPRO2 (font_param
, font
);
5967 XSETFONT (font
, FRAME_FONT (f
));
5968 font_param
= Ffont_get (font
, intern (":name"));
5969 if (STRINGP (font_param
))
5970 default_name
= xstrdup (SSDATA (font_param
));
5973 font_param
= Fframe_parameter (frame
, Qfont_param
);
5974 if (STRINGP (font_param
))
5975 default_name
= xstrdup (SSDATA (font_param
));
5978 font
= xg_get_font (f
, default_name
);
5979 xfree (default_name
);
5984 Fsignal (Qquit
, Qnil
);
5989 #endif /* HAVE_FREETYPE */
5991 #endif /* USE_GTK */
5994 /***********************************************************************
5996 ***********************************************************************/
5999 #include <X11/XKBlib.h>
6000 #include <X11/keysym.h>
6003 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
6004 Sx_backspace_delete_keys_p
, 0, 1, 0,
6005 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
6006 FRAME nil means use the selected frame.
6007 Value is t if we know that both keys are present, and are mapped to the
6008 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
6009 present and mapped to the usual X keysyms. */)
6016 struct frame
*f
= decode_window_system_frame (frame
);
6017 Display
*dpy
= FRAME_X_DISPLAY (f
);
6018 Lisp_Object have_keys
;
6019 int major
, minor
, op
, event
, error_code
;
6023 /* Check library version in case we're dynamically linked. */
6024 major
= XkbMajorVersion
;
6025 minor
= XkbMinorVersion
;
6026 if (!XkbLibraryVersion (&major
, &minor
))
6032 /* Check that the server supports XKB. */
6033 major
= XkbMajorVersion
;
6034 minor
= XkbMinorVersion
;
6035 if (!XkbQueryExtension (dpy
, &op
, &event
, &error_code
, &major
, &minor
))
6041 /* In this code we check that the keyboard has physical keys with names
6042 that start with BKSP (Backspace) and DELE (Delete), and that they
6043 generate keysym XK_BackSpace and XK_Delete respectively.
6044 This function is used to test if normal-erase-is-backspace should be
6046 An alternative approach would be to just check if XK_BackSpace and
6047 XK_Delete are mapped to any key. But if any of those are mapped to
6048 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
6049 user doesn't know about it, it is better to return false here.
6050 It is more obvious to the user what to do if she/he has two keys
6051 clearly marked with names/symbols and one key does something not
6052 expected (i.e. she/he then tries the other).
6053 The cases where Backspace/Delete is mapped to some other key combination
6054 are rare, and in those cases, normal-erase-is-backspace can be turned on
6058 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
6061 int delete_keycode
= 0, backspace_keycode
= 0, i
;
6063 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
6065 for (i
= kb
->min_key_code
;
6066 (i
< kb
->max_key_code
6067 && (delete_keycode
== 0 || backspace_keycode
== 0));
6070 /* The XKB symbolic key names can be seen most easily in
6071 the PS file generated by `xkbprint -label name
6073 if (memcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
6075 else if (memcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
6076 backspace_keycode
= i
;
6079 XkbFreeNames (kb
, 0, True
);
6082 XkbFreeClientMap (kb
, 0, True
);
6085 && backspace_keycode
6086 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
6087 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
6097 /***********************************************************************
6099 ***********************************************************************/
6101 /* Keep this list in the same order as frame_parms in frame.c.
6102 Use 0 for unsupported frame parameters. */
6104 frame_parm_handler x_frame_parm_handlers
[] =
6108 x_set_background_color
,
6114 x_set_foreground_color
,
6117 x_set_internal_border_width
,
6118 x_set_right_divider_width
,
6119 x_set_bottom_divider_width
,
6120 x_set_menu_bar_lines
,
6122 x_explicitly_set_name
,
6123 x_set_scroll_bar_width
,
6126 x_set_vertical_scroll_bars
,
6128 x_set_tool_bar_lines
,
6129 x_set_scroll_bar_foreground
,
6130 x_set_scroll_bar_background
,
6140 x_set_tool_bar_position
,
6148 DEFSYM (Qundefined_color
, "undefined-color");
6149 DEFSYM (Qcompound_text
, "compound-text");
6150 DEFSYM (Qcancel_timer
, "cancel-timer");
6151 DEFSYM (Qfont_param
, "font-parameter");
6153 Fput (Qundefined_color
, Qerror_conditions
,
6154 listn (CONSTYPE_PURE
, 2, Qundefined_color
, Qerror
));
6155 Fput (Qundefined_color
, Qerror_message
,
6156 build_pure_c_string ("Undefined color"));
6158 DEFVAR_LISP ("x-pointer-shape", Vx_pointer_shape
,
6159 doc
: /* The shape of the pointer when over text.
6160 Changing the value does not affect existing frames
6161 unless you set the mouse color. */);
6162 Vx_pointer_shape
= Qnil
;
6164 #if 0 /* This doesn't really do anything. */
6165 DEFVAR_LISP ("x-nontext-pointer-shape", Vx_nontext_pointer_shape
,
6166 doc
: /* The shape of the pointer when not over text.
6167 This variable takes effect when you create a new frame
6168 or when you set the mouse color. */);
6170 Vx_nontext_pointer_shape
= Qnil
;
6172 DEFVAR_LISP ("x-hourglass-pointer-shape", Vx_hourglass_pointer_shape
,
6173 doc
: /* The shape of the pointer when Emacs is busy.
6174 This variable takes effect when you create a new frame
6175 or when you set the mouse color. */);
6176 Vx_hourglass_pointer_shape
= Qnil
;
6178 #if 0 /* This doesn't really do anything. */
6179 DEFVAR_LISP ("x-mode-pointer-shape", Vx_mode_pointer_shape
,
6180 doc
: /* The shape of the pointer when over the mode line.
6181 This variable takes effect when you create a new frame
6182 or when you set the mouse color. */);
6184 Vx_mode_pointer_shape
= Qnil
;
6186 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
6187 Vx_sensitive_text_pointer_shape
,
6188 doc
: /* The shape of the pointer when over mouse-sensitive text.
6189 This variable takes effect when you create a new frame
6190 or when you set the mouse color. */);
6191 Vx_sensitive_text_pointer_shape
= Qnil
;
6193 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
6194 Vx_window_horizontal_drag_shape
,
6195 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
6196 This variable takes effect when you create a new frame
6197 or when you set the mouse color. */);
6198 Vx_window_horizontal_drag_shape
= Qnil
;
6200 DEFVAR_LISP ("x-window-vertical-drag-cursor",
6201 Vx_window_vertical_drag_shape
,
6202 doc
: /* Pointer shape to use for indicating a window can be dragged vertically.
6203 This variable takes effect when you create a new frame
6204 or when you set the mouse color. */);
6205 Vx_window_vertical_drag_shape
= Qnil
;
6207 DEFVAR_LISP ("x-cursor-fore-pixel", Vx_cursor_fore_pixel
,
6208 doc
: /* A string indicating the foreground color of the cursor box. */);
6209 Vx_cursor_fore_pixel
= Qnil
;
6211 DEFVAR_LISP ("x-max-tooltip-size", Vx_max_tooltip_size
,
6212 doc
: /* Maximum size for tooltips.
6213 Value is a pair (COLUMNS . ROWS). Text larger than this is clipped. */);
6214 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
6216 DEFVAR_LISP ("x-no-window-manager", Vx_no_window_manager
,
6217 doc
: /* Non-nil if no X window manager is in use.
6218 Emacs doesn't try to figure this out; this is always nil
6219 unless you set it to something else. */);
6220 /* We don't have any way to find this out, so set it to nil
6221 and maybe the user would like to set it to t. */
6222 Vx_no_window_manager
= Qnil
;
6224 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
6225 Vx_pixel_size_width_font_regexp
,
6226 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
6228 Since Emacs gets width of a font matching with this regexp from
6229 PIXEL_SIZE field of the name, font finding mechanism gets faster for
6230 such a font. This is especially effective for such large fonts as
6231 Chinese, Japanese, and Korean. */);
6232 Vx_pixel_size_width_font_regexp
= Qnil
;
6234 /* This is not ifdef:ed, so other builds than GTK can customize it. */
6235 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", x_gtk_use_old_file_dialog
,
6236 doc
: /* Non-nil means prompt with the old GTK file selection dialog.
6237 If nil or if the file selection dialog is not available, the new GTK file
6238 chooser is used instead. To turn off all file dialogs set the
6239 variable `use-file-dialog'. */);
6240 x_gtk_use_old_file_dialog
= 0;
6242 DEFVAR_BOOL ("x-gtk-show-hidden-files", x_gtk_show_hidden_files
,
6243 doc
: /* If non-nil, the GTK file chooser will by default show hidden files.
6244 Note that this is just the default, there is a toggle button on the file
6245 chooser to show or not show hidden files on a case by case basis. */);
6246 x_gtk_show_hidden_files
= 0;
6248 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", x_gtk_file_dialog_help_text
,
6249 doc
: /* If non-nil, the GTK file chooser will show additional help text.
6250 If more space for files in the file chooser dialog is wanted, set this to nil
6251 to turn the additional text off. */);
6252 x_gtk_file_dialog_help_text
= 1;
6254 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", x_gtk_whole_detached_tool_bar
,
6255 doc
: /* If non-nil, a detached tool bar is shown in full.
6256 The default is to just show an arrow and pressing on that arrow shows
6257 the tool bar buttons. */);
6258 x_gtk_whole_detached_tool_bar
= 0;
6260 DEFVAR_BOOL ("x-gtk-use-system-tooltips", x_gtk_use_system_tooltips
,
6261 doc
: /* If non-nil with a Gtk+ built Emacs, the Gtk+ tooltip is used.
6262 Otherwise use Emacs own tooltip implementation.
6263 When using Gtk+ tooltips, the tooltip face is not used. */);
6264 x_gtk_use_system_tooltips
= 1;
6266 /* Tell Emacs about this window system. */
6267 Fprovide (Qx
, Qnil
);
6269 #ifdef USE_X_TOOLKIT
6270 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6272 Fprovide (intern_c_string ("motif"), Qnil
);
6274 DEFVAR_LISP ("motif-version-string", Vmotif_version_string
,
6275 doc
: /* Version info for LessTif/Motif. */);
6276 Vmotif_version_string
= build_string (XmVERSION_STRING
);
6277 #endif /* USE_MOTIF */
6278 #endif /* USE_X_TOOLKIT */
6281 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
6282 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
6283 But for a user it is a toolkit for X, and indeed, configure
6284 accepts --with-x-toolkit=gtk. */
6285 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6286 Fprovide (intern_c_string ("gtk"), Qnil
);
6287 Fprovide (intern_c_string ("move-toolbar"), Qnil
);
6289 DEFVAR_LISP ("gtk-version-string", Vgtk_version_string
,
6290 doc
: /* Version info for GTK+. */);
6292 char gtk_version
[sizeof ".." + 3 * INT_STRLEN_BOUND (int)];
6293 int len
= sprintf (gtk_version
, "%d.%d.%d",
6294 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
6295 Vgtk_version_string
= make_pure_string (gtk_version
, len
, len
, 0);
6297 #endif /* USE_GTK */
6300 staticpro (&tip_timer
);
6302 staticpro (&tip_frame
);
6304 last_show_tip_args
= Qnil
;
6305 staticpro (&last_show_tip_args
);