1 /* Functions for the X window system.
3 Copyright (C) 1989, 1992-2012 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"
67 #include <X11/Shell.h>
71 #include <X11/Xaw3d/Paned.h>
72 #include <X11/Xaw3d/Label.h>
73 #else /* !HAVE_XAW3D */
74 #include <X11/Xaw/Paned.h>
75 #include <X11/Xaw/Label.h>
76 #endif /* HAVE_XAW3D */
77 #endif /* USE_MOTIF */
80 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
83 #ifdef USG /* Pacify gcc -Wunused-macros. */
91 #include "../lwlib/lwlib.h"
95 #include <Xm/DialogS.h>
96 #include <Xm/FileSB.h>
102 #include "../lwlib/xlwmenu.h"
105 #if !defined (NO_EDITRES)
107 extern void _XEditResCheckMessages (Widget
, XtPointer
, XEvent
*, Boolean
*);
108 #endif /* not defined NO_EDITRES */
110 /* Unique id counter for widgets created by the Lucid Widget Library. */
112 extern LWLIB_ID widget_id_tick
;
116 #endif /* USE_MOTIF */
118 #endif /* USE_X_TOOLKIT */
124 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
126 /* Nonzero if using X. */
130 static Lisp_Object Qsuppress_icon
;
131 static Lisp_Object Qundefined_color
;
132 static Lisp_Object Qcompound_text
, Qcancel_timer
;
133 Lisp_Object Qfont_param
;
136 static ptrdiff_t image_cache_refcount
;
137 static int dpyinfo_refcount
;
140 static struct x_display_info
*x_display_info_for_name (Lisp_Object
);
143 /* Error if we are not connected to X. */
149 error ("X windows are not in use or not initialized");
152 /* Nonzero if we can use mouse menus.
153 You should not call this unless HAVE_MENUS is defined. */
161 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
162 and checking validity for X. */
165 check_x_frame (Lisp_Object frame
)
167 struct frame
*f
= decode_live_frame (frame
);
170 error ("Non-X frame used");
174 /* Let the user specify an X display with a Lisp object.
175 OBJECT may be nil, a frame or a terminal object.
176 nil stands for the selected frame--or, if that is not an X frame,
177 the first X display on the list. */
179 struct x_display_info
*
180 check_x_display_info (Lisp_Object object
)
182 struct x_display_info
*dpyinfo
= NULL
;
186 struct frame
*sf
= XFRAME (selected_frame
);
188 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
189 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
190 else if (x_display_list
!= 0)
191 dpyinfo
= x_display_list
;
193 error ("X windows are not in use or not initialized");
195 else if (TERMINALP (object
))
197 struct terminal
*t
= get_terminal (object
, 1);
199 if (t
->type
!= output_x_window
)
200 error ("Terminal %"pI
"d is not an X display", XINT (object
));
202 dpyinfo
= t
->display_info
.x
;
204 else if (STRINGP (object
))
205 dpyinfo
= x_display_info_for_name (object
);
208 FRAME_PTR f
= check_x_frame (object
);
209 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
216 /* Return the Emacs frame-object corresponding to an X window.
217 It could be the frame's main window or an icon window. */
219 /* This function can be called during GC, so use GC_xxx type test macros. */
222 x_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
224 Lisp_Object tail
, frame
;
227 if (wdesc
== None
) return 0;
229 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
235 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
237 if (f
->output_data
.x
->hourglass_window
== wdesc
)
240 if ((f
->output_data
.x
->edit_widget
241 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
242 /* A tooltip frame? */
243 || (!f
->output_data
.x
->edit_widget
244 && FRAME_X_WINDOW (f
) == wdesc
)
245 || f
->output_data
.x
->icon_desc
== wdesc
)
247 #else /* not USE_X_TOOLKIT */
249 if (f
->output_data
.x
->edit_widget
)
251 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
252 struct x_output
*x
= f
->output_data
.x
;
253 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
257 if (FRAME_X_WINDOW (f
) == wdesc
258 || f
->output_data
.x
->icon_desc
== wdesc
)
260 #endif /* not USE_X_TOOLKIT */
265 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
266 /* Like x_window_to_frame but also compares the window with the widget's
270 x_any_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
272 Lisp_Object tail
, frame
;
273 struct frame
*f
, *found
;
276 if (wdesc
== None
) return NULL
;
279 for (tail
= Vframe_list
; CONSP (tail
) && !found
; tail
= XCDR (tail
))
286 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
288 /* This frame matches if the window is any of its widgets. */
289 x
= f
->output_data
.x
;
290 if (x
->hourglass_window
== wdesc
)
295 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
297 && gtk_widget_get_toplevel (gwdesc
) == x
->widget
)
300 if (wdesc
== XtWindow (x
->widget
)
301 || wdesc
== XtWindow (x
->column_widget
)
302 || wdesc
== XtWindow (x
->edit_widget
))
304 /* Match if the window is this frame's menubar. */
305 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
309 else if (FRAME_X_WINDOW (f
) == wdesc
)
310 /* A tooltip frame. */
318 /* Likewise, but consider only the menu bar widget. */
321 x_menubar_window_to_frame (struct x_display_info
*dpyinfo
, XEvent
*event
)
323 Window wdesc
= event
->xany
.window
;
324 Lisp_Object tail
, frame
;
328 if (wdesc
== None
) return 0;
330 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
336 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
338 x
= f
->output_data
.x
;
340 if (x
->menubar_widget
&& xg_event_is_for_menubar (f
, event
))
343 /* Match if the window is this frame's menubar. */
344 if (x
->menubar_widget
345 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
352 /* Return the frame whose principal (outermost) window is WDESC.
353 If WDESC is some other (smaller) window, we return 0. */
356 x_top_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
358 Lisp_Object tail
, frame
;
362 if (wdesc
== None
) return 0;
364 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
370 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
372 x
= f
->output_data
.x
;
376 /* This frame matches if the window is its topmost widget. */
378 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
379 if (gwdesc
== x
->widget
)
382 if (wdesc
== XtWindow (x
->widget
))
384 #if 0 /* I don't know why it did this,
385 but it seems logically wrong,
386 and it causes trouble for MapNotify events. */
387 /* Match if the window is this frame's menubar. */
388 if (x
->menubar_widget
389 && wdesc
== XtWindow (x
->menubar_widget
))
394 else if (FRAME_X_WINDOW (f
) == wdesc
)
400 #endif /* USE_X_TOOLKIT || USE_GTK */
404 /* Store the screen positions of frame F into XPTR and YPTR.
405 These are the positions of the containing window manager window,
406 not Emacs's own window. */
409 x_real_positions (FRAME_PTR f
, int *xptr
, int *yptr
)
411 int win_x
, win_y
, outer_x
IF_LINT (= 0), outer_y
IF_LINT (= 0);
412 int real_x
= 0, real_y
= 0;
414 Window win
= f
->output_data
.x
->parent_desc
;
416 unsigned long actual_size
, bytes_remaining
;
417 int rc
, actual_format
;
418 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
420 Display
*dpy
= FRAME_X_DISPLAY (f
);
421 unsigned char *tmp_data
= NULL
;
422 Atom target_type
= XA_CARDINAL
;
426 x_catch_errors (dpy
);
428 if (win
== dpyinfo
->root_window
)
429 win
= FRAME_OUTER_WINDOW (f
);
431 /* This loop traverses up the containment tree until we hit the root
432 window. Window managers may intersect many windows between our window
433 and the root window. The window we find just before the root window
434 should be the outer WM window. */
437 Window wm_window
, rootw
;
438 Window
*tmp_children
;
439 unsigned int tmp_nchildren
;
442 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
443 &wm_window
, &tmp_children
, &tmp_nchildren
);
445 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
447 /* Don't free tmp_children if XQueryTree failed. */
451 XFree (tmp_children
);
453 if (wm_window
== rootw
|| had_errors
)
464 /* Get the real coordinates for the WM window upper left corner */
465 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
466 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
468 /* Translate real coordinates to coordinates relative to our
469 window. For our window, the upper left corner is 0, 0.
470 Since the upper left corner of the WM window is outside
471 our window, win_x and win_y will be negative:
473 ------------------ ---> x
475 | ----------------- v y
478 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
480 /* From-window, to-window. */
481 FRAME_X_DISPLAY_INFO (f
)->root_window
,
484 /* From-position, to-position. */
485 real_x
, real_y
, &win_x
, &win_y
,
490 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
497 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
499 /* From-window, to-window. */
500 FRAME_X_DISPLAY_INFO (f
)->root_window
,
501 FRAME_OUTER_WINDOW (f
),
503 /* From-position, to-position. */
504 real_x
, real_y
, &outer_x
, &outer_y
,
510 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
514 if (dpyinfo
->root_window
== f
->output_data
.x
->parent_desc
)
516 /* Try _NET_FRAME_EXTENTS if our parent is the root window. */
517 rc
= XGetWindowProperty (dpy
, win
, dpyinfo
->Xatom_net_frame_extents
,
518 0, max_len
, False
, target_type
,
519 &actual_type
, &actual_format
, &actual_size
,
520 &bytes_remaining
, &tmp_data
);
522 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
523 && actual_size
== 4 && actual_format
== 32)
527 long *fe
= (long *)tmp_data
;
529 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
530 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
538 if (tmp_data
) XFree (tmp_data
);
544 if (had_errors
) return;
546 f
->x_pixels_diff
= -win_x
;
547 f
->y_pixels_diff
= -win_y
;
549 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
550 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
559 /* Gamma-correct COLOR on frame F. */
562 gamma_correct (struct frame
*f
, XColor
*color
)
566 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
567 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
568 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
573 /* Decide if color named COLOR_NAME is valid for use on frame F. If
574 so, return the RGB values in COLOR. If ALLOC_P,
575 allocate the color. Value is false if COLOR_NAME is invalid, or
576 no color could be allocated. */
579 x_defined_color (struct frame
*f
, const char *color_name
,
580 XColor
*color
, bool alloc_p
)
583 Display
*dpy
= FRAME_X_DISPLAY (f
);
584 Colormap cmap
= FRAME_X_COLORMAP (f
);
588 success_p
= xg_check_special_colors (f
, color_name
, color
);
591 success_p
= XParseColor (dpy
, cmap
, color_name
, color
) != 0;
592 if (success_p
&& alloc_p
)
593 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
600 /* Return the pixel color value for color COLOR_NAME on frame F. If F
601 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
602 Signal an error if color can't be allocated. */
605 x_decode_color (FRAME_PTR f
, Lisp_Object color_name
, int mono_color
)
609 CHECK_STRING (color_name
);
611 #if 0 /* Don't do this. It's wrong when we're not using the default
612 colormap, it makes freeing difficult, and it's probably not
613 an important optimization. */
614 if (strcmp (SDATA (color_name
), "black") == 0)
615 return BLACK_PIX_DEFAULT (f
);
616 else if (strcmp (SDATA (color_name
), "white") == 0)
617 return WHITE_PIX_DEFAULT (f
);
620 /* Return MONO_COLOR for monochrome frames. */
621 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
624 /* x_defined_color is responsible for coping with failures
625 by looking for a near-miss. */
626 if (x_defined_color (f
, SSDATA (color_name
), &cdef
, 1))
629 signal_error ("Undefined color", color_name
);
634 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
635 the previous value of that parameter, NEW_VALUE is the new value.
636 See also the comment of wait_for_wm in struct x_output. */
639 x_set_wait_for_wm (struct frame
*f
, Lisp_Object new_value
, Lisp_Object old_value
)
641 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
645 x_set_tool_bar_position (struct frame
*f
,
646 Lisp_Object new_value
,
647 Lisp_Object old_value
)
649 if (! EQ (new_value
, Qleft
) && ! EQ (new_value
, Qright
)
650 && ! EQ (new_value
, Qbottom
) && ! EQ (new_value
, Qtop
))
652 if (EQ (new_value
, old_value
)) return;
655 xg_change_toolbar_position (f
, new_value
);
656 fset_tool_bar_position (f
, new_value
);
662 /* Set icon from FILE for frame F. By using GTK functions the icon
663 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
666 xg_set_icon (FRAME_PTR f
, Lisp_Object file
)
671 found
= x_find_image_file (file
);
677 char *filename
= SSDATA (found
);
680 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
684 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
686 g_object_unref (pixbuf
);
700 xg_set_icon_from_xpm_data (FRAME_PTR f
, const char **data
)
702 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data (data
);
707 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
708 g_object_unref (pixbuf
);
714 /* Functions called only from `x_set_frame_param'
715 to set individual parameters.
717 If FRAME_X_WINDOW (f) is 0,
718 the frame is being created and its X-window does not exist yet.
719 In that case, just record the parameter's new value
720 in the standard place; do not attempt to change the window. */
723 x_set_foreground_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
725 struct x_output
*x
= f
->output_data
.x
;
726 unsigned long fg
, old_fg
;
728 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
729 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
730 FRAME_FOREGROUND_PIXEL (f
) = fg
;
732 if (FRAME_X_WINDOW (f
) != 0)
734 Display
*dpy
= FRAME_X_DISPLAY (f
);
737 XSetForeground (dpy
, x
->normal_gc
, fg
);
738 XSetBackground (dpy
, x
->reverse_gc
, fg
);
740 if (x
->cursor_pixel
== old_fg
)
742 unload_color (f
, x
->cursor_pixel
);
743 x
->cursor_pixel
= x_copy_color (f
, fg
);
744 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
749 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
751 if (FRAME_VISIBLE_P (f
))
755 unload_color (f
, old_fg
);
759 x_set_background_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
761 struct x_output
*x
= f
->output_data
.x
;
764 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
765 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
766 FRAME_BACKGROUND_PIXEL (f
) = bg
;
768 if (FRAME_X_WINDOW (f
) != 0)
770 Display
*dpy
= FRAME_X_DISPLAY (f
);
773 XSetBackground (dpy
, x
->normal_gc
, bg
);
774 XSetForeground (dpy
, x
->reverse_gc
, bg
);
775 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
776 XSetForeground (dpy
, x
->cursor_gc
, bg
);
779 xg_set_background_color (f
, bg
);
782 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
783 toolkit scroll bars. */
786 for (bar
= FRAME_SCROLL_BARS (f
);
788 bar
= XSCROLL_BAR (bar
)->next
)
790 Window window
= XSCROLL_BAR (bar
)->x_window
;
791 XSetWindowBackground (dpy
, window
, bg
);
794 #endif /* USE_TOOLKIT_SCROLL_BARS */
797 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
799 if (FRAME_VISIBLE_P (f
))
805 make_invisible_cursor (struct frame
*f
)
807 Display
*dpy
= FRAME_X_DISPLAY (f
);
808 static char const no_data
[] = { 0 };
813 x_catch_errors (dpy
);
814 pix
= XCreateBitmapFromData (dpy
, FRAME_X_DISPLAY_INFO (f
)->root_window
,
816 if (! x_had_errors_p (dpy
) && pix
!= None
)
820 col
.red
= col
.green
= col
.blue
= 0;
821 col
.flags
= DoRed
| DoGreen
| DoBlue
;
822 pixc
= XCreatePixmapCursor (dpy
, pix
, pix
, &col
, &col
, 0, 0);
823 if (! x_had_errors_p (dpy
) && pixc
!= None
)
825 XFreePixmap (dpy
, pix
);
834 x_set_mouse_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
836 struct x_output
*x
= f
->output_data
.x
;
837 Display
*dpy
= FRAME_X_DISPLAY (f
);
838 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
839 Cursor hourglass_cursor
, horizontal_drag_cursor
;
840 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
841 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
843 /* Don't let pointers be invisible. */
844 if (mask_color
== pixel
)
846 x_free_colors (f
, &pixel
, 1);
847 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
850 unload_color (f
, x
->mouse_pixel
);
851 x
->mouse_pixel
= pixel
;
855 /* It's not okay to crash if the user selects a screwy cursor. */
856 x_catch_errors (dpy
);
858 if (!NILP (Vx_pointer_shape
))
860 CHECK_NUMBER (Vx_pointer_shape
);
861 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
864 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
865 x_check_errors (dpy
, "bad text pointer cursor: %s");
867 if (!NILP (Vx_nontext_pointer_shape
))
869 CHECK_NUMBER (Vx_nontext_pointer_shape
);
871 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
874 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
875 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
877 if (!NILP (Vx_hourglass_pointer_shape
))
879 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
881 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
884 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
885 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
887 if (!NILP (Vx_mode_pointer_shape
))
889 CHECK_NUMBER (Vx_mode_pointer_shape
);
890 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
893 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
894 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
896 if (!NILP (Vx_sensitive_text_pointer_shape
))
898 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
900 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
903 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
905 if (!NILP (Vx_window_horizontal_drag_shape
))
907 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
908 horizontal_drag_cursor
909 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
912 horizontal_drag_cursor
913 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
915 /* Check and report errors with the above calls. */
916 x_check_errors (dpy
, "can't set cursor shape: %s");
920 XColor fore_color
, back_color
;
922 fore_color
.pixel
= x
->mouse_pixel
;
923 x_query_color (f
, &fore_color
);
924 back_color
.pixel
= mask_color
;
925 x_query_color (f
, &back_color
);
927 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
928 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
929 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
930 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
931 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
932 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
935 if (FRAME_X_WINDOW (f
) != 0)
936 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
937 f
->output_data
.x
->current_cursor
= cursor
);
939 if (FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
== 0)
940 FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
= make_invisible_cursor (f
);
942 if (cursor
!= x
->text_cursor
943 && x
->text_cursor
!= 0)
944 XFreeCursor (dpy
, x
->text_cursor
);
945 x
->text_cursor
= cursor
;
947 if (nontext_cursor
!= x
->nontext_cursor
948 && x
->nontext_cursor
!= 0)
949 XFreeCursor (dpy
, x
->nontext_cursor
);
950 x
->nontext_cursor
= nontext_cursor
;
952 if (hourglass_cursor
!= x
->hourglass_cursor
953 && x
->hourglass_cursor
!= 0)
954 XFreeCursor (dpy
, x
->hourglass_cursor
);
955 x
->hourglass_cursor
= hourglass_cursor
;
957 if (mode_cursor
!= x
->modeline_cursor
958 && x
->modeline_cursor
!= 0)
959 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
960 x
->modeline_cursor
= mode_cursor
;
962 if (hand_cursor
!= x
->hand_cursor
963 && x
->hand_cursor
!= 0)
964 XFreeCursor (dpy
, x
->hand_cursor
);
965 x
->hand_cursor
= hand_cursor
;
967 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
968 && x
->horizontal_drag_cursor
!= 0)
969 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
970 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
975 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
979 x_set_cursor_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
981 unsigned long fore_pixel
, pixel
;
982 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
983 struct x_output
*x
= f
->output_data
.x
;
985 if (!NILP (Vx_cursor_fore_pixel
))
987 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
988 WHITE_PIX_DEFAULT (f
));
989 fore_pixel_allocated_p
= 1;
992 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
994 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
995 pixel_allocated_p
= 1;
997 /* Make sure that the cursor color differs from the background color. */
998 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1000 if (pixel_allocated_p
)
1002 x_free_colors (f
, &pixel
, 1);
1003 pixel_allocated_p
= 0;
1006 pixel
= x
->mouse_pixel
;
1007 if (pixel
== fore_pixel
)
1009 if (fore_pixel_allocated_p
)
1011 x_free_colors (f
, &fore_pixel
, 1);
1012 fore_pixel_allocated_p
= 0;
1014 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1018 unload_color (f
, x
->cursor_foreground_pixel
);
1019 if (!fore_pixel_allocated_p
)
1020 fore_pixel
= x_copy_color (f
, fore_pixel
);
1021 x
->cursor_foreground_pixel
= fore_pixel
;
1023 unload_color (f
, x
->cursor_pixel
);
1024 if (!pixel_allocated_p
)
1025 pixel
= x_copy_color (f
, pixel
);
1026 x
->cursor_pixel
= pixel
;
1028 if (FRAME_X_WINDOW (f
) != 0)
1031 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1032 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1035 if (FRAME_VISIBLE_P (f
))
1037 x_update_cursor (f
, 0);
1038 x_update_cursor (f
, 1);
1042 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1045 /* Set the border-color of frame F to pixel value PIX.
1046 Note that this does not fully take effect if done before
1047 F has an x-window. */
1050 x_set_border_pixel (struct frame
*f
, int pix
)
1052 unload_color (f
, f
->output_data
.x
->border_pixel
);
1053 f
->output_data
.x
->border_pixel
= pix
;
1055 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1058 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), pix
);
1061 if (FRAME_VISIBLE_P (f
))
1066 /* Set the border-color of frame F to value described by ARG.
1067 ARG can be a string naming a color.
1068 The border-color is used for the border that is drawn by the X server.
1069 Note that this does not fully take effect if done before
1070 F has an x-window; it must be redone when the window is created.
1072 Note: this is done in two routines because of the way X10 works.
1074 Note: under X11, this is normally the province of the window manager,
1075 and so emacs' border colors may be overridden. */
1078 x_set_border_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1083 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1084 x_set_border_pixel (f
, pix
);
1085 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1090 x_set_cursor_type (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1092 set_frame_cursor_types (f
, arg
);
1094 /* Make sure the cursor gets redrawn. */
1095 cursor_type_changed
= 1;
1099 x_set_icon_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1105 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1108 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1113 result
= x_text_icon (f
,
1114 SSDATA ((!NILP (f
->icon_name
)
1118 result
= x_bitmap_icon (f
, arg
);
1123 error ("No icon window available");
1126 XFlush (FRAME_X_DISPLAY (f
));
1131 x_set_icon_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1137 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1140 else if (!NILP (arg
) || NILP (oldval
))
1143 fset_icon_name (f
, arg
);
1145 if (f
->output_data
.x
->icon_bitmap
!= 0)
1150 result
= x_text_icon (f
,
1151 SSDATA ((!NILP (f
->icon_name
)
1160 error ("No icon window available");
1163 XFlush (FRAME_X_DISPLAY (f
));
1169 x_set_menu_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1172 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1173 int olines
= FRAME_MENU_BAR_LINES (f
);
1176 /* Right now, menu bars don't work properly in minibuf-only frames;
1177 most of the commands try to apply themselves to the minibuffer
1178 frame itself, and get an error because you can't switch buffers
1179 in or split the minibuffer window. */
1180 if (FRAME_MINIBUF_ONLY_P (f
))
1183 if (TYPE_RANGED_INTEGERP (int, value
))
1184 nlines
= XINT (value
);
1188 /* Make sure we redisplay all windows in this frame. */
1189 windows_or_buffers_changed
++;
1191 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1192 FRAME_MENU_BAR_LINES (f
) = 0;
1195 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1196 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1197 /* Make sure next redisplay shows the menu bar. */
1198 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= 1;
1202 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1203 free_frame_menubar (f
);
1204 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1206 f
->output_data
.x
->menubar_widget
= 0;
1208 #else /* not USE_X_TOOLKIT && not USE_GTK */
1209 FRAME_MENU_BAR_LINES (f
) = nlines
;
1210 resize_frame_windows (f
, FRAME_LINES (f
), 0);
1212 /* If the menu bar height gets changed, the internal border below
1213 the top margin has to be cleared. Also, if the menu bar gets
1214 larger, the area for the added lines has to be cleared except for
1215 the first menu bar line that is to be drawn later. */
1216 if (nlines
!= olines
)
1218 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1219 int width
= FRAME_PIXEL_WIDTH (f
);
1222 /* height can be zero here. */
1223 if (height
> 0 && width
> 0)
1225 y
= FRAME_TOP_MARGIN_HEIGHT (f
);
1228 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1229 0, y
, width
, height
, False
);
1233 if (nlines
> 1 && nlines
> olines
)
1235 y
= (olines
== 0 ? 1 : olines
) * FRAME_LINE_HEIGHT (f
);
1236 height
= nlines
* FRAME_LINE_HEIGHT (f
) - y
;
1239 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1240 0, y
, width
, height
, False
);
1244 if (nlines
== 0 && WINDOWP (f
->menu_bar_window
))
1245 clear_glyph_matrix (XWINDOW (f
->menu_bar_window
)->current_matrix
);
1247 #endif /* not USE_X_TOOLKIT && not USE_GTK */
1249 run_window_configuration_change_hook (f
);
1253 /* Set the number of lines used for the tool bar of frame F to VALUE.
1254 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1255 is the old number of tool bar lines. This function changes the
1256 height of all windows on frame F to match the new tool bar height.
1257 The frame's height doesn't change. */
1260 x_set_tool_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1262 int delta
, nlines
, root_height
;
1263 Lisp_Object root_window
;
1265 /* Treat tool bars like menu bars. */
1266 if (FRAME_MINIBUF_ONLY_P (f
))
1269 /* Use VALUE only if an int >= 0. */
1270 if (RANGED_INTEGERP (0, value
, INT_MAX
))
1271 nlines
= XFASTINT (value
);
1276 FRAME_TOOL_BAR_LINES (f
) = 0;
1279 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1280 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1281 /* Make sure next redisplay shows the tool bar. */
1282 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= 1;
1283 update_frame_tool_bar (f
);
1287 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1288 free_frame_tool_bar (f
);
1289 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1295 /* Make sure we redisplay all windows in this frame. */
1296 ++windows_or_buffers_changed
;
1298 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1300 /* Don't resize the tool-bar to more than we have room for. */
1301 root_window
= FRAME_ROOT_WINDOW (f
);
1302 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1303 if (root_height
- delta
< 1)
1305 delta
= root_height
- 1;
1306 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1309 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1310 resize_frame_windows (f
, FRAME_LINES (f
), 0);
1313 /* We also have to make sure that the internal border at the top of
1314 the frame, below the menu bar or tool bar, is redrawn when the
1315 tool bar disappears. This is so because the internal border is
1316 below the tool bar if one is displayed, but is below the menu bar
1317 if there isn't a tool bar. The tool bar draws into the area
1318 below the menu bar. */
1319 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1322 clear_current_matrices (f
);
1325 /* If the tool bar gets smaller, the internal border below it
1326 has to be cleared. It was formerly part of the display
1327 of the larger tool bar, and updating windows won't clear it. */
1330 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1331 int width
= FRAME_PIXEL_WIDTH (f
);
1332 int y
= (FRAME_MENU_BAR_LINES (f
) + nlines
) * FRAME_LINE_HEIGHT (f
);
1334 /* height can be zero here. */
1335 if (height
> 0 && width
> 0)
1338 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1339 0, y
, width
, height
, False
);
1343 if (WINDOWP (f
->tool_bar_window
))
1344 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1347 run_window_configuration_change_hook (f
);
1352 /* Set the foreground color for scroll bars on frame F to VALUE.
1353 VALUE should be a string, a color name. If it isn't a string or
1354 isn't a valid color name, do nothing. OLDVAL is the old value of
1355 the frame parameter. */
1358 x_set_scroll_bar_foreground (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1360 unsigned long pixel
;
1362 if (STRINGP (value
))
1363 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1367 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1368 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1370 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1371 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1373 /* Remove all scroll bars because they have wrong colors. */
1374 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1375 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1376 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1377 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1379 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1385 /* Set the background color for scroll bars on frame F to VALUE VALUE
1386 should be a string, a color name. If it isn't a string or isn't a
1387 valid color name, do nothing. OLDVAL is the old value of the frame
1391 x_set_scroll_bar_background (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1393 unsigned long pixel
;
1395 if (STRINGP (value
))
1396 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1400 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1401 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1403 #ifdef USE_TOOLKIT_SCROLL_BARS
1404 /* Scrollbar shadow colors. */
1405 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1407 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1408 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1410 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1412 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1413 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1415 #endif /* USE_TOOLKIT_SCROLL_BARS */
1417 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1418 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1420 /* Remove all scroll bars because they have wrong colors. */
1421 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1422 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1423 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1424 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1426 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1432 /* Encode Lisp string STRING as a text in a format appropriate for
1433 XICCC (X Inter Client Communication Conventions).
1435 This can call Lisp code, so callers must GCPRO.
1437 If STRING contains only ASCII characters, do no conversion and
1438 return the string data of STRING. Otherwise, encode the text by
1439 CODING_SYSTEM, and return a newly allocated memory area which
1440 should be freed by `xfree' by a caller.
1442 SELECTIONP non-zero means the string is being encoded for an X
1443 selection, so it is safe to run pre-write conversions (which
1446 Store the byte length of resulting text in *TEXT_BYTES.
1448 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1449 which means that the `encoding' of the result can be `STRING'.
1450 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1451 the result should be `COMPOUND_TEXT'. */
1453 static unsigned char *
1454 x_encode_text (Lisp_Object string
, Lisp_Object coding_system
, int selectionp
,
1455 ptrdiff_t *text_bytes
, int *stringp
, int *freep
)
1457 int result
= string_xstring_p (string
);
1458 struct coding_system coding
;
1462 /* No multibyte character in OBJ. We need not encode it. */
1463 *text_bytes
= SBYTES (string
);
1466 return SDATA (string
);
1469 setup_coding_system (coding_system
, &coding
);
1470 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1471 /* We suppress producing escape sequences for composition. */
1472 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1473 coding
.destination
= xnmalloc (SCHARS (string
), 2);
1474 coding
.dst_bytes
= SCHARS (string
) * 2;
1475 encode_coding_object (&coding
, string
, 0, 0,
1476 SCHARS (string
), SBYTES (string
), Qnil
);
1477 *text_bytes
= coding
.produced
;
1478 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1480 return coding
.destination
;
1484 /* Set the WM name to NAME for frame F. Also set the icon name.
1485 If the frame already has an icon name, use that, otherwise set the
1486 icon name to NAME. */
1489 x_set_name_internal (FRAME_PTR f
, Lisp_Object name
)
1491 if (FRAME_X_WINDOW (f
))
1495 XTextProperty text
, icon
;
1498 int do_free_icon_value
= 0, do_free_text_value
= 0;
1499 Lisp_Object coding_system
;
1500 Lisp_Object encoded_name
;
1501 Lisp_Object encoded_icon_name
;
1502 struct gcpro gcpro1
;
1504 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1505 we use it before x_encode_text that may return string data. */
1507 encoded_name
= ENCODE_UTF_8 (name
);
1510 coding_system
= Qcompound_text
;
1511 /* Note: Encoding strategy
1513 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1514 text.encoding. But, there are non-internationalized window
1515 managers which don't support that encoding. So, if NAME
1516 contains only ASCII and 8859-1 characters, encode it by
1517 iso-latin-1, and use "STRING" in text.encoding hoping that
1518 such window managers at least analyze this format correctly,
1519 i.e. treat 8-bit bytes as 8859-1 characters.
1521 We may also be able to use "UTF8_STRING" in text.encoding
1522 in the future which can encode all Unicode characters.
1523 But, for the moment, there's no way to know that the
1524 current window manager supports it or not.
1526 Either way, we also set the _NET_WM_NAME and _NET_WM_ICON_NAME
1527 properties. Per the EWMH specification, those two properties
1528 are always UTF8_STRING. This matches what gtk_window_set_title()
1529 does in the USE_GTK case. */
1530 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1531 &do_free_text_value
);
1532 text
.encoding
= (stringp
? XA_STRING
1533 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1535 text
.nitems
= bytes
;
1536 if (text
.nitems
!= bytes
)
1537 error ("Window name too large");
1539 if (!STRINGP (f
->icon_name
))
1542 encoded_icon_name
= encoded_name
;
1546 /* See the above comment "Note: Encoding strategy". */
1547 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1548 &bytes
, &stringp
, &do_free_icon_value
);
1549 icon
.encoding
= (stringp
? XA_STRING
1550 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1552 icon
.nitems
= bytes
;
1553 if (icon
.nitems
!= bytes
)
1554 error ("Icon name too large");
1556 encoded_icon_name
= ENCODE_UTF_8 (f
->icon_name
);
1560 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1561 SSDATA (encoded_name
));
1562 #else /* not USE_GTK */
1563 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1564 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1565 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_name
,
1566 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1568 SDATA (encoded_name
),
1569 SBYTES (encoded_name
));
1570 #endif /* not USE_GTK */
1572 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1573 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1574 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_icon_name
,
1575 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1577 SDATA (encoded_icon_name
),
1578 SBYTES (encoded_icon_name
));
1580 if (do_free_icon_value
)
1582 if (do_free_text_value
)
1589 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1592 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1593 name; if NAME is a string, set F's name to NAME and set
1594 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1596 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1597 suggesting a new name, which lisp code should override; if
1598 F->explicit_name is set, ignore the new name; otherwise, set it. */
1601 x_set_name (struct frame
*f
, Lisp_Object name
, int explicit)
1603 /* Make sure that requests from lisp code override requests from
1604 Emacs redisplay code. */
1607 /* If we're switching from explicit to implicit, we had better
1608 update the mode lines and thereby update the title. */
1609 if (f
->explicit_name
&& NILP (name
))
1610 update_mode_lines
= 1;
1612 f
->explicit_name
= ! NILP (name
);
1614 else if (f
->explicit_name
)
1617 /* If NAME is nil, set the name to the x_id_name. */
1620 /* Check for no change needed in this very common case
1621 before we do any consing. */
1622 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1625 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1628 CHECK_STRING (name
);
1630 /* Don't change the name if it's already NAME. */
1631 if (! NILP (Fstring_equal (name
, f
->name
)))
1634 fset_name (f
, name
);
1636 /* For setting the frame title, the title parameter should override
1637 the name parameter. */
1638 if (! NILP (f
->title
))
1641 x_set_name_internal (f
, name
);
1644 /* This function should be called when the user's lisp code has
1645 specified a name for the frame; the name will override any set by the
1648 x_explicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1650 x_set_name (f
, arg
, 1);
1653 /* This function should be called by Emacs redisplay code to set the
1654 name; names set this way will never override names set by the user's
1657 x_implicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1659 x_set_name (f
, arg
, 0);
1662 /* Change the title of frame F to NAME.
1663 If NAME is nil, use the frame name as the title. */
1666 x_set_title (struct frame
*f
, Lisp_Object name
, Lisp_Object old_name
)
1668 /* Don't change the title if it's already NAME. */
1669 if (EQ (name
, f
->title
))
1672 update_mode_lines
= 1;
1674 fset_title (f
, name
);
1679 CHECK_STRING (name
);
1681 x_set_name_internal (f
, name
);
1685 x_set_scroll_bar_default_width (struct frame
*f
)
1687 int wid
= FRAME_COLUMN_WIDTH (f
);
1688 #ifdef USE_TOOLKIT_SCROLL_BARS
1690 int minw
= xg_get_default_scrollbar_width ();
1694 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1695 int width
= minw
+ 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1696 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1697 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1699 /* Make the actual width at least 14 pixels and a multiple of a
1701 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1703 /* Use all of that space (aside from required margins) for the
1705 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1710 /* Record in frame F the specified or default value according to ALIST
1711 of the parameter named PROP (a Lisp symbol). If no value is
1712 specified for PROP, look for an X default for XPROP on the frame
1713 named NAME. If that is not found either, use the value DEFLT. */
1716 x_default_scroll_bar_color_parameter (struct frame
*f
,
1717 Lisp_Object alist
, Lisp_Object prop
,
1718 const char *xprop
, const char *xclass
,
1721 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1724 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1725 if (EQ (tem
, Qunbound
))
1727 #ifdef USE_TOOLKIT_SCROLL_BARS
1729 /* See if an X resource for the scroll bar color has been
1731 tem
= display_x_get_resource (dpyinfo
,
1732 build_string (foreground_p
1735 empty_unibyte_string
,
1736 build_string ("verticalScrollBar"),
1737 empty_unibyte_string
);
1740 /* If nothing has been specified, scroll bars will use a
1741 toolkit-dependent default. Because these defaults are
1742 difficult to get at without actually creating a scroll
1743 bar, use nil to indicate that no color has been
1748 #else /* not USE_TOOLKIT_SCROLL_BARS */
1752 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1755 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1762 #ifdef USE_X_TOOLKIT
1764 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1765 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1766 already be present because of the toolkit (Motif adds some of them,
1767 for example, but Xt doesn't). */
1770 hack_wm_protocols (FRAME_PTR f
, Widget widget
)
1772 Display
*dpy
= XtDisplay (widget
);
1773 Window w
= XtWindow (widget
);
1774 int need_delete
= 1;
1781 unsigned char *catoms
;
1783 unsigned long nitems
= 0;
1784 unsigned long bytes_after
;
1786 if ((XGetWindowProperty (dpy
, w
,
1787 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1788 (long)0, (long)100, False
, XA_ATOM
,
1789 &type
, &format
, &nitems
, &bytes_after
,
1792 && format
== 32 && type
== XA_ATOM
)
1794 Atom
*atoms
= (Atom
*) catoms
;
1799 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1801 else if (atoms
[nitems
]
1802 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1804 else if (atoms
[nitems
]
1805 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1816 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1818 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1820 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1822 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1823 XA_ATOM
, 32, PropModeAppend
,
1824 (unsigned char *) props
, count
);
1832 /* Support routines for XIC (X Input Context). */
1836 static XFontSet
xic_create_xfontset (struct frame
*);
1837 static XIMStyle
best_xim_style (XIMStyles
*, XIMStyles
*);
1840 /* Supported XIM styles, ordered by preference. */
1842 static XIMStyle supported_xim_styles
[] =
1844 XIMPreeditPosition
| XIMStatusArea
,
1845 XIMPreeditPosition
| XIMStatusNothing
,
1846 XIMPreeditPosition
| XIMStatusNone
,
1847 XIMPreeditNothing
| XIMStatusArea
,
1848 XIMPreeditNothing
| XIMStatusNothing
,
1849 XIMPreeditNothing
| XIMStatusNone
,
1850 XIMPreeditNone
| XIMStatusArea
,
1851 XIMPreeditNone
| XIMStatusNothing
,
1852 XIMPreeditNone
| XIMStatusNone
,
1857 #if defined HAVE_X_WINDOWS && defined USE_X_TOOLKIT
1858 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1860 static const char xic_default_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1862 /* Create an Xt fontset spec from the name of a base font.
1863 If `motif' is True use the Motif syntax. */
1865 xic_create_fontsetname (const char *base_fontname
, int motif
)
1867 const char *sep
= motif
? ";" : ",";
1870 /* Make a fontset name from the base font name. */
1871 if (xic_default_fontset
== base_fontname
)
1873 /* There is no base font name, use the default. */
1874 fontsetname
= xmalloc (strlen (base_fontname
) + 2);
1875 strcpy (fontsetname
, base_fontname
);
1879 /* Make a fontset name from the base font name.
1880 The font set will be made of the following elements:
1882 - the base font where the charset spec is replaced by -*-*.
1883 - the same but with the family also replaced with -*-*-. */
1884 const char *p
= base_fontname
;
1887 for (i
= 0; *p
; p
++)
1891 /* As the font name doesn't conform to XLFD, we can't
1892 modify it to generalize it to allcs and allfamilies.
1893 Use the specified font plus the default. */
1894 fontsetname
= xmalloc (strlen (base_fontname
)
1895 + strlen (xic_default_fontset
) + 3);
1896 strcpy (fontsetname
, base_fontname
);
1897 strcat (fontsetname
, sep
);
1898 strcat (fontsetname
, xic_default_fontset
);
1903 const char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1904 char *font_allcs
= NULL
;
1905 char *font_allfamilies
= NULL
;
1906 char *font_all
= NULL
;
1907 const char *allcs
= "*-*-*-*-*-*-*";
1908 const char *allfamilies
= "-*-*-";
1909 const char *all
= "*-*-*-*-";
1912 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
1925 /* If base_fontname specifies ADSTYLE, make it a
1929 ptrdiff_t diff
= (p2
- p3
) - 2;
1931 base
= alloca (strlen (base_fontname
) + 1);
1932 memcpy (base
, base_fontname
, p3
- base_fontname
);
1933 base
[p3
- base_fontname
] = '*';
1934 base
[(p3
- base_fontname
) + 1] = '-';
1935 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
1936 p
= base
+ (p
- base_fontname
) - diff
;
1937 p1
= base
+ (p1
- base_fontname
);
1938 p2
= base
+ (p2
- base_fontname
) - diff
;
1939 base_fontname
= base
;
1942 /* Build the font spec that matches all charsets. */
1943 len
= p
- base_fontname
+ strlen (allcs
) + 1;
1944 font_allcs
= alloca (len
);
1945 memcpy (font_allcs
, base_fontname
, p
- base_fontname
);
1946 strcat (font_allcs
, allcs
);
1948 /* Build the font spec that matches all families and
1950 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
1951 font_allfamilies
= alloca (len
);
1952 strcpy (font_allfamilies
, allfamilies
);
1953 memcpy (font_allfamilies
+ strlen (allfamilies
), p1
, p
- p1
);
1954 strcat (font_allfamilies
, allcs
);
1956 /* Build the font spec that matches all. */
1957 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
1958 font_all
= alloca (len
);
1959 strcpy (font_all
, allfamilies
);
1960 strcat (font_all
, all
);
1961 memcpy (font_all
+ strlen (all
) + strlen (allfamilies
), p2
, p
- p2
);
1962 strcat (font_all
, allcs
);
1964 /* Build the actual font set name. */
1965 len
= strlen (base_fontname
) + strlen (font_allcs
)
1966 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
1967 fontsetname
= xmalloc (len
);
1968 strcpy (fontsetname
, base_fontname
);
1969 strcat (fontsetname
, sep
);
1970 strcat (fontsetname
, font_allcs
);
1971 strcat (fontsetname
, sep
);
1972 strcat (fontsetname
, font_allfamilies
);
1973 strcat (fontsetname
, sep
);
1974 strcat (fontsetname
, font_all
);
1978 strcat (fontsetname
, ":");
1981 #endif /* HAVE_X_WINDOWS && USE_X_TOOLKIT */
1983 #ifdef DEBUG_XIC_FONTSET
1985 print_fontset_result (XFontSet xfs
, char *name
, char **missing_list
,
1989 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
1992 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
1993 while (missing_count
-- > 0)
1995 fprintf (stderr
, " missing: %s\n", *missing_list
);
2004 xic_create_xfontset (struct frame
*f
)
2006 XFontSet xfs
= NULL
;
2007 struct font
*font
= FRAME_FONT (f
);
2008 int pixel_size
= font
->pixel_size
;
2009 Lisp_Object rest
, frame
;
2011 /* See if there is another frame already using same fontset. */
2012 FOR_EACH_FRAME (rest
, frame
)
2014 struct frame
*cf
= XFRAME (frame
);
2016 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2017 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2019 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
2021 xfs
= FRAME_XIC_FONTSET (cf
);
2029 char **missing_list
;
2032 const char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
2034 sprintf (buf
, xlfd_format
, pixel_size
);
2035 missing_list
= NULL
;
2036 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2037 &missing_list
, &missing_count
, &def_string
);
2038 #ifdef DEBUG_XIC_FONTSET
2039 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2042 XFreeStringList (missing_list
);
2045 /* List of pixel sizes most likely available. Find one that
2046 is closest to pixel_size. */
2047 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2048 int *smaller
, *larger
;
2050 for (smaller
= sizes
; smaller
[1]; smaller
++)
2051 if (smaller
[1] >= pixel_size
)
2053 larger
= smaller
+ 1;
2054 if (*larger
== pixel_size
)
2056 while (*smaller
|| *larger
)
2061 this_size
= *smaller
--;
2062 else if (! *smaller
)
2063 this_size
= *larger
++;
2064 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
2065 this_size
= *smaller
--;
2067 this_size
= *larger
++;
2068 sprintf (buf
, xlfd_format
, this_size
);
2069 missing_list
= NULL
;
2070 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2071 &missing_list
, &missing_count
, &def_string
);
2072 #ifdef DEBUG_XIC_FONTSET
2073 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2076 XFreeStringList (missing_list
);
2083 const char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
2085 missing_list
= NULL
;
2086 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
2087 &missing_list
, &missing_count
, &def_string
);
2088 #ifdef DEBUG_XIC_FONTSET
2089 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
2092 XFreeStringList (missing_list
);
2100 /* Free the X fontset of frame F if it is the last frame using it. */
2103 xic_free_xfontset (struct frame
*f
)
2105 Lisp_Object rest
, frame
;
2108 if (!FRAME_XIC_FONTSET (f
))
2111 /* See if there is another frame sharing the same fontset. */
2112 FOR_EACH_FRAME (rest
, frame
)
2114 struct frame
*cf
= XFRAME (frame
);
2115 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2116 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2117 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2125 /* The fontset is not used anymore. It is safe to free it. */
2126 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2128 if (FRAME_XIC_BASE_FONTNAME (f
))
2129 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2130 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2131 FRAME_XIC_FONTSET (f
) = NULL
;
2135 /* Value is the best input style, given user preferences USER (already
2136 checked to be supported by Emacs), and styles supported by the
2137 input method XIM. */
2140 best_xim_style (XIMStyles
*user
, XIMStyles
*xim
)
2144 for (i
= 0; i
< user
->count_styles
; ++i
)
2145 for (j
= 0; j
< xim
->count_styles
; ++j
)
2146 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2147 return user
->supported_styles
[i
];
2149 /* Return the default style. */
2150 return XIMPreeditNothing
| XIMStatusNothing
;
2153 /* Create XIC for frame F. */
2155 static XIMStyle xic_style
;
2158 create_frame_xic (struct frame
*f
)
2162 XFontSet xfs
= NULL
;
2167 /* Create X fontset. */
2168 xfs
= xic_create_xfontset (f
);
2169 xim
= FRAME_X_XIM (f
);
2174 XVaNestedList preedit_attr
;
2175 XVaNestedList status_attr
;
2177 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2178 spot
.x
= 0; spot
.y
= 1;
2180 /* Determine XIC style. */
2183 XIMStyles supported_list
;
2184 supported_list
.count_styles
= (sizeof supported_xim_styles
2185 / sizeof supported_xim_styles
[0]);
2186 supported_list
.supported_styles
= supported_xim_styles
;
2187 xic_style
= best_xim_style (&supported_list
,
2188 FRAME_X_XIM_STYLES (f
));
2191 preedit_attr
= XVaCreateNestedList (0,
2194 FRAME_FOREGROUND_PIXEL (f
),
2196 FRAME_BACKGROUND_PIXEL (f
),
2197 (xic_style
& XIMPreeditPosition
2202 status_attr
= XVaCreateNestedList (0,
2208 FRAME_FOREGROUND_PIXEL (f
),
2210 FRAME_BACKGROUND_PIXEL (f
),
2213 xic
= XCreateIC (xim
,
2214 XNInputStyle
, xic_style
,
2215 XNClientWindow
, FRAME_X_WINDOW (f
),
2216 XNFocusWindow
, FRAME_X_WINDOW (f
),
2217 XNStatusAttributes
, status_attr
,
2218 XNPreeditAttributes
, preedit_attr
,
2220 XFree (preedit_attr
);
2221 XFree (status_attr
);
2224 FRAME_XIC (f
) = xic
;
2225 FRAME_XIC_STYLE (f
) = xic_style
;
2226 FRAME_XIC_FONTSET (f
) = xfs
;
2230 /* Destroy XIC and free XIC fontset of frame F, if any. */
2233 free_frame_xic (struct frame
*f
)
2235 if (FRAME_XIC (f
) == NULL
)
2238 XDestroyIC (FRAME_XIC (f
));
2239 xic_free_xfontset (f
);
2241 FRAME_XIC (f
) = NULL
;
2245 /* Place preedit area for XIC of window W's frame to specified
2246 pixel position X/Y. X and Y are relative to window W. */
2249 xic_set_preeditarea (struct window
*w
, int x
, int y
)
2251 struct frame
*f
= XFRAME (w
->frame
);
2255 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2256 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2257 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2258 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2263 /* Place status area for XIC in bottom right corner of frame F.. */
2266 xic_set_statusarea (struct frame
*f
)
2268 XIC xic
= FRAME_XIC (f
);
2273 /* Negotiate geometry of status area. If input method has existing
2274 status area, use its current size. */
2275 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2276 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2277 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2280 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2281 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2284 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2286 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2287 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2291 area
.width
= needed
->width
;
2292 area
.height
= needed
->height
;
2293 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2294 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2295 - FRAME_MENUBAR_HEIGHT (f
)
2296 - FRAME_TOOLBAR_TOP_HEIGHT (f
)
2297 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2300 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2301 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2306 /* Set X fontset for XIC of frame F, using base font name
2307 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2310 xic_set_xfontset (struct frame
*f
, const char *base_fontname
)
2315 xic_free_xfontset (f
);
2317 xfs
= xic_create_xfontset (f
);
2319 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2320 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2321 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2322 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2323 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2326 FRAME_XIC_FONTSET (f
) = xfs
;
2329 #endif /* HAVE_X_I18N */
2333 #ifdef USE_X_TOOLKIT
2335 /* Create and set up the X widget for frame F. */
2338 x_window (struct frame
*f
, long window_prompting
, int minibuffer_only
)
2340 XClassHint class_hints
;
2341 XSetWindowAttributes attributes
;
2342 unsigned long attribute_mask
;
2343 Widget shell_widget
;
2345 Widget frame_widget
;
2351 /* Use the resource name as the top-level widget name
2352 for looking up resources. Make a non-Lisp copy
2353 for the window manager, so GC relocation won't bother it.
2355 Elsewhere we specify the window name for the window manager. */
2358 char *str
= SSDATA (Vx_resource_name
);
2359 f
->namebuf
= xmalloc (strlen (str
) + 1);
2360 strcpy (f
->namebuf
, str
);
2364 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2365 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2366 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2367 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2368 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2369 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2370 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2371 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2372 applicationShellWidgetClass
,
2373 FRAME_X_DISPLAY (f
), al
, ac
);
2375 f
->output_data
.x
->widget
= shell_widget
;
2376 /* maybe_set_screen_title_format (shell_widget); */
2378 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2379 (widget_value
*) NULL
,
2380 shell_widget
, False
,
2384 (lw_callback
) NULL
);
2387 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2388 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2389 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2390 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2391 XtSetValues (pane_widget
, al
, ac
);
2392 f
->output_data
.x
->column_widget
= pane_widget
;
2394 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2395 the emacs screen when changing menubar. This reduces flickering. */
2398 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2399 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2400 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2401 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2402 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2403 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2404 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2405 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2406 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2407 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2410 f
->output_data
.x
->edit_widget
= frame_widget
;
2412 XtManageChild (frame_widget
);
2414 /* Do some needed geometry management. */
2416 char *tem
, shell_position
[sizeof "=x++" + 4 * INT_STRLEN_BOUND (int)];
2419 int extra_borders
= 0;
2421 = (f
->output_data
.x
->menubar_widget
2422 ? (f
->output_data
.x
->menubar_widget
->core
.height
2423 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2426 #if 0 /* Experimentally, we now get the right results
2427 for -geometry -0-0 without this. 24 Aug 96, rms. */
2428 if (FRAME_EXTERNAL_MENU_BAR (f
))
2431 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2432 menubar_size
+= ibw
;
2436 f
->output_data
.x
->menubar_height
= menubar_size
;
2439 /* Motif seems to need this amount added to the sizes
2440 specified for the shell widget. The Athena/Lucid widgets don't.
2441 Both conclusions reached experimentally. -- rms. */
2442 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2443 &extra_borders
, NULL
);
2447 /* Convert our geometry parameters into a geometry string
2449 Note that we do not specify here whether the position
2450 is a user-specified or program-specified one.
2451 We pass that information later, in x_wm_set_size_hints. */
2453 int left
= f
->left_pos
;
2454 int xneg
= window_prompting
& XNegative
;
2455 int top
= f
->top_pos
;
2456 int yneg
= window_prompting
& YNegative
;
2462 if (window_prompting
& USPosition
)
2463 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2464 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2465 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2466 (xneg
? '-' : '+'), left
,
2467 (yneg
? '-' : '+'), top
);
2470 sprintf (shell_position
, "=%dx%d",
2471 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2472 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2474 /* Setting x and y when the position is not specified in
2475 the geometry string will set program position in the WM hints.
2476 If Emacs had just one program position, we could set it in
2477 fallback resources, but since each make-frame call can specify
2478 different program positions, this is easier. */
2479 XtSetArg (gal
[gac
], XtNx
, left
); gac
++;
2480 XtSetArg (gal
[gac
], XtNy
, top
); gac
++;
2484 /* We don't free this because we don't know whether
2485 it is safe to free it while the frame exists.
2486 It isn't worth the trouble of arranging to free it
2487 when the frame is deleted. */
2488 tem
= xstrdup (shell_position
);
2489 XtSetArg (gal
[gac
], XtNgeometry
, tem
); gac
++;
2490 XtSetValues (shell_widget
, gal
, gac
);
2493 XtManageChild (pane_widget
);
2494 XtRealizeWidget (shell_widget
);
2496 if (FRAME_X_EMBEDDED_P (f
))
2497 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2498 f
->output_data
.x
->parent_desc
, 0, 0);
2500 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2502 validate_x_resource_name ();
2504 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2505 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2506 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2509 FRAME_XIC (f
) = NULL
;
2511 create_frame_xic (f
);
2514 f
->output_data
.x
->wm_hints
.input
= True
;
2515 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2516 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2517 &f
->output_data
.x
->wm_hints
);
2519 hack_wm_protocols (f
, shell_widget
);
2522 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2525 /* Do a stupid property change to force the server to generate a
2526 PropertyNotify event so that the event_stream server timestamp will
2527 be initialized to something relevant to the time we created the window.
2529 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2530 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2531 XA_ATOM
, 32, PropModeAppend
,
2532 (unsigned char*) NULL
, 0);
2534 /* Make all the standard events reach the Emacs frame. */
2535 attributes
.event_mask
= STANDARD_EVENT_SET
;
2540 /* XIM server might require some X events. */
2541 unsigned long fevent
= NoEventMask
;
2542 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2543 attributes
.event_mask
|= fevent
;
2545 #endif /* HAVE_X_I18N */
2547 attribute_mask
= CWEventMask
;
2548 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2549 attribute_mask
, &attributes
);
2551 XtMapWidget (frame_widget
);
2553 /* x_set_name normally ignores requests to set the name if the
2554 requested name is the same as the current name. This is the one
2555 place where that assumption isn't correct; f->name is set, but
2556 the X server hasn't been told. */
2559 int explicit = f
->explicit_name
;
2561 f
->explicit_name
= 0;
2563 fset_name (f
, Qnil
);
2564 x_set_name (f
, name
, explicit);
2567 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2568 f
->output_data
.x
->current_cursor
2569 = f
->output_data
.x
->text_cursor
);
2573 /* This is a no-op, except under Motif. Make sure main areas are
2574 set to something reasonable, in case we get an error later. */
2575 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2578 #else /* not USE_X_TOOLKIT */
2581 x_window (FRAME_PTR f
)
2583 if (! xg_create_frame_widgets (f
))
2584 error ("Unable to create window");
2587 FRAME_XIC (f
) = NULL
;
2591 create_frame_xic (f
);
2594 /* XIM server might require some X events. */
2595 unsigned long fevent
= NoEventMask
;
2596 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2598 if (fevent
!= NoEventMask
)
2600 XSetWindowAttributes attributes
;
2601 XWindowAttributes wattr
;
2602 unsigned long attribute_mask
;
2604 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2606 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2607 attribute_mask
= CWEventMask
;
2608 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2609 attribute_mask
, &attributes
);
2617 #else /*! USE_GTK */
2618 /* Create and set up the X window for frame F. */
2621 x_window (struct frame
*f
)
2623 XClassHint class_hints
;
2624 XSetWindowAttributes attributes
;
2625 unsigned long attribute_mask
;
2627 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2628 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2629 attributes
.bit_gravity
= StaticGravity
;
2630 attributes
.backing_store
= NotUseful
;
2631 attributes
.save_under
= True
;
2632 attributes
.event_mask
= STANDARD_EVENT_SET
;
2633 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2634 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2639 = XCreateWindow (FRAME_X_DISPLAY (f
),
2640 f
->output_data
.x
->parent_desc
,
2643 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2645 CopyFromParent
, /* depth */
2646 InputOutput
, /* class */
2648 attribute_mask
, &attributes
);
2653 create_frame_xic (f
);
2656 /* XIM server might require some X events. */
2657 unsigned long fevent
= NoEventMask
;
2658 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2659 attributes
.event_mask
|= fevent
;
2660 attribute_mask
= CWEventMask
;
2661 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2662 attribute_mask
, &attributes
);
2665 #endif /* HAVE_X_I18N */
2667 validate_x_resource_name ();
2669 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2670 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2671 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2673 /* The menubar is part of the ordinary display;
2674 it does not count in addition to the height of the window. */
2675 f
->output_data
.x
->menubar_height
= 0;
2677 /* This indicates that we use the "Passive Input" input model.
2678 Unless we do this, we don't get the Focus{In,Out} events that we
2679 need to draw the cursor correctly. Accursed bureaucrats.
2680 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2682 f
->output_data
.x
->wm_hints
.input
= True
;
2683 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2684 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2685 &f
->output_data
.x
->wm_hints
);
2686 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2688 /* Request "save yourself" and "delete window" commands from wm. */
2691 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2692 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2693 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2696 /* x_set_name normally ignores requests to set the name if the
2697 requested name is the same as the current name. This is the one
2698 place where that assumption isn't correct; f->name is set, but
2699 the X server hasn't been told. */
2702 int explicit = f
->explicit_name
;
2704 f
->explicit_name
= 0;
2706 fset_name (f
, Qnil
);
2707 x_set_name (f
, name
, explicit);
2710 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2711 f
->output_data
.x
->current_cursor
2712 = f
->output_data
.x
->text_cursor
);
2716 if (FRAME_X_WINDOW (f
) == 0)
2717 error ("Unable to create window");
2720 #endif /* not USE_GTK */
2721 #endif /* not USE_X_TOOLKIT */
2723 /* Verify that the icon position args for this window are valid. */
2726 x_icon_verify (struct frame
*f
, Lisp_Object parms
)
2728 Lisp_Object icon_x
, icon_y
;
2730 /* Set the position of the icon. Note that twm groups all
2731 icons in an icon window. */
2732 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2733 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2734 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2736 CHECK_NUMBER (icon_x
);
2737 CHECK_NUMBER (icon_y
);
2739 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2740 error ("Both left and top icon corners of icon must be specified");
2743 /* Handle the icon stuff for this window. Perhaps later we might
2744 want an x_set_icon_position which can be called interactively as
2748 x_icon (struct frame
*f
, Lisp_Object parms
)
2750 Lisp_Object icon_x
, icon_y
;
2752 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2755 /* Set the position of the icon. Note that twm groups all
2756 icons in an icon window. */
2757 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2758 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2759 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2761 CHECK_TYPE_RANGED_INTEGER (int, icon_x
);
2762 CHECK_TYPE_RANGED_INTEGER (int, icon_y
);
2764 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2765 error ("Both left and top icon corners of icon must be specified");
2769 if (! EQ (icon_x
, Qunbound
))
2770 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2772 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2773 but x_create_frame still needs it. */
2774 /* Start up iconic or window? */
2775 x_wm_set_window_state
2776 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2782 x_text_icon (f
, SSDATA ((!NILP (f
->icon_name
)
2789 /* Make the GCs needed for this window, setting the
2790 background, border and mouse colors; also create the
2791 mouse cursor and the gray border tile. */
2794 x_make_gc (struct frame
*f
)
2796 XGCValues gc_values
;
2800 /* Create the GCs of this frame.
2801 Note that many default values are used. */
2803 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2804 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2805 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2806 f
->output_data
.x
->normal_gc
2807 = XCreateGC (FRAME_X_DISPLAY (f
),
2809 GCLineWidth
| GCForeground
| GCBackground
,
2812 /* Reverse video style. */
2813 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2814 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2815 f
->output_data
.x
->reverse_gc
2816 = XCreateGC (FRAME_X_DISPLAY (f
),
2818 GCForeground
| GCBackground
| GCLineWidth
,
2821 /* Cursor has cursor-color background, background-color foreground. */
2822 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2823 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2824 gc_values
.fill_style
= FillOpaqueStippled
;
2825 f
->output_data
.x
->cursor_gc
2826 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2827 (GCForeground
| GCBackground
2828 | GCFillStyle
| GCLineWidth
),
2832 f
->output_data
.x
->white_relief
.gc
= 0;
2833 f
->output_data
.x
->black_relief
.gc
= 0;
2835 /* Create the gray border tile used when the pointer is not in
2836 the frame. Since this depends on the frame's pixel values,
2837 this must be done on a per-frame basis. */
2838 f
->output_data
.x
->border_tile
2839 = (XCreatePixmapFromBitmapData
2840 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2841 gray_bits
, gray_width
, gray_height
,
2842 FRAME_FOREGROUND_PIXEL (f
),
2843 FRAME_BACKGROUND_PIXEL (f
),
2844 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2850 /* Free what was allocated in x_make_gc. */
2853 x_free_gcs (struct frame
*f
)
2855 Display
*dpy
= FRAME_X_DISPLAY (f
);
2859 if (f
->output_data
.x
->normal_gc
)
2861 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2862 f
->output_data
.x
->normal_gc
= 0;
2865 if (f
->output_data
.x
->reverse_gc
)
2867 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2868 f
->output_data
.x
->reverse_gc
= 0;
2871 if (f
->output_data
.x
->cursor_gc
)
2873 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2874 f
->output_data
.x
->cursor_gc
= 0;
2877 if (f
->output_data
.x
->border_tile
)
2879 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2880 f
->output_data
.x
->border_tile
= 0;
2887 /* Handler for signals raised during x_create_frame and
2888 x_create_tip_frame. FRAME is the frame which is partially
2892 unwind_create_frame (Lisp_Object frame
)
2894 struct frame
*f
= XFRAME (frame
);
2896 /* If frame is already dead, nothing to do. This can happen if the
2897 display is disconnected after the frame has become official, but
2898 before x_create_frame removes the unwind protect. */
2899 if (!FRAME_LIVE_P (f
))
2902 /* If frame is ``official'', nothing to do. */
2903 if (NILP (Fmemq (frame
, Vframe_list
)))
2905 #if defined GLYPH_DEBUG && defined ENABLE_CHECKING
2906 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2909 x_free_frame_resources (f
);
2912 #if defined GLYPH_DEBUG && defined ENABLE_CHECKING
2913 /* Check that reference counts are indeed correct. */
2914 eassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2915 eassert (dpyinfo
->terminal
->image_cache
->refcount
== image_cache_refcount
);
2924 unwind_create_frame_1 (Lisp_Object val
)
2926 inhibit_lisp_code
= val
;
2931 x_default_font_parameter (struct frame
*f
, Lisp_Object parms
)
2933 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2934 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
2936 Lisp_Object font
= Qnil
;
2937 if (EQ (font_param
, Qunbound
))
2940 if (NILP (font_param
))
2942 /* System font should take precedence over X resources. We suggest this
2943 regardless of font-use-system-font because .emacs may not have been
2945 const char *system_font
= xsettings_get_system_font ();
2947 font
= font_open_by_name (f
, build_unibyte_string (system_font
));
2951 font
= !NILP (font_param
) ? font_param
2952 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
2954 if (! FONTP (font
) && ! STRINGP (font
))
2959 /* This will find the normal Xft font. */
2962 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
2963 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2964 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2965 /* This was formerly the first thing tried, but it finds
2966 too many fonts and takes too long. */
2967 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
2968 /* If those didn't work, look for something which will
2970 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
2975 for (i
= 0; names
[i
]; i
++)
2977 font
= font_open_by_name (f
, build_unibyte_string (names
[i
]));
2982 error ("No suitable font was found");
2984 else if (!NILP (font_param
))
2986 /* Remember the explicit font parameter, so we can re-apply it after
2987 we've applied the `default' face settings. */
2988 x_set_frame_parameters (f
, Fcons (Fcons (Qfont_param
, font_param
), Qnil
));
2991 /* This call will make X resources override any system font setting. */
2992 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
2996 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
2998 doc
: /* Send the size hints for frame FRAME to the window manager.
2999 If FRAME is nil, use the selected frame. */)
3004 frame
= selected_frame
;
3008 x_wm_set_size_hint (f
, 0, 0);
3014 set_machine_and_pid_properties (struct frame
*f
)
3016 long pid
= (long) getpid ();
3018 /* This will set WM_CLIENT_MACHINE and WM_LOCALE_NAME. */
3019 XSetWMProperties (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), NULL
, NULL
,
3020 NULL
, 0, NULL
, NULL
, NULL
);
3021 XChangeProperty (FRAME_X_DISPLAY (f
),
3022 FRAME_OUTER_WINDOW (f
),
3023 XInternAtom (FRAME_X_DISPLAY (f
),
3026 XA_CARDINAL
, 32, PropModeReplace
,
3027 (unsigned char *) &pid
, 1);
3030 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3032 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3033 Return an Emacs frame object.
3034 PARMS is an alist of frame parameters.
3035 If the parameters specify that the frame should not have a minibuffer,
3036 and do not specify a specific minibuffer window to use,
3037 then `default-minibuffer-frame' must be a frame whose minibuffer can
3038 be shared by the new frame.
3040 This function is an internal primitive--use `make-frame' instead. */)
3044 Lisp_Object frame
, tem
;
3046 int minibuffer_only
= 0;
3047 long window_prompting
= 0;
3049 ptrdiff_t count
= SPECPDL_INDEX ();
3050 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3051 Lisp_Object display
;
3052 struct x_display_info
*dpyinfo
= NULL
;
3056 parms
= Fcopy_alist (parms
);
3058 /* Use this general default value to start with
3059 until we know if this frame has a specified name. */
3060 Vx_resource_name
= Vinvocation_name
;
3062 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3063 if (EQ (display
, Qunbound
))
3064 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3065 if (EQ (display
, Qunbound
))
3067 dpyinfo
= check_x_display_info (display
);
3068 kb
= dpyinfo
->terminal
->kboard
;
3070 if (!dpyinfo
->terminal
->name
)
3071 error ("Terminal is not live, can't create new frames on it");
3073 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3075 && ! EQ (name
, Qunbound
)
3077 error ("Invalid frame name--not a string or nil");
3080 Vx_resource_name
= name
;
3082 /* See if parent window is specified. */
3083 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3084 if (EQ (parent
, Qunbound
))
3086 if (! NILP (parent
))
3087 CHECK_NUMBER (parent
);
3089 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3090 /* No need to protect DISPLAY because that's not used after passing
3091 it to make_frame_without_minibuffer. */
3093 GCPRO4 (parms
, parent
, name
, frame
);
3094 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3096 if (EQ (tem
, Qnone
) || NILP (tem
))
3097 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3098 else if (EQ (tem
, Qonly
))
3100 f
= make_minibuffer_frame ();
3101 minibuffer_only
= 1;
3103 else if (WINDOWP (tem
))
3104 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3108 XSETFRAME (frame
, f
);
3110 f
->terminal
= dpyinfo
->terminal
;
3112 f
->output_method
= output_x_window
;
3113 f
->output_data
.x
= xzalloc (sizeof *f
->output_data
.x
);
3114 f
->output_data
.x
->icon_bitmap
= -1;
3115 FRAME_FONTSET (f
) = -1;
3116 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3117 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3118 #ifdef USE_TOOLKIT_SCROLL_BARS
3119 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3120 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3121 #endif /* USE_TOOLKIT_SCROLL_BARS */
3124 x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3126 if (! STRINGP (f
->icon_name
))
3127 fset_icon_name (f
, Qnil
);
3129 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3131 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3132 record_unwind_protect (unwind_create_frame
, frame
);
3134 /* These colors will be set anyway later, but it's important
3135 to get the color reference counts right, so initialize them! */
3138 struct gcpro gcpro1
;
3140 /* Function x_decode_color can signal an error. Make
3141 sure to initialize color slots so that we won't try
3142 to free colors we haven't allocated. */
3143 FRAME_FOREGROUND_PIXEL (f
) = -1;
3144 FRAME_BACKGROUND_PIXEL (f
) = -1;
3145 f
->output_data
.x
->cursor_pixel
= -1;
3146 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3147 f
->output_data
.x
->border_pixel
= -1;
3148 f
->output_data
.x
->mouse_pixel
= -1;
3150 black
= build_string ("black");
3152 FRAME_FOREGROUND_PIXEL (f
)
3153 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3154 FRAME_BACKGROUND_PIXEL (f
)
3155 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3156 f
->output_data
.x
->cursor_pixel
3157 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3158 f
->output_data
.x
->cursor_foreground_pixel
3159 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3160 f
->output_data
.x
->border_pixel
3161 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3162 f
->output_data
.x
->mouse_pixel
3163 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3167 /* Specify the parent under which to make this X window. */
3171 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3172 f
->output_data
.x
->explicit_parent
= 1;
3176 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3177 f
->output_data
.x
->explicit_parent
= 0;
3180 /* Set the name; the functions to which we pass f expect the name to
3182 if (EQ (name
, Qunbound
) || NILP (name
))
3184 fset_name (f
, build_string (dpyinfo
->x_id_name
));
3185 f
->explicit_name
= 0;
3189 fset_name (f
, name
);
3190 f
->explicit_name
= 1;
3191 /* use the frame's title when getting resources for this frame. */
3192 specbind (Qx_resource_name
, name
);
3195 f
->resx
= dpyinfo
->resx
;
3196 f
->resy
= dpyinfo
->resy
;
3198 #ifdef HAVE_FREETYPE
3200 register_font_driver (&xftfont_driver
, f
);
3201 #else /* not HAVE_XFT */
3202 register_font_driver (&ftxfont_driver
, f
);
3203 #endif /* not HAVE_XFT */
3204 #endif /* HAVE_FREETYPE */
3205 register_font_driver (&xfont_driver
, f
);
3207 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3208 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3210 /* Extract the window parameters from the supplied values
3211 that are needed to determine window geometry. */
3212 x_default_font_parameter (f
, parms
);
3213 if (!FRAME_FONT (f
))
3215 delete_frame (frame
, Qnoelisp
);
3216 error ("Invalid frame font");
3219 /* Frame contents get displaced if an embedded X window has a border. */
3220 if (! FRAME_X_EMBEDDED_P (f
))
3221 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
3222 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3224 /* This defaults to 1 in order to match xterm. We recognize either
3225 internalBorderWidth or internalBorder (which is what xterm calls
3227 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3231 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3232 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3233 if (! EQ (value
, Qunbound
))
3234 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3237 x_default_parameter (f
, parms
, Qinternal_border_width
,
3238 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3243 "internalBorderWidth", "internalBorderWidth",
3245 x_default_parameter (f
, parms
, Qvertical_scroll_bars
,
3246 #if defined (USE_GTK) && defined (USE_TOOLKIT_SCROLL_BARS)
3251 "verticalScrollBars", "ScrollBars",
3254 /* Also do the stuff which must be set before the window exists. */
3255 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3256 "foreground", "Foreground", RES_TYPE_STRING
);
3257 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3258 "background", "Background", RES_TYPE_STRING
);
3259 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3260 "pointerColor", "Foreground", RES_TYPE_STRING
);
3261 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3262 "borderColor", "BorderColor", RES_TYPE_STRING
);
3263 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3264 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3265 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3266 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3267 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3268 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3269 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3270 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3272 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3273 "scrollBarForeground",
3274 "ScrollBarForeground", 1);
3275 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3276 "scrollBarBackground",
3277 "ScrollBarBackground", 0);
3280 image_cache_refcount
=
3281 FRAME_IMAGE_CACHE (f
) ? FRAME_IMAGE_CACHE (f
)->refcount
: 0;
3282 dpyinfo_refcount
= dpyinfo
->reference_count
;
3283 #endif /* GLYPH_DEBUG */
3285 /* Init faces before x_default_parameter is called for scroll-bar
3286 parameters because that function calls x_set_scroll_bar_width,
3287 which calls change_frame_size, which calls Fset_window_buffer,
3288 which runs hooks, which call Fvertical_motion. At the end, we
3289 end up in init_iterator with a null face cache, which should not
3291 init_frame_faces (f
);
3293 /* Set the menu-bar-lines and tool-bar-lines parameters. We don't
3294 look up the X resources controlling the menu-bar and tool-bar
3295 here; they are processed specially at startup, and reflected in
3296 the values of the mode variables.
3298 Avoid calling window-configuration-change-hook; otherwise we
3299 could get an infloop in next_frame since the frame is not yet in
3302 ptrdiff_t count2
= SPECPDL_INDEX ();
3303 record_unwind_protect (unwind_create_frame_1
, inhibit_lisp_code
);
3304 inhibit_lisp_code
= Qt
;
3306 x_default_parameter (f
, parms
, Qmenu_bar_lines
,
3307 NILP (Vmenu_bar_mode
)
3308 ? make_number (0) : make_number (1),
3309 NULL
, NULL
, RES_TYPE_NUMBER
);
3310 x_default_parameter (f
, parms
, Qtool_bar_lines
,
3311 NILP (Vtool_bar_mode
)
3312 ? make_number (0) : make_number (1),
3313 NULL
, NULL
, RES_TYPE_NUMBER
);
3315 unbind_to (count2
, Qnil
);
3318 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3319 "bufferPredicate", "BufferPredicate",
3321 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3322 "title", "Title", RES_TYPE_STRING
);
3323 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3324 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3325 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3326 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3327 x_default_parameter (f
, parms
, Qtool_bar_position
,
3328 f
->tool_bar_position
, 0, 0, RES_TYPE_SYMBOL
);
3330 /* Compute the size of the X window. */
3331 window_prompting
= x_figure_window_size (f
, parms
, 1);
3333 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3334 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3336 x_icon_verify (f
, parms
);
3338 /* Create the X widget or window. */
3339 #ifdef USE_X_TOOLKIT
3340 x_window (f
, window_prompting
, minibuffer_only
);
3348 /* Now consider the frame official. */
3349 f
->terminal
->reference_count
++;
3350 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3351 Vframe_list
= Fcons (frame
, Vframe_list
);
3353 /* We need to do this after creating the X window, so that the
3354 icon-creation functions can say whose icon they're describing. */
3355 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3356 "bitmapIcon", "BitmapIcon", RES_TYPE_BOOLEAN
);
3358 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3359 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3360 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3361 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3362 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3363 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3364 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3365 "scrollBarWidth", "ScrollBarWidth",
3367 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3368 "alpha", "Alpha", RES_TYPE_NUMBER
);
3370 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3371 Change will not be effected unless different from the current
3373 width
= FRAME_COLS (f
);
3374 height
= FRAME_LINES (f
);
3376 SET_FRAME_COLS (f
, 0);
3377 FRAME_LINES (f
) = 0;
3378 change_frame_size (f
, height
, width
, 1, 0, 0);
3380 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3381 /* Create the menu bar. */
3382 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3384 /* If this signals an error, we haven't set size hints for the
3385 frame and we didn't make it visible. */
3386 initialize_frame_menubar (f
);
3389 /* This is a no-op, except under Motif where it arranges the
3390 main window for the widgets on it. */
3391 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3392 f
->output_data
.x
->menubar_widget
,
3393 f
->output_data
.x
->edit_widget
);
3394 #endif /* not USE_GTK */
3396 #endif /* USE_X_TOOLKIT || USE_GTK */
3398 /* Tell the server what size and position, etc, we want, and how
3399 badly we want them. This should be done after we have the menu
3400 bar so that its size can be taken into account. */
3402 x_wm_set_size_hint (f
, window_prompting
, 0);
3405 /* Make the window appear on the frame and enable display, unless
3406 the caller says not to. However, with explicit parent, Emacs
3407 cannot control visibility, so don't try. */
3408 if (! f
->output_data
.x
->explicit_parent
)
3410 Lisp_Object visibility
;
3412 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3414 if (EQ (visibility
, Qunbound
))
3417 if (EQ (visibility
, Qicon
))
3418 x_iconify_frame (f
);
3419 else if (! NILP (visibility
))
3420 x_make_frame_visible (f
);
3423 /* Must have been Qnil. */
3429 /* Set machine name and pid for the purpose of window managers. */
3430 set_machine_and_pid_properties (f
);
3432 /* Set the WM leader property. GTK does this itself, so this is not
3433 needed when using GTK. */
3434 if (dpyinfo
->client_leader_window
!= 0)
3436 XChangeProperty (FRAME_X_DISPLAY (f
),
3437 FRAME_OUTER_WINDOW (f
),
3438 dpyinfo
->Xatom_wm_client_leader
,
3439 XA_WINDOW
, 32, PropModeReplace
,
3440 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3445 /* Initialize `default-minibuffer-frame' in case this is the first
3446 frame on this terminal. */
3447 if (FRAME_HAS_MINIBUF_P (f
)
3448 && (!FRAMEP (KVAR (kb
, Vdefault_minibuffer_frame
))
3449 || !FRAME_LIVE_P (XFRAME (KVAR (kb
, Vdefault_minibuffer_frame
)))))
3450 kset_default_minibuffer_frame (kb
, frame
);
3452 /* All remaining specified parameters, which have not been "used"
3453 by x_get_arg and friends, now go in the misc. alist of the frame. */
3454 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3455 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3456 fset_param_alist (f
, Fcons (XCAR (tem
), f
->param_alist
));
3460 /* Make sure windows on this frame appear in calls to next-window
3461 and similar functions. */
3462 Vwindow_list
= Qnil
;
3464 return unbind_to (count
, frame
);
3468 /* FRAME is used only to get a handle on the X display. We don't pass the
3469 display info directly because we're called from frame.c, which doesn't
3470 know about that structure. */
3473 x_get_focus_frame (struct frame
*frame
)
3475 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3477 if (! dpyinfo
->x_focus_frame
)
3480 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3485 /* In certain situations, when the window manager follows a
3486 click-to-focus policy, there seems to be no way around calling
3487 XSetInputFocus to give another frame the input focus .
3489 In an ideal world, XSetInputFocus should generally be avoided so
3490 that applications don't interfere with the window manager's focus
3491 policy. But I think it's okay to use when it's clearly done
3492 following a user-command. */
3494 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3495 doc
: /* Set the input focus to FRAME.
3496 FRAME nil means use the selected frame. */)
3499 struct frame
*f
= check_x_frame (frame
);
3500 Display
*dpy
= FRAME_X_DISPLAY (f
);
3503 x_catch_errors (dpy
);
3505 if (FRAME_X_EMBEDDED_P (f
))
3507 /* For Xembedded frames, normally the embedder forwards key
3508 events. See XEmbed Protocol Specification at
3509 http://freedesktop.org/wiki/Specifications/xembed-spec */
3510 xembed_request_focus (f
);
3514 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3515 RevertToParent
, CurrentTime
);
3516 x_ewmh_activate_frame (f
);
3519 x_uncatch_errors ();
3526 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3527 doc
: /* Internal function called by `color-defined-p', which see
3528 .\(Note that the Nextstep version of this function ignores FRAME.) */)
3529 (Lisp_Object color
, Lisp_Object frame
)
3532 FRAME_PTR f
= check_x_frame (frame
);
3534 CHECK_STRING (color
);
3536 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3542 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3543 doc
: /* Internal function called by `color-values', which see. */)
3544 (Lisp_Object color
, Lisp_Object frame
)
3547 FRAME_PTR f
= check_x_frame (frame
);
3549 CHECK_STRING (color
);
3551 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3552 return list3 (make_number (foo
.red
),
3553 make_number (foo
.green
),
3554 make_number (foo
.blue
));
3559 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3560 doc
: /* Internal function called by `display-color-p', which see. */)
3561 (Lisp_Object terminal
)
3563 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3565 if (dpyinfo
->n_planes
<= 2)
3568 switch (dpyinfo
->visual
->class)
3581 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3583 doc
: /* Return t if the X display supports shades of gray.
3584 Note that color displays do support shades of gray.
3585 The optional argument TERMINAL specifies which display to ask about.
3586 TERMINAL should be a terminal object, a frame or a display name (a string).
3587 If omitted or nil, that stands for the selected frame's display. */)
3588 (Lisp_Object terminal
)
3590 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3592 if (dpyinfo
->n_planes
<= 1)
3595 switch (dpyinfo
->visual
->class)
3610 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3612 doc
: /* Return the width in pixels of the X display TERMINAL.
3613 The optional argument TERMINAL specifies which display to ask about.
3614 TERMINAL should be a terminal object, a frame or a display name (a string).
3615 If omitted or nil, that stands for the selected frame's display. */)
3616 (Lisp_Object terminal
)
3618 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3620 return make_number (x_display_pixel_width (dpyinfo
));
3623 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3624 Sx_display_pixel_height
, 0, 1, 0,
3625 doc
: /* Return the height in pixels of the X display TERMINAL.
3626 The optional argument TERMINAL specifies which display to ask about.
3627 TERMINAL should be a terminal object, a frame or a display name (a string).
3628 If omitted or nil, that stands for the selected frame's display. */)
3629 (Lisp_Object terminal
)
3631 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3633 return make_number (x_display_pixel_height (dpyinfo
));
3636 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3638 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3639 The optional argument TERMINAL specifies which display to ask about.
3640 TERMINAL should be a terminal object, a frame or a display name (a string).
3641 If omitted or nil, that stands for the selected frame's display. */)
3642 (Lisp_Object terminal
)
3644 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3646 return make_number (dpyinfo
->n_planes
);
3649 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3651 doc
: /* Return the number of color cells of the X display TERMINAL.
3652 The optional argument TERMINAL specifies which display to ask about.
3653 TERMINAL should be a terminal object, a frame or a display name (a string).
3654 If omitted or nil, that stands for the selected frame's display. */)
3655 (Lisp_Object terminal
)
3657 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3659 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3660 XScreenNumberOfScreen (dpyinfo
->screen
));
3662 /* Truncate nr_planes to 24 to avoid integer overflow.
3663 Some displays says 32, but only 24 bits are actually significant.
3664 There are only very few and rare video cards that have more than
3665 24 significant bits. Also 24 bits is more than 16 million colors,
3666 it "should be enough for everyone". */
3667 if (nr_planes
> 24) nr_planes
= 24;
3669 return make_number (1 << nr_planes
);
3672 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3673 Sx_server_max_request_size
,
3675 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3676 The optional argument TERMINAL specifies which display to ask about.
3677 TERMINAL should be a terminal object, a frame or a display name (a string).
3678 If omitted or nil, that stands for the selected frame's display. */)
3679 (Lisp_Object terminal
)
3681 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3683 return make_number (MAXREQUEST (dpyinfo
->display
));
3686 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3687 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3688 \(Labeling every distributor as a "vendor" embodies the false assumption
3689 that operating systems cannot be developed and distributed noncommercially.)
3690 The optional argument TERMINAL specifies which display to ask about.
3691 TERMINAL should be a terminal object, a frame or a display name (a string).
3692 If omitted or nil, that stands for the selected frame's display. */)
3693 (Lisp_Object terminal
)
3695 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3696 const char *vendor
= ServerVendor (dpyinfo
->display
);
3698 if (! vendor
) vendor
= "";
3699 return build_string (vendor
);
3702 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3703 doc
: /* Return the version numbers of the X server of display TERMINAL.
3704 The value is a list of three integers: the major and minor
3705 version numbers of the X Protocol in use, and the distributor-specific release
3706 number. See also the function `x-server-vendor'.
3708 The optional argument TERMINAL specifies which display to ask about.
3709 TERMINAL should be a terminal object, a frame or a display name (a string).
3710 If omitted or nil, that stands for the selected frame's display. */)
3711 (Lisp_Object terminal
)
3713 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3714 Display
*dpy
= dpyinfo
->display
;
3716 return Fcons (make_number (ProtocolVersion (dpy
)),
3717 Fcons (make_number (ProtocolRevision (dpy
)),
3718 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3721 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3722 doc
: /* Return the number of screens on the X server of display TERMINAL.
3723 The optional argument TERMINAL specifies which display to ask about.
3724 TERMINAL should be a terminal object, a frame or a display name (a string).
3725 If omitted or nil, that stands for the selected frame's display. */)
3726 (Lisp_Object terminal
)
3728 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3730 return make_number (ScreenCount (dpyinfo
->display
));
3733 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3734 doc
: /* Return the height in millimeters of the X display TERMINAL.
3735 The optional argument TERMINAL specifies which display to ask about.
3736 TERMINAL should be a terminal object, a frame or a display name (a string).
3737 If omitted or nil, that stands for the selected frame's display. */)
3738 (Lisp_Object terminal
)
3740 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3742 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3745 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3746 doc
: /* Return the width in millimeters of the X display TERMINAL.
3747 The optional argument TERMINAL specifies which display to ask about.
3748 TERMINAL should be a terminal object, a frame or a display name (a string).
3749 If omitted or nil, that stands for the selected frame's display. */)
3750 (Lisp_Object terminal
)
3752 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3754 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3757 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3758 Sx_display_backing_store
, 0, 1, 0,
3759 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3760 The value may be `always', `when-mapped', or `not-useful'.
3761 The optional argument TERMINAL specifies which display to ask about.
3762 TERMINAL should be a terminal object, a frame or a display name (a string).
3763 If omitted or nil, that stands for the selected frame's display. */)
3764 (Lisp_Object terminal
)
3766 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3769 switch (DoesBackingStore (dpyinfo
->screen
))
3772 result
= intern ("always");
3776 result
= intern ("when-mapped");
3780 result
= intern ("not-useful");
3784 error ("Strange value for BackingStore parameter of screen");
3791 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3792 Sx_display_visual_class
, 0, 1, 0,
3793 doc
: /* Return the visual class of the X display TERMINAL.
3794 The value is one of the symbols `static-gray', `gray-scale',
3795 `static-color', `pseudo-color', `true-color', or `direct-color'.
3797 The optional argument TERMINAL specifies which display to ask about.
3798 TERMINAL should a terminal object, a frame or a display name (a string).
3799 If omitted or nil, that stands for the selected frame's display. */)
3800 (Lisp_Object terminal
)
3802 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3805 switch (dpyinfo
->visual
->class)
3808 result
= intern ("static-gray");
3811 result
= intern ("gray-scale");
3814 result
= intern ("static-color");
3817 result
= intern ("pseudo-color");
3820 result
= intern ("true-color");
3823 result
= intern ("direct-color");
3826 error ("Display has an unknown visual class");
3833 DEFUN ("x-display-save-under", Fx_display_save_under
,
3834 Sx_display_save_under
, 0, 1, 0,
3835 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3836 The optional argument TERMINAL specifies which display to ask about.
3837 TERMINAL should be a terminal object, a frame or a display name (a string).
3838 If omitted or nil, that stands for the selected frame's display. */)
3839 (Lisp_Object terminal
)
3841 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3843 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3850 x_pixel_width (register struct frame
*f
)
3852 return FRAME_PIXEL_WIDTH (f
);
3856 x_pixel_height (register struct frame
*f
)
3858 return FRAME_PIXEL_HEIGHT (f
);
3862 x_char_width (register struct frame
*f
)
3864 return FRAME_COLUMN_WIDTH (f
);
3868 x_char_height (register struct frame
*f
)
3870 return FRAME_LINE_HEIGHT (f
);
3875 /************************************************************************
3877 ************************************************************************/
3880 /* Mapping visual names to visuals. */
3882 static struct visual_class
3889 {"StaticGray", StaticGray
},
3890 {"GrayScale", GrayScale
},
3891 {"StaticColor", StaticColor
},
3892 {"PseudoColor", PseudoColor
},
3893 {"TrueColor", TrueColor
},
3894 {"DirectColor", DirectColor
},
3899 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3901 /* Value is the screen number of screen SCR. This is a substitute for
3902 the X function with the same name when that doesn't exist. */
3905 XScreenNumberOfScreen (scr
)
3906 register Screen
*scr
;
3908 Display
*dpy
= scr
->display
;
3911 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3912 if (scr
== dpy
->screens
+ i
)
3918 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3921 /* Select the visual that should be used on display DPYINFO. Set
3922 members of DPYINFO appropriately. Called from x_term_init. */
3925 select_visual (struct x_display_info
*dpyinfo
)
3927 Display
*dpy
= dpyinfo
->display
;
3928 Screen
*screen
= dpyinfo
->screen
;
3931 /* See if a visual is specified. */
3932 value
= display_x_get_resource (dpyinfo
,
3933 build_string ("visualClass"),
3934 build_string ("VisualClass"),
3936 if (STRINGP (value
))
3938 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3939 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3940 depth, a decimal number. NAME is compared with case ignored. */
3941 char *s
= alloca (SBYTES (value
) + 1);
3946 strcpy (s
, SSDATA (value
));
3947 dash
= strchr (s
, '-');
3950 dpyinfo
->n_planes
= atoi (dash
+ 1);
3954 /* We won't find a matching visual with depth 0, so that
3955 an error will be printed below. */
3956 dpyinfo
->n_planes
= 0;
3958 /* Determine the visual class. */
3959 for (i
= 0; visual_classes
[i
].name
; ++i
)
3960 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
3962 class = visual_classes
[i
].class;
3966 /* Look up a matching visual for the specified class. */
3968 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
3969 dpyinfo
->n_planes
, class, &vinfo
))
3970 fatal ("Invalid visual specification `%s'", SDATA (value
));
3972 dpyinfo
->visual
= vinfo
.visual
;
3977 XVisualInfo
*vinfo
, vinfo_template
;
3979 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
3981 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
3982 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
3983 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
3984 &vinfo_template
, &n_visuals
);
3986 fatal ("Can't get proper X visual info");
3988 dpyinfo
->n_planes
= vinfo
->depth
;
3994 /* Return the X display structure for the display named NAME.
3995 Open a new connection if necessary. */
3997 static struct x_display_info
*
3998 x_display_info_for_name (Lisp_Object name
)
4001 struct x_display_info
*dpyinfo
;
4003 CHECK_STRING (name
);
4006 if (! EQ (Vinitial_window_system
, intern ("x")))
4007 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4010 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4012 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4015 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4020 /* Use this general default value to start with. */
4021 Vx_resource_name
= Vinvocation_name
;
4023 validate_x_resource_name ();
4025 dpyinfo
= x_term_init (name
, (char *)0,
4026 SSDATA (Vx_resource_name
));
4029 error ("Cannot connect to X server %s", SDATA (name
));
4032 XSETFASTINT (Vwindow_system_version
, 11);
4038 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4040 doc
: /* Open a connection to a display server.
4041 DISPLAY is the name of the display to connect to.
4042 Optional second arg XRM-STRING is a string of resources in xrdb format.
4043 If the optional third arg MUST-SUCCEED is non-nil,
4044 terminate Emacs if we can't open the connection.
4045 \(In the Nextstep version, the last two arguments are currently ignored.) */)
4046 (Lisp_Object display
, Lisp_Object xrm_string
, Lisp_Object must_succeed
)
4049 struct x_display_info
*dpyinfo
;
4051 CHECK_STRING (display
);
4052 if (! NILP (xrm_string
))
4053 CHECK_STRING (xrm_string
);
4056 if (! EQ (Vinitial_window_system
, intern ("x")))
4057 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4060 if (! NILP (xrm_string
))
4061 xrm_option
= SSDATA (xrm_string
);
4063 xrm_option
= (char *) 0;
4065 validate_x_resource_name ();
4067 /* This is what opens the connection and sets x_current_display.
4068 This also initializes many symbols, such as those used for input. */
4069 dpyinfo
= x_term_init (display
, xrm_option
,
4070 SSDATA (Vx_resource_name
));
4074 if (!NILP (must_succeed
))
4075 fatal ("Cannot connect to X server %s.\n\
4076 Check the DISPLAY environment variable or use `-d'.\n\
4077 Also use the `xauth' program to verify that you have the proper\n\
4078 authorization information needed to connect the X server.\n\
4079 An insecure way to solve the problem may be to use `xhost'.\n",
4082 error ("Cannot connect to X server %s", SDATA (display
));
4087 XSETFASTINT (Vwindow_system_version
, 11);
4091 DEFUN ("x-close-connection", Fx_close_connection
,
4092 Sx_close_connection
, 1, 1, 0,
4093 doc
: /* Close the connection to TERMINAL's X server.
4094 For TERMINAL, specify a terminal object, a frame or a display name (a
4095 string). If TERMINAL is nil, that stands for the selected frame's
4097 (Lisp_Object terminal
)
4099 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4101 if (dpyinfo
->reference_count
> 0)
4102 error ("Display still has frames on it");
4104 x_delete_terminal (dpyinfo
->terminal
);
4109 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4110 doc
: /* Return the list of display names that Emacs has connections to. */)
4113 Lisp_Object tail
, result
;
4116 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4117 result
= Fcons (XCAR (XCAR (tail
)), result
);
4122 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4123 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4124 This function only has an effect on X Windows. With MS Windows, it is
4125 defined but does nothing.
4127 If ON is nil, allow buffering of requests.
4128 Turning on synchronization prohibits the Xlib routines from buffering
4129 requests and seriously degrades performance, but makes debugging much
4131 The optional second argument TERMINAL specifies which display to act on.
4132 TERMINAL should be a terminal object, a frame or a display name (a string).
4133 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4134 (Lisp_Object on
, Lisp_Object terminal
)
4136 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4138 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4143 /* Wait for responses to all X commands issued so far for frame F. */
4146 x_sync (FRAME_PTR f
)
4149 XSync (FRAME_X_DISPLAY (f
), False
);
4154 /***********************************************************************
4156 ***********************************************************************/
4158 DEFUN ("x-change-window-property", Fx_change_window_property
,
4159 Sx_change_window_property
, 2, 6, 0,
4160 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4161 PROP must be a string. VALUE may be a string or a list of conses,
4162 numbers and/or strings. If an element in the list is a string, it is
4163 converted to an atom and the value of the atom is used. If an element
4164 is a cons, it is converted to a 32 bit number where the car is the 16
4165 top bits and the cdr is the lower 16 bits.
4167 FRAME nil or omitted means use the selected frame.
4168 If TYPE is given and non-nil, it is the name of the type of VALUE.
4169 If TYPE is not given or nil, the type is STRING.
4170 FORMAT gives the size in bits of each element if VALUE is a list.
4171 It must be one of 8, 16 or 32.
4172 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4173 If OUTER-P is non-nil, the property is changed for the outer X window of
4174 FRAME. Default is to change on the edit X window. */)
4175 (Lisp_Object prop
, Lisp_Object value
, Lisp_Object frame
,
4176 Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4178 struct frame
*f
= check_x_frame (frame
);
4180 Atom target_type
= XA_STRING
;
4181 int element_format
= 8;
4182 unsigned char *data
;
4186 CHECK_STRING (prop
);
4188 if (! NILP (format
))
4190 CHECK_NUMBER (format
);
4192 if (XINT (format
) != 8 && XINT (format
) != 16
4193 && XINT (format
) != 32)
4194 error ("FORMAT must be one of 8, 16 or 32");
4195 element_format
= XINT (format
);
4202 nelements
= x_check_property_data (value
);
4203 if (nelements
== -1)
4204 error ("Bad data in VALUE, must be number, string or cons");
4206 /* The man page for XChangeProperty:
4207 "If the specified format is 32, the property data must be a
4209 This applies even if long is more than 32 bits. The X library
4210 converts to 32 bits before sending to the X server. */
4211 elsize
= element_format
== 32 ? sizeof (long) : element_format
>> 3;
4212 data
= xnmalloc (nelements
, elsize
);
4214 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4218 CHECK_STRING (value
);
4219 data
= SDATA (value
);
4220 if (INT_MAX
< SBYTES (value
))
4221 error ("VALUE too long");
4222 nelements
= SBYTES (value
);
4226 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4229 CHECK_STRING (type
);
4230 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4233 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4234 else w
= FRAME_X_WINDOW (f
);
4236 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4237 prop_atom
, target_type
, element_format
, PropModeReplace
,
4240 if (CONSP (value
)) xfree (data
);
4242 /* Make sure the property is set when we return. */
4243 XFlush (FRAME_X_DISPLAY (f
));
4250 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4251 Sx_delete_window_property
, 1, 2, 0,
4252 doc
: /* Remove window property PROP from X window of FRAME.
4253 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4254 (Lisp_Object prop
, Lisp_Object frame
)
4256 struct frame
*f
= check_x_frame (frame
);
4259 CHECK_STRING (prop
);
4261 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4262 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4264 /* Make sure the property is removed when we return. */
4265 XFlush (FRAME_X_DISPLAY (f
));
4272 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4274 doc
: /* Value is the value of window property PROP on FRAME.
4275 If FRAME is nil or omitted, use the selected frame.
4277 On X Windows, the following optional arguments are also accepted:
4278 If TYPE is nil or omitted, get the property as a string.
4279 Otherwise TYPE is the name of the atom that denotes the type expected.
4280 If SOURCE is non-nil, get the property on that window instead of from
4281 FRAME. The number 0 denotes the root window.
4282 If DELETE-P is non-nil, delete the property after retrieving it.
4283 If VECTOR-RET-P is non-nil, don't return a string but a vector of values.
4285 On MS Windows, this function accepts but ignores those optional arguments.
4287 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4288 no value of TYPE (always string in the MS Windows case). */)
4289 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
,
4290 Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4292 struct frame
*f
= check_x_frame (frame
);
4295 Lisp_Object prop_value
= Qnil
;
4296 unsigned char *tmp_data
= NULL
;
4298 Atom target_type
= XA_STRING
;
4300 unsigned long actual_size
, bytes_remaining
;
4301 Window target_window
= FRAME_X_WINDOW (f
);
4302 struct gcpro gcpro1
;
4304 GCPRO1 (prop_value
);
4305 CHECK_STRING (prop
);
4307 if (! NILP (source
))
4309 CONS_TO_INTEGER (source
, Window
, target_window
);
4310 if (! target_window
)
4311 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4317 if (strcmp ("AnyPropertyType", SSDATA (type
)) == 0)
4318 target_type
= AnyPropertyType
;
4320 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4323 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4324 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4325 prop_atom
, 0, 0, False
, target_type
,
4326 &actual_type
, &actual_format
, &actual_size
,
4327 &bytes_remaining
, &tmp_data
);
4330 int size
= bytes_remaining
;
4335 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4336 prop_atom
, 0, bytes_remaining
,
4337 ! NILP (delete_p
), target_type
,
4338 &actual_type
, &actual_format
,
4339 &actual_size
, &bytes_remaining
,
4341 if (rc
== Success
&& tmp_data
)
4343 /* The man page for XGetWindowProperty says:
4344 "If the returned format is 32, the returned data is represented
4345 as a long array and should be cast to that type to obtain the
4347 This applies even if long is more than 32 bits, the X library
4348 converts from 32 bit elements received from the X server to long
4349 and passes the long array to us. Thus, for that case memcpy can not
4350 be used. We convert to a 32 bit type here, because so much code
4353 The bytes and offsets passed to XGetWindowProperty refers to the
4354 property and those are indeed in 32 bit quantities if format is
4357 if (32 < BITS_PER_LONG
&& actual_format
== 32)
4360 int *idata
= (int *) tmp_data
;
4361 long *ldata
= (long *) tmp_data
;
4363 for (i
= 0; i
< actual_size
; ++i
)
4364 idata
[i
] = (int) ldata
[i
];
4367 if (NILP (vector_ret_p
))
4368 prop_value
= make_string ((char *) tmp_data
, size
);
4370 prop_value
= x_property_data_to_lisp (f
,
4377 if (tmp_data
) XFree (tmp_data
);
4387 /***********************************************************************
4389 ***********************************************************************/
4391 /* Timer function of hourglass_atimer. TIMER is equal to
4394 Display an hourglass pointer on all frames by mapping the frames'
4395 hourglass_window. Set the hourglass_p flag in the frames'
4396 output_data.x structure to indicate that an hourglass cursor is
4397 shown on the frames. */
4400 show_hourglass (struct atimer
*timer
)
4402 /* The timer implementation will cancel this timer automatically
4403 after this function has run. Set hourglass_atimer to null
4404 so that we know the timer doesn't have to be canceled. */
4405 hourglass_atimer
= NULL
;
4407 if (!hourglass_shown_p
)
4409 Lisp_Object rest
, frame
;
4413 FOR_EACH_FRAME (rest
, frame
)
4415 struct frame
*f
= XFRAME (frame
);
4417 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4419 Display
*dpy
= FRAME_X_DISPLAY (f
);
4421 #ifdef USE_X_TOOLKIT
4422 if (f
->output_data
.x
->widget
)
4424 if (FRAME_OUTER_WINDOW (f
))
4427 f
->output_data
.x
->hourglass_p
= 1;
4429 if (!f
->output_data
.x
->hourglass_window
)
4431 unsigned long mask
= CWCursor
;
4432 XSetWindowAttributes attrs
;
4434 Window parent
= FRAME_X_WINDOW (f
);
4436 Window parent
= FRAME_OUTER_WINDOW (f
);
4438 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4440 f
->output_data
.x
->hourglass_window
4441 = XCreateWindow (dpy
, parent
,
4442 0, 0, 32000, 32000, 0, 0,
4448 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4454 hourglass_shown_p
= 1;
4460 /* Hide the hourglass pointer on all frames, if it is currently
4464 hide_hourglass (void)
4466 if (hourglass_shown_p
)
4468 Lisp_Object rest
, frame
;
4471 FOR_EACH_FRAME (rest
, frame
)
4473 struct frame
*f
= XFRAME (frame
);
4476 /* Watch out for newly created frames. */
4477 && f
->output_data
.x
->hourglass_window
)
4479 XUnmapWindow (FRAME_X_DISPLAY (f
),
4480 f
->output_data
.x
->hourglass_window
);
4481 /* Sync here because XTread_socket looks at the
4482 hourglass_p flag that is reset to zero below. */
4483 XSync (FRAME_X_DISPLAY (f
), False
);
4484 f
->output_data
.x
->hourglass_p
= 0;
4488 hourglass_shown_p
= 0;
4495 /***********************************************************************
4497 ***********************************************************************/
4499 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4500 Lisp_Object
, Lisp_Object
);
4501 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4502 Lisp_Object
, int, int, int *, int *);
4504 /* The frame of a currently visible tooltip. */
4506 Lisp_Object tip_frame
;
4508 /* If non-nil, a timer started that hides the last tooltip when it
4511 static Lisp_Object tip_timer
;
4514 /* If non-nil, a vector of 3 elements containing the last args
4515 with which x-show-tip was called. See there. */
4517 static Lisp_Object last_show_tip_args
;
4521 unwind_create_tip_frame (Lisp_Object frame
)
4523 Lisp_Object deleted
;
4525 deleted
= unwind_create_frame (frame
);
4526 if (EQ (deleted
, Qt
))
4536 /* Create a frame for a tooltip on the display described by DPYINFO.
4537 PARMS is a list of frame parameters. TEXT is the string to
4538 display in the tip frame. Value is the frame.
4540 Note that functions called here, esp. x_default_parameter can
4541 signal errors, for instance when a specified color name is
4542 undefined. We have to make sure that we're in a consistent state
4543 when this happens. */
4546 x_create_tip_frame (struct x_display_info
*dpyinfo
,
4554 ptrdiff_t count
= SPECPDL_INDEX ();
4555 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4556 int face_change_count_before
= face_change_count
;
4558 struct buffer
*old_buffer
;
4562 if (!dpyinfo
->terminal
->name
)
4563 error ("Terminal is not live, can't create new frames on it");
4565 parms
= Fcopy_alist (parms
);
4567 /* Get the name of the frame to use for resource lookup. */
4568 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4570 && !EQ (name
, Qunbound
)
4572 error ("Invalid frame name--not a string or nil");
4575 GCPRO3 (parms
, name
, frame
);
4577 XSETFRAME (frame
, f
);
4579 buffer
= Fget_buffer_create (build_string (" *tip*"));
4580 /* Use set_window_buffer instead of Fset_window_buffer (see
4581 discussion of bug#11984, bug#12025, bug#12026). */
4582 set_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, 0, 0);
4583 old_buffer
= current_buffer
;
4584 set_buffer_internal_1 (XBUFFER (buffer
));
4585 bset_truncate_lines (current_buffer
, Qnil
);
4586 specbind (Qinhibit_read_only
, Qt
);
4587 specbind (Qinhibit_modification_hooks
, Qt
);
4590 set_buffer_internal_1 (old_buffer
);
4592 record_unwind_protect (unwind_create_tip_frame
, frame
);
4594 f
->terminal
= dpyinfo
->terminal
;
4596 /* By setting the output method, we're essentially saying that
4597 the frame is live, as per FRAME_LIVE_P. If we get a signal
4598 from this point on, x_destroy_window might screw up reference
4600 f
->output_method
= output_x_window
;
4601 f
->output_data
.x
= xzalloc (sizeof *f
->output_data
.x
);
4602 f
->output_data
.x
->icon_bitmap
= -1;
4603 FRAME_FONTSET (f
) = -1;
4604 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4605 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4606 #ifdef USE_TOOLKIT_SCROLL_BARS
4607 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4608 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4609 #endif /* USE_TOOLKIT_SCROLL_BARS */
4610 fset_icon_name (f
, Qnil
);
4611 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4612 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4613 f
->output_data
.x
->explicit_parent
= 0;
4615 /* These colors will be set anyway later, but it's important
4616 to get the color reference counts right, so initialize them! */
4619 struct gcpro gcpro1
;
4621 /* Function x_decode_color can signal an error. Make
4622 sure to initialize color slots so that we won't try
4623 to free colors we haven't allocated. */
4624 FRAME_FOREGROUND_PIXEL (f
) = -1;
4625 FRAME_BACKGROUND_PIXEL (f
) = -1;
4626 f
->output_data
.x
->cursor_pixel
= -1;
4627 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4628 f
->output_data
.x
->border_pixel
= -1;
4629 f
->output_data
.x
->mouse_pixel
= -1;
4631 black
= build_string ("black");
4633 FRAME_FOREGROUND_PIXEL (f
)
4634 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4635 FRAME_BACKGROUND_PIXEL (f
)
4636 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4637 f
->output_data
.x
->cursor_pixel
4638 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4639 f
->output_data
.x
->cursor_foreground_pixel
4640 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4641 f
->output_data
.x
->border_pixel
4642 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4643 f
->output_data
.x
->mouse_pixel
4644 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4648 /* Set the name; the functions to which we pass f expect the name to
4650 if (EQ (name
, Qunbound
) || NILP (name
))
4652 fset_name (f
, build_string (dpyinfo
->x_id_name
));
4653 f
->explicit_name
= 0;
4657 fset_name (f
, name
);
4658 f
->explicit_name
= 1;
4659 /* use the frame's title when getting resources for this frame. */
4660 specbind (Qx_resource_name
, name
);
4663 f
->resx
= dpyinfo
->resx
;
4664 f
->resy
= dpyinfo
->resy
;
4666 register_font_driver (&xfont_driver
, f
);
4667 #ifdef HAVE_FREETYPE
4669 register_font_driver (&xftfont_driver
, f
);
4670 #else /* not HAVE_XFT */
4671 register_font_driver (&ftxfont_driver
, f
);
4672 #endif /* not HAVE_XFT */
4673 #endif /* HAVE_FREETYPE */
4675 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4676 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4678 /* Extract the window parameters from the supplied values that are
4679 needed to determine window geometry. */
4680 x_default_font_parameter (f
, parms
);
4682 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
4683 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4685 /* This defaults to 2 in order to match xterm. We recognize either
4686 internalBorderWidth or internalBorder (which is what xterm calls
4688 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4692 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4693 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4694 if (! EQ (value
, Qunbound
))
4695 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4699 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4700 "internalBorderWidth", "internalBorderWidth",
4703 /* Also do the stuff which must be set before the window exists. */
4704 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4705 "foreground", "Foreground", RES_TYPE_STRING
);
4706 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4707 "background", "Background", RES_TYPE_STRING
);
4708 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4709 "pointerColor", "Foreground", RES_TYPE_STRING
);
4710 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4711 "cursorColor", "Foreground", RES_TYPE_STRING
);
4712 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4713 "borderColor", "BorderColor", RES_TYPE_STRING
);
4716 image_cache_refcount
=
4717 FRAME_IMAGE_CACHE (f
) ? FRAME_IMAGE_CACHE (f
)->refcount
: 0;
4718 dpyinfo_refcount
= dpyinfo
->reference_count
;
4719 #endif /* GLYPH_DEBUG */
4721 /* Init faces before x_default_parameter is called for scroll-bar
4722 parameters because that function calls x_set_scroll_bar_width,
4723 which calls change_frame_size, which calls Fset_window_buffer,
4724 which runs hooks, which call Fvertical_motion. At the end, we
4725 end up in init_iterator with a null face cache, which should not
4727 init_frame_faces (f
);
4729 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4731 x_figure_window_size (f
, parms
, 0);
4734 XSetWindowAttributes attrs
;
4736 Atom type
= FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
4739 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4740 if (DoesSaveUnders (dpyinfo
->screen
))
4741 mask
|= CWSaveUnder
;
4743 /* Window managers look at the override-redirect flag to determine
4744 whether or net to give windows a decoration (Xlib spec, chapter
4746 attrs
.override_redirect
= True
;
4747 attrs
.save_under
= True
;
4748 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4749 /* Arrange for getting MapNotify and UnmapNotify events. */
4750 attrs
.event_mask
= StructureNotifyMask
;
4752 = FRAME_X_WINDOW (f
)
4753 = XCreateWindow (FRAME_X_DISPLAY (f
),
4754 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4755 /* x, y, width, height */
4759 CopyFromParent
, InputOutput
, CopyFromParent
,
4761 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
4762 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type
,
4763 XA_ATOM
, 32, PropModeReplace
,
4764 (unsigned char *)&type
, 1);
4770 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4771 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4772 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4773 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4774 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4775 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4777 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4778 Change will not be effected unless different from the current
4780 width
= FRAME_COLS (f
);
4781 height
= FRAME_LINES (f
);
4782 SET_FRAME_COLS (f
, 0);
4783 FRAME_LINES (f
) = 0;
4784 change_frame_size (f
, height
, width
, 1, 0, 0);
4786 /* Add `tooltip' frame parameter's default value. */
4787 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
4788 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qtooltip
, Qt
), Qnil
));
4790 /* FIXME - can this be done in a similar way to normal frames?
4791 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
4793 /* Set the `display-type' frame parameter before setting up faces. */
4795 Lisp_Object disptype
;
4797 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4798 disptype
= intern ("mono");
4799 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
4800 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4801 disptype
= intern ("grayscale");
4803 disptype
= intern ("color");
4805 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4806 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4810 /* Set up faces after all frame parameters are known. This call
4811 also merges in face attributes specified for new frames.
4813 Frame parameters may be changed if .Xdefaults contains
4814 specifications for the default font. For example, if there is an
4815 `Emacs.default.attributeBackground: pink', the `background-color'
4816 attribute of the frame get's set, which let's the internal border
4817 of the tooltip frame appear in pink. Prevent this. */
4819 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4821 /* Set tip_frame here, so that */
4823 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
4825 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4826 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4834 /* Now that the frame will be official, it counts as a reference to
4835 its display and terminal. */
4836 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4837 f
->terminal
->reference_count
++;
4839 /* It is now ok to make the frame official even if we get an error
4840 below. And the frame needs to be on Vframe_list or making it
4841 visible won't work. */
4842 Vframe_list
= Fcons (frame
, Vframe_list
);
4845 /* Setting attributes of faces of the tooltip frame from resources
4846 and similar will increment face_change_count, which leads to the
4847 clearing of all current matrices. Since this isn't necessary
4848 here, avoid it by resetting face_change_count to the value it
4849 had before we created the tip frame. */
4850 face_change_count
= face_change_count_before
;
4852 /* Discard the unwind_protect. */
4853 return unbind_to (count
, frame
);
4857 /* Compute where to display tip frame F. PARMS is the list of frame
4858 parameters for F. DX and DY are specified offsets from the current
4859 location of the mouse. WIDTH and HEIGHT are the width and height
4860 of the tooltip. Return coordinates relative to the root window of
4861 the display in *ROOT_X, and *ROOT_Y. */
4864 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
)
4866 Lisp_Object left
, top
;
4871 /* User-specified position? */
4872 left
= Fcdr (Fassq (Qleft
, parms
));
4873 top
= Fcdr (Fassq (Qtop
, parms
));
4875 /* Move the tooltip window where the mouse pointer is. Resize and
4877 if (!INTEGERP (left
) || !INTEGERP (top
))
4880 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4881 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4886 *root_y
= XINT (top
);
4887 else if (*root_y
+ XINT (dy
) <= 0)
4888 *root_y
= 0; /* Can happen for negative dy */
4889 else if (*root_y
+ XINT (dy
) + height
4890 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
4891 /* It fits below the pointer */
4892 *root_y
+= XINT (dy
);
4893 else if (height
+ XINT (dy
) <= *root_y
)
4894 /* It fits above the pointer. */
4895 *root_y
-= height
+ XINT (dy
);
4897 /* Put it on the top. */
4900 if (INTEGERP (left
))
4901 *root_x
= XINT (left
);
4902 else if (*root_x
+ XINT (dx
) <= 0)
4903 *root_x
= 0; /* Can happen for negative dx */
4904 else if (*root_x
+ XINT (dx
) + width
4905 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
4906 /* It fits to the right of the pointer. */
4907 *root_x
+= XINT (dx
);
4908 else if (width
+ XINT (dx
) <= *root_x
)
4909 /* It fits to the left of the pointer. */
4910 *root_x
-= width
+ XINT (dx
);
4912 /* Put it left-justified on the screen--it ought to fit that way. */
4917 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4918 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4919 A tooltip window is a small X window displaying a string.
4921 This is an internal function; Lisp code should call `tooltip-show'.
4923 FRAME nil or omitted means use the selected frame.
4925 PARMS is an optional list of frame parameters which can be used to
4926 change the tooltip's appearance.
4928 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4929 means use the default timeout of 5 seconds.
4931 If the list of frame parameters PARMS contains a `left' parameters,
4932 the tooltip is displayed at that x-position. Otherwise it is
4933 displayed at the mouse position, with offset DX added (default is 5 if
4934 DX isn't specified). Likewise for the y-position; if a `top' frame
4935 parameter is specified, it determines the y-position of the tooltip
4936 window, otherwise it is displayed at the mouse position, with offset
4937 DY added (default is -10).
4939 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4940 Text larger than the specified size is clipped. */)
4941 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
4946 struct buffer
*old_buffer
;
4947 struct text_pos pos
;
4948 int i
, width
, height
, seen_reversed_p
;
4949 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
4950 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
4951 ptrdiff_t count
= SPECPDL_INDEX ();
4953 specbind (Qinhibit_redisplay
, Qt
);
4955 GCPRO4 (string
, parms
, frame
, timeout
);
4957 CHECK_STRING (string
);
4958 if (SCHARS (string
) == 0)
4959 string
= make_unibyte_string (" ", 1);
4961 f
= check_x_frame (frame
);
4963 timeout
= make_number (5);
4965 CHECK_NATNUM (timeout
);
4968 dx
= make_number (5);
4973 dy
= make_number (-10);
4978 if (x_gtk_use_system_tooltips
)
4982 /* Hide a previous tip, if any. */
4986 ok
= xg_prepare_tooltip (f
, string
, &width
, &height
);
4989 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
4990 xg_show_tooltip (f
, root_x
, root_y
);
4991 /* This is used in Fx_hide_tip. */
4992 XSETFRAME (tip_frame
, f
);
4995 if (ok
) goto start_timer
;
4997 #endif /* USE_GTK */
4999 if (NILP (last_show_tip_args
))
5000 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5002 if (!NILP (tip_frame
))
5004 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5005 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5006 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5008 if (EQ (frame
, last_frame
)
5009 && !NILP (Fequal (last_string
, string
))
5010 && !NILP (Fequal (last_parms
, parms
)))
5012 struct frame
*tip_f
= XFRAME (tip_frame
);
5014 /* Only DX and DY have changed. */
5015 if (!NILP (tip_timer
))
5017 Lisp_Object timer
= tip_timer
;
5019 call1 (Qcancel_timer
, timer
);
5023 compute_tip_xy (tip_f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (tip_f
),
5024 FRAME_PIXEL_HEIGHT (tip_f
), &root_x
, &root_y
);
5025 XMoveWindow (FRAME_X_DISPLAY (tip_f
), FRAME_X_WINDOW (tip_f
),
5032 /* Hide a previous tip, if any. */
5035 ASET (last_show_tip_args
, 0, string
);
5036 ASET (last_show_tip_args
, 1, frame
);
5037 ASET (last_show_tip_args
, 2, parms
);
5039 /* Add default values to frame parameters. */
5040 if (NILP (Fassq (Qname
, parms
)))
5041 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5042 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5043 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5044 if (NILP (Fassq (Qborder_width
, parms
)))
5045 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5046 if (NILP (Fassq (Qborder_color
, parms
)))
5047 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5048 if (NILP (Fassq (Qbackground_color
, parms
)))
5049 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5052 /* Create a frame for the tooltip, and record it in the global
5053 variable tip_frame. */
5054 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5057 /* Set up the frame's root window. */
5058 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5059 wset_left_col (w
, make_number (0));
5060 wset_top_line (w
, make_number (0));
5062 if (CONSP (Vx_max_tooltip_size
)
5063 && RANGED_INTEGERP (1, XCAR (Vx_max_tooltip_size
), INT_MAX
)
5064 && RANGED_INTEGERP (1, XCDR (Vx_max_tooltip_size
), INT_MAX
))
5066 wset_total_cols (w
, XCAR (Vx_max_tooltip_size
));
5067 wset_total_lines (w
, XCDR (Vx_max_tooltip_size
));
5071 wset_total_cols (w
, make_number (80));
5072 wset_total_lines (w
, make_number (40));
5075 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5077 w
->pseudo_window_p
= 1;
5079 /* Display the tooltip text in a temporary buffer. */
5080 old_buffer
= current_buffer
;
5081 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5082 bset_truncate_lines (current_buffer
, Qnil
);
5083 clear_glyph_matrix (w
->desired_matrix
);
5084 clear_glyph_matrix (w
->current_matrix
);
5085 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5086 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5088 /* Compute width and height of the tooltip. */
5089 width
= height
= seen_reversed_p
= 0;
5090 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5092 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5096 /* Stop at the first empty row at the end. */
5097 if (!row
->enabled_p
|| !row
->displays_text_p
)
5100 /* Let the row go over the full width of the frame. */
5101 row
->full_width_p
= 1;
5103 row_width
= row
->pixel_width
;
5104 if (row
->used
[TEXT_AREA
])
5106 /* There's a glyph at the end of rows that is used to place
5107 the cursor there. Don't include the width of this glyph. */
5108 if (!row
->reversed_p
)
5110 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5111 if (INTEGERP (last
->object
))
5112 row_width
-= last
->pixel_width
;
5116 /* There could be a stretch glyph at the beginning of R2L
5117 rows that is produced by extend_face_to_end_of_line.
5118 Don't count that glyph. */
5119 struct glyph
*g
= row
->glyphs
[TEXT_AREA
];
5121 if (g
->type
== STRETCH_GLYPH
&& INTEGERP (g
->object
))
5123 row_width
-= g
->pixel_width
;
5124 seen_reversed_p
= 1;
5129 height
+= row
->height
;
5130 width
= max (width
, row_width
);
5133 /* If we've seen partial-length R2L rows, we need to re-adjust the
5134 tool-tip frame width and redisplay it again, to avoid over-wide
5135 tips due to the stretch glyph that extends R2L lines to full
5136 width of the frame. */
5137 if (seen_reversed_p
)
5139 /* w->total_cols and FRAME_TOTAL_COLS want the width in columns,
5141 width
/= WINDOW_FRAME_COLUMN_WIDTH (w
);
5142 wset_total_cols (w
, make_number (width
));
5143 FRAME_TOTAL_COLS (f
) = width
;
5145 clear_glyph_matrix (w
->desired_matrix
);
5146 clear_glyph_matrix (w
->current_matrix
);
5147 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5149 /* Recompute width and height of the tooltip. */
5150 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5152 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5156 if (!row
->enabled_p
|| !row
->displays_text_p
)
5158 row
->full_width_p
= 1;
5159 row_width
= row
->pixel_width
;
5160 if (row
->used
[TEXT_AREA
] && !row
->reversed_p
)
5162 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5163 if (INTEGERP (last
->object
))
5164 row_width
-= last
->pixel_width
;
5167 height
+= row
->height
;
5168 width
= max (width
, row_width
);
5172 /* Add the frame's internal border to the width and height the X
5173 window should have. */
5174 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5175 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5177 /* Move the tooltip window where the mouse pointer is. Resize and
5179 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5182 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5183 root_x
, root_y
, width
, height
);
5184 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5187 /* Draw into the window. */
5188 w
->must_be_updated_p
= 1;
5189 update_single_window (w
, 1);
5191 /* Restore original current buffer. */
5192 set_buffer_internal_1 (old_buffer
);
5193 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5196 /* Let the tip disappear after timeout seconds. */
5197 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5198 intern ("x-hide-tip"));
5201 return unbind_to (count
, Qnil
);
5205 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5206 doc
: /* Hide the current tooltip window, if there is any.
5207 Value is t if tooltip was open, nil otherwise. */)
5211 Lisp_Object deleted
, frame
, timer
;
5212 struct gcpro gcpro1
, gcpro2
;
5214 /* Return quickly if nothing to do. */
5215 if (NILP (tip_timer
) && NILP (tip_frame
))
5220 GCPRO2 (frame
, timer
);
5221 tip_frame
= tip_timer
= deleted
= Qnil
;
5223 count
= SPECPDL_INDEX ();
5224 specbind (Qinhibit_redisplay
, Qt
);
5225 specbind (Qinhibit_quit
, Qt
);
5228 call1 (Qcancel_timer
, timer
);
5232 /* When using system tooltip, tip_frame is the Emacs frame on which
5233 the tip is shown. */
5234 struct frame
*f
= XFRAME (frame
);
5235 if (FRAME_LIVE_P (f
) && xg_hide_tooltip (f
))
5242 delete_frame (frame
, Qnil
);
5246 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5247 redisplay procedure is not called when a tip frame over menu
5248 items is unmapped. Redisplay the menu manually... */
5251 struct frame
*f
= SELECTED_FRAME ();
5252 w
= f
->output_data
.x
->menubar_widget
;
5254 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5258 xlwmenu_redisplay (w
);
5262 #endif /* USE_LUCID */
5266 return unbind_to (count
, deleted
);
5271 /***********************************************************************
5272 File selection dialog
5273 ***********************************************************************/
5275 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5276 Sx_uses_old_gtk_dialog
,
5278 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5285 && xg_uses_old_file_dialog ())
5293 /* Callback for "OK" and "Cancel" on file selection dialog. */
5296 file_dialog_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5298 int *result
= (int *) client_data
;
5299 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5300 *result
= cb
->reason
;
5304 /* Callback for unmapping a file selection dialog. This is used to
5305 capture the case where a dialog is closed via a window manager's
5306 closer button, for example. Using a XmNdestroyCallback didn't work
5310 file_dialog_unmap_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5312 int *result
= (int *) client_data
;
5313 *result
= XmCR_CANCEL
;
5317 clean_up_file_dialog (Lisp_Object arg
)
5319 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5320 Widget dialog
= (Widget
) p
->pointer
;
5324 XtUnmanageChild (dialog
);
5325 XtDestroyWidget (dialog
);
5326 x_menu_set_in_use (0);
5333 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5334 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5335 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5336 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5337 or directory must exist.
5339 This function is only defined on NS, MS Windows, and X Windows with the
5340 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5341 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5342 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5345 struct frame
*f
= SELECTED_FRAME ();
5346 Lisp_Object file
= Qnil
;
5347 Lisp_Object decoded_file
;
5348 Widget dialog
, text
, help
;
5351 XmString dir_xmstring
, pattern_xmstring
;
5352 ptrdiff_t count
= SPECPDL_INDEX ();
5353 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5357 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5359 if (popup_activated ())
5360 error ("Trying to use a menu from within a menu-entry");
5362 CHECK_STRING (prompt
);
5365 /* Prevent redisplay. */
5366 specbind (Qinhibit_redisplay
, Qt
);
5370 /* Create the dialog with PROMPT as title, using DIR as initial
5371 directory and using "*" as pattern. */
5372 dir
= Fexpand_file_name (dir
, Qnil
);
5373 dir_xmstring
= XmStringCreateLocalized (SSDATA (dir
));
5374 pattern_xmstring
= XmStringCreateLocalized ("*");
5376 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5377 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5378 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5379 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5380 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5381 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5383 XmStringFree (dir_xmstring
);
5384 XmStringFree (pattern_xmstring
);
5386 /* Add callbacks for OK and Cancel. */
5387 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5388 (XtPointer
) &result
);
5389 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5390 (XtPointer
) &result
);
5391 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5392 (XtPointer
) &result
);
5394 /* Remove the help button since we can't display help. */
5395 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5396 XtUnmanageChild (help
);
5398 /* Mark OK button as default. */
5399 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5400 XmNshowAsDefault
, True
, NULL
);
5402 /* If MUSTMATCH is non-nil, disable the file entry field of the
5403 dialog, so that the user must select a file from the files list
5404 box. We can't remove it because we wouldn't have a way to get at
5405 the result file name, then. */
5406 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5407 if (!NILP (mustmatch
))
5410 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5411 XtSetSensitive (text
, False
);
5412 XtSetSensitive (label
, False
);
5415 /* Manage the dialog, so that list boxes get filled. */
5416 XtManageChild (dialog
);
5418 if (STRINGP (default_filename
))
5420 XmString default_xmstring
;
5421 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5422 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5424 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5425 XmTextFieldReplace (wtext
, 0, last_pos
,
5426 (SSDATA (Ffile_name_nondirectory (default_filename
))));
5428 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5429 must include the path for this to work. */
5431 default_xmstring
= XmStringCreateLocalized (SSDATA (default_filename
));
5433 if (XmListItemExists (list
, default_xmstring
))
5435 int item_pos
= XmListItemPos (list
, default_xmstring
);
5436 /* Select the item and scroll it into view. */
5437 XmListSelectPos (list
, item_pos
, True
);
5438 XmListSetPos (list
, item_pos
);
5441 XmStringFree (default_xmstring
);
5444 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5446 /* Process events until the user presses Cancel or OK. */
5447 x_menu_set_in_use (1);
5452 x_menu_wait_for_event (0);
5453 XtAppNextEvent (Xt_app_con
, &event
);
5454 if (event
.type
== KeyPress
5455 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5457 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5459 /* Pop down on C-g. */
5460 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5461 XtUnmanageChild (dialog
);
5464 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5467 /* Get the result. */
5468 if (result
== XmCR_OK
)
5470 XmString text_string
;
5473 XtVaGetValues (dialog
, XmNtextString
, &text_string
, NULL
);
5474 XmStringGetLtoR (text_string
, XmFONTLIST_DEFAULT_TAG
, &data
);
5475 XmStringFree (text_string
);
5476 file
= build_string (data
);
5485 /* Make "Cancel" equivalent to C-g. */
5487 Fsignal (Qquit
, Qnil
);
5489 decoded_file
= DECODE_FILE (file
);
5491 return unbind_to (count
, decoded_file
);
5494 #endif /* USE_MOTIF */
5499 clean_up_dialog (Lisp_Object arg
)
5501 x_menu_set_in_use (0);
5506 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5507 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5508 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5509 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5510 or directory must exist.
5512 This function is only defined on NS, MS Windows, and X Windows with the
5513 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5514 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5515 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5517 FRAME_PTR f
= SELECTED_FRAME ();
5519 Lisp_Object file
= Qnil
;
5520 Lisp_Object decoded_file
;
5521 ptrdiff_t count
= SPECPDL_INDEX ();
5522 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5527 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5529 if (popup_activated ())
5530 error ("Trying to use a menu from within a menu-entry");
5532 CHECK_STRING (prompt
);
5535 /* Prevent redisplay. */
5536 specbind (Qinhibit_redisplay
, Qt
);
5537 record_unwind_protect (clean_up_dialog
, Qnil
);
5541 if (STRINGP (default_filename
))
5542 cdef_file
= SSDATA (default_filename
);
5544 cdef_file
= SSDATA (dir
);
5546 fn
= xg_get_file_name (f
, SSDATA (prompt
), cdef_file
,
5548 ! NILP (only_dir_p
));
5552 file
= build_string (fn
);
5559 /* Make "Cancel" equivalent to C-g. */
5561 Fsignal (Qquit
, Qnil
);
5563 decoded_file
= DECODE_FILE (file
);
5565 return unbind_to (count
, decoded_file
);
5569 #ifdef HAVE_FREETYPE
5571 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5572 doc
: /* Read a font using a GTK dialog.
5573 Return either a font spec (for GTK versions >= 3.2) or a string
5574 containing a GTK-style font name.
5576 FRAME is the frame on which to pop up the font chooser. If omitted or
5577 nil, it defaults to the selected frame. */)
5578 (Lisp_Object frame
, Lisp_Object ignored
)
5580 FRAME_PTR f
= check_x_frame (frame
);
5582 Lisp_Object font_param
;
5583 char *default_name
= NULL
;
5584 struct gcpro gcpro1
, gcpro2
;
5585 ptrdiff_t count
= SPECPDL_INDEX ();
5589 if (popup_activated ())
5590 error ("Trying to use a menu from within a menu-entry");
5592 /* Prevent redisplay. */
5593 specbind (Qinhibit_redisplay
, Qt
);
5594 record_unwind_protect (clean_up_dialog
, Qnil
);
5598 GCPRO2 (font_param
, font
);
5600 XSETFONT (font
, FRAME_FONT (f
));
5601 font_param
= Ffont_get (font
, intern (":name"));
5602 if (STRINGP (font_param
))
5603 default_name
= xstrdup (SSDATA (font_param
));
5606 font_param
= Fframe_parameter (frame
, Qfont_param
);
5607 if (STRINGP (font_param
))
5608 default_name
= xstrdup (SSDATA (font_param
));
5611 font
= xg_get_font (f
, default_name
);
5612 xfree (default_name
);
5617 Fsignal (Qquit
, Qnil
);
5619 return unbind_to (count
, font
);
5621 #endif /* HAVE_FREETYPE */
5623 #endif /* USE_GTK */
5626 /***********************************************************************
5628 ***********************************************************************/
5630 #ifdef HAVE_XKBGETKEYBOARD
5631 #include <X11/XKBlib.h>
5632 #include <X11/keysym.h>
5635 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5636 Sx_backspace_delete_keys_p
, 0, 1, 0,
5637 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5638 FRAME nil means use the selected frame.
5639 Value is t if we know that both keys are present, and are mapped to the
5640 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5641 present and mapped to the usual X keysyms. */)
5644 #ifdef HAVE_XKBGETKEYBOARD
5646 struct frame
*f
= check_x_frame (frame
);
5647 Display
*dpy
= FRAME_X_DISPLAY (f
);
5648 Lisp_Object have_keys
;
5649 int major
, minor
, op
, event
, error_code
;
5653 /* Check library version in case we're dynamically linked. */
5654 major
= XkbMajorVersion
;
5655 minor
= XkbMinorVersion
;
5656 if (!XkbLibraryVersion (&major
, &minor
))
5662 /* Check that the server supports XKB. */
5663 major
= XkbMajorVersion
;
5664 minor
= XkbMinorVersion
;
5665 if (!XkbQueryExtension (dpy
, &op
, &event
, &error_code
, &major
, &minor
))
5671 /* In this code we check that the keyboard has physical keys with names
5672 that start with BKSP (Backspace) and DELE (Delete), and that they
5673 generate keysym XK_BackSpace and XK_Delete respectively.
5674 This function is used to test if normal-erase-is-backspace should be
5676 An alternative approach would be to just check if XK_BackSpace and
5677 XK_Delete are mapped to any key. But if any of those are mapped to
5678 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5679 user doesn't know about it, it is better to return false here.
5680 It is more obvious to the user what to do if she/he has two keys
5681 clearly marked with names/symbols and one key does something not
5682 expected (i.e. she/he then tries the other).
5683 The cases where Backspace/Delete is mapped to some other key combination
5684 are rare, and in those cases, normal-erase-is-backspace can be turned on
5688 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5691 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5693 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5695 for (i
= kb
->min_key_code
;
5696 (i
< kb
->max_key_code
5697 && (delete_keycode
== 0 || backspace_keycode
== 0));
5700 /* The XKB symbolic key names can be seen most easily in
5701 the PS file generated by `xkbprint -label name
5703 if (memcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5705 else if (memcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5706 backspace_keycode
= i
;
5709 XkbFreeNames (kb
, 0, True
);
5712 XkbFreeClientMap (kb
, 0, True
);
5715 && backspace_keycode
5716 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5717 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5722 #else /* not HAVE_XKBGETKEYBOARD */
5724 #endif /* not HAVE_XKBGETKEYBOARD */
5729 /***********************************************************************
5731 ***********************************************************************/
5733 /* Keep this list in the same order as frame_parms in frame.c.
5734 Use 0 for unsupported frame parameters. */
5736 frame_parm_handler x_frame_parm_handlers
[] =
5740 x_set_background_color
,
5746 x_set_foreground_color
,
5749 x_set_internal_border_width
,
5750 x_set_menu_bar_lines
,
5752 x_explicitly_set_name
,
5753 x_set_scroll_bar_width
,
5756 x_set_vertical_scroll_bars
,
5758 x_set_tool_bar_lines
,
5759 x_set_scroll_bar_foreground
,
5760 x_set_scroll_bar_background
,
5770 x_set_tool_bar_position
,
5776 /* This is zero if not using X windows. */
5779 /* The section below is built by the lisp expression at the top of the file,
5780 just above where these variables are declared. */
5781 /*&&& init symbols here &&&*/
5782 DEFSYM (Qsuppress_icon
, "suppress-icon");
5783 DEFSYM (Qundefined_color
, "undefined-color");
5784 DEFSYM (Qcompound_text
, "compound-text");
5785 DEFSYM (Qcancel_timer
, "cancel-timer");
5786 DEFSYM (Qfont_param
, "font-parameter");
5787 /* This is the end of symbol initialization. */
5789 Fput (Qundefined_color
, Qerror_conditions
,
5790 listn (CONSTYPE_PURE
, 2, Qundefined_color
, Qerror
));
5791 Fput (Qundefined_color
, Qerror_message
,
5792 build_pure_c_string ("Undefined color"));
5794 DEFVAR_LISP ("x-pointer-shape", Vx_pointer_shape
,
5795 doc
: /* The shape of the pointer when over text.
5796 Changing the value does not affect existing frames
5797 unless you set the mouse color. */);
5798 Vx_pointer_shape
= Qnil
;
5800 #if 0 /* This doesn't really do anything. */
5801 DEFVAR_LISP ("x-nontext-pointer-shape", Vx_nontext_pointer_shape
,
5802 doc
: /* The shape of the pointer when not over text.
5803 This variable takes effect when you create a new frame
5804 or when you set the mouse color. */);
5806 Vx_nontext_pointer_shape
= Qnil
;
5808 DEFVAR_LISP ("x-hourglass-pointer-shape", Vx_hourglass_pointer_shape
,
5809 doc
: /* The shape of the pointer when Emacs is busy.
5810 This variable takes effect when you create a new frame
5811 or when you set the mouse color. */);
5812 Vx_hourglass_pointer_shape
= Qnil
;
5814 #if 0 /* This doesn't really do anything. */
5815 DEFVAR_LISP ("x-mode-pointer-shape", Vx_mode_pointer_shape
,
5816 doc
: /* The shape of the pointer when over the mode line.
5817 This variable takes effect when you create a new frame
5818 or when you set the mouse color. */);
5820 Vx_mode_pointer_shape
= Qnil
;
5822 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5823 Vx_sensitive_text_pointer_shape
,
5824 doc
: /* The shape of the pointer when over mouse-sensitive text.
5825 This variable takes effect when you create a new frame
5826 or when you set the mouse color. */);
5827 Vx_sensitive_text_pointer_shape
= Qnil
;
5829 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5830 Vx_window_horizontal_drag_shape
,
5831 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5832 This variable takes effect when you create a new frame
5833 or when you set the mouse color. */);
5834 Vx_window_horizontal_drag_shape
= Qnil
;
5836 DEFVAR_LISP ("x-cursor-fore-pixel", Vx_cursor_fore_pixel
,
5837 doc
: /* A string indicating the foreground color of the cursor box. */);
5838 Vx_cursor_fore_pixel
= Qnil
;
5840 DEFVAR_LISP ("x-max-tooltip-size", Vx_max_tooltip_size
,
5841 doc
: /* Maximum size for tooltips.
5842 Value is a pair (COLUMNS . ROWS). Text larger than this is clipped. */);
5843 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5845 DEFVAR_LISP ("x-no-window-manager", Vx_no_window_manager
,
5846 doc
: /* Non-nil if no X window manager is in use.
5847 Emacs doesn't try to figure this out; this is always nil
5848 unless you set it to something else. */);
5849 /* We don't have any way to find this out, so set it to nil
5850 and maybe the user would like to set it to t. */
5851 Vx_no_window_manager
= Qnil
;
5853 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5854 Vx_pixel_size_width_font_regexp
,
5855 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5857 Since Emacs gets width of a font matching with this regexp from
5858 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5859 such a font. This is especially effective for such large fonts as
5860 Chinese, Japanese, and Korean. */);
5861 Vx_pixel_size_width_font_regexp
= Qnil
;
5863 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5864 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", x_gtk_use_old_file_dialog
,
5865 doc
: /* Non-nil means prompt with the old GTK file selection dialog.
5866 If nil or if the file selection dialog is not available, the new GTK file
5867 chooser is used instead. To turn off all file dialogs set the
5868 variable `use-file-dialog'. */);
5869 x_gtk_use_old_file_dialog
= 0;
5871 DEFVAR_BOOL ("x-gtk-show-hidden-files", x_gtk_show_hidden_files
,
5872 doc
: /* If non-nil, the GTK file chooser will by default show hidden files.
5873 Note that this is just the default, there is a toggle button on the file
5874 chooser to show or not show hidden files on a case by case basis. */);
5875 x_gtk_show_hidden_files
= 0;
5877 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", x_gtk_file_dialog_help_text
,
5878 doc
: /* If non-nil, the GTK file chooser will show additional help text.
5879 If more space for files in the file chooser dialog is wanted, set this to nil
5880 to turn the additional text off. */);
5881 x_gtk_file_dialog_help_text
= 1;
5883 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", x_gtk_whole_detached_tool_bar
,
5884 doc
: /* If non-nil, a detached tool bar is shown in full.
5885 The default is to just show an arrow and pressing on that arrow shows
5886 the tool bar buttons. */);
5887 x_gtk_whole_detached_tool_bar
= 0;
5889 DEFVAR_BOOL ("x-gtk-use-system-tooltips", x_gtk_use_system_tooltips
,
5890 doc
: /* If non-nil with a Gtk+ built Emacs, the Gtk+ tooltip is used.
5891 Otherwise use Emacs own tooltip implementation.
5892 When using Gtk+ tooltips, the tooltip face is not used. */);
5893 x_gtk_use_system_tooltips
= 1;
5895 Fprovide (intern_c_string ("x"), Qnil
);
5897 #ifdef USE_X_TOOLKIT
5898 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5900 Fprovide (intern_c_string ("motif"), Qnil
);
5902 DEFVAR_LISP ("motif-version-string", Vmotif_version_string
,
5903 doc
: /* Version info for LessTif/Motif. */);
5904 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5905 #endif /* USE_MOTIF */
5906 #endif /* USE_X_TOOLKIT */
5909 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5910 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5911 But for a user it is a toolkit for X, and indeed, configure
5912 accepts --with-x-toolkit=gtk. */
5913 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5914 Fprovide (intern_c_string ("gtk"), Qnil
);
5915 Fprovide (intern_c_string ("move-toolbar"), Qnil
);
5917 DEFVAR_LISP ("gtk-version-string", Vgtk_version_string
,
5918 doc
: /* Version info for GTK+. */);
5920 char gtk_version
[sizeof ".." + 3 * INT_STRLEN_BOUND (int)];
5921 int len
= sprintf (gtk_version
, "%d.%d.%d",
5922 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5923 Vgtk_version_string
= make_pure_string (gtk_version
, len
, len
, 0);
5925 #endif /* USE_GTK */
5927 /* X window properties. */
5928 defsubr (&Sx_change_window_property
);
5929 defsubr (&Sx_delete_window_property
);
5930 defsubr (&Sx_window_property
);
5932 defsubr (&Sxw_display_color_p
);
5933 defsubr (&Sx_display_grayscale_p
);
5934 defsubr (&Sxw_color_defined_p
);
5935 defsubr (&Sxw_color_values
);
5936 defsubr (&Sx_server_max_request_size
);
5937 defsubr (&Sx_server_vendor
);
5938 defsubr (&Sx_server_version
);
5939 defsubr (&Sx_display_pixel_width
);
5940 defsubr (&Sx_display_pixel_height
);
5941 defsubr (&Sx_display_mm_width
);
5942 defsubr (&Sx_display_mm_height
);
5943 defsubr (&Sx_display_screens
);
5944 defsubr (&Sx_display_planes
);
5945 defsubr (&Sx_display_color_cells
);
5946 defsubr (&Sx_display_visual_class
);
5947 defsubr (&Sx_display_backing_store
);
5948 defsubr (&Sx_display_save_under
);
5949 defsubr (&Sx_wm_set_size_hint
);
5950 defsubr (&Sx_create_frame
);
5951 defsubr (&Sx_open_connection
);
5952 defsubr (&Sx_close_connection
);
5953 defsubr (&Sx_display_list
);
5954 defsubr (&Sx_synchronize
);
5955 defsubr (&Sx_focus_frame
);
5956 defsubr (&Sx_backspace_delete_keys_p
);
5958 /* Setting callback functions for fontset handler. */
5959 check_window_system_func
= check_x
;
5961 defsubr (&Sx_show_tip
);
5962 defsubr (&Sx_hide_tip
);
5964 staticpro (&tip_timer
);
5966 staticpro (&tip_frame
);
5968 last_show_tip_args
= Qnil
;
5969 staticpro (&last_show_tip_args
);
5971 defsubr (&Sx_uses_old_gtk_dialog
);
5972 #if defined (USE_MOTIF) || defined (USE_GTK)
5973 defsubr (&Sx_file_dialog
);
5976 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
5977 defsubr (&Sx_select_font
);
5981 #endif /* HAVE_X_WINDOWS */