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/>. */
29 #include "character.h"
31 #include "intervals.h"
32 #include "dispextern.h"
34 #include "blockinput.h"
40 #include "termhooks.h"
45 #include <sys/types.h>
48 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
49 #include "bitmaps/gray.xbm"
51 #include <X11/bitmaps/gray>
54 #include "xsettings.h"
57 #include <X11/extensions/Xrandr.h>
60 #include <X11/extensions/Xinerama.h>
68 #include <X11/Shell.h>
72 #include <X11/Xaw3d/Paned.h>
73 #include <X11/Xaw3d/Label.h>
74 #else /* !HAVE_XAW3D */
75 #include <X11/Xaw/Paned.h>
76 #include <X11/Xaw/Label.h>
77 #endif /* HAVE_XAW3D */
78 #endif /* USE_MOTIF */
81 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
84 #ifdef USG /* Pacify gcc -Wunused-macros. */
92 #include "../lwlib/lwlib.h"
96 #include <Xm/DialogS.h>
97 #include <Xm/FileSB.h>
103 #include "../lwlib/xlwmenu.h"
106 #if !defined (NO_EDITRES)
108 extern void _XEditResCheckMessages (Widget
, XtPointer
, XEvent
*, Boolean
*);
109 #endif /* not defined NO_EDITRES */
111 /* Unique id counter for widgets created by the Lucid Widget Library. */
113 extern LWLIB_ID widget_id_tick
;
117 #endif /* USE_MOTIF */
119 #endif /* USE_X_TOOLKIT */
125 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
127 static Lisp_Object Qsuppress_icon
;
128 static Lisp_Object Qundefined_color
;
129 static Lisp_Object Qcompound_text
, Qcancel_timer
;
130 Lisp_Object Qfont_param
;
133 static ptrdiff_t image_cache_refcount
;
134 static int dpyinfo_refcount
;
137 static struct x_display_info
*x_display_info_for_name (Lisp_Object
);
139 /* Let the user specify an X display with a Lisp object.
140 OBJECT may be nil, a frame or a terminal object.
141 nil stands for the selected frame--or, if that is not an X frame,
142 the first X display on the list. */
144 struct x_display_info
*
145 check_x_display_info (Lisp_Object object
)
147 struct x_display_info
*dpyinfo
= NULL
;
151 struct frame
*sf
= XFRAME (selected_frame
);
153 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
154 dpyinfo
= FRAME_DISPLAY_INFO (sf
);
155 else if (x_display_list
!= 0)
156 dpyinfo
= x_display_list
;
158 error ("X windows are not in use or not initialized");
160 else if (TERMINALP (object
))
162 struct terminal
*t
= get_terminal (object
, 1);
164 if (t
->type
!= output_x_window
)
165 error ("Terminal %d is not an X display", t
->id
);
167 dpyinfo
= t
->display_info
.x
;
169 else if (STRINGP (object
))
170 dpyinfo
= x_display_info_for_name (object
);
173 struct frame
*f
= decode_window_system_frame (object
);
174 dpyinfo
= FRAME_DISPLAY_INFO (f
);
180 /* Store the screen positions of frame F into XPTR and YPTR.
181 These are the positions of the containing window manager window,
182 not Emacs's own window. */
185 x_real_positions (struct frame
*f
, int *xptr
, int *yptr
)
187 int win_x
, win_y
, outer_x
IF_LINT (= 0), outer_y
IF_LINT (= 0);
188 int real_x
= 0, real_y
= 0;
190 Window win
= f
->output_data
.x
->parent_desc
;
192 unsigned long actual_size
, bytes_remaining
;
193 int rc
, actual_format
;
194 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
196 Display
*dpy
= FRAME_X_DISPLAY (f
);
197 unsigned char *tmp_data
= NULL
;
198 Atom target_type
= XA_CARDINAL
;
202 x_catch_errors (dpy
);
204 if (win
== dpyinfo
->root_window
)
205 win
= FRAME_OUTER_WINDOW (f
);
207 /* This loop traverses up the containment tree until we hit the root
208 window. Window managers may intersect many windows between our window
209 and the root window. The window we find just before the root window
210 should be the outer WM window. */
213 Window wm_window
, rootw
;
214 Window
*tmp_children
;
215 unsigned int tmp_nchildren
;
218 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
219 &wm_window
, &tmp_children
, &tmp_nchildren
);
221 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
223 /* Don't free tmp_children if XQueryTree failed. */
227 XFree (tmp_children
);
229 if (wm_window
== rootw
|| had_errors
)
240 /* Get the real coordinates for the WM window upper left corner */
241 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
242 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
244 /* Translate real coordinates to coordinates relative to our
245 window. For our window, the upper left corner is 0, 0.
246 Since the upper left corner of the WM window is outside
247 our window, win_x and win_y will be negative:
249 ------------------ ---> x
251 | ----------------- v y
254 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
256 /* From-window, to-window. */
257 FRAME_DISPLAY_INFO (f
)->root_window
,
260 /* From-position, to-position. */
261 real_x
, real_y
, &win_x
, &win_y
,
266 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
273 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
275 /* From-window, to-window. */
276 FRAME_DISPLAY_INFO (f
)->root_window
,
277 FRAME_OUTER_WINDOW (f
),
279 /* From-position, to-position. */
280 real_x
, real_y
, &outer_x
, &outer_y
,
286 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
290 if (dpyinfo
->root_window
== f
->output_data
.x
->parent_desc
)
292 /* Try _NET_FRAME_EXTENTS if our parent is the root window. */
293 rc
= XGetWindowProperty (dpy
, win
, dpyinfo
->Xatom_net_frame_extents
,
294 0, max_len
, False
, target_type
,
295 &actual_type
, &actual_format
, &actual_size
,
296 &bytes_remaining
, &tmp_data
);
298 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
299 && actual_size
== 4 && actual_format
== 32)
303 long *fe
= (long *)tmp_data
;
305 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
306 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
314 if (tmp_data
) XFree (tmp_data
);
320 if (had_errors
) return;
322 f
->x_pixels_diff
= -win_x
;
323 f
->y_pixels_diff
= -win_y
;
325 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
326 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
335 /* Gamma-correct COLOR on frame F. */
338 gamma_correct (struct frame
*f
, XColor
*color
)
342 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
343 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
344 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
349 /* Decide if color named COLOR_NAME is valid for use on frame F. If
350 so, return the RGB values in COLOR. If ALLOC_P,
351 allocate the color. Value is false if COLOR_NAME is invalid, or
352 no color could be allocated. */
355 x_defined_color (struct frame
*f
, const char *color_name
,
356 XColor
*color
, bool alloc_p
)
359 Display
*dpy
= FRAME_X_DISPLAY (f
);
360 Colormap cmap
= FRAME_X_COLORMAP (f
);
364 success_p
= xg_check_special_colors (f
, color_name
, color
);
367 success_p
= XParseColor (dpy
, cmap
, color_name
, color
) != 0;
368 if (success_p
&& alloc_p
)
369 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
376 /* Return the pixel color value for color COLOR_NAME on frame F. If F
377 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
378 Signal an error if color can't be allocated. */
381 x_decode_color (struct frame
*f
, Lisp_Object color_name
, int mono_color
)
385 CHECK_STRING (color_name
);
387 #if 0 /* Don't do this. It's wrong when we're not using the default
388 colormap, it makes freeing difficult, and it's probably not
389 an important optimization. */
390 if (strcmp (SDATA (color_name
), "black") == 0)
391 return BLACK_PIX_DEFAULT (f
);
392 else if (strcmp (SDATA (color_name
), "white") == 0)
393 return WHITE_PIX_DEFAULT (f
);
396 /* Return MONO_COLOR for monochrome frames. */
397 if (FRAME_DISPLAY_INFO (f
)->n_planes
== 1)
400 /* x_defined_color is responsible for coping with failures
401 by looking for a near-miss. */
402 if (x_defined_color (f
, SSDATA (color_name
), &cdef
, 1))
405 signal_error ("Undefined color", color_name
);
410 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
411 the previous value of that parameter, NEW_VALUE is the new value.
412 See also the comment of wait_for_wm in struct x_output. */
415 x_set_wait_for_wm (struct frame
*f
, Lisp_Object new_value
, Lisp_Object old_value
)
417 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
421 x_set_tool_bar_position (struct frame
*f
,
422 Lisp_Object new_value
,
423 Lisp_Object old_value
)
425 if (! EQ (new_value
, Qleft
) && ! EQ (new_value
, Qright
)
426 && ! EQ (new_value
, Qbottom
) && ! EQ (new_value
, Qtop
))
428 if (EQ (new_value
, old_value
)) return;
431 xg_change_toolbar_position (f
, new_value
);
432 fset_tool_bar_position (f
, new_value
);
438 /* Set icon from FILE for frame F. By using GTK functions the icon
439 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
442 xg_set_icon (struct frame
*f
, Lisp_Object file
)
447 found
= x_find_image_file (file
);
453 char *filename
= SSDATA (found
);
456 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
460 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
462 g_object_unref (pixbuf
);
476 xg_set_icon_from_xpm_data (struct frame
*f
, const char **data
)
478 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data (data
);
483 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
484 g_object_unref (pixbuf
);
490 /* Functions called only from `x_set_frame_param'
491 to set individual parameters.
493 If FRAME_X_WINDOW (f) is 0,
494 the frame is being created and its X-window does not exist yet.
495 In that case, just record the parameter's new value
496 in the standard place; do not attempt to change the window. */
499 x_set_foreground_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
501 struct x_output
*x
= f
->output_data
.x
;
502 unsigned long fg
, old_fg
;
504 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
505 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
506 FRAME_FOREGROUND_PIXEL (f
) = fg
;
508 if (FRAME_X_WINDOW (f
) != 0)
510 Display
*dpy
= FRAME_X_DISPLAY (f
);
513 XSetForeground (dpy
, x
->normal_gc
, fg
);
514 XSetBackground (dpy
, x
->reverse_gc
, fg
);
516 if (x
->cursor_pixel
== old_fg
)
518 unload_color (f
, x
->cursor_pixel
);
519 x
->cursor_pixel
= x_copy_color (f
, fg
);
520 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
525 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
527 if (FRAME_VISIBLE_P (f
))
531 unload_color (f
, old_fg
);
535 x_set_background_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
537 struct x_output
*x
= f
->output_data
.x
;
540 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
541 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
542 FRAME_BACKGROUND_PIXEL (f
) = bg
;
544 if (FRAME_X_WINDOW (f
) != 0)
546 Display
*dpy
= FRAME_X_DISPLAY (f
);
549 XSetBackground (dpy
, x
->normal_gc
, bg
);
550 XSetForeground (dpy
, x
->reverse_gc
, bg
);
551 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
552 XSetForeground (dpy
, x
->cursor_gc
, bg
);
555 xg_set_background_color (f
, bg
);
558 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
559 toolkit scroll bars. */
562 for (bar
= FRAME_SCROLL_BARS (f
);
564 bar
= XSCROLL_BAR (bar
)->next
)
566 Window window
= XSCROLL_BAR (bar
)->x_window
;
567 XSetWindowBackground (dpy
, window
, bg
);
570 #endif /* USE_TOOLKIT_SCROLL_BARS */
573 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
575 if (FRAME_VISIBLE_P (f
))
581 make_invisible_cursor (struct frame
*f
)
583 Display
*dpy
= FRAME_X_DISPLAY (f
);
584 static char const no_data
[] = { 0 };
589 x_catch_errors (dpy
);
590 pix
= XCreateBitmapFromData (dpy
, FRAME_DISPLAY_INFO (f
)->root_window
,
592 if (! x_had_errors_p (dpy
) && pix
!= None
)
596 col
.red
= col
.green
= col
.blue
= 0;
597 col
.flags
= DoRed
| DoGreen
| DoBlue
;
598 pixc
= XCreatePixmapCursor (dpy
, pix
, pix
, &col
, &col
, 0, 0);
599 if (! x_had_errors_p (dpy
) && pixc
!= None
)
601 XFreePixmap (dpy
, pix
);
610 x_set_mouse_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
612 struct x_output
*x
= f
->output_data
.x
;
613 Display
*dpy
= FRAME_X_DISPLAY (f
);
614 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
615 Cursor hourglass_cursor
, horizontal_drag_cursor
, vertical_drag_cursor
;
616 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
617 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
619 /* Don't let pointers be invisible. */
620 if (mask_color
== pixel
)
622 x_free_colors (f
, &pixel
, 1);
623 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
626 unload_color (f
, x
->mouse_pixel
);
627 x
->mouse_pixel
= pixel
;
631 /* It's not okay to crash if the user selects a screwy cursor. */
632 x_catch_errors (dpy
);
634 if (!NILP (Vx_pointer_shape
))
636 CHECK_NUMBER (Vx_pointer_shape
);
637 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
640 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
641 x_check_errors (dpy
, "bad text pointer cursor: %s");
643 if (!NILP (Vx_nontext_pointer_shape
))
645 CHECK_NUMBER (Vx_nontext_pointer_shape
);
647 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
650 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
651 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
653 if (!NILP (Vx_hourglass_pointer_shape
))
655 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
657 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
660 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
661 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
663 if (!NILP (Vx_mode_pointer_shape
))
665 CHECK_NUMBER (Vx_mode_pointer_shape
);
666 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
669 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
670 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
672 if (!NILP (Vx_sensitive_text_pointer_shape
))
674 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
676 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
679 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
681 if (!NILP (Vx_window_horizontal_drag_shape
))
683 CHECK_TYPE_RANGED_INTEGER (unsigned, Vx_window_horizontal_drag_shape
);
684 horizontal_drag_cursor
685 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
688 horizontal_drag_cursor
689 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
691 if (!NILP (Vx_window_vertical_drag_shape
))
693 CHECK_NUMBER (Vx_window_vertical_drag_shape
);
695 = XCreateFontCursor (dpy
, XINT (Vx_window_vertical_drag_shape
));
699 = XCreateFontCursor (dpy
, XC_sb_v_double_arrow
);
701 /* Check and report errors with the above calls. */
702 x_check_errors (dpy
, "can't set cursor shape: %s");
706 XColor fore_color
, back_color
;
708 fore_color
.pixel
= x
->mouse_pixel
;
709 x_query_color (f
, &fore_color
);
710 back_color
.pixel
= mask_color
;
711 x_query_color (f
, &back_color
);
713 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
714 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
715 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
716 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
717 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
718 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
719 XRecolorCursor (dpy
, vertical_drag_cursor
, &fore_color
, &back_color
);
722 if (FRAME_X_WINDOW (f
) != 0)
723 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
724 f
->output_data
.x
->current_cursor
= cursor
);
726 if (FRAME_DISPLAY_INFO (f
)->invisible_cursor
== 0)
727 FRAME_DISPLAY_INFO (f
)->invisible_cursor
= make_invisible_cursor (f
);
729 if (cursor
!= x
->text_cursor
730 && x
->text_cursor
!= 0)
731 XFreeCursor (dpy
, x
->text_cursor
);
732 x
->text_cursor
= cursor
;
734 if (nontext_cursor
!= x
->nontext_cursor
735 && x
->nontext_cursor
!= 0)
736 XFreeCursor (dpy
, x
->nontext_cursor
);
737 x
->nontext_cursor
= nontext_cursor
;
739 if (hourglass_cursor
!= x
->hourglass_cursor
740 && x
->hourglass_cursor
!= 0)
741 XFreeCursor (dpy
, x
->hourglass_cursor
);
742 x
->hourglass_cursor
= hourglass_cursor
;
744 if (mode_cursor
!= x
->modeline_cursor
745 && x
->modeline_cursor
!= 0)
746 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
747 x
->modeline_cursor
= mode_cursor
;
749 if (hand_cursor
!= x
->hand_cursor
750 && x
->hand_cursor
!= 0)
751 XFreeCursor (dpy
, x
->hand_cursor
);
752 x
->hand_cursor
= hand_cursor
;
754 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
755 && x
->horizontal_drag_cursor
!= 0)
756 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
757 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
759 if (vertical_drag_cursor
!= x
->vertical_drag_cursor
760 && x
->vertical_drag_cursor
!= 0)
761 XFreeCursor (dpy
, x
->vertical_drag_cursor
);
762 x
->vertical_drag_cursor
= vertical_drag_cursor
;
767 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
771 x_set_cursor_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
773 unsigned long fore_pixel
, pixel
;
774 bool fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
775 struct x_output
*x
= f
->output_data
.x
;
777 if (!NILP (Vx_cursor_fore_pixel
))
779 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
780 WHITE_PIX_DEFAULT (f
));
781 fore_pixel_allocated_p
= 1;
784 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
786 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
787 pixel_allocated_p
= 1;
789 /* Make sure that the cursor color differs from the background color. */
790 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
792 if (pixel_allocated_p
)
794 x_free_colors (f
, &pixel
, 1);
795 pixel_allocated_p
= 0;
798 pixel
= x
->mouse_pixel
;
799 if (pixel
== fore_pixel
)
801 if (fore_pixel_allocated_p
)
803 x_free_colors (f
, &fore_pixel
, 1);
804 fore_pixel_allocated_p
= 0;
806 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
810 unload_color (f
, x
->cursor_foreground_pixel
);
811 if (!fore_pixel_allocated_p
)
812 fore_pixel
= x_copy_color (f
, fore_pixel
);
813 x
->cursor_foreground_pixel
= fore_pixel
;
815 unload_color (f
, x
->cursor_pixel
);
816 if (!pixel_allocated_p
)
817 pixel
= x_copy_color (f
, pixel
);
818 x
->cursor_pixel
= pixel
;
820 if (FRAME_X_WINDOW (f
) != 0)
823 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
824 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
827 if (FRAME_VISIBLE_P (f
))
829 x_update_cursor (f
, 0);
830 x_update_cursor (f
, 1);
834 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
837 /* Set the border-color of frame F to pixel value PIX.
838 Note that this does not fully take effect if done before
839 F has an x-window. */
842 x_set_border_pixel (struct frame
*f
, int pix
)
844 unload_color (f
, f
->output_data
.x
->border_pixel
);
845 f
->output_data
.x
->border_pixel
= pix
;
847 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
850 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), pix
);
853 if (FRAME_VISIBLE_P (f
))
858 /* Set the border-color of frame F to value described by ARG.
859 ARG can be a string naming a color.
860 The border-color is used for the border that is drawn by the X server.
861 Note that this does not fully take effect if done before
862 F has an x-window; it must be redone when the window is created.
864 Note: this is done in two routines because of the way X10 works.
866 Note: under X11, this is normally the province of the window manager,
867 and so emacs's border colors may be overridden. */
870 x_set_border_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
875 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
876 x_set_border_pixel (f
, pix
);
877 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
882 x_set_cursor_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
884 set_frame_cursor_types (f
, arg
);
888 x_set_icon_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
894 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
897 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
902 result
= x_text_icon (f
,
903 SSDATA ((!NILP (f
->icon_name
)
907 result
= x_bitmap_icon (f
, arg
);
912 error ("No icon window available");
915 XFlush (FRAME_X_DISPLAY (f
));
920 x_set_icon_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
926 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
929 else if (!NILP (arg
) || NILP (oldval
))
932 fset_icon_name (f
, arg
);
934 if (f
->output_data
.x
->icon_bitmap
!= 0)
939 result
= x_text_icon (f
,
940 SSDATA ((!NILP (f
->icon_name
)
949 error ("No icon window available");
952 XFlush (FRAME_X_DISPLAY (f
));
958 x_set_menu_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
961 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
962 int olines
= FRAME_MENU_BAR_LINES (f
);
965 /* Right now, menu bars don't work properly in minibuf-only frames;
966 most of the commands try to apply themselves to the minibuffer
967 frame itself, and get an error because you can't switch buffers
968 in or split the minibuffer window. */
969 if (FRAME_MINIBUF_ONLY_P (f
))
972 if (TYPE_RANGED_INTEGERP (int, value
))
973 nlines
= XINT (value
);
977 /* Make sure we redisplay all windows in this frame. */
978 windows_or_buffers_changed
= 59;
980 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
981 FRAME_MENU_BAR_LINES (f
) = 0;
982 FRAME_MENU_BAR_HEIGHT (f
) = 0;
985 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
986 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
987 /* Make sure next redisplay shows the menu bar. */
988 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= 1;
992 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
993 free_frame_menubar (f
);
994 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
996 f
->output_data
.x
->menubar_widget
= 0;
998 #else /* not USE_X_TOOLKIT && not USE_GTK */
999 FRAME_MENU_BAR_LINES (f
) = nlines
;
1000 FRAME_MENU_BAR_HEIGHT (f
) = nlines
* FRAME_LINE_HEIGHT (f
);
1001 resize_frame_windows (f
, FRAME_TEXT_HEIGHT (f
), 0, 1);
1002 if (FRAME_X_WINDOW (f
))
1003 x_clear_under_internal_border (f
);
1005 /* If the menu bar height gets changed, the internal border below
1006 the top margin has to be cleared. Also, if the menu bar gets
1007 larger, the area for the added lines has to be cleared except for
1008 the first menu bar line that is to be drawn later. */
1009 if (nlines
!= olines
)
1011 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1012 int width
= FRAME_PIXEL_WIDTH (f
);
1015 /* height can be zero here. */
1016 if (FRAME_X_WINDOW (f
) && height
> 0 && width
> 0)
1018 y
= FRAME_TOP_MARGIN_HEIGHT (f
);
1021 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1022 0, y
, width
, height
);
1026 if (nlines
> 1 && nlines
> olines
)
1028 y
= (olines
== 0 ? 1 : olines
) * FRAME_LINE_HEIGHT (f
);
1029 height
= nlines
* FRAME_LINE_HEIGHT (f
) - y
;
1032 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1033 0, y
, width
, height
);
1037 if (nlines
== 0 && WINDOWP (f
->menu_bar_window
))
1038 clear_glyph_matrix (XWINDOW (f
->menu_bar_window
)->current_matrix
);
1040 #endif /* not USE_X_TOOLKIT && not USE_GTK */
1041 adjust_frame_glyphs (f
);
1042 run_window_configuration_change_hook (f
);
1046 /* Set the number of lines used for the tool bar of frame F to VALUE.
1047 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1048 is the old number of tool bar lines. This function changes the
1049 height of all windows on frame F to match the new tool bar height.
1050 The frame's height doesn't change. */
1053 x_set_tool_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1056 #if ! defined (USE_GTK)
1057 int delta
, root_height
;
1058 int unit
= FRAME_LINE_HEIGHT (f
);
1061 /* Treat tool bars like menu bars. */
1062 if (FRAME_MINIBUF_ONLY_P (f
))
1065 /* Use VALUE only if an int >= 0. */
1066 if (RANGED_INTEGERP (0, value
, INT_MAX
))
1067 nlines
= XFASTINT (value
);
1073 FRAME_TOOL_BAR_LINES (f
) = 0;
1074 FRAME_TOOL_BAR_HEIGHT (f
) = 0;
1077 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1078 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1079 /* Make sure next redisplay shows the tool bar. */
1080 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= 1;
1081 update_frame_tool_bar (f
);
1085 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1086 free_frame_tool_bar (f
);
1087 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1090 #else /* !USE_GTK */
1092 /* Make sure we redisplay all windows in this frame. */
1093 windows_or_buffers_changed
= 60;
1095 /* DELTA is in pixels now. */
1096 delta
= (nlines
- FRAME_TOOL_BAR_LINES (f
)) * unit
;
1098 /* Don't resize the tool-bar to more than we have room for. Note: The
1099 calculations below and the subsequent call to resize_frame_windows
1100 are inherently flawed because they can make the toolbar higher than
1101 the containing frame. */
1104 root_height
= WINDOW_PIXEL_HEIGHT (XWINDOW (FRAME_ROOT_WINDOW (f
)));
1105 if (root_height
- delta
< unit
)
1107 delta
= root_height
- unit
;
1108 /* When creating a new frame and toolbar mode is enabled, we
1109 need at least one toolbar line. */
1110 nlines
= max (FRAME_TOOL_BAR_LINES (f
) + delta
/ unit
, 1);
1114 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1115 FRAME_TOOL_BAR_HEIGHT (f
) = nlines
* FRAME_LINE_HEIGHT (f
);
1116 resize_frame_windows (f
, FRAME_TEXT_HEIGHT (f
), 0, 1);
1117 #if !defined USE_X_TOOLKIT && !defined USE_GTK
1118 if (FRAME_X_WINDOW (f
))
1119 x_clear_under_internal_border (f
);
1121 adjust_frame_glyphs (f
);
1123 /* We also have to make sure that the internal border at the top of
1124 the frame, below the menu bar or tool bar, is redrawn when the
1125 tool bar disappears. This is so because the internal border is
1126 below the tool bar if one is displayed, but is below the menu bar
1127 if there isn't a tool bar. The tool bar draws into the area
1128 below the menu bar. */
1129 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_HEIGHT (f
) == 0)
1132 clear_current_matrices (f
);
1135 /* If the tool bar gets smaller, the internal border below it
1136 has to be cleared. It was formerly part of the display
1137 of the larger tool bar, and updating windows won't clear it. */
1140 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1141 int width
= FRAME_PIXEL_WIDTH (f
);
1142 int y
= nlines
* unit
;
1144 /* height can be zero here. */
1145 if (height
> 0 && width
> 0)
1148 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1149 0, y
, width
, height
);
1153 if (WINDOWP (f
->tool_bar_window
))
1154 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1157 run_window_configuration_change_hook (f
);
1158 #endif /* USE_GTK */
1162 /* Set the foreground color for scroll bars on frame F to VALUE.
1163 VALUE should be a string, a color name. If it isn't a string or
1164 isn't a valid color name, do nothing. OLDVAL is the old value of
1165 the frame parameter. */
1168 x_set_scroll_bar_foreground (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1170 unsigned long pixel
;
1172 if (STRINGP (value
))
1173 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1177 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1178 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1180 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1181 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1183 /* Remove all scroll bars because they have wrong colors. */
1184 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1185 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1186 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1187 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1189 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1195 /* Set the background color for scroll bars on frame F to VALUE VALUE
1196 should be a string, a color name. If it isn't a string or isn't a
1197 valid color name, do nothing. OLDVAL is the old value of the frame
1201 x_set_scroll_bar_background (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1203 unsigned long pixel
;
1205 if (STRINGP (value
))
1206 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1210 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1211 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1213 #ifdef USE_TOOLKIT_SCROLL_BARS
1214 /* Scrollbar shadow colors. */
1215 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1217 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1218 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1220 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1222 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1223 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1225 #endif /* USE_TOOLKIT_SCROLL_BARS */
1227 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1228 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1230 /* Remove all scroll bars because they have wrong colors. */
1231 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1232 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1233 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1234 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1236 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1242 /* Encode Lisp string STRING as a text in a format appropriate for
1243 XICCC (X Inter Client Communication Conventions).
1245 This can call Lisp code, so callers must GCPRO.
1247 If STRING contains only ASCII characters, do no conversion and
1248 return the string data of STRING. Otherwise, encode the text by
1249 CODING_SYSTEM, and return a newly allocated memory area which
1250 should be freed by `xfree' by a caller.
1252 SELECTIONP non-zero means the string is being encoded for an X
1253 selection, so it is safe to run pre-write conversions (which
1256 Store the byte length of resulting text in *TEXT_BYTES.
1258 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1259 which means that the `encoding' of the result can be `STRING'.
1260 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1261 the result should be `COMPOUND_TEXT'. */
1263 static unsigned char *
1264 x_encode_text (Lisp_Object string
, Lisp_Object coding_system
, int selectionp
,
1265 ptrdiff_t *text_bytes
, int *stringp
, int *freep
)
1267 int result
= string_xstring_p (string
);
1268 struct coding_system coding
;
1272 /* No multibyte character in OBJ. We need not encode it. */
1273 *text_bytes
= SBYTES (string
);
1276 return SDATA (string
);
1279 setup_coding_system (coding_system
, &coding
);
1280 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1281 /* We suppress producing escape sequences for composition. */
1282 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1283 coding
.destination
= xnmalloc (SCHARS (string
), 2);
1284 coding
.dst_bytes
= SCHARS (string
) * 2;
1285 encode_coding_object (&coding
, string
, 0, 0,
1286 SCHARS (string
), SBYTES (string
), Qnil
);
1287 *text_bytes
= coding
.produced
;
1288 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1290 return coding
.destination
;
1294 /* Set the WM name to NAME for frame F. Also set the icon name.
1295 If the frame already has an icon name, use that, otherwise set the
1296 icon name to NAME. */
1299 x_set_name_internal (struct frame
*f
, Lisp_Object name
)
1301 if (FRAME_X_WINDOW (f
))
1305 XTextProperty text
, icon
;
1308 int do_free_icon_value
= 0, do_free_text_value
= 0;
1309 Lisp_Object coding_system
;
1310 Lisp_Object encoded_name
;
1311 Lisp_Object encoded_icon_name
;
1312 struct gcpro gcpro1
;
1314 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1315 we use it before x_encode_text that may return string data. */
1317 encoded_name
= ENCODE_UTF_8 (name
);
1320 coding_system
= Qcompound_text
;
1321 /* Note: Encoding strategy
1323 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1324 text.encoding. But, there are non-internationalized window
1325 managers which don't support that encoding. So, if NAME
1326 contains only ASCII and 8859-1 characters, encode it by
1327 iso-latin-1, and use "STRING" in text.encoding hoping that
1328 such window managers at least analyze this format correctly,
1329 i.e. treat 8-bit bytes as 8859-1 characters.
1331 We may also be able to use "UTF8_STRING" in text.encoding
1332 in the future which can encode all Unicode characters.
1333 But, for the moment, there's no way to know that the
1334 current window manager supports it or not.
1336 Either way, we also set the _NET_WM_NAME and _NET_WM_ICON_NAME
1337 properties. Per the EWMH specification, those two properties
1338 are always UTF8_STRING. This matches what gtk_window_set_title()
1339 does in the USE_GTK case. */
1340 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1341 &do_free_text_value
);
1342 text
.encoding
= (stringp
? XA_STRING
1343 : FRAME_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1345 text
.nitems
= bytes
;
1346 if (text
.nitems
!= bytes
)
1347 error ("Window name too large");
1349 if (!STRINGP (f
->icon_name
))
1352 encoded_icon_name
= encoded_name
;
1356 /* See the above comment "Note: Encoding strategy". */
1357 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1358 &bytes
, &stringp
, &do_free_icon_value
);
1359 icon
.encoding
= (stringp
? XA_STRING
1360 : FRAME_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1362 icon
.nitems
= bytes
;
1363 if (icon
.nitems
!= bytes
)
1364 error ("Icon name too large");
1366 encoded_icon_name
= ENCODE_UTF_8 (f
->icon_name
);
1370 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1371 SSDATA (encoded_name
));
1372 #else /* not USE_GTK */
1373 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1374 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1375 FRAME_DISPLAY_INFO (f
)->Xatom_net_wm_name
,
1376 FRAME_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1378 SDATA (encoded_name
),
1379 SBYTES (encoded_name
));
1380 #endif /* not USE_GTK */
1382 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1383 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1384 FRAME_DISPLAY_INFO (f
)->Xatom_net_wm_icon_name
,
1385 FRAME_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1387 SDATA (encoded_icon_name
),
1388 SBYTES (encoded_icon_name
));
1390 if (do_free_icon_value
)
1392 if (do_free_text_value
)
1399 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1402 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1403 name; if NAME is a string, set F's name to NAME and set
1404 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1406 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1407 suggesting a new name, which lisp code should override; if
1408 F->explicit_name is set, ignore the new name; otherwise, set it. */
1411 x_set_name (struct frame
*f
, Lisp_Object name
, int explicit)
1413 /* Make sure that requests from lisp code override requests from
1414 Emacs redisplay code. */
1417 /* If we're switching from explicit to implicit, we had better
1418 update the mode lines and thereby update the title. */
1419 if (f
->explicit_name
&& NILP (name
))
1420 update_mode_lines
= 37;
1422 f
->explicit_name
= ! NILP (name
);
1424 else if (f
->explicit_name
)
1427 /* If NAME is nil, set the name to the x_id_name. */
1430 /* Check for no change needed in this very common case
1431 before we do any consing. */
1432 if (!strcmp (FRAME_DISPLAY_INFO (f
)->x_id_name
,
1435 name
= build_string (FRAME_DISPLAY_INFO (f
)->x_id_name
);
1438 CHECK_STRING (name
);
1440 /* Don't change the name if it's already NAME. */
1441 if (! NILP (Fstring_equal (name
, f
->name
)))
1444 fset_name (f
, name
);
1446 /* For setting the frame title, the title parameter should override
1447 the name parameter. */
1448 if (! NILP (f
->title
))
1451 x_set_name_internal (f
, name
);
1454 /* This function should be called when the user's lisp code has
1455 specified a name for the frame; the name will override any set by the
1458 x_explicitly_set_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1460 x_set_name (f
, arg
, 1);
1463 /* This function should be called by Emacs redisplay code to set the
1464 name; names set this way will never override names set by the user's
1467 x_implicitly_set_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1469 x_set_name (f
, arg
, 0);
1472 /* Change the title of frame F to NAME.
1473 If NAME is nil, use the frame name as the title. */
1476 x_set_title (struct frame
*f
, Lisp_Object name
, Lisp_Object old_name
)
1478 /* Don't change the title if it's already NAME. */
1479 if (EQ (name
, f
->title
))
1482 update_mode_lines
= 38;
1484 fset_title (f
, name
);
1489 CHECK_STRING (name
);
1491 x_set_name_internal (f
, name
);
1495 x_set_scroll_bar_default_width (struct frame
*f
)
1497 int unit
= FRAME_COLUMN_WIDTH (f
);
1498 #ifdef USE_TOOLKIT_SCROLL_BARS
1500 int minw
= xg_get_default_scrollbar_width ();
1504 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1505 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (minw
+ unit
- 1) / unit
;
1506 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = minw
;
1508 /* The width of a non-toolkit scrollbar is at least 14 pixels and a
1509 multiple of the frame's character width. */
1510 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + unit
- 1) / unit
;
1511 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
)
1512 = FRAME_CONFIG_SCROLL_BAR_COLS (f
) * unit
;
1517 /* Record in frame F the specified or default value according to ALIST
1518 of the parameter named PROP (a Lisp symbol). If no value is
1519 specified for PROP, look for an X default for XPROP on the frame
1520 named NAME. If that is not found either, use the value DEFLT. */
1523 x_default_scroll_bar_color_parameter (struct frame
*f
,
1524 Lisp_Object alist
, Lisp_Object prop
,
1525 const char *xprop
, const char *xclass
,
1528 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
1531 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1532 if (EQ (tem
, Qunbound
))
1534 #ifdef USE_TOOLKIT_SCROLL_BARS
1536 /* See if an X resource for the scroll bar color has been
1538 tem
= display_x_get_resource (dpyinfo
,
1539 build_string (foreground_p
1542 empty_unibyte_string
,
1543 build_string ("verticalScrollBar"),
1544 empty_unibyte_string
);
1547 /* If nothing has been specified, scroll bars will use a
1548 toolkit-dependent default. Because these defaults are
1549 difficult to get at without actually creating a scroll
1550 bar, use nil to indicate that no color has been
1555 #else /* not USE_TOOLKIT_SCROLL_BARS */
1559 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1562 x_set_frame_parameters (f
, list1 (Fcons (prop
, tem
)));
1569 #ifdef USE_X_TOOLKIT
1571 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1572 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1573 already be present because of the toolkit (Motif adds some of them,
1574 for example, but Xt doesn't). */
1577 hack_wm_protocols (struct frame
*f
, Widget widget
)
1579 Display
*dpy
= XtDisplay (widget
);
1580 Window w
= XtWindow (widget
);
1581 int need_delete
= 1;
1588 unsigned char *catoms
;
1590 unsigned long nitems
= 0;
1591 unsigned long bytes_after
;
1593 if ((XGetWindowProperty (dpy
, w
,
1594 FRAME_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1595 (long)0, (long)100, False
, XA_ATOM
,
1596 &type
, &format
, &nitems
, &bytes_after
,
1599 && format
== 32 && type
== XA_ATOM
)
1601 Atom
*atoms
= (Atom
*) catoms
;
1606 == FRAME_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1608 else if (atoms
[nitems
]
1609 == FRAME_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1611 else if (atoms
[nitems
]
1612 == FRAME_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1623 props
[count
++] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1625 props
[count
++] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1627 props
[count
++] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1629 XChangeProperty (dpy
, w
, FRAME_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1630 XA_ATOM
, 32, PropModeAppend
,
1631 (unsigned char *) props
, count
);
1639 /* Support routines for XIC (X Input Context). */
1643 static XFontSet
xic_create_xfontset (struct frame
*);
1644 static XIMStyle
best_xim_style (XIMStyles
*);
1647 /* Supported XIM styles, ordered by preference. */
1649 static const XIMStyle supported_xim_styles
[] =
1651 XIMPreeditPosition
| XIMStatusArea
,
1652 XIMPreeditPosition
| XIMStatusNothing
,
1653 XIMPreeditPosition
| XIMStatusNone
,
1654 XIMPreeditNothing
| XIMStatusArea
,
1655 XIMPreeditNothing
| XIMStatusNothing
,
1656 XIMPreeditNothing
| XIMStatusNone
,
1657 XIMPreeditNone
| XIMStatusArea
,
1658 XIMPreeditNone
| XIMStatusNothing
,
1659 XIMPreeditNone
| XIMStatusNone
,
1664 #if defined HAVE_X_WINDOWS && defined USE_X_TOOLKIT
1665 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1667 static const char xic_default_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1669 /* Create an Xt fontset spec from the name of a base font.
1670 If `motif' is True use the Motif syntax. */
1672 xic_create_fontsetname (const char *base_fontname
, int motif
)
1674 const char *sep
= motif
? ";" : ",";
1677 /* Make a fontset name from the base font name. */
1678 if (xic_default_fontset
== base_fontname
)
1680 /* There is no base font name, use the default. */
1681 fontsetname
= xmalloc (strlen (base_fontname
) + 2);
1682 strcpy (fontsetname
, base_fontname
);
1686 /* Make a fontset name from the base font name.
1687 The font set will be made of the following elements:
1689 - the base font where the charset spec is replaced by -*-*.
1690 - the same but with the family also replaced with -*-*-. */
1691 const char *p
= base_fontname
;
1694 for (i
= 0; *p
; p
++)
1698 /* As the font name doesn't conform to XLFD, we can't
1699 modify it to generalize it to allcs and allfamilies.
1700 Use the specified font plus the default. */
1701 fontsetname
= xmalloc (strlen (base_fontname
)
1702 + strlen (xic_default_fontset
) + 3);
1703 strcpy (fontsetname
, base_fontname
);
1704 strcat (fontsetname
, sep
);
1705 strcat (fontsetname
, xic_default_fontset
);
1710 const char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1711 char *font_allcs
= NULL
;
1712 char *font_allfamilies
= NULL
;
1713 char *font_all
= NULL
;
1714 const char *allcs
= "*-*-*-*-*-*-*";
1715 const char *allfamilies
= "-*-*-";
1716 const char *all
= "*-*-*-*-";
1719 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
1732 /* If base_fontname specifies ADSTYLE, make it a
1736 ptrdiff_t diff
= (p2
- p3
) - 2;
1738 base
= alloca (strlen (base_fontname
) + 1);
1739 memcpy (base
, base_fontname
, p3
- base_fontname
);
1740 base
[p3
- base_fontname
] = '*';
1741 base
[(p3
- base_fontname
) + 1] = '-';
1742 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
1743 p
= base
+ (p
- base_fontname
) - diff
;
1744 p1
= base
+ (p1
- base_fontname
);
1745 p2
= base
+ (p2
- base_fontname
) - diff
;
1746 base_fontname
= base
;
1749 /* Build the font spec that matches all charsets. */
1750 len
= p
- base_fontname
+ strlen (allcs
) + 1;
1751 font_allcs
= alloca (len
);
1752 memcpy (font_allcs
, base_fontname
, p
- base_fontname
);
1753 strcat (font_allcs
, allcs
);
1755 /* Build the font spec that matches all families and
1757 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
1758 font_allfamilies
= alloca (len
);
1759 strcpy (font_allfamilies
, allfamilies
);
1760 memcpy (font_allfamilies
+ strlen (allfamilies
), p1
, p
- p1
);
1761 strcat (font_allfamilies
, allcs
);
1763 /* Build the font spec that matches all. */
1764 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
1765 font_all
= alloca (len
);
1766 strcpy (font_all
, allfamilies
);
1767 strcat (font_all
, all
);
1768 memcpy (font_all
+ strlen (all
) + strlen (allfamilies
), p2
, p
- p2
);
1769 strcat (font_all
, allcs
);
1771 /* Build the actual font set name. */
1772 len
= strlen (base_fontname
) + strlen (font_allcs
)
1773 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
1774 fontsetname
= xmalloc (len
);
1775 strcpy (fontsetname
, base_fontname
);
1776 strcat (fontsetname
, sep
);
1777 strcat (fontsetname
, font_allcs
);
1778 strcat (fontsetname
, sep
);
1779 strcat (fontsetname
, font_allfamilies
);
1780 strcat (fontsetname
, sep
);
1781 strcat (fontsetname
, font_all
);
1785 return strcat (fontsetname
, ":");
1788 #endif /* HAVE_X_WINDOWS && USE_X_TOOLKIT */
1790 #ifdef DEBUG_XIC_FONTSET
1792 print_fontset_result (XFontSet xfs
, char *name
, char **missing_list
,
1796 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
1799 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
1800 while (missing_count
-- > 0)
1802 fprintf (stderr
, " missing: %s\n", *missing_list
);
1811 xic_create_xfontset (struct frame
*f
)
1813 XFontSet xfs
= NULL
;
1814 struct font
*font
= FRAME_FONT (f
);
1815 int pixel_size
= font
->pixel_size
;
1816 Lisp_Object rest
, frame
;
1818 /* See if there is another frame already using same fontset. */
1819 FOR_EACH_FRAME (rest
, frame
)
1821 struct frame
*cf
= XFRAME (frame
);
1823 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
1824 && FRAME_DISPLAY_INFO (cf
) == FRAME_DISPLAY_INFO (f
)
1826 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
1828 xfs
= FRAME_XIC_FONTSET (cf
);
1836 char **missing_list
;
1839 const char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
1841 sprintf (buf
, xlfd_format
, pixel_size
);
1842 missing_list
= NULL
;
1843 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
1844 &missing_list
, &missing_count
, &def_string
);
1845 #ifdef DEBUG_XIC_FONTSET
1846 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
1849 XFreeStringList (missing_list
);
1852 /* List of pixel sizes most likely available. Find one that
1853 is closest to pixel_size. */
1854 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
1855 int *smaller
, *larger
;
1857 for (smaller
= sizes
; smaller
[1]; smaller
++)
1858 if (smaller
[1] >= pixel_size
)
1860 larger
= smaller
+ 1;
1861 if (*larger
== pixel_size
)
1863 while (*smaller
|| *larger
)
1868 this_size
= *smaller
--;
1869 else if (! *smaller
)
1870 this_size
= *larger
++;
1871 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
1872 this_size
= *smaller
--;
1874 this_size
= *larger
++;
1875 sprintf (buf
, xlfd_format
, this_size
);
1876 missing_list
= NULL
;
1877 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
1878 &missing_list
, &missing_count
, &def_string
);
1879 #ifdef DEBUG_XIC_FONTSET
1880 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
1883 XFreeStringList (missing_list
);
1890 const char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
1892 missing_list
= NULL
;
1893 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
1894 &missing_list
, &missing_count
, &def_string
);
1895 #ifdef DEBUG_XIC_FONTSET
1896 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
1899 XFreeStringList (missing_list
);
1907 /* Free the X fontset of frame F if it is the last frame using it. */
1910 xic_free_xfontset (struct frame
*f
)
1912 Lisp_Object rest
, frame
;
1915 if (!FRAME_XIC_FONTSET (f
))
1918 /* See if there is another frame sharing the same fontset. */
1919 FOR_EACH_FRAME (rest
, frame
)
1921 struct frame
*cf
= XFRAME (frame
);
1922 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
1923 && FRAME_DISPLAY_INFO (cf
) == FRAME_DISPLAY_INFO (f
)
1924 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
1932 /* The fontset is not used anymore. It is safe to free it. */
1933 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
1935 FRAME_XIC_FONTSET (f
) = NULL
;
1939 /* Value is the best input style, given user preferences USER (already
1940 checked to be supported by Emacs), and styles supported by the
1941 input method XIM. */
1944 best_xim_style (XIMStyles
*xim
)
1947 int nr_supported
= ARRAYELTS (supported_xim_styles
);
1949 for (i
= 0; i
< nr_supported
; ++i
)
1950 for (j
= 0; j
< xim
->count_styles
; ++j
)
1951 if (supported_xim_styles
[i
] == xim
->supported_styles
[j
])
1952 return supported_xim_styles
[i
];
1954 /* Return the default style. */
1955 return XIMPreeditNothing
| XIMStatusNothing
;
1958 /* Create XIC for frame F. */
1961 create_frame_xic (struct frame
*f
)
1965 XFontSet xfs
= NULL
;
1966 XVaNestedList status_attr
= NULL
;
1967 XVaNestedList preedit_attr
= NULL
;
1975 xim
= FRAME_X_XIM (f
);
1979 /* Determine XIC style. */
1980 xic_style
= best_xim_style (FRAME_X_XIM_STYLES (f
));
1982 /* Create X fontset. */
1983 if (xic_style
& (XIMPreeditPosition
| XIMStatusArea
))
1985 xfs
= xic_create_xfontset (f
);
1989 FRAME_XIC_FONTSET (f
) = xfs
;
1992 if (xic_style
& XIMPreeditPosition
)
1994 spot
.x
= 0; spot
.y
= 1;
1995 preedit_attr
= XVaCreateNestedList (0,
1998 FRAME_FOREGROUND_PIXEL (f
),
2000 FRAME_BACKGROUND_PIXEL (f
),
2001 (xic_style
& XIMPreeditPosition
2011 if (xic_style
& XIMStatusArea
)
2013 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2014 status_attr
= XVaCreateNestedList (0,
2020 FRAME_FOREGROUND_PIXEL (f
),
2022 FRAME_BACKGROUND_PIXEL (f
),
2029 if (preedit_attr
&& status_attr
)
2030 xic
= XCreateIC (xim
,
2031 XNInputStyle
, xic_style
,
2032 XNClientWindow
, FRAME_X_WINDOW (f
),
2033 XNFocusWindow
, FRAME_X_WINDOW (f
),
2034 XNStatusAttributes
, status_attr
,
2035 XNPreeditAttributes
, preedit_attr
,
2037 else if (preedit_attr
)
2038 xic
= XCreateIC (xim
,
2039 XNInputStyle
, xic_style
,
2040 XNClientWindow
, FRAME_X_WINDOW (f
),
2041 XNFocusWindow
, FRAME_X_WINDOW (f
),
2042 XNPreeditAttributes
, preedit_attr
,
2044 else if (status_attr
)
2045 xic
= XCreateIC (xim
,
2046 XNInputStyle
, xic_style
,
2047 XNClientWindow
, FRAME_X_WINDOW (f
),
2048 XNFocusWindow
, FRAME_X_WINDOW (f
),
2049 XNStatusAttributes
, status_attr
,
2052 xic
= XCreateIC (xim
,
2053 XNInputStyle
, xic_style
,
2054 XNClientWindow
, FRAME_X_WINDOW (f
),
2055 XNFocusWindow
, FRAME_X_WINDOW (f
),
2061 FRAME_XIC (f
) = xic
;
2062 FRAME_XIC_STYLE (f
) = xic_style
;
2063 xfs
= NULL
; /* Don't free below. */
2071 XFree (preedit_attr
);
2074 XFree (status_attr
);
2078 /* Destroy XIC and free XIC fontset of frame F, if any. */
2081 free_frame_xic (struct frame
*f
)
2083 if (FRAME_XIC (f
) == NULL
)
2086 XDestroyIC (FRAME_XIC (f
));
2087 xic_free_xfontset (f
);
2089 FRAME_XIC (f
) = NULL
;
2093 /* Place preedit area for XIC of window W's frame to specified
2094 pixel position X/Y. X and Y are relative to window W. */
2097 xic_set_preeditarea (struct window
*w
, int x
, int y
)
2099 struct frame
*f
= XFRAME (w
->frame
);
2103 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2104 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2105 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2106 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2111 /* Place status area for XIC in bottom right corner of frame F.. */
2114 xic_set_statusarea (struct frame
*f
)
2116 XIC xic
= FRAME_XIC (f
);
2121 /* Negotiate geometry of status area. If input method has existing
2122 status area, use its current size. */
2123 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2124 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2125 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2128 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2129 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2132 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2134 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2135 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2139 area
.width
= needed
->width
;
2140 area
.height
= needed
->height
;
2141 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2142 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2143 - FRAME_MENUBAR_HEIGHT (f
)
2144 - FRAME_TOOLBAR_TOP_HEIGHT (f
)
2145 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2148 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2149 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2154 /* Set X fontset for XIC of frame F, using base font name
2155 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2158 xic_set_xfontset (struct frame
*f
, const char *base_fontname
)
2163 xic_free_xfontset (f
);
2165 xfs
= xic_create_xfontset (f
);
2167 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2168 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2169 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2170 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2171 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2174 FRAME_XIC_FONTSET (f
) = xfs
;
2177 #endif /* HAVE_X_I18N */
2181 #ifdef USE_X_TOOLKIT
2183 /* Create and set up the X widget for frame F. */
2186 x_window (struct frame
*f
, long window_prompting
, int minibuffer_only
)
2188 XClassHint class_hints
;
2189 XSetWindowAttributes attributes
;
2190 unsigned long attribute_mask
;
2191 Widget shell_widget
;
2193 Widget frame_widget
;
2199 /* Use the resource name as the top-level widget name
2200 for looking up resources. Make a non-Lisp copy
2201 for the window manager, so GC relocation won't bother it.
2203 Elsewhere we specify the window name for the window manager. */
2204 f
->namebuf
= xstrdup (SSDATA (Vx_resource_name
));
2207 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2208 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2209 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2210 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2211 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2212 XtSetArg (al
[ac
], XtNdepth
, FRAME_DISPLAY_INFO (f
)->n_planes
); ac
++;
2213 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2214 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2215 applicationShellWidgetClass
,
2216 FRAME_X_DISPLAY (f
), al
, ac
);
2218 f
->output_data
.x
->widget
= shell_widget
;
2219 /* maybe_set_screen_title_format (shell_widget); */
2221 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2222 NULL
, shell_widget
, False
,
2223 NULL
, NULL
, NULL
, NULL
);
2226 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2227 XtSetArg (al
[ac
], XtNdepth
, FRAME_DISPLAY_INFO (f
)->n_planes
); ac
++;
2228 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2229 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2230 XtSetValues (pane_widget
, al
, ac
);
2231 f
->output_data
.x
->column_widget
= pane_widget
;
2233 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2234 the emacs screen when changing menubar. This reduces flickering. */
2237 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2238 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2239 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2240 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2241 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2242 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2243 XtSetArg (al
[ac
], XtNdepth
, FRAME_DISPLAY_INFO (f
)->n_planes
); ac
++;
2244 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2245 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2246 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2249 f
->output_data
.x
->edit_widget
= frame_widget
;
2251 XtManageChild (frame_widget
);
2253 /* Do some needed geometry management. */
2255 char *tem
, shell_position
[sizeof "=x++" + 4 * INT_STRLEN_BOUND (int)];
2258 int extra_borders
= 0;
2260 = (f
->output_data
.x
->menubar_widget
2261 ? (f
->output_data
.x
->menubar_widget
->core
.height
2262 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2265 #if 0 /* Experimentally, we now get the right results
2266 for -geometry -0-0 without this. 24 Aug 96, rms. */
2267 if (FRAME_EXTERNAL_MENU_BAR (f
))
2270 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2271 menubar_size
+= ibw
;
2275 f
->output_data
.x
->menubar_height
= menubar_size
;
2278 /* Motif seems to need this amount added to the sizes
2279 specified for the shell widget. The Athena/Lucid widgets don't.
2280 Both conclusions reached experimentally. -- rms. */
2281 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2282 &extra_borders
, NULL
);
2286 /* Convert our geometry parameters into a geometry string
2288 Note that we do not specify here whether the position
2289 is a user-specified or program-specified one.
2290 We pass that information later, in x_wm_set_size_hints. */
2292 int left
= f
->left_pos
;
2293 int xneg
= window_prompting
& XNegative
;
2294 int top
= f
->top_pos
;
2295 int yneg
= window_prompting
& YNegative
;
2301 if (window_prompting
& USPosition
)
2302 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2303 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2304 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2305 (xneg
? '-' : '+'), left
,
2306 (yneg
? '-' : '+'), top
);
2309 sprintf (shell_position
, "=%dx%d",
2310 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2311 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2313 /* Setting x and y when the position is not specified in
2314 the geometry string will set program position in the WM hints.
2315 If Emacs had just one program position, we could set it in
2316 fallback resources, but since each make-frame call can specify
2317 different program positions, this is easier. */
2318 XtSetArg (gal
[gac
], XtNx
, left
); gac
++;
2319 XtSetArg (gal
[gac
], XtNy
, top
); gac
++;
2323 /* We don't free this because we don't know whether
2324 it is safe to free it while the frame exists.
2325 It isn't worth the trouble of arranging to free it
2326 when the frame is deleted. */
2327 tem
= xstrdup (shell_position
);
2328 XtSetArg (gal
[gac
], XtNgeometry
, tem
); gac
++;
2329 XtSetValues (shell_widget
, gal
, gac
);
2332 XtManageChild (pane_widget
);
2333 XtRealizeWidget (shell_widget
);
2335 if (FRAME_X_EMBEDDED_P (f
))
2336 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2337 f
->output_data
.x
->parent_desc
, 0, 0);
2339 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2341 validate_x_resource_name ();
2343 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2344 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2345 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2348 FRAME_XIC (f
) = NULL
;
2350 create_frame_xic (f
);
2353 f
->output_data
.x
->wm_hints
.input
= True
;
2354 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2355 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2356 &f
->output_data
.x
->wm_hints
);
2358 hack_wm_protocols (f
, shell_widget
);
2361 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2364 /* Do a stupid property change to force the server to generate a
2365 PropertyNotify event so that the event_stream server timestamp will
2366 be initialized to something relevant to the time we created the window.
2368 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2369 FRAME_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2370 XA_ATOM
, 32, PropModeAppend
, NULL
, 0);
2372 /* Make all the standard events reach the Emacs frame. */
2373 attributes
.event_mask
= STANDARD_EVENT_SET
;
2378 /* XIM server might require some X events. */
2379 unsigned long fevent
= NoEventMask
;
2380 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2381 attributes
.event_mask
|= fevent
;
2383 #endif /* HAVE_X_I18N */
2385 attribute_mask
= CWEventMask
;
2386 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2387 attribute_mask
, &attributes
);
2389 XtMapWidget (frame_widget
);
2391 /* x_set_name normally ignores requests to set the name if the
2392 requested name is the same as the current name. This is the one
2393 place where that assumption isn't correct; f->name is set, but
2394 the X server hasn't been told. */
2397 int explicit = f
->explicit_name
;
2399 f
->explicit_name
= 0;
2401 fset_name (f
, Qnil
);
2402 x_set_name (f
, name
, explicit);
2405 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2406 f
->output_data
.x
->current_cursor
2407 = f
->output_data
.x
->text_cursor
);
2411 /* This is a no-op, except under Motif. Make sure main areas are
2412 set to something reasonable, in case we get an error later. */
2413 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2416 #else /* not USE_X_TOOLKIT */
2419 x_window (struct frame
*f
)
2421 if (! xg_create_frame_widgets (f
))
2422 error ("Unable to create window");
2425 FRAME_XIC (f
) = NULL
;
2429 create_frame_xic (f
);
2432 /* XIM server might require some X events. */
2433 unsigned long fevent
= NoEventMask
;
2434 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2436 if (fevent
!= NoEventMask
)
2438 XSetWindowAttributes attributes
;
2439 XWindowAttributes wattr
;
2440 unsigned long attribute_mask
;
2442 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2444 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2445 attribute_mask
= CWEventMask
;
2446 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2447 attribute_mask
, &attributes
);
2455 #else /*! USE_GTK */
2456 /* Create and set up the X window for frame F. */
2459 x_window (struct frame
*f
)
2461 XClassHint class_hints
;
2462 XSetWindowAttributes attributes
;
2463 unsigned long attribute_mask
;
2465 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2466 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2467 attributes
.bit_gravity
= StaticGravity
;
2468 attributes
.backing_store
= NotUseful
;
2469 attributes
.save_under
= True
;
2470 attributes
.event_mask
= STANDARD_EVENT_SET
;
2471 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2472 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2477 = XCreateWindow (FRAME_X_DISPLAY (f
),
2478 f
->output_data
.x
->parent_desc
,
2481 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2483 CopyFromParent
, /* depth */
2484 InputOutput
, /* class */
2486 attribute_mask
, &attributes
);
2491 create_frame_xic (f
);
2494 /* XIM server might require some X events. */
2495 unsigned long fevent
= NoEventMask
;
2496 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2497 attributes
.event_mask
|= fevent
;
2498 attribute_mask
= CWEventMask
;
2499 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2500 attribute_mask
, &attributes
);
2503 #endif /* HAVE_X_I18N */
2505 validate_x_resource_name ();
2507 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2508 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2509 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2511 /* The menubar is part of the ordinary display;
2512 it does not count in addition to the height of the window. */
2513 f
->output_data
.x
->menubar_height
= 0;
2515 /* This indicates that we use the "Passive Input" input model.
2516 Unless we do this, we don't get the Focus{In,Out} events that we
2517 need to draw the cursor correctly. Accursed bureaucrats.
2518 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2520 f
->output_data
.x
->wm_hints
.input
= True
;
2521 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2522 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2523 &f
->output_data
.x
->wm_hints
);
2524 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2526 /* Request "save yourself" and "delete window" commands from wm. */
2529 protocols
[0] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2530 protocols
[1] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2531 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2534 /* x_set_name normally ignores requests to set the name if the
2535 requested name is the same as the current name. This is the one
2536 place where that assumption isn't correct; f->name is set, but
2537 the X server hasn't been told. */
2540 int explicit = f
->explicit_name
;
2542 f
->explicit_name
= 0;
2544 fset_name (f
, Qnil
);
2545 x_set_name (f
, name
, explicit);
2548 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2549 f
->output_data
.x
->current_cursor
2550 = f
->output_data
.x
->text_cursor
);
2554 if (FRAME_X_WINDOW (f
) == 0)
2555 error ("Unable to create window");
2558 #endif /* not USE_GTK */
2559 #endif /* not USE_X_TOOLKIT */
2561 /* Verify that the icon position args for this window are valid. */
2564 x_icon_verify (struct frame
*f
, Lisp_Object parms
)
2566 Lisp_Object icon_x
, icon_y
;
2568 /* Set the position of the icon. Note that twm groups all
2569 icons in an icon window. */
2570 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2571 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2572 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2574 CHECK_NUMBER (icon_x
);
2575 CHECK_NUMBER (icon_y
);
2577 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2578 error ("Both left and top icon corners of icon must be specified");
2581 /* Handle the icon stuff for this window. Perhaps later we might
2582 want an x_set_icon_position which can be called interactively as
2586 x_icon (struct frame
*f
, Lisp_Object parms
)
2588 Lisp_Object icon_x
, icon_y
;
2590 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
2593 /* Set the position of the icon. Note that twm groups all
2594 icons in an icon window. */
2595 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2596 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2597 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2599 CHECK_TYPE_RANGED_INTEGER (int, icon_x
);
2600 CHECK_TYPE_RANGED_INTEGER (int, icon_y
);
2602 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2603 error ("Both left and top icon corners of icon must be specified");
2607 if (! EQ (icon_x
, Qunbound
))
2608 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2610 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2611 but x_create_frame still needs it. */
2612 /* Start up iconic or window? */
2613 x_wm_set_window_state
2614 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2620 x_text_icon (f
, SSDATA ((!NILP (f
->icon_name
)
2627 /* Make the GCs needed for this window, setting the
2628 background, border and mouse colors; also create the
2629 mouse cursor and the gray border tile. */
2632 x_make_gc (struct frame
*f
)
2634 XGCValues gc_values
;
2638 /* Create the GCs of this frame.
2639 Note that many default values are used. */
2641 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2642 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2643 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2644 f
->output_data
.x
->normal_gc
2645 = XCreateGC (FRAME_X_DISPLAY (f
),
2647 GCLineWidth
| GCForeground
| GCBackground
,
2650 /* Reverse video style. */
2651 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2652 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2653 f
->output_data
.x
->reverse_gc
2654 = XCreateGC (FRAME_X_DISPLAY (f
),
2656 GCForeground
| GCBackground
| GCLineWidth
,
2659 /* Cursor has cursor-color background, background-color foreground. */
2660 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2661 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2662 gc_values
.fill_style
= FillOpaqueStippled
;
2663 f
->output_data
.x
->cursor_gc
2664 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2665 (GCForeground
| GCBackground
2666 | GCFillStyle
| GCLineWidth
),
2669 /* Create the gray border tile used when the pointer is not in
2670 the frame. Since this depends on the frame's pixel values,
2671 this must be done on a per-frame basis. */
2672 f
->output_data
.x
->border_tile
2673 = (XCreatePixmapFromBitmapData
2674 (FRAME_X_DISPLAY (f
), FRAME_DISPLAY_INFO (f
)->root_window
,
2675 gray_bits
, gray_width
, gray_height
,
2676 FRAME_FOREGROUND_PIXEL (f
),
2677 FRAME_BACKGROUND_PIXEL (f
),
2678 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2684 /* Free what was allocated in x_make_gc. */
2687 x_free_gcs (struct frame
*f
)
2689 Display
*dpy
= FRAME_X_DISPLAY (f
);
2693 if (f
->output_data
.x
->normal_gc
)
2695 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2696 f
->output_data
.x
->normal_gc
= 0;
2699 if (f
->output_data
.x
->reverse_gc
)
2701 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2702 f
->output_data
.x
->reverse_gc
= 0;
2705 if (f
->output_data
.x
->cursor_gc
)
2707 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2708 f
->output_data
.x
->cursor_gc
= 0;
2711 if (f
->output_data
.x
->border_tile
)
2713 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2714 f
->output_data
.x
->border_tile
= 0;
2721 /* Handler for signals raised during x_create_frame and
2722 x_create_tip_frame. FRAME is the frame which is partially
2726 unwind_create_frame (Lisp_Object frame
)
2728 struct frame
*f
= XFRAME (frame
);
2730 /* If frame is already dead, nothing to do. This can happen if the
2731 display is disconnected after the frame has become official, but
2732 before x_create_frame removes the unwind protect. */
2733 if (!FRAME_LIVE_P (f
))
2736 /* If frame is ``official'', nothing to do. */
2737 if (NILP (Fmemq (frame
, Vframe_list
)))
2739 #if defined GLYPH_DEBUG && defined ENABLE_CHECKING
2740 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
2743 x_free_frame_resources (f
);
2746 #if defined GLYPH_DEBUG && defined ENABLE_CHECKING
2747 /* Check that reference counts are indeed correct. */
2748 eassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2749 eassert (dpyinfo
->terminal
->image_cache
->refcount
== image_cache_refcount
);
2758 do_unwind_create_frame (Lisp_Object frame
)
2760 unwind_create_frame (frame
);
2764 unwind_create_frame_1 (Lisp_Object val
)
2766 inhibit_lisp_code
= val
;
2770 x_default_font_parameter (struct frame
*f
, Lisp_Object parms
)
2772 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
2773 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
2775 Lisp_Object font
= Qnil
;
2776 if (EQ (font_param
, Qunbound
))
2779 if (NILP (font_param
))
2781 /* System font should take precedence over X resources. We suggest this
2782 regardless of font-use-system-font because .emacs may not have been
2784 const char *system_font
= xsettings_get_system_font ();
2786 font
= font_open_by_name (f
, build_unibyte_string (system_font
));
2790 font
= !NILP (font_param
) ? font_param
2791 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
2793 if (! FONTP (font
) && ! STRINGP (font
))
2798 /* This will find the normal Xft font. */
2801 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
2802 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2803 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2804 /* This was formerly the first thing tried, but it finds
2805 too many fonts and takes too long. */
2806 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
2807 /* If those didn't work, look for something which will
2809 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
2814 for (i
= 0; names
[i
]; i
++)
2816 font
= font_open_by_name (f
, build_unibyte_string (names
[i
]));
2821 error ("No suitable font was found");
2823 else if (!NILP (font_param
))
2825 /* Remember the explicit font parameter, so we can re-apply it after
2826 we've applied the `default' face settings. */
2827 x_set_frame_parameters (f
, list1 (Fcons (Qfont_param
, font_param
)));
2830 /* This call will make X resources override any system font setting. */
2831 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
2835 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
2837 doc
: /* Send the size hints for frame FRAME to the window manager.
2838 If FRAME is omitted or nil, use the selected frame.
2839 Signal error if FRAME is not an X frame. */)
2842 struct frame
*f
= decode_window_system_frame (frame
);
2845 x_wm_set_size_hint (f
, 0, 0);
2851 set_machine_and_pid_properties (struct frame
*f
)
2853 long pid
= (long) getpid ();
2855 /* This will set WM_CLIENT_MACHINE and WM_LOCALE_NAME. */
2856 XSetWMProperties (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), NULL
, NULL
,
2857 NULL
, 0, NULL
, NULL
, NULL
);
2858 XChangeProperty (FRAME_X_DISPLAY (f
),
2859 FRAME_OUTER_WINDOW (f
),
2860 XInternAtom (FRAME_X_DISPLAY (f
),
2863 XA_CARDINAL
, 32, PropModeReplace
,
2864 (unsigned char *) &pid
, 1);
2867 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2869 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
2870 Return an Emacs frame object.
2871 PARMS is an alist of frame parameters.
2872 If the parameters specify that the frame should not have a minibuffer,
2873 and do not specify a specific minibuffer window to use,
2874 then `default-minibuffer-frame' must be a frame whose minibuffer can
2875 be shared by the new frame.
2877 This function is an internal primitive--use `make-frame' instead. */)
2881 Lisp_Object frame
, tem
;
2883 int minibuffer_only
= 0;
2884 long window_prompting
= 0;
2886 ptrdiff_t count
= SPECPDL_INDEX ();
2887 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
2888 Lisp_Object display
;
2889 struct x_display_info
*dpyinfo
= NULL
;
2893 parms
= Fcopy_alist (parms
);
2895 /* Use this general default value to start with
2896 until we know if this frame has a specified name. */
2897 Vx_resource_name
= Vinvocation_name
;
2899 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
2900 if (EQ (display
, Qunbound
))
2901 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
2902 if (EQ (display
, Qunbound
))
2904 dpyinfo
= check_x_display_info (display
);
2905 kb
= dpyinfo
->terminal
->kboard
;
2907 if (!dpyinfo
->terminal
->name
)
2908 error ("Terminal is not live, can't create new frames on it");
2910 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
2912 && ! EQ (name
, Qunbound
)
2914 error ("Invalid frame name--not a string or nil");
2917 Vx_resource_name
= name
;
2919 /* See if parent window is specified. */
2920 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
2921 if (EQ (parent
, Qunbound
))
2923 if (! NILP (parent
))
2924 CHECK_NUMBER (parent
);
2926 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
2927 /* No need to protect DISPLAY because that's not used after passing
2928 it to make_frame_without_minibuffer. */
2930 GCPRO4 (parms
, parent
, name
, frame
);
2931 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
2933 if (EQ (tem
, Qnone
) || NILP (tem
))
2934 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
2935 else if (EQ (tem
, Qonly
))
2937 f
= make_minibuffer_frame ();
2938 minibuffer_only
= 1;
2940 else if (WINDOWP (tem
))
2941 f
= make_frame_without_minibuffer (tem
, kb
, display
);
2945 XSETFRAME (frame
, f
);
2947 f
->terminal
= dpyinfo
->terminal
;
2949 f
->output_method
= output_x_window
;
2950 f
->output_data
.x
= xzalloc (sizeof *f
->output_data
.x
);
2951 f
->output_data
.x
->icon_bitmap
= -1;
2952 FRAME_FONTSET (f
) = -1;
2953 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
2954 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
2955 #ifdef USE_TOOLKIT_SCROLL_BARS
2956 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
2957 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
2958 #endif /* USE_TOOLKIT_SCROLL_BARS */
2959 f
->output_data
.x
->white_relief
.pixel
= -1;
2960 f
->output_data
.x
->black_relief
.pixel
= -1;
2963 x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
2965 if (! STRINGP (f
->icon_name
))
2966 fset_icon_name (f
, Qnil
);
2968 FRAME_DISPLAY_INFO (f
) = dpyinfo
;
2970 /* With FRAME_DISPLAY_INFO set up, this unwind-protect is safe. */
2971 record_unwind_protect (do_unwind_create_frame
, frame
);
2973 /* These colors will be set anyway later, but it's important
2974 to get the color reference counts right, so initialize them! */
2977 struct gcpro gcpro1
;
2979 /* Function x_decode_color can signal an error. Make
2980 sure to initialize color slots so that we won't try
2981 to free colors we haven't allocated. */
2982 FRAME_FOREGROUND_PIXEL (f
) = -1;
2983 FRAME_BACKGROUND_PIXEL (f
) = -1;
2984 f
->output_data
.x
->cursor_pixel
= -1;
2985 f
->output_data
.x
->cursor_foreground_pixel
= -1;
2986 f
->output_data
.x
->border_pixel
= -1;
2987 f
->output_data
.x
->mouse_pixel
= -1;
2989 black
= build_string ("black");
2991 FRAME_FOREGROUND_PIXEL (f
)
2992 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2993 FRAME_BACKGROUND_PIXEL (f
)
2994 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2995 f
->output_data
.x
->cursor_pixel
2996 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2997 f
->output_data
.x
->cursor_foreground_pixel
2998 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2999 f
->output_data
.x
->border_pixel
3000 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3001 f
->output_data
.x
->mouse_pixel
3002 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3006 /* Specify the parent under which to make this X window. */
3010 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3011 f
->output_data
.x
->explicit_parent
= 1;
3015 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
3016 f
->output_data
.x
->explicit_parent
= 0;
3019 /* Set the name; the functions to which we pass f expect the name to
3021 if (EQ (name
, Qunbound
) || NILP (name
))
3023 fset_name (f
, build_string (dpyinfo
->x_id_name
));
3024 f
->explicit_name
= 0;
3028 fset_name (f
, name
);
3029 f
->explicit_name
= 1;
3030 /* use the frame's title when getting resources for this frame. */
3031 specbind (Qx_resource_name
, name
);
3034 #ifdef HAVE_FREETYPE
3036 register_font_driver (&xftfont_driver
, f
);
3037 #else /* not HAVE_XFT */
3038 register_font_driver (&ftxfont_driver
, f
);
3039 #endif /* not HAVE_XFT */
3040 #endif /* HAVE_FREETYPE */
3041 register_font_driver (&xfont_driver
, f
);
3043 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3044 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3046 /* Extract the window parameters from the supplied values
3047 that are needed to determine window geometry. */
3048 x_default_font_parameter (f
, parms
);
3049 if (!FRAME_FONT (f
))
3051 delete_frame (frame
, Qnoelisp
);
3052 error ("Invalid frame font");
3055 /* Frame contents get displaced if an embedded X window has a border. */
3056 if (! FRAME_X_EMBEDDED_P (f
))
3057 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
3058 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3060 /* This defaults to 1 in order to match xterm. We recognize either
3061 internalBorderWidth or internalBorder (which is what xterm calls
3063 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3067 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3068 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3069 if (! EQ (value
, Qunbound
))
3070 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3073 x_default_parameter (f
, parms
, Qinternal_border_width
,
3074 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3079 "internalBorderWidth", "internalBorderWidth",
3081 x_default_parameter (f
, parms
, Qright_divider_width
, make_number (0),
3082 NULL
, NULL
, RES_TYPE_NUMBER
);
3083 x_default_parameter (f
, parms
, Qbottom_divider_width
, make_number (0),
3084 NULL
, NULL
, RES_TYPE_NUMBER
);
3085 x_default_parameter (f
, parms
, Qvertical_scroll_bars
,
3086 #if defined (USE_GTK) && defined (USE_TOOLKIT_SCROLL_BARS)
3091 "verticalScrollBars", "ScrollBars",
3094 /* Also do the stuff which must be set before the window exists. */
3095 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3096 "foreground", "Foreground", RES_TYPE_STRING
);
3097 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3098 "background", "Background", RES_TYPE_STRING
);
3099 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3100 "pointerColor", "Foreground", RES_TYPE_STRING
);
3101 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3102 "borderColor", "BorderColor", RES_TYPE_STRING
);
3103 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3104 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3105 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3106 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3107 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3108 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3109 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3110 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3112 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3113 "scrollBarForeground",
3114 "ScrollBarForeground", 1);
3115 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3116 "scrollBarBackground",
3117 "ScrollBarBackground", 0);
3120 image_cache_refcount
=
3121 FRAME_IMAGE_CACHE (f
) ? FRAME_IMAGE_CACHE (f
)->refcount
: 0;
3122 dpyinfo_refcount
= dpyinfo
->reference_count
;
3123 #endif /* GLYPH_DEBUG */
3125 /* Init faces before x_default_parameter is called for scroll-bar
3126 parameters because that function calls x_set_scroll_bar_width,
3127 which calls change_frame_size, which calls Fset_window_buffer,
3128 which runs hooks, which call Fvertical_motion. At the end, we
3129 end up in init_iterator with a null face cache, which should not
3131 init_frame_faces (f
);
3133 /* PXW: This is a duplicate from below. We have to do it here since
3134 otherwise x_set_tool_bar_lines will work with the character sizes
3135 installed by init_frame_faces while the frame's pixel size is still
3136 calculated from a character size of 1 and we subsequently hit the
3137 eassert (height >= 0) assertion in window_box_height. The
3138 non-pixelwise code apparently worked around this because it had one
3139 frame line vs one toolbar line which left us with a zero root
3140 window height which was obviously wrong as well ... */
3141 change_frame_size (f
, FRAME_COLS (f
) * FRAME_COLUMN_WIDTH (f
),
3142 FRAME_LINES (f
) * FRAME_LINE_HEIGHT (f
), 1, 0, 0, 1);
3144 /* Set the menu-bar-lines and tool-bar-lines parameters. We don't
3145 look up the X resources controlling the menu-bar and tool-bar
3146 here; they are processed specially at startup, and reflected in
3147 the values of the mode variables.
3149 Avoid calling window-configuration-change-hook; otherwise we
3150 could get an infloop in next_frame since the frame is not yet in
3153 ptrdiff_t count2
= SPECPDL_INDEX ();
3154 record_unwind_protect (unwind_create_frame_1
, inhibit_lisp_code
);
3155 inhibit_lisp_code
= Qt
;
3157 x_default_parameter (f
, parms
, Qmenu_bar_lines
,
3158 NILP (Vmenu_bar_mode
)
3159 ? make_number (0) : make_number (1),
3160 NULL
, NULL
, RES_TYPE_NUMBER
);
3161 x_default_parameter (f
, parms
, Qtool_bar_lines
,
3162 NILP (Vtool_bar_mode
)
3163 ? make_number (0) : make_number (1),
3164 NULL
, NULL
, RES_TYPE_NUMBER
);
3166 unbind_to (count2
, Qnil
);
3169 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3170 "bufferPredicate", "BufferPredicate",
3172 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3173 "title", "Title", RES_TYPE_STRING
);
3174 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3175 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3176 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3177 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3178 x_default_parameter (f
, parms
, Qtool_bar_position
,
3179 f
->tool_bar_position
, 0, 0, RES_TYPE_SYMBOL
);
3181 /* Compute the size of the X window. */
3182 window_prompting
= x_figure_window_size (f
, parms
, 1);
3184 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3185 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3187 x_icon_verify (f
, parms
);
3189 /* Create the X widget or window. */
3190 #ifdef USE_X_TOOLKIT
3191 x_window (f
, window_prompting
, minibuffer_only
);
3199 /* Now consider the frame official. */
3200 f
->terminal
->reference_count
++;
3201 FRAME_DISPLAY_INFO (f
)->reference_count
++;
3202 Vframe_list
= Fcons (frame
, Vframe_list
);
3204 /* We need to do this after creating the X window, so that the
3205 icon-creation functions can say whose icon they're describing. */
3206 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3207 "bitmapIcon", "BitmapIcon", RES_TYPE_BOOLEAN
);
3209 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3210 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3211 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3212 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3213 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3214 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3215 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3216 "scrollBarWidth", "ScrollBarWidth",
3218 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3219 "alpha", "Alpha", RES_TYPE_NUMBER
);
3221 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3222 Change will not be effected unless different from the current
3224 width
= FRAME_TEXT_WIDTH (f
);
3225 height
= FRAME_TEXT_HEIGHT (f
);
3226 FRAME_TEXT_HEIGHT (f
) = 0;
3227 SET_FRAME_WIDTH (f
, 0);
3228 change_frame_size (f
, width
, height
, 1, 0, 0, 1);
3230 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3231 /* Create the menu bar. */
3232 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3234 /* If this signals an error, we haven't set size hints for the
3235 frame and we didn't make it visible. */
3236 initialize_frame_menubar (f
);
3239 /* This is a no-op, except under Motif where it arranges the
3240 main window for the widgets on it. */
3241 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3242 f
->output_data
.x
->menubar_widget
,
3243 f
->output_data
.x
->edit_widget
);
3244 #endif /* not USE_GTK */
3246 #endif /* USE_X_TOOLKIT || USE_GTK */
3248 /* Tell the server what size and position, etc, we want, and how
3249 badly we want them. This should be done after we have the menu
3250 bar so that its size can be taken into account. */
3252 x_wm_set_size_hint (f
, window_prompting
, 0);
3255 /* Make the window appear on the frame and enable display, unless
3256 the caller says not to. However, with explicit parent, Emacs
3257 cannot control visibility, so don't try. */
3258 if (! f
->output_data
.x
->explicit_parent
)
3260 Lisp_Object visibility
;
3262 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3264 if (EQ (visibility
, Qunbound
))
3267 if (EQ (visibility
, Qicon
))
3268 x_iconify_frame (f
);
3269 else if (! NILP (visibility
))
3270 x_make_frame_visible (f
);
3273 /* Must have been Qnil. */
3279 /* Set machine name and pid for the purpose of window managers. */
3280 set_machine_and_pid_properties (f
);
3282 /* Set the WM leader property. GTK does this itself, so this is not
3283 needed when using GTK. */
3284 if (dpyinfo
->client_leader_window
!= 0)
3286 XChangeProperty (FRAME_X_DISPLAY (f
),
3287 FRAME_OUTER_WINDOW (f
),
3288 dpyinfo
->Xatom_wm_client_leader
,
3289 XA_WINDOW
, 32, PropModeReplace
,
3290 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3295 /* Initialize `default-minibuffer-frame' in case this is the first
3296 frame on this terminal. */
3297 if (FRAME_HAS_MINIBUF_P (f
)
3298 && (!FRAMEP (KVAR (kb
, Vdefault_minibuffer_frame
))
3299 || !FRAME_LIVE_P (XFRAME (KVAR (kb
, Vdefault_minibuffer_frame
)))))
3300 kset_default_minibuffer_frame (kb
, frame
);
3302 /* All remaining specified parameters, which have not been "used"
3303 by x_get_arg and friends, now go in the misc. alist of the frame. */
3304 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3305 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3306 fset_param_alist (f
, Fcons (XCAR (tem
), f
->param_alist
));
3310 /* Make sure windows on this frame appear in calls to next-window
3311 and similar functions. */
3312 Vwindow_list
= Qnil
;
3314 return unbind_to (count
, frame
);
3318 /* FRAME is used only to get a handle on the X display. We don't pass the
3319 display info directly because we're called from frame.c, which doesn't
3320 know about that structure. */
3323 x_get_focus_frame (struct frame
*frame
)
3325 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (frame
);
3327 if (! dpyinfo
->x_focus_frame
)
3330 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3335 /* In certain situations, when the window manager follows a
3336 click-to-focus policy, there seems to be no way around calling
3337 XSetInputFocus to give another frame the input focus .
3339 In an ideal world, XSetInputFocus should generally be avoided so
3340 that applications don't interfere with the window manager's focus
3341 policy. But I think it's okay to use when it's clearly done
3342 following a user-command. */
3345 x_focus_frame (struct frame
*f
)
3347 Display
*dpy
= FRAME_X_DISPLAY (f
);
3350 x_catch_errors (dpy
);
3352 if (FRAME_X_EMBEDDED_P (f
))
3354 /* For Xembedded frames, normally the embedder forwards key
3355 events. See XEmbed Protocol Specification at
3356 http://freedesktop.org/wiki/Specifications/xembed-spec */
3357 xembed_request_focus (f
);
3361 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3362 RevertToParent
, CurrentTime
);
3363 x_ewmh_activate_frame (f
);
3366 x_uncatch_errors ();
3371 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3372 doc
: /* Internal function called by `color-defined-p', which see
3373 .\(Note that the Nextstep version of this function ignores FRAME.) */)
3374 (Lisp_Object color
, Lisp_Object frame
)
3377 struct frame
*f
= decode_window_system_frame (frame
);
3379 CHECK_STRING (color
);
3381 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3387 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3388 doc
: /* Internal function called by `color-values', which see. */)
3389 (Lisp_Object color
, Lisp_Object frame
)
3392 struct frame
*f
= decode_window_system_frame (frame
);
3394 CHECK_STRING (color
);
3396 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3397 return list3i (foo
.red
, foo
.green
, foo
.blue
);
3402 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3403 doc
: /* Internal function called by `display-color-p', which see. */)
3404 (Lisp_Object terminal
)
3406 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3408 if (dpyinfo
->n_planes
<= 2)
3411 switch (dpyinfo
->visual
->class)
3424 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3426 doc
: /* Return t if the X display supports shades of gray.
3427 Note that color displays do support shades of gray.
3428 The optional argument TERMINAL specifies which display to ask about.
3429 TERMINAL should be a terminal object, a frame or a display name (a string).
3430 If omitted or nil, that stands for the selected frame's display. */)
3431 (Lisp_Object terminal
)
3433 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3435 if (dpyinfo
->n_planes
<= 1)
3438 switch (dpyinfo
->visual
->class)
3453 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3455 doc
: /* Return the width in pixels of the X display TERMINAL.
3456 The optional argument TERMINAL specifies which display to ask about.
3457 TERMINAL should be a terminal object, a frame or a display name (a string).
3458 If omitted or nil, that stands for the selected frame's display.
3460 On \"multi-monitor\" setups this refers to the pixel width for all
3461 physical monitors associated with TERMINAL. To get information for
3462 each physical monitor, use `display-monitor-attributes-list'. */)
3463 (Lisp_Object terminal
)
3465 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3467 return make_number (x_display_pixel_width (dpyinfo
));
3470 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3471 Sx_display_pixel_height
, 0, 1, 0,
3472 doc
: /* Return the height in pixels of the X display TERMINAL.
3473 The optional argument TERMINAL specifies which display to ask about.
3474 TERMINAL should be a terminal object, a frame or a display name (a string).
3475 If omitted or nil, that stands for the selected frame's display.
3477 On \"multi-monitor\" setups this refers to the pixel height for all
3478 physical monitors associated with TERMINAL. To get information for
3479 each physical monitor, use `display-monitor-attributes-list'. */)
3480 (Lisp_Object terminal
)
3482 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3484 return make_number (x_display_pixel_height (dpyinfo
));
3487 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3489 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3490 The optional argument TERMINAL specifies which display to ask about.
3491 TERMINAL should be a terminal object, a frame or a display name (a string).
3492 If omitted or nil, that stands for the selected frame's display. */)
3493 (Lisp_Object terminal
)
3495 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3497 return make_number (dpyinfo
->n_planes
);
3500 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3502 doc
: /* Return the number of color cells of the X display TERMINAL.
3503 The optional argument TERMINAL specifies which display to ask about.
3504 TERMINAL should be a terminal object, a frame or a display name (a string).
3505 If omitted or nil, that stands for the selected frame's display. */)
3506 (Lisp_Object terminal
)
3508 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3510 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3511 XScreenNumberOfScreen (dpyinfo
->screen
));
3513 /* Truncate nr_planes to 24 to avoid integer overflow.
3514 Some displays says 32, but only 24 bits are actually significant.
3515 There are only very few and rare video cards that have more than
3516 24 significant bits. Also 24 bits is more than 16 million colors,
3517 it "should be enough for everyone". */
3518 if (nr_planes
> 24) nr_planes
= 24;
3520 return make_number (1 << nr_planes
);
3523 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3524 Sx_server_max_request_size
,
3526 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3527 The optional argument TERMINAL specifies which display to ask about.
3528 TERMINAL should be a terminal object, a frame or a display name (a string).
3529 If omitted or nil, that stands for the selected frame's display. */)
3530 (Lisp_Object terminal
)
3532 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3534 return make_number (MAXREQUEST (dpyinfo
->display
));
3537 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3538 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3539 \(Labeling every distributor as a "vendor" embodies the false assumption
3540 that operating systems cannot be developed and distributed noncommercially.)
3541 The optional argument TERMINAL specifies which display to ask about.
3542 TERMINAL should be a terminal object, a frame or a display name (a string).
3543 If omitted or nil, that stands for the selected frame's display. */)
3544 (Lisp_Object terminal
)
3546 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3547 const char *vendor
= ServerVendor (dpyinfo
->display
);
3549 if (! vendor
) vendor
= "";
3550 return build_string (vendor
);
3553 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3554 doc
: /* Return the version numbers of the X server of display TERMINAL.
3555 The value is a list of three integers: the major and minor
3556 version numbers of the X Protocol in use, and the distributor-specific release
3557 number. See also the function `x-server-vendor'.
3559 The optional argument TERMINAL specifies which display to ask about.
3560 TERMINAL should be a terminal object, a frame or a display name (a string).
3561 If omitted or nil, that stands for the selected frame's display. */)
3562 (Lisp_Object terminal
)
3564 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3565 Display
*dpy
= dpyinfo
->display
;
3567 return list3i (ProtocolVersion (dpy
), ProtocolRevision (dpy
),
3568 VendorRelease (dpy
));
3571 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3572 doc
: /* Return the number of screens on the X server of display TERMINAL.
3573 The optional argument TERMINAL specifies which display to ask about.
3574 TERMINAL should be a terminal object, a frame or a display name (a string).
3575 If omitted or nil, that stands for the selected frame's display. */)
3576 (Lisp_Object terminal
)
3578 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3580 return make_number (ScreenCount (dpyinfo
->display
));
3583 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3584 doc
: /* Return the height in millimeters of the X display TERMINAL.
3585 The optional argument TERMINAL specifies which display to ask about.
3586 TERMINAL should be a terminal object, a frame or a display name (a string).
3587 If omitted or nil, that stands for the selected frame's display.
3589 On \"multi-monitor\" setups this refers to the height in millimeters for
3590 all physical monitors associated with TERMINAL. To get information
3591 for each physical monitor, use `display-monitor-attributes-list'. */)
3592 (Lisp_Object terminal
)
3594 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3596 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3599 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3600 doc
: /* Return the width in millimeters of the X display TERMINAL.
3601 The optional argument TERMINAL specifies which display to ask about.
3602 TERMINAL should be a terminal object, a frame or a display name (a string).
3603 If omitted or nil, that stands for the selected frame's display.
3605 On \"multi-monitor\" setups this refers to the width in millimeters for
3606 all physical monitors associated with TERMINAL. To get information
3607 for each physical monitor, use `display-monitor-attributes-list'. */)
3608 (Lisp_Object terminal
)
3610 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3612 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3615 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3616 Sx_display_backing_store
, 0, 1, 0,
3617 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3618 The value may be `always', `when-mapped', or `not-useful'.
3619 The optional argument TERMINAL specifies which display to ask about.
3620 TERMINAL should be a terminal object, a frame or a display name (a string).
3621 If omitted or nil, that stands for the selected frame's display. */)
3622 (Lisp_Object terminal
)
3624 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3627 switch (DoesBackingStore (dpyinfo
->screen
))
3630 result
= intern ("always");
3634 result
= intern ("when-mapped");
3638 result
= intern ("not-useful");
3642 error ("Strange value for BackingStore parameter of screen");
3648 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3649 Sx_display_visual_class
, 0, 1, 0,
3650 doc
: /* Return the visual class of the X display TERMINAL.
3651 The value is one of the symbols `static-gray', `gray-scale',
3652 `static-color', `pseudo-color', `true-color', or `direct-color'.
3654 The optional argument TERMINAL specifies which display to ask about.
3655 TERMINAL should a terminal object, a frame or a display name (a string).
3656 If omitted or nil, that stands for the selected frame's display. */)
3657 (Lisp_Object terminal
)
3659 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3662 switch (dpyinfo
->visual
->class)
3665 result
= intern ("static-gray");
3668 result
= intern ("gray-scale");
3671 result
= intern ("static-color");
3674 result
= intern ("pseudo-color");
3677 result
= intern ("true-color");
3680 result
= intern ("direct-color");
3683 error ("Display has an unknown visual class");
3689 DEFUN ("x-display-save-under", Fx_display_save_under
,
3690 Sx_display_save_under
, 0, 1, 0,
3691 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3692 The optional argument TERMINAL specifies which display to ask about.
3693 TERMINAL should be a terminal object, a frame or a display name (a string).
3694 If omitted or nil, that stands for the selected frame's display. */)
3695 (Lisp_Object terminal
)
3697 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3699 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3705 /* Store the geometry of the workarea on display DPYINFO into *RECT.
3706 Return false if and only if the workarea information cannot be
3707 obtained via the _NET_WORKAREA root window property. */
3709 #if ! GTK_CHECK_VERSION (3, 4, 0)
3711 x_get_net_workarea (struct x_display_info
*dpyinfo
, XRectangle
*rect
)
3713 Display
*dpy
= dpyinfo
->display
;
3714 long offset
, max_len
;
3715 Atom target_type
, actual_type
;
3716 unsigned long actual_size
, bytes_remaining
;
3717 int rc
, actual_format
;
3718 unsigned char *tmp_data
= NULL
;
3719 bool result
= false;
3721 x_catch_errors (dpy
);
3724 target_type
= XA_CARDINAL
;
3725 rc
= XGetWindowProperty (dpy
, dpyinfo
->root_window
,
3726 dpyinfo
->Xatom_net_current_desktop
,
3727 offset
, max_len
, False
, target_type
,
3728 &actual_type
, &actual_format
, &actual_size
,
3729 &bytes_remaining
, &tmp_data
);
3730 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
3731 && actual_format
== 32 && actual_size
== max_len
)
3733 long current_desktop
= ((long *) tmp_data
)[0];
3738 offset
= 4 * current_desktop
;
3740 rc
= XGetWindowProperty (dpy
, dpyinfo
->root_window
,
3741 dpyinfo
->Xatom_net_workarea
,
3742 offset
, max_len
, False
, target_type
,
3743 &actual_type
, &actual_format
, &actual_size
,
3744 &bytes_remaining
, &tmp_data
);
3745 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
3746 && actual_format
== 32 && actual_size
== max_len
)
3748 long *values
= (long *) tmp_data
;
3750 rect
->x
= values
[0];
3751 rect
->y
= values
[1];
3752 rect
->width
= values
[2];
3753 rect
->height
= values
[3];
3763 x_uncatch_errors ();
3771 /* Return monitor number where F is "most" or closest to. */
3773 x_get_monitor_for_frame (struct frame
*f
,
3774 struct MonitorInfo
*monitors
,
3778 int area
= 0, dist
= -1;
3779 int best_area
= -1, best_dist
= -1;
3782 if (n_monitors
== 1) return 0;
3783 frect
.x
= f
->left_pos
;
3784 frect
.y
= f
->top_pos
;
3785 frect
.width
= FRAME_PIXEL_WIDTH (f
);
3786 frect
.height
= FRAME_PIXEL_HEIGHT (f
);
3788 for (i
= 0; i
< n_monitors
; ++i
)
3790 struct MonitorInfo
*mi
= &monitors
[i
];
3794 if (mi
->geom
.width
== 0) continue;
3796 if (x_intersect_rectangles (&mi
->geom
, &frect
, &res
))
3798 a
= res
.width
* res
.height
;
3806 if (a
== 0 && area
== 0)
3809 if (frect
.x
+ frect
.width
< mi
->geom
.x
)
3810 dx
= mi
->geom
.x
- frect
.x
+ frect
.width
;
3811 else if (frect
.x
> mi
->geom
.x
+ mi
->geom
.width
)
3812 dx
= frect
.x
- mi
->geom
.x
+ mi
->geom
.width
;
3815 if (frect
.y
+ frect
.height
< mi
->geom
.y
)
3816 dy
= mi
->geom
.y
- frect
.y
+ frect
.height
;
3817 else if (frect
.y
> mi
->geom
.y
+ mi
->geom
.height
)
3818 dy
= frect
.y
- mi
->geom
.y
+ mi
->geom
.height
;
3823 if (dist
== -1 || dist
> d
)
3831 return best_area
!= -1 ? best_area
: (best_dist
!= -1 ? best_dist
: 0);
3835 x_make_monitor_attribute_list (struct MonitorInfo
*monitors
,
3837 int primary_monitor
,
3838 struct x_display_info
*dpyinfo
,
3841 Lisp_Object monitor_frames
= Fmake_vector (make_number (n_monitors
), Qnil
);
3842 Lisp_Object frame
, rest
;
3844 FOR_EACH_FRAME (rest
, frame
)
3846 struct frame
*f
= XFRAME (frame
);
3848 if (FRAME_X_P (f
) && FRAME_DISPLAY_INFO (f
) == dpyinfo
3849 && !EQ (frame
, tip_frame
))
3851 int i
= x_get_monitor_for_frame (f
, monitors
, n_monitors
);
3852 ASET (monitor_frames
, i
, Fcons (frame
, AREF (monitor_frames
, i
)));
3856 return make_monitor_attribute_list (monitors
, n_monitors
, primary_monitor
,
3857 monitor_frames
, source
);
3861 x_get_monitor_attributes_fallback (struct x_display_info
*dpyinfo
)
3863 struct MonitorInfo monitor
;
3864 XRectangle workarea_r
;
3866 /* Fallback: treat (possibly) multiple physical monitors as if they
3867 formed a single monitor as a whole. This should provide a
3868 consistent result at least on single monitor environments. */
3869 monitor
.geom
.x
= monitor
.geom
.y
= 0;
3870 monitor
.geom
.width
= x_display_pixel_width (dpyinfo
);
3871 monitor
.geom
.height
= x_display_pixel_height (dpyinfo
);
3872 monitor
.mm_width
= WidthMMOfScreen (dpyinfo
->screen
);
3873 monitor
.mm_height
= HeightMMOfScreen (dpyinfo
->screen
);
3874 monitor
.name
= xstrdup ("combined screen");
3876 if (x_get_net_workarea (dpyinfo
, &workarea_r
))
3877 monitor
.work
= workarea_r
;
3879 monitor
.work
= monitor
.geom
;
3880 return x_make_monitor_attribute_list (&monitor
, 1, 0, dpyinfo
, "fallback");
3884 #ifdef HAVE_XINERAMA
3886 x_get_monitor_attributes_xinerama (struct x_display_info
*dpyinfo
)
3889 Lisp_Object attributes_list
= Qnil
;
3890 Display
*dpy
= dpyinfo
->display
;
3891 XineramaScreenInfo
*info
= XineramaQueryScreens (dpy
, &n_monitors
);
3892 struct MonitorInfo
*monitors
;
3893 double mm_width_per_pixel
, mm_height_per_pixel
;
3895 if (! info
|| n_monitors
== 0)
3899 return attributes_list
;
3902 mm_width_per_pixel
= ((double) WidthMMOfScreen (dpyinfo
->screen
)
3903 / x_display_pixel_width (dpyinfo
));
3904 mm_height_per_pixel
= ((double) HeightMMOfScreen (dpyinfo
->screen
)
3905 / x_display_pixel_height (dpyinfo
));
3906 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
3907 for (i
= 0; i
< n_monitors
; ++i
)
3909 struct MonitorInfo
*mi
= &monitors
[i
];
3910 XRectangle workarea_r
;
3912 mi
->geom
.x
= info
[i
].x_org
;
3913 mi
->geom
.y
= info
[i
].y_org
;
3914 mi
->geom
.width
= info
[i
].width
;
3915 mi
->geom
.height
= info
[i
].height
;
3916 mi
->mm_width
= mi
->geom
.width
* mm_width_per_pixel
+ 0.5;
3917 mi
->mm_height
= mi
->geom
.height
* mm_height_per_pixel
+ 0.5;
3920 /* Xinerama usually have primary monitor first, just use that. */
3921 if (i
== 0 && x_get_net_workarea (dpyinfo
, &workarea_r
))
3923 mi
->work
= workarea_r
;
3924 if (! x_intersect_rectangles (&mi
->geom
, &mi
->work
, &mi
->work
))
3925 mi
->work
= mi
->geom
;
3928 mi
->work
= mi
->geom
;
3932 attributes_list
= x_make_monitor_attribute_list (monitors
,
3937 free_monitors (monitors
, n_monitors
);
3938 return attributes_list
;
3940 #endif /* HAVE_XINERAMA */
3945 x_get_monitor_attributes_xrandr (struct x_display_info
*dpyinfo
)
3947 Lisp_Object attributes_list
= Qnil
;
3948 XRRScreenResources
*resources
;
3949 Display
*dpy
= dpyinfo
->display
;
3950 int i
, n_monitors
, primary
= -1;
3951 RROutput pxid
= None
;
3952 struct MonitorInfo
*monitors
;
3954 #ifdef HAVE_XRRGETSCREENRESOURCESCURRENT
3955 resources
= XRRGetScreenResourcesCurrent (dpy
, dpyinfo
->root_window
);
3957 resources
= XRRGetScreenResources (dpy
, dpyinfo
->root_window
);
3959 if (! resources
|| resources
->noutput
== 0)
3962 XRRFreeScreenResources (resources
);
3965 n_monitors
= resources
->noutput
;
3966 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
3968 #ifdef HAVE_XRRGETOUTPUTPRIMARY
3969 pxid
= XRRGetOutputPrimary (dpy
, dpyinfo
->root_window
);
3972 for (i
= 0; i
< n_monitors
; ++i
)
3974 XRROutputInfo
*info
= XRRGetOutputInfo (dpy
, resources
,
3975 resources
->outputs
[i
]);
3976 Connection conn
= info
? info
->connection
: RR_Disconnected
;
3977 RRCrtc id
= info
? info
->crtc
: None
;
3979 if (strcmp (info
->name
, "default") == 0)
3981 /* Non XRandr 1.2 driver, does not give useful data. */
3982 XRRFreeOutputInfo (info
);
3983 XRRFreeScreenResources (resources
);
3984 free_monitors (monitors
, n_monitors
);
3988 if (conn
!= RR_Disconnected
&& id
!= None
)
3990 XRRCrtcInfo
*crtc
= XRRGetCrtcInfo (dpy
, resources
, id
);
3991 struct MonitorInfo
*mi
= &monitors
[i
];
3992 XRectangle workarea_r
;
3996 XRRFreeOutputInfo (info
);
4000 mi
->geom
.x
= crtc
->x
;
4001 mi
->geom
.y
= crtc
->y
;
4002 mi
->geom
.width
= crtc
->width
;
4003 mi
->geom
.height
= crtc
->height
;
4004 mi
->mm_width
= info
->mm_width
;
4005 mi
->mm_height
= info
->mm_height
;
4006 mi
->name
= xstrdup (info
->name
);
4008 if (pxid
!= None
&& pxid
== resources
->outputs
[i
])
4010 else if (primary
== -1 && strcmp (info
->name
, "LVDS") == 0)
4013 if (i
== primary
&& x_get_net_workarea (dpyinfo
, &workarea_r
))
4015 mi
->work
= workarea_r
;
4016 if (! x_intersect_rectangles (&mi
->geom
, &mi
->work
, &mi
->work
))
4017 mi
->work
= mi
->geom
;
4020 mi
->work
= mi
->geom
;
4022 XRRFreeCrtcInfo (crtc
);
4024 XRRFreeOutputInfo (info
);
4026 XRRFreeScreenResources (resources
);
4028 attributes_list
= x_make_monitor_attribute_list (monitors
,
4033 free_monitors (monitors
, n_monitors
);
4034 return attributes_list
;
4036 #endif /* HAVE_XRANDR */
4039 x_get_monitor_attributes (struct x_display_info
*dpyinfo
)
4041 Lisp_Object attributes_list
= Qnil
;
4042 Display
*dpy
= dpyinfo
->display
;
4044 (void) dpy
; /* Suppress unused variable warning. */
4047 int xrr_event_base
, xrr_error_base
;
4048 bool xrr_ok
= false;
4049 xrr_ok
= XRRQueryExtension (dpy
, &xrr_event_base
, &xrr_error_base
);
4052 int xrr_major
, xrr_minor
;
4053 XRRQueryVersion (dpy
, &xrr_major
, &xrr_minor
);
4054 xrr_ok
= (xrr_major
== 1 && xrr_minor
>= 2) || xrr_major
> 1;
4058 attributes_list
= x_get_monitor_attributes_xrandr (dpyinfo
);
4059 #endif /* HAVE_XRANDR */
4061 #ifdef HAVE_XINERAMA
4062 if (NILP (attributes_list
))
4064 int xin_event_base
, xin_error_base
;
4065 bool xin_ok
= false;
4066 xin_ok
= XineramaQueryExtension (dpy
, &xin_event_base
, &xin_error_base
);
4067 if (xin_ok
&& XineramaIsActive (dpy
))
4068 attributes_list
= x_get_monitor_attributes_xinerama (dpyinfo
);
4070 #endif /* HAVE_XINERAMA */
4072 if (NILP (attributes_list
))
4073 attributes_list
= x_get_monitor_attributes_fallback (dpyinfo
);
4075 return attributes_list
;
4078 #endif /* !USE_GTK */
4080 DEFUN ("x-display-monitor-attributes-list", Fx_display_monitor_attributes_list
,
4081 Sx_display_monitor_attributes_list
,
4083 doc
: /* Return a list of physical monitor attributes on the X display TERMINAL.
4085 The optional argument TERMINAL specifies which display to ask about.
4086 TERMINAL should be a terminal object, a frame or a display name (a string).
4087 If omitted or nil, that stands for the selected frame's display.
4089 In addition to the standard attribute keys listed in
4090 `display-monitor-attributes-list', the following keys are contained in
4093 source -- String describing the source from which multi-monitor
4094 information is obtained, one of \"Gdk\", \"XRandr\",
4095 \"Xinerama\", or \"fallback\"
4097 Internal use only, use `display-monitor-attributes-list' instead. */)
4098 (Lisp_Object terminal
)
4100 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4101 Lisp_Object attributes_list
= Qnil
;
4104 double mm_width_per_pixel
, mm_height_per_pixel
;
4107 gint primary_monitor
= 0, n_monitors
, i
;
4108 Lisp_Object monitor_frames
, rest
, frame
;
4109 static const char *source
= "Gdk";
4110 struct MonitorInfo
*monitors
;
4113 mm_width_per_pixel
= ((double) WidthMMOfScreen (dpyinfo
->screen
)
4114 / x_display_pixel_width (dpyinfo
));
4115 mm_height_per_pixel
= ((double) HeightMMOfScreen (dpyinfo
->screen
)
4116 / x_display_pixel_height (dpyinfo
));
4117 gdpy
= gdk_x11_lookup_xdisplay (dpyinfo
->display
);
4118 gscreen
= gdk_display_get_default_screen (gdpy
);
4119 #if GTK_CHECK_VERSION (2, 20, 0)
4120 primary_monitor
= gdk_screen_get_primary_monitor (gscreen
);
4122 n_monitors
= gdk_screen_get_n_monitors (gscreen
);
4123 monitor_frames
= Fmake_vector (make_number (n_monitors
), Qnil
);
4124 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
4126 FOR_EACH_FRAME (rest
, frame
)
4128 struct frame
*f
= XFRAME (frame
);
4130 if (FRAME_X_P (f
) && FRAME_DISPLAY_INFO (f
) == dpyinfo
4131 && !EQ (frame
, tip_frame
))
4133 GdkWindow
*gwin
= gtk_widget_get_window (FRAME_GTK_WIDGET (f
));
4135 i
= gdk_screen_get_monitor_at_window (gscreen
, gwin
);
4136 ASET (monitor_frames
, i
, Fcons (frame
, AREF (monitor_frames
, i
)));
4140 for (i
= 0; i
< n_monitors
; ++i
)
4142 gint width_mm
= -1, height_mm
= -1;
4143 GdkRectangle rec
, work
;
4144 struct MonitorInfo
*mi
= &monitors
[i
];
4146 gdk_screen_get_monitor_geometry (gscreen
, i
, &rec
);
4148 #if GTK_CHECK_VERSION (2, 14, 0)
4149 width_mm
= gdk_screen_get_monitor_width_mm (gscreen
, i
);
4150 height_mm
= gdk_screen_get_monitor_height_mm (gscreen
, i
);
4153 width_mm
= rec
.width
* mm_width_per_pixel
+ 0.5;
4155 height_mm
= rec
.height
* mm_height_per_pixel
+ 0.5;
4157 #if GTK_CHECK_VERSION (3, 4, 0)
4158 gdk_screen_get_monitor_workarea (gscreen
, i
, &work
);
4160 /* Emulate the behavior of GTK+ 3.4. */
4162 XRectangle workarea_r
;
4164 if (i
== primary_monitor
&& x_get_net_workarea (dpyinfo
, &workarea_r
))
4166 work
.x
= workarea_r
.x
;
4167 work
.y
= workarea_r
.y
;
4168 work
.width
= workarea_r
.width
;
4169 work
.height
= workarea_r
.height
;
4170 if (! gdk_rectangle_intersect (&rec
, &work
, &work
))
4181 mi
->geom
.width
= rec
.width
;
4182 mi
->geom
.height
= rec
.height
;
4183 mi
->work
.x
= work
.x
;
4184 mi
->work
.y
= work
.y
;
4185 mi
->work
.width
= work
.width
;
4186 mi
->work
.height
= work
.height
;
4187 mi
->mm_width
= width_mm
;
4188 mi
->mm_height
= height_mm
;
4190 #if GTK_CHECK_VERSION (2, 14, 0)
4191 mi
->name
= gdk_screen_get_monitor_plug_name (gscreen
, i
);
4195 attributes_list
= make_monitor_attribute_list (monitors
,
4201 #else /* not USE_GTK */
4204 attributes_list
= x_get_monitor_attributes (dpyinfo
);
4207 #endif /* not USE_GTK */
4209 return attributes_list
;
4212 /************************************************************************
4214 ************************************************************************/
4217 /* Mapping visual names to visuals. */
4219 static struct visual_class
4226 {"StaticGray", StaticGray
},
4227 {"GrayScale", GrayScale
},
4228 {"StaticColor", StaticColor
},
4229 {"PseudoColor", PseudoColor
},
4230 {"TrueColor", TrueColor
},
4231 {"DirectColor", DirectColor
},
4236 #ifndef HAVE_XSCREENNUMBEROFSCREEN
4238 /* Value is the screen number of screen SCR. This is a substitute for
4239 the X function with the same name when that doesn't exist. */
4242 XScreenNumberOfScreen (scr
)
4243 register Screen
*scr
;
4245 Display
*dpy
= scr
->display
;
4248 for (i
= 0; i
< dpy
->nscreens
; ++i
)
4249 if (scr
== dpy
->screens
+ i
)
4255 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
4258 /* Select the visual that should be used on display DPYINFO. Set
4259 members of DPYINFO appropriately. Called from x_term_init. */
4262 select_visual (struct x_display_info
*dpyinfo
)
4264 Display
*dpy
= dpyinfo
->display
;
4265 Screen
*screen
= dpyinfo
->screen
;
4268 /* See if a visual is specified. */
4269 value
= display_x_get_resource (dpyinfo
,
4270 build_string ("visualClass"),
4271 build_string ("VisualClass"),
4273 if (STRINGP (value
))
4275 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
4276 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4277 depth, a decimal number. NAME is compared with case ignored. */
4278 char *s
= alloca (SBYTES (value
) + 1);
4283 strcpy (s
, SSDATA (value
));
4284 dash
= strchr (s
, '-');
4287 dpyinfo
->n_planes
= atoi (dash
+ 1);
4291 /* We won't find a matching visual with depth 0, so that
4292 an error will be printed below. */
4293 dpyinfo
->n_planes
= 0;
4295 /* Determine the visual class. */
4296 for (i
= 0; visual_classes
[i
].name
; ++i
)
4297 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4299 class = visual_classes
[i
].class;
4303 /* Look up a matching visual for the specified class. */
4305 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4306 dpyinfo
->n_planes
, class, &vinfo
))
4307 fatal ("Invalid visual specification `%s'", SDATA (value
));
4309 dpyinfo
->visual
= vinfo
.visual
;
4314 XVisualInfo
*vinfo
, vinfo_template
;
4316 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4318 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4319 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4320 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4321 &vinfo_template
, &n_visuals
);
4323 fatal ("Can't get proper X visual info");
4325 dpyinfo
->n_planes
= vinfo
->depth
;
4331 /* Return the X display structure for the display named NAME.
4332 Open a new connection if necessary. */
4334 static struct x_display_info
*
4335 x_display_info_for_name (Lisp_Object name
)
4337 struct x_display_info
*dpyinfo
;
4339 CHECK_STRING (name
);
4341 for (dpyinfo
= x_display_list
; dpyinfo
; dpyinfo
= dpyinfo
->next
)
4342 if (!NILP (Fstring_equal (XCAR (dpyinfo
->name_list_element
), name
)))
4345 /* Use this general default value to start with. */
4346 Vx_resource_name
= Vinvocation_name
;
4348 validate_x_resource_name ();
4350 dpyinfo
= x_term_init (name
, 0, SSDATA (Vx_resource_name
));
4353 error ("Cannot connect to X server %s", SDATA (name
));
4355 XSETFASTINT (Vwindow_system_version
, 11);
4361 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4363 doc
: /* Open a connection to a display server.
4364 DISPLAY is the name of the display to connect to.
4365 Optional second arg XRM-STRING is a string of resources in xrdb format.
4366 If the optional third arg MUST-SUCCEED is non-nil,
4367 terminate Emacs if we can't open the connection.
4368 \(In the Nextstep version, the last two arguments are currently ignored.) */)
4369 (Lisp_Object display
, Lisp_Object xrm_string
, Lisp_Object must_succeed
)
4372 struct x_display_info
*dpyinfo
;
4374 CHECK_STRING (display
);
4375 if (! NILP (xrm_string
))
4376 CHECK_STRING (xrm_string
);
4378 xrm_option
= NILP (xrm_string
) ? 0 : SSDATA (xrm_string
);
4380 validate_x_resource_name ();
4382 /* This is what opens the connection and sets x_current_display.
4383 This also initializes many symbols, such as those used for input. */
4384 dpyinfo
= x_term_init (display
, xrm_option
,
4385 SSDATA (Vx_resource_name
));
4389 if (!NILP (must_succeed
))
4390 fatal ("Cannot connect to X server %s.\n\
4391 Check the DISPLAY environment variable or use `-d'.\n\
4392 Also use the `xauth' program to verify that you have the proper\n\
4393 authorization information needed to connect the X server.\n\
4394 An insecure way to solve the problem may be to use `xhost'.\n",
4397 error ("Cannot connect to X server %s", SDATA (display
));
4400 XSETFASTINT (Vwindow_system_version
, 11);
4404 DEFUN ("x-close-connection", Fx_close_connection
,
4405 Sx_close_connection
, 1, 1, 0,
4406 doc
: /* Close the connection to TERMINAL's X server.
4407 For TERMINAL, specify a terminal object, a frame or a display name (a
4408 string). If TERMINAL is nil, that stands for the selected frame's
4410 (Lisp_Object terminal
)
4412 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4414 if (dpyinfo
->reference_count
> 0)
4415 error ("Display still has frames on it");
4417 x_delete_terminal (dpyinfo
->terminal
);
4422 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4423 doc
: /* Return the list of display names that Emacs has connections to. */)
4426 Lisp_Object result
= Qnil
;
4427 struct x_display_info
*xdi
;
4429 for (xdi
= x_display_list
; xdi
; xdi
= xdi
->next
)
4430 result
= Fcons (XCAR (xdi
->name_list_element
), result
);
4435 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4436 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4437 This function only has an effect on X Windows. With MS Windows, it is
4438 defined but does nothing.
4440 If ON is nil, allow buffering of requests.
4441 Turning on synchronization prohibits the Xlib routines from buffering
4442 requests and seriously degrades performance, but makes debugging much
4444 The optional second argument TERMINAL specifies which display to act on.
4445 TERMINAL should be a terminal object, a frame or a display name (a string).
4446 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4447 (Lisp_Object on
, Lisp_Object terminal
)
4449 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4451 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4456 /* Wait for responses to all X commands issued so far for frame F. */
4459 x_sync (struct frame
*f
)
4462 XSync (FRAME_X_DISPLAY (f
), False
);
4467 /***********************************************************************
4469 ***********************************************************************/
4471 DEFUN ("x-change-window-property", Fx_change_window_property
,
4472 Sx_change_window_property
, 2, 6, 0,
4473 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4474 PROP must be a string. VALUE may be a string or a list of conses,
4475 numbers and/or strings. If an element in the list is a string, it is
4476 converted to an atom and the value of the atom is used. If an element
4477 is a cons, it is converted to a 32 bit number where the car is the 16
4478 top bits and the cdr is the lower 16 bits.
4480 FRAME nil or omitted means use the selected frame.
4481 If TYPE is given and non-nil, it is the name of the type of VALUE.
4482 If TYPE is not given or nil, the type is STRING.
4483 FORMAT gives the size in bits of each element if VALUE is a list.
4484 It must be one of 8, 16 or 32.
4485 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4486 If OUTER-P is non-nil, the property is changed for the outer X window of
4487 FRAME. Default is to change on the edit X window. */)
4488 (Lisp_Object prop
, Lisp_Object value
, Lisp_Object frame
,
4489 Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4491 struct frame
*f
= decode_window_system_frame (frame
);
4493 Atom target_type
= XA_STRING
;
4494 int element_format
= 8;
4495 unsigned char *data
;
4499 CHECK_STRING (prop
);
4501 if (! NILP (format
))
4503 CHECK_NUMBER (format
);
4505 if (XINT (format
) != 8 && XINT (format
) != 16
4506 && XINT (format
) != 32)
4507 error ("FORMAT must be one of 8, 16 or 32");
4508 element_format
= XINT (format
);
4515 nelements
= x_check_property_data (value
);
4516 if (nelements
== -1)
4517 error ("Bad data in VALUE, must be number, string or cons");
4519 /* The man page for XChangeProperty:
4520 "If the specified format is 32, the property data must be a
4522 This applies even if long is more than 32 bits. The X library
4523 converts to 32 bits before sending to the X server. */
4524 elsize
= element_format
== 32 ? sizeof (long) : element_format
>> 3;
4525 data
= xnmalloc (nelements
, elsize
);
4527 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4531 CHECK_STRING (value
);
4532 data
= SDATA (value
);
4533 if (INT_MAX
< SBYTES (value
))
4534 error ("VALUE too long");
4535 nelements
= SBYTES (value
);
4539 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4542 CHECK_STRING (type
);
4543 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4546 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4547 else w
= FRAME_X_WINDOW (f
);
4549 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4550 prop_atom
, target_type
, element_format
, PropModeReplace
,
4553 if (CONSP (value
)) xfree (data
);
4555 /* Make sure the property is set when we return. */
4556 XFlush (FRAME_X_DISPLAY (f
));
4563 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4564 Sx_delete_window_property
, 1, 2, 0,
4565 doc
: /* Remove window property PROP from X window of FRAME.
4566 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4567 (Lisp_Object prop
, Lisp_Object frame
)
4569 struct frame
*f
= decode_window_system_frame (frame
);
4572 CHECK_STRING (prop
);
4574 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4575 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4577 /* Make sure the property is removed when we return. */
4578 XFlush (FRAME_X_DISPLAY (f
));
4585 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4587 doc
: /* Value is the value of window property PROP on FRAME.
4588 If FRAME is nil or omitted, use the selected frame.
4590 On X Windows, the following optional arguments are also accepted:
4591 If TYPE is nil or omitted, get the property as a string.
4592 Otherwise TYPE is the name of the atom that denotes the type expected.
4593 If SOURCE is non-nil, get the property on that window instead of from
4594 FRAME. The number 0 denotes the root window.
4595 If DELETE-P is non-nil, delete the property after retrieving it.
4596 If VECTOR-RET-P is non-nil, don't return a string but a vector of values.
4598 On MS Windows, this function accepts but ignores those optional arguments.
4600 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4601 no value of TYPE (always string in the MS Windows case). */)
4602 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
,
4603 Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4605 struct frame
*f
= decode_window_system_frame (frame
);
4608 Lisp_Object prop_value
= Qnil
;
4609 unsigned char *tmp_data
= NULL
;
4611 Atom target_type
= XA_STRING
;
4613 unsigned long actual_size
, bytes_remaining
;
4614 Window target_window
= FRAME_X_WINDOW (f
);
4615 struct gcpro gcpro1
;
4617 GCPRO1 (prop_value
);
4618 CHECK_STRING (prop
);
4620 if (! NILP (source
))
4622 CONS_TO_INTEGER (source
, Window
, target_window
);
4623 if (! target_window
)
4624 target_window
= FRAME_DISPLAY_INFO (f
)->root_window
;
4630 if (strcmp ("AnyPropertyType", SSDATA (type
)) == 0)
4631 target_type
= AnyPropertyType
;
4633 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4636 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4637 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4638 prop_atom
, 0, 0, False
, target_type
,
4639 &actual_type
, &actual_format
, &actual_size
,
4640 &bytes_remaining
, &tmp_data
);
4643 int size
= bytes_remaining
;
4648 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4649 prop_atom
, 0, bytes_remaining
,
4650 ! NILP (delete_p
), target_type
,
4651 &actual_type
, &actual_format
,
4652 &actual_size
, &bytes_remaining
,
4654 if (rc
== Success
&& tmp_data
)
4656 /* The man page for XGetWindowProperty says:
4657 "If the returned format is 32, the returned data is represented
4658 as a long array and should be cast to that type to obtain the
4660 This applies even if long is more than 32 bits, the X library
4661 converts from 32 bit elements received from the X server to long
4662 and passes the long array to us. Thus, for that case memcpy can not
4663 be used. We convert to a 32 bit type here, because so much code
4666 The bytes and offsets passed to XGetWindowProperty refers to the
4667 property and those are indeed in 32 bit quantities if format is
4670 if (BITS_PER_LONG
> 32 && actual_format
== 32)
4673 int *idata
= (int *) tmp_data
;
4674 long *ldata
= (long *) tmp_data
;
4676 for (i
= 0; i
< actual_size
; ++i
)
4677 idata
[i
] = (int) ldata
[i
];
4680 if (NILP (vector_ret_p
))
4681 prop_value
= make_string ((char *) tmp_data
, size
);
4683 prop_value
= x_property_data_to_lisp (f
,
4690 if (tmp_data
) XFree (tmp_data
);
4700 /***********************************************************************
4702 ***********************************************************************/
4704 /* Timer function of hourglass_atimer. TIMER is equal to
4707 Display an hourglass pointer on all frames by mapping the frames'
4708 hourglass_window. Set the hourglass_p flag in the frames'
4709 output_data.x structure to indicate that an hourglass cursor is
4710 shown on the frames. */
4713 show_hourglass (struct atimer
*timer
)
4715 /* The timer implementation will cancel this timer automatically
4716 after this function has run. Set hourglass_atimer to null
4717 so that we know the timer doesn't have to be canceled. */
4718 hourglass_atimer
= NULL
;
4720 if (!hourglass_shown_p
)
4722 Lisp_Object rest
, frame
;
4726 FOR_EACH_FRAME (rest
, frame
)
4728 struct frame
*f
= XFRAME (frame
);
4730 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4732 Display
*dpy
= FRAME_X_DISPLAY (f
);
4734 #ifdef USE_X_TOOLKIT
4735 if (f
->output_data
.x
->widget
)
4737 if (FRAME_OUTER_WINDOW (f
))
4740 f
->output_data
.x
->hourglass_p
= 1;
4742 if (!f
->output_data
.x
->hourglass_window
)
4744 unsigned long mask
= CWCursor
;
4745 XSetWindowAttributes attrs
;
4747 Window parent
= FRAME_X_WINDOW (f
);
4749 Window parent
= FRAME_OUTER_WINDOW (f
);
4751 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4753 f
->output_data
.x
->hourglass_window
4754 = XCreateWindow (dpy
, parent
,
4755 0, 0, 32000, 32000, 0, 0,
4761 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4767 hourglass_shown_p
= 1;
4773 /* Hide the hourglass pointer on all frames, if it is currently
4777 hide_hourglass (void)
4779 if (hourglass_shown_p
)
4781 Lisp_Object rest
, frame
;
4784 FOR_EACH_FRAME (rest
, frame
)
4786 struct frame
*f
= XFRAME (frame
);
4789 /* Watch out for newly created frames. */
4790 && f
->output_data
.x
->hourglass_window
)
4792 XUnmapWindow (FRAME_X_DISPLAY (f
),
4793 f
->output_data
.x
->hourglass_window
);
4794 /* Sync here because XTread_socket looks at the
4795 hourglass_p flag that is reset to zero below. */
4796 XSync (FRAME_X_DISPLAY (f
), False
);
4797 f
->output_data
.x
->hourglass_p
= 0;
4801 hourglass_shown_p
= 0;
4808 /***********************************************************************
4810 ***********************************************************************/
4812 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4813 Lisp_Object
, Lisp_Object
);
4814 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4815 Lisp_Object
, int, int, int *, int *);
4817 /* The frame of a currently visible tooltip. */
4819 Lisp_Object tip_frame
;
4821 /* If non-nil, a timer started that hides the last tooltip when it
4824 static Lisp_Object tip_timer
;
4827 /* If non-nil, a vector of 3 elements containing the last args
4828 with which x-show-tip was called. See there. */
4830 static Lisp_Object last_show_tip_args
;
4834 unwind_create_tip_frame (Lisp_Object frame
)
4836 Lisp_Object deleted
;
4838 deleted
= unwind_create_frame (frame
);
4839 if (EQ (deleted
, Qt
))
4847 /* Create a frame for a tooltip on the display described by DPYINFO.
4848 PARMS is a list of frame parameters. TEXT is the string to
4849 display in the tip frame. Value is the frame.
4851 Note that functions called here, esp. x_default_parameter can
4852 signal errors, for instance when a specified color name is
4853 undefined. We have to make sure that we're in a consistent state
4854 when this happens. */
4857 x_create_tip_frame (struct x_display_info
*dpyinfo
,
4865 ptrdiff_t count
= SPECPDL_INDEX ();
4866 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4867 int face_change_count_before
= face_change_count
;
4869 struct buffer
*old_buffer
;
4871 if (!dpyinfo
->terminal
->name
)
4872 error ("Terminal is not live, can't create new frames on it");
4874 parms
= Fcopy_alist (parms
);
4876 /* Get the name of the frame to use for resource lookup. */
4877 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4879 && !EQ (name
, Qunbound
)
4881 error ("Invalid frame name--not a string or nil");
4884 GCPRO3 (parms
, name
, frame
);
4886 XSETFRAME (frame
, f
);
4888 buffer
= Fget_buffer_create (build_string (" *tip*"));
4889 /* Use set_window_buffer instead of Fset_window_buffer (see
4890 discussion of bug#11984, bug#12025, bug#12026). */
4891 set_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, 0, 0);
4892 old_buffer
= current_buffer
;
4893 set_buffer_internal_1 (XBUFFER (buffer
));
4894 bset_truncate_lines (current_buffer
, Qnil
);
4895 specbind (Qinhibit_read_only
, Qt
);
4896 specbind (Qinhibit_modification_hooks
, Qt
);
4899 set_buffer_internal_1 (old_buffer
);
4901 record_unwind_protect (unwind_create_tip_frame
, frame
);
4903 f
->terminal
= dpyinfo
->terminal
;
4905 /* By setting the output method, we're essentially saying that
4906 the frame is live, as per FRAME_LIVE_P. If we get a signal
4907 from this point on, x_destroy_window might screw up reference
4909 f
->output_method
= output_x_window
;
4910 f
->output_data
.x
= xzalloc (sizeof *f
->output_data
.x
);
4911 f
->output_data
.x
->icon_bitmap
= -1;
4912 FRAME_FONTSET (f
) = -1;
4913 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4914 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4915 #ifdef USE_TOOLKIT_SCROLL_BARS
4916 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4917 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4918 #endif /* USE_TOOLKIT_SCROLL_BARS */
4919 f
->output_data
.x
->white_relief
.pixel
= -1;
4920 f
->output_data
.x
->black_relief
.pixel
= -1;
4922 fset_icon_name (f
, Qnil
);
4923 FRAME_DISPLAY_INFO (f
) = dpyinfo
;
4924 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
4925 f
->output_data
.x
->explicit_parent
= 0;
4927 /* These colors will be set anyway later, but it's important
4928 to get the color reference counts right, so initialize them! */
4931 struct gcpro gcpro1
;
4933 /* Function x_decode_color can signal an error. Make
4934 sure to initialize color slots so that we won't try
4935 to free colors we haven't allocated. */
4936 FRAME_FOREGROUND_PIXEL (f
) = -1;
4937 FRAME_BACKGROUND_PIXEL (f
) = -1;
4938 f
->output_data
.x
->cursor_pixel
= -1;
4939 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4940 f
->output_data
.x
->border_pixel
= -1;
4941 f
->output_data
.x
->mouse_pixel
= -1;
4943 black
= build_string ("black");
4945 FRAME_FOREGROUND_PIXEL (f
)
4946 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4947 FRAME_BACKGROUND_PIXEL (f
)
4948 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4949 f
->output_data
.x
->cursor_pixel
4950 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4951 f
->output_data
.x
->cursor_foreground_pixel
4952 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4953 f
->output_data
.x
->border_pixel
4954 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4955 f
->output_data
.x
->mouse_pixel
4956 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4960 /* Set the name; the functions to which we pass f expect the name to
4962 if (EQ (name
, Qunbound
) || NILP (name
))
4964 fset_name (f
, build_string (dpyinfo
->x_id_name
));
4965 f
->explicit_name
= 0;
4969 fset_name (f
, name
);
4970 f
->explicit_name
= 1;
4971 /* use the frame's title when getting resources for this frame. */
4972 specbind (Qx_resource_name
, name
);
4975 register_font_driver (&xfont_driver
, f
);
4976 #ifdef HAVE_FREETYPE
4978 register_font_driver (&xftfont_driver
, f
);
4979 #else /* not HAVE_XFT */
4980 register_font_driver (&ftxfont_driver
, f
);
4981 #endif /* not HAVE_XFT */
4982 #endif /* HAVE_FREETYPE */
4984 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4985 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4987 /* Extract the window parameters from the supplied values that are
4988 needed to determine window geometry. */
4989 x_default_font_parameter (f
, parms
);
4991 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
4992 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4994 /* This defaults to 2 in order to match xterm. We recognize either
4995 internalBorderWidth or internalBorder (which is what xterm calls
4997 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5001 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
5002 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
5003 if (! EQ (value
, Qunbound
))
5004 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
5008 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
5009 "internalBorderWidth", "internalBorderWidth",
5011 x_default_parameter (f
, parms
, Qright_divider_width
, make_number (0),
5012 NULL
, NULL
, RES_TYPE_NUMBER
);
5013 x_default_parameter (f
, parms
, Qbottom_divider_width
, make_number (0),
5014 NULL
, NULL
, RES_TYPE_NUMBER
);
5016 /* Also do the stuff which must be set before the window exists. */
5017 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
5018 "foreground", "Foreground", RES_TYPE_STRING
);
5019 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
5020 "background", "Background", RES_TYPE_STRING
);
5021 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
5022 "pointerColor", "Foreground", RES_TYPE_STRING
);
5023 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
5024 "cursorColor", "Foreground", RES_TYPE_STRING
);
5025 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
5026 "borderColor", "BorderColor", RES_TYPE_STRING
);
5029 image_cache_refcount
=
5030 FRAME_IMAGE_CACHE (f
) ? FRAME_IMAGE_CACHE (f
)->refcount
: 0;
5031 dpyinfo_refcount
= dpyinfo
->reference_count
;
5032 #endif /* GLYPH_DEBUG */
5034 /* Init faces before x_default_parameter is called for scroll-bar
5035 parameters because that function calls x_set_scroll_bar_width,
5036 which calls change_frame_size, which calls Fset_window_buffer,
5037 which runs hooks, which call Fvertical_motion. At the end, we
5038 end up in init_iterator with a null face cache, which should not
5040 init_frame_faces (f
);
5042 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
5044 x_figure_window_size (f
, parms
, 0);
5047 XSetWindowAttributes attrs
;
5049 Atom type
= FRAME_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
5052 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
5053 if (DoesSaveUnders (dpyinfo
->screen
))
5054 mask
|= CWSaveUnder
;
5056 /* Window managers look at the override-redirect flag to determine
5057 whether or net to give windows a decoration (Xlib spec, chapter
5059 attrs
.override_redirect
= True
;
5060 attrs
.save_under
= True
;
5061 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
5062 /* Arrange for getting MapNotify and UnmapNotify events. */
5063 attrs
.event_mask
= StructureNotifyMask
;
5065 = FRAME_X_WINDOW (f
)
5066 = XCreateWindow (FRAME_X_DISPLAY (f
),
5067 FRAME_DISPLAY_INFO (f
)->root_window
,
5068 /* x, y, width, height */
5072 CopyFromParent
, InputOutput
, CopyFromParent
,
5074 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
5075 FRAME_DISPLAY_INFO (f
)->Xatom_net_window_type
,
5076 XA_ATOM
, 32, PropModeReplace
,
5077 (unsigned char *)&type
, 1);
5083 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
5084 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
5085 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
5086 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
5087 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
5088 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
5090 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
5091 Change will not be effected unless different from the current
5093 width
= FRAME_COLS (f
);
5094 height
= FRAME_LINES (f
);
5095 SET_FRAME_COLS (f
, 0);
5096 FRAME_LINES (f
) = 0;
5097 change_frame_size (f
, width
, height
, 1, 0, 0, 0);
5099 /* Add `tooltip' frame parameter's default value. */
5100 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
5101 Fmodify_frame_parameters (frame
, list1 (Fcons (Qtooltip
, Qt
)));
5103 /* FIXME - can this be done in a similar way to normal frames?
5104 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
5106 /* Set the `display-type' frame parameter before setting up faces. */
5108 Lisp_Object disptype
;
5110 if (FRAME_DISPLAY_INFO (f
)->n_planes
== 1)
5111 disptype
= intern ("mono");
5112 else if (FRAME_DISPLAY_INFO (f
)->visual
->class == GrayScale
5113 || FRAME_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
5114 disptype
= intern ("grayscale");
5116 disptype
= intern ("color");
5118 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
5119 Fmodify_frame_parameters (frame
, list1 (Fcons (Qdisplay_type
, disptype
)));
5122 /* Set up faces after all frame parameters are known. This call
5123 also merges in face attributes specified for new frames.
5125 Frame parameters may be changed if .Xdefaults contains
5126 specifications for the default font. For example, if there is an
5127 `Emacs.default.attributeBackground: pink', the `background-color'
5128 attribute of the frame get's set, which let's the internal border
5129 of the tooltip frame appear in pink. Prevent this. */
5131 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
5133 /* Set tip_frame here, so that */
5135 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
5137 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
5138 Fmodify_frame_parameters (frame
, list1 (Fcons (Qbackground_color
, bg
)));
5145 /* Now that the frame will be official, it counts as a reference to
5146 its display and terminal. */
5147 FRAME_DISPLAY_INFO (f
)->reference_count
++;
5148 f
->terminal
->reference_count
++;
5150 /* It is now ok to make the frame official even if we get an error
5151 below. And the frame needs to be on Vframe_list or making it
5152 visible won't work. */
5153 Vframe_list
= Fcons (frame
, Vframe_list
);
5156 /* Setting attributes of faces of the tooltip frame from resources
5157 and similar will increment face_change_count, which leads to the
5158 clearing of all current matrices. Since this isn't necessary
5159 here, avoid it by resetting face_change_count to the value it
5160 had before we created the tip frame. */
5161 face_change_count
= face_change_count_before
;
5163 /* Discard the unwind_protect. */
5164 return unbind_to (count
, frame
);
5168 /* Compute where to display tip frame F. PARMS is the list of frame
5169 parameters for F. DX and DY are specified offsets from the current
5170 location of the mouse. WIDTH and HEIGHT are the width and height
5171 of the tooltip. Return coordinates relative to the root window of
5172 the display in *ROOT_X, and *ROOT_Y. */
5175 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
)
5177 Lisp_Object left
, top
;
5182 /* User-specified position? */
5183 left
= Fcdr (Fassq (Qleft
, parms
));
5184 top
= Fcdr (Fassq (Qtop
, parms
));
5186 /* Move the tooltip window where the mouse pointer is. Resize and
5188 if (!INTEGERP (left
) || !INTEGERP (top
))
5191 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_DISPLAY_INFO (f
)->root_window
,
5192 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
5197 *root_y
= XINT (top
);
5198 else if (*root_y
+ XINT (dy
) <= 0)
5199 *root_y
= 0; /* Can happen for negative dy */
5200 else if (*root_y
+ XINT (dy
) + height
5201 <= x_display_pixel_height (FRAME_DISPLAY_INFO (f
)))
5202 /* It fits below the pointer */
5203 *root_y
+= XINT (dy
);
5204 else if (height
+ XINT (dy
) <= *root_y
)
5205 /* It fits above the pointer. */
5206 *root_y
-= height
+ XINT (dy
);
5208 /* Put it on the top. */
5211 if (INTEGERP (left
))
5212 *root_x
= XINT (left
);
5213 else if (*root_x
+ XINT (dx
) <= 0)
5214 *root_x
= 0; /* Can happen for negative dx */
5215 else if (*root_x
+ XINT (dx
) + width
5216 <= x_display_pixel_width (FRAME_DISPLAY_INFO (f
)))
5217 /* It fits to the right of the pointer. */
5218 *root_x
+= XINT (dx
);
5219 else if (width
+ XINT (dx
) <= *root_x
)
5220 /* It fits to the left of the pointer. */
5221 *root_x
-= width
+ XINT (dx
);
5223 /* Put it left-justified on the screen--it ought to fit that way. */
5228 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5229 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5230 A tooltip window is a small X window displaying a string.
5232 This is an internal function; Lisp code should call `tooltip-show'.
5234 FRAME nil or omitted means use the selected frame.
5236 PARMS is an optional list of frame parameters which can be used to
5237 change the tooltip's appearance.
5239 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5240 means use the default timeout of 5 seconds.
5242 If the list of frame parameters PARMS contains a `left' parameters,
5243 the tooltip is displayed at that x-position. Otherwise it is
5244 displayed at the mouse position, with offset DX added (default is 5 if
5245 DX isn't specified). Likewise for the y-position; if a `top' frame
5246 parameter is specified, it determines the y-position of the tooltip
5247 window, otherwise it is displayed at the mouse position, with offset
5248 DY added (default is -10).
5250 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5251 Text larger than the specified size is clipped. */)
5252 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
5257 struct buffer
*old_buffer
;
5258 struct text_pos pos
;
5259 int i
, width
, height
, seen_reversed_p
;
5260 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5261 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5262 ptrdiff_t count
= SPECPDL_INDEX ();
5264 specbind (Qinhibit_redisplay
, Qt
);
5266 GCPRO4 (string
, parms
, frame
, timeout
);
5268 CHECK_STRING (string
);
5269 if (SCHARS (string
) == 0)
5270 string
= make_unibyte_string (" ", 1);
5272 f
= decode_window_system_frame (frame
);
5274 timeout
= make_number (5);
5276 CHECK_NATNUM (timeout
);
5279 dx
= make_number (5);
5284 dy
= make_number (-10);
5289 if (x_gtk_use_system_tooltips
)
5293 /* Hide a previous tip, if any. */
5297 ok
= xg_prepare_tooltip (f
, string
, &width
, &height
);
5300 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5301 xg_show_tooltip (f
, root_x
, root_y
);
5302 /* This is used in Fx_hide_tip. */
5303 XSETFRAME (tip_frame
, f
);
5306 if (ok
) goto start_timer
;
5308 #endif /* USE_GTK */
5310 if (NILP (last_show_tip_args
))
5311 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5313 if (!NILP (tip_frame
))
5315 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5316 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5317 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5319 if (EQ (frame
, last_frame
)
5320 && !NILP (Fequal (last_string
, string
))
5321 && !NILP (Fequal (last_parms
, parms
)))
5323 struct frame
*tip_f
= XFRAME (tip_frame
);
5325 /* Only DX and DY have changed. */
5326 if (!NILP (tip_timer
))
5328 Lisp_Object timer
= tip_timer
;
5330 call1 (Qcancel_timer
, timer
);
5334 compute_tip_xy (tip_f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (tip_f
),
5335 FRAME_PIXEL_HEIGHT (tip_f
), &root_x
, &root_y
);
5336 XMoveWindow (FRAME_X_DISPLAY (tip_f
), FRAME_X_WINDOW (tip_f
),
5343 /* Hide a previous tip, if any. */
5346 ASET (last_show_tip_args
, 0, string
);
5347 ASET (last_show_tip_args
, 1, frame
);
5348 ASET (last_show_tip_args
, 2, parms
);
5350 /* Add default values to frame parameters. */
5351 if (NILP (Fassq (Qname
, parms
)))
5352 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5353 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5354 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5355 if (NILP (Fassq (Qborder_width
, parms
)))
5356 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5357 if (NILP (Fassq (Qbottom_divider_width
, parms
)))
5358 parms
= Fcons (Fcons (Qbottom_divider_width
, make_number (0)), parms
);
5359 if (NILP (Fassq (Qright_divider_width
, parms
)))
5360 parms
= Fcons (Fcons (Qright_divider_width
, make_number (0)), parms
);
5361 if (NILP (Fassq (Qborder_color
, parms
)))
5362 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5363 if (NILP (Fassq (Qbackground_color
, parms
)))
5364 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5367 /* Create a frame for the tooltip, and record it in the global
5368 variable tip_frame. */
5369 frame
= x_create_tip_frame (FRAME_DISPLAY_INFO (f
), parms
, string
);
5372 /* Set up the frame's root window. */
5373 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5379 if (CONSP (Vx_max_tooltip_size
)
5380 && RANGED_INTEGERP (1, XCAR (Vx_max_tooltip_size
), INT_MAX
)
5381 && RANGED_INTEGERP (1, XCDR (Vx_max_tooltip_size
), INT_MAX
))
5383 w
->total_cols
= XFASTINT (XCAR (Vx_max_tooltip_size
));
5384 w
->total_lines
= XFASTINT (XCDR (Vx_max_tooltip_size
));
5389 w
->total_lines
= 40;
5392 w
->pixel_width
= w
->total_cols
* FRAME_COLUMN_WIDTH (f
);
5393 w
->pixel_height
= w
->total_lines
* FRAME_LINE_HEIGHT (f
);
5395 FRAME_TOTAL_COLS (f
) = w
->total_cols
;
5396 adjust_frame_glyphs (f
);
5397 w
->pseudo_window_p
= 1;
5399 /* Display the tooltip text in a temporary buffer. */
5400 old_buffer
= current_buffer
;
5401 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->contents
));
5402 bset_truncate_lines (current_buffer
, Qnil
);
5403 clear_glyph_matrix (w
->desired_matrix
);
5404 clear_glyph_matrix (w
->current_matrix
);
5405 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5406 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5408 /* Compute width and height of the tooltip. */
5409 width
= height
= seen_reversed_p
= 0;
5410 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5412 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5416 /* Stop at the first empty row at the end. */
5417 if (!row
->enabled_p
|| !MATRIX_ROW_DISPLAYS_TEXT_P (row
))
5420 /* Let the row go over the full width of the frame. */
5421 row
->full_width_p
= 1;
5423 row_width
= row
->pixel_width
;
5424 if (row
->used
[TEXT_AREA
])
5426 /* There's a glyph at the end of rows that is used to place
5427 the cursor there. Don't include the width of this glyph. */
5428 if (!row
->reversed_p
)
5430 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5431 if (INTEGERP (last
->object
))
5432 row_width
-= last
->pixel_width
;
5436 /* There could be a stretch glyph at the beginning of R2L
5437 rows that is produced by extend_face_to_end_of_line.
5438 Don't count that glyph. */
5439 struct glyph
*g
= row
->glyphs
[TEXT_AREA
];
5441 if (g
->type
== STRETCH_GLYPH
&& INTEGERP (g
->object
))
5443 row_width
-= g
->pixel_width
;
5444 seen_reversed_p
= 1;
5449 height
+= row
->height
;
5450 width
= max (width
, row_width
);
5453 /* If we've seen partial-length R2L rows, we need to re-adjust the
5454 tool-tip frame width and redisplay it again, to avoid over-wide
5455 tips due to the stretch glyph that extends R2L lines to full
5456 width of the frame. */
5457 if (seen_reversed_p
)
5459 /* w->total_cols and FRAME_TOTAL_COLS want the width in columns,
5461 w
->pixel_width
= width
;
5462 width
/= WINDOW_FRAME_COLUMN_WIDTH (w
);
5463 w
->total_cols
= width
;
5464 FRAME_TOTAL_COLS (f
) = width
;
5465 SET_FRAME_WIDTH (f
, width
);
5466 adjust_frame_glyphs (f
);
5467 clear_glyph_matrix (w
->desired_matrix
);
5468 clear_glyph_matrix (w
->current_matrix
);
5469 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5471 /* Recompute width and height of the tooltip. */
5472 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5474 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5478 if (!row
->enabled_p
|| !MATRIX_ROW_DISPLAYS_TEXT_P (row
))
5480 row
->full_width_p
= 1;
5481 row_width
= row
->pixel_width
;
5482 if (row
->used
[TEXT_AREA
] && !row
->reversed_p
)
5484 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5485 if (INTEGERP (last
->object
))
5486 row_width
-= last
->pixel_width
;
5489 height
+= row
->height
;
5490 width
= max (width
, row_width
);
5494 /* Add the frame's internal border to the width and height the X
5495 window should have. */
5496 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5497 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5499 /* Move the tooltip window where the mouse pointer is. Resize and
5501 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5504 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5505 root_x
, root_y
, width
, height
);
5506 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5509 /* Draw into the window. */
5510 w
->must_be_updated_p
= 1;
5511 update_single_window (w
, 1);
5513 /* Restore original current buffer. */
5514 set_buffer_internal_1 (old_buffer
);
5515 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5518 /* Let the tip disappear after timeout seconds. */
5519 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5520 intern ("x-hide-tip"));
5523 return unbind_to (count
, Qnil
);
5527 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5528 doc
: /* Hide the current tooltip window, if there is any.
5529 Value is t if tooltip was open, nil otherwise. */)
5533 Lisp_Object deleted
, frame
, timer
;
5534 struct gcpro gcpro1
, gcpro2
;
5536 /* Return quickly if nothing to do. */
5537 if (NILP (tip_timer
) && NILP (tip_frame
))
5542 GCPRO2 (frame
, timer
);
5543 tip_frame
= tip_timer
= deleted
= Qnil
;
5545 count
= SPECPDL_INDEX ();
5546 specbind (Qinhibit_redisplay
, Qt
);
5547 specbind (Qinhibit_quit
, Qt
);
5550 call1 (Qcancel_timer
, timer
);
5554 /* When using system tooltip, tip_frame is the Emacs frame on which
5555 the tip is shown. */
5556 struct frame
*f
= XFRAME (frame
);
5557 if (FRAME_LIVE_P (f
) && xg_hide_tooltip (f
))
5564 delete_frame (frame
, Qnil
);
5568 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5569 redisplay procedure is not called when a tip frame over menu
5570 items is unmapped. Redisplay the menu manually... */
5573 struct frame
*f
= SELECTED_FRAME ();
5574 w
= f
->output_data
.x
->menubar_widget
;
5576 if (!DoesSaveUnders (FRAME_DISPLAY_INFO (f
)->screen
)
5580 xlwmenu_redisplay (w
);
5584 #endif /* USE_LUCID */
5588 return unbind_to (count
, deleted
);
5593 /***********************************************************************
5594 File selection dialog
5595 ***********************************************************************/
5597 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5598 Sx_uses_old_gtk_dialog
,
5600 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5606 && window_system_available (SELECTED_FRAME ())
5607 && xg_uses_old_file_dialog ())
5615 /* Callback for "OK" and "Cancel" on file selection dialog. */
5618 file_dialog_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5620 int *result
= client_data
;
5621 XmAnyCallbackStruct
*cb
= call_data
;
5622 *result
= cb
->reason
;
5626 /* Callback for unmapping a file selection dialog. This is used to
5627 capture the case where a dialog is closed via a window manager's
5628 closer button, for example. Using a XmNdestroyCallback didn't work
5632 file_dialog_unmap_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5634 int *result
= client_data
;
5635 *result
= XmCR_CANCEL
;
5639 clean_up_file_dialog (void *arg
)
5641 Widget dialog
= arg
;
5645 XtUnmanageChild (dialog
);
5646 XtDestroyWidget (dialog
);
5647 x_menu_set_in_use (0);
5652 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5653 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5654 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5655 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5656 or directory must exist.
5658 This function is only defined on NS, MS Windows, and X Windows with the
5659 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5660 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5661 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
,
5662 Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5665 struct frame
*f
= SELECTED_FRAME ();
5666 Lisp_Object file
= Qnil
;
5667 Lisp_Object decoded_file
;
5668 Widget dialog
, text
, help
;
5671 XmString dir_xmstring
, pattern_xmstring
;
5672 ptrdiff_t count
= SPECPDL_INDEX ();
5673 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5675 check_window_system (f
);
5677 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5679 if (popup_activated ())
5680 error ("Trying to use a menu from within a menu-entry");
5682 CHECK_STRING (prompt
);
5685 /* Prevent redisplay. */
5686 specbind (Qinhibit_redisplay
, Qt
);
5690 /* Create the dialog with PROMPT as title, using DIR as initial
5691 directory and using "*" as pattern. */
5692 dir
= Fexpand_file_name (dir
, Qnil
);
5693 dir_xmstring
= XmStringCreateLocalized (SSDATA (dir
));
5694 pattern_xmstring
= XmStringCreateLocalized ("*");
5696 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5697 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5698 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5699 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5700 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5701 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5703 XmStringFree (dir_xmstring
);
5704 XmStringFree (pattern_xmstring
);
5706 /* Add callbacks for OK and Cancel. */
5707 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5708 (XtPointer
) &result
);
5709 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5710 (XtPointer
) &result
);
5711 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5712 (XtPointer
) &result
);
5714 /* Remove the help button since we can't display help. */
5715 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5716 XtUnmanageChild (help
);
5718 /* Mark OK button as default. */
5719 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5720 XmNshowAsDefault
, True
, NULL
);
5722 /* If MUSTMATCH is non-nil, disable the file entry field of the
5723 dialog, so that the user must select a file from the files list
5724 box. We can't remove it because we wouldn't have a way to get at
5725 the result file name, then. */
5726 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5727 if (!NILP (mustmatch
))
5730 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5731 XtSetSensitive (text
, False
);
5732 XtSetSensitive (label
, False
);
5735 /* Manage the dialog, so that list boxes get filled. */
5736 XtManageChild (dialog
);
5738 if (STRINGP (default_filename
))
5740 XmString default_xmstring
;
5741 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5742 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5744 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5745 XmTextFieldReplace (wtext
, 0, last_pos
,
5746 (SSDATA (Ffile_name_nondirectory (default_filename
))));
5748 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5749 must include the path for this to work. */
5751 default_xmstring
= XmStringCreateLocalized (SSDATA (default_filename
));
5753 if (XmListItemExists (list
, default_xmstring
))
5755 int item_pos
= XmListItemPos (list
, default_xmstring
);
5756 /* Select the item and scroll it into view. */
5757 XmListSelectPos (list
, item_pos
, True
);
5758 XmListSetPos (list
, item_pos
);
5761 XmStringFree (default_xmstring
);
5764 record_unwind_protect_ptr (clean_up_file_dialog
, dialog
);
5766 /* Process events until the user presses Cancel or OK. */
5767 x_menu_set_in_use (1);
5772 x_menu_wait_for_event (0);
5773 XtAppNextEvent (Xt_app_con
, &event
);
5774 if (event
.type
== KeyPress
5775 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5777 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5779 /* Pop down on C-g. */
5780 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5781 XtUnmanageChild (dialog
);
5784 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5787 /* Get the result. */
5788 if (result
== XmCR_OK
)
5790 XmString text_string
;
5793 XtVaGetValues (dialog
, XmNtextString
, &text_string
, NULL
);
5794 XmStringGetLtoR (text_string
, XmFONTLIST_DEFAULT_TAG
, &data
);
5795 XmStringFree (text_string
);
5796 file
= build_string (data
);
5805 /* Make "Cancel" equivalent to C-g. */
5807 Fsignal (Qquit
, Qnil
);
5809 decoded_file
= DECODE_FILE (file
);
5811 return unbind_to (count
, decoded_file
);
5814 #endif /* USE_MOTIF */
5819 clean_up_dialog (void)
5821 x_menu_set_in_use (0);
5824 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5825 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5826 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5827 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5828 or directory must exist.
5830 This function is only defined on NS, MS Windows, and X Windows with the
5831 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5832 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5833 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5835 struct frame
*f
= SELECTED_FRAME ();
5837 Lisp_Object file
= Qnil
;
5838 Lisp_Object decoded_file
;
5839 ptrdiff_t count
= SPECPDL_INDEX ();
5840 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5843 check_window_system (f
);
5845 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5847 if (popup_activated ())
5848 error ("Trying to use a menu from within a menu-entry");
5850 CHECK_STRING (prompt
);
5853 /* Prevent redisplay. */
5854 specbind (Qinhibit_redisplay
, Qt
);
5855 record_unwind_protect_void (clean_up_dialog
);
5859 if (STRINGP (default_filename
))
5860 cdef_file
= SSDATA (default_filename
);
5862 cdef_file
= SSDATA (dir
);
5864 fn
= xg_get_file_name (f
, SSDATA (prompt
), cdef_file
,
5866 ! NILP (only_dir_p
));
5870 file
= build_string (fn
);
5877 /* Make "Cancel" equivalent to C-g. */
5879 Fsignal (Qquit
, Qnil
);
5881 decoded_file
= DECODE_FILE (file
);
5883 return unbind_to (count
, decoded_file
);
5887 #ifdef HAVE_FREETYPE
5889 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5890 doc
: /* Read a font using a GTK dialog.
5891 Return either a font spec (for GTK versions >= 3.2) or a string
5892 containing a GTK-style font name.
5894 FRAME is the frame on which to pop up the font chooser. If omitted or
5895 nil, it defaults to the selected frame. */)
5896 (Lisp_Object frame
, Lisp_Object ignored
)
5898 struct frame
*f
= decode_window_system_frame (frame
);
5900 Lisp_Object font_param
;
5901 char *default_name
= NULL
;
5902 struct gcpro gcpro1
, gcpro2
;
5903 ptrdiff_t count
= SPECPDL_INDEX ();
5905 if (popup_activated ())
5906 error ("Trying to use a menu from within a menu-entry");
5908 /* Prevent redisplay. */
5909 specbind (Qinhibit_redisplay
, Qt
);
5910 record_unwind_protect_void (clean_up_dialog
);
5914 GCPRO2 (font_param
, font
);
5916 XSETFONT (font
, FRAME_FONT (f
));
5917 font_param
= Ffont_get (font
, intern (":name"));
5918 if (STRINGP (font_param
))
5919 default_name
= xstrdup (SSDATA (font_param
));
5922 font_param
= Fframe_parameter (frame
, Qfont_param
);
5923 if (STRINGP (font_param
))
5924 default_name
= xstrdup (SSDATA (font_param
));
5927 font
= xg_get_font (f
, default_name
);
5928 xfree (default_name
);
5933 Fsignal (Qquit
, Qnil
);
5935 return unbind_to (count
, font
);
5937 #endif /* HAVE_FREETYPE */
5939 #endif /* USE_GTK */
5942 /***********************************************************************
5944 ***********************************************************************/
5947 #include <X11/XKBlib.h>
5948 #include <X11/keysym.h>
5951 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5952 Sx_backspace_delete_keys_p
, 0, 1, 0,
5953 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5954 FRAME nil means use the selected frame.
5955 Value is t if we know that both keys are present, and are mapped to the
5956 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5957 present and mapped to the usual X keysyms. */)
5964 struct frame
*f
= decode_window_system_frame (frame
);
5965 Display
*dpy
= FRAME_X_DISPLAY (f
);
5966 Lisp_Object have_keys
;
5967 int major
, minor
, op
, event
, error_code
;
5971 /* Check library version in case we're dynamically linked. */
5972 major
= XkbMajorVersion
;
5973 minor
= XkbMinorVersion
;
5974 if (!XkbLibraryVersion (&major
, &minor
))
5980 /* Check that the server supports XKB. */
5981 major
= XkbMajorVersion
;
5982 minor
= XkbMinorVersion
;
5983 if (!XkbQueryExtension (dpy
, &op
, &event
, &error_code
, &major
, &minor
))
5989 /* In this code we check that the keyboard has physical keys with names
5990 that start with BKSP (Backspace) and DELE (Delete), and that they
5991 generate keysym XK_BackSpace and XK_Delete respectively.
5992 This function is used to test if normal-erase-is-backspace should be
5994 An alternative approach would be to just check if XK_BackSpace and
5995 XK_Delete are mapped to any key. But if any of those are mapped to
5996 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5997 user doesn't know about it, it is better to return false here.
5998 It is more obvious to the user what to do if she/he has two keys
5999 clearly marked with names/symbols and one key does something not
6000 expected (i.e. she/he then tries the other).
6001 The cases where Backspace/Delete is mapped to some other key combination
6002 are rare, and in those cases, normal-erase-is-backspace can be turned on
6006 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
6009 int delete_keycode
= 0, backspace_keycode
= 0, i
;
6011 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
6013 for (i
= kb
->min_key_code
;
6014 (i
< kb
->max_key_code
6015 && (delete_keycode
== 0 || backspace_keycode
== 0));
6018 /* The XKB symbolic key names can be seen most easily in
6019 the PS file generated by `xkbprint -label name
6021 if (memcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
6023 else if (memcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
6024 backspace_keycode
= i
;
6027 XkbFreeNames (kb
, 0, True
);
6030 XkbFreeClientMap (kb
, 0, True
);
6033 && backspace_keycode
6034 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
6035 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
6045 /***********************************************************************
6047 ***********************************************************************/
6049 /* Keep this list in the same order as frame_parms in frame.c.
6050 Use 0 for unsupported frame parameters. */
6052 frame_parm_handler x_frame_parm_handlers
[] =
6056 x_set_background_color
,
6062 x_set_foreground_color
,
6065 x_set_internal_border_width
,
6066 x_set_right_divider_width
,
6067 x_set_bottom_divider_width
,
6068 x_set_menu_bar_lines
,
6070 x_explicitly_set_name
,
6071 x_set_scroll_bar_width
,
6074 x_set_vertical_scroll_bars
,
6076 x_set_tool_bar_lines
,
6077 x_set_scroll_bar_foreground
,
6078 x_set_scroll_bar_background
,
6088 x_set_tool_bar_position
,
6094 /* The section below is built by the lisp expression at the top of the file,
6095 just above where these variables are declared. */
6096 /*&&& init symbols here &&&*/
6097 DEFSYM (Qsuppress_icon
, "suppress-icon");
6098 DEFSYM (Qundefined_color
, "undefined-color");
6099 DEFSYM (Qcompound_text
, "compound-text");
6100 DEFSYM (Qcancel_timer
, "cancel-timer");
6101 DEFSYM (Qfont_param
, "font-parameter");
6102 /* This is the end of symbol initialization. */
6104 Fput (Qundefined_color
, Qerror_conditions
,
6105 listn (CONSTYPE_PURE
, 2, Qundefined_color
, Qerror
));
6106 Fput (Qundefined_color
, Qerror_message
,
6107 build_pure_c_string ("Undefined color"));
6109 DEFVAR_LISP ("x-pointer-shape", Vx_pointer_shape
,
6110 doc
: /* The shape of the pointer when over text.
6111 Changing the value does not affect existing frames
6112 unless you set the mouse color. */);
6113 Vx_pointer_shape
= Qnil
;
6115 #if 0 /* This doesn't really do anything. */
6116 DEFVAR_LISP ("x-nontext-pointer-shape", Vx_nontext_pointer_shape
,
6117 doc
: /* The shape of the pointer when not over text.
6118 This variable takes effect when you create a new frame
6119 or when you set the mouse color. */);
6121 Vx_nontext_pointer_shape
= Qnil
;
6123 DEFVAR_LISP ("x-hourglass-pointer-shape", Vx_hourglass_pointer_shape
,
6124 doc
: /* The shape of the pointer when Emacs is busy.
6125 This variable takes effect when you create a new frame
6126 or when you set the mouse color. */);
6127 Vx_hourglass_pointer_shape
= Qnil
;
6129 #if 0 /* This doesn't really do anything. */
6130 DEFVAR_LISP ("x-mode-pointer-shape", Vx_mode_pointer_shape
,
6131 doc
: /* The shape of the pointer when over the mode line.
6132 This variable takes effect when you create a new frame
6133 or when you set the mouse color. */);
6135 Vx_mode_pointer_shape
= Qnil
;
6137 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
6138 Vx_sensitive_text_pointer_shape
,
6139 doc
: /* The shape of the pointer when over mouse-sensitive text.
6140 This variable takes effect when you create a new frame
6141 or when you set the mouse color. */);
6142 Vx_sensitive_text_pointer_shape
= Qnil
;
6144 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
6145 Vx_window_horizontal_drag_shape
,
6146 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
6147 This variable takes effect when you create a new frame
6148 or when you set the mouse color. */);
6149 Vx_window_horizontal_drag_shape
= Qnil
;
6151 DEFVAR_LISP ("x-window-vertical-drag-cursor",
6152 Vx_window_vertical_drag_shape
,
6153 doc
: /* Pointer shape to use for indicating a window can be dragged vertically.
6154 This variable takes effect when you create a new frame
6155 or when you set the mouse color. */);
6156 Vx_window_vertical_drag_shape
= Qnil
;
6158 DEFVAR_LISP ("x-cursor-fore-pixel", Vx_cursor_fore_pixel
,
6159 doc
: /* A string indicating the foreground color of the cursor box. */);
6160 Vx_cursor_fore_pixel
= Qnil
;
6162 DEFVAR_LISP ("x-max-tooltip-size", Vx_max_tooltip_size
,
6163 doc
: /* Maximum size for tooltips.
6164 Value is a pair (COLUMNS . ROWS). Text larger than this is clipped. */);
6165 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
6167 DEFVAR_LISP ("x-no-window-manager", Vx_no_window_manager
,
6168 doc
: /* Non-nil if no X window manager is in use.
6169 Emacs doesn't try to figure this out; this is always nil
6170 unless you set it to something else. */);
6171 /* We don't have any way to find this out, so set it to nil
6172 and maybe the user would like to set it to t. */
6173 Vx_no_window_manager
= Qnil
;
6175 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
6176 Vx_pixel_size_width_font_regexp
,
6177 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
6179 Since Emacs gets width of a font matching with this regexp from
6180 PIXEL_SIZE field of the name, font finding mechanism gets faster for
6181 such a font. This is especially effective for such large fonts as
6182 Chinese, Japanese, and Korean. */);
6183 Vx_pixel_size_width_font_regexp
= Qnil
;
6185 /* This is not ifdef:ed, so other builds than GTK can customize it. */
6186 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", x_gtk_use_old_file_dialog
,
6187 doc
: /* Non-nil means prompt with the old GTK file selection dialog.
6188 If nil or if the file selection dialog is not available, the new GTK file
6189 chooser is used instead. To turn off all file dialogs set the
6190 variable `use-file-dialog'. */);
6191 x_gtk_use_old_file_dialog
= 0;
6193 DEFVAR_BOOL ("x-gtk-show-hidden-files", x_gtk_show_hidden_files
,
6194 doc
: /* If non-nil, the GTK file chooser will by default show hidden files.
6195 Note that this is just the default, there is a toggle button on the file
6196 chooser to show or not show hidden files on a case by case basis. */);
6197 x_gtk_show_hidden_files
= 0;
6199 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", x_gtk_file_dialog_help_text
,
6200 doc
: /* If non-nil, the GTK file chooser will show additional help text.
6201 If more space for files in the file chooser dialog is wanted, set this to nil
6202 to turn the additional text off. */);
6203 x_gtk_file_dialog_help_text
= 1;
6205 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", x_gtk_whole_detached_tool_bar
,
6206 doc
: /* If non-nil, a detached tool bar is shown in full.
6207 The default is to just show an arrow and pressing on that arrow shows
6208 the tool bar buttons. */);
6209 x_gtk_whole_detached_tool_bar
= 0;
6211 DEFVAR_BOOL ("x-gtk-use-system-tooltips", x_gtk_use_system_tooltips
,
6212 doc
: /* If non-nil with a Gtk+ built Emacs, the Gtk+ tooltip is used.
6213 Otherwise use Emacs own tooltip implementation.
6214 When using Gtk+ tooltips, the tooltip face is not used. */);
6215 x_gtk_use_system_tooltips
= 1;
6217 /* Tell Emacs about this window system. */
6218 Fprovide (Qx
, Qnil
);
6220 #ifdef USE_X_TOOLKIT
6221 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6223 Fprovide (intern_c_string ("motif"), Qnil
);
6225 DEFVAR_LISP ("motif-version-string", Vmotif_version_string
,
6226 doc
: /* Version info for LessTif/Motif. */);
6227 Vmotif_version_string
= build_string (XmVERSION_STRING
);
6228 #endif /* USE_MOTIF */
6229 #endif /* USE_X_TOOLKIT */
6232 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
6233 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
6234 But for a user it is a toolkit for X, and indeed, configure
6235 accepts --with-x-toolkit=gtk. */
6236 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6237 Fprovide (intern_c_string ("gtk"), Qnil
);
6238 Fprovide (intern_c_string ("move-toolbar"), Qnil
);
6240 DEFVAR_LISP ("gtk-version-string", Vgtk_version_string
,
6241 doc
: /* Version info for GTK+. */);
6243 char gtk_version
[sizeof ".." + 3 * INT_STRLEN_BOUND (int)];
6244 int len
= sprintf (gtk_version
, "%d.%d.%d",
6245 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
6246 Vgtk_version_string
= make_pure_string (gtk_version
, len
, len
, 0);
6248 #endif /* USE_GTK */
6250 /* X window properties. */
6251 defsubr (&Sx_change_window_property
);
6252 defsubr (&Sx_delete_window_property
);
6253 defsubr (&Sx_window_property
);
6255 defsubr (&Sxw_display_color_p
);
6256 defsubr (&Sx_display_grayscale_p
);
6257 defsubr (&Sxw_color_defined_p
);
6258 defsubr (&Sxw_color_values
);
6259 defsubr (&Sx_server_max_request_size
);
6260 defsubr (&Sx_server_vendor
);
6261 defsubr (&Sx_server_version
);
6262 defsubr (&Sx_display_pixel_width
);
6263 defsubr (&Sx_display_pixel_height
);
6264 defsubr (&Sx_display_mm_width
);
6265 defsubr (&Sx_display_mm_height
);
6266 defsubr (&Sx_display_screens
);
6267 defsubr (&Sx_display_planes
);
6268 defsubr (&Sx_display_color_cells
);
6269 defsubr (&Sx_display_visual_class
);
6270 defsubr (&Sx_display_backing_store
);
6271 defsubr (&Sx_display_save_under
);
6272 defsubr (&Sx_display_monitor_attributes_list
);
6273 defsubr (&Sx_wm_set_size_hint
);
6274 defsubr (&Sx_create_frame
);
6275 defsubr (&Sx_open_connection
);
6276 defsubr (&Sx_close_connection
);
6277 defsubr (&Sx_display_list
);
6278 defsubr (&Sx_synchronize
);
6279 defsubr (&Sx_backspace_delete_keys_p
);
6281 defsubr (&Sx_show_tip
);
6282 defsubr (&Sx_hide_tip
);
6284 staticpro (&tip_timer
);
6286 staticpro (&tip_frame
);
6288 last_show_tip_args
= Qnil
;
6289 staticpro (&last_show_tip_args
);
6291 defsubr (&Sx_uses_old_gtk_dialog
);
6292 #if defined (USE_MOTIF) || defined (USE_GTK)
6293 defsubr (&Sx_file_dialog
);
6296 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
6297 defsubr (&Sx_select_font
);