1 /* Functions for the X window system.
3 Copyright (C) 1989, 1992-2011 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/>. */
27 /* This makes the fields of a Display accessible, in Xlib header files. */
29 #define XLIB_ILLEGAL_ACCESS
36 #include "intervals.h"
37 #include "dispextern.h"
39 #include "blockinput.h"
41 #include "character.h"
46 #include "termhooks.h"
54 #include <sys/types.h>
57 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
58 #include "bitmaps/gray.xbm"
60 #include <X11/bitmaps/gray>
63 #include "xsettings.h"
70 #include <X11/Shell.h>
74 #include <X11/Xaw3d/Paned.h>
75 #include <X11/Xaw3d/Label.h>
76 #else /* !HAVE_XAW3D */
77 #include <X11/Xaw/Paned.h>
78 #include <X11/Xaw/Label.h>
79 #endif /* HAVE_XAW3D */
80 #endif /* USE_MOTIF */
83 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
86 #ifdef USG /* Pacify gcc -Wunused-macros. */
94 #include "../lwlib/lwlib.h"
98 #include <Xm/DialogS.h>
99 #include <Xm/FileSB.h>
101 #include <Xm/TextF.h>
105 #include "../lwlib/xlwmenu.h"
108 #if !defined(NO_EDITRES)
110 extern void _XEditResCheckMessages (Widget
, XtPointer
, XEvent
*, Boolean
*);
111 #endif /* not defined NO_EDITRES */
113 /* Unique id counter for widgets created by the Lucid Widget Library. */
115 extern LWLIB_ID widget_id_tick
;
119 #endif /* USE_MOTIF */
121 #endif /* USE_X_TOOLKIT */
127 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
129 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
130 it, and including `bitmaps/gray' more than once is a problem when
131 config.h defines `static' as an empty replacement string. */
133 int gray_bitmap_width
= gray_width
;
134 int gray_bitmap_height
= gray_height
;
135 char *gray_bitmap_bits
= gray_bits
;
137 /* Nonzero if using X. */
141 static Lisp_Object Qnone
;
142 static Lisp_Object Qsuppress_icon
;
143 static Lisp_Object Qundefined_color
;
144 static Lisp_Object Qcompound_text
, Qcancel_timer
;
145 Lisp_Object Qfont_param
;
148 static ptrdiff_t image_cache_refcount
;
149 static int dpyinfo_refcount
;
152 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
153 static char *x_last_font_name
;
156 static struct x_display_info
*x_display_info_for_name (Lisp_Object
);
159 /* Error if we are not connected to X. */
165 error ("X windows are not in use or not initialized");
168 /* Nonzero if we can use mouse menus.
169 You should not call this unless HAVE_MENUS is defined. */
177 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
178 and checking validity for X. */
181 check_x_frame (Lisp_Object frame
)
186 frame
= selected_frame
;
187 CHECK_LIVE_FRAME (frame
);
190 error ("Non-X frame used");
194 /* Let the user specify an X display with a Lisp object.
195 OBJECT may be nil, a frame or a terminal object.
196 nil stands for the selected frame--or, if that is not an X frame,
197 the first X display on the list. */
199 struct x_display_info
*
200 check_x_display_info (Lisp_Object object
)
202 struct x_display_info
*dpyinfo
= NULL
;
206 struct frame
*sf
= XFRAME (selected_frame
);
208 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
209 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
210 else if (x_display_list
!= 0)
211 dpyinfo
= x_display_list
;
213 error ("X windows are not in use or not initialized");
215 else if (TERMINALP (object
))
217 struct terminal
*t
= get_terminal (object
, 1);
219 if (t
->type
!= output_x_window
)
220 error ("Terminal %"pI
"d is not an X display", XINT (object
));
222 dpyinfo
= t
->display_info
.x
;
224 else if (STRINGP (object
))
225 dpyinfo
= x_display_info_for_name (object
);
228 FRAME_PTR f
= check_x_frame (object
);
229 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
236 /* Return the Emacs frame-object corresponding to an X window.
237 It could be the frame's main window or an icon window. */
239 /* This function can be called during GC, so use GC_xxx type test macros. */
242 x_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
244 Lisp_Object tail
, frame
;
247 if (wdesc
== None
) return 0;
249 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
255 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
257 if (f
->output_data
.x
->hourglass_window
== wdesc
)
260 if ((f
->output_data
.x
->edit_widget
261 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
262 /* A tooltip frame? */
263 || (!f
->output_data
.x
->edit_widget
264 && FRAME_X_WINDOW (f
) == wdesc
)
265 || f
->output_data
.x
->icon_desc
== wdesc
)
267 #else /* not USE_X_TOOLKIT */
269 if (f
->output_data
.x
->edit_widget
)
271 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
272 struct x_output
*x
= f
->output_data
.x
;
273 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
277 if (FRAME_X_WINDOW (f
) == wdesc
278 || f
->output_data
.x
->icon_desc
== wdesc
)
280 #endif /* not USE_X_TOOLKIT */
285 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
286 /* Like x_window_to_frame but also compares the window with the widget's
290 x_any_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
292 Lisp_Object tail
, frame
;
293 struct frame
*f
, *found
;
296 if (wdesc
== None
) return NULL
;
299 for (tail
= Vframe_list
; CONSP (tail
) && !found
; tail
= XCDR (tail
))
306 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
308 /* This frame matches if the window is any of its widgets. */
309 x
= f
->output_data
.x
;
310 if (x
->hourglass_window
== wdesc
)
315 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
317 && gtk_widget_get_toplevel (gwdesc
) == x
->widget
)
320 if (wdesc
== XtWindow (x
->widget
)
321 || wdesc
== XtWindow (x
->column_widget
)
322 || wdesc
== XtWindow (x
->edit_widget
))
324 /* Match if the window is this frame's menubar. */
325 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
329 else if (FRAME_X_WINDOW (f
) == wdesc
)
330 /* A tooltip frame. */
338 /* Likewise, but consider only the menu bar widget. */
341 x_menubar_window_to_frame (struct x_display_info
*dpyinfo
, XEvent
*event
)
343 Window wdesc
= event
->xany
.window
;
344 Lisp_Object tail
, frame
;
348 if (wdesc
== None
) return 0;
350 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
356 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
358 x
= f
->output_data
.x
;
360 if (x
->menubar_widget
&& xg_event_is_for_menubar (f
, event
))
363 /* Match if the window is this frame's menubar. */
364 if (x
->menubar_widget
365 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
372 /* Return the frame whose principal (outermost) window is WDESC.
373 If WDESC is some other (smaller) window, we return 0. */
376 x_top_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
378 Lisp_Object tail
, frame
;
382 if (wdesc
== None
) return 0;
384 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
390 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
392 x
= f
->output_data
.x
;
396 /* This frame matches if the window is its topmost widget. */
398 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
399 if (gwdesc
== x
->widget
)
402 if (wdesc
== XtWindow (x
->widget
))
404 #if 0 /* I don't know why it did this,
405 but it seems logically wrong,
406 and it causes trouble for MapNotify events. */
407 /* Match if the window is this frame's menubar. */
408 if (x
->menubar_widget
409 && wdesc
== XtWindow (x
->menubar_widget
))
414 else if (FRAME_X_WINDOW (f
) == wdesc
)
420 #endif /* USE_X_TOOLKIT || USE_GTK */
424 /* Store the screen positions of frame F into XPTR and YPTR.
425 These are the positions of the containing window manager window,
426 not Emacs's own window. */
429 x_real_positions (FRAME_PTR f
, int *xptr
, int *yptr
)
431 int win_x
, win_y
, outer_x
IF_LINT (= 0), outer_y
IF_LINT (= 0);
432 int real_x
= 0, real_y
= 0;
434 Window win
= f
->output_data
.x
->parent_desc
;
436 unsigned long actual_size
, bytes_remaining
;
437 int rc
, actual_format
;
438 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
440 Display
*dpy
= FRAME_X_DISPLAY (f
);
441 unsigned char *tmp_data
= NULL
;
442 Atom target_type
= XA_CARDINAL
;
446 x_catch_errors (dpy
);
448 if (win
== dpyinfo
->root_window
)
449 win
= FRAME_OUTER_WINDOW (f
);
451 /* This loop traverses up the containment tree until we hit the root
452 window. Window managers may intersect many windows between our window
453 and the root window. The window we find just before the root window
454 should be the outer WM window. */
457 Window wm_window
, rootw
;
458 Window
*tmp_children
;
459 unsigned int tmp_nchildren
;
462 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
463 &wm_window
, &tmp_children
, &tmp_nchildren
);
465 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
467 /* Don't free tmp_children if XQueryTree failed. */
471 XFree ((char *) tmp_children
);
473 if (wm_window
== rootw
|| had_errors
)
484 /* Get the real coordinates for the WM window upper left corner */
485 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
486 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
488 /* Translate real coordinates to coordinates relative to our
489 window. For our window, the upper left corner is 0, 0.
490 Since the upper left corner of the WM window is outside
491 our window, win_x and win_y will be negative:
493 ------------------ ---> x
495 | ----------------- v y
498 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
500 /* From-window, to-window. */
501 FRAME_X_DISPLAY_INFO (f
)->root_window
,
504 /* From-position, to-position. */
505 real_x
, real_y
, &win_x
, &win_y
,
510 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
517 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
519 /* From-window, to-window. */
520 FRAME_X_DISPLAY_INFO (f
)->root_window
,
521 FRAME_OUTER_WINDOW (f
),
523 /* From-position, to-position. */
524 real_x
, real_y
, &outer_x
, &outer_y
,
530 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
534 if (dpyinfo
->root_window
== f
->output_data
.x
->parent_desc
)
536 /* Try _NET_FRAME_EXTENTS if our parent is the root window. */
537 rc
= XGetWindowProperty (dpy
, win
, dpyinfo
->Xatom_net_frame_extents
,
538 0, max_len
, False
, target_type
,
539 &actual_type
, &actual_format
, &actual_size
,
540 &bytes_remaining
, &tmp_data
);
542 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
543 && actual_size
== 4 && actual_format
== 32)
547 long *fe
= (long *)tmp_data
;
549 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
550 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
558 if (tmp_data
) XFree (tmp_data
);
564 if (had_errors
) return;
566 f
->x_pixels_diff
= -win_x
;
567 f
->y_pixels_diff
= -win_y
;
569 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
570 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
579 /* Gamma-correct COLOR on frame F. */
582 gamma_correct (struct frame
*f
, XColor
*color
)
586 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
587 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
588 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
593 /* Decide if color named COLOR_NAME is valid for use on frame F. If
594 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
595 allocate the color. Value is zero if COLOR_NAME is invalid, or
596 no color could be allocated. */
599 x_defined_color (struct frame
*f
, const char *color_name
,
600 XColor
*color
, int alloc_p
)
603 Display
*dpy
= FRAME_X_DISPLAY (f
);
604 Colormap cmap
= FRAME_X_COLORMAP (f
);
608 success_p
= xg_check_special_colors (f
, color_name
, color
);
611 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
612 if (success_p
&& alloc_p
)
613 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
620 /* Return the pixel color value for color COLOR_NAME on frame F. If F
621 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
622 Signal an error if color can't be allocated. */
625 x_decode_color (FRAME_PTR f
, Lisp_Object color_name
, int mono_color
)
629 CHECK_STRING (color_name
);
631 #if 0 /* Don't do this. It's wrong when we're not using the default
632 colormap, it makes freeing difficult, and it's probably not
633 an important optimization. */
634 if (strcmp (SDATA (color_name
), "black") == 0)
635 return BLACK_PIX_DEFAULT (f
);
636 else if (strcmp (SDATA (color_name
), "white") == 0)
637 return WHITE_PIX_DEFAULT (f
);
640 /* Return MONO_COLOR for monochrome frames. */
641 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
644 /* x_defined_color is responsible for coping with failures
645 by looking for a near-miss. */
646 if (x_defined_color (f
, SSDATA (color_name
), &cdef
, 1))
649 signal_error ("Undefined color", color_name
);
654 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
655 the previous value of that parameter, NEW_VALUE is the new value.
656 See also the comment of wait_for_wm in struct x_output. */
659 x_set_wait_for_wm (struct frame
*f
, Lisp_Object new_value
, Lisp_Object old_value
)
661 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
665 x_set_tool_bar_position (struct frame
*f
,
666 Lisp_Object new_value
,
667 Lisp_Object old_value
)
669 if (! EQ (new_value
, Qleft
) && ! EQ (new_value
, Qright
)
670 && ! EQ (new_value
, Qbottom
) && ! EQ (new_value
, Qtop
))
672 if (EQ (new_value
, old_value
)) return;
675 if (xg_change_toolbar_position (f
, new_value
))
676 f
->tool_bar_position
= new_value
;
682 /* Set icon from FILE for frame F. By using GTK functions the icon
683 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
686 xg_set_icon (FRAME_PTR f
, Lisp_Object file
)
691 found
= x_find_image_file (file
);
697 char *filename
= SSDATA (found
);
700 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
704 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
706 g_object_unref (pixbuf
);
720 xg_set_icon_from_xpm_data (FRAME_PTR f
, const char **data
)
722 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data (data
);
727 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
728 g_object_unref (pixbuf
);
734 /* Functions called only from `x_set_frame_param'
735 to set individual parameters.
737 If FRAME_X_WINDOW (f) is 0,
738 the frame is being created and its X-window does not exist yet.
739 In that case, just record the parameter's new value
740 in the standard place; do not attempt to change the window. */
743 x_set_foreground_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
745 struct x_output
*x
= f
->output_data
.x
;
746 unsigned long fg
, old_fg
;
748 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
749 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
750 FRAME_FOREGROUND_PIXEL (f
) = fg
;
752 if (FRAME_X_WINDOW (f
) != 0)
754 Display
*dpy
= FRAME_X_DISPLAY (f
);
757 XSetForeground (dpy
, x
->normal_gc
, fg
);
758 XSetBackground (dpy
, x
->reverse_gc
, fg
);
760 if (x
->cursor_pixel
== old_fg
)
762 unload_color (f
, x
->cursor_pixel
);
763 x
->cursor_pixel
= x_copy_color (f
, fg
);
764 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
769 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
771 if (FRAME_VISIBLE_P (f
))
775 unload_color (f
, old_fg
);
779 x_set_background_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
781 struct x_output
*x
= f
->output_data
.x
;
784 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
785 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
786 FRAME_BACKGROUND_PIXEL (f
) = bg
;
788 if (FRAME_X_WINDOW (f
) != 0)
790 Display
*dpy
= FRAME_X_DISPLAY (f
);
793 XSetBackground (dpy
, x
->normal_gc
, bg
);
794 XSetForeground (dpy
, x
->reverse_gc
, bg
);
795 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
796 XSetForeground (dpy
, x
->cursor_gc
, bg
);
799 xg_set_background_color (f
, bg
);
802 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
803 toolkit scroll bars. */
806 for (bar
= FRAME_SCROLL_BARS (f
);
808 bar
= XSCROLL_BAR (bar
)->next
)
810 Window window
= XSCROLL_BAR (bar
)->x_window
;
811 XSetWindowBackground (dpy
, window
, bg
);
814 #endif /* USE_TOOLKIT_SCROLL_BARS */
817 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
819 if (FRAME_VISIBLE_P (f
))
825 make_invisible_cursor (struct frame
*f
)
827 Display
*dpy
= FRAME_X_DISPLAY (f
);
828 static char const no_data
[] = { 0 };
833 x_catch_errors (dpy
);
834 pix
= XCreateBitmapFromData (dpy
, FRAME_X_DISPLAY_INFO (f
)->root_window
,
836 if (! x_had_errors_p (dpy
) && pix
!= None
)
840 col
.red
= col
.green
= col
.blue
= 0;
841 col
.flags
= DoRed
| DoGreen
| DoBlue
;
842 pixc
= XCreatePixmapCursor (dpy
, pix
, pix
, &col
, &col
, 0, 0);
843 if (! x_had_errors_p (dpy
) && pixc
!= None
)
845 XFreePixmap (dpy
, pix
);
854 x_set_mouse_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
856 struct x_output
*x
= f
->output_data
.x
;
857 Display
*dpy
= FRAME_X_DISPLAY (f
);
858 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
859 Cursor hourglass_cursor
, horizontal_drag_cursor
;
860 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
861 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
863 /* Don't let pointers be invisible. */
864 if (mask_color
== pixel
)
866 x_free_colors (f
, &pixel
, 1);
867 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
870 unload_color (f
, x
->mouse_pixel
);
871 x
->mouse_pixel
= pixel
;
875 /* It's not okay to crash if the user selects a screwy cursor. */
876 x_catch_errors (dpy
);
878 if (!NILP (Vx_pointer_shape
))
880 CHECK_NUMBER (Vx_pointer_shape
);
881 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
884 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
885 x_check_errors (dpy
, "bad text pointer cursor: %s");
887 if (!NILP (Vx_nontext_pointer_shape
))
889 CHECK_NUMBER (Vx_nontext_pointer_shape
);
891 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
894 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
895 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
897 if (!NILP (Vx_hourglass_pointer_shape
))
899 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
901 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
904 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
905 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
907 if (!NILP (Vx_mode_pointer_shape
))
909 CHECK_NUMBER (Vx_mode_pointer_shape
);
910 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
913 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
914 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
916 if (!NILP (Vx_sensitive_text_pointer_shape
))
918 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
920 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
923 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
925 if (!NILP (Vx_window_horizontal_drag_shape
))
927 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
928 horizontal_drag_cursor
929 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
932 horizontal_drag_cursor
933 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
935 /* Check and report errors with the above calls. */
936 x_check_errors (dpy
, "can't set cursor shape: %s");
940 XColor fore_color
, back_color
;
942 fore_color
.pixel
= x
->mouse_pixel
;
943 x_query_color (f
, &fore_color
);
944 back_color
.pixel
= mask_color
;
945 x_query_color (f
, &back_color
);
947 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
948 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
949 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
950 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
951 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
952 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
955 if (FRAME_X_WINDOW (f
) != 0)
956 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
957 f
->output_data
.x
->current_cursor
= cursor
);
959 if (FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
== 0)
960 FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
= make_invisible_cursor (f
);
962 if (cursor
!= x
->text_cursor
963 && x
->text_cursor
!= 0)
964 XFreeCursor (dpy
, x
->text_cursor
);
965 x
->text_cursor
= cursor
;
967 if (nontext_cursor
!= x
->nontext_cursor
968 && x
->nontext_cursor
!= 0)
969 XFreeCursor (dpy
, x
->nontext_cursor
);
970 x
->nontext_cursor
= nontext_cursor
;
972 if (hourglass_cursor
!= x
->hourglass_cursor
973 && x
->hourglass_cursor
!= 0)
974 XFreeCursor (dpy
, x
->hourglass_cursor
);
975 x
->hourglass_cursor
= hourglass_cursor
;
977 if (mode_cursor
!= x
->modeline_cursor
978 && x
->modeline_cursor
!= 0)
979 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
980 x
->modeline_cursor
= mode_cursor
;
982 if (hand_cursor
!= x
->hand_cursor
983 && x
->hand_cursor
!= 0)
984 XFreeCursor (dpy
, x
->hand_cursor
);
985 x
->hand_cursor
= hand_cursor
;
987 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
988 && x
->horizontal_drag_cursor
!= 0)
989 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
990 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
995 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
999 x_set_cursor_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1001 unsigned long fore_pixel
, pixel
;
1002 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1003 struct x_output
*x
= f
->output_data
.x
;
1005 if (!NILP (Vx_cursor_fore_pixel
))
1007 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1008 WHITE_PIX_DEFAULT (f
));
1009 fore_pixel_allocated_p
= 1;
1012 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1014 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1015 pixel_allocated_p
= 1;
1017 /* Make sure that the cursor color differs from the background color. */
1018 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1020 if (pixel_allocated_p
)
1022 x_free_colors (f
, &pixel
, 1);
1023 pixel_allocated_p
= 0;
1026 pixel
= x
->mouse_pixel
;
1027 if (pixel
== fore_pixel
)
1029 if (fore_pixel_allocated_p
)
1031 x_free_colors (f
, &fore_pixel
, 1);
1032 fore_pixel_allocated_p
= 0;
1034 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1038 unload_color (f
, x
->cursor_foreground_pixel
);
1039 if (!fore_pixel_allocated_p
)
1040 fore_pixel
= x_copy_color (f
, fore_pixel
);
1041 x
->cursor_foreground_pixel
= fore_pixel
;
1043 unload_color (f
, x
->cursor_pixel
);
1044 if (!pixel_allocated_p
)
1045 pixel
= x_copy_color (f
, pixel
);
1046 x
->cursor_pixel
= pixel
;
1048 if (FRAME_X_WINDOW (f
) != 0)
1051 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1052 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1055 if (FRAME_VISIBLE_P (f
))
1057 x_update_cursor (f
, 0);
1058 x_update_cursor (f
, 1);
1062 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1065 /* Set the border-color of frame F to pixel value PIX.
1066 Note that this does not fully take effect if done before
1067 F has an x-window. */
1070 x_set_border_pixel (struct frame
*f
, int pix
)
1072 unload_color (f
, f
->output_data
.x
->border_pixel
);
1073 f
->output_data
.x
->border_pixel
= pix
;
1075 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1078 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), pix
);
1081 if (FRAME_VISIBLE_P (f
))
1086 /* Set the border-color of frame F to value described by ARG.
1087 ARG can be a string naming a color.
1088 The border-color is used for the border that is drawn by the X server.
1089 Note that this does not fully take effect if done before
1090 F has an x-window; it must be redone when the window is created.
1092 Note: this is done in two routines because of the way X10 works.
1094 Note: under X11, this is normally the province of the window manager,
1095 and so emacs' border colors may be overridden. */
1098 x_set_border_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1103 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1104 x_set_border_pixel (f
, pix
);
1105 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1110 x_set_cursor_type (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1112 set_frame_cursor_types (f
, arg
);
1114 /* Make sure the cursor gets redrawn. */
1115 cursor_type_changed
= 1;
1119 x_set_icon_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1125 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1128 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1133 result
= x_text_icon (f
,
1134 SSDATA ((!NILP (f
->icon_name
)
1138 result
= x_bitmap_icon (f
, arg
);
1143 error ("No icon window available");
1146 XFlush (FRAME_X_DISPLAY (f
));
1151 x_set_icon_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1157 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1160 else if (!NILP (arg
) || NILP (oldval
))
1165 if (f
->output_data
.x
->icon_bitmap
!= 0)
1170 result
= x_text_icon (f
,
1171 SSDATA ((!NILP (f
->icon_name
)
1180 error ("No icon window available");
1183 XFlush (FRAME_X_DISPLAY (f
));
1189 x_set_menu_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1192 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1193 int olines
= FRAME_MENU_BAR_LINES (f
);
1196 /* Right now, menu bars don't work properly in minibuf-only frames;
1197 most of the commands try to apply themselves to the minibuffer
1198 frame itself, and get an error because you can't switch buffers
1199 in or split the minibuffer window. */
1200 if (FRAME_MINIBUF_ONLY_P (f
))
1203 if (INTEGERP (value
))
1204 nlines
= XINT (value
);
1208 /* Make sure we redisplay all windows in this frame. */
1209 windows_or_buffers_changed
++;
1211 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1212 FRAME_MENU_BAR_LINES (f
) = 0;
1215 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1216 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1217 /* Make sure next redisplay shows the menu bar. */
1218 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1222 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1223 free_frame_menubar (f
);
1224 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1226 f
->output_data
.x
->menubar_widget
= 0;
1228 #else /* not USE_X_TOOLKIT && not USE_GTK */
1229 FRAME_MENU_BAR_LINES (f
) = nlines
;
1230 resize_frame_windows (f
, FRAME_LINES (f
), 0);
1232 /* If the menu bar height gets changed, the internal border below
1233 the top margin has to be cleared. Also, if the menu bar gets
1234 larger, the area for the added lines has to be cleared except for
1235 the first menu bar line that is to be drawn later. */
1236 if (nlines
!= olines
)
1238 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1239 int width
= FRAME_PIXEL_WIDTH (f
);
1242 /* height can be zero here. */
1243 if (height
> 0 && width
> 0)
1245 y
= FRAME_TOP_MARGIN_HEIGHT (f
);
1248 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1249 0, y
, width
, height
, False
);
1253 if (nlines
> 1 && nlines
> olines
)
1255 y
= (olines
== 0 ? 1 : olines
) * FRAME_LINE_HEIGHT (f
);
1256 height
= nlines
* FRAME_LINE_HEIGHT (f
) - y
;
1259 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1260 0, y
, width
, height
, False
);
1264 if (nlines
== 0 && WINDOWP (f
->menu_bar_window
))
1265 clear_glyph_matrix (XWINDOW (f
->menu_bar_window
)->current_matrix
);
1267 #endif /* not USE_X_TOOLKIT && not USE_GTK */
1269 run_window_configuration_change_hook (f
);
1273 /* Set the number of lines used for the tool bar of frame F to VALUE.
1274 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1275 is the old number of tool bar lines. This function changes the
1276 height of all windows on frame F to match the new tool bar height.
1277 The frame's height doesn't change. */
1280 x_set_tool_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1282 int delta
, nlines
, root_height
;
1283 Lisp_Object root_window
;
1285 /* Treat tool bars like menu bars. */
1286 if (FRAME_MINIBUF_ONLY_P (f
))
1289 /* Use VALUE only if an integer >= 0. */
1290 if (INTEGERP (value
) && XINT (value
) >= 0)
1291 nlines
= XFASTINT (value
);
1296 FRAME_TOOL_BAR_LINES (f
) = 0;
1299 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1300 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1301 /* Make sure next redisplay shows the tool bar. */
1302 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1303 update_frame_tool_bar (f
);
1307 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1308 free_frame_tool_bar (f
);
1309 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1315 /* Make sure we redisplay all windows in this frame. */
1316 ++windows_or_buffers_changed
;
1318 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1320 /* Don't resize the tool-bar to more than we have room for. */
1321 root_window
= FRAME_ROOT_WINDOW (f
);
1322 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1323 if (root_height
- delta
< 1)
1325 delta
= root_height
- 1;
1326 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1329 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1330 resize_frame_windows (f
, FRAME_LINES (f
), 0);
1333 /* We also have to make sure that the internal border at the top of
1334 the frame, below the menu bar or tool bar, is redrawn when the
1335 tool bar disappears. This is so because the internal border is
1336 below the tool bar if one is displayed, but is below the menu bar
1337 if there isn't a tool bar. The tool bar draws into the area
1338 below the menu bar. */
1339 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1342 clear_current_matrices (f
);
1345 /* If the tool bar gets smaller, the internal border below it
1346 has to be cleared. It was formerly part of the display
1347 of the larger tool bar, and updating windows won't clear it. */
1350 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1351 int width
= FRAME_PIXEL_WIDTH (f
);
1352 int y
= (FRAME_MENU_BAR_LINES (f
) + nlines
) * FRAME_LINE_HEIGHT (f
);
1354 /* height can be zero here. */
1355 if (height
> 0 && width
> 0)
1358 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1359 0, y
, width
, height
, False
);
1363 if (WINDOWP (f
->tool_bar_window
))
1364 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1367 run_window_configuration_change_hook (f
);
1372 /* Set the foreground color for scroll bars on frame F to VALUE.
1373 VALUE should be a string, a color name. If it isn't a string or
1374 isn't a valid color name, do nothing. OLDVAL is the old value of
1375 the frame parameter. */
1378 x_set_scroll_bar_foreground (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1380 unsigned long pixel
;
1382 if (STRINGP (value
))
1383 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1387 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1388 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1390 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1391 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1393 /* Remove all scroll bars because they have wrong colors. */
1394 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1395 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1396 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1397 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1399 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1405 /* Set the background color for scroll bars on frame F to VALUE VALUE
1406 should be a string, a color name. If it isn't a string or isn't a
1407 valid color name, do nothing. OLDVAL is the old value of the frame
1411 x_set_scroll_bar_background (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1413 unsigned long pixel
;
1415 if (STRINGP (value
))
1416 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1420 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1421 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1423 #ifdef USE_TOOLKIT_SCROLL_BARS
1424 /* Scrollbar shadow colors. */
1425 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1427 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1428 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1430 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1432 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1433 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1435 #endif /* USE_TOOLKIT_SCROLL_BARS */
1437 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1438 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1440 /* Remove all scroll bars because they have wrong colors. */
1441 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1442 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1443 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1444 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1446 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1452 /* Encode Lisp string STRING as a text in a format appropriate for
1453 XICCC (X Inter Client Communication Conventions).
1455 This can call Lisp code, so callers must GCPRO.
1457 If STRING contains only ASCII characters, do no conversion and
1458 return the string data of STRING. Otherwise, encode the text by
1459 CODING_SYSTEM, and return a newly allocated memory area which
1460 should be freed by `xfree' by a caller.
1462 SELECTIONP non-zero means the string is being encoded for an X
1463 selection, so it is safe to run pre-write conversions (which
1466 Store the byte length of resulting text in *TEXT_BYTES.
1468 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1469 which means that the `encoding' of the result can be `STRING'.
1470 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1471 the result should be `COMPOUND_TEXT'. */
1473 static unsigned char *
1474 x_encode_text (Lisp_Object string
, Lisp_Object coding_system
, int selectionp
,
1475 ptrdiff_t *text_bytes
, int *stringp
, int *freep
)
1477 int result
= string_xstring_p (string
);
1478 struct coding_system coding
;
1482 /* No multibyte character in OBJ. We need not encode it. */
1483 *text_bytes
= SBYTES (string
);
1486 return SDATA (string
);
1489 setup_coding_system (coding_system
, &coding
);
1490 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1491 /* We suppress producing escape sequences for composition. */
1492 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1493 if (min (PTRDIFF_MAX
, SIZE_MAX
) / 2 < SCHARS (string
))
1494 memory_full (SIZE_MAX
);
1495 coding
.dst_bytes
= SCHARS (string
) * 2;
1496 coding
.destination
= (unsigned char *) xmalloc (coding
.dst_bytes
);
1497 encode_coding_object (&coding
, string
, 0, 0,
1498 SCHARS (string
), SBYTES (string
), Qnil
);
1499 *text_bytes
= coding
.produced
;
1500 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1502 return coding
.destination
;
1506 /* Set the WM name to NAME for frame F. Also set the icon name.
1507 If the frame already has an icon name, use that, otherwise set the
1508 icon name to NAME. */
1511 x_set_name_internal (FRAME_PTR f
, Lisp_Object name
)
1513 if (FRAME_X_WINDOW (f
))
1517 XTextProperty text
, icon
;
1520 int do_free_icon_value
= 0, do_free_text_value
= 0;
1521 Lisp_Object coding_system
;
1522 Lisp_Object encoded_name
;
1523 Lisp_Object encoded_icon_name
;
1524 struct gcpro gcpro1
;
1526 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1527 we use it before x_encode_text that may return string data. */
1529 encoded_name
= ENCODE_UTF_8 (name
);
1532 coding_system
= Qcompound_text
;
1533 /* Note: Encoding strategy
1535 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1536 text.encoding. But, there are non-internationalized window
1537 managers which don't support that encoding. So, if NAME
1538 contains only ASCII and 8859-1 characters, encode it by
1539 iso-latin-1, and use "STRING" in text.encoding hoping that
1540 such window managers at least analyze this format correctly,
1541 i.e. treat 8-bit bytes as 8859-1 characters.
1543 We may also be able to use "UTF8_STRING" in text.encoding
1544 in the future which can encode all Unicode characters.
1545 But, for the moment, there's no way to know that the
1546 current window manager supports it or not.
1548 Either way, we also set the _NET_WM_NAME and _NET_WM_ICON_NAME
1549 properties. Per the EWMH specification, those two properties
1550 are always UTF8_STRING. This matches what gtk_window_set_title()
1551 does in the USE_GTK case. */
1552 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1553 &do_free_text_value
);
1554 text
.encoding
= (stringp
? XA_STRING
1555 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1557 text
.nitems
= bytes
;
1558 if (text
.nitems
!= bytes
)
1559 error ("Window name too large");
1561 if (!STRINGP (f
->icon_name
))
1564 encoded_icon_name
= encoded_name
;
1568 /* See the above comment "Note: Encoding strategy". */
1569 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1570 &bytes
, &stringp
, &do_free_icon_value
);
1571 icon
.encoding
= (stringp
? XA_STRING
1572 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1574 icon
.nitems
= bytes
;
1575 if (icon
.nitems
!= bytes
)
1576 error ("Icon name too large");
1578 encoded_icon_name
= ENCODE_UTF_8 (f
->icon_name
);
1582 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1583 SSDATA (encoded_name
));
1584 #else /* not USE_GTK */
1585 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1586 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1587 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_name
,
1588 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1590 SDATA (encoded_name
),
1591 SBYTES (encoded_name
));
1592 #endif /* not USE_GTK */
1594 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1595 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1596 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_icon_name
,
1597 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1599 SDATA (encoded_icon_name
),
1600 SBYTES (encoded_icon_name
));
1602 if (do_free_icon_value
)
1604 if (do_free_text_value
)
1611 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1614 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1615 name; if NAME is a string, set F's name to NAME and set
1616 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1618 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1619 suggesting a new name, which lisp code should override; if
1620 F->explicit_name is set, ignore the new name; otherwise, set it. */
1623 x_set_name (struct frame
*f
, Lisp_Object name
, int explicit)
1625 /* Make sure that requests from lisp code override requests from
1626 Emacs redisplay code. */
1629 /* If we're switching from explicit to implicit, we had better
1630 update the mode lines and thereby update the title. */
1631 if (f
->explicit_name
&& NILP (name
))
1632 update_mode_lines
= 1;
1634 f
->explicit_name
= ! NILP (name
);
1636 else if (f
->explicit_name
)
1639 /* If NAME is nil, set the name to the x_id_name. */
1642 /* Check for no change needed in this very common case
1643 before we do any consing. */
1644 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1647 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1650 CHECK_STRING (name
);
1652 /* Don't change the name if it's already NAME. */
1653 if (! NILP (Fstring_equal (name
, f
->name
)))
1658 /* For setting the frame title, the title parameter should override
1659 the name parameter. */
1660 if (! NILP (f
->title
))
1663 x_set_name_internal (f
, name
);
1666 /* This function should be called when the user's lisp code has
1667 specified a name for the frame; the name will override any set by the
1670 x_explicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1672 x_set_name (f
, arg
, 1);
1675 /* This function should be called by Emacs redisplay code to set the
1676 name; names set this way will never override names set by the user's
1679 x_implicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1681 x_set_name (f
, arg
, 0);
1684 /* Change the title of frame F to NAME.
1685 If NAME is nil, use the frame name as the title. */
1688 x_set_title (struct frame
*f
, Lisp_Object name
, Lisp_Object old_name
)
1690 /* Don't change the title if it's already NAME. */
1691 if (EQ (name
, f
->title
))
1694 update_mode_lines
= 1;
1701 CHECK_STRING (name
);
1703 x_set_name_internal (f
, name
);
1707 x_set_scroll_bar_default_width (struct frame
*f
)
1709 int wid
= FRAME_COLUMN_WIDTH (f
);
1710 #ifdef USE_TOOLKIT_SCROLL_BARS
1712 int minw
= xg_get_default_scrollbar_width ();
1716 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1717 int width
= minw
+ 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1718 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1719 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1721 /* Make the actual width at least 14 pixels and a multiple of a
1723 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1725 /* Use all of that space (aside from required margins) for the
1727 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1732 /* Record in frame F the specified or default value according to ALIST
1733 of the parameter named PROP (a Lisp symbol). If no value is
1734 specified for PROP, look for an X default for XPROP on the frame
1735 named NAME. If that is not found either, use the value DEFLT. */
1738 x_default_scroll_bar_color_parameter (struct frame
*f
,
1739 Lisp_Object alist
, Lisp_Object prop
,
1740 const char *xprop
, const char *xclass
,
1743 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1746 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1747 if (EQ (tem
, Qunbound
))
1749 #ifdef USE_TOOLKIT_SCROLL_BARS
1751 /* See if an X resource for the scroll bar color has been
1753 tem
= display_x_get_resource (dpyinfo
,
1754 build_string (foreground_p
1757 empty_unibyte_string
,
1758 build_string ("verticalScrollBar"),
1759 empty_unibyte_string
);
1762 /* If nothing has been specified, scroll bars will use a
1763 toolkit-dependent default. Because these defaults are
1764 difficult to get at without actually creating a scroll
1765 bar, use nil to indicate that no color has been
1770 #else /* not USE_TOOLKIT_SCROLL_BARS */
1774 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1777 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1784 #ifdef USE_X_TOOLKIT
1786 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1787 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1788 already be present because of the toolkit (Motif adds some of them,
1789 for example, but Xt doesn't). */
1792 hack_wm_protocols (FRAME_PTR f
, Widget widget
)
1794 Display
*dpy
= XtDisplay (widget
);
1795 Window w
= XtWindow (widget
);
1796 int need_delete
= 1;
1803 unsigned char *catoms
;
1805 unsigned long nitems
= 0;
1806 unsigned long bytes_after
;
1808 if ((XGetWindowProperty (dpy
, w
,
1809 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1810 (long)0, (long)100, False
, XA_ATOM
,
1811 &type
, &format
, &nitems
, &bytes_after
,
1814 && format
== 32 && type
== XA_ATOM
)
1816 Atom
*atoms
= (Atom
*) catoms
;
1821 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1823 else if (atoms
[nitems
]
1824 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1826 else if (atoms
[nitems
]
1827 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1838 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1840 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1842 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1844 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1845 XA_ATOM
, 32, PropModeAppend
,
1846 (unsigned char *) props
, count
);
1854 /* Support routines for XIC (X Input Context). */
1858 static XFontSet
xic_create_xfontset (struct frame
*);
1859 static XIMStyle
best_xim_style (XIMStyles
*, XIMStyles
*);
1862 /* Supported XIM styles, ordered by preference. */
1864 static XIMStyle supported_xim_styles
[] =
1866 XIMPreeditPosition
| XIMStatusArea
,
1867 XIMPreeditPosition
| XIMStatusNothing
,
1868 XIMPreeditPosition
| XIMStatusNone
,
1869 XIMPreeditNothing
| XIMStatusArea
,
1870 XIMPreeditNothing
| XIMStatusNothing
,
1871 XIMPreeditNothing
| XIMStatusNone
,
1872 XIMPreeditNone
| XIMStatusArea
,
1873 XIMPreeditNone
| XIMStatusNothing
,
1874 XIMPreeditNone
| XIMStatusNone
,
1879 #if defined HAVE_X_WINDOWS && defined USE_X_TOOLKIT
1880 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1882 static const char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1884 /* Create an Xt fontset spec from the name of a base font.
1885 If `motif' is True use the Motif syntax. */
1887 xic_create_fontsetname (const char *base_fontname
, int motif
)
1889 const char *sep
= motif
? ";" : ",";
1892 /* Make a fontset name from the base font name. */
1893 if (xic_defaut_fontset
== base_fontname
)
1894 { /* There is no base font name, use the default. */
1895 ptrdiff_t len
= strlen (base_fontname
) + 2;
1896 fontsetname
= xmalloc (len
);
1897 memset (fontsetname
, 0, len
);
1898 strcpy (fontsetname
, base_fontname
);
1902 /* Make a fontset name from the base font name.
1903 The font set will be made of the following elements:
1905 - the base font where the charset spec is replaced by -*-*.
1906 - the same but with the family also replaced with -*-*-. */
1907 const char *p
= base_fontname
;
1910 for (i
= 0; *p
; p
++)
1913 { /* As the font name doesn't conform to XLFD, we can't
1914 modify it to generalize it to allcs and allfamilies.
1915 Use the specified font plus the default. */
1917 strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
1918 fontsetname
= xmalloc (len
);
1919 memset (fontsetname
, 0, len
);
1920 strcpy (fontsetname
, base_fontname
);
1921 strcat (fontsetname
, sep
);
1922 strcat (fontsetname
, xic_defaut_fontset
);
1927 const char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1928 char *font_allcs
= NULL
;
1929 char *font_allfamilies
= NULL
;
1930 char *font_all
= NULL
;
1931 const char *allcs
= "*-*-*-*-*-*-*";
1932 const char *allfamilies
= "-*-*-";
1933 const char *all
= "*-*-*-*-";
1936 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
1949 /* If base_fontname specifies ADSTYLE, make it a
1953 ptrdiff_t diff
= (p2
- p3
) - 2;
1955 base
= alloca (strlen (base_fontname
) + 1);
1956 memcpy (base
, base_fontname
, p3
- base_fontname
);
1957 base
[p3
- base_fontname
] = '*';
1958 base
[(p3
- base_fontname
) + 1] = '-';
1959 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
1960 p
= base
+ (p
- base_fontname
) - diff
;
1961 p1
= base
+ (p1
- base_fontname
);
1962 p2
= base
+ (p2
- base_fontname
) - diff
;
1963 base_fontname
= base
;
1966 /* Build the font spec that matches all charsets. */
1967 len
= p
- base_fontname
+ strlen (allcs
) + 1;
1968 font_allcs
= (char *) alloca (len
);
1969 memset (font_allcs
, 0, len
);
1970 memcpy (font_allcs
, base_fontname
, p
- base_fontname
);
1971 strcat (font_allcs
, allcs
);
1973 /* Build the font spec that matches all families and
1975 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
1976 font_allfamilies
= (char *) alloca (len
);
1977 memset (font_allfamilies
, 0, len
);
1978 strcpy (font_allfamilies
, allfamilies
);
1979 memcpy (font_allfamilies
+ strlen (allfamilies
), p1
, p
- p1
);
1980 strcat (font_allfamilies
, allcs
);
1982 /* Build the font spec that matches all. */
1983 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
1984 font_all
= (char *) alloca (len
);
1985 memset (font_all
, 0, len
);
1986 strcpy (font_all
, allfamilies
);
1987 strcat (font_all
, all
);
1988 memcpy (font_all
+ strlen (all
) + strlen (allfamilies
), p2
, p
- p2
);
1989 strcat (font_all
, allcs
);
1991 /* Build the actual font set name. */
1992 len
= strlen (base_fontname
) + strlen (font_allcs
)
1993 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
1994 fontsetname
= xmalloc (len
);
1995 memset (fontsetname
, 0, len
);
1996 strcpy (fontsetname
, base_fontname
);
1997 strcat (fontsetname
, sep
);
1998 strcat (fontsetname
, font_allcs
);
1999 strcat (fontsetname
, sep
);
2000 strcat (fontsetname
, font_allfamilies
);
2001 strcat (fontsetname
, sep
);
2002 strcat (fontsetname
, font_all
);
2006 strcat (fontsetname
, ":");
2009 #endif /* HAVE_X_WINDOWS && USE_X_TOOLKIT */
2011 #ifdef DEBUG_XIC_FONTSET
2013 print_fontset_result (XFontSet xfs
, char *name
, char **missing_list
,
2017 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
2020 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
2021 while (missing_count
-- > 0)
2023 fprintf (stderr
, " missing: %s\n", *missing_list
);
2032 xic_create_xfontset (struct frame
*f
)
2034 XFontSet xfs
= NULL
;
2035 struct font
*font
= FRAME_FONT (f
);
2036 int pixel_size
= font
->pixel_size
;
2037 Lisp_Object rest
, frame
;
2039 /* See if there is another frame already using same fontset. */
2040 FOR_EACH_FRAME (rest
, frame
)
2042 struct frame
*cf
= XFRAME (frame
);
2044 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2045 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2047 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
2049 xfs
= FRAME_XIC_FONTSET (cf
);
2057 char **missing_list
;
2060 const char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
2062 sprintf (buf
, xlfd_format
, pixel_size
);
2063 missing_list
= NULL
;
2064 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2065 &missing_list
, &missing_count
, &def_string
);
2066 #ifdef DEBUG_XIC_FONTSET
2067 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2070 XFreeStringList (missing_list
);
2073 /* List of pixel sizes most likely available. Find one that
2074 is closest to pixel_size. */
2075 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2076 int *smaller
, *larger
;
2078 for (smaller
= sizes
; smaller
[1]; smaller
++)
2079 if (smaller
[1] >= pixel_size
)
2081 larger
= smaller
+ 1;
2082 if (*larger
== pixel_size
)
2084 while (*smaller
|| *larger
)
2089 this_size
= *smaller
--;
2090 else if (! *smaller
)
2091 this_size
= *larger
++;
2092 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
2093 this_size
= *smaller
--;
2095 this_size
= *larger
++;
2096 sprintf (buf
, xlfd_format
, this_size
);
2097 missing_list
= NULL
;
2098 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2099 &missing_list
, &missing_count
, &def_string
);
2100 #ifdef DEBUG_XIC_FONTSET
2101 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2104 XFreeStringList (missing_list
);
2111 const char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
2113 missing_list
= NULL
;
2114 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
2115 &missing_list
, &missing_count
, &def_string
);
2116 #ifdef DEBUG_XIC_FONTSET
2117 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
2120 XFreeStringList (missing_list
);
2128 /* Free the X fontset of frame F if it is the last frame using it. */
2131 xic_free_xfontset (struct frame
*f
)
2133 Lisp_Object rest
, frame
;
2136 if (!FRAME_XIC_FONTSET (f
))
2139 /* See if there is another frame sharing the same fontset. */
2140 FOR_EACH_FRAME (rest
, frame
)
2142 struct frame
*cf
= XFRAME (frame
);
2143 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2144 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2145 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2153 /* The fontset is not used anymore. It is safe to free it. */
2154 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2156 if (FRAME_XIC_BASE_FONTNAME (f
))
2157 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2158 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2159 FRAME_XIC_FONTSET (f
) = NULL
;
2163 /* Value is the best input style, given user preferences USER (already
2164 checked to be supported by Emacs), and styles supported by the
2165 input method XIM. */
2168 best_xim_style (XIMStyles
*user
, XIMStyles
*xim
)
2172 for (i
= 0; i
< user
->count_styles
; ++i
)
2173 for (j
= 0; j
< xim
->count_styles
; ++j
)
2174 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2175 return user
->supported_styles
[i
];
2177 /* Return the default style. */
2178 return XIMPreeditNothing
| XIMStatusNothing
;
2181 /* Create XIC for frame F. */
2183 static XIMStyle xic_style
;
2186 create_frame_xic (struct frame
*f
)
2190 XFontSet xfs
= NULL
;
2195 /* Create X fontset. */
2196 xfs
= xic_create_xfontset (f
);
2197 xim
= FRAME_X_XIM (f
);
2202 XVaNestedList preedit_attr
;
2203 XVaNestedList status_attr
;
2205 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2206 spot
.x
= 0; spot
.y
= 1;
2208 /* Determine XIC style. */
2211 XIMStyles supported_list
;
2212 supported_list
.count_styles
= (sizeof supported_xim_styles
2213 / sizeof supported_xim_styles
[0]);
2214 supported_list
.supported_styles
= supported_xim_styles
;
2215 xic_style
= best_xim_style (&supported_list
,
2216 FRAME_X_XIM_STYLES (f
));
2219 preedit_attr
= XVaCreateNestedList (0,
2222 FRAME_FOREGROUND_PIXEL (f
),
2224 FRAME_BACKGROUND_PIXEL (f
),
2225 (xic_style
& XIMPreeditPosition
2230 status_attr
= XVaCreateNestedList (0,
2236 FRAME_FOREGROUND_PIXEL (f
),
2238 FRAME_BACKGROUND_PIXEL (f
),
2241 xic
= XCreateIC (xim
,
2242 XNInputStyle
, xic_style
,
2243 XNClientWindow
, FRAME_X_WINDOW (f
),
2244 XNFocusWindow
, FRAME_X_WINDOW (f
),
2245 XNStatusAttributes
, status_attr
,
2246 XNPreeditAttributes
, preedit_attr
,
2248 XFree (preedit_attr
);
2249 XFree (status_attr
);
2252 FRAME_XIC (f
) = xic
;
2253 FRAME_XIC_STYLE (f
) = xic_style
;
2254 FRAME_XIC_FONTSET (f
) = xfs
;
2258 /* Destroy XIC and free XIC fontset of frame F, if any. */
2261 free_frame_xic (struct frame
*f
)
2263 if (FRAME_XIC (f
) == NULL
)
2266 XDestroyIC (FRAME_XIC (f
));
2267 xic_free_xfontset (f
);
2269 FRAME_XIC (f
) = NULL
;
2273 /* Place preedit area for XIC of window W's frame to specified
2274 pixel position X/Y. X and Y are relative to window W. */
2277 xic_set_preeditarea (struct window
*w
, int x
, int y
)
2279 struct frame
*f
= XFRAME (w
->frame
);
2283 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2284 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2285 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2286 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2291 /* Place status area for XIC in bottom right corner of frame F.. */
2294 xic_set_statusarea (struct frame
*f
)
2296 XIC xic
= FRAME_XIC (f
);
2301 /* Negotiate geometry of status area. If input method has existing
2302 status area, use its current size. */
2303 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2304 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2305 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2308 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2309 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2312 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2314 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2315 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2319 area
.width
= needed
->width
;
2320 area
.height
= needed
->height
;
2321 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2322 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2323 - FRAME_MENUBAR_HEIGHT (f
)
2324 - FRAME_TOOLBAR_TOP_HEIGHT (f
)
2325 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2328 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2329 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2334 /* Set X fontset for XIC of frame F, using base font name
2335 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2338 xic_set_xfontset (struct frame
*f
, const char *base_fontname
)
2343 xic_free_xfontset (f
);
2345 xfs
= xic_create_xfontset (f
);
2347 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2348 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2349 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2350 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2351 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2354 FRAME_XIC_FONTSET (f
) = xfs
;
2357 #endif /* HAVE_X_I18N */
2361 #ifdef USE_X_TOOLKIT
2363 /* Create and set up the X widget for frame F. */
2366 x_window (struct frame
*f
, long window_prompting
, int minibuffer_only
)
2368 XClassHint class_hints
;
2369 XSetWindowAttributes attributes
;
2370 unsigned long attribute_mask
;
2371 Widget shell_widget
;
2373 Widget frame_widget
;
2379 /* Use the resource name as the top-level widget name
2380 for looking up resources. Make a non-Lisp copy
2381 for the window manager, so GC relocation won't bother it.
2383 Elsewhere we specify the window name for the window manager. */
2386 char *str
= SSDATA (Vx_resource_name
);
2387 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2388 strcpy (f
->namebuf
, str
);
2392 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2393 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2394 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2395 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2396 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2397 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2398 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2399 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2400 applicationShellWidgetClass
,
2401 FRAME_X_DISPLAY (f
), al
, ac
);
2403 f
->output_data
.x
->widget
= shell_widget
;
2404 /* maybe_set_screen_title_format (shell_widget); */
2406 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2407 (widget_value
*) NULL
,
2408 shell_widget
, False
,
2412 (lw_callback
) NULL
);
2415 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2416 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2417 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2418 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2419 XtSetValues (pane_widget
, al
, ac
);
2420 f
->output_data
.x
->column_widget
= pane_widget
;
2422 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2423 the emacs screen when changing menubar. This reduces flickering. */
2426 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2427 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2428 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2429 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2430 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2431 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2432 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2433 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2434 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2435 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2438 f
->output_data
.x
->edit_widget
= frame_widget
;
2440 XtManageChild (frame_widget
);
2442 /* Do some needed geometry management. */
2445 char *tem
, shell_position
[32];
2448 int extra_borders
= 0;
2450 = (f
->output_data
.x
->menubar_widget
2451 ? (f
->output_data
.x
->menubar_widget
->core
.height
2452 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2455 #if 0 /* Experimentally, we now get the right results
2456 for -geometry -0-0 without this. 24 Aug 96, rms. */
2457 if (FRAME_EXTERNAL_MENU_BAR (f
))
2460 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2461 menubar_size
+= ibw
;
2465 f
->output_data
.x
->menubar_height
= menubar_size
;
2468 /* Motif seems to need this amount added to the sizes
2469 specified for the shell widget. The Athena/Lucid widgets don't.
2470 Both conclusions reached experimentally. -- rms. */
2471 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2472 &extra_borders
, NULL
);
2476 /* Convert our geometry parameters into a geometry string
2478 Note that we do not specify here whether the position
2479 is a user-specified or program-specified one.
2480 We pass that information later, in x_wm_set_size_hints. */
2482 int left
= f
->left_pos
;
2483 int xneg
= window_prompting
& XNegative
;
2484 int top
= f
->top_pos
;
2485 int yneg
= window_prompting
& YNegative
;
2491 if (window_prompting
& USPosition
)
2492 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2493 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2494 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2495 (xneg
? '-' : '+'), left
,
2496 (yneg
? '-' : '+'), top
);
2499 sprintf (shell_position
, "=%dx%d",
2500 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2501 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2503 /* Setting x and y when the position is not specified in
2504 the geometry string will set program position in the WM hints.
2505 If Emacs had just one program position, we could set it in
2506 fallback resources, but since each make-frame call can specify
2507 different program positions, this is easier. */
2508 XtSetArg (gal
[gac
], XtNx
, left
); gac
++;
2509 XtSetArg (gal
[gac
], XtNy
, top
); gac
++;
2513 len
= strlen (shell_position
) + 1;
2514 /* We don't free this because we don't know whether
2515 it is safe to free it while the frame exists.
2516 It isn't worth the trouble of arranging to free it
2517 when the frame is deleted. */
2518 tem
= (char *) xmalloc (len
);
2519 strncpy (tem
, shell_position
, len
);
2520 XtSetArg (gal
[gac
], XtNgeometry
, tem
); gac
++;
2521 XtSetValues (shell_widget
, gal
, gac
);
2524 XtManageChild (pane_widget
);
2525 XtRealizeWidget (shell_widget
);
2527 if (FRAME_X_EMBEDDED_P (f
))
2528 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2529 f
->output_data
.x
->parent_desc
, 0, 0);
2531 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2533 validate_x_resource_name ();
2535 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2536 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2537 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2540 FRAME_XIC (f
) = NULL
;
2542 create_frame_xic (f
);
2545 f
->output_data
.x
->wm_hints
.input
= True
;
2546 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2547 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2548 &f
->output_data
.x
->wm_hints
);
2550 hack_wm_protocols (f
, shell_widget
);
2553 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2556 /* Do a stupid property change to force the server to generate a
2557 PropertyNotify event so that the event_stream server timestamp will
2558 be initialized to something relevant to the time we created the window.
2560 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2561 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2562 XA_ATOM
, 32, PropModeAppend
,
2563 (unsigned char*) NULL
, 0);
2565 /* Make all the standard events reach the Emacs frame. */
2566 attributes
.event_mask
= STANDARD_EVENT_SET
;
2571 /* XIM server might require some X events. */
2572 unsigned long fevent
= NoEventMask
;
2573 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2574 attributes
.event_mask
|= fevent
;
2576 #endif /* HAVE_X_I18N */
2578 attribute_mask
= CWEventMask
;
2579 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2580 attribute_mask
, &attributes
);
2582 XtMapWidget (frame_widget
);
2584 /* x_set_name normally ignores requests to set the name if the
2585 requested name is the same as the current name. This is the one
2586 place where that assumption isn't correct; f->name is set, but
2587 the X server hasn't been told. */
2590 int explicit = f
->explicit_name
;
2592 f
->explicit_name
= 0;
2595 x_set_name (f
, name
, explicit);
2598 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2599 f
->output_data
.x
->current_cursor
2600 = f
->output_data
.x
->text_cursor
);
2604 /* This is a no-op, except under Motif. Make sure main areas are
2605 set to something reasonable, in case we get an error later. */
2606 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2609 #else /* not USE_X_TOOLKIT */
2612 x_window (FRAME_PTR f
)
2614 if (! xg_create_frame_widgets (f
))
2615 error ("Unable to create window");
2618 FRAME_XIC (f
) = NULL
;
2622 create_frame_xic (f
);
2625 /* XIM server might require some X events. */
2626 unsigned long fevent
= NoEventMask
;
2627 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2629 if (fevent
!= NoEventMask
)
2631 XSetWindowAttributes attributes
;
2632 XWindowAttributes wattr
;
2633 unsigned long attribute_mask
;
2635 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2637 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2638 attribute_mask
= CWEventMask
;
2639 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2640 attribute_mask
, &attributes
);
2648 #else /*! USE_GTK */
2649 /* Create and set up the X window for frame F. */
2652 x_window (struct frame
*f
)
2654 XClassHint class_hints
;
2655 XSetWindowAttributes attributes
;
2656 unsigned long attribute_mask
;
2658 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2659 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2660 attributes
.bit_gravity
= StaticGravity
;
2661 attributes
.backing_store
= NotUseful
;
2662 attributes
.save_under
= True
;
2663 attributes
.event_mask
= STANDARD_EVENT_SET
;
2664 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2665 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2670 = XCreateWindow (FRAME_X_DISPLAY (f
),
2671 f
->output_data
.x
->parent_desc
,
2674 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2676 CopyFromParent
, /* depth */
2677 InputOutput
, /* class */
2679 attribute_mask
, &attributes
);
2684 create_frame_xic (f
);
2687 /* XIM server might require some X events. */
2688 unsigned long fevent
= NoEventMask
;
2689 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2690 attributes
.event_mask
|= fevent
;
2691 attribute_mask
= CWEventMask
;
2692 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2693 attribute_mask
, &attributes
);
2696 #endif /* HAVE_X_I18N */
2698 validate_x_resource_name ();
2700 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2701 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2702 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2704 /* The menubar is part of the ordinary display;
2705 it does not count in addition to the height of the window. */
2706 f
->output_data
.x
->menubar_height
= 0;
2708 /* This indicates that we use the "Passive Input" input model.
2709 Unless we do this, we don't get the Focus{In,Out} events that we
2710 need to draw the cursor correctly. Accursed bureaucrats.
2711 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2713 f
->output_data
.x
->wm_hints
.input
= True
;
2714 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2715 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2716 &f
->output_data
.x
->wm_hints
);
2717 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2719 /* Request "save yourself" and "delete window" commands from wm. */
2722 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2723 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2724 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2727 /* x_set_name normally ignores requests to set the name if the
2728 requested name is the same as the current name. This is the one
2729 place where that assumption isn't correct; f->name is set, but
2730 the X server hasn't been told. */
2733 int explicit = f
->explicit_name
;
2735 f
->explicit_name
= 0;
2738 x_set_name (f
, name
, explicit);
2741 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2742 f
->output_data
.x
->current_cursor
2743 = f
->output_data
.x
->text_cursor
);
2747 if (FRAME_X_WINDOW (f
) == 0)
2748 error ("Unable to create window");
2751 #endif /* not USE_GTK */
2752 #endif /* not USE_X_TOOLKIT */
2754 /* Verify that the icon position args for this window are valid. */
2757 x_icon_verify (struct frame
*f
, Lisp_Object parms
)
2759 Lisp_Object icon_x
, icon_y
;
2761 /* Set the position of the icon. Note that twm groups all
2762 icons in an icon window. */
2763 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2764 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2765 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2767 CHECK_NUMBER (icon_x
);
2768 CHECK_NUMBER (icon_y
);
2770 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2771 error ("Both left and top icon corners of icon must be specified");
2774 /* Handle the icon stuff for this window. Perhaps later we might
2775 want an x_set_icon_position which can be called interactively as
2779 x_icon (struct frame
*f
, Lisp_Object parms
)
2781 Lisp_Object icon_x
, icon_y
;
2783 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2786 /* Set the position of the icon. Note that twm groups all
2787 icons in an icon window. */
2788 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2789 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2790 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2792 CHECK_NUMBER (icon_x
);
2793 CHECK_NUMBER (icon_y
);
2795 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2796 error ("Both left and top icon corners of icon must be specified");
2800 if (! EQ (icon_x
, Qunbound
))
2801 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2803 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2804 but x_create_frame still needs it. */
2805 /* Start up iconic or window? */
2806 x_wm_set_window_state
2807 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2813 x_text_icon (f
, SSDATA ((!NILP (f
->icon_name
)
2820 /* Make the GCs needed for this window, setting the
2821 background, border and mouse colors; also create the
2822 mouse cursor and the gray border tile. */
2825 x_make_gc (struct frame
*f
)
2827 XGCValues gc_values
;
2831 /* Create the GCs of this frame.
2832 Note that many default values are used. */
2834 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2835 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2836 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2837 f
->output_data
.x
->normal_gc
2838 = XCreateGC (FRAME_X_DISPLAY (f
),
2840 GCLineWidth
| GCForeground
| GCBackground
,
2843 /* Reverse video style. */
2844 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2845 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2846 f
->output_data
.x
->reverse_gc
2847 = XCreateGC (FRAME_X_DISPLAY (f
),
2849 GCForeground
| GCBackground
| GCLineWidth
,
2852 /* Cursor has cursor-color background, background-color foreground. */
2853 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2854 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2855 gc_values
.fill_style
= FillOpaqueStippled
;
2856 f
->output_data
.x
->cursor_gc
2857 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2858 (GCForeground
| GCBackground
2859 | GCFillStyle
| GCLineWidth
),
2863 f
->output_data
.x
->white_relief
.gc
= 0;
2864 f
->output_data
.x
->black_relief
.gc
= 0;
2866 /* Create the gray border tile used when the pointer is not in
2867 the frame. Since this depends on the frame's pixel values,
2868 this must be done on a per-frame basis. */
2869 f
->output_data
.x
->border_tile
2870 = (XCreatePixmapFromBitmapData
2871 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2872 gray_bits
, gray_width
, gray_height
,
2873 FRAME_FOREGROUND_PIXEL (f
),
2874 FRAME_BACKGROUND_PIXEL (f
),
2875 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2881 /* Free what was allocated in x_make_gc. */
2884 x_free_gcs (struct frame
*f
)
2886 Display
*dpy
= FRAME_X_DISPLAY (f
);
2890 if (f
->output_data
.x
->normal_gc
)
2892 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2893 f
->output_data
.x
->normal_gc
= 0;
2896 if (f
->output_data
.x
->reverse_gc
)
2898 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2899 f
->output_data
.x
->reverse_gc
= 0;
2902 if (f
->output_data
.x
->cursor_gc
)
2904 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2905 f
->output_data
.x
->cursor_gc
= 0;
2908 if (f
->output_data
.x
->border_tile
)
2910 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2911 f
->output_data
.x
->border_tile
= 0;
2918 /* Handler for signals raised during x_create_frame and
2919 x_create_top_frame. FRAME is the frame which is partially
2923 unwind_create_frame (Lisp_Object frame
)
2925 struct frame
*f
= XFRAME (frame
);
2927 /* If frame is already dead, nothing to do. This can happen if the
2928 display is disconnected after the frame has become official, but
2929 before x_create_frame removes the unwind protect. */
2930 if (!FRAME_LIVE_P (f
))
2933 /* If frame is ``official'', nothing to do. */
2934 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2936 #if GLYPH_DEBUG && XASSERTS
2937 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2940 x_free_frame_resources (f
);
2943 /* Check that reference counts are indeed correct. */
2944 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2945 xassert (dpyinfo
->terminal
->image_cache
->refcount
== image_cache_refcount
);
2955 x_default_font_parameter (struct frame
*f
, Lisp_Object parms
)
2957 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2958 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
2960 Lisp_Object font
= Qnil
;
2961 if (EQ (font_param
, Qunbound
))
2964 if (NILP (font_param
))
2966 /* System font should take precedendce over X resources. We suggest this
2967 regardless of font-use-system-font because .emacs may not have been
2969 const char *system_font
= xsettings_get_system_font ();
2972 char *name
= xstrdup (system_font
);
2973 font
= font_open_by_name (f
, name
);
2979 font
= !NILP (font_param
) ? font_param
2980 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
2982 if (! FONTP (font
) && ! STRINGP (font
))
2987 /* This will find the normal Xft font. */
2990 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
2991 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2992 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2993 /* This was formerly the first thing tried, but it finds
2994 too many fonts and takes too long. */
2995 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
2996 /* If those didn't work, look for something which will
2998 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
3003 for (i
= 0; names
[i
]; i
++)
3005 font
= font_open_by_name (f
, names
[i
]);
3010 error ("No suitable font was found");
3012 else if (!NILP (font_param
))
3014 /* Remember the explicit font parameter, so we can re-apply it after
3015 we've applied the `default' face settings. */
3016 x_set_frame_parameters (f
, Fcons (Fcons (Qfont_param
, font_param
), Qnil
));
3019 /* This call will make X resources override any system font setting. */
3020 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
3024 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
3026 doc
: /* Send the size hints for frame FRAME to the window manager.
3027 If FRAME is nil, use the selected frame. */)
3032 frame
= selected_frame
;
3036 x_wm_set_size_hint (f
, 0, 0);
3042 set_machine_and_pid_properties (struct frame
*f
)
3044 long pid
= (long) getpid ();
3046 /* This will set WM_CLIENT_MACHINE and WM_LOCALE_NAME. */
3047 XSetWMProperties (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), NULL
, NULL
,
3048 NULL
, 0, NULL
, NULL
, NULL
);
3049 XChangeProperty (FRAME_X_DISPLAY (f
),
3050 FRAME_OUTER_WINDOW (f
),
3051 XInternAtom (FRAME_X_DISPLAY (f
),
3054 XA_CARDINAL
, 32, PropModeReplace
,
3055 (unsigned char *) &pid
, 1);
3058 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3060 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3061 Return an Emacs frame object.
3062 PARMS is an alist of frame parameters.
3063 If the parameters specify that the frame should not have a minibuffer,
3064 and do not specify a specific minibuffer window to use,
3065 then `default-minibuffer-frame' must be a frame whose minibuffer can
3066 be shared by the new frame.
3068 This function is an internal primitive--use `make-frame' instead. */)
3072 Lisp_Object frame
, tem
;
3074 int minibuffer_only
= 0;
3075 long window_prompting
= 0;
3077 int count
= SPECPDL_INDEX ();
3078 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3079 Lisp_Object display
;
3080 struct x_display_info
*dpyinfo
= NULL
;
3084 parms
= Fcopy_alist (parms
);
3086 /* Use this general default value to start with
3087 until we know if this frame has a specified name. */
3088 Vx_resource_name
= Vinvocation_name
;
3090 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3091 if (EQ (display
, Qunbound
))
3092 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3093 if (EQ (display
, Qunbound
))
3095 dpyinfo
= check_x_display_info (display
);
3096 kb
= dpyinfo
->terminal
->kboard
;
3098 if (!dpyinfo
->terminal
->name
)
3099 error ("Terminal is not live, can't create new frames on it");
3101 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3103 && ! EQ (name
, Qunbound
)
3105 error ("Invalid frame name--not a string or nil");
3108 Vx_resource_name
= name
;
3110 /* See if parent window is specified. */
3111 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3112 if (EQ (parent
, Qunbound
))
3114 if (! NILP (parent
))
3115 CHECK_NUMBER (parent
);
3117 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3118 /* No need to protect DISPLAY because that's not used after passing
3119 it to make_frame_without_minibuffer. */
3121 GCPRO4 (parms
, parent
, name
, frame
);
3122 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3124 if (EQ (tem
, Qnone
) || NILP (tem
))
3125 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3126 else if (EQ (tem
, Qonly
))
3128 f
= make_minibuffer_frame ();
3129 minibuffer_only
= 1;
3131 else if (WINDOWP (tem
))
3132 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3136 XSETFRAME (frame
, f
);
3138 /* Note that X Windows does support scroll bars. */
3139 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3141 f
->terminal
= dpyinfo
->terminal
;
3142 f
->terminal
->reference_count
++;
3144 f
->output_method
= output_x_window
;
3145 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3146 memset (f
->output_data
.x
, 0, sizeof (struct x_output
));
3147 f
->output_data
.x
->icon_bitmap
= -1;
3148 FRAME_FONTSET (f
) = -1;
3149 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3150 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3151 #ifdef USE_TOOLKIT_SCROLL_BARS
3152 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3153 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3154 #endif /* USE_TOOLKIT_SCROLL_BARS */
3157 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3159 if (! STRINGP (f
->icon_name
))
3160 f
->icon_name
= Qnil
;
3162 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3164 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3165 record_unwind_protect (unwind_create_frame
, frame
);
3167 /* These colors will be set anyway later, but it's important
3168 to get the color reference counts right, so initialize them! */
3171 struct gcpro inner_gcpro1
;
3173 /* Function x_decode_color can signal an error. Make
3174 sure to initialize color slots so that we won't try
3175 to free colors we haven't allocated. */
3176 FRAME_FOREGROUND_PIXEL (f
) = -1;
3177 FRAME_BACKGROUND_PIXEL (f
) = -1;
3178 f
->output_data
.x
->cursor_pixel
= -1;
3179 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3180 f
->output_data
.x
->border_pixel
= -1;
3181 f
->output_data
.x
->mouse_pixel
= -1;
3183 black
= build_string ("black");
3184 GCPRO1_VAR (black
, inner_gcpro
);
3185 FRAME_FOREGROUND_PIXEL (f
)
3186 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3187 FRAME_BACKGROUND_PIXEL (f
)
3188 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3189 f
->output_data
.x
->cursor_pixel
3190 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3191 f
->output_data
.x
->cursor_foreground_pixel
3192 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3193 f
->output_data
.x
->border_pixel
3194 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3195 f
->output_data
.x
->mouse_pixel
3196 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3197 UNGCPRO_VAR (inner_gcpro
);
3200 /* Specify the parent under which to make this X window. */
3204 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3205 f
->output_data
.x
->explicit_parent
= 1;
3209 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3210 f
->output_data
.x
->explicit_parent
= 0;
3213 /* Set the name; the functions to which we pass f expect the name to
3215 if (EQ (name
, Qunbound
) || NILP (name
))
3217 f
->name
= build_string (dpyinfo
->x_id_name
);
3218 f
->explicit_name
= 0;
3223 f
->explicit_name
= 1;
3224 /* use the frame's title when getting resources for this frame. */
3225 specbind (Qx_resource_name
, name
);
3228 f
->resx
= dpyinfo
->resx
;
3229 f
->resy
= dpyinfo
->resy
;
3231 #ifdef HAVE_FREETYPE
3233 register_font_driver (&xftfont_driver
, f
);
3234 #else /* not HAVE_XFT */
3235 register_font_driver (&ftxfont_driver
, f
);
3236 #endif /* not HAVE_XFT */
3237 #endif /* HAVE_FREETYPE */
3238 register_font_driver (&xfont_driver
, f
);
3240 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3241 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3243 /* Extract the window parameters from the supplied values
3244 that are needed to determine window geometry. */
3245 x_default_font_parameter (f
, parms
);
3246 if (!FRAME_FONT (f
))
3248 delete_frame (frame
, Qnoelisp
);
3249 error ("Invalid frame font");
3252 /* Frame contents get displaced if an embedded X window has a border. */
3253 if (! FRAME_X_EMBEDDED_P (f
))
3254 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
3255 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3257 /* This defaults to 1 in order to match xterm. We recognize either
3258 internalBorderWidth or internalBorder (which is what xterm calls
3260 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3264 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3265 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3266 if (! EQ (value
, Qunbound
))
3267 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3270 x_default_parameter (f
, parms
, Qinternal_border_width
,
3271 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3276 "internalBorderWidth", "internalBorderWidth",
3278 x_default_parameter (f
, parms
, Qvertical_scroll_bars
,
3279 #if defined(USE_GTK) && defined(USE_TOOLKIT_SCROLL_BARS)
3284 "verticalScrollBars", "ScrollBars",
3287 /* Also do the stuff which must be set before the window exists. */
3288 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3289 "foreground", "Foreground", RES_TYPE_STRING
);
3290 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3291 "background", "Background", RES_TYPE_STRING
);
3292 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3293 "pointerColor", "Foreground", RES_TYPE_STRING
);
3294 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3295 "borderColor", "BorderColor", RES_TYPE_STRING
);
3296 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3297 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3298 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3299 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3300 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3301 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3302 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3303 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3305 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3306 "scrollBarForeground",
3307 "ScrollBarForeground", 1);
3308 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3309 "scrollBarBackground",
3310 "ScrollBarBackground", 0);
3312 /* Init faces before x_default_parameter is called for scroll-bar
3313 parameters because that function calls x_set_scroll_bar_width,
3314 which calls change_frame_size, which calls Fset_window_buffer,
3315 which runs hooks, which call Fvertical_motion. At the end, we
3316 end up in init_iterator with a null face cache, which should not
3318 init_frame_faces (f
);
3321 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
3322 dpyinfo_refcount
= dpyinfo
->reference_count
;
3323 #endif /* GLYPH_DEBUG */
3325 /* The X resources controlling the menu-bar and tool-bar are
3326 processed specially at startup, and reflected in the mode
3327 variables; ignore them here. */
3328 x_default_parameter (f
, parms
, Qmenu_bar_lines
,
3329 NILP (Vmenu_bar_mode
)
3330 ? make_number (0) : make_number (1),
3331 NULL
, NULL
, RES_TYPE_NUMBER
);
3332 x_default_parameter (f
, parms
, Qtool_bar_lines
,
3333 NILP (Vtool_bar_mode
)
3334 ? make_number (0) : make_number (1),
3335 NULL
, NULL
, RES_TYPE_NUMBER
);
3337 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3338 "bufferPredicate", "BufferPredicate",
3340 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3341 "title", "Title", RES_TYPE_STRING
);
3342 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3343 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3344 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3345 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3346 x_default_parameter (f
, parms
, Qtool_bar_position
,
3347 f
->tool_bar_position
, 0, 0, RES_TYPE_SYMBOL
);
3349 /* Compute the size of the X window. */
3350 window_prompting
= x_figure_window_size (f
, parms
, 1);
3352 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3353 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3355 x_icon_verify (f
, parms
);
3357 /* Create the X widget or window. */
3358 #ifdef USE_X_TOOLKIT
3359 x_window (f
, window_prompting
, minibuffer_only
);
3367 /* Now consider the frame official. */
3368 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3369 Vframe_list
= Fcons (frame
, Vframe_list
);
3371 /* We need to do this after creating the X window, so that the
3372 icon-creation functions can say whose icon they're describing. */
3373 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3374 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3376 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3377 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3378 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3379 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3380 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3381 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3382 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3383 "scrollBarWidth", "ScrollBarWidth",
3385 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3386 "alpha", "Alpha", RES_TYPE_NUMBER
);
3388 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3389 Change will not be effected unless different from the current
3391 width
= FRAME_COLS (f
);
3392 height
= FRAME_LINES (f
);
3394 SET_FRAME_COLS (f
, 0);
3395 FRAME_LINES (f
) = 0;
3396 change_frame_size (f
, height
, width
, 1, 0, 0);
3398 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3399 /* Create the menu bar. */
3400 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3402 /* If this signals an error, we haven't set size hints for the
3403 frame and we didn't make it visible. */
3404 initialize_frame_menubar (f
);
3407 /* This is a no-op, except under Motif where it arranges the
3408 main window for the widgets on it. */
3409 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3410 f
->output_data
.x
->menubar_widget
,
3411 f
->output_data
.x
->edit_widget
);
3412 #endif /* not USE_GTK */
3414 #endif /* USE_X_TOOLKIT || USE_GTK */
3416 /* Tell the server what size and position, etc, we want, and how
3417 badly we want them. This should be done after we have the menu
3418 bar so that its size can be taken into account. */
3420 x_wm_set_size_hint (f
, window_prompting
, 0);
3423 /* Make the window appear on the frame and enable display, unless
3424 the caller says not to. However, with explicit parent, Emacs
3425 cannot control visibility, so don't try. */
3426 if (! f
->output_data
.x
->explicit_parent
)
3428 Lisp_Object visibility
;
3430 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3432 if (EQ (visibility
, Qunbound
))
3435 if (EQ (visibility
, Qicon
))
3436 x_iconify_frame (f
);
3437 else if (! NILP (visibility
))
3438 x_make_frame_visible (f
);
3441 /* Must have been Qnil. */
3447 /* Set machine name and pid for the purpose of window managers. */
3448 set_machine_and_pid_properties(f
);
3450 /* Set the WM leader property. GTK does this itself, so this is not
3451 needed when using GTK. */
3452 if (dpyinfo
->client_leader_window
!= 0)
3454 XChangeProperty (FRAME_X_DISPLAY (f
),
3455 FRAME_OUTER_WINDOW (f
),
3456 dpyinfo
->Xatom_wm_client_leader
,
3457 XA_WINDOW
, 32, PropModeReplace
,
3458 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3463 /* Initialize `default-minibuffer-frame' in case this is the first
3464 frame on this terminal. */
3465 if (FRAME_HAS_MINIBUF_P (f
)
3466 && (!FRAMEP (KVAR (kb
, Vdefault_minibuffer_frame
))
3467 || !FRAME_LIVE_P (XFRAME (KVAR (kb
, Vdefault_minibuffer_frame
)))))
3468 KVAR (kb
, Vdefault_minibuffer_frame
) = frame
;
3470 /* All remaining specified parameters, which have not been "used"
3471 by x_get_arg and friends, now go in the misc. alist of the frame. */
3472 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3473 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3474 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3478 /* Make sure windows on this frame appear in calls to next-window
3479 and similar functions. */
3480 Vwindow_list
= Qnil
;
3482 return unbind_to (count
, frame
);
3486 /* FRAME is used only to get a handle on the X display. We don't pass the
3487 display info directly because we're called from frame.c, which doesn't
3488 know about that structure. */
3491 x_get_focus_frame (struct frame
*frame
)
3493 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3495 if (! dpyinfo
->x_focus_frame
)
3498 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3503 /* In certain situations, when the window manager follows a
3504 click-to-focus policy, there seems to be no way around calling
3505 XSetInputFocus to give another frame the input focus .
3507 In an ideal world, XSetInputFocus should generally be avoided so
3508 that applications don't interfere with the window manager's focus
3509 policy. But I think it's okay to use when it's clearly done
3510 following a user-command. */
3512 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3513 doc
: /* Set the input focus to FRAME.
3514 FRAME nil means use the selected frame. */)
3517 struct frame
*f
= check_x_frame (frame
);
3518 Display
*dpy
= FRAME_X_DISPLAY (f
);
3521 x_catch_errors (dpy
);
3522 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3523 RevertToParent
, CurrentTime
);
3524 x_ewmh_activate_frame (f
);
3525 x_uncatch_errors ();
3532 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3533 doc
: /* Internal function called by `color-defined-p', which see
3534 .\(Note that the Nextstep version of this function ignores FRAME.) */)
3535 (Lisp_Object color
, Lisp_Object frame
)
3538 FRAME_PTR f
= check_x_frame (frame
);
3540 CHECK_STRING (color
);
3542 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3548 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3549 doc
: /* Internal function called by `color-values', which see. */)
3550 (Lisp_Object color
, Lisp_Object frame
)
3553 FRAME_PTR f
= check_x_frame (frame
);
3555 CHECK_STRING (color
);
3557 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3558 return list3 (make_number (foo
.red
),
3559 make_number (foo
.green
),
3560 make_number (foo
.blue
));
3565 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3566 doc
: /* Internal function called by `display-color-p', which see. */)
3567 (Lisp_Object terminal
)
3569 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3571 if (dpyinfo
->n_planes
<= 2)
3574 switch (dpyinfo
->visual
->class)
3587 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3589 doc
: /* Return t if the X display supports shades of gray.
3590 Note that color displays do support shades of gray.
3591 The optional argument TERMINAL specifies which display to ask about.
3592 TERMINAL should be a terminal object, a frame or a display name (a string).
3593 If omitted or nil, that stands for the selected frame's display. */)
3594 (Lisp_Object terminal
)
3596 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3598 if (dpyinfo
->n_planes
<= 1)
3601 switch (dpyinfo
->visual
->class)
3616 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3618 doc
: /* Return the width in pixels of the X display TERMINAL.
3619 The optional argument TERMINAL specifies which display to ask about.
3620 TERMINAL should be a terminal object, a frame or a display name (a string).
3621 If omitted or nil, that stands for the selected frame's display. */)
3622 (Lisp_Object terminal
)
3624 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3626 return make_number (x_display_pixel_width (dpyinfo
));
3629 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3630 Sx_display_pixel_height
, 0, 1, 0,
3631 doc
: /* Return the height in pixels of the X display TERMINAL.
3632 The optional argument TERMINAL specifies which display to ask about.
3633 TERMINAL should be a terminal object, a frame or a display name (a string).
3634 If omitted or nil, that stands for the selected frame's display. */)
3635 (Lisp_Object terminal
)
3637 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3639 return make_number (x_display_pixel_height (dpyinfo
));
3642 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3644 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3645 The optional argument TERMINAL specifies which display to ask about.
3646 TERMINAL should be a terminal object, a frame or a display name (a string).
3647 If omitted or nil, that stands for the selected frame's display. */)
3648 (Lisp_Object terminal
)
3650 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3652 return make_number (dpyinfo
->n_planes
);
3655 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3657 doc
: /* Return the number of color cells of the X display TERMINAL.
3658 The optional argument TERMINAL specifies which display to ask about.
3659 TERMINAL should be a terminal object, a frame or a display name (a string).
3660 If omitted or nil, that stands for the selected frame's display. */)
3661 (Lisp_Object terminal
)
3663 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3665 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3666 XScreenNumberOfScreen (dpyinfo
->screen
));
3668 /* Truncate nr_planes to 24 to avoid integer overflow.
3669 Some displays says 32, but only 24 bits are actually significant.
3670 There are only very few and rare video cards that have more than
3671 24 significant bits. Also 24 bits is more than 16 million colors,
3672 it "should be enough for everyone". */
3673 if (nr_planes
> 24) nr_planes
= 24;
3675 return make_number (1 << nr_planes
);
3678 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3679 Sx_server_max_request_size
,
3681 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3682 The optional argument TERMINAL specifies which display to ask about.
3683 TERMINAL should be a terminal object, a frame or a display name (a string).
3684 If omitted or nil, that stands for the selected frame's display. */)
3685 (Lisp_Object terminal
)
3687 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3689 return make_number (MAXREQUEST (dpyinfo
->display
));
3692 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3693 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3694 \(Labelling every distributor as a "vendor" embodies the false assumption
3695 that operating systems cannot be developed and distributed noncommercially.)
3696 The optional argument TERMINAL specifies which display to ask about.
3697 TERMINAL should be a terminal object, a frame or a display name (a string).
3698 If omitted or nil, that stands for the selected frame's display. */)
3699 (Lisp_Object terminal
)
3701 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3702 const char *vendor
= ServerVendor (dpyinfo
->display
);
3704 if (! vendor
) vendor
= "";
3705 return build_string (vendor
);
3708 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3709 doc
: /* Return the version numbers of the X server of display TERMINAL.
3710 The value is a list of three integers: the major and minor
3711 version numbers of the X Protocol in use, and the distributor-specific release
3712 number. See also the function `x-server-vendor'.
3714 The optional argument TERMINAL specifies which display to ask about.
3715 TERMINAL should be a terminal object, a frame or a display name (a string).
3716 If omitted or nil, that stands for the selected frame's display. */)
3717 (Lisp_Object terminal
)
3719 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3720 Display
*dpy
= dpyinfo
->display
;
3722 return Fcons (make_number (ProtocolVersion (dpy
)),
3723 Fcons (make_number (ProtocolRevision (dpy
)),
3724 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3727 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3728 doc
: /* Return the number of screens on the X server of display TERMINAL.
3729 The optional argument TERMINAL specifies which display to ask about.
3730 TERMINAL should be a terminal object, a frame or a display name (a string).
3731 If omitted or nil, that stands for the selected frame's display. */)
3732 (Lisp_Object terminal
)
3734 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3736 return make_number (ScreenCount (dpyinfo
->display
));
3739 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3740 doc
: /* Return the height in millimeters of the X display TERMINAL.
3741 The optional argument TERMINAL specifies which display to ask about.
3742 TERMINAL should be a terminal object, a frame or a display name (a string).
3743 If omitted or nil, that stands for the selected frame's display. */)
3744 (Lisp_Object terminal
)
3746 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3748 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3751 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3752 doc
: /* Return the width in millimeters of the X display TERMINAL.
3753 The optional argument TERMINAL specifies which display to ask about.
3754 TERMINAL should be a terminal object, a frame or a display name (a string).
3755 If omitted or nil, that stands for the selected frame's display. */)
3756 (Lisp_Object terminal
)
3758 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3760 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3763 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3764 Sx_display_backing_store
, 0, 1, 0,
3765 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3766 The value may be `always', `when-mapped', or `not-useful'.
3767 The optional argument TERMINAL specifies which display to ask about.
3768 TERMINAL should be a terminal object, a frame or a display name (a string).
3769 If omitted or nil, that stands for the selected frame's display. */)
3770 (Lisp_Object terminal
)
3772 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3775 switch (DoesBackingStore (dpyinfo
->screen
))
3778 result
= intern ("always");
3782 result
= intern ("when-mapped");
3786 result
= intern ("not-useful");
3790 error ("Strange value for BackingStore parameter of screen");
3797 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3798 Sx_display_visual_class
, 0, 1, 0,
3799 doc
: /* Return the visual class of the X display TERMINAL.
3800 The value is one of the symbols `static-gray', `gray-scale',
3801 `static-color', `pseudo-color', `true-color', or `direct-color'.
3803 The optional argument TERMINAL specifies which display to ask about.
3804 TERMINAL should a terminal object, a frame or a display name (a string).
3805 If omitted or nil, that stands for the selected frame's display. */)
3806 (Lisp_Object terminal
)
3808 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3811 switch (dpyinfo
->visual
->class)
3814 result
= intern ("static-gray");
3817 result
= intern ("gray-scale");
3820 result
= intern ("static-color");
3823 result
= intern ("pseudo-color");
3826 result
= intern ("true-color");
3829 result
= intern ("direct-color");
3832 error ("Display has an unknown visual class");
3839 DEFUN ("x-display-save-under", Fx_display_save_under
,
3840 Sx_display_save_under
, 0, 1, 0,
3841 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3842 The optional argument TERMINAL specifies which display to ask about.
3843 TERMINAL should be a terminal object, a frame or a display name (a string).
3844 If omitted or nil, that stands for the selected frame's display. */)
3845 (Lisp_Object terminal
)
3847 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3849 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3856 x_pixel_width (register struct frame
*f
)
3858 return FRAME_PIXEL_WIDTH (f
);
3862 x_pixel_height (register struct frame
*f
)
3864 return FRAME_PIXEL_HEIGHT (f
);
3868 x_char_width (register struct frame
*f
)
3870 return FRAME_COLUMN_WIDTH (f
);
3874 x_char_height (register struct frame
*f
)
3876 return FRAME_LINE_HEIGHT (f
);
3881 /************************************************************************
3883 ************************************************************************/
3886 /* Mapping visual names to visuals. */
3888 static struct visual_class
3895 {"StaticGray", StaticGray
},
3896 {"GrayScale", GrayScale
},
3897 {"StaticColor", StaticColor
},
3898 {"PseudoColor", PseudoColor
},
3899 {"TrueColor", TrueColor
},
3900 {"DirectColor", DirectColor
},
3905 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3907 /* Value is the screen number of screen SCR. This is a substitute for
3908 the X function with the same name when that doesn't exist. */
3911 XScreenNumberOfScreen (scr
)
3912 register Screen
*scr
;
3914 Display
*dpy
= scr
->display
;
3917 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3918 if (scr
== dpy
->screens
+ i
)
3924 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3927 /* Select the visual that should be used on display DPYINFO. Set
3928 members of DPYINFO appropriately. Called from x_term_init. */
3931 select_visual (struct x_display_info
*dpyinfo
)
3933 Display
*dpy
= dpyinfo
->display
;
3934 Screen
*screen
= dpyinfo
->screen
;
3937 /* See if a visual is specified. */
3938 value
= display_x_get_resource (dpyinfo
,
3939 build_string ("visualClass"),
3940 build_string ("VisualClass"),
3942 if (STRINGP (value
))
3944 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3945 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3946 depth, a decimal number. NAME is compared with case ignored. */
3947 char *s
= (char *) alloca (SBYTES (value
) + 1);
3952 strcpy (s
, SSDATA (value
));
3953 dash
= strchr (s
, '-');
3956 dpyinfo
->n_planes
= atoi (dash
+ 1);
3960 /* We won't find a matching visual with depth 0, so that
3961 an error will be printed below. */
3962 dpyinfo
->n_planes
= 0;
3964 /* Determine the visual class. */
3965 for (i
= 0; visual_classes
[i
].name
; ++i
)
3966 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
3968 class = visual_classes
[i
].class;
3972 /* Look up a matching visual for the specified class. */
3974 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
3975 dpyinfo
->n_planes
, class, &vinfo
))
3976 fatal ("Invalid visual specification `%s'", SDATA (value
));
3978 dpyinfo
->visual
= vinfo
.visual
;
3983 XVisualInfo
*vinfo
, vinfo_template
;
3985 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
3987 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
3988 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
3989 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
3990 &vinfo_template
, &n_visuals
);
3992 fatal ("Can't get proper X visual info");
3994 dpyinfo
->n_planes
= vinfo
->depth
;
3995 XFree ((char *) vinfo
);
4000 /* Return the X display structure for the display named NAME.
4001 Open a new connection if necessary. */
4003 static struct x_display_info
*
4004 x_display_info_for_name (Lisp_Object name
)
4007 struct x_display_info
*dpyinfo
;
4009 CHECK_STRING (name
);
4012 if (! EQ (Vinitial_window_system
, intern ("x")))
4013 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4016 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4018 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4021 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4026 /* Use this general default value to start with. */
4027 Vx_resource_name
= Vinvocation_name
;
4029 validate_x_resource_name ();
4031 dpyinfo
= x_term_init (name
, (char *)0,
4032 SSDATA (Vx_resource_name
));
4035 error ("Cannot connect to X server %s", SDATA (name
));
4038 XSETFASTINT (Vwindow_system_version
, 11);
4044 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4046 doc
: /* Open a connection to a display server.
4047 DISPLAY is the name of the display to connect to.
4048 Optional second arg XRM-STRING is a string of resources in xrdb format.
4049 If the optional third arg MUST-SUCCEED is non-nil,
4050 terminate Emacs if we can't open the connection.
4051 \(In the Nextstep version, the last two arguments are currently ignored.) */)
4052 (Lisp_Object display
, Lisp_Object xrm_string
, Lisp_Object must_succeed
)
4055 struct x_display_info
*dpyinfo
;
4057 CHECK_STRING (display
);
4058 if (! NILP (xrm_string
))
4059 CHECK_STRING (xrm_string
);
4062 if (! EQ (Vinitial_window_system
, intern ("x")))
4063 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4066 if (! NILP (xrm_string
))
4067 xrm_option
= SSDATA (xrm_string
);
4069 xrm_option
= (char *) 0;
4071 validate_x_resource_name ();
4073 /* This is what opens the connection and sets x_current_display.
4074 This also initializes many symbols, such as those used for input. */
4075 dpyinfo
= x_term_init (display
, xrm_option
,
4076 SSDATA (Vx_resource_name
));
4080 if (!NILP (must_succeed
))
4081 fatal ("Cannot connect to X server %s.\n\
4082 Check the DISPLAY environment variable or use `-d'.\n\
4083 Also use the `xauth' program to verify that you have the proper\n\
4084 authorization information needed to connect the X server.\n\
4085 An insecure way to solve the problem may be to use `xhost'.\n",
4088 error ("Cannot connect to X server %s", SDATA (display
));
4093 XSETFASTINT (Vwindow_system_version
, 11);
4097 DEFUN ("x-close-connection", Fx_close_connection
,
4098 Sx_close_connection
, 1, 1, 0,
4099 doc
: /* Close the connection to TERMINAL's X server.
4100 For TERMINAL, specify a terminal object, a frame or a display name (a
4101 string). If TERMINAL is nil, that stands for the selected frame's
4103 (Lisp_Object terminal
)
4105 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4107 if (dpyinfo
->reference_count
> 0)
4108 error ("Display still has frames on it");
4110 x_delete_terminal (dpyinfo
->terminal
);
4115 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4116 doc
: /* Return the list of display names that Emacs has connections to. */)
4119 Lisp_Object tail
, result
;
4122 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4123 result
= Fcons (XCAR (XCAR (tail
)), result
);
4128 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4129 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4130 This function only has an effect on X Windows. With MS Windows, it is
4131 defined but does nothing.
4133 If ON is nil, allow buffering of requests.
4134 Turning on synchronization prohibits the Xlib routines from buffering
4135 requests and seriously degrades performance, but makes debugging much
4137 The optional second argument TERMINAL specifies which display to act on.
4138 TERMINAL should be a terminal object, a frame or a display name (a string).
4139 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4140 (Lisp_Object on
, Lisp_Object terminal
)
4142 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4144 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4149 /* Wait for responses to all X commands issued so far for frame F. */
4152 x_sync (FRAME_PTR f
)
4155 XSync (FRAME_X_DISPLAY (f
), False
);
4160 /***********************************************************************
4162 ***********************************************************************/
4164 DEFUN ("x-change-window-property", Fx_change_window_property
,
4165 Sx_change_window_property
, 2, 6, 0,
4166 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4167 PROP must be a string. VALUE may be a string or a list of conses,
4168 numbers and/or strings. If an element in the list is a string, it is
4169 converted to an atom and the value of the atom is used. If an element
4170 is a cons, it is converted to a 32 bit number where the car is the 16
4171 top bits and the cdr is the lower 16 bits.
4173 FRAME nil or omitted means use the selected frame.
4174 If TYPE is given and non-nil, it is the name of the type of VALUE.
4175 If TYPE is not given or nil, the type is STRING.
4176 FORMAT gives the size in bits of each element if VALUE is a list.
4177 It must be one of 8, 16 or 32.
4178 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4179 If OUTER_P is non-nil, the property is changed for the outer X window of
4180 FRAME. Default is to change on the edit X window. */)
4181 (Lisp_Object prop
, Lisp_Object value
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4183 struct frame
*f
= check_x_frame (frame
);
4185 Atom target_type
= XA_STRING
;
4186 int element_format
= 8;
4187 unsigned char *data
;
4191 CHECK_STRING (prop
);
4193 if (! NILP (format
))
4195 CHECK_NUMBER (format
);
4196 element_format
= XFASTINT (format
);
4198 if (element_format
!= 8 && element_format
!= 16
4199 && element_format
!= 32)
4200 error ("FORMAT must be one of 8, 16 or 32");
4207 nelements
= x_check_property_data (value
);
4208 if (nelements
== -1)
4209 error ("Bad data in VALUE, must be number, string or cons");
4211 /* The man page for XChangeProperty:
4212 "If the specified format is 32, the property data must be a
4214 This applies even if long is more than 32 bits. The X library
4215 converts to 32 bits before sending to the X server. */
4216 elsize
= element_format
== 32 ? sizeof (long) : element_format
>> 3;
4217 if (min (PTRDIFF_MAX
, SIZE_MAX
) / elsize
< nelements
)
4218 memory_full (SIZE_MAX
);
4219 data
= (unsigned char *) xmalloc (nelements
* elsize
);
4221 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4225 CHECK_STRING (value
);
4226 data
= SDATA (value
);
4227 if (INT_MAX
< SBYTES (value
))
4228 error ("VALUE too long");
4229 nelements
= SBYTES (value
);
4233 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4236 CHECK_STRING (type
);
4237 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4240 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4241 else w
= FRAME_X_WINDOW (f
);
4243 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4244 prop_atom
, target_type
, element_format
, PropModeReplace
,
4247 if (CONSP (value
)) xfree (data
);
4249 /* Make sure the property is set when we return. */
4250 XFlush (FRAME_X_DISPLAY (f
));
4257 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4258 Sx_delete_window_property
, 1, 2, 0,
4259 doc
: /* Remove window property PROP from X window of FRAME.
4260 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4261 (Lisp_Object prop
, Lisp_Object frame
)
4263 struct frame
*f
= check_x_frame (frame
);
4266 CHECK_STRING (prop
);
4268 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4269 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4271 /* Make sure the property is removed when we return. */
4272 XFlush (FRAME_X_DISPLAY (f
));
4279 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4281 doc
: /* Value is the value of window property PROP on FRAME.
4282 If FRAME is nil or omitted, use the selected frame.
4284 On MS Windows, this function only accepts the PROP and FRAME arguments.
4286 On X Windows, the following optional arguments are also accepted:
4287 If TYPE is nil or omitted, get the property as a string.
4288 Otherwise TYPE is the name of the atom that denotes the type expected.
4289 If SOURCE is non-nil, get the property on that window instead of from
4290 FRAME. The number 0 denotes the root window.
4291 If DELETE_P is non-nil, delete the property after retreiving it.
4292 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4294 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4295 no value of TYPE (always string in the MS Windows case). */)
4296 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4298 struct frame
*f
= check_x_frame (frame
);
4301 Lisp_Object prop_value
= Qnil
;
4302 unsigned char *tmp_data
= NULL
;
4304 Atom target_type
= XA_STRING
;
4306 unsigned long actual_size
, bytes_remaining
;
4307 Window target_window
= FRAME_X_WINDOW (f
);
4308 struct gcpro gcpro1
;
4310 GCPRO1 (prop_value
);
4311 CHECK_STRING (prop
);
4313 if (! NILP (source
))
4315 CONS_TO_INTEGER (source
, Window
, target_window
);
4316 if (! target_window
)
4317 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4323 if (strcmp ("AnyPropertyType", SSDATA (type
)) == 0)
4324 target_type
= AnyPropertyType
;
4326 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4329 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4330 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4331 prop_atom
, 0, 0, False
, target_type
,
4332 &actual_type
, &actual_format
, &actual_size
,
4333 &bytes_remaining
, &tmp_data
);
4336 int size
= bytes_remaining
;
4341 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4342 prop_atom
, 0, bytes_remaining
,
4343 ! NILP (delete_p
), target_type
,
4344 &actual_type
, &actual_format
,
4345 &actual_size
, &bytes_remaining
,
4347 if (rc
== Success
&& tmp_data
)
4349 /* The man page for XGetWindowProperty says:
4350 "If the returned format is 32, the returned data is represented
4351 as a long array and should be cast to that type to obtain the
4353 This applies even if long is more than 32 bits, the X library
4354 converts from 32 bit elements received from the X server to long
4355 and passes the long array to us. Thus, for that case memcpy can not
4356 be used. We convert to a 32 bit type here, because so much code
4359 The bytes and offsets passed to XGetWindowProperty refers to the
4360 property and those are indeed in 32 bit quantities if format is
4363 if (32 < BITS_PER_LONG
&& actual_format
== 32)
4366 int *idata
= (int *) tmp_data
;
4367 long *ldata
= (long *) tmp_data
;
4369 for (i
= 0; i
< actual_size
; ++i
)
4370 idata
[i
] = (int) ldata
[i
];
4373 if (NILP (vector_ret_p
))
4374 prop_value
= make_string ((char *) tmp_data
, size
);
4376 prop_value
= x_property_data_to_lisp (f
,
4383 if (tmp_data
) XFree (tmp_data
);
4393 /***********************************************************************
4395 ***********************************************************************/
4397 /* Timer function of hourglass_atimer. TIMER is equal to
4400 Display an hourglass pointer on all frames by mapping the frames'
4401 hourglass_window. Set the hourglass_p flag in the frames'
4402 output_data.x structure to indicate that an hourglass cursor is
4403 shown on the frames. */
4406 show_hourglass (struct atimer
*timer
)
4408 /* The timer implementation will cancel this timer automatically
4409 after this function has run. Set hourglass_atimer to null
4410 so that we know the timer doesn't have to be canceled. */
4411 hourglass_atimer
= NULL
;
4413 if (!hourglass_shown_p
)
4415 Lisp_Object rest
, frame
;
4419 FOR_EACH_FRAME (rest
, frame
)
4421 struct frame
*f
= XFRAME (frame
);
4423 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4425 Display
*dpy
= FRAME_X_DISPLAY (f
);
4427 #ifdef USE_X_TOOLKIT
4428 if (f
->output_data
.x
->widget
)
4430 if (FRAME_OUTER_WINDOW (f
))
4433 f
->output_data
.x
->hourglass_p
= 1;
4435 if (!f
->output_data
.x
->hourglass_window
)
4437 unsigned long mask
= CWCursor
;
4438 XSetWindowAttributes attrs
;
4440 Window parent
= FRAME_X_WINDOW (f
);
4442 Window parent
= FRAME_OUTER_WINDOW (f
);
4444 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4446 f
->output_data
.x
->hourglass_window
4447 = XCreateWindow (dpy
, parent
,
4448 0, 0, 32000, 32000, 0, 0,
4454 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4460 hourglass_shown_p
= 1;
4466 /* Hide the hourglass pointer on all frames, if it is currently
4470 hide_hourglass (void)
4472 if (hourglass_shown_p
)
4474 Lisp_Object rest
, frame
;
4477 FOR_EACH_FRAME (rest
, frame
)
4479 struct frame
*f
= XFRAME (frame
);
4482 /* Watch out for newly created frames. */
4483 && f
->output_data
.x
->hourglass_window
)
4485 XUnmapWindow (FRAME_X_DISPLAY (f
),
4486 f
->output_data
.x
->hourglass_window
);
4487 /* Sync here because XTread_socket looks at the
4488 hourglass_p flag that is reset to zero below. */
4489 XSync (FRAME_X_DISPLAY (f
), False
);
4490 f
->output_data
.x
->hourglass_p
= 0;
4494 hourglass_shown_p
= 0;
4501 /***********************************************************************
4503 ***********************************************************************/
4505 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4506 Lisp_Object
, Lisp_Object
);
4507 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4508 Lisp_Object
, int, int, int *, int *);
4510 /* The frame of a currently visible tooltip. */
4512 Lisp_Object tip_frame
;
4514 /* If non-nil, a timer started that hides the last tooltip when it
4517 static Lisp_Object tip_timer
;
4520 /* If non-nil, a vector of 3 elements containing the last args
4521 with which x-show-tip was called. See there. */
4523 static Lisp_Object last_show_tip_args
;
4527 unwind_create_tip_frame (Lisp_Object frame
)
4529 Lisp_Object deleted
;
4531 deleted
= unwind_create_frame (frame
);
4532 if (EQ (deleted
, Qt
))
4542 /* Create a frame for a tooltip on the display described by DPYINFO.
4543 PARMS is a list of frame parameters. TEXT is the string to
4544 display in the tip frame. Value is the frame.
4546 Note that functions called here, esp. x_default_parameter can
4547 signal errors, for instance when a specified color name is
4548 undefined. We have to make sure that we're in a consistent state
4549 when this happens. */
4552 x_create_tip_frame (struct x_display_info
*dpyinfo
,
4560 int count
= SPECPDL_INDEX ();
4561 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4562 int face_change_count_before
= face_change_count
;
4564 struct buffer
*old_buffer
;
4568 if (!dpyinfo
->terminal
->name
)
4569 error ("Terminal is not live, can't create new frames on it");
4571 parms
= Fcopy_alist (parms
);
4573 /* Get the name of the frame to use for resource lookup. */
4574 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4576 && !EQ (name
, Qunbound
)
4578 error ("Invalid frame name--not a string or nil");
4581 GCPRO3 (parms
, name
, frame
);
4583 XSETFRAME (frame
, f
);
4585 buffer
= Fget_buffer_create (build_string (" *tip*"));
4586 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4587 old_buffer
= current_buffer
;
4588 set_buffer_internal_1 (XBUFFER (buffer
));
4589 BVAR (current_buffer
, truncate_lines
) = Qnil
;
4590 specbind (Qinhibit_read_only
, Qt
);
4591 specbind (Qinhibit_modification_hooks
, Qt
);
4594 set_buffer_internal_1 (old_buffer
);
4596 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4597 record_unwind_protect (unwind_create_tip_frame
, frame
);
4599 f
->terminal
= dpyinfo
->terminal
;
4600 f
->terminal
->reference_count
++;
4602 /* By setting the output method, we're essentially saying that
4603 the frame is live, as per FRAME_LIVE_P. If we get a signal
4604 from this point on, x_destroy_window might screw up reference
4606 f
->output_method
= output_x_window
;
4607 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4608 memset (f
->output_data
.x
, 0, sizeof (struct x_output
));
4609 f
->output_data
.x
->icon_bitmap
= -1;
4610 FRAME_FONTSET (f
) = -1;
4611 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4612 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4613 #ifdef USE_TOOLKIT_SCROLL_BARS
4614 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4615 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4616 #endif /* USE_TOOLKIT_SCROLL_BARS */
4617 f
->icon_name
= Qnil
;
4618 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4619 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4620 f
->output_data
.x
->explicit_parent
= 0;
4622 /* These colors will be set anyway later, but it's important
4623 to get the color reference counts right, so initialize them! */
4626 struct gcpro inner_gcpro1
;
4628 /* Function x_decode_color can signal an error. Make
4629 sure to initialize color slots so that we won't try
4630 to free colors we haven't allocated. */
4631 FRAME_FOREGROUND_PIXEL (f
) = -1;
4632 FRAME_BACKGROUND_PIXEL (f
) = -1;
4633 f
->output_data
.x
->cursor_pixel
= -1;
4634 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4635 f
->output_data
.x
->border_pixel
= -1;
4636 f
->output_data
.x
->mouse_pixel
= -1;
4638 black
= build_string ("black");
4639 GCPRO1_VAR (black
, inner_gcpro
);
4640 FRAME_FOREGROUND_PIXEL (f
)
4641 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4642 FRAME_BACKGROUND_PIXEL (f
)
4643 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4644 f
->output_data
.x
->cursor_pixel
4645 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4646 f
->output_data
.x
->cursor_foreground_pixel
4647 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4648 f
->output_data
.x
->border_pixel
4649 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4650 f
->output_data
.x
->mouse_pixel
4651 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4652 UNGCPRO_VAR (inner_gcpro
);
4655 /* Set the name; the functions to which we pass f expect the name to
4657 if (EQ (name
, Qunbound
) || NILP (name
))
4659 f
->name
= build_string (dpyinfo
->x_id_name
);
4660 f
->explicit_name
= 0;
4665 f
->explicit_name
= 1;
4666 /* use the frame's title when getting resources for this frame. */
4667 specbind (Qx_resource_name
, name
);
4670 f
->resx
= dpyinfo
->resx
;
4671 f
->resy
= dpyinfo
->resy
;
4673 register_font_driver (&xfont_driver
, f
);
4674 #ifdef HAVE_FREETYPE
4676 register_font_driver (&xftfont_driver
, f
);
4677 #else /* not HAVE_XFT */
4678 register_font_driver (&ftxfont_driver
, f
);
4679 #endif /* not HAVE_XFT */
4680 #endif /* HAVE_FREETYPE */
4682 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4683 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4685 /* Extract the window parameters from the supplied values that are
4686 needed to determine window geometry. */
4687 x_default_font_parameter (f
, parms
);
4689 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
4690 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4692 /* This defaults to 2 in order to match xterm. We recognize either
4693 internalBorderWidth or internalBorder (which is what xterm calls
4695 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4699 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4700 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4701 if (! EQ (value
, Qunbound
))
4702 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4706 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4707 "internalBorderWidth", "internalBorderWidth",
4710 /* Also do the stuff which must be set before the window exists. */
4711 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4712 "foreground", "Foreground", RES_TYPE_STRING
);
4713 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4714 "background", "Background", RES_TYPE_STRING
);
4715 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4716 "pointerColor", "Foreground", RES_TYPE_STRING
);
4717 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4718 "cursorColor", "Foreground", RES_TYPE_STRING
);
4719 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4720 "borderColor", "BorderColor", RES_TYPE_STRING
);
4722 /* Init faces before x_default_parameter is called for scroll-bar
4723 parameters because that function calls x_set_scroll_bar_width,
4724 which calls change_frame_size, which calls Fset_window_buffer,
4725 which runs hooks, which call Fvertical_motion. At the end, we
4726 end up in init_iterator with a null face cache, which should not
4728 init_frame_faces (f
);
4731 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
4732 dpyinfo_refcount
= dpyinfo
->reference_count
;
4733 #endif /* GLYPH_DEBUG */
4735 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4737 x_figure_window_size (f
, parms
, 0);
4740 XSetWindowAttributes attrs
;
4742 Atom type
= FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
4745 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4746 if (DoesSaveUnders (dpyinfo
->screen
))
4747 mask
|= CWSaveUnder
;
4749 /* Window managers look at the override-redirect flag to determine
4750 whether or net to give windows a decoration (Xlib spec, chapter
4752 attrs
.override_redirect
= True
;
4753 attrs
.save_under
= True
;
4754 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4755 /* Arrange for getting MapNotify and UnmapNotify events. */
4756 attrs
.event_mask
= StructureNotifyMask
;
4758 = FRAME_X_WINDOW (f
)
4759 = XCreateWindow (FRAME_X_DISPLAY (f
),
4760 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4761 /* x, y, width, height */
4765 CopyFromParent
, InputOutput
, CopyFromParent
,
4767 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
4768 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type
,
4769 XA_ATOM
, 32, PropModeReplace
,
4770 (unsigned char *)&type
, 1);
4776 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4777 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4778 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4779 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4780 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4781 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4783 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4784 Change will not be effected unless different from the current
4786 width
= FRAME_COLS (f
);
4787 height
= FRAME_LINES (f
);
4788 SET_FRAME_COLS (f
, 0);
4789 FRAME_LINES (f
) = 0;
4790 change_frame_size (f
, height
, width
, 1, 0, 0);
4792 /* Add `tooltip' frame parameter's default value. */
4793 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
4794 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qtooltip
, Qt
), Qnil
));
4796 /* FIXME - can this be done in a similar way to normal frames?
4797 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
4799 /* Set the `display-type' frame parameter before setting up faces. */
4801 Lisp_Object disptype
;
4803 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4804 disptype
= intern ("mono");
4805 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
4806 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4807 disptype
= intern ("grayscale");
4809 disptype
= intern ("color");
4811 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4812 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4816 /* Set up faces after all frame parameters are known. This call
4817 also merges in face attributes specified for new frames.
4819 Frame parameters may be changed if .Xdefaults contains
4820 specifications for the default font. For example, if there is an
4821 `Emacs.default.attributeBackground: pink', the `background-color'
4822 attribute of the frame get's set, which let's the internal border
4823 of the tooltip frame appear in pink. Prevent this. */
4825 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4827 /* Set tip_frame here, so that */
4829 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
4831 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4832 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4840 /* It is now ok to make the frame official even if we get an error
4841 below. And the frame needs to be on Vframe_list or making it
4842 visible won't work. */
4843 Vframe_list
= Fcons (frame
, Vframe_list
);
4845 /* Now that the frame is official, it counts as a reference to
4847 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4849 /* Setting attributes of faces of the tooltip frame from resources
4850 and similar will increment face_change_count, which leads to the
4851 clearing of all current matrices. Since this isn't necessary
4852 here, avoid it by resetting face_change_count to the value it
4853 had before we created the tip frame. */
4854 face_change_count
= face_change_count_before
;
4856 /* Discard the unwind_protect. */
4857 return unbind_to (count
, frame
);
4861 /* Compute where to display tip frame F. PARMS is the list of frame
4862 parameters for F. DX and DY are specified offsets from the current
4863 location of the mouse. WIDTH and HEIGHT are the width and height
4864 of the tooltip. Return coordinates relative to the root window of
4865 the display in *ROOT_X, and *ROOT_Y. */
4868 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
)
4870 Lisp_Object left
, top
;
4875 /* User-specified position? */
4876 left
= Fcdr (Fassq (Qleft
, parms
));
4877 top
= Fcdr (Fassq (Qtop
, parms
));
4879 /* Move the tooltip window where the mouse pointer is. Resize and
4881 if (!INTEGERP (left
) || !INTEGERP (top
))
4884 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4885 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4890 *root_y
= XINT (top
);
4891 else if (*root_y
+ XINT (dy
) <= 0)
4892 *root_y
= 0; /* Can happen for negative dy */
4893 else if (*root_y
+ XINT (dy
) + height
4894 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
4895 /* It fits below the pointer */
4896 *root_y
+= XINT (dy
);
4897 else if (height
+ XINT (dy
) <= *root_y
)
4898 /* It fits above the pointer. */
4899 *root_y
-= height
+ XINT (dy
);
4901 /* Put it on the top. */
4904 if (INTEGERP (left
))
4905 *root_x
= XINT (left
);
4906 else if (*root_x
+ XINT (dx
) <= 0)
4907 *root_x
= 0; /* Can happen for negative dx */
4908 else if (*root_x
+ XINT (dx
) + width
4909 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
4910 /* It fits to the right of the pointer. */
4911 *root_x
+= XINT (dx
);
4912 else if (width
+ XINT (dx
) <= *root_x
)
4913 /* It fits to the left of the pointer. */
4914 *root_x
-= width
+ XINT (dx
);
4916 /* Put it left-justified on the screen--it ought to fit that way. */
4921 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4922 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4923 A tooltip window is a small X window displaying a string.
4925 This is an internal function; Lisp code should call `tooltip-show'.
4927 FRAME nil or omitted means use the selected frame.
4929 PARMS is an optional list of frame parameters which can be used to
4930 change the tooltip's appearance.
4932 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4933 means use the default timeout of 5 seconds.
4935 If the list of frame parameters PARMS contains a `left' parameters,
4936 the tooltip is displayed at that x-position. Otherwise it is
4937 displayed at the mouse position, with offset DX added (default is 5 if
4938 DX isn't specified). Likewise for the y-position; if a `top' frame
4939 parameter is specified, it determines the y-position of the tooltip
4940 window, otherwise it is displayed at the mouse position, with offset
4941 DY added (default is -10).
4943 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4944 Text larger than the specified size is clipped. */)
4945 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
4950 struct buffer
*old_buffer
;
4951 struct text_pos pos
;
4952 int i
, width
, height
, seen_reversed_p
;
4953 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
4954 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
4955 int count
= SPECPDL_INDEX ();
4957 specbind (Qinhibit_redisplay
, Qt
);
4959 GCPRO4 (string
, parms
, frame
, timeout
);
4961 CHECK_STRING (string
);
4962 if (SCHARS (string
) == 0)
4963 string
= make_unibyte_string (" ", 1);
4965 f
= check_x_frame (frame
);
4967 timeout
= make_number (5);
4969 CHECK_NATNUM (timeout
);
4972 dx
= make_number (5);
4977 dy
= make_number (-10);
4982 if (x_gtk_use_system_tooltips
)
4986 /* Hide a previous tip, if any. */
4990 if ((ok
= xg_prepare_tooltip (f
, string
, &width
, &height
)) != 0)
4992 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
4993 xg_show_tooltip (f
, root_x
, root_y
);
4994 /* This is used in Fx_hide_tip. */
4995 XSETFRAME (tip_frame
, f
);
4998 if (ok
) goto start_timer
;
5000 #endif /* USE_GTK */
5002 if (NILP (last_show_tip_args
))
5003 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5005 if (!NILP (tip_frame
))
5007 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5008 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5009 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5011 if (EQ (frame
, last_frame
)
5012 && !NILP (Fequal (last_string
, string
))
5013 && !NILP (Fequal (last_parms
, parms
)))
5015 struct frame
*tip_f
= XFRAME (tip_frame
);
5017 /* Only DX and DY have changed. */
5018 if (!NILP (tip_timer
))
5020 Lisp_Object timer
= tip_timer
;
5022 call1 (Qcancel_timer
, timer
);
5026 compute_tip_xy (tip_f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (tip_f
),
5027 FRAME_PIXEL_HEIGHT (tip_f
), &root_x
, &root_y
);
5028 XMoveWindow (FRAME_X_DISPLAY (tip_f
), FRAME_X_WINDOW (tip_f
),
5035 /* Hide a previous tip, if any. */
5038 ASET (last_show_tip_args
, 0, string
);
5039 ASET (last_show_tip_args
, 1, frame
);
5040 ASET (last_show_tip_args
, 2, parms
);
5042 /* Add default values to frame parameters. */
5043 if (NILP (Fassq (Qname
, parms
)))
5044 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5045 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5046 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5047 if (NILP (Fassq (Qborder_width
, parms
)))
5048 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5049 if (NILP (Fassq (Qborder_color
, parms
)))
5050 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5051 if (NILP (Fassq (Qbackground_color
, parms
)))
5052 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5055 /* Create a frame for the tooltip, and record it in the global
5056 variable tip_frame. */
5057 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5060 /* Set up the frame's root window. */
5061 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5062 w
->left_col
= w
->top_line
= make_number (0);
5064 if (CONSP (Vx_max_tooltip_size
)
5065 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5066 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5067 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5068 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5070 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5071 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5075 w
->total_cols
= make_number (80);
5076 w
->total_lines
= make_number (40);
5079 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5081 w
->pseudo_window_p
= 1;
5083 /* Display the tooltip text in a temporary buffer. */
5084 old_buffer
= current_buffer
;
5085 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5086 BVAR (current_buffer
, truncate_lines
) = Qnil
;
5087 clear_glyph_matrix (w
->desired_matrix
);
5088 clear_glyph_matrix (w
->current_matrix
);
5089 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5090 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5092 /* Compute width and height of the tooltip. */
5093 width
= height
= seen_reversed_p
= 0;
5094 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5096 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5100 /* Stop at the first empty row at the end. */
5101 if (!row
->enabled_p
|| !row
->displays_text_p
)
5104 /* Let the row go over the full width of the frame. */
5105 row
->full_width_p
= 1;
5107 row_width
= row
->pixel_width
;
5108 if (row
->used
[TEXT_AREA
])
5110 /* There's a glyph at the end of rows that is used to place
5111 the cursor there. Don't include the width of this glyph. */
5112 if (!row
->reversed_p
)
5114 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5115 if (INTEGERP (last
->object
))
5116 row_width
-= last
->pixel_width
;
5120 /* There could be a stretch glyph at the beginning of R2L
5121 rows that is produced by extend_face_to_end_of_line.
5122 Don't count that glyph. */
5123 struct glyph
*g
= row
->glyphs
[TEXT_AREA
];
5125 if (g
->type
== STRETCH_GLYPH
&& INTEGERP (g
->object
))
5127 row_width
-= g
->pixel_width
;
5128 seen_reversed_p
= 1;
5133 height
+= row
->height
;
5134 width
= max (width
, row_width
);
5137 /* If we've seen partial-length R2L rows, we need to re-adjust the
5138 tool-tip frame width and redisplay it again, to avoid over-wide
5139 tips due to the stretch glyph that extends R2L lines to full
5140 width of the frame. */
5141 if (seen_reversed_p
)
5143 /* w->total_cols and FRAME_TOTAL_COLS want the width in columns,
5145 width
/= WINDOW_FRAME_COLUMN_WIDTH (w
);
5146 w
->total_cols
= make_number (width
);
5147 FRAME_TOTAL_COLS (f
) = width
;
5149 clear_glyph_matrix (w
->desired_matrix
);
5150 clear_glyph_matrix (w
->current_matrix
);
5151 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5153 /* Recompute width and height of the tooltip. */
5154 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5156 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5160 if (!row
->enabled_p
|| !row
->displays_text_p
)
5162 row
->full_width_p
= 1;
5163 row_width
= row
->pixel_width
;
5164 if (row
->used
[TEXT_AREA
] && !row
->reversed_p
)
5166 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5167 if (INTEGERP (last
->object
))
5168 row_width
-= last
->pixel_width
;
5171 height
+= row
->height
;
5172 width
= max (width
, row_width
);
5176 /* Add the frame's internal border to the width and height the X
5177 window should have. */
5178 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5179 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5181 /* Move the tooltip window where the mouse pointer is. Resize and
5183 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5186 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5187 root_x
, root_y
, width
, height
);
5188 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5191 /* Draw into the window. */
5192 w
->must_be_updated_p
= 1;
5193 update_single_window (w
, 1);
5195 /* Restore original current buffer. */
5196 set_buffer_internal_1 (old_buffer
);
5197 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5200 /* Let the tip disappear after timeout seconds. */
5201 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5202 intern ("x-hide-tip"));
5205 return unbind_to (count
, Qnil
);
5209 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5210 doc
: /* Hide the current tooltip window, if there is any.
5211 Value is t if tooltip was open, nil otherwise. */)
5215 Lisp_Object deleted
, frame
, timer
;
5216 struct gcpro gcpro1
, gcpro2
;
5218 /* Return quickly if nothing to do. */
5219 if (NILP (tip_timer
) && NILP (tip_frame
))
5224 GCPRO2 (frame
, timer
);
5225 tip_frame
= tip_timer
= deleted
= Qnil
;
5227 count
= SPECPDL_INDEX ();
5228 specbind (Qinhibit_redisplay
, Qt
);
5229 specbind (Qinhibit_quit
, Qt
);
5232 call1 (Qcancel_timer
, timer
);
5236 /* When using system tooltip, tip_frame is the Emacs frame on which
5237 the tip is shown. */
5238 struct frame
*f
= XFRAME (frame
);
5239 if (FRAME_LIVE_P (f
) && xg_hide_tooltip (f
))
5246 delete_frame (frame
, Qnil
);
5250 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5251 redisplay procedure is not called when a tip frame over menu
5252 items is unmapped. Redisplay the menu manually... */
5255 struct frame
*f
= SELECTED_FRAME ();
5256 w
= f
->output_data
.x
->menubar_widget
;
5258 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5262 xlwmenu_redisplay (w
);
5266 #endif /* USE_LUCID */
5270 return unbind_to (count
, deleted
);
5275 /***********************************************************************
5276 File selection dialog
5277 ***********************************************************************/
5279 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5280 Sx_uses_old_gtk_dialog
,
5282 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5289 && xg_uses_old_file_dialog ())
5297 /* Callback for "OK" and "Cancel" on file selection dialog. */
5300 file_dialog_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5302 int *result
= (int *) client_data
;
5303 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5304 *result
= cb
->reason
;
5308 /* Callback for unmapping a file selection dialog. This is used to
5309 capture the case where a dialog is closed via a window manager's
5310 closer button, for example. Using a XmNdestroyCallback didn't work
5314 file_dialog_unmap_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5316 int *result
= (int *) client_data
;
5317 *result
= XmCR_CANCEL
;
5321 clean_up_file_dialog (Lisp_Object arg
)
5323 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5324 Widget dialog
= (Widget
) p
->pointer
;
5328 XtUnmanageChild (dialog
);
5329 XtDestroyWidget (dialog
);
5330 x_menu_set_in_use (0);
5337 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5338 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5339 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5340 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5341 or directory must exist.
5343 This function is only defined on MS Windows, and X Windows with the
5344 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5345 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5346 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5349 struct frame
*f
= SELECTED_FRAME ();
5350 Lisp_Object file
= Qnil
;
5351 Lisp_Object decoded_file
;
5352 Widget dialog
, text
, help
;
5355 XmString dir_xmstring
, pattern_xmstring
;
5356 int count
= SPECPDL_INDEX ();
5357 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5361 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5363 if (popup_activated ())
5364 error ("Trying to use a menu from within a menu-entry");
5366 CHECK_STRING (prompt
);
5369 /* Prevent redisplay. */
5370 specbind (Qinhibit_redisplay
, Qt
);
5374 /* Create the dialog with PROMPT as title, using DIR as initial
5375 directory and using "*" as pattern. */
5376 dir
= Fexpand_file_name (dir
, Qnil
);
5377 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5378 pattern_xmstring
= XmStringCreateLocalized ("*");
5380 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5381 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5382 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5383 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5384 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5385 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5387 XmStringFree (dir_xmstring
);
5388 XmStringFree (pattern_xmstring
);
5390 /* Add callbacks for OK and Cancel. */
5391 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5392 (XtPointer
) &result
);
5393 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5394 (XtPointer
) &result
);
5395 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5396 (XtPointer
) &result
);
5398 /* Remove the help button since we can't display help. */
5399 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5400 XtUnmanageChild (help
);
5402 /* Mark OK button as default. */
5403 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5404 XmNshowAsDefault
, True
, NULL
);
5406 /* If MUSTMATCH is non-nil, disable the file entry field of the
5407 dialog, so that the user must select a file from the files list
5408 box. We can't remove it because we wouldn't have a way to get at
5409 the result file name, then. */
5410 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5411 if (!NILP (mustmatch
))
5414 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5415 XtSetSensitive (text
, False
);
5416 XtSetSensitive (label
, False
);
5419 /* Manage the dialog, so that list boxes get filled. */
5420 XtManageChild (dialog
);
5422 if (STRINGP (default_filename
))
5424 XmString default_xmstring
;
5425 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5426 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5428 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5429 XmTextFieldReplace (wtext
, 0, last_pos
,
5430 (SDATA (Ffile_name_nondirectory (default_filename
))));
5432 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5433 must include the path for this to work. */
5435 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5437 if (XmListItemExists (list
, default_xmstring
))
5439 int item_pos
= XmListItemPos (list
, default_xmstring
);
5440 /* Select the item and scroll it into view. */
5441 XmListSelectPos (list
, item_pos
, True
);
5442 XmListSetPos (list
, item_pos
);
5445 XmStringFree (default_xmstring
);
5448 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5450 /* Process events until the user presses Cancel or OK. */
5451 x_menu_set_in_use (1);
5456 x_menu_wait_for_event (0);
5457 XtAppNextEvent (Xt_app_con
, &event
);
5458 if (event
.type
== KeyPress
5459 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5461 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5463 /* Pop down on C-g. */
5464 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5465 XtUnmanageChild (dialog
);
5468 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5471 /* Get the result. */
5472 if (result
== XmCR_OK
)
5474 XmString text_string
;
5477 XtVaGetValues (dialog
, XmNtextString
, &text_string
, NULL
);
5478 XmStringGetLtoR (text_string
, XmFONTLIST_DEFAULT_TAG
, &data
);
5479 XmStringFree (text_string
);
5480 file
= build_string (data
);
5489 /* Make "Cancel" equivalent to C-g. */
5491 Fsignal (Qquit
, Qnil
);
5493 decoded_file
= DECODE_FILE (file
);
5495 return unbind_to (count
, decoded_file
);
5498 #endif /* USE_MOTIF */
5503 clean_up_dialog (Lisp_Object arg
)
5505 x_menu_set_in_use (0);
5510 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5511 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5512 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5513 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5514 or directory must exist.
5516 This function is only defined on MS Windows, and X Windows with the
5517 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5518 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5519 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5521 FRAME_PTR f
= SELECTED_FRAME ();
5523 Lisp_Object file
= Qnil
;
5524 Lisp_Object decoded_file
;
5525 int count
= SPECPDL_INDEX ();
5526 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5531 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5533 if (popup_activated ())
5534 error ("Trying to use a menu from within a menu-entry");
5536 CHECK_STRING (prompt
);
5539 /* Prevent redisplay. */
5540 specbind (Qinhibit_redisplay
, Qt
);
5541 record_unwind_protect (clean_up_dialog
, Qnil
);
5545 if (STRINGP (default_filename
))
5546 cdef_file
= SSDATA (default_filename
);
5548 cdef_file
= SSDATA (dir
);
5550 fn
= xg_get_file_name (f
, SSDATA (prompt
), cdef_file
,
5552 ! NILP (only_dir_p
));
5556 file
= build_string (fn
);
5563 /* Make "Cancel" equivalent to C-g. */
5565 Fsignal (Qquit
, Qnil
);
5567 decoded_file
= DECODE_FILE (file
);
5569 return unbind_to (count
, decoded_file
);
5573 #ifdef HAVE_FREETYPE
5575 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5576 doc
: /* Read a font name using a GTK font selection dialog.
5577 Return a GTK-style font string corresponding to the selection.
5579 If FRAME is omitted or nil, it defaults to the selected frame. */)
5580 (Lisp_Object frame
, Lisp_Object ignored
)
5582 FRAME_PTR f
= check_x_frame (frame
);
5585 Lisp_Object font_param
;
5586 char *default_name
= NULL
;
5587 struct gcpro gcpro1
, gcpro2
;
5588 int count
= SPECPDL_INDEX ();
5592 if (popup_activated ())
5593 error ("Trying to use a menu from within a menu-entry");
5595 /* Prevent redisplay. */
5596 specbind (Qinhibit_redisplay
, Qt
);
5597 record_unwind_protect (clean_up_dialog
, Qnil
);
5601 GCPRO2(font_param
, font
);
5603 XSETFONT (font
, FRAME_FONT (f
));
5604 font_param
= Ffont_get (font
, intern (":name"));
5605 if (STRINGP (font_param
))
5606 default_name
= xstrdup (SSDATA (font_param
));
5609 font_param
= Fframe_parameter (frame
, Qfont_param
);
5610 if (STRINGP (font_param
))
5611 default_name
= xstrdup (SSDATA (font_param
));
5614 if (default_name
== NULL
&& x_last_font_name
!= NULL
)
5615 default_name
= xstrdup (x_last_font_name
);
5617 /* Convert fontconfig names to Gtk names, i.e. remove - before number */
5620 char *p
= strrchr (default_name
, '-');
5624 while (isdigit (*ep
))
5626 if (*ep
== '\0') *p
= ' ';
5630 name
= xg_get_font_name (f
, default_name
);
5631 xfree (default_name
);
5635 font
= build_string (name
);
5636 g_free (x_last_font_name
);
5637 x_last_font_name
= name
;
5643 Fsignal (Qquit
, Qnil
);
5645 return unbind_to (count
, font
);
5647 #endif /* HAVE_FREETYPE */
5649 #endif /* USE_GTK */
5652 /***********************************************************************
5654 ***********************************************************************/
5656 #ifdef HAVE_XKBGETKEYBOARD
5657 #include <X11/XKBlib.h>
5658 #include <X11/keysym.h>
5661 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5662 Sx_backspace_delete_keys_p
, 0, 1, 0,
5663 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5664 FRAME nil means use the selected frame.
5665 Value is t if we know that both keys are present, and are mapped to the
5666 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5667 present and mapped to the usual X keysyms. */)
5670 #ifdef HAVE_XKBGETKEYBOARD
5672 struct frame
*f
= check_x_frame (frame
);
5673 Display
*dpy
= FRAME_X_DISPLAY (f
);
5674 Lisp_Object have_keys
;
5675 int major
, minor
, op
, event
, error_code
;
5679 /* Check library version in case we're dynamically linked. */
5680 major
= XkbMajorVersion
;
5681 minor
= XkbMinorVersion
;
5682 if (!XkbLibraryVersion (&major
, &minor
))
5688 /* Check that the server supports XKB. */
5689 major
= XkbMajorVersion
;
5690 minor
= XkbMinorVersion
;
5691 if (!XkbQueryExtension (dpy
, &op
, &event
, &error_code
, &major
, &minor
))
5697 /* In this code we check that the keyboard has physical keys with names
5698 that start with BKSP (Backspace) and DELE (Delete), and that they
5699 generate keysym XK_BackSpace and XK_Delete respectively.
5700 This function is used to test if normal-erase-is-backspace should be
5702 An alternative approach would be to just check if XK_BackSpace and
5703 XK_Delete are mapped to any key. But if any of those are mapped to
5704 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5705 user doesn't know about it, it is better to return false here.
5706 It is more obvious to the user what to do if she/he has two keys
5707 clearly marked with names/symbols and one key does something not
5708 expected (i.e. she/he then tries the other).
5709 The cases where Backspace/Delete is mapped to some other key combination
5710 are rare, and in those cases, normal-erase-is-backspace can be turned on
5714 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5717 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5719 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5721 for (i
= kb
->min_key_code
;
5722 (i
< kb
->max_key_code
5723 && (delete_keycode
== 0 || backspace_keycode
== 0));
5726 /* The XKB symbolic key names can be seen most easily in
5727 the PS file generated by `xkbprint -label name
5729 if (memcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5731 else if (memcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5732 backspace_keycode
= i
;
5735 XkbFreeNames (kb
, 0, True
);
5738 XkbFreeClientMap (kb
, 0, True
);
5741 && backspace_keycode
5742 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5743 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5748 #else /* not HAVE_XKBGETKEYBOARD */
5750 #endif /* not HAVE_XKBGETKEYBOARD */
5755 /***********************************************************************
5757 ***********************************************************************/
5759 /* Keep this list in the same order as frame_parms in frame.c.
5760 Use 0 for unsupported frame parameters. */
5762 frame_parm_handler x_frame_parm_handlers
[] =
5766 x_set_background_color
,
5772 x_set_foreground_color
,
5775 x_set_internal_border_width
,
5776 x_set_menu_bar_lines
,
5778 x_explicitly_set_name
,
5779 x_set_scroll_bar_width
,
5782 x_set_vertical_scroll_bars
,
5784 x_set_tool_bar_lines
,
5785 x_set_scroll_bar_foreground
,
5786 x_set_scroll_bar_background
,
5796 x_set_tool_bar_position
,
5802 /* This is zero if not using X windows. */
5805 /* The section below is built by the lisp expression at the top of the file,
5806 just above where these variables are declared. */
5807 /*&&& init symbols here &&&*/
5808 DEFSYM (Qnone
, "none");
5809 DEFSYM (Qsuppress_icon
, "suppress-icon");
5810 DEFSYM (Qundefined_color
, "undefined-color");
5811 DEFSYM (Qcompound_text
, "compound-text");
5812 DEFSYM (Qcancel_timer
, "cancel-timer");
5813 DEFSYM (Qfont_param
, "font-parameter");
5814 /* This is the end of symbol initialization. */
5816 Fput (Qundefined_color
, Qerror_conditions
,
5817 pure_cons (Qundefined_color
, pure_cons (Qerror
, Qnil
)));
5818 Fput (Qundefined_color
, Qerror_message
,
5819 make_pure_c_string ("Undefined color"));
5821 DEFVAR_LISP ("x-pointer-shape", Vx_pointer_shape
,
5822 doc
: /* The shape of the pointer when over text.
5823 Changing the value does not affect existing frames
5824 unless you set the mouse color. */);
5825 Vx_pointer_shape
= Qnil
;
5827 #if 0 /* This doesn't really do anything. */
5828 DEFVAR_LISP ("x-nontext-pointer-shape", Vx_nontext_pointer_shape
,
5829 doc
: /* The shape of the pointer when not over text.
5830 This variable takes effect when you create a new frame
5831 or when you set the mouse color. */);
5833 Vx_nontext_pointer_shape
= Qnil
;
5835 DEFVAR_LISP ("x-hourglass-pointer-shape", Vx_hourglass_pointer_shape
,
5836 doc
: /* The shape of the pointer when Emacs is busy.
5837 This variable takes effect when you create a new frame
5838 or when you set the mouse color. */);
5839 Vx_hourglass_pointer_shape
= Qnil
;
5841 #if 0 /* This doesn't really do anything. */
5842 DEFVAR_LISP ("x-mode-pointer-shape", Vx_mode_pointer_shape
,
5843 doc
: /* The shape of the pointer when over the mode line.
5844 This variable takes effect when you create a new frame
5845 or when you set the mouse color. */);
5847 Vx_mode_pointer_shape
= Qnil
;
5849 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5850 Vx_sensitive_text_pointer_shape
,
5851 doc
: /* The shape of the pointer when over mouse-sensitive text.
5852 This variable takes effect when you create a new frame
5853 or when you set the mouse color. */);
5854 Vx_sensitive_text_pointer_shape
= Qnil
;
5856 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5857 Vx_window_horizontal_drag_shape
,
5858 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5859 This variable takes effect when you create a new frame
5860 or when you set the mouse color. */);
5861 Vx_window_horizontal_drag_shape
= Qnil
;
5863 DEFVAR_LISP ("x-cursor-fore-pixel", Vx_cursor_fore_pixel
,
5864 doc
: /* A string indicating the foreground color of the cursor box. */);
5865 Vx_cursor_fore_pixel
= Qnil
;
5867 DEFVAR_LISP ("x-max-tooltip-size", Vx_max_tooltip_size
,
5868 doc
: /* Maximum size for tooltips.
5869 Value is a pair (COLUMNS . ROWS). Text larger than this is clipped. */);
5870 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5872 DEFVAR_LISP ("x-no-window-manager", Vx_no_window_manager
,
5873 doc
: /* Non-nil if no X window manager is in use.
5874 Emacs doesn't try to figure this out; this is always nil
5875 unless you set it to something else. */);
5876 /* We don't have any way to find this out, so set it to nil
5877 and maybe the user would like to set it to t. */
5878 Vx_no_window_manager
= Qnil
;
5880 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5881 Vx_pixel_size_width_font_regexp
,
5882 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5884 Since Emacs gets width of a font matching with this regexp from
5885 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5886 such a font. This is especially effective for such large fonts as
5887 Chinese, Japanese, and Korean. */);
5888 Vx_pixel_size_width_font_regexp
= Qnil
;
5890 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5891 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", x_gtk_use_old_file_dialog
,
5892 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5893 If nil or if the file selection dialog is not available, the new GTK file
5894 chooser is used instead. To turn off all file dialogs set the
5895 variable `use-file-dialog'. */);
5896 x_gtk_use_old_file_dialog
= 0;
5898 DEFVAR_BOOL ("x-gtk-show-hidden-files", x_gtk_show_hidden_files
,
5899 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5900 Note that this is just the default, there is a toggle button on the file
5901 chooser to show or not show hidden files on a case by case basis. */);
5902 x_gtk_show_hidden_files
= 0;
5904 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", x_gtk_file_dialog_help_text
,
5905 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
5906 If more space for files in the file chooser dialog is wanted, set this to nil
5907 to turn the additional text off. */);
5908 x_gtk_file_dialog_help_text
= 1;
5910 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", x_gtk_whole_detached_tool_bar
,
5911 doc
: /* *If non-nil, a detached tool bar is shown in full.
5912 The default is to just show an arrow and pressing on that arrow shows
5913 the tool bar buttons. */);
5914 x_gtk_whole_detached_tool_bar
= 0;
5916 DEFVAR_BOOL ("x-gtk-use-system-tooltips", x_gtk_use_system_tooltips
,
5917 doc
: /* *If non-nil with a Gtk+ built Emacs, the Gtk+ toolip is used.
5918 Otherwise use Emacs own tooltip implementation.
5919 When using Gtk+ tooltips, the tooltip face is not used. */);
5920 x_gtk_use_system_tooltips
= 1;
5922 Fprovide (intern_c_string ("x"), Qnil
);
5924 #ifdef USE_X_TOOLKIT
5925 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5927 Fprovide (intern_c_string ("motif"), Qnil
);
5929 DEFVAR_LISP ("motif-version-string", Vmotif_version_string
,
5930 doc
: /* Version info for LessTif/Motif. */);
5931 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5932 #endif /* USE_MOTIF */
5933 #endif /* USE_X_TOOLKIT */
5936 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5937 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5938 But for a user it is a toolkit for X, and indeed, configure
5939 accepts --with-x-toolkit=gtk. */
5940 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5941 Fprovide (intern_c_string ("gtk"), Qnil
);
5942 Fprovide (intern_c_string ("move-toolbar"), Qnil
);
5944 DEFVAR_LISP ("gtk-version-string", Vgtk_version_string
,
5945 doc
: /* Version info for GTK+. */);
5947 char gtk_version
[40];
5948 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5949 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5950 Vgtk_version_string
= make_pure_string (gtk_version
, strlen (gtk_version
), strlen (gtk_version
), 0);
5952 #endif /* USE_GTK */
5954 /* X window properties. */
5955 defsubr (&Sx_change_window_property
);
5956 defsubr (&Sx_delete_window_property
);
5957 defsubr (&Sx_window_property
);
5959 defsubr (&Sxw_display_color_p
);
5960 defsubr (&Sx_display_grayscale_p
);
5961 defsubr (&Sxw_color_defined_p
);
5962 defsubr (&Sxw_color_values
);
5963 defsubr (&Sx_server_max_request_size
);
5964 defsubr (&Sx_server_vendor
);
5965 defsubr (&Sx_server_version
);
5966 defsubr (&Sx_display_pixel_width
);
5967 defsubr (&Sx_display_pixel_height
);
5968 defsubr (&Sx_display_mm_width
);
5969 defsubr (&Sx_display_mm_height
);
5970 defsubr (&Sx_display_screens
);
5971 defsubr (&Sx_display_planes
);
5972 defsubr (&Sx_display_color_cells
);
5973 defsubr (&Sx_display_visual_class
);
5974 defsubr (&Sx_display_backing_store
);
5975 defsubr (&Sx_display_save_under
);
5976 defsubr (&Sx_wm_set_size_hint
);
5977 defsubr (&Sx_create_frame
);
5978 defsubr (&Sx_open_connection
);
5979 defsubr (&Sx_close_connection
);
5980 defsubr (&Sx_display_list
);
5981 defsubr (&Sx_synchronize
);
5982 defsubr (&Sx_focus_frame
);
5983 defsubr (&Sx_backspace_delete_keys_p
);
5985 /* Setting callback functions for fontset handler. */
5986 check_window_system_func
= check_x
;
5988 defsubr (&Sx_show_tip
);
5989 defsubr (&Sx_hide_tip
);
5991 staticpro (&tip_timer
);
5993 staticpro (&tip_frame
);
5995 last_show_tip_args
= Qnil
;
5996 staticpro (&last_show_tip_args
);
5998 defsubr (&Sx_uses_old_gtk_dialog
);
5999 #if defined (USE_MOTIF) || defined (USE_GTK)
6000 defsubr (&Sx_file_dialog
);
6003 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
6004 defsubr (&Sx_select_font
);
6005 x_last_font_name
= NULL
;
6009 #endif /* HAVE_X_WINDOWS */