1 /* Functions for the X window system.
3 Copyright (C) 1989, 1992-2013 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/>. */
25 /* This makes the fields of a Display accessible, in Xlib header files. */
27 #define XLIB_ILLEGAL_ACCESS
33 #include "character.h"
35 #include "intervals.h"
36 #include "dispextern.h"
38 #include "blockinput.h"
44 #include "termhooks.h"
51 #include <sys/types.h>
54 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
55 #include "bitmaps/gray.xbm"
57 #include <X11/bitmaps/gray>
60 #include "xsettings.h"
63 #include <X11/extensions/Xrandr.h>
66 #include <X11/extensions/Xinerama.h>
74 #include <X11/Shell.h>
78 #include <X11/Xaw3d/Paned.h>
79 #include <X11/Xaw3d/Label.h>
80 #else /* !HAVE_XAW3D */
81 #include <X11/Xaw/Paned.h>
82 #include <X11/Xaw/Label.h>
83 #endif /* HAVE_XAW3D */
84 #endif /* USE_MOTIF */
87 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
90 #ifdef USG /* Pacify gcc -Wunused-macros. */
98 #include "../lwlib/lwlib.h"
102 #include <Xm/DialogS.h>
103 #include <Xm/FileSB.h>
105 #include <Xm/TextF.h>
109 #include "../lwlib/xlwmenu.h"
112 #if !defined (NO_EDITRES)
114 extern void _XEditResCheckMessages (Widget
, XtPointer
, XEvent
*, Boolean
*);
115 #endif /* not defined NO_EDITRES */
117 /* Unique id counter for widgets created by the Lucid Widget Library. */
119 extern LWLIB_ID widget_id_tick
;
123 #endif /* USE_MOTIF */
125 #endif /* USE_X_TOOLKIT */
131 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
133 static Lisp_Object Qsuppress_icon
;
134 static Lisp_Object Qundefined_color
;
135 static Lisp_Object Qcompound_text
, Qcancel_timer
;
136 Lisp_Object Qfont_param
;
139 static ptrdiff_t image_cache_refcount
;
140 static int dpyinfo_refcount
;
143 static struct x_display_info
*x_display_info_for_name (Lisp_Object
);
145 /* Let the user specify an X display with a Lisp object.
146 OBJECT may be nil, a frame or a terminal object.
147 nil stands for the selected frame--or, if that is not an X frame,
148 the first X display on the list. */
150 struct x_display_info
*
151 check_x_display_info (Lisp_Object object
)
153 struct x_display_info
*dpyinfo
= NULL
;
157 struct frame
*sf
= XFRAME (selected_frame
);
159 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
160 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
161 else if (x_display_list
!= 0)
162 dpyinfo
= x_display_list
;
164 error ("X windows are not in use or not initialized");
166 else if (TERMINALP (object
))
168 struct terminal
*t
= get_terminal (object
, 1);
170 if (t
->type
!= output_x_window
)
171 error ("Terminal %d is not an X display", t
->id
);
173 dpyinfo
= t
->display_info
.x
;
175 else if (STRINGP (object
))
176 dpyinfo
= x_display_info_for_name (object
);
179 FRAME_PTR f
= decode_window_system_frame (object
);
180 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
187 /* Return the Emacs frame-object corresponding to an X window.
188 It could be the frame's main window or an icon window. */
190 /* This function can be called during GC, so use GC_xxx type test macros. */
193 x_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
195 Lisp_Object tail
, frame
;
201 FOR_EACH_FRAME (tail
, frame
)
204 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
206 if (f
->output_data
.x
->hourglass_window
== wdesc
)
209 if ((f
->output_data
.x
->edit_widget
210 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
211 /* A tooltip frame? */
212 || (!f
->output_data
.x
->edit_widget
213 && FRAME_X_WINDOW (f
) == wdesc
)
214 || f
->output_data
.x
->icon_desc
== wdesc
)
216 #else /* not USE_X_TOOLKIT */
218 if (f
->output_data
.x
->edit_widget
)
220 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
221 struct x_output
*x
= f
->output_data
.x
;
222 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
226 if (FRAME_X_WINDOW (f
) == wdesc
227 || f
->output_data
.x
->icon_desc
== wdesc
)
229 #endif /* not USE_X_TOOLKIT */
234 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
235 /* Like x_window_to_frame but also compares the window with the widget's
239 x_any_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
241 Lisp_Object tail
, frame
;
242 struct frame
*f
, *found
= NULL
;
248 FOR_EACH_FRAME (tail
, frame
)
253 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
255 /* This frame matches if the window is any of its widgets. */
256 x
= f
->output_data
.x
;
257 if (x
->hourglass_window
== wdesc
)
262 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
264 && gtk_widget_get_toplevel (gwdesc
) == x
->widget
)
267 if (wdesc
== XtWindow (x
->widget
)
268 || wdesc
== XtWindow (x
->column_widget
)
269 || wdesc
== XtWindow (x
->edit_widget
))
271 /* Match if the window is this frame's menubar. */
272 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
276 else if (FRAME_X_WINDOW (f
) == wdesc
)
277 /* A tooltip frame. */
285 /* Likewise, but consider only the menu bar widget. */
288 x_menubar_window_to_frame (struct x_display_info
*dpyinfo
, XEvent
*event
)
290 Window wdesc
= event
->xany
.window
;
291 Lisp_Object tail
, frame
;
298 FOR_EACH_FRAME (tail
, frame
)
301 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
303 x
= f
->output_data
.x
;
305 if (x
->menubar_widget
&& xg_event_is_for_menubar (f
, event
))
308 /* Match if the window is this frame's menubar. */
309 if (x
->menubar_widget
310 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
317 /* Return the frame whose principal (outermost) window is WDESC.
318 If WDESC is some other (smaller) window, we return 0. */
321 x_top_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
323 Lisp_Object tail
, frame
;
330 FOR_EACH_FRAME (tail
, frame
)
333 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
335 x
= f
->output_data
.x
;
339 /* This frame matches if the window is its topmost widget. */
341 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
342 if (gwdesc
== x
->widget
)
345 if (wdesc
== XtWindow (x
->widget
))
347 #if 0 /* I don't know why it did this,
348 but it seems logically wrong,
349 and it causes trouble for MapNotify events. */
350 /* Match if the window is this frame's menubar. */
351 if (x
->menubar_widget
352 && wdesc
== XtWindow (x
->menubar_widget
))
357 else if (FRAME_X_WINDOW (f
) == wdesc
)
363 #endif /* USE_X_TOOLKIT || USE_GTK */
367 /* Store the screen positions of frame F into XPTR and YPTR.
368 These are the positions of the containing window manager window,
369 not Emacs's own window. */
372 x_real_positions (FRAME_PTR f
, int *xptr
, int *yptr
)
374 int win_x
, win_y
, outer_x
IF_LINT (= 0), outer_y
IF_LINT (= 0);
375 int real_x
= 0, real_y
= 0;
377 Window win
= f
->output_data
.x
->parent_desc
;
379 unsigned long actual_size
, bytes_remaining
;
380 int rc
, actual_format
;
381 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
383 Display
*dpy
= FRAME_X_DISPLAY (f
);
384 unsigned char *tmp_data
= NULL
;
385 Atom target_type
= XA_CARDINAL
;
389 x_catch_errors (dpy
);
391 if (win
== dpyinfo
->root_window
)
392 win
= FRAME_OUTER_WINDOW (f
);
394 /* This loop traverses up the containment tree until we hit the root
395 window. Window managers may intersect many windows between our window
396 and the root window. The window we find just before the root window
397 should be the outer WM window. */
400 Window wm_window
, rootw
;
401 Window
*tmp_children
;
402 unsigned int tmp_nchildren
;
405 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
406 &wm_window
, &tmp_children
, &tmp_nchildren
);
408 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
410 /* Don't free tmp_children if XQueryTree failed. */
414 XFree (tmp_children
);
416 if (wm_window
== rootw
|| had_errors
)
427 /* Get the real coordinates for the WM window upper left corner */
428 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
429 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
431 /* Translate real coordinates to coordinates relative to our
432 window. For our window, the upper left corner is 0, 0.
433 Since the upper left corner of the WM window is outside
434 our window, win_x and win_y will be negative:
436 ------------------ ---> x
438 | ----------------- v y
441 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
443 /* From-window, to-window. */
444 FRAME_X_DISPLAY_INFO (f
)->root_window
,
447 /* From-position, to-position. */
448 real_x
, real_y
, &win_x
, &win_y
,
453 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
460 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
462 /* From-window, to-window. */
463 FRAME_X_DISPLAY_INFO (f
)->root_window
,
464 FRAME_OUTER_WINDOW (f
),
466 /* From-position, to-position. */
467 real_x
, real_y
, &outer_x
, &outer_y
,
473 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
477 if (dpyinfo
->root_window
== f
->output_data
.x
->parent_desc
)
479 /* Try _NET_FRAME_EXTENTS if our parent is the root window. */
480 rc
= XGetWindowProperty (dpy
, win
, dpyinfo
->Xatom_net_frame_extents
,
481 0, max_len
, False
, target_type
,
482 &actual_type
, &actual_format
, &actual_size
,
483 &bytes_remaining
, &tmp_data
);
485 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
486 && actual_size
== 4 && actual_format
== 32)
490 long *fe
= (long *)tmp_data
;
492 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
493 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
501 if (tmp_data
) XFree (tmp_data
);
507 if (had_errors
) return;
509 f
->x_pixels_diff
= -win_x
;
510 f
->y_pixels_diff
= -win_y
;
512 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
513 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
522 /* Gamma-correct COLOR on frame F. */
525 gamma_correct (struct frame
*f
, XColor
*color
)
529 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
530 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
531 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
536 /* Decide if color named COLOR_NAME is valid for use on frame F. If
537 so, return the RGB values in COLOR. If ALLOC_P,
538 allocate the color. Value is false if COLOR_NAME is invalid, or
539 no color could be allocated. */
542 x_defined_color (struct frame
*f
, const char *color_name
,
543 XColor
*color
, bool alloc_p
)
546 Display
*dpy
= FRAME_X_DISPLAY (f
);
547 Colormap cmap
= FRAME_X_COLORMAP (f
);
551 success_p
= xg_check_special_colors (f
, color_name
, color
);
554 success_p
= XParseColor (dpy
, cmap
, color_name
, color
) != 0;
555 if (success_p
&& alloc_p
)
556 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
563 /* Return the pixel color value for color COLOR_NAME on frame F. If F
564 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
565 Signal an error if color can't be allocated. */
568 x_decode_color (FRAME_PTR f
, Lisp_Object color_name
, int mono_color
)
572 CHECK_STRING (color_name
);
574 #if 0 /* Don't do this. It's wrong when we're not using the default
575 colormap, it makes freeing difficult, and it's probably not
576 an important optimization. */
577 if (strcmp (SDATA (color_name
), "black") == 0)
578 return BLACK_PIX_DEFAULT (f
);
579 else if (strcmp (SDATA (color_name
), "white") == 0)
580 return WHITE_PIX_DEFAULT (f
);
583 /* Return MONO_COLOR for monochrome frames. */
584 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
587 /* x_defined_color is responsible for coping with failures
588 by looking for a near-miss. */
589 if (x_defined_color (f
, SSDATA (color_name
), &cdef
, 1))
592 signal_error ("Undefined color", color_name
);
597 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
598 the previous value of that parameter, NEW_VALUE is the new value.
599 See also the comment of wait_for_wm in struct x_output. */
602 x_set_wait_for_wm (struct frame
*f
, Lisp_Object new_value
, Lisp_Object old_value
)
604 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
608 x_set_tool_bar_position (struct frame
*f
,
609 Lisp_Object new_value
,
610 Lisp_Object old_value
)
612 if (! EQ (new_value
, Qleft
) && ! EQ (new_value
, Qright
)
613 && ! EQ (new_value
, Qbottom
) && ! EQ (new_value
, Qtop
))
615 if (EQ (new_value
, old_value
)) return;
618 xg_change_toolbar_position (f
, new_value
);
619 fset_tool_bar_position (f
, new_value
);
625 /* Set icon from FILE for frame F. By using GTK functions the icon
626 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
629 xg_set_icon (FRAME_PTR f
, Lisp_Object file
)
634 found
= x_find_image_file (file
);
640 char *filename
= SSDATA (found
);
643 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
647 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
649 g_object_unref (pixbuf
);
663 xg_set_icon_from_xpm_data (FRAME_PTR f
, const char **data
)
665 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data (data
);
670 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
671 g_object_unref (pixbuf
);
677 /* Functions called only from `x_set_frame_param'
678 to set individual parameters.
680 If FRAME_X_WINDOW (f) is 0,
681 the frame is being created and its X-window does not exist yet.
682 In that case, just record the parameter's new value
683 in the standard place; do not attempt to change the window. */
686 x_set_foreground_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
688 struct x_output
*x
= f
->output_data
.x
;
689 unsigned long fg
, old_fg
;
691 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
692 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
693 FRAME_FOREGROUND_PIXEL (f
) = fg
;
695 if (FRAME_X_WINDOW (f
) != 0)
697 Display
*dpy
= FRAME_X_DISPLAY (f
);
700 XSetForeground (dpy
, x
->normal_gc
, fg
);
701 XSetBackground (dpy
, x
->reverse_gc
, fg
);
703 if (x
->cursor_pixel
== old_fg
)
705 unload_color (f
, x
->cursor_pixel
);
706 x
->cursor_pixel
= x_copy_color (f
, fg
);
707 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
712 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
714 if (FRAME_VISIBLE_P (f
))
718 unload_color (f
, old_fg
);
722 x_set_background_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
724 struct x_output
*x
= f
->output_data
.x
;
727 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
728 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
729 FRAME_BACKGROUND_PIXEL (f
) = bg
;
731 if (FRAME_X_WINDOW (f
) != 0)
733 Display
*dpy
= FRAME_X_DISPLAY (f
);
736 XSetBackground (dpy
, x
->normal_gc
, bg
);
737 XSetForeground (dpy
, x
->reverse_gc
, bg
);
738 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
739 XSetForeground (dpy
, x
->cursor_gc
, bg
);
742 xg_set_background_color (f
, bg
);
745 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
746 toolkit scroll bars. */
749 for (bar
= FRAME_SCROLL_BARS (f
);
751 bar
= XSCROLL_BAR (bar
)->next
)
753 Window window
= XSCROLL_BAR (bar
)->x_window
;
754 XSetWindowBackground (dpy
, window
, bg
);
757 #endif /* USE_TOOLKIT_SCROLL_BARS */
760 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
762 if (FRAME_VISIBLE_P (f
))
768 make_invisible_cursor (struct frame
*f
)
770 Display
*dpy
= FRAME_X_DISPLAY (f
);
771 static char const no_data
[] = { 0 };
776 x_catch_errors (dpy
);
777 pix
= XCreateBitmapFromData (dpy
, FRAME_X_DISPLAY_INFO (f
)->root_window
,
779 if (! x_had_errors_p (dpy
) && pix
!= None
)
783 col
.red
= col
.green
= col
.blue
= 0;
784 col
.flags
= DoRed
| DoGreen
| DoBlue
;
785 pixc
= XCreatePixmapCursor (dpy
, pix
, pix
, &col
, &col
, 0, 0);
786 if (! x_had_errors_p (dpy
) && pixc
!= None
)
788 XFreePixmap (dpy
, pix
);
797 x_set_mouse_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
799 struct x_output
*x
= f
->output_data
.x
;
800 Display
*dpy
= FRAME_X_DISPLAY (f
);
801 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
802 Cursor hourglass_cursor
, horizontal_drag_cursor
;
803 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
804 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
806 /* Don't let pointers be invisible. */
807 if (mask_color
== pixel
)
809 x_free_colors (f
, &pixel
, 1);
810 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
813 unload_color (f
, x
->mouse_pixel
);
814 x
->mouse_pixel
= pixel
;
818 /* It's not okay to crash if the user selects a screwy cursor. */
819 x_catch_errors (dpy
);
821 if (!NILP (Vx_pointer_shape
))
823 CHECK_NUMBER (Vx_pointer_shape
);
824 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
827 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
828 x_check_errors (dpy
, "bad text pointer cursor: %s");
830 if (!NILP (Vx_nontext_pointer_shape
))
832 CHECK_NUMBER (Vx_nontext_pointer_shape
);
834 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
837 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
838 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
840 if (!NILP (Vx_hourglass_pointer_shape
))
842 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
844 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
847 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
848 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
850 if (!NILP (Vx_mode_pointer_shape
))
852 CHECK_NUMBER (Vx_mode_pointer_shape
);
853 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
856 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
857 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
859 if (!NILP (Vx_sensitive_text_pointer_shape
))
861 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
863 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
866 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
868 if (!NILP (Vx_window_horizontal_drag_shape
))
870 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
871 horizontal_drag_cursor
872 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
875 horizontal_drag_cursor
876 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
878 /* Check and report errors with the above calls. */
879 x_check_errors (dpy
, "can't set cursor shape: %s");
883 XColor fore_color
, back_color
;
885 fore_color
.pixel
= x
->mouse_pixel
;
886 x_query_color (f
, &fore_color
);
887 back_color
.pixel
= mask_color
;
888 x_query_color (f
, &back_color
);
890 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
891 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
892 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
893 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
894 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
895 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
898 if (FRAME_X_WINDOW (f
) != 0)
899 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
900 f
->output_data
.x
->current_cursor
= cursor
);
902 if (FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
== 0)
903 FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
= make_invisible_cursor (f
);
905 if (cursor
!= x
->text_cursor
906 && x
->text_cursor
!= 0)
907 XFreeCursor (dpy
, x
->text_cursor
);
908 x
->text_cursor
= cursor
;
910 if (nontext_cursor
!= x
->nontext_cursor
911 && x
->nontext_cursor
!= 0)
912 XFreeCursor (dpy
, x
->nontext_cursor
);
913 x
->nontext_cursor
= nontext_cursor
;
915 if (hourglass_cursor
!= x
->hourglass_cursor
916 && x
->hourglass_cursor
!= 0)
917 XFreeCursor (dpy
, x
->hourglass_cursor
);
918 x
->hourglass_cursor
= hourglass_cursor
;
920 if (mode_cursor
!= x
->modeline_cursor
921 && x
->modeline_cursor
!= 0)
922 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
923 x
->modeline_cursor
= mode_cursor
;
925 if (hand_cursor
!= x
->hand_cursor
926 && x
->hand_cursor
!= 0)
927 XFreeCursor (dpy
, x
->hand_cursor
);
928 x
->hand_cursor
= hand_cursor
;
930 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
931 && x
->horizontal_drag_cursor
!= 0)
932 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
933 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
938 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
942 x_set_cursor_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
944 unsigned long fore_pixel
, pixel
;
945 bool fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
946 struct x_output
*x
= f
->output_data
.x
;
948 if (!NILP (Vx_cursor_fore_pixel
))
950 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
951 WHITE_PIX_DEFAULT (f
));
952 fore_pixel_allocated_p
= 1;
955 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
957 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
958 pixel_allocated_p
= 1;
960 /* Make sure that the cursor color differs from the background color. */
961 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
963 if (pixel_allocated_p
)
965 x_free_colors (f
, &pixel
, 1);
966 pixel_allocated_p
= 0;
969 pixel
= x
->mouse_pixel
;
970 if (pixel
== fore_pixel
)
972 if (fore_pixel_allocated_p
)
974 x_free_colors (f
, &fore_pixel
, 1);
975 fore_pixel_allocated_p
= 0;
977 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
981 unload_color (f
, x
->cursor_foreground_pixel
);
982 if (!fore_pixel_allocated_p
)
983 fore_pixel
= x_copy_color (f
, fore_pixel
);
984 x
->cursor_foreground_pixel
= fore_pixel
;
986 unload_color (f
, x
->cursor_pixel
);
987 if (!pixel_allocated_p
)
988 pixel
= x_copy_color (f
, pixel
);
989 x
->cursor_pixel
= pixel
;
991 if (FRAME_X_WINDOW (f
) != 0)
994 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
995 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
998 if (FRAME_VISIBLE_P (f
))
1000 x_update_cursor (f
, 0);
1001 x_update_cursor (f
, 1);
1005 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1008 /* Set the border-color of frame F to pixel value PIX.
1009 Note that this does not fully take effect if done before
1010 F has an x-window. */
1013 x_set_border_pixel (struct frame
*f
, int pix
)
1015 unload_color (f
, f
->output_data
.x
->border_pixel
);
1016 f
->output_data
.x
->border_pixel
= pix
;
1018 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1021 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), pix
);
1024 if (FRAME_VISIBLE_P (f
))
1029 /* Set the border-color of frame F to value described by ARG.
1030 ARG can be a string naming a color.
1031 The border-color is used for the border that is drawn by the X server.
1032 Note that this does not fully take effect if done before
1033 F has an x-window; it must be redone when the window is created.
1035 Note: this is done in two routines because of the way X10 works.
1037 Note: under X11, this is normally the province of the window manager,
1038 and so emacs' border colors may be overridden. */
1041 x_set_border_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1046 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1047 x_set_border_pixel (f
, pix
);
1048 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1053 x_set_cursor_type (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1055 set_frame_cursor_types (f
, arg
);
1057 /* Make sure the cursor gets redrawn. */
1058 cursor_type_changed
= 1;
1062 x_set_icon_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1068 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1071 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1076 result
= x_text_icon (f
,
1077 SSDATA ((!NILP (f
->icon_name
)
1081 result
= x_bitmap_icon (f
, arg
);
1086 error ("No icon window available");
1089 XFlush (FRAME_X_DISPLAY (f
));
1094 x_set_icon_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1100 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1103 else if (!NILP (arg
) || NILP (oldval
))
1106 fset_icon_name (f
, arg
);
1108 if (f
->output_data
.x
->icon_bitmap
!= 0)
1113 result
= x_text_icon (f
,
1114 SSDATA ((!NILP (f
->icon_name
)
1123 error ("No icon window available");
1126 XFlush (FRAME_X_DISPLAY (f
));
1132 x_set_menu_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1135 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1136 int olines
= FRAME_MENU_BAR_LINES (f
);
1139 /* Right now, menu bars don't work properly in minibuf-only frames;
1140 most of the commands try to apply themselves to the minibuffer
1141 frame itself, and get an error because you can't switch buffers
1142 in or split the minibuffer window. */
1143 if (FRAME_MINIBUF_ONLY_P (f
))
1146 if (TYPE_RANGED_INTEGERP (int, value
))
1147 nlines
= XINT (value
);
1151 /* Make sure we redisplay all windows in this frame. */
1152 windows_or_buffers_changed
++;
1154 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1155 FRAME_MENU_BAR_LINES (f
) = 0;
1158 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1159 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1160 /* Make sure next redisplay shows the menu bar. */
1161 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= 1;
1165 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1166 free_frame_menubar (f
);
1167 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1169 f
->output_data
.x
->menubar_widget
= 0;
1171 #else /* not USE_X_TOOLKIT && not USE_GTK */
1172 FRAME_MENU_BAR_LINES (f
) = nlines
;
1173 resize_frame_windows (f
, FRAME_LINES (f
), 0);
1175 /* If the menu bar height gets changed, the internal border below
1176 the top margin has to be cleared. Also, if the menu bar gets
1177 larger, the area for the added lines has to be cleared except for
1178 the first menu bar line that is to be drawn later. */
1179 if (nlines
!= olines
)
1181 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1182 int width
= FRAME_PIXEL_WIDTH (f
);
1185 /* height can be zero here. */
1186 if (height
> 0 && width
> 0)
1188 y
= FRAME_TOP_MARGIN_HEIGHT (f
);
1191 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1192 0, y
, width
, height
, False
);
1196 if (nlines
> 1 && nlines
> olines
)
1198 y
= (olines
== 0 ? 1 : olines
) * FRAME_LINE_HEIGHT (f
);
1199 height
= nlines
* FRAME_LINE_HEIGHT (f
) - y
;
1202 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1203 0, y
, width
, height
, False
);
1207 if (nlines
== 0 && WINDOWP (f
->menu_bar_window
))
1208 clear_glyph_matrix (XWINDOW (f
->menu_bar_window
)->current_matrix
);
1210 #endif /* not USE_X_TOOLKIT && not USE_GTK */
1212 run_window_configuration_change_hook (f
);
1216 /* Set the number of lines used for the tool bar of frame F to VALUE.
1217 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1218 is the old number of tool bar lines. This function changes the
1219 height of all windows on frame F to match the new tool bar height.
1220 The frame's height doesn't change. */
1223 x_set_tool_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1225 int delta
, nlines
, root_height
;
1226 Lisp_Object root_window
;
1228 /* Treat tool bars like menu bars. */
1229 if (FRAME_MINIBUF_ONLY_P (f
))
1232 /* Use VALUE only if an int >= 0. */
1233 if (RANGED_INTEGERP (0, value
, INT_MAX
))
1234 nlines
= XFASTINT (value
);
1239 FRAME_TOOL_BAR_LINES (f
) = 0;
1242 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1243 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1244 /* Make sure next redisplay shows the tool bar. */
1245 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= 1;
1246 update_frame_tool_bar (f
);
1250 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1251 free_frame_tool_bar (f
);
1252 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1258 /* Make sure we redisplay all windows in this frame. */
1259 ++windows_or_buffers_changed
;
1261 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1263 /* Don't resize the tool-bar to more than we have room for. */
1264 root_window
= FRAME_ROOT_WINDOW (f
);
1265 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1266 if (root_height
- delta
< 1)
1268 delta
= root_height
- 1;
1269 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1272 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1273 resize_frame_windows (f
, FRAME_LINES (f
), 0);
1276 /* We also have to make sure that the internal border at the top of
1277 the frame, below the menu bar or tool bar, is redrawn when the
1278 tool bar disappears. This is so because the internal border is
1279 below the tool bar if one is displayed, but is below the menu bar
1280 if there isn't a tool bar. The tool bar draws into the area
1281 below the menu bar. */
1282 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1285 clear_current_matrices (f
);
1288 /* If the tool bar gets smaller, the internal border below it
1289 has to be cleared. It was formerly part of the display
1290 of the larger tool bar, and updating windows won't clear it. */
1293 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1294 int width
= FRAME_PIXEL_WIDTH (f
);
1295 int y
= (FRAME_MENU_BAR_LINES (f
) + nlines
) * FRAME_LINE_HEIGHT (f
);
1297 /* height can be zero here. */
1298 if (height
> 0 && width
> 0)
1301 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1302 0, y
, width
, height
, False
);
1306 if (WINDOWP (f
->tool_bar_window
))
1307 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1310 run_window_configuration_change_hook (f
);
1315 /* Set the foreground color for scroll bars on frame F to VALUE.
1316 VALUE should be a string, a color name. If it isn't a string or
1317 isn't a valid color name, do nothing. OLDVAL is the old value of
1318 the frame parameter. */
1321 x_set_scroll_bar_foreground (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1323 unsigned long pixel
;
1325 if (STRINGP (value
))
1326 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1330 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1331 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1333 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1334 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1336 /* Remove all scroll bars because they have wrong colors. */
1337 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1338 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1339 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1340 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1342 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1348 /* Set the background color for scroll bars on frame F to VALUE VALUE
1349 should be a string, a color name. If it isn't a string or isn't a
1350 valid color name, do nothing. OLDVAL is the old value of the frame
1354 x_set_scroll_bar_background (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1356 unsigned long pixel
;
1358 if (STRINGP (value
))
1359 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1363 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1364 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1366 #ifdef USE_TOOLKIT_SCROLL_BARS
1367 /* Scrollbar shadow colors. */
1368 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1370 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1371 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1373 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1375 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1376 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1378 #endif /* USE_TOOLKIT_SCROLL_BARS */
1380 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1381 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1383 /* Remove all scroll bars because they have wrong colors. */
1384 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1385 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1386 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1387 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1389 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1395 /* Encode Lisp string STRING as a text in a format appropriate for
1396 XICCC (X Inter Client Communication Conventions).
1398 This can call Lisp code, so callers must GCPRO.
1400 If STRING contains only ASCII characters, do no conversion and
1401 return the string data of STRING. Otherwise, encode the text by
1402 CODING_SYSTEM, and return a newly allocated memory area which
1403 should be freed by `xfree' by a caller.
1405 SELECTIONP non-zero means the string is being encoded for an X
1406 selection, so it is safe to run pre-write conversions (which
1409 Store the byte length of resulting text in *TEXT_BYTES.
1411 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1412 which means that the `encoding' of the result can be `STRING'.
1413 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1414 the result should be `COMPOUND_TEXT'. */
1416 static unsigned char *
1417 x_encode_text (Lisp_Object string
, Lisp_Object coding_system
, int selectionp
,
1418 ptrdiff_t *text_bytes
, int *stringp
, int *freep
)
1420 int result
= string_xstring_p (string
);
1421 struct coding_system coding
;
1425 /* No multibyte character in OBJ. We need not encode it. */
1426 *text_bytes
= SBYTES (string
);
1429 return SDATA (string
);
1432 setup_coding_system (coding_system
, &coding
);
1433 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1434 /* We suppress producing escape sequences for composition. */
1435 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1436 coding
.destination
= xnmalloc (SCHARS (string
), 2);
1437 coding
.dst_bytes
= SCHARS (string
) * 2;
1438 encode_coding_object (&coding
, string
, 0, 0,
1439 SCHARS (string
), SBYTES (string
), Qnil
);
1440 *text_bytes
= coding
.produced
;
1441 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1443 return coding
.destination
;
1447 /* Set the WM name to NAME for frame F. Also set the icon name.
1448 If the frame already has an icon name, use that, otherwise set the
1449 icon name to NAME. */
1452 x_set_name_internal (FRAME_PTR f
, Lisp_Object name
)
1454 if (FRAME_X_WINDOW (f
))
1458 XTextProperty text
, icon
;
1461 int do_free_icon_value
= 0, do_free_text_value
= 0;
1462 Lisp_Object coding_system
;
1463 Lisp_Object encoded_name
;
1464 Lisp_Object encoded_icon_name
;
1465 struct gcpro gcpro1
;
1467 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1468 we use it before x_encode_text that may return string data. */
1470 encoded_name
= ENCODE_UTF_8 (name
);
1473 coding_system
= Qcompound_text
;
1474 /* Note: Encoding strategy
1476 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1477 text.encoding. But, there are non-internationalized window
1478 managers which don't support that encoding. So, if NAME
1479 contains only ASCII and 8859-1 characters, encode it by
1480 iso-latin-1, and use "STRING" in text.encoding hoping that
1481 such window managers at least analyze this format correctly,
1482 i.e. treat 8-bit bytes as 8859-1 characters.
1484 We may also be able to use "UTF8_STRING" in text.encoding
1485 in the future which can encode all Unicode characters.
1486 But, for the moment, there's no way to know that the
1487 current window manager supports it or not.
1489 Either way, we also set the _NET_WM_NAME and _NET_WM_ICON_NAME
1490 properties. Per the EWMH specification, those two properties
1491 are always UTF8_STRING. This matches what gtk_window_set_title()
1492 does in the USE_GTK case. */
1493 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1494 &do_free_text_value
);
1495 text
.encoding
= (stringp
? XA_STRING
1496 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1498 text
.nitems
= bytes
;
1499 if (text
.nitems
!= bytes
)
1500 error ("Window name too large");
1502 if (!STRINGP (f
->icon_name
))
1505 encoded_icon_name
= encoded_name
;
1509 /* See the above comment "Note: Encoding strategy". */
1510 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1511 &bytes
, &stringp
, &do_free_icon_value
);
1512 icon
.encoding
= (stringp
? XA_STRING
1513 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1515 icon
.nitems
= bytes
;
1516 if (icon
.nitems
!= bytes
)
1517 error ("Icon name too large");
1519 encoded_icon_name
= ENCODE_UTF_8 (f
->icon_name
);
1523 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1524 SSDATA (encoded_name
));
1525 #else /* not USE_GTK */
1526 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1527 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1528 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_name
,
1529 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1531 SDATA (encoded_name
),
1532 SBYTES (encoded_name
));
1533 #endif /* not USE_GTK */
1535 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1536 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1537 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_icon_name
,
1538 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1540 SDATA (encoded_icon_name
),
1541 SBYTES (encoded_icon_name
));
1543 if (do_free_icon_value
)
1545 if (do_free_text_value
)
1552 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1555 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1556 name; if NAME is a string, set F's name to NAME and set
1557 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1559 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1560 suggesting a new name, which lisp code should override; if
1561 F->explicit_name is set, ignore the new name; otherwise, set it. */
1564 x_set_name (struct frame
*f
, Lisp_Object name
, int explicit)
1566 /* Make sure that requests from lisp code override requests from
1567 Emacs redisplay code. */
1570 /* If we're switching from explicit to implicit, we had better
1571 update the mode lines and thereby update the title. */
1572 if (f
->explicit_name
&& NILP (name
))
1573 update_mode_lines
= 1;
1575 f
->explicit_name
= ! NILP (name
);
1577 else if (f
->explicit_name
)
1580 /* If NAME is nil, set the name to the x_id_name. */
1583 /* Check for no change needed in this very common case
1584 before we do any consing. */
1585 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1588 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1591 CHECK_STRING (name
);
1593 /* Don't change the name if it's already NAME. */
1594 if (! NILP (Fstring_equal (name
, f
->name
)))
1597 fset_name (f
, name
);
1599 /* For setting the frame title, the title parameter should override
1600 the name parameter. */
1601 if (! NILP (f
->title
))
1604 x_set_name_internal (f
, name
);
1607 /* This function should be called when the user's lisp code has
1608 specified a name for the frame; the name will override any set by the
1611 x_explicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1613 x_set_name (f
, arg
, 1);
1616 /* This function should be called by Emacs redisplay code to set the
1617 name; names set this way will never override names set by the user's
1620 x_implicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1622 x_set_name (f
, arg
, 0);
1625 /* Change the title of frame F to NAME.
1626 If NAME is nil, use the frame name as the title. */
1629 x_set_title (struct frame
*f
, Lisp_Object name
, Lisp_Object old_name
)
1631 /* Don't change the title if it's already NAME. */
1632 if (EQ (name
, f
->title
))
1635 update_mode_lines
= 1;
1637 fset_title (f
, name
);
1642 CHECK_STRING (name
);
1644 x_set_name_internal (f
, name
);
1648 x_set_scroll_bar_default_width (struct frame
*f
)
1650 int wid
= FRAME_COLUMN_WIDTH (f
);
1651 #ifdef USE_TOOLKIT_SCROLL_BARS
1653 int minw
= xg_get_default_scrollbar_width ();
1657 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1658 int width
= minw
+ 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1659 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1660 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1662 /* Make the actual width at least 14 pixels and a multiple of a
1664 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1666 /* Use all of that space (aside from required margins) for the
1668 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1673 /* Record in frame F the specified or default value according to ALIST
1674 of the parameter named PROP (a Lisp symbol). If no value is
1675 specified for PROP, look for an X default for XPROP on the frame
1676 named NAME. If that is not found either, use the value DEFLT. */
1679 x_default_scroll_bar_color_parameter (struct frame
*f
,
1680 Lisp_Object alist
, Lisp_Object prop
,
1681 const char *xprop
, const char *xclass
,
1684 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1687 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1688 if (EQ (tem
, Qunbound
))
1690 #ifdef USE_TOOLKIT_SCROLL_BARS
1692 /* See if an X resource for the scroll bar color has been
1694 tem
= display_x_get_resource (dpyinfo
,
1695 build_string (foreground_p
1698 empty_unibyte_string
,
1699 build_string ("verticalScrollBar"),
1700 empty_unibyte_string
);
1703 /* If nothing has been specified, scroll bars will use a
1704 toolkit-dependent default. Because these defaults are
1705 difficult to get at without actually creating a scroll
1706 bar, use nil to indicate that no color has been
1711 #else /* not USE_TOOLKIT_SCROLL_BARS */
1715 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1718 x_set_frame_parameters (f
, list1 (Fcons (prop
, tem
)));
1725 #ifdef USE_X_TOOLKIT
1727 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1728 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1729 already be present because of the toolkit (Motif adds some of them,
1730 for example, but Xt doesn't). */
1733 hack_wm_protocols (FRAME_PTR f
, Widget widget
)
1735 Display
*dpy
= XtDisplay (widget
);
1736 Window w
= XtWindow (widget
);
1737 int need_delete
= 1;
1744 unsigned char *catoms
;
1746 unsigned long nitems
= 0;
1747 unsigned long bytes_after
;
1749 if ((XGetWindowProperty (dpy
, w
,
1750 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1751 (long)0, (long)100, False
, XA_ATOM
,
1752 &type
, &format
, &nitems
, &bytes_after
,
1755 && format
== 32 && type
== XA_ATOM
)
1757 Atom
*atoms
= (Atom
*) catoms
;
1762 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1764 else if (atoms
[nitems
]
1765 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1767 else if (atoms
[nitems
]
1768 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1779 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1781 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1783 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1785 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1786 XA_ATOM
, 32, PropModeAppend
,
1787 (unsigned char *) props
, count
);
1795 /* Support routines for XIC (X Input Context). */
1799 static XFontSet
xic_create_xfontset (struct frame
*);
1800 static XIMStyle
best_xim_style (XIMStyles
*, XIMStyles
*);
1803 /* Supported XIM styles, ordered by preference. */
1805 static XIMStyle supported_xim_styles
[] =
1807 XIMPreeditPosition
| XIMStatusArea
,
1808 XIMPreeditPosition
| XIMStatusNothing
,
1809 XIMPreeditPosition
| XIMStatusNone
,
1810 XIMPreeditNothing
| XIMStatusArea
,
1811 XIMPreeditNothing
| XIMStatusNothing
,
1812 XIMPreeditNothing
| XIMStatusNone
,
1813 XIMPreeditNone
| XIMStatusArea
,
1814 XIMPreeditNone
| XIMStatusNothing
,
1815 XIMPreeditNone
| XIMStatusNone
,
1820 #if defined HAVE_X_WINDOWS && defined USE_X_TOOLKIT
1821 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1823 static const char xic_default_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1825 /* Create an Xt fontset spec from the name of a base font.
1826 If `motif' is True use the Motif syntax. */
1828 xic_create_fontsetname (const char *base_fontname
, int motif
)
1830 const char *sep
= motif
? ";" : ",";
1833 /* Make a fontset name from the base font name. */
1834 if (xic_default_fontset
== base_fontname
)
1836 /* There is no base font name, use the default. */
1837 fontsetname
= xmalloc (strlen (base_fontname
) + 2);
1838 strcpy (fontsetname
, base_fontname
);
1842 /* Make a fontset name from the base font name.
1843 The font set will be made of the following elements:
1845 - the base font where the charset spec is replaced by -*-*.
1846 - the same but with the family also replaced with -*-*-. */
1847 const char *p
= base_fontname
;
1850 for (i
= 0; *p
; p
++)
1854 /* As the font name doesn't conform to XLFD, we can't
1855 modify it to generalize it to allcs and allfamilies.
1856 Use the specified font plus the default. */
1857 fontsetname
= xmalloc (strlen (base_fontname
)
1858 + strlen (xic_default_fontset
) + 3);
1859 strcpy (fontsetname
, base_fontname
);
1860 strcat (fontsetname
, sep
);
1861 strcat (fontsetname
, xic_default_fontset
);
1866 const char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1867 char *font_allcs
= NULL
;
1868 char *font_allfamilies
= NULL
;
1869 char *font_all
= NULL
;
1870 const char *allcs
= "*-*-*-*-*-*-*";
1871 const char *allfamilies
= "-*-*-";
1872 const char *all
= "*-*-*-*-";
1875 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
1888 /* If base_fontname specifies ADSTYLE, make it a
1892 ptrdiff_t diff
= (p2
- p3
) - 2;
1894 base
= alloca (strlen (base_fontname
) + 1);
1895 memcpy (base
, base_fontname
, p3
- base_fontname
);
1896 base
[p3
- base_fontname
] = '*';
1897 base
[(p3
- base_fontname
) + 1] = '-';
1898 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
1899 p
= base
+ (p
- base_fontname
) - diff
;
1900 p1
= base
+ (p1
- base_fontname
);
1901 p2
= base
+ (p2
- base_fontname
) - diff
;
1902 base_fontname
= base
;
1905 /* Build the font spec that matches all charsets. */
1906 len
= p
- base_fontname
+ strlen (allcs
) + 1;
1907 font_allcs
= alloca (len
);
1908 memcpy (font_allcs
, base_fontname
, p
- base_fontname
);
1909 strcat (font_allcs
, allcs
);
1911 /* Build the font spec that matches all families and
1913 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
1914 font_allfamilies
= alloca (len
);
1915 strcpy (font_allfamilies
, allfamilies
);
1916 memcpy (font_allfamilies
+ strlen (allfamilies
), p1
, p
- p1
);
1917 strcat (font_allfamilies
, allcs
);
1919 /* Build the font spec that matches all. */
1920 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
1921 font_all
= alloca (len
);
1922 strcpy (font_all
, allfamilies
);
1923 strcat (font_all
, all
);
1924 memcpy (font_all
+ strlen (all
) + strlen (allfamilies
), p2
, p
- p2
);
1925 strcat (font_all
, allcs
);
1927 /* Build the actual font set name. */
1928 len
= strlen (base_fontname
) + strlen (font_allcs
)
1929 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
1930 fontsetname
= xmalloc (len
);
1931 strcpy (fontsetname
, base_fontname
);
1932 strcat (fontsetname
, sep
);
1933 strcat (fontsetname
, font_allcs
);
1934 strcat (fontsetname
, sep
);
1935 strcat (fontsetname
, font_allfamilies
);
1936 strcat (fontsetname
, sep
);
1937 strcat (fontsetname
, font_all
);
1941 strcat (fontsetname
, ":");
1944 #endif /* HAVE_X_WINDOWS && USE_X_TOOLKIT */
1946 #ifdef DEBUG_XIC_FONTSET
1948 print_fontset_result (XFontSet xfs
, char *name
, char **missing_list
,
1952 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
1955 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
1956 while (missing_count
-- > 0)
1958 fprintf (stderr
, " missing: %s\n", *missing_list
);
1967 xic_create_xfontset (struct frame
*f
)
1969 XFontSet xfs
= NULL
;
1970 struct font
*font
= FRAME_FONT (f
);
1971 int pixel_size
= font
->pixel_size
;
1972 Lisp_Object rest
, frame
;
1974 /* See if there is another frame already using same fontset. */
1975 FOR_EACH_FRAME (rest
, frame
)
1977 struct frame
*cf
= XFRAME (frame
);
1979 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
1980 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
1982 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
1984 xfs
= FRAME_XIC_FONTSET (cf
);
1992 char **missing_list
;
1995 const char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
1997 sprintf (buf
, xlfd_format
, pixel_size
);
1998 missing_list
= NULL
;
1999 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2000 &missing_list
, &missing_count
, &def_string
);
2001 #ifdef DEBUG_XIC_FONTSET
2002 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2005 XFreeStringList (missing_list
);
2008 /* List of pixel sizes most likely available. Find one that
2009 is closest to pixel_size. */
2010 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2011 int *smaller
, *larger
;
2013 for (smaller
= sizes
; smaller
[1]; smaller
++)
2014 if (smaller
[1] >= pixel_size
)
2016 larger
= smaller
+ 1;
2017 if (*larger
== pixel_size
)
2019 while (*smaller
|| *larger
)
2024 this_size
= *smaller
--;
2025 else if (! *smaller
)
2026 this_size
= *larger
++;
2027 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
2028 this_size
= *smaller
--;
2030 this_size
= *larger
++;
2031 sprintf (buf
, xlfd_format
, this_size
);
2032 missing_list
= NULL
;
2033 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2034 &missing_list
, &missing_count
, &def_string
);
2035 #ifdef DEBUG_XIC_FONTSET
2036 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2039 XFreeStringList (missing_list
);
2046 const char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
2048 missing_list
= NULL
;
2049 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
2050 &missing_list
, &missing_count
, &def_string
);
2051 #ifdef DEBUG_XIC_FONTSET
2052 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
2055 XFreeStringList (missing_list
);
2063 /* Free the X fontset of frame F if it is the last frame using it. */
2066 xic_free_xfontset (struct frame
*f
)
2068 Lisp_Object rest
, frame
;
2071 if (!FRAME_XIC_FONTSET (f
))
2074 /* See if there is another frame sharing the same fontset. */
2075 FOR_EACH_FRAME (rest
, frame
)
2077 struct frame
*cf
= XFRAME (frame
);
2078 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2079 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2080 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2088 /* The fontset is not used anymore. It is safe to free it. */
2089 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2091 if (FRAME_XIC_BASE_FONTNAME (f
))
2092 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2093 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2094 FRAME_XIC_FONTSET (f
) = NULL
;
2098 /* Value is the best input style, given user preferences USER (already
2099 checked to be supported by Emacs), and styles supported by the
2100 input method XIM. */
2103 best_xim_style (XIMStyles
*user
, XIMStyles
*xim
)
2107 for (i
= 0; i
< user
->count_styles
; ++i
)
2108 for (j
= 0; j
< xim
->count_styles
; ++j
)
2109 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2110 return user
->supported_styles
[i
];
2112 /* Return the default style. */
2113 return XIMPreeditNothing
| XIMStatusNothing
;
2116 /* Create XIC for frame F. */
2118 static XIMStyle xic_style
;
2121 create_frame_xic (struct frame
*f
)
2125 XFontSet xfs
= NULL
;
2130 /* Create X fontset. */
2131 xfs
= xic_create_xfontset (f
);
2132 xim
= FRAME_X_XIM (f
);
2137 XVaNestedList preedit_attr
;
2138 XVaNestedList status_attr
;
2140 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2141 spot
.x
= 0; spot
.y
= 1;
2143 /* Determine XIC style. */
2146 XIMStyles supported_list
;
2147 supported_list
.count_styles
= (sizeof supported_xim_styles
2148 / sizeof supported_xim_styles
[0]);
2149 supported_list
.supported_styles
= supported_xim_styles
;
2150 xic_style
= best_xim_style (&supported_list
,
2151 FRAME_X_XIM_STYLES (f
));
2154 preedit_attr
= XVaCreateNestedList (0,
2157 FRAME_FOREGROUND_PIXEL (f
),
2159 FRAME_BACKGROUND_PIXEL (f
),
2160 (xic_style
& XIMPreeditPosition
2165 status_attr
= XVaCreateNestedList (0,
2171 FRAME_FOREGROUND_PIXEL (f
),
2173 FRAME_BACKGROUND_PIXEL (f
),
2176 xic
= XCreateIC (xim
,
2177 XNInputStyle
, xic_style
,
2178 XNClientWindow
, FRAME_X_WINDOW (f
),
2179 XNFocusWindow
, FRAME_X_WINDOW (f
),
2180 XNStatusAttributes
, status_attr
,
2181 XNPreeditAttributes
, preedit_attr
,
2183 XFree (preedit_attr
);
2184 XFree (status_attr
);
2187 FRAME_XIC (f
) = xic
;
2188 FRAME_XIC_STYLE (f
) = xic_style
;
2189 FRAME_XIC_FONTSET (f
) = xfs
;
2193 /* Destroy XIC and free XIC fontset of frame F, if any. */
2196 free_frame_xic (struct frame
*f
)
2198 if (FRAME_XIC (f
) == NULL
)
2201 XDestroyIC (FRAME_XIC (f
));
2202 xic_free_xfontset (f
);
2204 FRAME_XIC (f
) = NULL
;
2208 /* Place preedit area for XIC of window W's frame to specified
2209 pixel position X/Y. X and Y are relative to window W. */
2212 xic_set_preeditarea (struct window
*w
, int x
, int y
)
2214 struct frame
*f
= XFRAME (w
->frame
);
2218 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2219 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2220 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2221 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2226 /* Place status area for XIC in bottom right corner of frame F.. */
2229 xic_set_statusarea (struct frame
*f
)
2231 XIC xic
= FRAME_XIC (f
);
2236 /* Negotiate geometry of status area. If input method has existing
2237 status area, use its current size. */
2238 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2239 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2240 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2243 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2244 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2247 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2249 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2250 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2254 area
.width
= needed
->width
;
2255 area
.height
= needed
->height
;
2256 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2257 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2258 - FRAME_MENUBAR_HEIGHT (f
)
2259 - FRAME_TOOLBAR_TOP_HEIGHT (f
)
2260 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2263 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2264 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2269 /* Set X fontset for XIC of frame F, using base font name
2270 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2273 xic_set_xfontset (struct frame
*f
, const char *base_fontname
)
2278 xic_free_xfontset (f
);
2280 xfs
= xic_create_xfontset (f
);
2282 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2283 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2284 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2285 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2286 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2289 FRAME_XIC_FONTSET (f
) = xfs
;
2292 #endif /* HAVE_X_I18N */
2296 #ifdef USE_X_TOOLKIT
2298 /* Create and set up the X widget for frame F. */
2301 x_window (struct frame
*f
, long window_prompting
, int minibuffer_only
)
2303 XClassHint class_hints
;
2304 XSetWindowAttributes attributes
;
2305 unsigned long attribute_mask
;
2306 Widget shell_widget
;
2308 Widget frame_widget
;
2314 /* Use the resource name as the top-level widget name
2315 for looking up resources. Make a non-Lisp copy
2316 for the window manager, so GC relocation won't bother it.
2318 Elsewhere we specify the window name for the window manager. */
2321 char *str
= SSDATA (Vx_resource_name
);
2322 f
->namebuf
= xmalloc (strlen (str
) + 1);
2323 strcpy (f
->namebuf
, str
);
2327 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2328 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2329 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2330 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2331 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2332 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2333 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2334 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2335 applicationShellWidgetClass
,
2336 FRAME_X_DISPLAY (f
), al
, ac
);
2338 f
->output_data
.x
->widget
= shell_widget
;
2339 /* maybe_set_screen_title_format (shell_widget); */
2341 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2342 (widget_value
*) NULL
,
2343 shell_widget
, False
,
2347 (lw_callback
) NULL
);
2350 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2351 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2352 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2353 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2354 XtSetValues (pane_widget
, al
, ac
);
2355 f
->output_data
.x
->column_widget
= pane_widget
;
2357 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2358 the emacs screen when changing menubar. This reduces flickering. */
2361 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2362 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2363 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2364 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2365 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2366 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2367 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2368 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2369 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2370 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2373 f
->output_data
.x
->edit_widget
= frame_widget
;
2375 XtManageChild (frame_widget
);
2377 /* Do some needed geometry management. */
2379 char *tem
, shell_position
[sizeof "=x++" + 4 * INT_STRLEN_BOUND (int)];
2382 int extra_borders
= 0;
2384 = (f
->output_data
.x
->menubar_widget
2385 ? (f
->output_data
.x
->menubar_widget
->core
.height
2386 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2389 #if 0 /* Experimentally, we now get the right results
2390 for -geometry -0-0 without this. 24 Aug 96, rms. */
2391 if (FRAME_EXTERNAL_MENU_BAR (f
))
2394 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2395 menubar_size
+= ibw
;
2399 f
->output_data
.x
->menubar_height
= menubar_size
;
2402 /* Motif seems to need this amount added to the sizes
2403 specified for the shell widget. The Athena/Lucid widgets don't.
2404 Both conclusions reached experimentally. -- rms. */
2405 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2406 &extra_borders
, NULL
);
2410 /* Convert our geometry parameters into a geometry string
2412 Note that we do not specify here whether the position
2413 is a user-specified or program-specified one.
2414 We pass that information later, in x_wm_set_size_hints. */
2416 int left
= f
->left_pos
;
2417 int xneg
= window_prompting
& XNegative
;
2418 int top
= f
->top_pos
;
2419 int yneg
= window_prompting
& YNegative
;
2425 if (window_prompting
& USPosition
)
2426 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2427 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2428 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2429 (xneg
? '-' : '+'), left
,
2430 (yneg
? '-' : '+'), top
);
2433 sprintf (shell_position
, "=%dx%d",
2434 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2435 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2437 /* Setting x and y when the position is not specified in
2438 the geometry string will set program position in the WM hints.
2439 If Emacs had just one program position, we could set it in
2440 fallback resources, but since each make-frame call can specify
2441 different program positions, this is easier. */
2442 XtSetArg (gal
[gac
], XtNx
, left
); gac
++;
2443 XtSetArg (gal
[gac
], XtNy
, top
); gac
++;
2447 /* We don't free this because we don't know whether
2448 it is safe to free it while the frame exists.
2449 It isn't worth the trouble of arranging to free it
2450 when the frame is deleted. */
2451 tem
= xstrdup (shell_position
);
2452 XtSetArg (gal
[gac
], XtNgeometry
, tem
); gac
++;
2453 XtSetValues (shell_widget
, gal
, gac
);
2456 XtManageChild (pane_widget
);
2457 XtRealizeWidget (shell_widget
);
2459 if (FRAME_X_EMBEDDED_P (f
))
2460 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2461 f
->output_data
.x
->parent_desc
, 0, 0);
2463 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2465 validate_x_resource_name ();
2467 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2468 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2469 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2472 FRAME_XIC (f
) = NULL
;
2474 create_frame_xic (f
);
2477 f
->output_data
.x
->wm_hints
.input
= True
;
2478 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2479 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2480 &f
->output_data
.x
->wm_hints
);
2482 hack_wm_protocols (f
, shell_widget
);
2485 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2488 /* Do a stupid property change to force the server to generate a
2489 PropertyNotify event so that the event_stream server timestamp will
2490 be initialized to something relevant to the time we created the window.
2492 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2493 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2494 XA_ATOM
, 32, PropModeAppend
,
2495 (unsigned char*) NULL
, 0);
2497 /* Make all the standard events reach the Emacs frame. */
2498 attributes
.event_mask
= STANDARD_EVENT_SET
;
2503 /* XIM server might require some X events. */
2504 unsigned long fevent
= NoEventMask
;
2505 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2506 attributes
.event_mask
|= fevent
;
2508 #endif /* HAVE_X_I18N */
2510 attribute_mask
= CWEventMask
;
2511 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2512 attribute_mask
, &attributes
);
2514 XtMapWidget (frame_widget
);
2516 /* x_set_name normally ignores requests to set the name if the
2517 requested name is the same as the current name. This is the one
2518 place where that assumption isn't correct; f->name is set, but
2519 the X server hasn't been told. */
2522 int explicit = f
->explicit_name
;
2524 f
->explicit_name
= 0;
2526 fset_name (f
, Qnil
);
2527 x_set_name (f
, name
, explicit);
2530 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2531 f
->output_data
.x
->current_cursor
2532 = f
->output_data
.x
->text_cursor
);
2536 /* This is a no-op, except under Motif. Make sure main areas are
2537 set to something reasonable, in case we get an error later. */
2538 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2541 #else /* not USE_X_TOOLKIT */
2544 x_window (FRAME_PTR f
)
2546 if (! xg_create_frame_widgets (f
))
2547 error ("Unable to create window");
2550 FRAME_XIC (f
) = NULL
;
2554 create_frame_xic (f
);
2557 /* XIM server might require some X events. */
2558 unsigned long fevent
= NoEventMask
;
2559 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2561 if (fevent
!= NoEventMask
)
2563 XSetWindowAttributes attributes
;
2564 XWindowAttributes wattr
;
2565 unsigned long attribute_mask
;
2567 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2569 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2570 attribute_mask
= CWEventMask
;
2571 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2572 attribute_mask
, &attributes
);
2580 #else /*! USE_GTK */
2581 /* Create and set up the X window for frame F. */
2584 x_window (struct frame
*f
)
2586 XClassHint class_hints
;
2587 XSetWindowAttributes attributes
;
2588 unsigned long attribute_mask
;
2590 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2591 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2592 attributes
.bit_gravity
= StaticGravity
;
2593 attributes
.backing_store
= NotUseful
;
2594 attributes
.save_under
= True
;
2595 attributes
.event_mask
= STANDARD_EVENT_SET
;
2596 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2597 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2602 = XCreateWindow (FRAME_X_DISPLAY (f
),
2603 f
->output_data
.x
->parent_desc
,
2606 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2608 CopyFromParent
, /* depth */
2609 InputOutput
, /* class */
2611 attribute_mask
, &attributes
);
2616 create_frame_xic (f
);
2619 /* XIM server might require some X events. */
2620 unsigned long fevent
= NoEventMask
;
2621 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2622 attributes
.event_mask
|= fevent
;
2623 attribute_mask
= CWEventMask
;
2624 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2625 attribute_mask
, &attributes
);
2628 #endif /* HAVE_X_I18N */
2630 validate_x_resource_name ();
2632 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2633 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2634 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2636 /* The menubar is part of the ordinary display;
2637 it does not count in addition to the height of the window. */
2638 f
->output_data
.x
->menubar_height
= 0;
2640 /* This indicates that we use the "Passive Input" input model.
2641 Unless we do this, we don't get the Focus{In,Out} events that we
2642 need to draw the cursor correctly. Accursed bureaucrats.
2643 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2645 f
->output_data
.x
->wm_hints
.input
= True
;
2646 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2647 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2648 &f
->output_data
.x
->wm_hints
);
2649 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2651 /* Request "save yourself" and "delete window" commands from wm. */
2654 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2655 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2656 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2659 /* x_set_name normally ignores requests to set the name if the
2660 requested name is the same as the current name. This is the one
2661 place where that assumption isn't correct; f->name is set, but
2662 the X server hasn't been told. */
2665 int explicit = f
->explicit_name
;
2667 f
->explicit_name
= 0;
2669 fset_name (f
, Qnil
);
2670 x_set_name (f
, name
, explicit);
2673 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2674 f
->output_data
.x
->current_cursor
2675 = f
->output_data
.x
->text_cursor
);
2679 if (FRAME_X_WINDOW (f
) == 0)
2680 error ("Unable to create window");
2683 #endif /* not USE_GTK */
2684 #endif /* not USE_X_TOOLKIT */
2686 /* Verify that the icon position args for this window are valid. */
2689 x_icon_verify (struct frame
*f
, Lisp_Object parms
)
2691 Lisp_Object icon_x
, icon_y
;
2693 /* Set the position of the icon. Note that twm groups all
2694 icons in an icon window. */
2695 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2696 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2697 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2699 CHECK_NUMBER (icon_x
);
2700 CHECK_NUMBER (icon_y
);
2702 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2703 error ("Both left and top icon corners of icon must be specified");
2706 /* Handle the icon stuff for this window. Perhaps later we might
2707 want an x_set_icon_position which can be called interactively as
2711 x_icon (struct frame
*f
, Lisp_Object parms
)
2713 Lisp_Object icon_x
, icon_y
;
2715 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2718 /* Set the position of the icon. Note that twm groups all
2719 icons in an icon window. */
2720 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2721 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2722 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2724 CHECK_TYPE_RANGED_INTEGER (int, icon_x
);
2725 CHECK_TYPE_RANGED_INTEGER (int, icon_y
);
2727 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2728 error ("Both left and top icon corners of icon must be specified");
2732 if (! EQ (icon_x
, Qunbound
))
2733 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2735 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2736 but x_create_frame still needs it. */
2737 /* Start up iconic or window? */
2738 x_wm_set_window_state
2739 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2745 x_text_icon (f
, SSDATA ((!NILP (f
->icon_name
)
2752 /* Make the GCs needed for this window, setting the
2753 background, border and mouse colors; also create the
2754 mouse cursor and the gray border tile. */
2757 x_make_gc (struct frame
*f
)
2759 XGCValues gc_values
;
2763 /* Create the GCs of this frame.
2764 Note that many default values are used. */
2766 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2767 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2768 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2769 f
->output_data
.x
->normal_gc
2770 = XCreateGC (FRAME_X_DISPLAY (f
),
2772 GCLineWidth
| GCForeground
| GCBackground
,
2775 /* Reverse video style. */
2776 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2777 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2778 f
->output_data
.x
->reverse_gc
2779 = XCreateGC (FRAME_X_DISPLAY (f
),
2781 GCForeground
| GCBackground
| GCLineWidth
,
2784 /* Cursor has cursor-color background, background-color foreground. */
2785 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2786 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2787 gc_values
.fill_style
= FillOpaqueStippled
;
2788 f
->output_data
.x
->cursor_gc
2789 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2790 (GCForeground
| GCBackground
2791 | GCFillStyle
| GCLineWidth
),
2795 f
->output_data
.x
->white_relief
.gc
= 0;
2796 f
->output_data
.x
->black_relief
.gc
= 0;
2798 /* Create the gray border tile used when the pointer is not in
2799 the frame. Since this depends on the frame's pixel values,
2800 this must be done on a per-frame basis. */
2801 f
->output_data
.x
->border_tile
2802 = (XCreatePixmapFromBitmapData
2803 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2804 gray_bits
, gray_width
, gray_height
,
2805 FRAME_FOREGROUND_PIXEL (f
),
2806 FRAME_BACKGROUND_PIXEL (f
),
2807 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2813 /* Free what was allocated in x_make_gc. */
2816 x_free_gcs (struct frame
*f
)
2818 Display
*dpy
= FRAME_X_DISPLAY (f
);
2822 if (f
->output_data
.x
->normal_gc
)
2824 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2825 f
->output_data
.x
->normal_gc
= 0;
2828 if (f
->output_data
.x
->reverse_gc
)
2830 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2831 f
->output_data
.x
->reverse_gc
= 0;
2834 if (f
->output_data
.x
->cursor_gc
)
2836 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2837 f
->output_data
.x
->cursor_gc
= 0;
2840 if (f
->output_data
.x
->border_tile
)
2842 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2843 f
->output_data
.x
->border_tile
= 0;
2850 /* Handler for signals raised during x_create_frame and
2851 x_create_tip_frame. FRAME is the frame which is partially
2855 unwind_create_frame (Lisp_Object frame
)
2857 struct frame
*f
= XFRAME (frame
);
2859 /* If frame is already dead, nothing to do. This can happen if the
2860 display is disconnected after the frame has become official, but
2861 before x_create_frame removes the unwind protect. */
2862 if (!FRAME_LIVE_P (f
))
2865 /* If frame is ``official'', nothing to do. */
2866 if (NILP (Fmemq (frame
, Vframe_list
)))
2868 #if defined GLYPH_DEBUG && defined ENABLE_CHECKING
2869 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2872 x_free_frame_resources (f
);
2875 #if defined GLYPH_DEBUG && defined ENABLE_CHECKING
2876 /* Check that reference counts are indeed correct. */
2877 eassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2878 eassert (dpyinfo
->terminal
->image_cache
->refcount
== image_cache_refcount
);
2887 do_unwind_create_frame (Lisp_Object frame
)
2889 unwind_create_frame (frame
);
2893 unwind_create_frame_1 (Lisp_Object val
)
2895 inhibit_lisp_code
= val
;
2899 x_default_font_parameter (struct frame
*f
, Lisp_Object parms
)
2901 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2902 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
2904 Lisp_Object font
= Qnil
;
2905 if (EQ (font_param
, Qunbound
))
2908 if (NILP (font_param
))
2910 /* System font should take precedence over X resources. We suggest this
2911 regardless of font-use-system-font because .emacs may not have been
2913 const char *system_font
= xsettings_get_system_font ();
2915 font
= font_open_by_name (f
, build_unibyte_string (system_font
));
2919 font
= !NILP (font_param
) ? font_param
2920 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
2922 if (! FONTP (font
) && ! STRINGP (font
))
2927 /* This will find the normal Xft font. */
2930 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
2931 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2932 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2933 /* This was formerly the first thing tried, but it finds
2934 too many fonts and takes too long. */
2935 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
2936 /* If those didn't work, look for something which will
2938 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
2943 for (i
= 0; names
[i
]; i
++)
2945 font
= font_open_by_name (f
, build_unibyte_string (names
[i
]));
2950 error ("No suitable font was found");
2952 else if (!NILP (font_param
))
2954 /* Remember the explicit font parameter, so we can re-apply it after
2955 we've applied the `default' face settings. */
2956 x_set_frame_parameters (f
, list1 (Fcons (Qfont_param
, font_param
)));
2959 /* This call will make X resources override any system font setting. */
2960 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
2964 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
2966 doc
: /* Send the size hints for frame FRAME to the window manager.
2967 If FRAME is omitted or nil, use the selected frame.
2968 Signal error if FRAME is not an X frame. */)
2971 struct frame
*f
= decode_window_system_frame (frame
);
2974 x_wm_set_size_hint (f
, 0, 0);
2980 set_machine_and_pid_properties (struct frame
*f
)
2982 long pid
= (long) getpid ();
2984 /* This will set WM_CLIENT_MACHINE and WM_LOCALE_NAME. */
2985 XSetWMProperties (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), NULL
, NULL
,
2986 NULL
, 0, NULL
, NULL
, NULL
);
2987 XChangeProperty (FRAME_X_DISPLAY (f
),
2988 FRAME_OUTER_WINDOW (f
),
2989 XInternAtom (FRAME_X_DISPLAY (f
),
2992 XA_CARDINAL
, 32, PropModeReplace
,
2993 (unsigned char *) &pid
, 1);
2996 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
2998 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
2999 Return an Emacs frame object.
3000 PARMS is an alist of frame parameters.
3001 If the parameters specify that the frame should not have a minibuffer,
3002 and do not specify a specific minibuffer window to use,
3003 then `default-minibuffer-frame' must be a frame whose minibuffer can
3004 be shared by the new frame.
3006 This function is an internal primitive--use `make-frame' instead. */)
3010 Lisp_Object frame
, tem
;
3012 int minibuffer_only
= 0;
3013 long window_prompting
= 0;
3015 ptrdiff_t count
= SPECPDL_INDEX ();
3016 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3017 Lisp_Object display
;
3018 struct x_display_info
*dpyinfo
= NULL
;
3022 parms
= Fcopy_alist (parms
);
3024 /* Use this general default value to start with
3025 until we know if this frame has a specified name. */
3026 Vx_resource_name
= Vinvocation_name
;
3028 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3029 if (EQ (display
, Qunbound
))
3030 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3031 if (EQ (display
, Qunbound
))
3033 dpyinfo
= check_x_display_info (display
);
3034 kb
= dpyinfo
->terminal
->kboard
;
3036 if (!dpyinfo
->terminal
->name
)
3037 error ("Terminal is not live, can't create new frames on it");
3039 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3041 && ! EQ (name
, Qunbound
)
3043 error ("Invalid frame name--not a string or nil");
3046 Vx_resource_name
= name
;
3048 /* See if parent window is specified. */
3049 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3050 if (EQ (parent
, Qunbound
))
3052 if (! NILP (parent
))
3053 CHECK_NUMBER (parent
);
3055 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3056 /* No need to protect DISPLAY because that's not used after passing
3057 it to make_frame_without_minibuffer. */
3059 GCPRO4 (parms
, parent
, name
, frame
);
3060 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3062 if (EQ (tem
, Qnone
) || NILP (tem
))
3063 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3064 else if (EQ (tem
, Qonly
))
3066 f
= make_minibuffer_frame ();
3067 minibuffer_only
= 1;
3069 else if (WINDOWP (tem
))
3070 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3074 XSETFRAME (frame
, f
);
3076 f
->terminal
= dpyinfo
->terminal
;
3078 f
->output_method
= output_x_window
;
3079 f
->output_data
.x
= xzalloc (sizeof *f
->output_data
.x
);
3080 f
->output_data
.x
->icon_bitmap
= -1;
3081 FRAME_FONTSET (f
) = -1;
3082 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3083 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3084 #ifdef USE_TOOLKIT_SCROLL_BARS
3085 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3086 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3087 #endif /* USE_TOOLKIT_SCROLL_BARS */
3090 x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3092 if (! STRINGP (f
->icon_name
))
3093 fset_icon_name (f
, Qnil
);
3095 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3097 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3098 record_unwind_protect (do_unwind_create_frame
, frame
);
3100 /* These colors will be set anyway later, but it's important
3101 to get the color reference counts right, so initialize them! */
3104 struct gcpro gcpro1
;
3106 /* Function x_decode_color can signal an error. Make
3107 sure to initialize color slots so that we won't try
3108 to free colors we haven't allocated. */
3109 FRAME_FOREGROUND_PIXEL (f
) = -1;
3110 FRAME_BACKGROUND_PIXEL (f
) = -1;
3111 f
->output_data
.x
->cursor_pixel
= -1;
3112 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3113 f
->output_data
.x
->border_pixel
= -1;
3114 f
->output_data
.x
->mouse_pixel
= -1;
3116 black
= build_string ("black");
3118 FRAME_FOREGROUND_PIXEL (f
)
3119 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3120 FRAME_BACKGROUND_PIXEL (f
)
3121 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3122 f
->output_data
.x
->cursor_pixel
3123 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3124 f
->output_data
.x
->cursor_foreground_pixel
3125 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3126 f
->output_data
.x
->border_pixel
3127 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3128 f
->output_data
.x
->mouse_pixel
3129 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3133 /* Specify the parent under which to make this X window. */
3137 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3138 f
->output_data
.x
->explicit_parent
= 1;
3142 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3143 f
->output_data
.x
->explicit_parent
= 0;
3146 /* Set the name; the functions to which we pass f expect the name to
3148 if (EQ (name
, Qunbound
) || NILP (name
))
3150 fset_name (f
, build_string (dpyinfo
->x_id_name
));
3151 f
->explicit_name
= 0;
3155 fset_name (f
, name
);
3156 f
->explicit_name
= 1;
3157 /* use the frame's title when getting resources for this frame. */
3158 specbind (Qx_resource_name
, name
);
3161 #ifdef HAVE_FREETYPE
3163 register_font_driver (&xftfont_driver
, f
);
3164 #else /* not HAVE_XFT */
3165 register_font_driver (&ftxfont_driver
, f
);
3166 #endif /* not HAVE_XFT */
3167 #endif /* HAVE_FREETYPE */
3168 register_font_driver (&xfont_driver
, f
);
3170 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3171 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3173 /* Extract the window parameters from the supplied values
3174 that are needed to determine window geometry. */
3175 x_default_font_parameter (f
, parms
);
3176 if (!FRAME_FONT (f
))
3178 delete_frame (frame
, Qnoelisp
);
3179 error ("Invalid frame font");
3182 /* Frame contents get displaced if an embedded X window has a border. */
3183 if (! FRAME_X_EMBEDDED_P (f
))
3184 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
3185 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3187 /* This defaults to 1 in order to match xterm. We recognize either
3188 internalBorderWidth or internalBorder (which is what xterm calls
3190 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3194 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3195 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3196 if (! EQ (value
, Qunbound
))
3197 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3200 x_default_parameter (f
, parms
, Qinternal_border_width
,
3201 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3206 "internalBorderWidth", "internalBorderWidth",
3208 x_default_parameter (f
, parms
, Qvertical_scroll_bars
,
3209 #if defined (USE_GTK) && defined (USE_TOOLKIT_SCROLL_BARS)
3214 "verticalScrollBars", "ScrollBars",
3217 /* Also do the stuff which must be set before the window exists. */
3218 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3219 "foreground", "Foreground", RES_TYPE_STRING
);
3220 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3221 "background", "Background", RES_TYPE_STRING
);
3222 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3223 "pointerColor", "Foreground", RES_TYPE_STRING
);
3224 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3225 "borderColor", "BorderColor", RES_TYPE_STRING
);
3226 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3227 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3228 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3229 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3230 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3231 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3232 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3233 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3235 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3236 "scrollBarForeground",
3237 "ScrollBarForeground", 1);
3238 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3239 "scrollBarBackground",
3240 "ScrollBarBackground", 0);
3243 image_cache_refcount
=
3244 FRAME_IMAGE_CACHE (f
) ? FRAME_IMAGE_CACHE (f
)->refcount
: 0;
3245 dpyinfo_refcount
= dpyinfo
->reference_count
;
3246 #endif /* GLYPH_DEBUG */
3248 /* Init faces before x_default_parameter is called for scroll-bar
3249 parameters because that function calls x_set_scroll_bar_width,
3250 which calls change_frame_size, which calls Fset_window_buffer,
3251 which runs hooks, which call Fvertical_motion. At the end, we
3252 end up in init_iterator with a null face cache, which should not
3254 init_frame_faces (f
);
3256 /* Set the menu-bar-lines and tool-bar-lines parameters. We don't
3257 look up the X resources controlling the menu-bar and tool-bar
3258 here; they are processed specially at startup, and reflected in
3259 the values of the mode variables.
3261 Avoid calling window-configuration-change-hook; otherwise we
3262 could get an infloop in next_frame since the frame is not yet in
3265 ptrdiff_t count2
= SPECPDL_INDEX ();
3266 record_unwind_protect (unwind_create_frame_1
, inhibit_lisp_code
);
3267 inhibit_lisp_code
= Qt
;
3269 x_default_parameter (f
, parms
, Qmenu_bar_lines
,
3270 NILP (Vmenu_bar_mode
)
3271 ? make_number (0) : make_number (1),
3272 NULL
, NULL
, RES_TYPE_NUMBER
);
3273 x_default_parameter (f
, parms
, Qtool_bar_lines
,
3274 NILP (Vtool_bar_mode
)
3275 ? make_number (0) : make_number (1),
3276 NULL
, NULL
, RES_TYPE_NUMBER
);
3278 unbind_to (count2
, Qnil
);
3281 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3282 "bufferPredicate", "BufferPredicate",
3284 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3285 "title", "Title", RES_TYPE_STRING
);
3286 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3287 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3288 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3289 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3290 x_default_parameter (f
, parms
, Qtool_bar_position
,
3291 f
->tool_bar_position
, 0, 0, RES_TYPE_SYMBOL
);
3293 /* Compute the size of the X window. */
3294 window_prompting
= x_figure_window_size (f
, parms
, 1);
3296 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3297 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3299 x_icon_verify (f
, parms
);
3301 /* Create the X widget or window. */
3302 #ifdef USE_X_TOOLKIT
3303 x_window (f
, window_prompting
, minibuffer_only
);
3311 /* Now consider the frame official. */
3312 f
->terminal
->reference_count
++;
3313 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3314 Vframe_list
= Fcons (frame
, Vframe_list
);
3316 /* We need to do this after creating the X window, so that the
3317 icon-creation functions can say whose icon they're describing. */
3318 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3319 "bitmapIcon", "BitmapIcon", RES_TYPE_BOOLEAN
);
3321 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3322 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3323 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3324 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3325 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3326 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3327 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3328 "scrollBarWidth", "ScrollBarWidth",
3330 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3331 "alpha", "Alpha", RES_TYPE_NUMBER
);
3333 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3334 Change will not be effected unless different from the current
3336 width
= FRAME_COLS (f
);
3337 height
= FRAME_LINES (f
);
3339 SET_FRAME_COLS (f
, 0);
3340 FRAME_LINES (f
) = 0;
3341 change_frame_size (f
, height
, width
, 1, 0, 0);
3343 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3344 /* Create the menu bar. */
3345 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3347 /* If this signals an error, we haven't set size hints for the
3348 frame and we didn't make it visible. */
3349 initialize_frame_menubar (f
);
3352 /* This is a no-op, except under Motif where it arranges the
3353 main window for the widgets on it. */
3354 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3355 f
->output_data
.x
->menubar_widget
,
3356 f
->output_data
.x
->edit_widget
);
3357 #endif /* not USE_GTK */
3359 #endif /* USE_X_TOOLKIT || USE_GTK */
3361 /* Tell the server what size and position, etc, we want, and how
3362 badly we want them. This should be done after we have the menu
3363 bar so that its size can be taken into account. */
3365 x_wm_set_size_hint (f
, window_prompting
, 0);
3368 /* Make the window appear on the frame and enable display, unless
3369 the caller says not to. However, with explicit parent, Emacs
3370 cannot control visibility, so don't try. */
3371 if (! f
->output_data
.x
->explicit_parent
)
3373 Lisp_Object visibility
;
3375 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3377 if (EQ (visibility
, Qunbound
))
3380 if (EQ (visibility
, Qicon
))
3381 x_iconify_frame (f
);
3382 else if (! NILP (visibility
))
3383 x_make_frame_visible (f
);
3386 /* Must have been Qnil. */
3392 /* Set machine name and pid for the purpose of window managers. */
3393 set_machine_and_pid_properties (f
);
3395 /* Set the WM leader property. GTK does this itself, so this is not
3396 needed when using GTK. */
3397 if (dpyinfo
->client_leader_window
!= 0)
3399 XChangeProperty (FRAME_X_DISPLAY (f
),
3400 FRAME_OUTER_WINDOW (f
),
3401 dpyinfo
->Xatom_wm_client_leader
,
3402 XA_WINDOW
, 32, PropModeReplace
,
3403 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3408 /* Initialize `default-minibuffer-frame' in case this is the first
3409 frame on this terminal. */
3410 if (FRAME_HAS_MINIBUF_P (f
)
3411 && (!FRAMEP (KVAR (kb
, Vdefault_minibuffer_frame
))
3412 || !FRAME_LIVE_P (XFRAME (KVAR (kb
, Vdefault_minibuffer_frame
)))))
3413 kset_default_minibuffer_frame (kb
, frame
);
3415 /* All remaining specified parameters, which have not been "used"
3416 by x_get_arg and friends, now go in the misc. alist of the frame. */
3417 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3418 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3419 fset_param_alist (f
, Fcons (XCAR (tem
), f
->param_alist
));
3423 /* Make sure windows on this frame appear in calls to next-window
3424 and similar functions. */
3425 Vwindow_list
= Qnil
;
3427 return unbind_to (count
, frame
);
3431 /* FRAME is used only to get a handle on the X display. We don't pass the
3432 display info directly because we're called from frame.c, which doesn't
3433 know about that structure. */
3436 x_get_focus_frame (struct frame
*frame
)
3438 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3440 if (! dpyinfo
->x_focus_frame
)
3443 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3448 /* In certain situations, when the window manager follows a
3449 click-to-focus policy, there seems to be no way around calling
3450 XSetInputFocus to give another frame the input focus .
3452 In an ideal world, XSetInputFocus should generally be avoided so
3453 that applications don't interfere with the window manager's focus
3454 policy. But I think it's okay to use when it's clearly done
3455 following a user-command. */
3457 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3458 doc
: /* Set the input focus to FRAME.
3459 FRAME nil means use the selected frame. */)
3462 struct frame
*f
= decode_window_system_frame (frame
);
3463 Display
*dpy
= FRAME_X_DISPLAY (f
);
3466 x_catch_errors (dpy
);
3468 if (FRAME_X_EMBEDDED_P (f
))
3470 /* For Xembedded frames, normally the embedder forwards key
3471 events. See XEmbed Protocol Specification at
3472 http://freedesktop.org/wiki/Specifications/xembed-spec */
3473 xembed_request_focus (f
);
3477 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3478 RevertToParent
, CurrentTime
);
3479 x_ewmh_activate_frame (f
);
3482 x_uncatch_errors ();
3489 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3490 doc
: /* Internal function called by `color-defined-p', which see
3491 .\(Note that the Nextstep version of this function ignores FRAME.) */)
3492 (Lisp_Object color
, Lisp_Object frame
)
3495 FRAME_PTR f
= decode_window_system_frame (frame
);
3497 CHECK_STRING (color
);
3499 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3505 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3506 doc
: /* Internal function called by `color-values', which see. */)
3507 (Lisp_Object color
, Lisp_Object frame
)
3510 FRAME_PTR f
= decode_window_system_frame (frame
);
3512 CHECK_STRING (color
);
3514 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3515 return list3i (foo
.red
, foo
.green
, foo
.blue
);
3520 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3521 doc
: /* Internal function called by `display-color-p', which see. */)
3522 (Lisp_Object terminal
)
3524 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3526 if (dpyinfo
->n_planes
<= 2)
3529 switch (dpyinfo
->visual
->class)
3542 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3544 doc
: /* Return t if the X display supports shades of gray.
3545 Note that color displays do support shades of gray.
3546 The optional argument TERMINAL specifies which display to ask about.
3547 TERMINAL should be a terminal object, a frame or a display name (a string).
3548 If omitted or nil, that stands for the selected frame's display. */)
3549 (Lisp_Object terminal
)
3551 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3553 if (dpyinfo
->n_planes
<= 1)
3556 switch (dpyinfo
->visual
->class)
3571 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3573 doc
: /* Return the width in pixels of the X 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.
3578 On \"multi-monitor\" setups this refers to the pixel width for all
3579 physical monitors associated with TERMINAL. To get information for
3580 each physical monitor, use `display-monitor-attributes-list'. */)
3581 (Lisp_Object terminal
)
3583 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3585 return make_number (x_display_pixel_width (dpyinfo
));
3588 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3589 Sx_display_pixel_height
, 0, 1, 0,
3590 doc
: /* Return the height in pixels of the X display TERMINAL.
3591 The optional argument TERMINAL specifies which display to ask about.
3592 TERMINAL should be a terminal object, a frame or a display name (a string).
3593 If omitted or nil, that stands for the selected frame's display.
3595 On \"multi-monitor\" setups this refers to the pixel height for all
3596 physical monitors associated with TERMINAL. To get information for
3597 each physical monitor, use `display-monitor-attributes-list'. */)
3598 (Lisp_Object terminal
)
3600 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3602 return make_number (x_display_pixel_height (dpyinfo
));
3605 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3607 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3608 The optional argument TERMINAL specifies which display to ask about.
3609 TERMINAL should be a terminal object, a frame or a display name (a string).
3610 If omitted or nil, that stands for the selected frame's display. */)
3611 (Lisp_Object terminal
)
3613 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3615 return make_number (dpyinfo
->n_planes
);
3618 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3620 doc
: /* Return the number of color cells of the X display TERMINAL.
3621 The optional argument TERMINAL specifies which display to ask about.
3622 TERMINAL should be a terminal object, a frame or a display name (a string).
3623 If omitted or nil, that stands for the selected frame's display. */)
3624 (Lisp_Object terminal
)
3626 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3628 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3629 XScreenNumberOfScreen (dpyinfo
->screen
));
3631 /* Truncate nr_planes to 24 to avoid integer overflow.
3632 Some displays says 32, but only 24 bits are actually significant.
3633 There are only very few and rare video cards that have more than
3634 24 significant bits. Also 24 bits is more than 16 million colors,
3635 it "should be enough for everyone". */
3636 if (nr_planes
> 24) nr_planes
= 24;
3638 return make_number (1 << nr_planes
);
3641 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3642 Sx_server_max_request_size
,
3644 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3645 The optional argument TERMINAL specifies which display to ask about.
3646 TERMINAL should be a terminal object, a frame or a display name (a string).
3647 If omitted or nil, that stands for the selected frame's display. */)
3648 (Lisp_Object terminal
)
3650 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3652 return make_number (MAXREQUEST (dpyinfo
->display
));
3655 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3656 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3657 \(Labeling every distributor as a "vendor" embodies the false assumption
3658 that operating systems cannot be developed and distributed noncommercially.)
3659 The optional argument TERMINAL specifies which display to ask about.
3660 TERMINAL should be a terminal object, a frame or a display name (a string).
3661 If omitted or nil, that stands for the selected frame's display. */)
3662 (Lisp_Object terminal
)
3664 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3665 const char *vendor
= ServerVendor (dpyinfo
->display
);
3667 if (! vendor
) vendor
= "";
3668 return build_string (vendor
);
3671 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3672 doc
: /* Return the version numbers of the X server of display TERMINAL.
3673 The value is a list of three integers: the major and minor
3674 version numbers of the X Protocol in use, and the distributor-specific release
3675 number. See also the function `x-server-vendor'.
3677 The optional argument TERMINAL specifies which display to ask about.
3678 TERMINAL should be a terminal object, a frame or a display name (a string).
3679 If omitted or nil, that stands for the selected frame's display. */)
3680 (Lisp_Object terminal
)
3682 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3683 Display
*dpy
= dpyinfo
->display
;
3685 return list3i (ProtocolVersion (dpy
), ProtocolRevision (dpy
),
3686 VendorRelease (dpy
));
3689 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3690 doc
: /* Return the number of screens on the X server of display TERMINAL.
3691 The optional argument TERMINAL specifies which display to ask about.
3692 TERMINAL should be a terminal object, a frame or a display name (a string).
3693 If omitted or nil, that stands for the selected frame's display. */)
3694 (Lisp_Object terminal
)
3696 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3698 return make_number (ScreenCount (dpyinfo
->display
));
3701 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3702 doc
: /* Return the height in millimeters of the X display TERMINAL.
3703 The optional argument TERMINAL specifies which display to ask about.
3704 TERMINAL should be a terminal object, a frame or a display name (a string).
3705 If omitted or nil, that stands for the selected frame's display.
3707 On \"multi-monitor\" setups this refers to the height in millimeters for
3708 all physical monitors associated with TERMINAL. To get information
3709 for each physical monitor, use `display-monitor-attributes-list'. */)
3710 (Lisp_Object terminal
)
3712 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3714 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3717 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3718 doc
: /* Return the width in millimeters of the X display TERMINAL.
3719 The optional argument TERMINAL specifies which display to ask about.
3720 TERMINAL should be a terminal object, a frame or a display name (a string).
3721 If omitted or nil, that stands for the selected frame's display.
3723 On \"multi-monitor\" setups this refers to the width in millimeters for
3724 all physical monitors associated with TERMINAL. To get information
3725 for each physical monitor, use `display-monitor-attributes-list'. */)
3726 (Lisp_Object terminal
)
3728 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3730 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3733 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3734 Sx_display_backing_store
, 0, 1, 0,
3735 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3736 The value may be `always', `when-mapped', or `not-useful'.
3737 The optional argument TERMINAL specifies which display to ask about.
3738 TERMINAL should be a terminal object, a frame or a display name (a string).
3739 If omitted or nil, that stands for the selected frame's display. */)
3740 (Lisp_Object terminal
)
3742 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3745 switch (DoesBackingStore (dpyinfo
->screen
))
3748 result
= intern ("always");
3752 result
= intern ("when-mapped");
3756 result
= intern ("not-useful");
3760 error ("Strange value for BackingStore parameter of screen");
3766 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3767 Sx_display_visual_class
, 0, 1, 0,
3768 doc
: /* Return the visual class of the X display TERMINAL.
3769 The value is one of the symbols `static-gray', `gray-scale',
3770 `static-color', `pseudo-color', `true-color', or `direct-color'.
3772 The optional argument TERMINAL specifies which display to ask about.
3773 TERMINAL should a terminal object, a frame or a display name (a string).
3774 If omitted or nil, that stands for the selected frame's display. */)
3775 (Lisp_Object terminal
)
3777 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3780 switch (dpyinfo
->visual
->class)
3783 result
= intern ("static-gray");
3786 result
= intern ("gray-scale");
3789 result
= intern ("static-color");
3792 result
= intern ("pseudo-color");
3795 result
= intern ("true-color");
3798 result
= intern ("direct-color");
3801 error ("Display has an unknown visual class");
3807 DEFUN ("x-display-save-under", Fx_display_save_under
,
3808 Sx_display_save_under
, 0, 1, 0,
3809 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3810 The optional argument TERMINAL specifies which display to ask about.
3811 TERMINAL should be a terminal object, a frame or a display name (a string).
3812 If omitted or nil, that stands for the selected frame's display. */)
3813 (Lisp_Object terminal
)
3815 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3817 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3823 /* Store the geometry of the workarea on display DPYINFO into *RECT.
3824 Return false if and only if the workarea information cannot be
3825 obtained via the _NET_WORKAREA root window property. */
3827 #if ! GTK_CHECK_VERSION (3, 4, 0)
3829 x_get_net_workarea (struct x_display_info
*dpyinfo
, XRectangle
*rect
)
3831 Display
*dpy
= dpyinfo
->display
;
3832 long offset
, max_len
;
3833 Atom target_type
, actual_type
;
3834 unsigned long actual_size
, bytes_remaining
;
3835 int rc
, actual_format
;
3836 unsigned char *tmp_data
= NULL
;
3837 bool result
= false;
3839 x_catch_errors (dpy
);
3842 target_type
= XA_CARDINAL
;
3843 rc
= XGetWindowProperty (dpy
, dpyinfo
->root_window
,
3844 dpyinfo
->Xatom_net_current_desktop
,
3845 offset
, max_len
, False
, target_type
,
3846 &actual_type
, &actual_format
, &actual_size
,
3847 &bytes_remaining
, &tmp_data
);
3848 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
3849 && actual_format
== 32 && actual_size
== max_len
)
3851 long current_desktop
= ((long *) tmp_data
)[0];
3856 offset
= 4 * current_desktop
;
3858 rc
= XGetWindowProperty (dpy
, dpyinfo
->root_window
,
3859 dpyinfo
->Xatom_net_workarea
,
3860 offset
, max_len
, False
, target_type
,
3861 &actual_type
, &actual_format
, &actual_size
,
3862 &bytes_remaining
, &tmp_data
);
3863 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
3864 && actual_format
== 32 && actual_size
== max_len
)
3866 long *values
= (long *) tmp_data
;
3868 rect
->x
= values
[0];
3869 rect
->y
= values
[1];
3870 rect
->width
= values
[2];
3871 rect
->height
= values
[3];
3881 x_uncatch_errors ();
3889 /* Return monitor number where F is "most" or closest to. */
3891 x_get_monitor_for_frame (struct frame
*f
,
3892 struct MonitorInfo
*monitors
,
3896 int area
= 0, dist
= -1;
3897 int best_area
= -1, best_dist
= -1;
3900 if (n_monitors
== 1) return 0;
3901 frect
.x
= f
->left_pos
;
3902 frect
.y
= f
->top_pos
;
3903 frect
.width
= FRAME_PIXEL_WIDTH (f
);
3904 frect
.height
= FRAME_PIXEL_HEIGHT (f
);
3906 for (i
= 0; i
< n_monitors
; ++i
)
3908 struct MonitorInfo
*mi
= &monitors
[i
];
3912 if (mi
->geom
.width
== 0) continue;
3914 if (x_intersect_rectangles (&mi
->geom
, &frect
, &res
))
3916 a
= res
.width
* res
.height
;
3924 if (a
== 0 && area
== 0)
3927 if (frect
.x
+ frect
.width
< mi
->geom
.x
)
3928 dx
= mi
->geom
.x
- frect
.x
+ frect
.width
;
3929 else if (frect
.x
> mi
->geom
.x
+ mi
->geom
.width
)
3930 dx
= frect
.x
- mi
->geom
.x
+ mi
->geom
.width
;
3933 if (frect
.y
+ frect
.height
< mi
->geom
.y
)
3934 dy
= mi
->geom
.y
- frect
.y
+ frect
.height
;
3935 else if (frect
.y
> mi
->geom
.y
+ mi
->geom
.height
)
3936 dy
= frect
.y
- mi
->geom
.y
+ mi
->geom
.height
;
3941 if (dist
== -1 || dist
> d
)
3949 return best_area
!= -1 ? best_area
: (best_dist
!= -1 ? best_dist
: 0);
3953 x_make_monitor_attribute_list (struct MonitorInfo
*monitors
,
3955 int primary_monitor
,
3956 struct x_display_info
*dpyinfo
,
3959 Lisp_Object monitor_frames
= Fmake_vector (make_number (n_monitors
), Qnil
);
3960 Lisp_Object frame
, rest
;
3962 FOR_EACH_FRAME (rest
, frame
)
3964 struct frame
*f
= XFRAME (frame
);
3966 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
3967 && !EQ (frame
, tip_frame
))
3969 int i
= x_get_monitor_for_frame (f
, monitors
, n_monitors
);
3970 ASET (monitor_frames
, i
, Fcons (frame
, AREF (monitor_frames
, i
)));
3974 return make_monitor_attribute_list (monitors
, n_monitors
, primary_monitor
,
3975 monitor_frames
, source
);
3979 x_get_monitor_attributes_fallback (struct x_display_info
*dpyinfo
)
3981 struct MonitorInfo monitor
;
3982 XRectangle workarea_r
;
3984 /* Fallback: treat (possibly) multiple physical monitors as if they
3985 formed a single monitor as a whole. This should provide a
3986 consistent result at least on single monitor environments. */
3987 monitor
.geom
.x
= monitor
.geom
.y
= 0;
3988 monitor
.geom
.width
= x_display_pixel_width (dpyinfo
);
3989 monitor
.geom
.height
= x_display_pixel_height (dpyinfo
);
3990 monitor
.mm_width
= WidthMMOfScreen (dpyinfo
->screen
);
3991 monitor
.mm_height
= HeightMMOfScreen (dpyinfo
->screen
);
3992 monitor
.name
= xstrdup ("combined screen");
3994 if (x_get_net_workarea (dpyinfo
, &workarea_r
))
3995 monitor
.work
= workarea_r
;
3997 monitor
.work
= monitor
.geom
;
3998 return x_make_monitor_attribute_list (&monitor
, 1, 0, dpyinfo
, "fallback");
4002 #ifdef HAVE_XINERAMA
4004 x_get_monitor_attributes_xinerama (struct x_display_info
*dpyinfo
)
4007 Lisp_Object attributes_list
= Qnil
;
4008 Display
*dpy
= dpyinfo
->display
;
4009 XineramaScreenInfo
*info
= XineramaQueryScreens (dpy
, &n_monitors
);
4010 struct MonitorInfo
*monitors
;
4011 double mm_width_per_pixel
, mm_height_per_pixel
;
4013 if (! info
|| n_monitors
== 0)
4017 return attributes_list
;
4020 mm_width_per_pixel
= ((double) WidthMMOfScreen (dpyinfo
->screen
)
4021 / x_display_pixel_width (dpyinfo
));
4022 mm_height_per_pixel
= ((double) HeightMMOfScreen (dpyinfo
->screen
)
4023 / x_display_pixel_height (dpyinfo
));
4024 monitors
= (struct MonitorInfo
*) xzalloc (n_monitors
* sizeof (*monitors
));
4025 for (i
= 0; i
< n_monitors
; ++i
)
4027 struct MonitorInfo
*mi
= &monitors
[i
];
4028 XRectangle workarea_r
;
4030 mi
->geom
.x
= info
[i
].x_org
;
4031 mi
->geom
.y
= info
[i
].y_org
;
4032 mi
->geom
.width
= info
[i
].width
;
4033 mi
->geom
.height
= info
[i
].height
;
4034 mi
->mm_width
= mi
->geom
.width
* mm_width_per_pixel
+ 0.5;
4035 mi
->mm_height
= mi
->geom
.height
* mm_height_per_pixel
+ 0.5;
4038 /* Xinerama usually have primary monitor first, just use that. */
4039 if (i
== 0 && x_get_net_workarea (dpyinfo
, &workarea_r
))
4041 mi
->work
= workarea_r
;
4042 if (! x_intersect_rectangles (&mi
->geom
, &mi
->work
, &mi
->work
))
4043 mi
->work
= mi
->geom
;
4046 mi
->work
= mi
->geom
;
4050 attributes_list
= x_make_monitor_attribute_list (monitors
,
4055 free_monitors (monitors
, n_monitors
);
4056 return attributes_list
;
4058 #endif /* HAVE_XINERAMA */
4063 x_get_monitor_attributes_xrandr (struct x_display_info
*dpyinfo
)
4065 Lisp_Object attributes_list
= Qnil
;
4066 XRRScreenResources
*resources
;
4067 Display
*dpy
= dpyinfo
->display
;
4068 int i
, n_monitors
, primary
= -1;
4069 RROutput pxid
= None
;
4070 struct MonitorInfo
*monitors
;
4072 #ifdef HAVE_XRRGETSCREENRESOURCESCURRENT
4073 resources
= XRRGetScreenResourcesCurrent (dpy
, dpyinfo
->root_window
);
4075 resources
= XRRGetScreenResources (dpy
, dpyinfo
->root_window
);
4077 if (! resources
|| resources
->noutput
== 0)
4080 XRRFreeScreenResources (resources
);
4083 n_monitors
= resources
->noutput
;
4084 monitors
= (struct MonitorInfo
*) xzalloc (n_monitors
* sizeof (*monitors
));
4086 #ifdef HAVE_XRRGETOUTPUTPRIMARY
4087 pxid
= XRRGetOutputPrimary (dpy
, dpyinfo
->root_window
);
4090 for (i
= 0; i
< n_monitors
; ++i
)
4092 XRROutputInfo
*info
= XRRGetOutputInfo (dpy
, resources
,
4093 resources
->outputs
[i
]);
4094 Connection conn
= info
? info
->connection
: RR_Disconnected
;
4095 RRCrtc id
= info
? info
->crtc
: None
;
4097 if (strcmp (info
->name
, "default") == 0)
4099 /* Non XRandr 1.2 driver, does not give useful data. */
4100 XRRFreeOutputInfo (info
);
4101 XRRFreeScreenResources (resources
);
4102 free_monitors (monitors
, n_monitors
);
4106 if (conn
!= RR_Disconnected
&& id
!= None
)
4108 XRRCrtcInfo
*crtc
= XRRGetCrtcInfo (dpy
, resources
, id
);
4109 struct MonitorInfo
*mi
= &monitors
[i
];
4110 XRectangle workarea_r
;
4114 XRRFreeOutputInfo (info
);
4118 mi
->geom
.x
= crtc
->x
;
4119 mi
->geom
.y
= crtc
->y
;
4120 mi
->geom
.width
= crtc
->width
;
4121 mi
->geom
.height
= crtc
->height
;
4122 mi
->mm_width
= info
->mm_width
;
4123 mi
->mm_height
= info
->mm_height
;
4124 mi
->name
= xstrdup (info
->name
);
4126 if (pxid
!= None
&& pxid
== resources
->outputs
[i
])
4128 else if (primary
== -1 && strcmp (info
->name
, "LVDS") == 0)
4131 if (i
== primary
&& x_get_net_workarea (dpyinfo
, &workarea_r
))
4133 mi
->work
= workarea_r
;
4134 if (! x_intersect_rectangles (&mi
->geom
, &mi
->work
, &mi
->work
))
4135 mi
->work
= mi
->geom
;
4138 mi
->work
= mi
->geom
;
4140 XRRFreeCrtcInfo (crtc
);
4142 XRRFreeOutputInfo (info
);
4144 XRRFreeScreenResources (resources
);
4146 attributes_list
= x_make_monitor_attribute_list (monitors
,
4151 free_monitors (monitors
, n_monitors
);
4152 return attributes_list
;
4154 #endif /* HAVE_XRANDR */
4157 x_get_monitor_attributes (struct x_display_info
*dpyinfo
)
4159 Lisp_Object attributes_list
= Qnil
;
4160 Display
*dpy
= dpyinfo
->display
;
4163 int xrr_event_base
, xrr_error_base
;
4164 bool xrr_ok
= false;
4165 xrr_ok
= XRRQueryExtension (dpy
, &xrr_event_base
, &xrr_error_base
);
4168 int xrr_major
, xrr_minor
;
4169 XRRQueryVersion (dpy
, &xrr_major
, &xrr_minor
);
4170 xrr_ok
= (xrr_major
== 1 && xrr_minor
>= 2) || xrr_major
> 1;
4174 attributes_list
= x_get_monitor_attributes_xrandr (dpyinfo
);
4175 #endif /* HAVE_XRANDR */
4177 #ifdef HAVE_XINERAMA
4178 if (NILP (attributes_list
))
4180 int xin_event_base
, xin_error_base
;
4181 bool xin_ok
= false;
4182 xin_ok
= XineramaQueryExtension (dpy
, &xin_event_base
, &xin_error_base
);
4183 if (xin_ok
&& XineramaIsActive (dpy
))
4184 attributes_list
= x_get_monitor_attributes_xinerama (dpyinfo
);
4186 #endif /* HAVE_XINERAMA */
4188 if (NILP (attributes_list
))
4189 attributes_list
= x_get_monitor_attributes_fallback (dpyinfo
);
4191 return attributes_list
;
4194 #endif /* !USE_GTK */
4196 DEFUN ("x-display-monitor-attributes-list", Fx_display_monitor_attributes_list
,
4197 Sx_display_monitor_attributes_list
,
4199 doc
: /* Return a list of physical monitor attributes on the X display TERMINAL.
4201 The optional argument TERMINAL specifies which display to ask about.
4202 TERMINAL should be a terminal object, a frame or a display name (a string).
4203 If omitted or nil, that stands for the selected frame's display.
4205 In addition to the standard attribute keys listed in
4206 `display-monitor-attributes-list', the following keys are contained in
4209 source -- String describing the source from which multi-monitor
4210 information is obtained, one of \"Gdk\", \"XRandr\",
4211 \"Xinerama\", or \"fallback\"
4213 Internal use only, use `display-monitor-attributes-list' instead. */)
4214 (Lisp_Object terminal
)
4216 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4217 Lisp_Object attributes_list
= Qnil
;
4220 double mm_width_per_pixel
, mm_height_per_pixel
;
4223 gint primary_monitor
= 0, n_monitors
, i
;
4224 Lisp_Object monitor_frames
, rest
, frame
;
4225 static const char *source
= "Gdk";
4226 struct MonitorInfo
*monitors
;
4229 mm_width_per_pixel
= ((double) WidthMMOfScreen (dpyinfo
->screen
)
4230 / x_display_pixel_width (dpyinfo
));
4231 mm_height_per_pixel
= ((double) HeightMMOfScreen (dpyinfo
->screen
)
4232 / x_display_pixel_height (dpyinfo
));
4233 gdpy
= gdk_x11_lookup_xdisplay (dpyinfo
->display
);
4234 gscreen
= gdk_display_get_default_screen (gdpy
);
4235 #if GTK_CHECK_VERSION (2, 20, 0)
4236 primary_monitor
= gdk_screen_get_primary_monitor (gscreen
);
4238 n_monitors
= gdk_screen_get_n_monitors (gscreen
);
4239 monitor_frames
= Fmake_vector (make_number (n_monitors
), Qnil
);
4240 monitors
= (struct MonitorInfo
*) xzalloc (n_monitors
* sizeof (*monitors
));
4242 FOR_EACH_FRAME (rest
, frame
)
4244 struct frame
*f
= XFRAME (frame
);
4246 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
4247 && !EQ (frame
, tip_frame
))
4249 GdkWindow
*gwin
= gtk_widget_get_window (FRAME_GTK_WIDGET (f
));
4251 i
= gdk_screen_get_monitor_at_window (gscreen
, gwin
);
4252 ASET (monitor_frames
, i
, Fcons (frame
, AREF (monitor_frames
, i
)));
4256 for (i
= 0; i
< n_monitors
; ++i
)
4258 gint width_mm
= -1, height_mm
= -1;
4259 GdkRectangle rec
, work
;
4260 struct MonitorInfo
*mi
= &monitors
[i
];
4262 gdk_screen_get_monitor_geometry (gscreen
, i
, &rec
);
4264 #if GTK_CHECK_VERSION (2, 14, 0)
4265 width_mm
= gdk_screen_get_monitor_width_mm (gscreen
, i
);
4266 height_mm
= gdk_screen_get_monitor_height_mm (gscreen
, i
);
4269 width_mm
= rec
.width
* mm_width_per_pixel
+ 0.5;
4271 height_mm
= rec
.height
* mm_height_per_pixel
+ 0.5;
4273 #if GTK_CHECK_VERSION (3, 4, 0)
4274 gdk_screen_get_monitor_workarea (gscreen
, i
, &work
);
4276 /* Emulate the behavior of GTK+ 3.4. */
4278 XRectangle workarea_r
;
4280 if (i
== primary_monitor
&& x_get_net_workarea (dpyinfo
, &workarea_r
))
4282 work
.x
= workarea_r
.x
;
4283 work
.y
= workarea_r
.y
;
4284 work
.width
= workarea_r
.width
;
4285 work
.height
= workarea_r
.height
;
4286 if (! gdk_rectangle_intersect (&rec
, &work
, &work
))
4297 mi
->geom
.width
= rec
.width
;
4298 mi
->geom
.height
= rec
.height
;
4299 mi
->work
.x
= work
.x
;
4300 mi
->work
.y
= work
.y
;
4301 mi
->work
.width
= work
.width
;
4302 mi
->work
.height
= work
.height
;
4303 mi
->mm_width
= width_mm
;
4304 mi
->mm_height
= height_mm
;
4306 #if GTK_CHECK_VERSION (2, 14, 0)
4307 mi
->name
= gdk_screen_get_monitor_plug_name (gscreen
, i
);
4311 attributes_list
= make_monitor_attribute_list (monitors
,
4317 #else /* not USE_GTK */
4320 attributes_list
= x_get_monitor_attributes (dpyinfo
);
4323 #endif /* not USE_GTK */
4325 return attributes_list
;
4328 /************************************************************************
4330 ************************************************************************/
4333 /* Mapping visual names to visuals. */
4335 static struct visual_class
4342 {"StaticGray", StaticGray
},
4343 {"GrayScale", GrayScale
},
4344 {"StaticColor", StaticColor
},
4345 {"PseudoColor", PseudoColor
},
4346 {"TrueColor", TrueColor
},
4347 {"DirectColor", DirectColor
},
4352 #ifndef HAVE_XSCREENNUMBEROFSCREEN
4354 /* Value is the screen number of screen SCR. This is a substitute for
4355 the X function with the same name when that doesn't exist. */
4358 XScreenNumberOfScreen (scr
)
4359 register Screen
*scr
;
4361 Display
*dpy
= scr
->display
;
4364 for (i
= 0; i
< dpy
->nscreens
; ++i
)
4365 if (scr
== dpy
->screens
+ i
)
4371 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
4374 /* Select the visual that should be used on display DPYINFO. Set
4375 members of DPYINFO appropriately. Called from x_term_init. */
4378 select_visual (struct x_display_info
*dpyinfo
)
4380 Display
*dpy
= dpyinfo
->display
;
4381 Screen
*screen
= dpyinfo
->screen
;
4384 /* See if a visual is specified. */
4385 value
= display_x_get_resource (dpyinfo
,
4386 build_string ("visualClass"),
4387 build_string ("VisualClass"),
4389 if (STRINGP (value
))
4391 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
4392 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4393 depth, a decimal number. NAME is compared with case ignored. */
4394 char *s
= alloca (SBYTES (value
) + 1);
4399 strcpy (s
, SSDATA (value
));
4400 dash
= strchr (s
, '-');
4403 dpyinfo
->n_planes
= atoi (dash
+ 1);
4407 /* We won't find a matching visual with depth 0, so that
4408 an error will be printed below. */
4409 dpyinfo
->n_planes
= 0;
4411 /* Determine the visual class. */
4412 for (i
= 0; visual_classes
[i
].name
; ++i
)
4413 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4415 class = visual_classes
[i
].class;
4419 /* Look up a matching visual for the specified class. */
4421 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4422 dpyinfo
->n_planes
, class, &vinfo
))
4423 fatal ("Invalid visual specification `%s'", SDATA (value
));
4425 dpyinfo
->visual
= vinfo
.visual
;
4430 XVisualInfo
*vinfo
, vinfo_template
;
4432 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4434 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4435 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4436 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4437 &vinfo_template
, &n_visuals
);
4439 fatal ("Can't get proper X visual info");
4441 dpyinfo
->n_planes
= vinfo
->depth
;
4447 /* Return the X display structure for the display named NAME.
4448 Open a new connection if necessary. */
4450 static struct x_display_info
*
4451 x_display_info_for_name (Lisp_Object name
)
4454 struct x_display_info
*dpyinfo
;
4456 CHECK_STRING (name
);
4459 if (! EQ (Vinitial_window_system
, intern ("x")))
4460 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4463 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4465 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4468 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4473 /* Use this general default value to start with. */
4474 Vx_resource_name
= Vinvocation_name
;
4476 validate_x_resource_name ();
4478 dpyinfo
= x_term_init (name
, (char *)0,
4479 SSDATA (Vx_resource_name
));
4482 error ("Cannot connect to X server %s", SDATA (name
));
4484 XSETFASTINT (Vwindow_system_version
, 11);
4490 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4492 doc
: /* Open a connection to a display server.
4493 DISPLAY is the name of the display to connect to.
4494 Optional second arg XRM-STRING is a string of resources in xrdb format.
4495 If the optional third arg MUST-SUCCEED is non-nil,
4496 terminate Emacs if we can't open the connection.
4497 \(In the Nextstep version, the last two arguments are currently ignored.) */)
4498 (Lisp_Object display
, Lisp_Object xrm_string
, Lisp_Object must_succeed
)
4501 struct x_display_info
*dpyinfo
;
4503 CHECK_STRING (display
);
4504 if (! NILP (xrm_string
))
4505 CHECK_STRING (xrm_string
);
4508 if (! EQ (Vinitial_window_system
, intern ("x")))
4509 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4512 if (! NILP (xrm_string
))
4513 xrm_option
= SSDATA (xrm_string
);
4515 xrm_option
= (char *) 0;
4517 validate_x_resource_name ();
4519 /* This is what opens the connection and sets x_current_display.
4520 This also initializes many symbols, such as those used for input. */
4521 dpyinfo
= x_term_init (display
, xrm_option
,
4522 SSDATA (Vx_resource_name
));
4526 if (!NILP (must_succeed
))
4527 fatal ("Cannot connect to X server %s.\n\
4528 Check the DISPLAY environment variable or use `-d'.\n\
4529 Also use the `xauth' program to verify that you have the proper\n\
4530 authorization information needed to connect the X server.\n\
4531 An insecure way to solve the problem may be to use `xhost'.\n",
4534 error ("Cannot connect to X server %s", SDATA (display
));
4537 XSETFASTINT (Vwindow_system_version
, 11);
4541 DEFUN ("x-close-connection", Fx_close_connection
,
4542 Sx_close_connection
, 1, 1, 0,
4543 doc
: /* Close the connection to TERMINAL's X server.
4544 For TERMINAL, specify a terminal object, a frame or a display name (a
4545 string). If TERMINAL is nil, that stands for the selected frame's
4547 (Lisp_Object terminal
)
4549 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4551 if (dpyinfo
->reference_count
> 0)
4552 error ("Display still has frames on it");
4554 x_delete_terminal (dpyinfo
->terminal
);
4559 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4560 doc
: /* Return the list of display names that Emacs has connections to. */)
4563 Lisp_Object tail
, result
;
4566 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4567 result
= Fcons (XCAR (XCAR (tail
)), result
);
4572 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4573 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4574 This function only has an effect on X Windows. With MS Windows, it is
4575 defined but does nothing.
4577 If ON is nil, allow buffering of requests.
4578 Turning on synchronization prohibits the Xlib routines from buffering
4579 requests and seriously degrades performance, but makes debugging much
4581 The optional second argument TERMINAL specifies which display to act on.
4582 TERMINAL should be a terminal object, a frame or a display name (a string).
4583 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4584 (Lisp_Object on
, Lisp_Object terminal
)
4586 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4588 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4593 /* Wait for responses to all X commands issued so far for frame F. */
4596 x_sync (FRAME_PTR f
)
4599 XSync (FRAME_X_DISPLAY (f
), False
);
4604 /***********************************************************************
4606 ***********************************************************************/
4608 DEFUN ("x-change-window-property", Fx_change_window_property
,
4609 Sx_change_window_property
, 2, 6, 0,
4610 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4611 PROP must be a string. VALUE may be a string or a list of conses,
4612 numbers and/or strings. If an element in the list is a string, it is
4613 converted to an atom and the value of the atom is used. If an element
4614 is a cons, it is converted to a 32 bit number where the car is the 16
4615 top bits and the cdr is the lower 16 bits.
4617 FRAME nil or omitted means use the selected frame.
4618 If TYPE is given and non-nil, it is the name of the type of VALUE.
4619 If TYPE is not given or nil, the type is STRING.
4620 FORMAT gives the size in bits of each element if VALUE is a list.
4621 It must be one of 8, 16 or 32.
4622 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4623 If OUTER-P is non-nil, the property is changed for the outer X window of
4624 FRAME. Default is to change on the edit X window. */)
4625 (Lisp_Object prop
, Lisp_Object value
, Lisp_Object frame
,
4626 Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4628 struct frame
*f
= decode_window_system_frame (frame
);
4630 Atom target_type
= XA_STRING
;
4631 int element_format
= 8;
4632 unsigned char *data
;
4636 CHECK_STRING (prop
);
4638 if (! NILP (format
))
4640 CHECK_NUMBER (format
);
4642 if (XINT (format
) != 8 && XINT (format
) != 16
4643 && XINT (format
) != 32)
4644 error ("FORMAT must be one of 8, 16 or 32");
4645 element_format
= XINT (format
);
4652 nelements
= x_check_property_data (value
);
4653 if (nelements
== -1)
4654 error ("Bad data in VALUE, must be number, string or cons");
4656 /* The man page for XChangeProperty:
4657 "If the specified format is 32, the property data must be a
4659 This applies even if long is more than 32 bits. The X library
4660 converts to 32 bits before sending to the X server. */
4661 elsize
= element_format
== 32 ? sizeof (long) : element_format
>> 3;
4662 data
= xnmalloc (nelements
, elsize
);
4664 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4668 CHECK_STRING (value
);
4669 data
= SDATA (value
);
4670 if (INT_MAX
< SBYTES (value
))
4671 error ("VALUE too long");
4672 nelements
= SBYTES (value
);
4676 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4679 CHECK_STRING (type
);
4680 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4683 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4684 else w
= FRAME_X_WINDOW (f
);
4686 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4687 prop_atom
, target_type
, element_format
, PropModeReplace
,
4690 if (CONSP (value
)) xfree (data
);
4692 /* Make sure the property is set when we return. */
4693 XFlush (FRAME_X_DISPLAY (f
));
4700 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4701 Sx_delete_window_property
, 1, 2, 0,
4702 doc
: /* Remove window property PROP from X window of FRAME.
4703 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4704 (Lisp_Object prop
, Lisp_Object frame
)
4706 struct frame
*f
= decode_window_system_frame (frame
);
4709 CHECK_STRING (prop
);
4711 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4712 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4714 /* Make sure the property is removed when we return. */
4715 XFlush (FRAME_X_DISPLAY (f
));
4722 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4724 doc
: /* Value is the value of window property PROP on FRAME.
4725 If FRAME is nil or omitted, use the selected frame.
4727 On X Windows, the following optional arguments are also accepted:
4728 If TYPE is nil or omitted, get the property as a string.
4729 Otherwise TYPE is the name of the atom that denotes the type expected.
4730 If SOURCE is non-nil, get the property on that window instead of from
4731 FRAME. The number 0 denotes the root window.
4732 If DELETE-P is non-nil, delete the property after retrieving it.
4733 If VECTOR-RET-P is non-nil, don't return a string but a vector of values.
4735 On MS Windows, this function accepts but ignores those optional arguments.
4737 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4738 no value of TYPE (always string in the MS Windows case). */)
4739 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
,
4740 Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4742 struct frame
*f
= decode_window_system_frame (frame
);
4745 Lisp_Object prop_value
= Qnil
;
4746 unsigned char *tmp_data
= NULL
;
4748 Atom target_type
= XA_STRING
;
4750 unsigned long actual_size
, bytes_remaining
;
4751 Window target_window
= FRAME_X_WINDOW (f
);
4752 struct gcpro gcpro1
;
4754 GCPRO1 (prop_value
);
4755 CHECK_STRING (prop
);
4757 if (! NILP (source
))
4759 CONS_TO_INTEGER (source
, Window
, target_window
);
4760 if (! target_window
)
4761 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4767 if (strcmp ("AnyPropertyType", SSDATA (type
)) == 0)
4768 target_type
= AnyPropertyType
;
4770 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4773 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4774 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4775 prop_atom
, 0, 0, False
, target_type
,
4776 &actual_type
, &actual_format
, &actual_size
,
4777 &bytes_remaining
, &tmp_data
);
4780 int size
= bytes_remaining
;
4785 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4786 prop_atom
, 0, bytes_remaining
,
4787 ! NILP (delete_p
), target_type
,
4788 &actual_type
, &actual_format
,
4789 &actual_size
, &bytes_remaining
,
4791 if (rc
== Success
&& tmp_data
)
4793 /* The man page for XGetWindowProperty says:
4794 "If the returned format is 32, the returned data is represented
4795 as a long array and should be cast to that type to obtain the
4797 This applies even if long is more than 32 bits, the X library
4798 converts from 32 bit elements received from the X server to long
4799 and passes the long array to us. Thus, for that case memcpy can not
4800 be used. We convert to a 32 bit type here, because so much code
4803 The bytes and offsets passed to XGetWindowProperty refers to the
4804 property and those are indeed in 32 bit quantities if format is
4807 if (BITS_PER_LONG
> 32 && actual_format
== 32)
4810 int *idata
= (int *) tmp_data
;
4811 long *ldata
= (long *) tmp_data
;
4813 for (i
= 0; i
< actual_size
; ++i
)
4814 idata
[i
] = (int) ldata
[i
];
4817 if (NILP (vector_ret_p
))
4818 prop_value
= make_string ((char *) tmp_data
, size
);
4820 prop_value
= x_property_data_to_lisp (f
,
4827 if (tmp_data
) XFree (tmp_data
);
4837 /***********************************************************************
4839 ***********************************************************************/
4841 /* Timer function of hourglass_atimer. TIMER is equal to
4844 Display an hourglass pointer on all frames by mapping the frames'
4845 hourglass_window. Set the hourglass_p flag in the frames'
4846 output_data.x structure to indicate that an hourglass cursor is
4847 shown on the frames. */
4850 show_hourglass (struct atimer
*timer
)
4852 /* The timer implementation will cancel this timer automatically
4853 after this function has run. Set hourglass_atimer to null
4854 so that we know the timer doesn't have to be canceled. */
4855 hourglass_atimer
= NULL
;
4857 if (!hourglass_shown_p
)
4859 Lisp_Object rest
, frame
;
4863 FOR_EACH_FRAME (rest
, frame
)
4865 struct frame
*f
= XFRAME (frame
);
4867 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4869 Display
*dpy
= FRAME_X_DISPLAY (f
);
4871 #ifdef USE_X_TOOLKIT
4872 if (f
->output_data
.x
->widget
)
4874 if (FRAME_OUTER_WINDOW (f
))
4877 f
->output_data
.x
->hourglass_p
= 1;
4879 if (!f
->output_data
.x
->hourglass_window
)
4881 unsigned long mask
= CWCursor
;
4882 XSetWindowAttributes attrs
;
4884 Window parent
= FRAME_X_WINDOW (f
);
4886 Window parent
= FRAME_OUTER_WINDOW (f
);
4888 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4890 f
->output_data
.x
->hourglass_window
4891 = XCreateWindow (dpy
, parent
,
4892 0, 0, 32000, 32000, 0, 0,
4898 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4904 hourglass_shown_p
= 1;
4910 /* Hide the hourglass pointer on all frames, if it is currently
4914 hide_hourglass (void)
4916 if (hourglass_shown_p
)
4918 Lisp_Object rest
, frame
;
4921 FOR_EACH_FRAME (rest
, frame
)
4923 struct frame
*f
= XFRAME (frame
);
4926 /* Watch out for newly created frames. */
4927 && f
->output_data
.x
->hourglass_window
)
4929 XUnmapWindow (FRAME_X_DISPLAY (f
),
4930 f
->output_data
.x
->hourglass_window
);
4931 /* Sync here because XTread_socket looks at the
4932 hourglass_p flag that is reset to zero below. */
4933 XSync (FRAME_X_DISPLAY (f
), False
);
4934 f
->output_data
.x
->hourglass_p
= 0;
4938 hourglass_shown_p
= 0;
4945 /***********************************************************************
4947 ***********************************************************************/
4949 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4950 Lisp_Object
, Lisp_Object
);
4951 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4952 Lisp_Object
, int, int, int *, int *);
4954 /* The frame of a currently visible tooltip. */
4956 Lisp_Object tip_frame
;
4958 /* If non-nil, a timer started that hides the last tooltip when it
4961 static Lisp_Object tip_timer
;
4964 /* If non-nil, a vector of 3 elements containing the last args
4965 with which x-show-tip was called. See there. */
4967 static Lisp_Object last_show_tip_args
;
4971 unwind_create_tip_frame (Lisp_Object frame
)
4973 Lisp_Object deleted
;
4975 deleted
= unwind_create_frame (frame
);
4976 if (EQ (deleted
, Qt
))
4984 /* Create a frame for a tooltip on the display described by DPYINFO.
4985 PARMS is a list of frame parameters. TEXT is the string to
4986 display in the tip frame. Value is the frame.
4988 Note that functions called here, esp. x_default_parameter can
4989 signal errors, for instance when a specified color name is
4990 undefined. We have to make sure that we're in a consistent state
4991 when this happens. */
4994 x_create_tip_frame (struct x_display_info
*dpyinfo
,
5002 ptrdiff_t count
= SPECPDL_INDEX ();
5003 struct gcpro gcpro1
, gcpro2
, gcpro3
;
5004 int face_change_count_before
= face_change_count
;
5006 struct buffer
*old_buffer
;
5008 if (!dpyinfo
->terminal
->name
)
5009 error ("Terminal is not live, can't create new frames on it");
5011 parms
= Fcopy_alist (parms
);
5013 /* Get the name of the frame to use for resource lookup. */
5014 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
5016 && !EQ (name
, Qunbound
)
5018 error ("Invalid frame name--not a string or nil");
5021 GCPRO3 (parms
, name
, frame
);
5023 XSETFRAME (frame
, f
);
5025 buffer
= Fget_buffer_create (build_string (" *tip*"));
5026 /* Use set_window_buffer instead of Fset_window_buffer (see
5027 discussion of bug#11984, bug#12025, bug#12026). */
5028 set_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, 0, 0);
5029 old_buffer
= current_buffer
;
5030 set_buffer_internal_1 (XBUFFER (buffer
));
5031 bset_truncate_lines (current_buffer
, Qnil
);
5032 specbind (Qinhibit_read_only
, Qt
);
5033 specbind (Qinhibit_modification_hooks
, Qt
);
5036 set_buffer_internal_1 (old_buffer
);
5038 record_unwind_protect (unwind_create_tip_frame
, frame
);
5040 f
->terminal
= dpyinfo
->terminal
;
5042 /* By setting the output method, we're essentially saying that
5043 the frame is live, as per FRAME_LIVE_P. If we get a signal
5044 from this point on, x_destroy_window might screw up reference
5046 f
->output_method
= output_x_window
;
5047 f
->output_data
.x
= xzalloc (sizeof *f
->output_data
.x
);
5048 f
->output_data
.x
->icon_bitmap
= -1;
5049 FRAME_FONTSET (f
) = -1;
5050 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
5051 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
5052 #ifdef USE_TOOLKIT_SCROLL_BARS
5053 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
5054 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
5055 #endif /* USE_TOOLKIT_SCROLL_BARS */
5056 fset_icon_name (f
, Qnil
);
5057 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
5058 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
5059 f
->output_data
.x
->explicit_parent
= 0;
5061 /* These colors will be set anyway later, but it's important
5062 to get the color reference counts right, so initialize them! */
5065 struct gcpro gcpro1
;
5067 /* Function x_decode_color can signal an error. Make
5068 sure to initialize color slots so that we won't try
5069 to free colors we haven't allocated. */
5070 FRAME_FOREGROUND_PIXEL (f
) = -1;
5071 FRAME_BACKGROUND_PIXEL (f
) = -1;
5072 f
->output_data
.x
->cursor_pixel
= -1;
5073 f
->output_data
.x
->cursor_foreground_pixel
= -1;
5074 f
->output_data
.x
->border_pixel
= -1;
5075 f
->output_data
.x
->mouse_pixel
= -1;
5077 black
= build_string ("black");
5079 FRAME_FOREGROUND_PIXEL (f
)
5080 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
5081 FRAME_BACKGROUND_PIXEL (f
)
5082 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
5083 f
->output_data
.x
->cursor_pixel
5084 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
5085 f
->output_data
.x
->cursor_foreground_pixel
5086 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
5087 f
->output_data
.x
->border_pixel
5088 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
5089 f
->output_data
.x
->mouse_pixel
5090 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
5094 /* Set the name; the functions to which we pass f expect the name to
5096 if (EQ (name
, Qunbound
) || NILP (name
))
5098 fset_name (f
, build_string (dpyinfo
->x_id_name
));
5099 f
->explicit_name
= 0;
5103 fset_name (f
, name
);
5104 f
->explicit_name
= 1;
5105 /* use the frame's title when getting resources for this frame. */
5106 specbind (Qx_resource_name
, name
);
5109 register_font_driver (&xfont_driver
, f
);
5110 #ifdef HAVE_FREETYPE
5112 register_font_driver (&xftfont_driver
, f
);
5113 #else /* not HAVE_XFT */
5114 register_font_driver (&ftxfont_driver
, f
);
5115 #endif /* not HAVE_XFT */
5116 #endif /* HAVE_FREETYPE */
5118 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
5119 "fontBackend", "FontBackend", RES_TYPE_STRING
);
5121 /* Extract the window parameters from the supplied values that are
5122 needed to determine window geometry. */
5123 x_default_font_parameter (f
, parms
);
5125 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
5126 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
5128 /* This defaults to 2 in order to match xterm. We recognize either
5129 internalBorderWidth or internalBorder (which is what xterm calls
5131 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5135 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
5136 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
5137 if (! EQ (value
, Qunbound
))
5138 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
5142 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
5143 "internalBorderWidth", "internalBorderWidth",
5146 /* Also do the stuff which must be set before the window exists. */
5147 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
5148 "foreground", "Foreground", RES_TYPE_STRING
);
5149 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
5150 "background", "Background", RES_TYPE_STRING
);
5151 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
5152 "pointerColor", "Foreground", RES_TYPE_STRING
);
5153 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
5154 "cursorColor", "Foreground", RES_TYPE_STRING
);
5155 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
5156 "borderColor", "BorderColor", RES_TYPE_STRING
);
5159 image_cache_refcount
=
5160 FRAME_IMAGE_CACHE (f
) ? FRAME_IMAGE_CACHE (f
)->refcount
: 0;
5161 dpyinfo_refcount
= dpyinfo
->reference_count
;
5162 #endif /* GLYPH_DEBUG */
5164 /* Init faces before x_default_parameter is called for scroll-bar
5165 parameters because that function calls x_set_scroll_bar_width,
5166 which calls change_frame_size, which calls Fset_window_buffer,
5167 which runs hooks, which call Fvertical_motion. At the end, we
5168 end up in init_iterator with a null face cache, which should not
5170 init_frame_faces (f
);
5172 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
5174 x_figure_window_size (f
, parms
, 0);
5177 XSetWindowAttributes attrs
;
5179 Atom type
= FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
5182 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
5183 if (DoesSaveUnders (dpyinfo
->screen
))
5184 mask
|= CWSaveUnder
;
5186 /* Window managers look at the override-redirect flag to determine
5187 whether or net to give windows a decoration (Xlib spec, chapter
5189 attrs
.override_redirect
= True
;
5190 attrs
.save_under
= True
;
5191 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
5192 /* Arrange for getting MapNotify and UnmapNotify events. */
5193 attrs
.event_mask
= StructureNotifyMask
;
5195 = FRAME_X_WINDOW (f
)
5196 = XCreateWindow (FRAME_X_DISPLAY (f
),
5197 FRAME_X_DISPLAY_INFO (f
)->root_window
,
5198 /* x, y, width, height */
5202 CopyFromParent
, InputOutput
, CopyFromParent
,
5204 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
5205 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type
,
5206 XA_ATOM
, 32, PropModeReplace
,
5207 (unsigned char *)&type
, 1);
5213 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
5214 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
5215 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
5216 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
5217 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
5218 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
5220 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
5221 Change will not be effected unless different from the current
5223 width
= FRAME_COLS (f
);
5224 height
= FRAME_LINES (f
);
5225 SET_FRAME_COLS (f
, 0);
5226 FRAME_LINES (f
) = 0;
5227 change_frame_size (f
, height
, width
, 1, 0, 0);
5229 /* Add `tooltip' frame parameter's default value. */
5230 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
5231 Fmodify_frame_parameters (frame
, list1 (Fcons (Qtooltip
, Qt
)));
5233 /* FIXME - can this be done in a similar way to normal frames?
5234 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
5236 /* Set the `display-type' frame parameter before setting up faces. */
5238 Lisp_Object disptype
;
5240 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
5241 disptype
= intern ("mono");
5242 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
5243 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
5244 disptype
= intern ("grayscale");
5246 disptype
= intern ("color");
5248 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
5249 Fmodify_frame_parameters (frame
, list1 (Fcons (Qdisplay_type
, disptype
)));
5252 /* Set up faces after all frame parameters are known. This call
5253 also merges in face attributes specified for new frames.
5255 Frame parameters may be changed if .Xdefaults contains
5256 specifications for the default font. For example, if there is an
5257 `Emacs.default.attributeBackground: pink', the `background-color'
5258 attribute of the frame get's set, which let's the internal border
5259 of the tooltip frame appear in pink. Prevent this. */
5261 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
5263 /* Set tip_frame here, so that */
5265 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
5267 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
5268 Fmodify_frame_parameters (frame
, list1 (Fcons (Qbackground_color
, bg
)));
5275 /* Now that the frame will be official, it counts as a reference to
5276 its display and terminal. */
5277 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
5278 f
->terminal
->reference_count
++;
5280 /* It is now ok to make the frame official even if we get an error
5281 below. And the frame needs to be on Vframe_list or making it
5282 visible won't work. */
5283 Vframe_list
= Fcons (frame
, Vframe_list
);
5286 /* Setting attributes of faces of the tooltip frame from resources
5287 and similar will increment face_change_count, which leads to the
5288 clearing of all current matrices. Since this isn't necessary
5289 here, avoid it by resetting face_change_count to the value it
5290 had before we created the tip frame. */
5291 face_change_count
= face_change_count_before
;
5293 /* Discard the unwind_protect. */
5294 return unbind_to (count
, frame
);
5298 /* Compute where to display tip frame F. PARMS is the list of frame
5299 parameters for F. DX and DY are specified offsets from the current
5300 location of the mouse. WIDTH and HEIGHT are the width and height
5301 of the tooltip. Return coordinates relative to the root window of
5302 the display in *ROOT_X, and *ROOT_Y. */
5305 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
)
5307 Lisp_Object left
, top
;
5312 /* User-specified position? */
5313 left
= Fcdr (Fassq (Qleft
, parms
));
5314 top
= Fcdr (Fassq (Qtop
, parms
));
5316 /* Move the tooltip window where the mouse pointer is. Resize and
5318 if (!INTEGERP (left
) || !INTEGERP (top
))
5321 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
5322 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
5327 *root_y
= XINT (top
);
5328 else if (*root_y
+ XINT (dy
) <= 0)
5329 *root_y
= 0; /* Can happen for negative dy */
5330 else if (*root_y
+ XINT (dy
) + height
5331 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
5332 /* It fits below the pointer */
5333 *root_y
+= XINT (dy
);
5334 else if (height
+ XINT (dy
) <= *root_y
)
5335 /* It fits above the pointer. */
5336 *root_y
-= height
+ XINT (dy
);
5338 /* Put it on the top. */
5341 if (INTEGERP (left
))
5342 *root_x
= XINT (left
);
5343 else if (*root_x
+ XINT (dx
) <= 0)
5344 *root_x
= 0; /* Can happen for negative dx */
5345 else if (*root_x
+ XINT (dx
) + width
5346 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
5347 /* It fits to the right of the pointer. */
5348 *root_x
+= XINT (dx
);
5349 else if (width
+ XINT (dx
) <= *root_x
)
5350 /* It fits to the left of the pointer. */
5351 *root_x
-= width
+ XINT (dx
);
5353 /* Put it left-justified on the screen--it ought to fit that way. */
5358 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5359 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5360 A tooltip window is a small X window displaying a string.
5362 This is an internal function; Lisp code should call `tooltip-show'.
5364 FRAME nil or omitted means use the selected frame.
5366 PARMS is an optional list of frame parameters which can be used to
5367 change the tooltip's appearance.
5369 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5370 means use the default timeout of 5 seconds.
5372 If the list of frame parameters PARMS contains a `left' parameters,
5373 the tooltip is displayed at that x-position. Otherwise it is
5374 displayed at the mouse position, with offset DX added (default is 5 if
5375 DX isn't specified). Likewise for the y-position; if a `top' frame
5376 parameter is specified, it determines the y-position of the tooltip
5377 window, otherwise it is displayed at the mouse position, with offset
5378 DY added (default is -10).
5380 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5381 Text larger than the specified size is clipped. */)
5382 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
5387 struct buffer
*old_buffer
;
5388 struct text_pos pos
;
5389 int i
, width
, height
, seen_reversed_p
;
5390 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5391 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5392 ptrdiff_t count
= SPECPDL_INDEX ();
5394 specbind (Qinhibit_redisplay
, Qt
);
5396 GCPRO4 (string
, parms
, frame
, timeout
);
5398 CHECK_STRING (string
);
5399 if (SCHARS (string
) == 0)
5400 string
= make_unibyte_string (" ", 1);
5402 f
= decode_window_system_frame (frame
);
5404 timeout
= make_number (5);
5406 CHECK_NATNUM (timeout
);
5409 dx
= make_number (5);
5414 dy
= make_number (-10);
5419 if (x_gtk_use_system_tooltips
)
5423 /* Hide a previous tip, if any. */
5427 ok
= xg_prepare_tooltip (f
, string
, &width
, &height
);
5430 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5431 xg_show_tooltip (f
, root_x
, root_y
);
5432 /* This is used in Fx_hide_tip. */
5433 XSETFRAME (tip_frame
, f
);
5436 if (ok
) goto start_timer
;
5438 #endif /* USE_GTK */
5440 if (NILP (last_show_tip_args
))
5441 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5443 if (!NILP (tip_frame
))
5445 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5446 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5447 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5449 if (EQ (frame
, last_frame
)
5450 && !NILP (Fequal (last_string
, string
))
5451 && !NILP (Fequal (last_parms
, parms
)))
5453 struct frame
*tip_f
= XFRAME (tip_frame
);
5455 /* Only DX and DY have changed. */
5456 if (!NILP (tip_timer
))
5458 Lisp_Object timer
= tip_timer
;
5460 call1 (Qcancel_timer
, timer
);
5464 compute_tip_xy (tip_f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (tip_f
),
5465 FRAME_PIXEL_HEIGHT (tip_f
), &root_x
, &root_y
);
5466 XMoveWindow (FRAME_X_DISPLAY (tip_f
), FRAME_X_WINDOW (tip_f
),
5473 /* Hide a previous tip, if any. */
5476 ASET (last_show_tip_args
, 0, string
);
5477 ASET (last_show_tip_args
, 1, frame
);
5478 ASET (last_show_tip_args
, 2, parms
);
5480 /* Add default values to frame parameters. */
5481 if (NILP (Fassq (Qname
, parms
)))
5482 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5483 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5484 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5485 if (NILP (Fassq (Qborder_width
, parms
)))
5486 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5487 if (NILP (Fassq (Qborder_color
, parms
)))
5488 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5489 if (NILP (Fassq (Qbackground_color
, parms
)))
5490 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5493 /* Create a frame for the tooltip, and record it in the global
5494 variable tip_frame. */
5495 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5498 /* Set up the frame's root window. */
5499 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5503 if (CONSP (Vx_max_tooltip_size
)
5504 && RANGED_INTEGERP (1, XCAR (Vx_max_tooltip_size
), INT_MAX
)
5505 && RANGED_INTEGERP (1, XCDR (Vx_max_tooltip_size
), INT_MAX
))
5507 w
->total_cols
= XFASTINT (XCAR (Vx_max_tooltip_size
));
5508 w
->total_lines
= XFASTINT (XCDR (Vx_max_tooltip_size
));
5513 w
->total_lines
= 40;
5516 FRAME_TOTAL_COLS (f
) = w
->total_cols
;
5518 w
->pseudo_window_p
= 1;
5520 /* Display the tooltip text in a temporary buffer. */
5521 old_buffer
= current_buffer
;
5522 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->contents
));
5523 bset_truncate_lines (current_buffer
, Qnil
);
5524 clear_glyph_matrix (w
->desired_matrix
);
5525 clear_glyph_matrix (w
->current_matrix
);
5526 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5527 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5529 /* Compute width and height of the tooltip. */
5530 width
= height
= seen_reversed_p
= 0;
5531 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5533 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5537 /* Stop at the first empty row at the end. */
5538 if (!row
->enabled_p
|| !MATRIX_ROW_DISPLAYS_TEXT_P (row
))
5541 /* Let the row go over the full width of the frame. */
5542 row
->full_width_p
= 1;
5544 row_width
= row
->pixel_width
;
5545 if (row
->used
[TEXT_AREA
])
5547 /* There's a glyph at the end of rows that is used to place
5548 the cursor there. Don't include the width of this glyph. */
5549 if (!row
->reversed_p
)
5551 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5552 if (INTEGERP (last
->object
))
5553 row_width
-= last
->pixel_width
;
5557 /* There could be a stretch glyph at the beginning of R2L
5558 rows that is produced by extend_face_to_end_of_line.
5559 Don't count that glyph. */
5560 struct glyph
*g
= row
->glyphs
[TEXT_AREA
];
5562 if (g
->type
== STRETCH_GLYPH
&& INTEGERP (g
->object
))
5564 row_width
-= g
->pixel_width
;
5565 seen_reversed_p
= 1;
5570 height
+= row
->height
;
5571 width
= max (width
, row_width
);
5574 /* If we've seen partial-length R2L rows, we need to re-adjust the
5575 tool-tip frame width and redisplay it again, to avoid over-wide
5576 tips due to the stretch glyph that extends R2L lines to full
5577 width of the frame. */
5578 if (seen_reversed_p
)
5580 /* w->total_cols and FRAME_TOTAL_COLS want the width in columns,
5582 width
/= WINDOW_FRAME_COLUMN_WIDTH (w
);
5583 w
->total_cols
= width
;
5584 FRAME_TOTAL_COLS (f
) = width
;
5586 clear_glyph_matrix (w
->desired_matrix
);
5587 clear_glyph_matrix (w
->current_matrix
);
5588 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5590 /* Recompute width and height of the tooltip. */
5591 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5593 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5597 if (!row
->enabled_p
|| !MATRIX_ROW_DISPLAYS_TEXT_P (row
))
5599 row
->full_width_p
= 1;
5600 row_width
= row
->pixel_width
;
5601 if (row
->used
[TEXT_AREA
] && !row
->reversed_p
)
5603 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5604 if (INTEGERP (last
->object
))
5605 row_width
-= last
->pixel_width
;
5608 height
+= row
->height
;
5609 width
= max (width
, row_width
);
5613 /* Add the frame's internal border to the width and height the X
5614 window should have. */
5615 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5616 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5618 /* Move the tooltip window where the mouse pointer is. Resize and
5620 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5623 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5624 root_x
, root_y
, width
, height
);
5625 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5628 /* Draw into the window. */
5629 w
->must_be_updated_p
= 1;
5630 update_single_window (w
, 1);
5632 /* Restore original current buffer. */
5633 set_buffer_internal_1 (old_buffer
);
5634 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5637 /* Let the tip disappear after timeout seconds. */
5638 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5639 intern ("x-hide-tip"));
5642 return unbind_to (count
, Qnil
);
5646 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5647 doc
: /* Hide the current tooltip window, if there is any.
5648 Value is t if tooltip was open, nil otherwise. */)
5652 Lisp_Object deleted
, frame
, timer
;
5653 struct gcpro gcpro1
, gcpro2
;
5655 /* Return quickly if nothing to do. */
5656 if (NILP (tip_timer
) && NILP (tip_frame
))
5661 GCPRO2 (frame
, timer
);
5662 tip_frame
= tip_timer
= deleted
= Qnil
;
5664 count
= SPECPDL_INDEX ();
5665 specbind (Qinhibit_redisplay
, Qt
);
5666 specbind (Qinhibit_quit
, Qt
);
5669 call1 (Qcancel_timer
, timer
);
5673 /* When using system tooltip, tip_frame is the Emacs frame on which
5674 the tip is shown. */
5675 struct frame
*f
= XFRAME (frame
);
5676 if (FRAME_LIVE_P (f
) && xg_hide_tooltip (f
))
5683 delete_frame (frame
, Qnil
);
5687 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5688 redisplay procedure is not called when a tip frame over menu
5689 items is unmapped. Redisplay the menu manually... */
5692 struct frame
*f
= SELECTED_FRAME ();
5693 w
= f
->output_data
.x
->menubar_widget
;
5695 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5699 xlwmenu_redisplay (w
);
5703 #endif /* USE_LUCID */
5707 return unbind_to (count
, deleted
);
5712 /***********************************************************************
5713 File selection dialog
5714 ***********************************************************************/
5716 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5717 Sx_uses_old_gtk_dialog
,
5719 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5725 && window_system_available (SELECTED_FRAME ())
5726 && xg_uses_old_file_dialog ())
5734 /* Callback for "OK" and "Cancel" on file selection dialog. */
5737 file_dialog_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5739 int *result
= (int *) client_data
;
5740 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5741 *result
= cb
->reason
;
5745 /* Callback for unmapping a file selection dialog. This is used to
5746 capture the case where a dialog is closed via a window manager's
5747 closer button, for example. Using a XmNdestroyCallback didn't work
5751 file_dialog_unmap_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5753 int *result
= (int *) client_data
;
5754 *result
= XmCR_CANCEL
;
5758 clean_up_file_dialog (void *arg
)
5760 Widget dialog
= arg
;
5764 XtUnmanageChild (dialog
);
5765 XtDestroyWidget (dialog
);
5766 x_menu_set_in_use (0);
5771 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5772 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5773 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5774 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5775 or directory must exist.
5777 This function is only defined on NS, MS Windows, and X Windows with the
5778 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5779 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5780 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5783 struct frame
*f
= SELECTED_FRAME ();
5784 Lisp_Object file
= Qnil
;
5785 Lisp_Object decoded_file
;
5786 Widget dialog
, text
, help
;
5789 XmString dir_xmstring
, pattern_xmstring
;
5790 ptrdiff_t count
= SPECPDL_INDEX ();
5791 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5793 check_window_system (f
);
5795 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5797 if (popup_activated ())
5798 error ("Trying to use a menu from within a menu-entry");
5800 CHECK_STRING (prompt
);
5803 /* Prevent redisplay. */
5804 specbind (Qinhibit_redisplay
, Qt
);
5808 /* Create the dialog with PROMPT as title, using DIR as initial
5809 directory and using "*" as pattern. */
5810 dir
= Fexpand_file_name (dir
, Qnil
);
5811 dir_xmstring
= XmStringCreateLocalized (SSDATA (dir
));
5812 pattern_xmstring
= XmStringCreateLocalized ("*");
5814 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5815 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5816 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5817 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5818 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5819 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5821 XmStringFree (dir_xmstring
);
5822 XmStringFree (pattern_xmstring
);
5824 /* Add callbacks for OK and Cancel. */
5825 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5826 (XtPointer
) &result
);
5827 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5828 (XtPointer
) &result
);
5829 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5830 (XtPointer
) &result
);
5832 /* Remove the help button since we can't display help. */
5833 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5834 XtUnmanageChild (help
);
5836 /* Mark OK button as default. */
5837 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5838 XmNshowAsDefault
, True
, NULL
);
5840 /* If MUSTMATCH is non-nil, disable the file entry field of the
5841 dialog, so that the user must select a file from the files list
5842 box. We can't remove it because we wouldn't have a way to get at
5843 the result file name, then. */
5844 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5845 if (!NILP (mustmatch
))
5848 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5849 XtSetSensitive (text
, False
);
5850 XtSetSensitive (label
, False
);
5853 /* Manage the dialog, so that list boxes get filled. */
5854 XtManageChild (dialog
);
5856 if (STRINGP (default_filename
))
5858 XmString default_xmstring
;
5859 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5860 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5862 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5863 XmTextFieldReplace (wtext
, 0, last_pos
,
5864 (SSDATA (Ffile_name_nondirectory (default_filename
))));
5866 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5867 must include the path for this to work. */
5869 default_xmstring
= XmStringCreateLocalized (SSDATA (default_filename
));
5871 if (XmListItemExists (list
, default_xmstring
))
5873 int item_pos
= XmListItemPos (list
, default_xmstring
);
5874 /* Select the item and scroll it into view. */
5875 XmListSelectPos (list
, item_pos
, True
);
5876 XmListSetPos (list
, item_pos
);
5879 XmStringFree (default_xmstring
);
5882 record_unwind_protect_ptr (clean_up_file_dialog
, dialog
);
5884 /* Process events until the user presses Cancel or OK. */
5885 x_menu_set_in_use (1);
5890 x_menu_wait_for_event (0);
5891 XtAppNextEvent (Xt_app_con
, &event
);
5892 if (event
.type
== KeyPress
5893 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5895 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5897 /* Pop down on C-g. */
5898 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5899 XtUnmanageChild (dialog
);
5902 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5905 /* Get the result. */
5906 if (result
== XmCR_OK
)
5908 XmString text_string
;
5911 XtVaGetValues (dialog
, XmNtextString
, &text_string
, NULL
);
5912 XmStringGetLtoR (text_string
, XmFONTLIST_DEFAULT_TAG
, &data
);
5913 XmStringFree (text_string
);
5914 file
= build_string (data
);
5923 /* Make "Cancel" equivalent to C-g. */
5925 Fsignal (Qquit
, Qnil
);
5927 decoded_file
= DECODE_FILE (file
);
5929 return unbind_to (count
, decoded_file
);
5932 #endif /* USE_MOTIF */
5937 clean_up_dialog (void)
5939 x_menu_set_in_use (0);
5942 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5943 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5944 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5945 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5946 or directory must exist.
5948 This function is only defined on NS, MS Windows, and X Windows with the
5949 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5950 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5951 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5953 FRAME_PTR f
= SELECTED_FRAME ();
5955 Lisp_Object file
= Qnil
;
5956 Lisp_Object decoded_file
;
5957 ptrdiff_t count
= SPECPDL_INDEX ();
5958 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5961 check_window_system (f
);
5963 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5965 if (popup_activated ())
5966 error ("Trying to use a menu from within a menu-entry");
5968 CHECK_STRING (prompt
);
5971 /* Prevent redisplay. */
5972 specbind (Qinhibit_redisplay
, Qt
);
5973 record_unwind_protect_void (clean_up_dialog
);
5977 if (STRINGP (default_filename
))
5978 cdef_file
= SSDATA (default_filename
);
5980 cdef_file
= SSDATA (dir
);
5982 fn
= xg_get_file_name (f
, SSDATA (prompt
), cdef_file
,
5984 ! NILP (only_dir_p
));
5988 file
= build_string (fn
);
5995 /* Make "Cancel" equivalent to C-g. */
5997 Fsignal (Qquit
, Qnil
);
5999 decoded_file
= DECODE_FILE (file
);
6001 return unbind_to (count
, decoded_file
);
6005 #ifdef HAVE_FREETYPE
6007 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
6008 doc
: /* Read a font using a GTK dialog.
6009 Return either a font spec (for GTK versions >= 3.2) or a string
6010 containing a GTK-style font name.
6012 FRAME is the frame on which to pop up the font chooser. If omitted or
6013 nil, it defaults to the selected frame. */)
6014 (Lisp_Object frame
, Lisp_Object ignored
)
6016 FRAME_PTR f
= decode_window_system_frame (frame
);
6018 Lisp_Object font_param
;
6019 char *default_name
= NULL
;
6020 struct gcpro gcpro1
, gcpro2
;
6021 ptrdiff_t count
= SPECPDL_INDEX ();
6023 if (popup_activated ())
6024 error ("Trying to use a menu from within a menu-entry");
6026 /* Prevent redisplay. */
6027 specbind (Qinhibit_redisplay
, Qt
);
6028 record_unwind_protect_void (clean_up_dialog
);
6032 GCPRO2 (font_param
, font
);
6034 XSETFONT (font
, FRAME_FONT (f
));
6035 font_param
= Ffont_get (font
, intern (":name"));
6036 if (STRINGP (font_param
))
6037 default_name
= xstrdup (SSDATA (font_param
));
6040 font_param
= Fframe_parameter (frame
, Qfont_param
);
6041 if (STRINGP (font_param
))
6042 default_name
= xstrdup (SSDATA (font_param
));
6045 font
= xg_get_font (f
, default_name
);
6046 xfree (default_name
);
6051 Fsignal (Qquit
, Qnil
);
6053 return unbind_to (count
, font
);
6055 #endif /* HAVE_FREETYPE */
6057 #endif /* USE_GTK */
6060 /***********************************************************************
6062 ***********************************************************************/
6065 #include <X11/XKBlib.h>
6066 #include <X11/keysym.h>
6069 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
6070 Sx_backspace_delete_keys_p
, 0, 1, 0,
6071 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
6072 FRAME nil means use the selected frame.
6073 Value is t if we know that both keys are present, and are mapped to the
6074 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
6075 present and mapped to the usual X keysyms. */)
6082 struct frame
*f
= decode_window_system_frame (frame
);
6083 Display
*dpy
= FRAME_X_DISPLAY (f
);
6084 Lisp_Object have_keys
;
6085 int major
, minor
, op
, event
, error_code
;
6089 /* Check library version in case we're dynamically linked. */
6090 major
= XkbMajorVersion
;
6091 minor
= XkbMinorVersion
;
6092 if (!XkbLibraryVersion (&major
, &minor
))
6098 /* Check that the server supports XKB. */
6099 major
= XkbMajorVersion
;
6100 minor
= XkbMinorVersion
;
6101 if (!XkbQueryExtension (dpy
, &op
, &event
, &error_code
, &major
, &minor
))
6107 /* In this code we check that the keyboard has physical keys with names
6108 that start with BKSP (Backspace) and DELE (Delete), and that they
6109 generate keysym XK_BackSpace and XK_Delete respectively.
6110 This function is used to test if normal-erase-is-backspace should be
6112 An alternative approach would be to just check if XK_BackSpace and
6113 XK_Delete are mapped to any key. But if any of those are mapped to
6114 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
6115 user doesn't know about it, it is better to return false here.
6116 It is more obvious to the user what to do if she/he has two keys
6117 clearly marked with names/symbols and one key does something not
6118 expected (i.e. she/he then tries the other).
6119 The cases where Backspace/Delete is mapped to some other key combination
6120 are rare, and in those cases, normal-erase-is-backspace can be turned on
6124 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
6127 int delete_keycode
= 0, backspace_keycode
= 0, i
;
6129 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
6131 for (i
= kb
->min_key_code
;
6132 (i
< kb
->max_key_code
6133 && (delete_keycode
== 0 || backspace_keycode
== 0));
6136 /* The XKB symbolic key names can be seen most easily in
6137 the PS file generated by `xkbprint -label name
6139 if (memcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
6141 else if (memcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
6142 backspace_keycode
= i
;
6145 XkbFreeNames (kb
, 0, True
);
6148 XkbFreeClientMap (kb
, 0, True
);
6151 && backspace_keycode
6152 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
6153 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
6163 /***********************************************************************
6165 ***********************************************************************/
6167 /* Keep this list in the same order as frame_parms in frame.c.
6168 Use 0 for unsupported frame parameters. */
6170 frame_parm_handler x_frame_parm_handlers
[] =
6174 x_set_background_color
,
6180 x_set_foreground_color
,
6183 x_set_internal_border_width
,
6184 x_set_menu_bar_lines
,
6186 x_explicitly_set_name
,
6187 x_set_scroll_bar_width
,
6190 x_set_vertical_scroll_bars
,
6192 x_set_tool_bar_lines
,
6193 x_set_scroll_bar_foreground
,
6194 x_set_scroll_bar_background
,
6204 x_set_tool_bar_position
,
6210 /* The section below is built by the lisp expression at the top of the file,
6211 just above where these variables are declared. */
6212 /*&&& init symbols here &&&*/
6213 DEFSYM (Qsuppress_icon
, "suppress-icon");
6214 DEFSYM (Qundefined_color
, "undefined-color");
6215 DEFSYM (Qcompound_text
, "compound-text");
6216 DEFSYM (Qcancel_timer
, "cancel-timer");
6217 DEFSYM (Qfont_param
, "font-parameter");
6218 /* This is the end of symbol initialization. */
6220 Fput (Qundefined_color
, Qerror_conditions
,
6221 listn (CONSTYPE_PURE
, 2, Qundefined_color
, Qerror
));
6222 Fput (Qundefined_color
, Qerror_message
,
6223 build_pure_c_string ("Undefined color"));
6225 DEFVAR_LISP ("x-pointer-shape", Vx_pointer_shape
,
6226 doc
: /* The shape of the pointer when over text.
6227 Changing the value does not affect existing frames
6228 unless you set the mouse color. */);
6229 Vx_pointer_shape
= Qnil
;
6231 #if 0 /* This doesn't really do anything. */
6232 DEFVAR_LISP ("x-nontext-pointer-shape", Vx_nontext_pointer_shape
,
6233 doc
: /* The shape of the pointer when not over text.
6234 This variable takes effect when you create a new frame
6235 or when you set the mouse color. */);
6237 Vx_nontext_pointer_shape
= Qnil
;
6239 DEFVAR_LISP ("x-hourglass-pointer-shape", Vx_hourglass_pointer_shape
,
6240 doc
: /* The shape of the pointer when Emacs is busy.
6241 This variable takes effect when you create a new frame
6242 or when you set the mouse color. */);
6243 Vx_hourglass_pointer_shape
= Qnil
;
6245 #if 0 /* This doesn't really do anything. */
6246 DEFVAR_LISP ("x-mode-pointer-shape", Vx_mode_pointer_shape
,
6247 doc
: /* The shape of the pointer when over the mode line.
6248 This variable takes effect when you create a new frame
6249 or when you set the mouse color. */);
6251 Vx_mode_pointer_shape
= Qnil
;
6253 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
6254 Vx_sensitive_text_pointer_shape
,
6255 doc
: /* The shape of the pointer when over mouse-sensitive text.
6256 This variable takes effect when you create a new frame
6257 or when you set the mouse color. */);
6258 Vx_sensitive_text_pointer_shape
= Qnil
;
6260 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
6261 Vx_window_horizontal_drag_shape
,
6262 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
6263 This variable takes effect when you create a new frame
6264 or when you set the mouse color. */);
6265 Vx_window_horizontal_drag_shape
= Qnil
;
6267 DEFVAR_LISP ("x-cursor-fore-pixel", Vx_cursor_fore_pixel
,
6268 doc
: /* A string indicating the foreground color of the cursor box. */);
6269 Vx_cursor_fore_pixel
= Qnil
;
6271 DEFVAR_LISP ("x-max-tooltip-size", Vx_max_tooltip_size
,
6272 doc
: /* Maximum size for tooltips.
6273 Value is a pair (COLUMNS . ROWS). Text larger than this is clipped. */);
6274 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
6276 DEFVAR_LISP ("x-no-window-manager", Vx_no_window_manager
,
6277 doc
: /* Non-nil if no X window manager is in use.
6278 Emacs doesn't try to figure this out; this is always nil
6279 unless you set it to something else. */);
6280 /* We don't have any way to find this out, so set it to nil
6281 and maybe the user would like to set it to t. */
6282 Vx_no_window_manager
= Qnil
;
6284 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
6285 Vx_pixel_size_width_font_regexp
,
6286 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
6288 Since Emacs gets width of a font matching with this regexp from
6289 PIXEL_SIZE field of the name, font finding mechanism gets faster for
6290 such a font. This is especially effective for such large fonts as
6291 Chinese, Japanese, and Korean. */);
6292 Vx_pixel_size_width_font_regexp
= Qnil
;
6294 /* This is not ifdef:ed, so other builds than GTK can customize it. */
6295 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", x_gtk_use_old_file_dialog
,
6296 doc
: /* Non-nil means prompt with the old GTK file selection dialog.
6297 If nil or if the file selection dialog is not available, the new GTK file
6298 chooser is used instead. To turn off all file dialogs set the
6299 variable `use-file-dialog'. */);
6300 x_gtk_use_old_file_dialog
= 0;
6302 DEFVAR_BOOL ("x-gtk-show-hidden-files", x_gtk_show_hidden_files
,
6303 doc
: /* If non-nil, the GTK file chooser will by default show hidden files.
6304 Note that this is just the default, there is a toggle button on the file
6305 chooser to show or not show hidden files on a case by case basis. */);
6306 x_gtk_show_hidden_files
= 0;
6308 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", x_gtk_file_dialog_help_text
,
6309 doc
: /* If non-nil, the GTK file chooser will show additional help text.
6310 If more space for files in the file chooser dialog is wanted, set this to nil
6311 to turn the additional text off. */);
6312 x_gtk_file_dialog_help_text
= 1;
6314 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", x_gtk_whole_detached_tool_bar
,
6315 doc
: /* If non-nil, a detached tool bar is shown in full.
6316 The default is to just show an arrow and pressing on that arrow shows
6317 the tool bar buttons. */);
6318 x_gtk_whole_detached_tool_bar
= 0;
6320 DEFVAR_BOOL ("x-gtk-use-system-tooltips", x_gtk_use_system_tooltips
,
6321 doc
: /* If non-nil with a Gtk+ built Emacs, the Gtk+ tooltip is used.
6322 Otherwise use Emacs own tooltip implementation.
6323 When using Gtk+ tooltips, the tooltip face is not used. */);
6324 x_gtk_use_system_tooltips
= 1;
6326 Fprovide (intern_c_string ("x"), Qnil
);
6328 #ifdef USE_X_TOOLKIT
6329 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6331 Fprovide (intern_c_string ("motif"), Qnil
);
6333 DEFVAR_LISP ("motif-version-string", Vmotif_version_string
,
6334 doc
: /* Version info for LessTif/Motif. */);
6335 Vmotif_version_string
= build_string (XmVERSION_STRING
);
6336 #endif /* USE_MOTIF */
6337 #endif /* USE_X_TOOLKIT */
6340 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
6341 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
6342 But for a user it is a toolkit for X, and indeed, configure
6343 accepts --with-x-toolkit=gtk. */
6344 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6345 Fprovide (intern_c_string ("gtk"), Qnil
);
6346 Fprovide (intern_c_string ("move-toolbar"), Qnil
);
6348 DEFVAR_LISP ("gtk-version-string", Vgtk_version_string
,
6349 doc
: /* Version info for GTK+. */);
6351 char gtk_version
[sizeof ".." + 3 * INT_STRLEN_BOUND (int)];
6352 int len
= sprintf (gtk_version
, "%d.%d.%d",
6353 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
6354 Vgtk_version_string
= make_pure_string (gtk_version
, len
, len
, 0);
6356 #endif /* USE_GTK */
6358 /* X window properties. */
6359 defsubr (&Sx_change_window_property
);
6360 defsubr (&Sx_delete_window_property
);
6361 defsubr (&Sx_window_property
);
6363 defsubr (&Sxw_display_color_p
);
6364 defsubr (&Sx_display_grayscale_p
);
6365 defsubr (&Sxw_color_defined_p
);
6366 defsubr (&Sxw_color_values
);
6367 defsubr (&Sx_server_max_request_size
);
6368 defsubr (&Sx_server_vendor
);
6369 defsubr (&Sx_server_version
);
6370 defsubr (&Sx_display_pixel_width
);
6371 defsubr (&Sx_display_pixel_height
);
6372 defsubr (&Sx_display_mm_width
);
6373 defsubr (&Sx_display_mm_height
);
6374 defsubr (&Sx_display_screens
);
6375 defsubr (&Sx_display_planes
);
6376 defsubr (&Sx_display_color_cells
);
6377 defsubr (&Sx_display_visual_class
);
6378 defsubr (&Sx_display_backing_store
);
6379 defsubr (&Sx_display_save_under
);
6380 defsubr (&Sx_display_monitor_attributes_list
);
6381 defsubr (&Sx_wm_set_size_hint
);
6382 defsubr (&Sx_create_frame
);
6383 defsubr (&Sx_open_connection
);
6384 defsubr (&Sx_close_connection
);
6385 defsubr (&Sx_display_list
);
6386 defsubr (&Sx_synchronize
);
6387 defsubr (&Sx_focus_frame
);
6388 defsubr (&Sx_backspace_delete_keys_p
);
6390 defsubr (&Sx_show_tip
);
6391 defsubr (&Sx_hide_tip
);
6393 staticpro (&tip_timer
);
6395 staticpro (&tip_frame
);
6397 last_show_tip_args
= Qnil
;
6398 staticpro (&last_show_tip_args
);
6400 defsubr (&Sx_uses_old_gtk_dialog
);
6401 #if defined (USE_MOTIF) || defined (USE_GTK)
6402 defsubr (&Sx_file_dialog
);
6405 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
6406 defsubr (&Sx_select_font
);
6410 #endif /* HAVE_X_WINDOWS */