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
)
1948 sizeof (supported_xim_styles
) / sizeof (supported_xim_styles
[0]);
1950 for (i
= 0; i
< nr_supported
; ++i
)
1951 for (j
= 0; j
< xim
->count_styles
; ++j
)
1952 if (supported_xim_styles
[i
] == xim
->supported_styles
[j
])
1953 return supported_xim_styles
[i
];
1955 /* Return the default style. */
1956 return XIMPreeditNothing
| XIMStatusNothing
;
1959 /* Create XIC for frame F. */
1962 create_frame_xic (struct frame
*f
)
1966 XFontSet xfs
= NULL
;
1967 XVaNestedList status_attr
= NULL
;
1968 XVaNestedList preedit_attr
= NULL
;
1976 xim
= FRAME_X_XIM (f
);
1980 /* Determine XIC style. */
1981 xic_style
= best_xim_style (FRAME_X_XIM_STYLES (f
));
1983 /* Create X fontset. */
1984 if (xic_style
& (XIMPreeditPosition
| XIMStatusArea
))
1986 xfs
= xic_create_xfontset (f
);
1990 FRAME_XIC_FONTSET (f
) = xfs
;
1993 if (xic_style
& XIMPreeditPosition
)
1995 spot
.x
= 0; spot
.y
= 1;
1996 preedit_attr
= XVaCreateNestedList (0,
1999 FRAME_FOREGROUND_PIXEL (f
),
2001 FRAME_BACKGROUND_PIXEL (f
),
2002 (xic_style
& XIMPreeditPosition
2012 if (xic_style
& XIMStatusArea
)
2014 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2015 status_attr
= XVaCreateNestedList (0,
2021 FRAME_FOREGROUND_PIXEL (f
),
2023 FRAME_BACKGROUND_PIXEL (f
),
2030 if (preedit_attr
&& status_attr
)
2031 xic
= XCreateIC (xim
,
2032 XNInputStyle
, xic_style
,
2033 XNClientWindow
, FRAME_X_WINDOW (f
),
2034 XNFocusWindow
, FRAME_X_WINDOW (f
),
2035 XNStatusAttributes
, status_attr
,
2036 XNPreeditAttributes
, preedit_attr
,
2038 else if (preedit_attr
)
2039 xic
= XCreateIC (xim
,
2040 XNInputStyle
, xic_style
,
2041 XNClientWindow
, FRAME_X_WINDOW (f
),
2042 XNFocusWindow
, FRAME_X_WINDOW (f
),
2043 XNPreeditAttributes
, preedit_attr
,
2045 else if (status_attr
)
2046 xic
= XCreateIC (xim
,
2047 XNInputStyle
, xic_style
,
2048 XNClientWindow
, FRAME_X_WINDOW (f
),
2049 XNFocusWindow
, FRAME_X_WINDOW (f
),
2050 XNStatusAttributes
, status_attr
,
2053 xic
= XCreateIC (xim
,
2054 XNInputStyle
, xic_style
,
2055 XNClientWindow
, FRAME_X_WINDOW (f
),
2056 XNFocusWindow
, FRAME_X_WINDOW (f
),
2062 FRAME_XIC (f
) = xic
;
2063 FRAME_XIC_STYLE (f
) = xic_style
;
2064 xfs
= NULL
; /* Don't free below. */
2072 XFree (preedit_attr
);
2075 XFree (status_attr
);
2079 /* Destroy XIC and free XIC fontset of frame F, if any. */
2082 free_frame_xic (struct frame
*f
)
2084 if (FRAME_XIC (f
) == NULL
)
2087 XDestroyIC (FRAME_XIC (f
));
2088 xic_free_xfontset (f
);
2090 FRAME_XIC (f
) = NULL
;
2094 /* Place preedit area for XIC of window W's frame to specified
2095 pixel position X/Y. X and Y are relative to window W. */
2098 xic_set_preeditarea (struct window
*w
, int x
, int y
)
2100 struct frame
*f
= XFRAME (w
->frame
);
2104 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2105 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2106 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2107 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2112 /* Place status area for XIC in bottom right corner of frame F.. */
2115 xic_set_statusarea (struct frame
*f
)
2117 XIC xic
= FRAME_XIC (f
);
2122 /* Negotiate geometry of status area. If input method has existing
2123 status area, use its current size. */
2124 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2125 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2126 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2129 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2130 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2133 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2135 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2136 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2140 area
.width
= needed
->width
;
2141 area
.height
= needed
->height
;
2142 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2143 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2144 - FRAME_MENUBAR_HEIGHT (f
)
2145 - FRAME_TOOLBAR_TOP_HEIGHT (f
)
2146 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2149 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2150 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2155 /* Set X fontset for XIC of frame F, using base font name
2156 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2159 xic_set_xfontset (struct frame
*f
, const char *base_fontname
)
2164 xic_free_xfontset (f
);
2166 xfs
= xic_create_xfontset (f
);
2168 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2169 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2170 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2171 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2172 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2175 FRAME_XIC_FONTSET (f
) = xfs
;
2178 #endif /* HAVE_X_I18N */
2182 #ifdef USE_X_TOOLKIT
2184 /* Create and set up the X widget for frame F. */
2187 x_window (struct frame
*f
, long window_prompting
, int minibuffer_only
)
2189 XClassHint class_hints
;
2190 XSetWindowAttributes attributes
;
2191 unsigned long attribute_mask
;
2192 Widget shell_widget
;
2194 Widget frame_widget
;
2200 /* Use the resource name as the top-level widget name
2201 for looking up resources. Make a non-Lisp copy
2202 for the window manager, so GC relocation won't bother it.
2204 Elsewhere we specify the window name for the window manager. */
2205 f
->namebuf
= xstrdup (SSDATA (Vx_resource_name
));
2208 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2209 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2210 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2211 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2212 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2213 XtSetArg (al
[ac
], XtNdepth
, FRAME_DISPLAY_INFO (f
)->n_planes
); ac
++;
2214 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2215 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2216 applicationShellWidgetClass
,
2217 FRAME_X_DISPLAY (f
), al
, ac
);
2219 f
->output_data
.x
->widget
= shell_widget
;
2220 /* maybe_set_screen_title_format (shell_widget); */
2222 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2223 NULL
, shell_widget
, False
,
2224 NULL
, NULL
, NULL
, NULL
);
2227 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2228 XtSetArg (al
[ac
], XtNdepth
, FRAME_DISPLAY_INFO (f
)->n_planes
); ac
++;
2229 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2230 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2231 XtSetValues (pane_widget
, al
, ac
);
2232 f
->output_data
.x
->column_widget
= pane_widget
;
2234 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2235 the emacs screen when changing menubar. This reduces flickering. */
2238 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2239 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2240 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2241 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2242 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2243 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2244 XtSetArg (al
[ac
], XtNdepth
, FRAME_DISPLAY_INFO (f
)->n_planes
); ac
++;
2245 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2246 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2247 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2250 f
->output_data
.x
->edit_widget
= frame_widget
;
2252 XtManageChild (frame_widget
);
2254 /* Do some needed geometry management. */
2256 char *tem
, shell_position
[sizeof "=x++" + 4 * INT_STRLEN_BOUND (int)];
2259 int extra_borders
= 0;
2261 = (f
->output_data
.x
->menubar_widget
2262 ? (f
->output_data
.x
->menubar_widget
->core
.height
2263 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2266 #if 0 /* Experimentally, we now get the right results
2267 for -geometry -0-0 without this. 24 Aug 96, rms. */
2268 if (FRAME_EXTERNAL_MENU_BAR (f
))
2271 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2272 menubar_size
+= ibw
;
2276 f
->output_data
.x
->menubar_height
= menubar_size
;
2279 /* Motif seems to need this amount added to the sizes
2280 specified for the shell widget. The Athena/Lucid widgets don't.
2281 Both conclusions reached experimentally. -- rms. */
2282 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2283 &extra_borders
, NULL
);
2287 /* Convert our geometry parameters into a geometry string
2289 Note that we do not specify here whether the position
2290 is a user-specified or program-specified one.
2291 We pass that information later, in x_wm_set_size_hints. */
2293 int left
= f
->left_pos
;
2294 int xneg
= window_prompting
& XNegative
;
2295 int top
= f
->top_pos
;
2296 int yneg
= window_prompting
& YNegative
;
2302 if (window_prompting
& USPosition
)
2303 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2304 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2305 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2306 (xneg
? '-' : '+'), left
,
2307 (yneg
? '-' : '+'), top
);
2310 sprintf (shell_position
, "=%dx%d",
2311 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2312 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2314 /* Setting x and y when the position is not specified in
2315 the geometry string will set program position in the WM hints.
2316 If Emacs had just one program position, we could set it in
2317 fallback resources, but since each make-frame call can specify
2318 different program positions, this is easier. */
2319 XtSetArg (gal
[gac
], XtNx
, left
); gac
++;
2320 XtSetArg (gal
[gac
], XtNy
, top
); gac
++;
2324 /* We don't free this because we don't know whether
2325 it is safe to free it while the frame exists.
2326 It isn't worth the trouble of arranging to free it
2327 when the frame is deleted. */
2328 tem
= xstrdup (shell_position
);
2329 XtSetArg (gal
[gac
], XtNgeometry
, tem
); gac
++;
2330 XtSetValues (shell_widget
, gal
, gac
);
2333 XtManageChild (pane_widget
);
2334 XtRealizeWidget (shell_widget
);
2336 if (FRAME_X_EMBEDDED_P (f
))
2337 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2338 f
->output_data
.x
->parent_desc
, 0, 0);
2340 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2342 validate_x_resource_name ();
2344 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2345 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2346 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2349 FRAME_XIC (f
) = NULL
;
2351 create_frame_xic (f
);
2354 f
->output_data
.x
->wm_hints
.input
= True
;
2355 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2356 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2357 &f
->output_data
.x
->wm_hints
);
2359 hack_wm_protocols (f
, shell_widget
);
2362 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2365 /* Do a stupid property change to force the server to generate a
2366 PropertyNotify event so that the event_stream server timestamp will
2367 be initialized to something relevant to the time we created the window.
2369 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2370 FRAME_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2371 XA_ATOM
, 32, PropModeAppend
, NULL
, 0);
2373 /* Make all the standard events reach the Emacs frame. */
2374 attributes
.event_mask
= STANDARD_EVENT_SET
;
2379 /* XIM server might require some X events. */
2380 unsigned long fevent
= NoEventMask
;
2381 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2382 attributes
.event_mask
|= fevent
;
2384 #endif /* HAVE_X_I18N */
2386 attribute_mask
= CWEventMask
;
2387 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2388 attribute_mask
, &attributes
);
2390 XtMapWidget (frame_widget
);
2392 /* x_set_name normally ignores requests to set the name if the
2393 requested name is the same as the current name. This is the one
2394 place where that assumption isn't correct; f->name is set, but
2395 the X server hasn't been told. */
2398 int explicit = f
->explicit_name
;
2400 f
->explicit_name
= 0;
2402 fset_name (f
, Qnil
);
2403 x_set_name (f
, name
, explicit);
2406 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2407 f
->output_data
.x
->current_cursor
2408 = f
->output_data
.x
->text_cursor
);
2412 /* This is a no-op, except under Motif. Make sure main areas are
2413 set to something reasonable, in case we get an error later. */
2414 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2417 #else /* not USE_X_TOOLKIT */
2420 x_window (struct frame
*f
)
2422 if (! xg_create_frame_widgets (f
))
2423 error ("Unable to create window");
2426 FRAME_XIC (f
) = NULL
;
2430 create_frame_xic (f
);
2433 /* XIM server might require some X events. */
2434 unsigned long fevent
= NoEventMask
;
2435 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2437 if (fevent
!= NoEventMask
)
2439 XSetWindowAttributes attributes
;
2440 XWindowAttributes wattr
;
2441 unsigned long attribute_mask
;
2443 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2445 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2446 attribute_mask
= CWEventMask
;
2447 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2448 attribute_mask
, &attributes
);
2456 #else /*! USE_GTK */
2457 /* Create and set up the X window for frame F. */
2460 x_window (struct frame
*f
)
2462 XClassHint class_hints
;
2463 XSetWindowAttributes attributes
;
2464 unsigned long attribute_mask
;
2466 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2467 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2468 attributes
.bit_gravity
= StaticGravity
;
2469 attributes
.backing_store
= NotUseful
;
2470 attributes
.save_under
= True
;
2471 attributes
.event_mask
= STANDARD_EVENT_SET
;
2472 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2473 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2478 = XCreateWindow (FRAME_X_DISPLAY (f
),
2479 f
->output_data
.x
->parent_desc
,
2482 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2484 CopyFromParent
, /* depth */
2485 InputOutput
, /* class */
2487 attribute_mask
, &attributes
);
2492 create_frame_xic (f
);
2495 /* XIM server might require some X events. */
2496 unsigned long fevent
= NoEventMask
;
2497 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2498 attributes
.event_mask
|= fevent
;
2499 attribute_mask
= CWEventMask
;
2500 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2501 attribute_mask
, &attributes
);
2504 #endif /* HAVE_X_I18N */
2506 validate_x_resource_name ();
2508 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2509 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2510 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2512 /* The menubar is part of the ordinary display;
2513 it does not count in addition to the height of the window. */
2514 f
->output_data
.x
->menubar_height
= 0;
2516 /* This indicates that we use the "Passive Input" input model.
2517 Unless we do this, we don't get the Focus{In,Out} events that we
2518 need to draw the cursor correctly. Accursed bureaucrats.
2519 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2521 f
->output_data
.x
->wm_hints
.input
= True
;
2522 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2523 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2524 &f
->output_data
.x
->wm_hints
);
2525 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2527 /* Request "save yourself" and "delete window" commands from wm. */
2530 protocols
[0] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2531 protocols
[1] = FRAME_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2532 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2535 /* x_set_name normally ignores requests to set the name if the
2536 requested name is the same as the current name. This is the one
2537 place where that assumption isn't correct; f->name is set, but
2538 the X server hasn't been told. */
2541 int explicit = f
->explicit_name
;
2543 f
->explicit_name
= 0;
2545 fset_name (f
, Qnil
);
2546 x_set_name (f
, name
, explicit);
2549 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2550 f
->output_data
.x
->current_cursor
2551 = f
->output_data
.x
->text_cursor
);
2555 if (FRAME_X_WINDOW (f
) == 0)
2556 error ("Unable to create window");
2559 #endif /* not USE_GTK */
2560 #endif /* not USE_X_TOOLKIT */
2562 /* Verify that the icon position args for this window are valid. */
2565 x_icon_verify (struct frame
*f
, Lisp_Object parms
)
2567 Lisp_Object icon_x
, icon_y
;
2569 /* Set the position of the icon. Note that twm groups all
2570 icons in an icon window. */
2571 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2572 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2573 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2575 CHECK_NUMBER (icon_x
);
2576 CHECK_NUMBER (icon_y
);
2578 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2579 error ("Both left and top icon corners of icon must be specified");
2582 /* Handle the icon stuff for this window. Perhaps later we might
2583 want an x_set_icon_position which can be called interactively as
2587 x_icon (struct frame
*f
, Lisp_Object parms
)
2589 Lisp_Object icon_x
, icon_y
;
2591 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
2594 /* Set the position of the icon. Note that twm groups all
2595 icons in an icon window. */
2596 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2597 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2598 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2600 CHECK_TYPE_RANGED_INTEGER (int, icon_x
);
2601 CHECK_TYPE_RANGED_INTEGER (int, icon_y
);
2603 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2604 error ("Both left and top icon corners of icon must be specified");
2608 if (! EQ (icon_x
, Qunbound
))
2609 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2611 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2612 but x_create_frame still needs it. */
2613 /* Start up iconic or window? */
2614 x_wm_set_window_state
2615 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2621 x_text_icon (f
, SSDATA ((!NILP (f
->icon_name
)
2628 /* Make the GCs needed for this window, setting the
2629 background, border and mouse colors; also create the
2630 mouse cursor and the gray border tile. */
2633 x_make_gc (struct frame
*f
)
2635 XGCValues gc_values
;
2639 /* Create the GCs of this frame.
2640 Note that many default values are used. */
2642 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2643 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2644 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2645 f
->output_data
.x
->normal_gc
2646 = XCreateGC (FRAME_X_DISPLAY (f
),
2648 GCLineWidth
| GCForeground
| GCBackground
,
2651 /* Reverse video style. */
2652 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2653 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2654 f
->output_data
.x
->reverse_gc
2655 = XCreateGC (FRAME_X_DISPLAY (f
),
2657 GCForeground
| GCBackground
| GCLineWidth
,
2660 /* Cursor has cursor-color background, background-color foreground. */
2661 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2662 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2663 gc_values
.fill_style
= FillOpaqueStippled
;
2664 f
->output_data
.x
->cursor_gc
2665 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2666 (GCForeground
| GCBackground
2667 | GCFillStyle
| GCLineWidth
),
2670 /* Create the gray border tile used when the pointer is not in
2671 the frame. Since this depends on the frame's pixel values,
2672 this must be done on a per-frame basis. */
2673 f
->output_data
.x
->border_tile
2674 = (XCreatePixmapFromBitmapData
2675 (FRAME_X_DISPLAY (f
), FRAME_DISPLAY_INFO (f
)->root_window
,
2676 gray_bits
, gray_width
, gray_height
,
2677 FRAME_FOREGROUND_PIXEL (f
),
2678 FRAME_BACKGROUND_PIXEL (f
),
2679 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2685 /* Free what was allocated in x_make_gc. */
2688 x_free_gcs (struct frame
*f
)
2690 Display
*dpy
= FRAME_X_DISPLAY (f
);
2694 if (f
->output_data
.x
->normal_gc
)
2696 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2697 f
->output_data
.x
->normal_gc
= 0;
2700 if (f
->output_data
.x
->reverse_gc
)
2702 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2703 f
->output_data
.x
->reverse_gc
= 0;
2706 if (f
->output_data
.x
->cursor_gc
)
2708 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2709 f
->output_data
.x
->cursor_gc
= 0;
2712 if (f
->output_data
.x
->border_tile
)
2714 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2715 f
->output_data
.x
->border_tile
= 0;
2722 /* Handler for signals raised during x_create_frame and
2723 x_create_tip_frame. FRAME is the frame which is partially
2727 unwind_create_frame (Lisp_Object frame
)
2729 struct frame
*f
= XFRAME (frame
);
2731 /* If frame is already dead, nothing to do. This can happen if the
2732 display is disconnected after the frame has become official, but
2733 before x_create_frame removes the unwind protect. */
2734 if (!FRAME_LIVE_P (f
))
2737 /* If frame is ``official'', nothing to do. */
2738 if (NILP (Fmemq (frame
, Vframe_list
)))
2740 #if defined GLYPH_DEBUG && defined ENABLE_CHECKING
2741 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
2744 x_free_frame_resources (f
);
2747 #if defined GLYPH_DEBUG && defined ENABLE_CHECKING
2748 /* Check that reference counts are indeed correct. */
2749 eassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2750 eassert (dpyinfo
->terminal
->image_cache
->refcount
== image_cache_refcount
);
2759 do_unwind_create_frame (Lisp_Object frame
)
2761 unwind_create_frame (frame
);
2765 unwind_create_frame_1 (Lisp_Object val
)
2767 inhibit_lisp_code
= val
;
2771 x_default_font_parameter (struct frame
*f
, Lisp_Object parms
)
2773 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (f
);
2774 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
2776 Lisp_Object font
= Qnil
;
2777 if (EQ (font_param
, Qunbound
))
2780 if (NILP (font_param
))
2782 /* System font should take precedence over X resources. We suggest this
2783 regardless of font-use-system-font because .emacs may not have been
2785 const char *system_font
= xsettings_get_system_font ();
2787 font
= font_open_by_name (f
, build_unibyte_string (system_font
));
2791 font
= !NILP (font_param
) ? font_param
2792 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
2794 if (! FONTP (font
) && ! STRINGP (font
))
2799 /* This will find the normal Xft font. */
2802 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
2803 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2804 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2805 /* This was formerly the first thing tried, but it finds
2806 too many fonts and takes too long. */
2807 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
2808 /* If those didn't work, look for something which will
2810 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
2815 for (i
= 0; names
[i
]; i
++)
2817 font
= font_open_by_name (f
, build_unibyte_string (names
[i
]));
2822 error ("No suitable font was found");
2824 else if (!NILP (font_param
))
2826 /* Remember the explicit font parameter, so we can re-apply it after
2827 we've applied the `default' face settings. */
2828 x_set_frame_parameters (f
, list1 (Fcons (Qfont_param
, font_param
)));
2831 /* This call will make X resources override any system font setting. */
2832 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
2836 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
2838 doc
: /* Send the size hints for frame FRAME to the window manager.
2839 If FRAME is omitted or nil, use the selected frame.
2840 Signal error if FRAME is not an X frame. */)
2843 struct frame
*f
= decode_window_system_frame (frame
);
2846 x_wm_set_size_hint (f
, 0, 0);
2852 set_machine_and_pid_properties (struct frame
*f
)
2854 long pid
= (long) getpid ();
2856 /* This will set WM_CLIENT_MACHINE and WM_LOCALE_NAME. */
2857 XSetWMProperties (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), NULL
, NULL
,
2858 NULL
, 0, NULL
, NULL
, NULL
);
2859 XChangeProperty (FRAME_X_DISPLAY (f
),
2860 FRAME_OUTER_WINDOW (f
),
2861 XInternAtom (FRAME_X_DISPLAY (f
),
2864 XA_CARDINAL
, 32, PropModeReplace
,
2865 (unsigned char *) &pid
, 1);
2868 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2870 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
2871 Return an Emacs frame object.
2872 PARMS is an alist of frame parameters.
2873 If the parameters specify that the frame should not have a minibuffer,
2874 and do not specify a specific minibuffer window to use,
2875 then `default-minibuffer-frame' must be a frame whose minibuffer can
2876 be shared by the new frame.
2878 This function is an internal primitive--use `make-frame' instead. */)
2882 Lisp_Object frame
, tem
;
2884 int minibuffer_only
= 0;
2885 long window_prompting
= 0;
2887 ptrdiff_t count
= SPECPDL_INDEX ();
2888 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
2889 Lisp_Object display
;
2890 struct x_display_info
*dpyinfo
= NULL
;
2894 parms
= Fcopy_alist (parms
);
2896 /* Use this general default value to start with
2897 until we know if this frame has a specified name. */
2898 Vx_resource_name
= Vinvocation_name
;
2900 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
2901 if (EQ (display
, Qunbound
))
2902 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
2903 if (EQ (display
, Qunbound
))
2905 dpyinfo
= check_x_display_info (display
);
2906 kb
= dpyinfo
->terminal
->kboard
;
2908 if (!dpyinfo
->terminal
->name
)
2909 error ("Terminal is not live, can't create new frames on it");
2911 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
2913 && ! EQ (name
, Qunbound
)
2915 error ("Invalid frame name--not a string or nil");
2918 Vx_resource_name
= name
;
2920 /* See if parent window is specified. */
2921 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
2922 if (EQ (parent
, Qunbound
))
2924 if (! NILP (parent
))
2925 CHECK_NUMBER (parent
);
2927 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
2928 /* No need to protect DISPLAY because that's not used after passing
2929 it to make_frame_without_minibuffer. */
2931 GCPRO4 (parms
, parent
, name
, frame
);
2932 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
2934 if (EQ (tem
, Qnone
) || NILP (tem
))
2935 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
2936 else if (EQ (tem
, Qonly
))
2938 f
= make_minibuffer_frame ();
2939 minibuffer_only
= 1;
2941 else if (WINDOWP (tem
))
2942 f
= make_frame_without_minibuffer (tem
, kb
, display
);
2946 XSETFRAME (frame
, f
);
2948 f
->terminal
= dpyinfo
->terminal
;
2950 f
->output_method
= output_x_window
;
2951 f
->output_data
.x
= xzalloc (sizeof *f
->output_data
.x
);
2952 f
->output_data
.x
->icon_bitmap
= -1;
2953 FRAME_FONTSET (f
) = -1;
2954 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
2955 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
2956 #ifdef USE_TOOLKIT_SCROLL_BARS
2957 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
2958 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
2959 #endif /* USE_TOOLKIT_SCROLL_BARS */
2960 f
->output_data
.x
->white_relief
.pixel
= -1;
2961 f
->output_data
.x
->black_relief
.pixel
= -1;
2964 x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
2966 if (! STRINGP (f
->icon_name
))
2967 fset_icon_name (f
, Qnil
);
2969 FRAME_DISPLAY_INFO (f
) = dpyinfo
;
2971 /* With FRAME_DISPLAY_INFO set up, this unwind-protect is safe. */
2972 record_unwind_protect (do_unwind_create_frame
, frame
);
2974 /* These colors will be set anyway later, but it's important
2975 to get the color reference counts right, so initialize them! */
2978 struct gcpro gcpro1
;
2980 /* Function x_decode_color can signal an error. Make
2981 sure to initialize color slots so that we won't try
2982 to free colors we haven't allocated. */
2983 FRAME_FOREGROUND_PIXEL (f
) = -1;
2984 FRAME_BACKGROUND_PIXEL (f
) = -1;
2985 f
->output_data
.x
->cursor_pixel
= -1;
2986 f
->output_data
.x
->cursor_foreground_pixel
= -1;
2987 f
->output_data
.x
->border_pixel
= -1;
2988 f
->output_data
.x
->mouse_pixel
= -1;
2990 black
= build_string ("black");
2992 FRAME_FOREGROUND_PIXEL (f
)
2993 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2994 FRAME_BACKGROUND_PIXEL (f
)
2995 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2996 f
->output_data
.x
->cursor_pixel
2997 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
2998 f
->output_data
.x
->cursor_foreground_pixel
2999 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3000 f
->output_data
.x
->border_pixel
3001 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3002 f
->output_data
.x
->mouse_pixel
3003 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3007 /* Specify the parent under which to make this X window. */
3011 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3012 f
->output_data
.x
->explicit_parent
= 1;
3016 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
3017 f
->output_data
.x
->explicit_parent
= 0;
3020 /* Set the name; the functions to which we pass f expect the name to
3022 if (EQ (name
, Qunbound
) || NILP (name
))
3024 fset_name (f
, build_string (dpyinfo
->x_id_name
));
3025 f
->explicit_name
= 0;
3029 fset_name (f
, name
);
3030 f
->explicit_name
= 1;
3031 /* use the frame's title when getting resources for this frame. */
3032 specbind (Qx_resource_name
, name
);
3035 #ifdef HAVE_FREETYPE
3037 register_font_driver (&xftfont_driver
, f
);
3038 #else /* not HAVE_XFT */
3039 register_font_driver (&ftxfont_driver
, f
);
3040 #endif /* not HAVE_XFT */
3041 #endif /* HAVE_FREETYPE */
3042 register_font_driver (&xfont_driver
, f
);
3044 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3045 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3047 /* Extract the window parameters from the supplied values
3048 that are needed to determine window geometry. */
3049 x_default_font_parameter (f
, parms
);
3050 if (!FRAME_FONT (f
))
3052 delete_frame (frame
, Qnoelisp
);
3053 error ("Invalid frame font");
3056 /* Frame contents get displaced if an embedded X window has a border. */
3057 if (! FRAME_X_EMBEDDED_P (f
))
3058 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
3059 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3061 /* This defaults to 1 in order to match xterm. We recognize either
3062 internalBorderWidth or internalBorder (which is what xterm calls
3064 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3068 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3069 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3070 if (! EQ (value
, Qunbound
))
3071 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3074 x_default_parameter (f
, parms
, Qinternal_border_width
,
3075 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3080 "internalBorderWidth", "internalBorderWidth",
3082 x_default_parameter (f
, parms
, Qright_divider_width
, make_number (0),
3083 NULL
, NULL
, RES_TYPE_NUMBER
);
3084 x_default_parameter (f
, parms
, Qbottom_divider_width
, make_number (0),
3085 NULL
, NULL
, RES_TYPE_NUMBER
);
3086 x_default_parameter (f
, parms
, Qvertical_scroll_bars
,
3087 #if defined (USE_GTK) && defined (USE_TOOLKIT_SCROLL_BARS)
3092 "verticalScrollBars", "ScrollBars",
3095 /* Also do the stuff which must be set before the window exists. */
3096 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3097 "foreground", "Foreground", RES_TYPE_STRING
);
3098 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3099 "background", "Background", RES_TYPE_STRING
);
3100 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3101 "pointerColor", "Foreground", RES_TYPE_STRING
);
3102 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3103 "borderColor", "BorderColor", RES_TYPE_STRING
);
3104 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3105 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3106 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3107 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3108 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3109 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3110 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3111 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3113 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3114 "scrollBarForeground",
3115 "ScrollBarForeground", 1);
3116 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3117 "scrollBarBackground",
3118 "ScrollBarBackground", 0);
3121 image_cache_refcount
=
3122 FRAME_IMAGE_CACHE (f
) ? FRAME_IMAGE_CACHE (f
)->refcount
: 0;
3123 dpyinfo_refcount
= dpyinfo
->reference_count
;
3124 #endif /* GLYPH_DEBUG */
3126 /* Init faces before x_default_parameter is called for scroll-bar
3127 parameters because that function calls x_set_scroll_bar_width,
3128 which calls change_frame_size, which calls Fset_window_buffer,
3129 which runs hooks, which call Fvertical_motion. At the end, we
3130 end up in init_iterator with a null face cache, which should not
3132 init_frame_faces (f
);
3134 /* PXW: This is a duplicate from below. We have to do it here since
3135 otherwise x_set_tool_bar_lines will work with the character sizes
3136 installed by init_frame_faces while the frame's pixel size is still
3137 calculated from a character size of 1 and we subsequently hit the
3138 eassert (height >= 0) assertion in window_box_height. The
3139 non-pixelwise code apparently worked around this because it had one
3140 frame line vs one toolbar line which left us with a zero root
3141 window height which was obviously wrong as well ... */
3142 change_frame_size (f
, FRAME_COLS (f
) * FRAME_COLUMN_WIDTH (f
),
3143 FRAME_LINES (f
) * FRAME_LINE_HEIGHT (f
), 1, 0, 0, 1);
3145 /* Set the menu-bar-lines and tool-bar-lines parameters. We don't
3146 look up the X resources controlling the menu-bar and tool-bar
3147 here; they are processed specially at startup, and reflected in
3148 the values of the mode variables.
3150 Avoid calling window-configuration-change-hook; otherwise we
3151 could get an infloop in next_frame since the frame is not yet in
3154 ptrdiff_t count2
= SPECPDL_INDEX ();
3155 record_unwind_protect (unwind_create_frame_1
, inhibit_lisp_code
);
3156 inhibit_lisp_code
= Qt
;
3158 x_default_parameter (f
, parms
, Qmenu_bar_lines
,
3159 NILP (Vmenu_bar_mode
)
3160 ? make_number (0) : make_number (1),
3161 NULL
, NULL
, RES_TYPE_NUMBER
);
3162 x_default_parameter (f
, parms
, Qtool_bar_lines
,
3163 NILP (Vtool_bar_mode
)
3164 ? make_number (0) : make_number (1),
3165 NULL
, NULL
, RES_TYPE_NUMBER
);
3167 unbind_to (count2
, Qnil
);
3170 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3171 "bufferPredicate", "BufferPredicate",
3173 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3174 "title", "Title", RES_TYPE_STRING
);
3175 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3176 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3177 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3178 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3179 x_default_parameter (f
, parms
, Qtool_bar_position
,
3180 f
->tool_bar_position
, 0, 0, RES_TYPE_SYMBOL
);
3182 /* Compute the size of the X window. */
3183 window_prompting
= x_figure_window_size (f
, parms
, 1);
3185 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3186 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3188 x_icon_verify (f
, parms
);
3190 /* Create the X widget or window. */
3191 #ifdef USE_X_TOOLKIT
3192 x_window (f
, window_prompting
, minibuffer_only
);
3200 /* Now consider the frame official. */
3201 f
->terminal
->reference_count
++;
3202 FRAME_DISPLAY_INFO (f
)->reference_count
++;
3203 Vframe_list
= Fcons (frame
, Vframe_list
);
3205 /* We need to do this after creating the X window, so that the
3206 icon-creation functions can say whose icon they're describing. */
3207 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3208 "bitmapIcon", "BitmapIcon", RES_TYPE_BOOLEAN
);
3210 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3211 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3212 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3213 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3214 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3215 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3216 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3217 "scrollBarWidth", "ScrollBarWidth",
3219 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3220 "alpha", "Alpha", RES_TYPE_NUMBER
);
3222 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3223 Change will not be effected unless different from the current
3225 width
= FRAME_TEXT_WIDTH (f
);
3226 height
= FRAME_TEXT_HEIGHT (f
);
3227 FRAME_TEXT_HEIGHT (f
) = 0;
3228 SET_FRAME_WIDTH (f
, 0);
3229 change_frame_size (f
, width
, height
, 1, 0, 0, 1);
3231 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3232 /* Create the menu bar. */
3233 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3235 /* If this signals an error, we haven't set size hints for the
3236 frame and we didn't make it visible. */
3237 initialize_frame_menubar (f
);
3240 /* This is a no-op, except under Motif where it arranges the
3241 main window for the widgets on it. */
3242 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3243 f
->output_data
.x
->menubar_widget
,
3244 f
->output_data
.x
->edit_widget
);
3245 #endif /* not USE_GTK */
3247 #endif /* USE_X_TOOLKIT || USE_GTK */
3249 /* Tell the server what size and position, etc, we want, and how
3250 badly we want them. This should be done after we have the menu
3251 bar so that its size can be taken into account. */
3253 x_wm_set_size_hint (f
, window_prompting
, 0);
3256 /* Make the window appear on the frame and enable display, unless
3257 the caller says not to. However, with explicit parent, Emacs
3258 cannot control visibility, so don't try. */
3259 if (! f
->output_data
.x
->explicit_parent
)
3261 Lisp_Object visibility
;
3263 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3265 if (EQ (visibility
, Qunbound
))
3268 if (EQ (visibility
, Qicon
))
3269 x_iconify_frame (f
);
3270 else if (! NILP (visibility
))
3271 x_make_frame_visible (f
);
3274 /* Must have been Qnil. */
3280 /* Set machine name and pid for the purpose of window managers. */
3281 set_machine_and_pid_properties (f
);
3283 /* Set the WM leader property. GTK does this itself, so this is not
3284 needed when using GTK. */
3285 if (dpyinfo
->client_leader_window
!= 0)
3287 XChangeProperty (FRAME_X_DISPLAY (f
),
3288 FRAME_OUTER_WINDOW (f
),
3289 dpyinfo
->Xatom_wm_client_leader
,
3290 XA_WINDOW
, 32, PropModeReplace
,
3291 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3296 /* Initialize `default-minibuffer-frame' in case this is the first
3297 frame on this terminal. */
3298 if (FRAME_HAS_MINIBUF_P (f
)
3299 && (!FRAMEP (KVAR (kb
, Vdefault_minibuffer_frame
))
3300 || !FRAME_LIVE_P (XFRAME (KVAR (kb
, Vdefault_minibuffer_frame
)))))
3301 kset_default_minibuffer_frame (kb
, frame
);
3303 /* All remaining specified parameters, which have not been "used"
3304 by x_get_arg and friends, now go in the misc. alist of the frame. */
3305 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3306 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3307 fset_param_alist (f
, Fcons (XCAR (tem
), f
->param_alist
));
3311 /* Make sure windows on this frame appear in calls to next-window
3312 and similar functions. */
3313 Vwindow_list
= Qnil
;
3315 return unbind_to (count
, frame
);
3319 /* FRAME is used only to get a handle on the X display. We don't pass the
3320 display info directly because we're called from frame.c, which doesn't
3321 know about that structure. */
3324 x_get_focus_frame (struct frame
*frame
)
3326 struct x_display_info
*dpyinfo
= FRAME_DISPLAY_INFO (frame
);
3328 if (! dpyinfo
->x_focus_frame
)
3331 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3336 /* In certain situations, when the window manager follows a
3337 click-to-focus policy, there seems to be no way around calling
3338 XSetInputFocus to give another frame the input focus .
3340 In an ideal world, XSetInputFocus should generally be avoided so
3341 that applications don't interfere with the window manager's focus
3342 policy. But I think it's okay to use when it's clearly done
3343 following a user-command. */
3346 x_focus_frame (struct frame
*f
)
3348 Display
*dpy
= FRAME_X_DISPLAY (f
);
3351 x_catch_errors (dpy
);
3353 if (FRAME_X_EMBEDDED_P (f
))
3355 /* For Xembedded frames, normally the embedder forwards key
3356 events. See XEmbed Protocol Specification at
3357 http://freedesktop.org/wiki/Specifications/xembed-spec */
3358 xembed_request_focus (f
);
3362 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3363 RevertToParent
, CurrentTime
);
3364 x_ewmh_activate_frame (f
);
3367 x_uncatch_errors ();
3372 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3373 doc
: /* Internal function called by `color-defined-p', which see
3374 .\(Note that the Nextstep version of this function ignores FRAME.) */)
3375 (Lisp_Object color
, Lisp_Object frame
)
3378 struct frame
*f
= decode_window_system_frame (frame
);
3380 CHECK_STRING (color
);
3382 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3388 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3389 doc
: /* Internal function called by `color-values', which see. */)
3390 (Lisp_Object color
, Lisp_Object frame
)
3393 struct frame
*f
= decode_window_system_frame (frame
);
3395 CHECK_STRING (color
);
3397 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3398 return list3i (foo
.red
, foo
.green
, foo
.blue
);
3403 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3404 doc
: /* Internal function called by `display-color-p', which see. */)
3405 (Lisp_Object terminal
)
3407 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3409 if (dpyinfo
->n_planes
<= 2)
3412 switch (dpyinfo
->visual
->class)
3425 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3427 doc
: /* Return t if the X display supports shades of gray.
3428 Note that color displays do support shades of gray.
3429 The optional argument TERMINAL specifies which display to ask about.
3430 TERMINAL should be a terminal object, a frame or a display name (a string).
3431 If omitted or nil, that stands for the selected frame's display. */)
3432 (Lisp_Object terminal
)
3434 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3436 if (dpyinfo
->n_planes
<= 1)
3439 switch (dpyinfo
->visual
->class)
3454 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3456 doc
: /* Return the width in pixels of the X display TERMINAL.
3457 The optional argument TERMINAL specifies which display to ask about.
3458 TERMINAL should be a terminal object, a frame or a display name (a string).
3459 If omitted or nil, that stands for the selected frame's display.
3461 On \"multi-monitor\" setups this refers to the pixel width for all
3462 physical monitors associated with TERMINAL. To get information for
3463 each physical monitor, use `display-monitor-attributes-list'. */)
3464 (Lisp_Object terminal
)
3466 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3468 return make_number (x_display_pixel_width (dpyinfo
));
3471 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3472 Sx_display_pixel_height
, 0, 1, 0,
3473 doc
: /* Return the height in pixels of the X display TERMINAL.
3474 The optional argument TERMINAL specifies which display to ask about.
3475 TERMINAL should be a terminal object, a frame or a display name (a string).
3476 If omitted or nil, that stands for the selected frame's display.
3478 On \"multi-monitor\" setups this refers to the pixel height for all
3479 physical monitors associated with TERMINAL. To get information for
3480 each physical monitor, use `display-monitor-attributes-list'. */)
3481 (Lisp_Object terminal
)
3483 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3485 return make_number (x_display_pixel_height (dpyinfo
));
3488 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3490 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3491 The optional argument TERMINAL specifies which display to ask about.
3492 TERMINAL should be a terminal object, a frame or a display name (a string).
3493 If omitted or nil, that stands for the selected frame's display. */)
3494 (Lisp_Object terminal
)
3496 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3498 return make_number (dpyinfo
->n_planes
);
3501 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3503 doc
: /* Return the number of color cells of the X display TERMINAL.
3504 The optional argument TERMINAL specifies which display to ask about.
3505 TERMINAL should be a terminal object, a frame or a display name (a string).
3506 If omitted or nil, that stands for the selected frame's display. */)
3507 (Lisp_Object terminal
)
3509 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3511 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3512 XScreenNumberOfScreen (dpyinfo
->screen
));
3514 /* Truncate nr_planes to 24 to avoid integer overflow.
3515 Some displays says 32, but only 24 bits are actually significant.
3516 There are only very few and rare video cards that have more than
3517 24 significant bits. Also 24 bits is more than 16 million colors,
3518 it "should be enough for everyone". */
3519 if (nr_planes
> 24) nr_planes
= 24;
3521 return make_number (1 << nr_planes
);
3524 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3525 Sx_server_max_request_size
,
3527 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3528 The optional argument TERMINAL specifies which display to ask about.
3529 TERMINAL should be a terminal object, a frame or a display name (a string).
3530 If omitted or nil, that stands for the selected frame's display. */)
3531 (Lisp_Object terminal
)
3533 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3535 return make_number (MAXREQUEST (dpyinfo
->display
));
3538 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3539 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3540 \(Labeling every distributor as a "vendor" embodies the false assumption
3541 that operating systems cannot be developed and distributed noncommercially.)
3542 The optional argument TERMINAL specifies which display to ask about.
3543 TERMINAL should be a terminal object, a frame or a display name (a string).
3544 If omitted or nil, that stands for the selected frame's display. */)
3545 (Lisp_Object terminal
)
3547 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3548 const char *vendor
= ServerVendor (dpyinfo
->display
);
3550 if (! vendor
) vendor
= "";
3551 return build_string (vendor
);
3554 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3555 doc
: /* Return the version numbers of the X server of display TERMINAL.
3556 The value is a list of three integers: the major and minor
3557 version numbers of the X Protocol in use, and the distributor-specific release
3558 number. See also the function `x-server-vendor'.
3560 The optional argument TERMINAL specifies which display to ask about.
3561 TERMINAL should be a terminal object, a frame or a display name (a string).
3562 If omitted or nil, that stands for the selected frame's display. */)
3563 (Lisp_Object terminal
)
3565 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3566 Display
*dpy
= dpyinfo
->display
;
3568 return list3i (ProtocolVersion (dpy
), ProtocolRevision (dpy
),
3569 VendorRelease (dpy
));
3572 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3573 doc
: /* Return the number of screens on the X server of display TERMINAL.
3574 The optional argument TERMINAL specifies which display to ask about.
3575 TERMINAL should be a terminal object, a frame or a display name (a string).
3576 If omitted or nil, that stands for the selected frame's display. */)
3577 (Lisp_Object terminal
)
3579 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3581 return make_number (ScreenCount (dpyinfo
->display
));
3584 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3585 doc
: /* Return the height in millimeters of the X display TERMINAL.
3586 The optional argument TERMINAL specifies which display to ask about.
3587 TERMINAL should be a terminal object, a frame or a display name (a string).
3588 If omitted or nil, that stands for the selected frame's display.
3590 On \"multi-monitor\" setups this refers to the height in millimeters for
3591 all physical monitors associated with TERMINAL. To get information
3592 for each physical monitor, use `display-monitor-attributes-list'. */)
3593 (Lisp_Object terminal
)
3595 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3597 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3600 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3601 doc
: /* Return the width in millimeters of the X display TERMINAL.
3602 The optional argument TERMINAL specifies which display to ask about.
3603 TERMINAL should be a terminal object, a frame or a display name (a string).
3604 If omitted or nil, that stands for the selected frame's display.
3606 On \"multi-monitor\" setups this refers to the width in millimeters for
3607 all physical monitors associated with TERMINAL. To get information
3608 for each physical monitor, use `display-monitor-attributes-list'. */)
3609 (Lisp_Object terminal
)
3611 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3613 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3616 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3617 Sx_display_backing_store
, 0, 1, 0,
3618 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3619 The value may be `always', `when-mapped', or `not-useful'.
3620 The optional argument TERMINAL specifies which display to ask about.
3621 TERMINAL should be a terminal object, a frame or a display name (a string).
3622 If omitted or nil, that stands for the selected frame's display. */)
3623 (Lisp_Object terminal
)
3625 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3628 switch (DoesBackingStore (dpyinfo
->screen
))
3631 result
= intern ("always");
3635 result
= intern ("when-mapped");
3639 result
= intern ("not-useful");
3643 error ("Strange value for BackingStore parameter of screen");
3649 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3650 Sx_display_visual_class
, 0, 1, 0,
3651 doc
: /* Return the visual class of the X display TERMINAL.
3652 The value is one of the symbols `static-gray', `gray-scale',
3653 `static-color', `pseudo-color', `true-color', or `direct-color'.
3655 The optional argument TERMINAL specifies which display to ask about.
3656 TERMINAL should a terminal object, a frame or a display name (a string).
3657 If omitted or nil, that stands for the selected frame's display. */)
3658 (Lisp_Object terminal
)
3660 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3663 switch (dpyinfo
->visual
->class)
3666 result
= intern ("static-gray");
3669 result
= intern ("gray-scale");
3672 result
= intern ("static-color");
3675 result
= intern ("pseudo-color");
3678 result
= intern ("true-color");
3681 result
= intern ("direct-color");
3684 error ("Display has an unknown visual class");
3690 DEFUN ("x-display-save-under", Fx_display_save_under
,
3691 Sx_display_save_under
, 0, 1, 0,
3692 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3693 The optional argument TERMINAL specifies which display to ask about.
3694 TERMINAL should be a terminal object, a frame or a display name (a string).
3695 If omitted or nil, that stands for the selected frame's display. */)
3696 (Lisp_Object terminal
)
3698 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3700 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3706 /* Store the geometry of the workarea on display DPYINFO into *RECT.
3707 Return false if and only if the workarea information cannot be
3708 obtained via the _NET_WORKAREA root window property. */
3710 #if ! GTK_CHECK_VERSION (3, 4, 0)
3712 x_get_net_workarea (struct x_display_info
*dpyinfo
, XRectangle
*rect
)
3714 Display
*dpy
= dpyinfo
->display
;
3715 long offset
, max_len
;
3716 Atom target_type
, actual_type
;
3717 unsigned long actual_size
, bytes_remaining
;
3718 int rc
, actual_format
;
3719 unsigned char *tmp_data
= NULL
;
3720 bool result
= false;
3722 x_catch_errors (dpy
);
3725 target_type
= XA_CARDINAL
;
3726 rc
= XGetWindowProperty (dpy
, dpyinfo
->root_window
,
3727 dpyinfo
->Xatom_net_current_desktop
,
3728 offset
, max_len
, False
, target_type
,
3729 &actual_type
, &actual_format
, &actual_size
,
3730 &bytes_remaining
, &tmp_data
);
3731 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
3732 && actual_format
== 32 && actual_size
== max_len
)
3734 long current_desktop
= ((long *) tmp_data
)[0];
3739 offset
= 4 * current_desktop
;
3741 rc
= XGetWindowProperty (dpy
, dpyinfo
->root_window
,
3742 dpyinfo
->Xatom_net_workarea
,
3743 offset
, max_len
, False
, target_type
,
3744 &actual_type
, &actual_format
, &actual_size
,
3745 &bytes_remaining
, &tmp_data
);
3746 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
3747 && actual_format
== 32 && actual_size
== max_len
)
3749 long *values
= (long *) tmp_data
;
3751 rect
->x
= values
[0];
3752 rect
->y
= values
[1];
3753 rect
->width
= values
[2];
3754 rect
->height
= values
[3];
3764 x_uncatch_errors ();
3772 /* Return monitor number where F is "most" or closest to. */
3774 x_get_monitor_for_frame (struct frame
*f
,
3775 struct MonitorInfo
*monitors
,
3779 int area
= 0, dist
= -1;
3780 int best_area
= -1, best_dist
= -1;
3783 if (n_monitors
== 1) return 0;
3784 frect
.x
= f
->left_pos
;
3785 frect
.y
= f
->top_pos
;
3786 frect
.width
= FRAME_PIXEL_WIDTH (f
);
3787 frect
.height
= FRAME_PIXEL_HEIGHT (f
);
3789 for (i
= 0; i
< n_monitors
; ++i
)
3791 struct MonitorInfo
*mi
= &monitors
[i
];
3795 if (mi
->geom
.width
== 0) continue;
3797 if (x_intersect_rectangles (&mi
->geom
, &frect
, &res
))
3799 a
= res
.width
* res
.height
;
3807 if (a
== 0 && area
== 0)
3810 if (frect
.x
+ frect
.width
< mi
->geom
.x
)
3811 dx
= mi
->geom
.x
- frect
.x
+ frect
.width
;
3812 else if (frect
.x
> mi
->geom
.x
+ mi
->geom
.width
)
3813 dx
= frect
.x
- mi
->geom
.x
+ mi
->geom
.width
;
3816 if (frect
.y
+ frect
.height
< mi
->geom
.y
)
3817 dy
= mi
->geom
.y
- frect
.y
+ frect
.height
;
3818 else if (frect
.y
> mi
->geom
.y
+ mi
->geom
.height
)
3819 dy
= frect
.y
- mi
->geom
.y
+ mi
->geom
.height
;
3824 if (dist
== -1 || dist
> d
)
3832 return best_area
!= -1 ? best_area
: (best_dist
!= -1 ? best_dist
: 0);
3836 x_make_monitor_attribute_list (struct MonitorInfo
*monitors
,
3838 int primary_monitor
,
3839 struct x_display_info
*dpyinfo
,
3842 Lisp_Object monitor_frames
= Fmake_vector (make_number (n_monitors
), Qnil
);
3843 Lisp_Object frame
, rest
;
3845 FOR_EACH_FRAME (rest
, frame
)
3847 struct frame
*f
= XFRAME (frame
);
3849 if (FRAME_X_P (f
) && FRAME_DISPLAY_INFO (f
) == dpyinfo
3850 && !EQ (frame
, tip_frame
))
3852 int i
= x_get_monitor_for_frame (f
, monitors
, n_monitors
);
3853 ASET (monitor_frames
, i
, Fcons (frame
, AREF (monitor_frames
, i
)));
3857 return make_monitor_attribute_list (monitors
, n_monitors
, primary_monitor
,
3858 monitor_frames
, source
);
3862 x_get_monitor_attributes_fallback (struct x_display_info
*dpyinfo
)
3864 struct MonitorInfo monitor
;
3865 XRectangle workarea_r
;
3867 /* Fallback: treat (possibly) multiple physical monitors as if they
3868 formed a single monitor as a whole. This should provide a
3869 consistent result at least on single monitor environments. */
3870 monitor
.geom
.x
= monitor
.geom
.y
= 0;
3871 monitor
.geom
.width
= x_display_pixel_width (dpyinfo
);
3872 monitor
.geom
.height
= x_display_pixel_height (dpyinfo
);
3873 monitor
.mm_width
= WidthMMOfScreen (dpyinfo
->screen
);
3874 monitor
.mm_height
= HeightMMOfScreen (dpyinfo
->screen
);
3875 monitor
.name
= xstrdup ("combined screen");
3877 if (x_get_net_workarea (dpyinfo
, &workarea_r
))
3878 monitor
.work
= workarea_r
;
3880 monitor
.work
= monitor
.geom
;
3881 return x_make_monitor_attribute_list (&monitor
, 1, 0, dpyinfo
, "fallback");
3885 #ifdef HAVE_XINERAMA
3887 x_get_monitor_attributes_xinerama (struct x_display_info
*dpyinfo
)
3890 Lisp_Object attributes_list
= Qnil
;
3891 Display
*dpy
= dpyinfo
->display
;
3892 XineramaScreenInfo
*info
= XineramaQueryScreens (dpy
, &n_monitors
);
3893 struct MonitorInfo
*monitors
;
3894 double mm_width_per_pixel
, mm_height_per_pixel
;
3896 if (! info
|| n_monitors
== 0)
3900 return attributes_list
;
3903 mm_width_per_pixel
= ((double) WidthMMOfScreen (dpyinfo
->screen
)
3904 / x_display_pixel_width (dpyinfo
));
3905 mm_height_per_pixel
= ((double) HeightMMOfScreen (dpyinfo
->screen
)
3906 / x_display_pixel_height (dpyinfo
));
3907 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
3908 for (i
= 0; i
< n_monitors
; ++i
)
3910 struct MonitorInfo
*mi
= &monitors
[i
];
3911 XRectangle workarea_r
;
3913 mi
->geom
.x
= info
[i
].x_org
;
3914 mi
->geom
.y
= info
[i
].y_org
;
3915 mi
->geom
.width
= info
[i
].width
;
3916 mi
->geom
.height
= info
[i
].height
;
3917 mi
->mm_width
= mi
->geom
.width
* mm_width_per_pixel
+ 0.5;
3918 mi
->mm_height
= mi
->geom
.height
* mm_height_per_pixel
+ 0.5;
3921 /* Xinerama usually have primary monitor first, just use that. */
3922 if (i
== 0 && x_get_net_workarea (dpyinfo
, &workarea_r
))
3924 mi
->work
= workarea_r
;
3925 if (! x_intersect_rectangles (&mi
->geom
, &mi
->work
, &mi
->work
))
3926 mi
->work
= mi
->geom
;
3929 mi
->work
= mi
->geom
;
3933 attributes_list
= x_make_monitor_attribute_list (monitors
,
3938 free_monitors (monitors
, n_monitors
);
3939 return attributes_list
;
3941 #endif /* HAVE_XINERAMA */
3946 x_get_monitor_attributes_xrandr (struct x_display_info
*dpyinfo
)
3948 Lisp_Object attributes_list
= Qnil
;
3949 XRRScreenResources
*resources
;
3950 Display
*dpy
= dpyinfo
->display
;
3951 int i
, n_monitors
, primary
= -1;
3952 RROutput pxid
= None
;
3953 struct MonitorInfo
*monitors
;
3955 #ifdef HAVE_XRRGETSCREENRESOURCESCURRENT
3956 resources
= XRRGetScreenResourcesCurrent (dpy
, dpyinfo
->root_window
);
3958 resources
= XRRGetScreenResources (dpy
, dpyinfo
->root_window
);
3960 if (! resources
|| resources
->noutput
== 0)
3963 XRRFreeScreenResources (resources
);
3966 n_monitors
= resources
->noutput
;
3967 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
3969 #ifdef HAVE_XRRGETOUTPUTPRIMARY
3970 pxid
= XRRGetOutputPrimary (dpy
, dpyinfo
->root_window
);
3973 for (i
= 0; i
< n_monitors
; ++i
)
3975 XRROutputInfo
*info
= XRRGetOutputInfo (dpy
, resources
,
3976 resources
->outputs
[i
]);
3977 Connection conn
= info
? info
->connection
: RR_Disconnected
;
3978 RRCrtc id
= info
? info
->crtc
: None
;
3980 if (strcmp (info
->name
, "default") == 0)
3982 /* Non XRandr 1.2 driver, does not give useful data. */
3983 XRRFreeOutputInfo (info
);
3984 XRRFreeScreenResources (resources
);
3985 free_monitors (monitors
, n_monitors
);
3989 if (conn
!= RR_Disconnected
&& id
!= None
)
3991 XRRCrtcInfo
*crtc
= XRRGetCrtcInfo (dpy
, resources
, id
);
3992 struct MonitorInfo
*mi
= &monitors
[i
];
3993 XRectangle workarea_r
;
3997 XRRFreeOutputInfo (info
);
4001 mi
->geom
.x
= crtc
->x
;
4002 mi
->geom
.y
= crtc
->y
;
4003 mi
->geom
.width
= crtc
->width
;
4004 mi
->geom
.height
= crtc
->height
;
4005 mi
->mm_width
= info
->mm_width
;
4006 mi
->mm_height
= info
->mm_height
;
4007 mi
->name
= xstrdup (info
->name
);
4009 if (pxid
!= None
&& pxid
== resources
->outputs
[i
])
4011 else if (primary
== -1 && strcmp (info
->name
, "LVDS") == 0)
4014 if (i
== primary
&& x_get_net_workarea (dpyinfo
, &workarea_r
))
4016 mi
->work
= workarea_r
;
4017 if (! x_intersect_rectangles (&mi
->geom
, &mi
->work
, &mi
->work
))
4018 mi
->work
= mi
->geom
;
4021 mi
->work
= mi
->geom
;
4023 XRRFreeCrtcInfo (crtc
);
4025 XRRFreeOutputInfo (info
);
4027 XRRFreeScreenResources (resources
);
4029 attributes_list
= x_make_monitor_attribute_list (monitors
,
4034 free_monitors (monitors
, n_monitors
);
4035 return attributes_list
;
4037 #endif /* HAVE_XRANDR */
4040 x_get_monitor_attributes (struct x_display_info
*dpyinfo
)
4042 Lisp_Object attributes_list
= Qnil
;
4043 Display
*dpy
= dpyinfo
->display
;
4045 (void) dpy
; /* Suppress unused variable warning. */
4048 int xrr_event_base
, xrr_error_base
;
4049 bool xrr_ok
= false;
4050 xrr_ok
= XRRQueryExtension (dpy
, &xrr_event_base
, &xrr_error_base
);
4053 int xrr_major
, xrr_minor
;
4054 XRRQueryVersion (dpy
, &xrr_major
, &xrr_minor
);
4055 xrr_ok
= (xrr_major
== 1 && xrr_minor
>= 2) || xrr_major
> 1;
4059 attributes_list
= x_get_monitor_attributes_xrandr (dpyinfo
);
4060 #endif /* HAVE_XRANDR */
4062 #ifdef HAVE_XINERAMA
4063 if (NILP (attributes_list
))
4065 int xin_event_base
, xin_error_base
;
4066 bool xin_ok
= false;
4067 xin_ok
= XineramaQueryExtension (dpy
, &xin_event_base
, &xin_error_base
);
4068 if (xin_ok
&& XineramaIsActive (dpy
))
4069 attributes_list
= x_get_monitor_attributes_xinerama (dpyinfo
);
4071 #endif /* HAVE_XINERAMA */
4073 if (NILP (attributes_list
))
4074 attributes_list
= x_get_monitor_attributes_fallback (dpyinfo
);
4076 return attributes_list
;
4079 #endif /* !USE_GTK */
4081 DEFUN ("x-display-monitor-attributes-list", Fx_display_monitor_attributes_list
,
4082 Sx_display_monitor_attributes_list
,
4084 doc
: /* Return a list of physical monitor attributes on the X display TERMINAL.
4086 The optional argument TERMINAL specifies which display to ask about.
4087 TERMINAL should be a terminal object, a frame or a display name (a string).
4088 If omitted or nil, that stands for the selected frame's display.
4090 In addition to the standard attribute keys listed in
4091 `display-monitor-attributes-list', the following keys are contained in
4094 source -- String describing the source from which multi-monitor
4095 information is obtained, one of \"Gdk\", \"XRandr\",
4096 \"Xinerama\", or \"fallback\"
4098 Internal use only, use `display-monitor-attributes-list' instead. */)
4099 (Lisp_Object terminal
)
4101 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4102 Lisp_Object attributes_list
= Qnil
;
4105 double mm_width_per_pixel
, mm_height_per_pixel
;
4108 gint primary_monitor
= 0, n_monitors
, i
;
4109 Lisp_Object monitor_frames
, rest
, frame
;
4110 static const char *source
= "Gdk";
4111 struct MonitorInfo
*monitors
;
4114 mm_width_per_pixel
= ((double) WidthMMOfScreen (dpyinfo
->screen
)
4115 / x_display_pixel_width (dpyinfo
));
4116 mm_height_per_pixel
= ((double) HeightMMOfScreen (dpyinfo
->screen
)
4117 / x_display_pixel_height (dpyinfo
));
4118 gdpy
= gdk_x11_lookup_xdisplay (dpyinfo
->display
);
4119 gscreen
= gdk_display_get_default_screen (gdpy
);
4120 #if GTK_CHECK_VERSION (2, 20, 0)
4121 primary_monitor
= gdk_screen_get_primary_monitor (gscreen
);
4123 n_monitors
= gdk_screen_get_n_monitors (gscreen
);
4124 monitor_frames
= Fmake_vector (make_number (n_monitors
), Qnil
);
4125 monitors
= xzalloc (n_monitors
* sizeof *monitors
);
4127 FOR_EACH_FRAME (rest
, frame
)
4129 struct frame
*f
= XFRAME (frame
);
4131 if (FRAME_X_P (f
) && FRAME_DISPLAY_INFO (f
) == dpyinfo
4132 && !EQ (frame
, tip_frame
))
4134 GdkWindow
*gwin
= gtk_widget_get_window (FRAME_GTK_WIDGET (f
));
4136 i
= gdk_screen_get_monitor_at_window (gscreen
, gwin
);
4137 ASET (monitor_frames
, i
, Fcons (frame
, AREF (monitor_frames
, i
)));
4141 for (i
= 0; i
< n_monitors
; ++i
)
4143 gint width_mm
= -1, height_mm
= -1;
4144 GdkRectangle rec
, work
;
4145 struct MonitorInfo
*mi
= &monitors
[i
];
4147 gdk_screen_get_monitor_geometry (gscreen
, i
, &rec
);
4149 #if GTK_CHECK_VERSION (2, 14, 0)
4150 width_mm
= gdk_screen_get_monitor_width_mm (gscreen
, i
);
4151 height_mm
= gdk_screen_get_monitor_height_mm (gscreen
, i
);
4154 width_mm
= rec
.width
* mm_width_per_pixel
+ 0.5;
4156 height_mm
= rec
.height
* mm_height_per_pixel
+ 0.5;
4158 #if GTK_CHECK_VERSION (3, 4, 0)
4159 gdk_screen_get_monitor_workarea (gscreen
, i
, &work
);
4161 /* Emulate the behavior of GTK+ 3.4. */
4163 XRectangle workarea_r
;
4165 if (i
== primary_monitor
&& x_get_net_workarea (dpyinfo
, &workarea_r
))
4167 work
.x
= workarea_r
.x
;
4168 work
.y
= workarea_r
.y
;
4169 work
.width
= workarea_r
.width
;
4170 work
.height
= workarea_r
.height
;
4171 if (! gdk_rectangle_intersect (&rec
, &work
, &work
))
4182 mi
->geom
.width
= rec
.width
;
4183 mi
->geom
.height
= rec
.height
;
4184 mi
->work
.x
= work
.x
;
4185 mi
->work
.y
= work
.y
;
4186 mi
->work
.width
= work
.width
;
4187 mi
->work
.height
= work
.height
;
4188 mi
->mm_width
= width_mm
;
4189 mi
->mm_height
= height_mm
;
4191 #if GTK_CHECK_VERSION (2, 14, 0)
4192 mi
->name
= gdk_screen_get_monitor_plug_name (gscreen
, i
);
4196 attributes_list
= make_monitor_attribute_list (monitors
,
4202 #else /* not USE_GTK */
4205 attributes_list
= x_get_monitor_attributes (dpyinfo
);
4208 #endif /* not USE_GTK */
4210 return attributes_list
;
4213 /************************************************************************
4215 ************************************************************************/
4218 /* Mapping visual names to visuals. */
4220 static struct visual_class
4227 {"StaticGray", StaticGray
},
4228 {"GrayScale", GrayScale
},
4229 {"StaticColor", StaticColor
},
4230 {"PseudoColor", PseudoColor
},
4231 {"TrueColor", TrueColor
},
4232 {"DirectColor", DirectColor
},
4237 #ifndef HAVE_XSCREENNUMBEROFSCREEN
4239 /* Value is the screen number of screen SCR. This is a substitute for
4240 the X function with the same name when that doesn't exist. */
4243 XScreenNumberOfScreen (scr
)
4244 register Screen
*scr
;
4246 Display
*dpy
= scr
->display
;
4249 for (i
= 0; i
< dpy
->nscreens
; ++i
)
4250 if (scr
== dpy
->screens
+ i
)
4256 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
4259 /* Select the visual that should be used on display DPYINFO. Set
4260 members of DPYINFO appropriately. Called from x_term_init. */
4263 select_visual (struct x_display_info
*dpyinfo
)
4265 Display
*dpy
= dpyinfo
->display
;
4266 Screen
*screen
= dpyinfo
->screen
;
4269 /* See if a visual is specified. */
4270 value
= display_x_get_resource (dpyinfo
,
4271 build_string ("visualClass"),
4272 build_string ("VisualClass"),
4274 if (STRINGP (value
))
4276 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
4277 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4278 depth, a decimal number. NAME is compared with case ignored. */
4279 char *s
= alloca (SBYTES (value
) + 1);
4284 strcpy (s
, SSDATA (value
));
4285 dash
= strchr (s
, '-');
4288 dpyinfo
->n_planes
= atoi (dash
+ 1);
4292 /* We won't find a matching visual with depth 0, so that
4293 an error will be printed below. */
4294 dpyinfo
->n_planes
= 0;
4296 /* Determine the visual class. */
4297 for (i
= 0; visual_classes
[i
].name
; ++i
)
4298 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4300 class = visual_classes
[i
].class;
4304 /* Look up a matching visual for the specified class. */
4306 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4307 dpyinfo
->n_planes
, class, &vinfo
))
4308 fatal ("Invalid visual specification `%s'", SDATA (value
));
4310 dpyinfo
->visual
= vinfo
.visual
;
4315 XVisualInfo
*vinfo
, vinfo_template
;
4317 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4319 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4320 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4321 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4322 &vinfo_template
, &n_visuals
);
4324 fatal ("Can't get proper X visual info");
4326 dpyinfo
->n_planes
= vinfo
->depth
;
4332 /* Return the X display structure for the display named NAME.
4333 Open a new connection if necessary. */
4335 static struct x_display_info
*
4336 x_display_info_for_name (Lisp_Object name
)
4338 struct x_display_info
*dpyinfo
;
4340 CHECK_STRING (name
);
4342 for (dpyinfo
= x_display_list
; dpyinfo
; dpyinfo
= dpyinfo
->next
)
4343 if (!NILP (Fstring_equal (XCAR (dpyinfo
->name_list_element
), name
)))
4346 /* Use this general default value to start with. */
4347 Vx_resource_name
= Vinvocation_name
;
4349 validate_x_resource_name ();
4351 dpyinfo
= x_term_init (name
, 0, SSDATA (Vx_resource_name
));
4354 error ("Cannot connect to X server %s", SDATA (name
));
4356 XSETFASTINT (Vwindow_system_version
, 11);
4362 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4364 doc
: /* Open a connection to a display server.
4365 DISPLAY is the name of the display to connect to.
4366 Optional second arg XRM-STRING is a string of resources in xrdb format.
4367 If the optional third arg MUST-SUCCEED is non-nil,
4368 terminate Emacs if we can't open the connection.
4369 \(In the Nextstep version, the last two arguments are currently ignored.) */)
4370 (Lisp_Object display
, Lisp_Object xrm_string
, Lisp_Object must_succeed
)
4373 struct x_display_info
*dpyinfo
;
4375 CHECK_STRING (display
);
4376 if (! NILP (xrm_string
))
4377 CHECK_STRING (xrm_string
);
4379 xrm_option
= NILP (xrm_string
) ? 0 : SSDATA (xrm_string
);
4381 validate_x_resource_name ();
4383 /* This is what opens the connection and sets x_current_display.
4384 This also initializes many symbols, such as those used for input. */
4385 dpyinfo
= x_term_init (display
, xrm_option
,
4386 SSDATA (Vx_resource_name
));
4390 if (!NILP (must_succeed
))
4391 fatal ("Cannot connect to X server %s.\n\
4392 Check the DISPLAY environment variable or use `-d'.\n\
4393 Also use the `xauth' program to verify that you have the proper\n\
4394 authorization information needed to connect the X server.\n\
4395 An insecure way to solve the problem may be to use `xhost'.\n",
4398 error ("Cannot connect to X server %s", SDATA (display
));
4401 XSETFASTINT (Vwindow_system_version
, 11);
4405 DEFUN ("x-close-connection", Fx_close_connection
,
4406 Sx_close_connection
, 1, 1, 0,
4407 doc
: /* Close the connection to TERMINAL's X server.
4408 For TERMINAL, specify a terminal object, a frame or a display name (a
4409 string). If TERMINAL is nil, that stands for the selected frame's
4411 (Lisp_Object terminal
)
4413 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4415 if (dpyinfo
->reference_count
> 0)
4416 error ("Display still has frames on it");
4418 x_delete_terminal (dpyinfo
->terminal
);
4423 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4424 doc
: /* Return the list of display names that Emacs has connections to. */)
4427 Lisp_Object result
= Qnil
;
4428 struct x_display_info
*xdi
;
4430 for (xdi
= x_display_list
; xdi
; xdi
= xdi
->next
)
4431 result
= Fcons (XCAR (xdi
->name_list_element
), result
);
4436 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4437 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4438 This function only has an effect on X Windows. With MS Windows, it is
4439 defined but does nothing.
4441 If ON is nil, allow buffering of requests.
4442 Turning on synchronization prohibits the Xlib routines from buffering
4443 requests and seriously degrades performance, but makes debugging much
4445 The optional second argument TERMINAL specifies which display to act on.
4446 TERMINAL should be a terminal object, a frame or a display name (a string).
4447 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4448 (Lisp_Object on
, Lisp_Object terminal
)
4450 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4452 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4457 /* Wait for responses to all X commands issued so far for frame F. */
4460 x_sync (struct frame
*f
)
4463 XSync (FRAME_X_DISPLAY (f
), False
);
4468 /***********************************************************************
4470 ***********************************************************************/
4472 DEFUN ("x-change-window-property", Fx_change_window_property
,
4473 Sx_change_window_property
, 2, 6, 0,
4474 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4475 PROP must be a string. VALUE may be a string or a list of conses,
4476 numbers and/or strings. If an element in the list is a string, it is
4477 converted to an atom and the value of the atom is used. If an element
4478 is a cons, it is converted to a 32 bit number where the car is the 16
4479 top bits and the cdr is the lower 16 bits.
4481 FRAME nil or omitted means use the selected frame.
4482 If TYPE is given and non-nil, it is the name of the type of VALUE.
4483 If TYPE is not given or nil, the type is STRING.
4484 FORMAT gives the size in bits of each element if VALUE is a list.
4485 It must be one of 8, 16 or 32.
4486 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4487 If OUTER-P is non-nil, the property is changed for the outer X window of
4488 FRAME. Default is to change on the edit X window. */)
4489 (Lisp_Object prop
, Lisp_Object value
, Lisp_Object frame
,
4490 Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4492 struct frame
*f
= decode_window_system_frame (frame
);
4494 Atom target_type
= XA_STRING
;
4495 int element_format
= 8;
4496 unsigned char *data
;
4500 CHECK_STRING (prop
);
4502 if (! NILP (format
))
4504 CHECK_NUMBER (format
);
4506 if (XINT (format
) != 8 && XINT (format
) != 16
4507 && XINT (format
) != 32)
4508 error ("FORMAT must be one of 8, 16 or 32");
4509 element_format
= XINT (format
);
4516 nelements
= x_check_property_data (value
);
4517 if (nelements
== -1)
4518 error ("Bad data in VALUE, must be number, string or cons");
4520 /* The man page for XChangeProperty:
4521 "If the specified format is 32, the property data must be a
4523 This applies even if long is more than 32 bits. The X library
4524 converts to 32 bits before sending to the X server. */
4525 elsize
= element_format
== 32 ? sizeof (long) : element_format
>> 3;
4526 data
= xnmalloc (nelements
, elsize
);
4528 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4532 CHECK_STRING (value
);
4533 data
= SDATA (value
);
4534 if (INT_MAX
< SBYTES (value
))
4535 error ("VALUE too long");
4536 nelements
= SBYTES (value
);
4540 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4543 CHECK_STRING (type
);
4544 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4547 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4548 else w
= FRAME_X_WINDOW (f
);
4550 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4551 prop_atom
, target_type
, element_format
, PropModeReplace
,
4554 if (CONSP (value
)) xfree (data
);
4556 /* Make sure the property is set when we return. */
4557 XFlush (FRAME_X_DISPLAY (f
));
4564 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4565 Sx_delete_window_property
, 1, 2, 0,
4566 doc
: /* Remove window property PROP from X window of FRAME.
4567 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4568 (Lisp_Object prop
, Lisp_Object frame
)
4570 struct frame
*f
= decode_window_system_frame (frame
);
4573 CHECK_STRING (prop
);
4575 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4576 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4578 /* Make sure the property is removed when we return. */
4579 XFlush (FRAME_X_DISPLAY (f
));
4586 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4588 doc
: /* Value is the value of window property PROP on FRAME.
4589 If FRAME is nil or omitted, use the selected frame.
4591 On X Windows, the following optional arguments are also accepted:
4592 If TYPE is nil or omitted, get the property as a string.
4593 Otherwise TYPE is the name of the atom that denotes the type expected.
4594 If SOURCE is non-nil, get the property on that window instead of from
4595 FRAME. The number 0 denotes the root window.
4596 If DELETE-P is non-nil, delete the property after retrieving it.
4597 If VECTOR-RET-P is non-nil, don't return a string but a vector of values.
4599 On MS Windows, this function accepts but ignores those optional arguments.
4601 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4602 no value of TYPE (always string in the MS Windows case). */)
4603 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
,
4604 Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4606 struct frame
*f
= decode_window_system_frame (frame
);
4609 Lisp_Object prop_value
= Qnil
;
4610 unsigned char *tmp_data
= NULL
;
4612 Atom target_type
= XA_STRING
;
4614 unsigned long actual_size
, bytes_remaining
;
4615 Window target_window
= FRAME_X_WINDOW (f
);
4616 struct gcpro gcpro1
;
4618 GCPRO1 (prop_value
);
4619 CHECK_STRING (prop
);
4621 if (! NILP (source
))
4623 CONS_TO_INTEGER (source
, Window
, target_window
);
4624 if (! target_window
)
4625 target_window
= FRAME_DISPLAY_INFO (f
)->root_window
;
4631 if (strcmp ("AnyPropertyType", SSDATA (type
)) == 0)
4632 target_type
= AnyPropertyType
;
4634 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4637 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4638 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4639 prop_atom
, 0, 0, False
, target_type
,
4640 &actual_type
, &actual_format
, &actual_size
,
4641 &bytes_remaining
, &tmp_data
);
4644 int size
= bytes_remaining
;
4649 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4650 prop_atom
, 0, bytes_remaining
,
4651 ! NILP (delete_p
), target_type
,
4652 &actual_type
, &actual_format
,
4653 &actual_size
, &bytes_remaining
,
4655 if (rc
== Success
&& tmp_data
)
4657 /* The man page for XGetWindowProperty says:
4658 "If the returned format is 32, the returned data is represented
4659 as a long array and should be cast to that type to obtain the
4661 This applies even if long is more than 32 bits, the X library
4662 converts from 32 bit elements received from the X server to long
4663 and passes the long array to us. Thus, for that case memcpy can not
4664 be used. We convert to a 32 bit type here, because so much code
4667 The bytes and offsets passed to XGetWindowProperty refers to the
4668 property and those are indeed in 32 bit quantities if format is
4671 if (BITS_PER_LONG
> 32 && actual_format
== 32)
4674 int *idata
= (int *) tmp_data
;
4675 long *ldata
= (long *) tmp_data
;
4677 for (i
= 0; i
< actual_size
; ++i
)
4678 idata
[i
] = (int) ldata
[i
];
4681 if (NILP (vector_ret_p
))
4682 prop_value
= make_string ((char *) tmp_data
, size
);
4684 prop_value
= x_property_data_to_lisp (f
,
4691 if (tmp_data
) XFree (tmp_data
);
4701 /***********************************************************************
4703 ***********************************************************************/
4705 /* Timer function of hourglass_atimer. TIMER is equal to
4708 Display an hourglass pointer on all frames by mapping the frames'
4709 hourglass_window. Set the hourglass_p flag in the frames'
4710 output_data.x structure to indicate that an hourglass cursor is
4711 shown on the frames. */
4714 show_hourglass (struct atimer
*timer
)
4716 /* The timer implementation will cancel this timer automatically
4717 after this function has run. Set hourglass_atimer to null
4718 so that we know the timer doesn't have to be canceled. */
4719 hourglass_atimer
= NULL
;
4721 if (!hourglass_shown_p
)
4723 Lisp_Object rest
, frame
;
4727 FOR_EACH_FRAME (rest
, frame
)
4729 struct frame
*f
= XFRAME (frame
);
4731 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4733 Display
*dpy
= FRAME_X_DISPLAY (f
);
4735 #ifdef USE_X_TOOLKIT
4736 if (f
->output_data
.x
->widget
)
4738 if (FRAME_OUTER_WINDOW (f
))
4741 f
->output_data
.x
->hourglass_p
= 1;
4743 if (!f
->output_data
.x
->hourglass_window
)
4745 unsigned long mask
= CWCursor
;
4746 XSetWindowAttributes attrs
;
4748 Window parent
= FRAME_X_WINDOW (f
);
4750 Window parent
= FRAME_OUTER_WINDOW (f
);
4752 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4754 f
->output_data
.x
->hourglass_window
4755 = XCreateWindow (dpy
, parent
,
4756 0, 0, 32000, 32000, 0, 0,
4762 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4768 hourglass_shown_p
= 1;
4774 /* Hide the hourglass pointer on all frames, if it is currently
4778 hide_hourglass (void)
4780 if (hourglass_shown_p
)
4782 Lisp_Object rest
, frame
;
4785 FOR_EACH_FRAME (rest
, frame
)
4787 struct frame
*f
= XFRAME (frame
);
4790 /* Watch out for newly created frames. */
4791 && f
->output_data
.x
->hourglass_window
)
4793 XUnmapWindow (FRAME_X_DISPLAY (f
),
4794 f
->output_data
.x
->hourglass_window
);
4795 /* Sync here because XTread_socket looks at the
4796 hourglass_p flag that is reset to zero below. */
4797 XSync (FRAME_X_DISPLAY (f
), False
);
4798 f
->output_data
.x
->hourglass_p
= 0;
4802 hourglass_shown_p
= 0;
4809 /***********************************************************************
4811 ***********************************************************************/
4813 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4814 Lisp_Object
, Lisp_Object
);
4815 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4816 Lisp_Object
, int, int, int *, int *);
4818 /* The frame of a currently visible tooltip. */
4820 Lisp_Object tip_frame
;
4822 /* If non-nil, a timer started that hides the last tooltip when it
4825 static Lisp_Object tip_timer
;
4828 /* If non-nil, a vector of 3 elements containing the last args
4829 with which x-show-tip was called. See there. */
4831 static Lisp_Object last_show_tip_args
;
4835 unwind_create_tip_frame (Lisp_Object frame
)
4837 Lisp_Object deleted
;
4839 deleted
= unwind_create_frame (frame
);
4840 if (EQ (deleted
, Qt
))
4848 /* Create a frame for a tooltip on the display described by DPYINFO.
4849 PARMS is a list of frame parameters. TEXT is the string to
4850 display in the tip frame. Value is the frame.
4852 Note that functions called here, esp. x_default_parameter can
4853 signal errors, for instance when a specified color name is
4854 undefined. We have to make sure that we're in a consistent state
4855 when this happens. */
4858 x_create_tip_frame (struct x_display_info
*dpyinfo
,
4866 ptrdiff_t count
= SPECPDL_INDEX ();
4867 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4868 int face_change_count_before
= face_change_count
;
4870 struct buffer
*old_buffer
;
4872 if (!dpyinfo
->terminal
->name
)
4873 error ("Terminal is not live, can't create new frames on it");
4875 parms
= Fcopy_alist (parms
);
4877 /* Get the name of the frame to use for resource lookup. */
4878 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4880 && !EQ (name
, Qunbound
)
4882 error ("Invalid frame name--not a string or nil");
4885 GCPRO3 (parms
, name
, frame
);
4887 XSETFRAME (frame
, f
);
4889 buffer
= Fget_buffer_create (build_string (" *tip*"));
4890 /* Use set_window_buffer instead of Fset_window_buffer (see
4891 discussion of bug#11984, bug#12025, bug#12026). */
4892 set_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, 0, 0);
4893 old_buffer
= current_buffer
;
4894 set_buffer_internal_1 (XBUFFER (buffer
));
4895 bset_truncate_lines (current_buffer
, Qnil
);
4896 specbind (Qinhibit_read_only
, Qt
);
4897 specbind (Qinhibit_modification_hooks
, Qt
);
4900 set_buffer_internal_1 (old_buffer
);
4902 record_unwind_protect (unwind_create_tip_frame
, frame
);
4904 f
->terminal
= dpyinfo
->terminal
;
4906 /* By setting the output method, we're essentially saying that
4907 the frame is live, as per FRAME_LIVE_P. If we get a signal
4908 from this point on, x_destroy_window might screw up reference
4910 f
->output_method
= output_x_window
;
4911 f
->output_data
.x
= xzalloc (sizeof *f
->output_data
.x
);
4912 f
->output_data
.x
->icon_bitmap
= -1;
4913 FRAME_FONTSET (f
) = -1;
4914 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4915 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4916 #ifdef USE_TOOLKIT_SCROLL_BARS
4917 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4918 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4919 #endif /* USE_TOOLKIT_SCROLL_BARS */
4920 f
->output_data
.x
->white_relief
.pixel
= -1;
4921 f
->output_data
.x
->black_relief
.pixel
= -1;
4923 fset_icon_name (f
, Qnil
);
4924 FRAME_DISPLAY_INFO (f
) = dpyinfo
;
4925 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
4926 f
->output_data
.x
->explicit_parent
= 0;
4928 /* These colors will be set anyway later, but it's important
4929 to get the color reference counts right, so initialize them! */
4932 struct gcpro gcpro1
;
4934 /* Function x_decode_color can signal an error. Make
4935 sure to initialize color slots so that we won't try
4936 to free colors we haven't allocated. */
4937 FRAME_FOREGROUND_PIXEL (f
) = -1;
4938 FRAME_BACKGROUND_PIXEL (f
) = -1;
4939 f
->output_data
.x
->cursor_pixel
= -1;
4940 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4941 f
->output_data
.x
->border_pixel
= -1;
4942 f
->output_data
.x
->mouse_pixel
= -1;
4944 black
= build_string ("black");
4946 FRAME_FOREGROUND_PIXEL (f
)
4947 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4948 FRAME_BACKGROUND_PIXEL (f
)
4949 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4950 f
->output_data
.x
->cursor_pixel
4951 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4952 f
->output_data
.x
->cursor_foreground_pixel
4953 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4954 f
->output_data
.x
->border_pixel
4955 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4956 f
->output_data
.x
->mouse_pixel
4957 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4961 /* Set the name; the functions to which we pass f expect the name to
4963 if (EQ (name
, Qunbound
) || NILP (name
))
4965 fset_name (f
, build_string (dpyinfo
->x_id_name
));
4966 f
->explicit_name
= 0;
4970 fset_name (f
, name
);
4971 f
->explicit_name
= 1;
4972 /* use the frame's title when getting resources for this frame. */
4973 specbind (Qx_resource_name
, name
);
4976 register_font_driver (&xfont_driver
, f
);
4977 #ifdef HAVE_FREETYPE
4979 register_font_driver (&xftfont_driver
, f
);
4980 #else /* not HAVE_XFT */
4981 register_font_driver (&ftxfont_driver
, f
);
4982 #endif /* not HAVE_XFT */
4983 #endif /* HAVE_FREETYPE */
4985 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4986 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4988 /* Extract the window parameters from the supplied values that are
4989 needed to determine window geometry. */
4990 x_default_font_parameter (f
, parms
);
4992 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
4993 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4995 /* This defaults to 2 in order to match xterm. We recognize either
4996 internalBorderWidth or internalBorder (which is what xterm calls
4998 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5002 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
5003 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
5004 if (! EQ (value
, Qunbound
))
5005 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
5009 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
5010 "internalBorderWidth", "internalBorderWidth",
5012 x_default_parameter (f
, parms
, Qright_divider_width
, make_number (0),
5013 NULL
, NULL
, RES_TYPE_NUMBER
);
5014 x_default_parameter (f
, parms
, Qbottom_divider_width
, make_number (0),
5015 NULL
, NULL
, RES_TYPE_NUMBER
);
5017 /* Also do the stuff which must be set before the window exists. */
5018 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
5019 "foreground", "Foreground", RES_TYPE_STRING
);
5020 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
5021 "background", "Background", RES_TYPE_STRING
);
5022 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
5023 "pointerColor", "Foreground", RES_TYPE_STRING
);
5024 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
5025 "cursorColor", "Foreground", RES_TYPE_STRING
);
5026 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
5027 "borderColor", "BorderColor", RES_TYPE_STRING
);
5030 image_cache_refcount
=
5031 FRAME_IMAGE_CACHE (f
) ? FRAME_IMAGE_CACHE (f
)->refcount
: 0;
5032 dpyinfo_refcount
= dpyinfo
->reference_count
;
5033 #endif /* GLYPH_DEBUG */
5035 /* Init faces before x_default_parameter is called for scroll-bar
5036 parameters because that function calls x_set_scroll_bar_width,
5037 which calls change_frame_size, which calls Fset_window_buffer,
5038 which runs hooks, which call Fvertical_motion. At the end, we
5039 end up in init_iterator with a null face cache, which should not
5041 init_frame_faces (f
);
5043 f
->output_data
.x
->parent_desc
= FRAME_DISPLAY_INFO (f
)->root_window
;
5045 x_figure_window_size (f
, parms
, 0);
5048 XSetWindowAttributes attrs
;
5050 Atom type
= FRAME_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
5053 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
5054 if (DoesSaveUnders (dpyinfo
->screen
))
5055 mask
|= CWSaveUnder
;
5057 /* Window managers look at the override-redirect flag to determine
5058 whether or net to give windows a decoration (Xlib spec, chapter
5060 attrs
.override_redirect
= True
;
5061 attrs
.save_under
= True
;
5062 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
5063 /* Arrange for getting MapNotify and UnmapNotify events. */
5064 attrs
.event_mask
= StructureNotifyMask
;
5066 = FRAME_X_WINDOW (f
)
5067 = XCreateWindow (FRAME_X_DISPLAY (f
),
5068 FRAME_DISPLAY_INFO (f
)->root_window
,
5069 /* x, y, width, height */
5073 CopyFromParent
, InputOutput
, CopyFromParent
,
5075 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
5076 FRAME_DISPLAY_INFO (f
)->Xatom_net_window_type
,
5077 XA_ATOM
, 32, PropModeReplace
,
5078 (unsigned char *)&type
, 1);
5084 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
5085 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
5086 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
5087 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
5088 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
5089 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
5091 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
5092 Change will not be effected unless different from the current
5094 width
= FRAME_COLS (f
);
5095 height
= FRAME_LINES (f
);
5096 SET_FRAME_COLS (f
, 0);
5097 FRAME_LINES (f
) = 0;
5098 change_frame_size (f
, width
, height
, 1, 0, 0, 0);
5100 /* Add `tooltip' frame parameter's default value. */
5101 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
5102 Fmodify_frame_parameters (frame
, list1 (Fcons (Qtooltip
, Qt
)));
5104 /* FIXME - can this be done in a similar way to normal frames?
5105 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
5107 /* Set the `display-type' frame parameter before setting up faces. */
5109 Lisp_Object disptype
;
5111 if (FRAME_DISPLAY_INFO (f
)->n_planes
== 1)
5112 disptype
= intern ("mono");
5113 else if (FRAME_DISPLAY_INFO (f
)->visual
->class == GrayScale
5114 || FRAME_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
5115 disptype
= intern ("grayscale");
5117 disptype
= intern ("color");
5119 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
5120 Fmodify_frame_parameters (frame
, list1 (Fcons (Qdisplay_type
, disptype
)));
5123 /* Set up faces after all frame parameters are known. This call
5124 also merges in face attributes specified for new frames.
5126 Frame parameters may be changed if .Xdefaults contains
5127 specifications for the default font. For example, if there is an
5128 `Emacs.default.attributeBackground: pink', the `background-color'
5129 attribute of the frame get's set, which let's the internal border
5130 of the tooltip frame appear in pink. Prevent this. */
5132 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
5134 /* Set tip_frame here, so that */
5136 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
5138 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
5139 Fmodify_frame_parameters (frame
, list1 (Fcons (Qbackground_color
, bg
)));
5146 /* Now that the frame will be official, it counts as a reference to
5147 its display and terminal. */
5148 FRAME_DISPLAY_INFO (f
)->reference_count
++;
5149 f
->terminal
->reference_count
++;
5151 /* It is now ok to make the frame official even if we get an error
5152 below. And the frame needs to be on Vframe_list or making it
5153 visible won't work. */
5154 Vframe_list
= Fcons (frame
, Vframe_list
);
5157 /* Setting attributes of faces of the tooltip frame from resources
5158 and similar will increment face_change_count, which leads to the
5159 clearing of all current matrices. Since this isn't necessary
5160 here, avoid it by resetting face_change_count to the value it
5161 had before we created the tip frame. */
5162 face_change_count
= face_change_count_before
;
5164 /* Discard the unwind_protect. */
5165 return unbind_to (count
, frame
);
5169 /* Compute where to display tip frame F. PARMS is the list of frame
5170 parameters for F. DX and DY are specified offsets from the current
5171 location of the mouse. WIDTH and HEIGHT are the width and height
5172 of the tooltip. Return coordinates relative to the root window of
5173 the display in *ROOT_X, and *ROOT_Y. */
5176 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
)
5178 Lisp_Object left
, top
;
5183 /* User-specified position? */
5184 left
= Fcdr (Fassq (Qleft
, parms
));
5185 top
= Fcdr (Fassq (Qtop
, parms
));
5187 /* Move the tooltip window where the mouse pointer is. Resize and
5189 if (!INTEGERP (left
) || !INTEGERP (top
))
5192 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_DISPLAY_INFO (f
)->root_window
,
5193 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
5198 *root_y
= XINT (top
);
5199 else if (*root_y
+ XINT (dy
) <= 0)
5200 *root_y
= 0; /* Can happen for negative dy */
5201 else if (*root_y
+ XINT (dy
) + height
5202 <= x_display_pixel_height (FRAME_DISPLAY_INFO (f
)))
5203 /* It fits below the pointer */
5204 *root_y
+= XINT (dy
);
5205 else if (height
+ XINT (dy
) <= *root_y
)
5206 /* It fits above the pointer. */
5207 *root_y
-= height
+ XINT (dy
);
5209 /* Put it on the top. */
5212 if (INTEGERP (left
))
5213 *root_x
= XINT (left
);
5214 else if (*root_x
+ XINT (dx
) <= 0)
5215 *root_x
= 0; /* Can happen for negative dx */
5216 else if (*root_x
+ XINT (dx
) + width
5217 <= x_display_pixel_width (FRAME_DISPLAY_INFO (f
)))
5218 /* It fits to the right of the pointer. */
5219 *root_x
+= XINT (dx
);
5220 else if (width
+ XINT (dx
) <= *root_x
)
5221 /* It fits to the left of the pointer. */
5222 *root_x
-= width
+ XINT (dx
);
5224 /* Put it left-justified on the screen--it ought to fit that way. */
5229 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5230 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5231 A tooltip window is a small X window displaying a string.
5233 This is an internal function; Lisp code should call `tooltip-show'.
5235 FRAME nil or omitted means use the selected frame.
5237 PARMS is an optional list of frame parameters which can be used to
5238 change the tooltip's appearance.
5240 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5241 means use the default timeout of 5 seconds.
5243 If the list of frame parameters PARMS contains a `left' parameters,
5244 the tooltip is displayed at that x-position. Otherwise it is
5245 displayed at the mouse position, with offset DX added (default is 5 if
5246 DX isn't specified). Likewise for the y-position; if a `top' frame
5247 parameter is specified, it determines the y-position of the tooltip
5248 window, otherwise it is displayed at the mouse position, with offset
5249 DY added (default is -10).
5251 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5252 Text larger than the specified size is clipped. */)
5253 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
5258 struct buffer
*old_buffer
;
5259 struct text_pos pos
;
5260 int i
, width
, height
, seen_reversed_p
;
5261 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5262 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5263 ptrdiff_t count
= SPECPDL_INDEX ();
5265 specbind (Qinhibit_redisplay
, Qt
);
5267 GCPRO4 (string
, parms
, frame
, timeout
);
5269 CHECK_STRING (string
);
5270 if (SCHARS (string
) == 0)
5271 string
= make_unibyte_string (" ", 1);
5273 f
= decode_window_system_frame (frame
);
5275 timeout
= make_number (5);
5277 CHECK_NATNUM (timeout
);
5280 dx
= make_number (5);
5285 dy
= make_number (-10);
5290 if (x_gtk_use_system_tooltips
)
5294 /* Hide a previous tip, if any. */
5298 ok
= xg_prepare_tooltip (f
, string
, &width
, &height
);
5301 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5302 xg_show_tooltip (f
, root_x
, root_y
);
5303 /* This is used in Fx_hide_tip. */
5304 XSETFRAME (tip_frame
, f
);
5307 if (ok
) goto start_timer
;
5309 #endif /* USE_GTK */
5311 if (NILP (last_show_tip_args
))
5312 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5314 if (!NILP (tip_frame
))
5316 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5317 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5318 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5320 if (EQ (frame
, last_frame
)
5321 && !NILP (Fequal (last_string
, string
))
5322 && !NILP (Fequal (last_parms
, parms
)))
5324 struct frame
*tip_f
= XFRAME (tip_frame
);
5326 /* Only DX and DY have changed. */
5327 if (!NILP (tip_timer
))
5329 Lisp_Object timer
= tip_timer
;
5331 call1 (Qcancel_timer
, timer
);
5335 compute_tip_xy (tip_f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (tip_f
),
5336 FRAME_PIXEL_HEIGHT (tip_f
), &root_x
, &root_y
);
5337 XMoveWindow (FRAME_X_DISPLAY (tip_f
), FRAME_X_WINDOW (tip_f
),
5344 /* Hide a previous tip, if any. */
5347 ASET (last_show_tip_args
, 0, string
);
5348 ASET (last_show_tip_args
, 1, frame
);
5349 ASET (last_show_tip_args
, 2, parms
);
5351 /* Add default values to frame parameters. */
5352 if (NILP (Fassq (Qname
, parms
)))
5353 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5354 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5355 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5356 if (NILP (Fassq (Qborder_width
, parms
)))
5357 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5358 if (NILP (Fassq (Qbottom_divider_width
, parms
)))
5359 parms
= Fcons (Fcons (Qbottom_divider_width
, make_number (0)), parms
);
5360 if (NILP (Fassq (Qright_divider_width
, parms
)))
5361 parms
= Fcons (Fcons (Qright_divider_width
, make_number (0)), parms
);
5362 if (NILP (Fassq (Qborder_color
, parms
)))
5363 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5364 if (NILP (Fassq (Qbackground_color
, parms
)))
5365 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5368 /* Create a frame for the tooltip, and record it in the global
5369 variable tip_frame. */
5370 frame
= x_create_tip_frame (FRAME_DISPLAY_INFO (f
), parms
, string
);
5373 /* Set up the frame's root window. */
5374 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5380 if (CONSP (Vx_max_tooltip_size
)
5381 && RANGED_INTEGERP (1, XCAR (Vx_max_tooltip_size
), INT_MAX
)
5382 && RANGED_INTEGERP (1, XCDR (Vx_max_tooltip_size
), INT_MAX
))
5384 w
->total_cols
= XFASTINT (XCAR (Vx_max_tooltip_size
));
5385 w
->total_lines
= XFASTINT (XCDR (Vx_max_tooltip_size
));
5390 w
->total_lines
= 40;
5393 w
->pixel_width
= w
->total_cols
* FRAME_COLUMN_WIDTH (f
);
5394 w
->pixel_height
= w
->total_lines
* FRAME_LINE_HEIGHT (f
);
5396 FRAME_TOTAL_COLS (f
) = w
->total_cols
;
5397 adjust_frame_glyphs (f
);
5398 w
->pseudo_window_p
= 1;
5400 /* Display the tooltip text in a temporary buffer. */
5401 old_buffer
= current_buffer
;
5402 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->contents
));
5403 bset_truncate_lines (current_buffer
, Qnil
);
5404 clear_glyph_matrix (w
->desired_matrix
);
5405 clear_glyph_matrix (w
->current_matrix
);
5406 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5407 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5409 /* Compute width and height of the tooltip. */
5410 width
= height
= seen_reversed_p
= 0;
5411 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5413 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5417 /* Stop at the first empty row at the end. */
5418 if (!row
->enabled_p
|| !MATRIX_ROW_DISPLAYS_TEXT_P (row
))
5421 /* Let the row go over the full width of the frame. */
5422 row
->full_width_p
= 1;
5424 row_width
= row
->pixel_width
;
5425 if (row
->used
[TEXT_AREA
])
5427 /* There's a glyph at the end of rows that is used to place
5428 the cursor there. Don't include the width of this glyph. */
5429 if (!row
->reversed_p
)
5431 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5432 if (INTEGERP (last
->object
))
5433 row_width
-= last
->pixel_width
;
5437 /* There could be a stretch glyph at the beginning of R2L
5438 rows that is produced by extend_face_to_end_of_line.
5439 Don't count that glyph. */
5440 struct glyph
*g
= row
->glyphs
[TEXT_AREA
];
5442 if (g
->type
== STRETCH_GLYPH
&& INTEGERP (g
->object
))
5444 row_width
-= g
->pixel_width
;
5445 seen_reversed_p
= 1;
5450 height
+= row
->height
;
5451 width
= max (width
, row_width
);
5454 /* If we've seen partial-length R2L rows, we need to re-adjust the
5455 tool-tip frame width and redisplay it again, to avoid over-wide
5456 tips due to the stretch glyph that extends R2L lines to full
5457 width of the frame. */
5458 if (seen_reversed_p
)
5460 /* w->total_cols and FRAME_TOTAL_COLS want the width in columns,
5462 w
->pixel_width
= width
;
5463 width
/= WINDOW_FRAME_COLUMN_WIDTH (w
);
5464 w
->total_cols
= width
;
5465 FRAME_TOTAL_COLS (f
) = width
;
5466 SET_FRAME_WIDTH (f
, width
);
5467 adjust_frame_glyphs (f
);
5468 clear_glyph_matrix (w
->desired_matrix
);
5469 clear_glyph_matrix (w
->current_matrix
);
5470 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5472 /* Recompute width and height of the tooltip. */
5473 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5475 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5479 if (!row
->enabled_p
|| !MATRIX_ROW_DISPLAYS_TEXT_P (row
))
5481 row
->full_width_p
= 1;
5482 row_width
= row
->pixel_width
;
5483 if (row
->used
[TEXT_AREA
] && !row
->reversed_p
)
5485 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5486 if (INTEGERP (last
->object
))
5487 row_width
-= last
->pixel_width
;
5490 height
+= row
->height
;
5491 width
= max (width
, row_width
);
5495 /* Add the frame's internal border to the width and height the X
5496 window should have. */
5497 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5498 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5500 /* Move the tooltip window where the mouse pointer is. Resize and
5502 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5505 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5506 root_x
, root_y
, width
, height
);
5507 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5510 /* Draw into the window. */
5511 w
->must_be_updated_p
= 1;
5512 update_single_window (w
, 1);
5514 /* Restore original current buffer. */
5515 set_buffer_internal_1 (old_buffer
);
5516 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5519 /* Let the tip disappear after timeout seconds. */
5520 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5521 intern ("x-hide-tip"));
5524 return unbind_to (count
, Qnil
);
5528 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5529 doc
: /* Hide the current tooltip window, if there is any.
5530 Value is t if tooltip was open, nil otherwise. */)
5534 Lisp_Object deleted
, frame
, timer
;
5535 struct gcpro gcpro1
, gcpro2
;
5537 /* Return quickly if nothing to do. */
5538 if (NILP (tip_timer
) && NILP (tip_frame
))
5543 GCPRO2 (frame
, timer
);
5544 tip_frame
= tip_timer
= deleted
= Qnil
;
5546 count
= SPECPDL_INDEX ();
5547 specbind (Qinhibit_redisplay
, Qt
);
5548 specbind (Qinhibit_quit
, Qt
);
5551 call1 (Qcancel_timer
, timer
);
5555 /* When using system tooltip, tip_frame is the Emacs frame on which
5556 the tip is shown. */
5557 struct frame
*f
= XFRAME (frame
);
5558 if (FRAME_LIVE_P (f
) && xg_hide_tooltip (f
))
5565 delete_frame (frame
, Qnil
);
5569 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5570 redisplay procedure is not called when a tip frame over menu
5571 items is unmapped. Redisplay the menu manually... */
5574 struct frame
*f
= SELECTED_FRAME ();
5575 w
= f
->output_data
.x
->menubar_widget
;
5577 if (!DoesSaveUnders (FRAME_DISPLAY_INFO (f
)->screen
)
5581 xlwmenu_redisplay (w
);
5585 #endif /* USE_LUCID */
5589 return unbind_to (count
, deleted
);
5594 /***********************************************************************
5595 File selection dialog
5596 ***********************************************************************/
5598 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5599 Sx_uses_old_gtk_dialog
,
5601 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5607 && window_system_available (SELECTED_FRAME ())
5608 && xg_uses_old_file_dialog ())
5616 /* Callback for "OK" and "Cancel" on file selection dialog. */
5619 file_dialog_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5621 int *result
= client_data
;
5622 XmAnyCallbackStruct
*cb
= call_data
;
5623 *result
= cb
->reason
;
5627 /* Callback for unmapping a file selection dialog. This is used to
5628 capture the case where a dialog is closed via a window manager's
5629 closer button, for example. Using a XmNdestroyCallback didn't work
5633 file_dialog_unmap_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5635 int *result
= client_data
;
5636 *result
= XmCR_CANCEL
;
5640 clean_up_file_dialog (void *arg
)
5642 Widget dialog
= arg
;
5646 XtUnmanageChild (dialog
);
5647 XtDestroyWidget (dialog
);
5648 x_menu_set_in_use (0);
5653 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5654 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5655 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5656 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5657 or directory must exist.
5659 This function is only defined on NS, MS Windows, and X Windows with the
5660 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5661 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5662 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
,
5663 Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5666 struct frame
*f
= SELECTED_FRAME ();
5667 Lisp_Object file
= Qnil
;
5668 Lisp_Object decoded_file
;
5669 Widget dialog
, text
, help
;
5672 XmString dir_xmstring
, pattern_xmstring
;
5673 ptrdiff_t count
= SPECPDL_INDEX ();
5674 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5676 check_window_system (f
);
5678 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5680 if (popup_activated ())
5681 error ("Trying to use a menu from within a menu-entry");
5683 CHECK_STRING (prompt
);
5686 /* Prevent redisplay. */
5687 specbind (Qinhibit_redisplay
, Qt
);
5691 /* Create the dialog with PROMPT as title, using DIR as initial
5692 directory and using "*" as pattern. */
5693 dir
= Fexpand_file_name (dir
, Qnil
);
5694 dir_xmstring
= XmStringCreateLocalized (SSDATA (dir
));
5695 pattern_xmstring
= XmStringCreateLocalized ("*");
5697 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5698 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5699 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5700 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5701 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5702 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5704 XmStringFree (dir_xmstring
);
5705 XmStringFree (pattern_xmstring
);
5707 /* Add callbacks for OK and Cancel. */
5708 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5709 (XtPointer
) &result
);
5710 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5711 (XtPointer
) &result
);
5712 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5713 (XtPointer
) &result
);
5715 /* Remove the help button since we can't display help. */
5716 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5717 XtUnmanageChild (help
);
5719 /* Mark OK button as default. */
5720 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5721 XmNshowAsDefault
, True
, NULL
);
5723 /* If MUSTMATCH is non-nil, disable the file entry field of the
5724 dialog, so that the user must select a file from the files list
5725 box. We can't remove it because we wouldn't have a way to get at
5726 the result file name, then. */
5727 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5728 if (!NILP (mustmatch
))
5731 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5732 XtSetSensitive (text
, False
);
5733 XtSetSensitive (label
, False
);
5736 /* Manage the dialog, so that list boxes get filled. */
5737 XtManageChild (dialog
);
5739 if (STRINGP (default_filename
))
5741 XmString default_xmstring
;
5742 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5743 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5745 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5746 XmTextFieldReplace (wtext
, 0, last_pos
,
5747 (SSDATA (Ffile_name_nondirectory (default_filename
))));
5749 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5750 must include the path for this to work. */
5752 default_xmstring
= XmStringCreateLocalized (SSDATA (default_filename
));
5754 if (XmListItemExists (list
, default_xmstring
))
5756 int item_pos
= XmListItemPos (list
, default_xmstring
);
5757 /* Select the item and scroll it into view. */
5758 XmListSelectPos (list
, item_pos
, True
);
5759 XmListSetPos (list
, item_pos
);
5762 XmStringFree (default_xmstring
);
5765 record_unwind_protect_ptr (clean_up_file_dialog
, dialog
);
5767 /* Process events until the user presses Cancel or OK. */
5768 x_menu_set_in_use (1);
5773 x_menu_wait_for_event (0);
5774 XtAppNextEvent (Xt_app_con
, &event
);
5775 if (event
.type
== KeyPress
5776 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5778 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5780 /* Pop down on C-g. */
5781 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5782 XtUnmanageChild (dialog
);
5785 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5788 /* Get the result. */
5789 if (result
== XmCR_OK
)
5791 XmString text_string
;
5794 XtVaGetValues (dialog
, XmNtextString
, &text_string
, NULL
);
5795 XmStringGetLtoR (text_string
, XmFONTLIST_DEFAULT_TAG
, &data
);
5796 XmStringFree (text_string
);
5797 file
= build_string (data
);
5806 /* Make "Cancel" equivalent to C-g. */
5808 Fsignal (Qquit
, Qnil
);
5810 decoded_file
= DECODE_FILE (file
);
5812 return unbind_to (count
, decoded_file
);
5815 #endif /* USE_MOTIF */
5820 clean_up_dialog (void)
5822 x_menu_set_in_use (0);
5825 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5826 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5827 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5828 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5829 or directory must exist.
5831 This function is only defined on NS, MS Windows, and X Windows with the
5832 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5833 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5834 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5836 struct frame
*f
= SELECTED_FRAME ();
5838 Lisp_Object file
= Qnil
;
5839 Lisp_Object decoded_file
;
5840 ptrdiff_t count
= SPECPDL_INDEX ();
5841 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5844 check_window_system (f
);
5846 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5848 if (popup_activated ())
5849 error ("Trying to use a menu from within a menu-entry");
5851 CHECK_STRING (prompt
);
5854 /* Prevent redisplay. */
5855 specbind (Qinhibit_redisplay
, Qt
);
5856 record_unwind_protect_void (clean_up_dialog
);
5860 if (STRINGP (default_filename
))
5861 cdef_file
= SSDATA (default_filename
);
5863 cdef_file
= SSDATA (dir
);
5865 fn
= xg_get_file_name (f
, SSDATA (prompt
), cdef_file
,
5867 ! NILP (only_dir_p
));
5871 file
= build_string (fn
);
5878 /* Make "Cancel" equivalent to C-g. */
5880 Fsignal (Qquit
, Qnil
);
5882 decoded_file
= DECODE_FILE (file
);
5884 return unbind_to (count
, decoded_file
);
5888 #ifdef HAVE_FREETYPE
5890 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5891 doc
: /* Read a font using a GTK dialog.
5892 Return either a font spec (for GTK versions >= 3.2) or a string
5893 containing a GTK-style font name.
5895 FRAME is the frame on which to pop up the font chooser. If omitted or
5896 nil, it defaults to the selected frame. */)
5897 (Lisp_Object frame
, Lisp_Object ignored
)
5899 struct frame
*f
= decode_window_system_frame (frame
);
5901 Lisp_Object font_param
;
5902 char *default_name
= NULL
;
5903 struct gcpro gcpro1
, gcpro2
;
5904 ptrdiff_t count
= SPECPDL_INDEX ();
5906 if (popup_activated ())
5907 error ("Trying to use a menu from within a menu-entry");
5909 /* Prevent redisplay. */
5910 specbind (Qinhibit_redisplay
, Qt
);
5911 record_unwind_protect_void (clean_up_dialog
);
5915 GCPRO2 (font_param
, font
);
5917 XSETFONT (font
, FRAME_FONT (f
));
5918 font_param
= Ffont_get (font
, intern (":name"));
5919 if (STRINGP (font_param
))
5920 default_name
= xstrdup (SSDATA (font_param
));
5923 font_param
= Fframe_parameter (frame
, Qfont_param
);
5924 if (STRINGP (font_param
))
5925 default_name
= xstrdup (SSDATA (font_param
));
5928 font
= xg_get_font (f
, default_name
);
5929 xfree (default_name
);
5934 Fsignal (Qquit
, Qnil
);
5936 return unbind_to (count
, font
);
5938 #endif /* HAVE_FREETYPE */
5940 #endif /* USE_GTK */
5943 /***********************************************************************
5945 ***********************************************************************/
5948 #include <X11/XKBlib.h>
5949 #include <X11/keysym.h>
5952 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5953 Sx_backspace_delete_keys_p
, 0, 1, 0,
5954 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5955 FRAME nil means use the selected frame.
5956 Value is t if we know that both keys are present, and are mapped to the
5957 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5958 present and mapped to the usual X keysyms. */)
5965 struct frame
*f
= decode_window_system_frame (frame
);
5966 Display
*dpy
= FRAME_X_DISPLAY (f
);
5967 Lisp_Object have_keys
;
5968 int major
, minor
, op
, event
, error_code
;
5972 /* Check library version in case we're dynamically linked. */
5973 major
= XkbMajorVersion
;
5974 minor
= XkbMinorVersion
;
5975 if (!XkbLibraryVersion (&major
, &minor
))
5981 /* Check that the server supports XKB. */
5982 major
= XkbMajorVersion
;
5983 minor
= XkbMinorVersion
;
5984 if (!XkbQueryExtension (dpy
, &op
, &event
, &error_code
, &major
, &minor
))
5990 /* In this code we check that the keyboard has physical keys with names
5991 that start with BKSP (Backspace) and DELE (Delete), and that they
5992 generate keysym XK_BackSpace and XK_Delete respectively.
5993 This function is used to test if normal-erase-is-backspace should be
5995 An alternative approach would be to just check if XK_BackSpace and
5996 XK_Delete are mapped to any key. But if any of those are mapped to
5997 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5998 user doesn't know about it, it is better to return false here.
5999 It is more obvious to the user what to do if she/he has two keys
6000 clearly marked with names/symbols and one key does something not
6001 expected (i.e. she/he then tries the other).
6002 The cases where Backspace/Delete is mapped to some other key combination
6003 are rare, and in those cases, normal-erase-is-backspace can be turned on
6007 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
6010 int delete_keycode
= 0, backspace_keycode
= 0, i
;
6012 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
6014 for (i
= kb
->min_key_code
;
6015 (i
< kb
->max_key_code
6016 && (delete_keycode
== 0 || backspace_keycode
== 0));
6019 /* The XKB symbolic key names can be seen most easily in
6020 the PS file generated by `xkbprint -label name
6022 if (memcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
6024 else if (memcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
6025 backspace_keycode
= i
;
6028 XkbFreeNames (kb
, 0, True
);
6031 XkbFreeClientMap (kb
, 0, True
);
6034 && backspace_keycode
6035 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
6036 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
6046 /***********************************************************************
6048 ***********************************************************************/
6050 /* Keep this list in the same order as frame_parms in frame.c.
6051 Use 0 for unsupported frame parameters. */
6053 frame_parm_handler x_frame_parm_handlers
[] =
6057 x_set_background_color
,
6063 x_set_foreground_color
,
6066 x_set_internal_border_width
,
6067 x_set_right_divider_width
,
6068 x_set_bottom_divider_width
,
6069 x_set_menu_bar_lines
,
6071 x_explicitly_set_name
,
6072 x_set_scroll_bar_width
,
6075 x_set_vertical_scroll_bars
,
6077 x_set_tool_bar_lines
,
6078 x_set_scroll_bar_foreground
,
6079 x_set_scroll_bar_background
,
6089 x_set_tool_bar_position
,
6095 /* The section below is built by the lisp expression at the top of the file,
6096 just above where these variables are declared. */
6097 /*&&& init symbols here &&&*/
6098 DEFSYM (Qsuppress_icon
, "suppress-icon");
6099 DEFSYM (Qundefined_color
, "undefined-color");
6100 DEFSYM (Qcompound_text
, "compound-text");
6101 DEFSYM (Qcancel_timer
, "cancel-timer");
6102 DEFSYM (Qfont_param
, "font-parameter");
6103 /* This is the end of symbol initialization. */
6105 Fput (Qundefined_color
, Qerror_conditions
,
6106 listn (CONSTYPE_PURE
, 2, Qundefined_color
, Qerror
));
6107 Fput (Qundefined_color
, Qerror_message
,
6108 build_pure_c_string ("Undefined color"));
6110 DEFVAR_LISP ("x-pointer-shape", Vx_pointer_shape
,
6111 doc
: /* The shape of the pointer when over text.
6112 Changing the value does not affect existing frames
6113 unless you set the mouse color. */);
6114 Vx_pointer_shape
= Qnil
;
6116 #if 0 /* This doesn't really do anything. */
6117 DEFVAR_LISP ("x-nontext-pointer-shape", Vx_nontext_pointer_shape
,
6118 doc
: /* The shape of the pointer when not over text.
6119 This variable takes effect when you create a new frame
6120 or when you set the mouse color. */);
6122 Vx_nontext_pointer_shape
= Qnil
;
6124 DEFVAR_LISP ("x-hourglass-pointer-shape", Vx_hourglass_pointer_shape
,
6125 doc
: /* The shape of the pointer when Emacs is busy.
6126 This variable takes effect when you create a new frame
6127 or when you set the mouse color. */);
6128 Vx_hourglass_pointer_shape
= Qnil
;
6130 #if 0 /* This doesn't really do anything. */
6131 DEFVAR_LISP ("x-mode-pointer-shape", Vx_mode_pointer_shape
,
6132 doc
: /* The shape of the pointer when over the mode line.
6133 This variable takes effect when you create a new frame
6134 or when you set the mouse color. */);
6136 Vx_mode_pointer_shape
= Qnil
;
6138 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
6139 Vx_sensitive_text_pointer_shape
,
6140 doc
: /* The shape of the pointer when over mouse-sensitive text.
6141 This variable takes effect when you create a new frame
6142 or when you set the mouse color. */);
6143 Vx_sensitive_text_pointer_shape
= Qnil
;
6145 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
6146 Vx_window_horizontal_drag_shape
,
6147 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
6148 This variable takes effect when you create a new frame
6149 or when you set the mouse color. */);
6150 Vx_window_horizontal_drag_shape
= Qnil
;
6152 DEFVAR_LISP ("x-window-vertical-drag-cursor",
6153 Vx_window_vertical_drag_shape
,
6154 doc
: /* Pointer shape to use for indicating a window can be dragged vertically.
6155 This variable takes effect when you create a new frame
6156 or when you set the mouse color. */);
6157 Vx_window_vertical_drag_shape
= Qnil
;
6159 DEFVAR_LISP ("x-cursor-fore-pixel", Vx_cursor_fore_pixel
,
6160 doc
: /* A string indicating the foreground color of the cursor box. */);
6161 Vx_cursor_fore_pixel
= Qnil
;
6163 DEFVAR_LISP ("x-max-tooltip-size", Vx_max_tooltip_size
,
6164 doc
: /* Maximum size for tooltips.
6165 Value is a pair (COLUMNS . ROWS). Text larger than this is clipped. */);
6166 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
6168 DEFVAR_LISP ("x-no-window-manager", Vx_no_window_manager
,
6169 doc
: /* Non-nil if no X window manager is in use.
6170 Emacs doesn't try to figure this out; this is always nil
6171 unless you set it to something else. */);
6172 /* We don't have any way to find this out, so set it to nil
6173 and maybe the user would like to set it to t. */
6174 Vx_no_window_manager
= Qnil
;
6176 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
6177 Vx_pixel_size_width_font_regexp
,
6178 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
6180 Since Emacs gets width of a font matching with this regexp from
6181 PIXEL_SIZE field of the name, font finding mechanism gets faster for
6182 such a font. This is especially effective for such large fonts as
6183 Chinese, Japanese, and Korean. */);
6184 Vx_pixel_size_width_font_regexp
= Qnil
;
6186 /* This is not ifdef:ed, so other builds than GTK can customize it. */
6187 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", x_gtk_use_old_file_dialog
,
6188 doc
: /* Non-nil means prompt with the old GTK file selection dialog.
6189 If nil or if the file selection dialog is not available, the new GTK file
6190 chooser is used instead. To turn off all file dialogs set the
6191 variable `use-file-dialog'. */);
6192 x_gtk_use_old_file_dialog
= 0;
6194 DEFVAR_BOOL ("x-gtk-show-hidden-files", x_gtk_show_hidden_files
,
6195 doc
: /* If non-nil, the GTK file chooser will by default show hidden files.
6196 Note that this is just the default, there is a toggle button on the file
6197 chooser to show or not show hidden files on a case by case basis. */);
6198 x_gtk_show_hidden_files
= 0;
6200 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", x_gtk_file_dialog_help_text
,
6201 doc
: /* If non-nil, the GTK file chooser will show additional help text.
6202 If more space for files in the file chooser dialog is wanted, set this to nil
6203 to turn the additional text off. */);
6204 x_gtk_file_dialog_help_text
= 1;
6206 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", x_gtk_whole_detached_tool_bar
,
6207 doc
: /* If non-nil, a detached tool bar is shown in full.
6208 The default is to just show an arrow and pressing on that arrow shows
6209 the tool bar buttons. */);
6210 x_gtk_whole_detached_tool_bar
= 0;
6212 DEFVAR_BOOL ("x-gtk-use-system-tooltips", x_gtk_use_system_tooltips
,
6213 doc
: /* If non-nil with a Gtk+ built Emacs, the Gtk+ tooltip is used.
6214 Otherwise use Emacs own tooltip implementation.
6215 When using Gtk+ tooltips, the tooltip face is not used. */);
6216 x_gtk_use_system_tooltips
= 1;
6218 /* Tell Emacs about this window system. */
6219 Fprovide (Qx
, Qnil
);
6221 #ifdef USE_X_TOOLKIT
6222 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6224 Fprovide (intern_c_string ("motif"), Qnil
);
6226 DEFVAR_LISP ("motif-version-string", Vmotif_version_string
,
6227 doc
: /* Version info for LessTif/Motif. */);
6228 Vmotif_version_string
= build_string (XmVERSION_STRING
);
6229 #endif /* USE_MOTIF */
6230 #endif /* USE_X_TOOLKIT */
6233 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
6234 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
6235 But for a user it is a toolkit for X, and indeed, configure
6236 accepts --with-x-toolkit=gtk. */
6237 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6238 Fprovide (intern_c_string ("gtk"), Qnil
);
6239 Fprovide (intern_c_string ("move-toolbar"), Qnil
);
6241 DEFVAR_LISP ("gtk-version-string", Vgtk_version_string
,
6242 doc
: /* Version info for GTK+. */);
6244 char gtk_version
[sizeof ".." + 3 * INT_STRLEN_BOUND (int)];
6245 int len
= sprintf (gtk_version
, "%d.%d.%d",
6246 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
6247 Vgtk_version_string
= make_pure_string (gtk_version
, len
, len
, 0);
6249 #endif /* USE_GTK */
6251 /* X window properties. */
6252 defsubr (&Sx_change_window_property
);
6253 defsubr (&Sx_delete_window_property
);
6254 defsubr (&Sx_window_property
);
6256 defsubr (&Sxw_display_color_p
);
6257 defsubr (&Sx_display_grayscale_p
);
6258 defsubr (&Sxw_color_defined_p
);
6259 defsubr (&Sxw_color_values
);
6260 defsubr (&Sx_server_max_request_size
);
6261 defsubr (&Sx_server_vendor
);
6262 defsubr (&Sx_server_version
);
6263 defsubr (&Sx_display_pixel_width
);
6264 defsubr (&Sx_display_pixel_height
);
6265 defsubr (&Sx_display_mm_width
);
6266 defsubr (&Sx_display_mm_height
);
6267 defsubr (&Sx_display_screens
);
6268 defsubr (&Sx_display_planes
);
6269 defsubr (&Sx_display_color_cells
);
6270 defsubr (&Sx_display_visual_class
);
6271 defsubr (&Sx_display_backing_store
);
6272 defsubr (&Sx_display_save_under
);
6273 defsubr (&Sx_display_monitor_attributes_list
);
6274 defsubr (&Sx_wm_set_size_hint
);
6275 defsubr (&Sx_create_frame
);
6276 defsubr (&Sx_open_connection
);
6277 defsubr (&Sx_close_connection
);
6278 defsubr (&Sx_display_list
);
6279 defsubr (&Sx_synchronize
);
6280 defsubr (&Sx_backspace_delete_keys_p
);
6282 defsubr (&Sx_show_tip
);
6283 defsubr (&Sx_hide_tip
);
6285 staticpro (&tip_timer
);
6287 staticpro (&tip_frame
);
6289 last_show_tip_args
= Qnil
;
6290 staticpro (&last_show_tip_args
);
6292 defsubr (&Sx_uses_old_gtk_dialog
);
6293 #if defined (USE_MOTIF) || defined (USE_GTK)
6294 defsubr (&Sx_file_dialog
);
6297 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
6298 defsubr (&Sx_select_font
);