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
, int *text_bytes
, int *stringp
, int *freep
)
1476 int result
= string_xstring_p (string
);
1477 struct coding_system coding
;
1481 /* No multibyte character in OBJ. We need not encode it. */
1482 *text_bytes
= SBYTES (string
);
1485 return SDATA (string
);
1488 setup_coding_system (coding_system
, &coding
);
1489 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1490 /* We suppress producing escape sequences for composition. */
1491 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1492 coding
.dst_bytes
= SCHARS (string
) * 2;
1493 coding
.destination
= (unsigned char *) xmalloc (coding
.dst_bytes
);
1494 encode_coding_object (&coding
, string
, 0, 0,
1495 SCHARS (string
), SBYTES (string
), Qnil
);
1496 *text_bytes
= coding
.produced
;
1497 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1499 return coding
.destination
;
1503 /* Set the WM name to NAME for frame F. Also set the icon name.
1504 If the frame already has an icon name, use that, otherwise set the
1505 icon name to NAME. */
1508 x_set_name_internal (FRAME_PTR f
, Lisp_Object name
)
1510 if (FRAME_X_WINDOW (f
))
1514 XTextProperty text
, icon
;
1516 int do_free_icon_value
= 0, do_free_text_value
= 0;
1517 Lisp_Object coding_system
;
1518 Lisp_Object encoded_name
;
1519 Lisp_Object encoded_icon_name
;
1520 struct gcpro gcpro1
;
1522 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1523 we use it before x_encode_text that may return string data. */
1525 encoded_name
= ENCODE_UTF_8 (name
);
1528 coding_system
= Qcompound_text
;
1529 /* Note: Encoding strategy
1531 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1532 text.encoding. But, there are non-internationalized window
1533 managers which don't support that encoding. So, if NAME
1534 contains only ASCII and 8859-1 characters, encode it by
1535 iso-latin-1, and use "STRING" in text.encoding hoping that
1536 such window managers at least analyze this format correctly,
1537 i.e. treat 8-bit bytes as 8859-1 characters.
1539 We may also be able to use "UTF8_STRING" in text.encoding
1540 in the future which can encode all Unicode characters.
1541 But, for the moment, there's no way to know that the
1542 current window manager supports it or not.
1544 Either way, we also set the _NET_WM_NAME and _NET_WM_ICON_NAME
1545 properties. Per the EWMH specification, those two properties
1546 are always UTF8_STRING. This matches what gtk_window_set_title()
1547 does in the USE_GTK case. */
1548 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1549 &do_free_text_value
);
1550 text
.encoding
= (stringp
? XA_STRING
1551 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1553 text
.nitems
= bytes
;
1555 if (!STRINGP (f
->icon_name
))
1558 encoded_icon_name
= encoded_name
;
1562 /* See the above comment "Note: Encoding strategy". */
1563 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1564 &bytes
, &stringp
, &do_free_icon_value
);
1565 icon
.encoding
= (stringp
? XA_STRING
1566 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1568 icon
.nitems
= bytes
;
1570 encoded_icon_name
= ENCODE_UTF_8 (f
->icon_name
);
1574 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1575 SSDATA (encoded_name
));
1576 #else /* not USE_GTK */
1577 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1578 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1579 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_name
,
1580 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1582 SDATA (encoded_name
),
1583 SBYTES (encoded_name
));
1584 #endif /* not USE_GTK */
1586 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1587 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1588 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_icon_name
,
1589 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1591 SDATA (encoded_icon_name
),
1592 SBYTES (encoded_icon_name
));
1594 if (do_free_icon_value
)
1596 if (do_free_text_value
)
1603 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1606 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1607 name; if NAME is a string, set F's name to NAME and set
1608 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1610 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1611 suggesting a new name, which lisp code should override; if
1612 F->explicit_name is set, ignore the new name; otherwise, set it. */
1615 x_set_name (struct frame
*f
, Lisp_Object name
, int explicit)
1617 /* Make sure that requests from lisp code override requests from
1618 Emacs redisplay code. */
1621 /* If we're switching from explicit to implicit, we had better
1622 update the mode lines and thereby update the title. */
1623 if (f
->explicit_name
&& NILP (name
))
1624 update_mode_lines
= 1;
1626 f
->explicit_name
= ! NILP (name
);
1628 else if (f
->explicit_name
)
1631 /* If NAME is nil, set the name to the x_id_name. */
1634 /* Check for no change needed in this very common case
1635 before we do any consing. */
1636 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1639 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1642 CHECK_STRING (name
);
1644 /* Don't change the name if it's already NAME. */
1645 if (! NILP (Fstring_equal (name
, f
->name
)))
1650 /* For setting the frame title, the title parameter should override
1651 the name parameter. */
1652 if (! NILP (f
->title
))
1655 x_set_name_internal (f
, name
);
1658 /* This function should be called when the user's lisp code has
1659 specified a name for the frame; the name will override any set by the
1662 x_explicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1664 x_set_name (f
, arg
, 1);
1667 /* This function should be called by Emacs redisplay code to set the
1668 name; names set this way will never override names set by the user's
1671 x_implicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1673 x_set_name (f
, arg
, 0);
1676 /* Change the title of frame F to NAME.
1677 If NAME is nil, use the frame name as the title. */
1680 x_set_title (struct frame
*f
, Lisp_Object name
, Lisp_Object old_name
)
1682 /* Don't change the title if it's already NAME. */
1683 if (EQ (name
, f
->title
))
1686 update_mode_lines
= 1;
1693 CHECK_STRING (name
);
1695 x_set_name_internal (f
, name
);
1699 x_set_scroll_bar_default_width (struct frame
*f
)
1701 int wid
= FRAME_COLUMN_WIDTH (f
);
1702 #ifdef USE_TOOLKIT_SCROLL_BARS
1704 int minw
= xg_get_default_scrollbar_width ();
1708 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1709 int width
= minw
+ 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1710 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1711 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1713 /* Make the actual width at least 14 pixels and a multiple of a
1715 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1717 /* Use all of that space (aside from required margins) for the
1719 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1724 /* Record in frame F the specified or default value according to ALIST
1725 of the parameter named PROP (a Lisp symbol). If no value is
1726 specified for PROP, look for an X default for XPROP on the frame
1727 named NAME. If that is not found either, use the value DEFLT. */
1730 x_default_scroll_bar_color_parameter (struct frame
*f
,
1731 Lisp_Object alist
, Lisp_Object prop
,
1732 const char *xprop
, const char *xclass
,
1735 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1738 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1739 if (EQ (tem
, Qunbound
))
1741 #ifdef USE_TOOLKIT_SCROLL_BARS
1743 /* See if an X resource for the scroll bar color has been
1745 tem
= display_x_get_resource (dpyinfo
,
1746 build_string (foreground_p
1749 empty_unibyte_string
,
1750 build_string ("verticalScrollBar"),
1751 empty_unibyte_string
);
1754 /* If nothing has been specified, scroll bars will use a
1755 toolkit-dependent default. Because these defaults are
1756 difficult to get at without actually creating a scroll
1757 bar, use nil to indicate that no color has been
1762 #else /* not USE_TOOLKIT_SCROLL_BARS */
1766 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1769 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1776 #ifdef USE_X_TOOLKIT
1778 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1779 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1780 already be present because of the toolkit (Motif adds some of them,
1781 for example, but Xt doesn't). */
1784 hack_wm_protocols (FRAME_PTR f
, Widget widget
)
1786 Display
*dpy
= XtDisplay (widget
);
1787 Window w
= XtWindow (widget
);
1788 int need_delete
= 1;
1795 unsigned char *catoms
;
1797 unsigned long nitems
= 0;
1798 unsigned long bytes_after
;
1800 if ((XGetWindowProperty (dpy
, w
,
1801 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1802 (long)0, (long)100, False
, XA_ATOM
,
1803 &type
, &format
, &nitems
, &bytes_after
,
1806 && format
== 32 && type
== XA_ATOM
)
1808 Atom
*atoms
= (Atom
*) catoms
;
1813 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1815 else if (atoms
[nitems
]
1816 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1818 else if (atoms
[nitems
]
1819 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1830 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1832 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1834 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1836 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1837 XA_ATOM
, 32, PropModeAppend
,
1838 (unsigned char *) props
, count
);
1846 /* Support routines for XIC (X Input Context). */
1850 static XFontSet
xic_create_xfontset (struct frame
*);
1851 static XIMStyle
best_xim_style (XIMStyles
*, XIMStyles
*);
1854 /* Supported XIM styles, ordered by preference. */
1856 static XIMStyle supported_xim_styles
[] =
1858 XIMPreeditPosition
| XIMStatusArea
,
1859 XIMPreeditPosition
| XIMStatusNothing
,
1860 XIMPreeditPosition
| XIMStatusNone
,
1861 XIMPreeditNothing
| XIMStatusArea
,
1862 XIMPreeditNothing
| XIMStatusNothing
,
1863 XIMPreeditNothing
| XIMStatusNone
,
1864 XIMPreeditNone
| XIMStatusArea
,
1865 XIMPreeditNone
| XIMStatusNothing
,
1866 XIMPreeditNone
| XIMStatusNone
,
1871 #if defined HAVE_X_WINDOWS && defined USE_X_TOOLKIT
1872 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1874 static const char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1876 /* Create an Xt fontset spec from the name of a base font.
1877 If `motif' is True use the Motif syntax. */
1879 xic_create_fontsetname (const char *base_fontname
, int motif
)
1881 const char *sep
= motif
? ";" : ",";
1884 /* Make a fontset name from the base font name. */
1885 if (xic_defaut_fontset
== base_fontname
)
1886 { /* There is no base font name, use the default. */
1887 ptrdiff_t len
= strlen (base_fontname
) + 2;
1888 fontsetname
= xmalloc (len
);
1889 memset (fontsetname
, 0, len
);
1890 strcpy (fontsetname
, base_fontname
);
1894 /* Make a fontset name from the base font name.
1895 The font set will be made of the following elements:
1897 - the base font where the charset spec is replaced by -*-*.
1898 - the same but with the family also replaced with -*-*-. */
1899 const char *p
= base_fontname
;
1902 for (i
= 0; *p
; p
++)
1905 { /* As the font name doesn't conform to XLFD, we can't
1906 modify it to generalize it to allcs and allfamilies.
1907 Use the specified font plus the default. */
1909 strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
1910 fontsetname
= xmalloc (len
);
1911 memset (fontsetname
, 0, len
);
1912 strcpy (fontsetname
, base_fontname
);
1913 strcat (fontsetname
, sep
);
1914 strcat (fontsetname
, xic_defaut_fontset
);
1919 const char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1920 char *font_allcs
= NULL
;
1921 char *font_allfamilies
= NULL
;
1922 char *font_all
= NULL
;
1923 const char *allcs
= "*-*-*-*-*-*-*";
1924 const char *allfamilies
= "-*-*-";
1925 const char *all
= "*-*-*-*-";
1928 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
1941 /* If base_fontname specifies ADSTYLE, make it a
1945 ptrdiff_t diff
= (p2
- p3
) - 2;
1947 base
= alloca (strlen (base_fontname
) + 1);
1948 memcpy (base
, base_fontname
, p3
- base_fontname
);
1949 base
[p3
- base_fontname
] = '*';
1950 base
[(p3
- base_fontname
) + 1] = '-';
1951 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
1952 p
= base
+ (p
- base_fontname
) - diff
;
1953 p1
= base
+ (p1
- base_fontname
);
1954 p2
= base
+ (p2
- base_fontname
) - diff
;
1955 base_fontname
= base
;
1958 /* Build the font spec that matches all charsets. */
1959 len
= p
- base_fontname
+ strlen (allcs
) + 1;
1960 font_allcs
= (char *) alloca (len
);
1961 memset (font_allcs
, 0, len
);
1962 memcpy (font_allcs
, base_fontname
, p
- base_fontname
);
1963 strcat (font_allcs
, allcs
);
1965 /* Build the font spec that matches all families and
1967 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
1968 font_allfamilies
= (char *) alloca (len
);
1969 memset (font_allfamilies
, 0, len
);
1970 strcpy (font_allfamilies
, allfamilies
);
1971 memcpy (font_allfamilies
+ strlen (allfamilies
), p1
, p
- p1
);
1972 strcat (font_allfamilies
, allcs
);
1974 /* Build the font spec that matches all. */
1975 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
1976 font_all
= (char *) alloca (len
);
1977 memset (font_all
, 0, len
);
1978 strcpy (font_all
, allfamilies
);
1979 strcat (font_all
, all
);
1980 memcpy (font_all
+ strlen (all
) + strlen (allfamilies
), p2
, p
- p2
);
1981 strcat (font_all
, allcs
);
1983 /* Build the actual font set name. */
1984 len
= strlen (base_fontname
) + strlen (font_allcs
)
1985 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
1986 fontsetname
= xmalloc (len
);
1987 memset (fontsetname
, 0, len
);
1988 strcpy (fontsetname
, base_fontname
);
1989 strcat (fontsetname
, sep
);
1990 strcat (fontsetname
, font_allcs
);
1991 strcat (fontsetname
, sep
);
1992 strcat (fontsetname
, font_allfamilies
);
1993 strcat (fontsetname
, sep
);
1994 strcat (fontsetname
, font_all
);
1998 strcat (fontsetname
, ":");
2001 #endif /* HAVE_X_WINDOWS && USE_X_TOOLKIT */
2003 #ifdef DEBUG_XIC_FONTSET
2005 print_fontset_result (XFontSet xfs
, char *name
, char **missing_list
,
2009 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
2012 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
2013 while (missing_count
-- > 0)
2015 fprintf (stderr
, " missing: %s\n", *missing_list
);
2024 xic_create_xfontset (struct frame
*f
)
2026 XFontSet xfs
= NULL
;
2027 struct font
*font
= FRAME_FONT (f
);
2028 int pixel_size
= font
->pixel_size
;
2029 Lisp_Object rest
, frame
;
2031 /* See if there is another frame already using same fontset. */
2032 FOR_EACH_FRAME (rest
, frame
)
2034 struct frame
*cf
= XFRAME (frame
);
2036 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2037 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2039 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
2041 xfs
= FRAME_XIC_FONTSET (cf
);
2049 char **missing_list
;
2052 const char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
2054 sprintf (buf
, xlfd_format
, pixel_size
);
2055 missing_list
= NULL
;
2056 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2057 &missing_list
, &missing_count
, &def_string
);
2058 #ifdef DEBUG_XIC_FONTSET
2059 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2062 XFreeStringList (missing_list
);
2065 /* List of pixel sizes most likely available. Find one that
2066 is closest to pixel_size. */
2067 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2068 int *smaller
, *larger
;
2070 for (smaller
= sizes
; smaller
[1]; smaller
++)
2071 if (smaller
[1] >= pixel_size
)
2073 larger
= smaller
+ 1;
2074 if (*larger
== pixel_size
)
2076 while (*smaller
|| *larger
)
2081 this_size
= *smaller
--;
2082 else if (! *smaller
)
2083 this_size
= *larger
++;
2084 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
2085 this_size
= *smaller
--;
2087 this_size
= *larger
++;
2088 sprintf (buf
, xlfd_format
, this_size
);
2089 missing_list
= NULL
;
2090 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2091 &missing_list
, &missing_count
, &def_string
);
2092 #ifdef DEBUG_XIC_FONTSET
2093 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2096 XFreeStringList (missing_list
);
2103 const char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
2105 missing_list
= NULL
;
2106 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
2107 &missing_list
, &missing_count
, &def_string
);
2108 #ifdef DEBUG_XIC_FONTSET
2109 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
2112 XFreeStringList (missing_list
);
2120 /* Free the X fontset of frame F if it is the last frame using it. */
2123 xic_free_xfontset (struct frame
*f
)
2125 Lisp_Object rest
, frame
;
2128 if (!FRAME_XIC_FONTSET (f
))
2131 /* See if there is another frame sharing the same fontset. */
2132 FOR_EACH_FRAME (rest
, frame
)
2134 struct frame
*cf
= XFRAME (frame
);
2135 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2136 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2137 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2145 /* The fontset is not used anymore. It is safe to free it. */
2146 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2148 if (FRAME_XIC_BASE_FONTNAME (f
))
2149 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2150 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2151 FRAME_XIC_FONTSET (f
) = NULL
;
2155 /* Value is the best input style, given user preferences USER (already
2156 checked to be supported by Emacs), and styles supported by the
2157 input method XIM. */
2160 best_xim_style (XIMStyles
*user
, XIMStyles
*xim
)
2164 for (i
= 0; i
< user
->count_styles
; ++i
)
2165 for (j
= 0; j
< xim
->count_styles
; ++j
)
2166 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2167 return user
->supported_styles
[i
];
2169 /* Return the default style. */
2170 return XIMPreeditNothing
| XIMStatusNothing
;
2173 /* Create XIC for frame F. */
2175 static XIMStyle xic_style
;
2178 create_frame_xic (struct frame
*f
)
2182 XFontSet xfs
= NULL
;
2187 /* Create X fontset. */
2188 xfs
= xic_create_xfontset (f
);
2189 xim
= FRAME_X_XIM (f
);
2194 XVaNestedList preedit_attr
;
2195 XVaNestedList status_attr
;
2197 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2198 spot
.x
= 0; spot
.y
= 1;
2200 /* Determine XIC style. */
2203 XIMStyles supported_list
;
2204 supported_list
.count_styles
= (sizeof supported_xim_styles
2205 / sizeof supported_xim_styles
[0]);
2206 supported_list
.supported_styles
= supported_xim_styles
;
2207 xic_style
= best_xim_style (&supported_list
,
2208 FRAME_X_XIM_STYLES (f
));
2211 preedit_attr
= XVaCreateNestedList (0,
2214 FRAME_FOREGROUND_PIXEL (f
),
2216 FRAME_BACKGROUND_PIXEL (f
),
2217 (xic_style
& XIMPreeditPosition
2222 status_attr
= XVaCreateNestedList (0,
2228 FRAME_FOREGROUND_PIXEL (f
),
2230 FRAME_BACKGROUND_PIXEL (f
),
2233 xic
= XCreateIC (xim
,
2234 XNInputStyle
, xic_style
,
2235 XNClientWindow
, FRAME_X_WINDOW (f
),
2236 XNFocusWindow
, FRAME_X_WINDOW (f
),
2237 XNStatusAttributes
, status_attr
,
2238 XNPreeditAttributes
, preedit_attr
,
2240 XFree (preedit_attr
);
2241 XFree (status_attr
);
2244 FRAME_XIC (f
) = xic
;
2245 FRAME_XIC_STYLE (f
) = xic_style
;
2246 FRAME_XIC_FONTSET (f
) = xfs
;
2250 /* Destroy XIC and free XIC fontset of frame F, if any. */
2253 free_frame_xic (struct frame
*f
)
2255 if (FRAME_XIC (f
) == NULL
)
2258 XDestroyIC (FRAME_XIC (f
));
2259 xic_free_xfontset (f
);
2261 FRAME_XIC (f
) = NULL
;
2265 /* Place preedit area for XIC of window W's frame to specified
2266 pixel position X/Y. X and Y are relative to window W. */
2269 xic_set_preeditarea (struct window
*w
, int x
, int y
)
2271 struct frame
*f
= XFRAME (w
->frame
);
2275 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2276 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2277 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2278 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2283 /* Place status area for XIC in bottom right corner of frame F.. */
2286 xic_set_statusarea (struct frame
*f
)
2288 XIC xic
= FRAME_XIC (f
);
2293 /* Negotiate geometry of status area. If input method has existing
2294 status area, use its current size. */
2295 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2296 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2297 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2300 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2301 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2304 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2306 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2307 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2311 area
.width
= needed
->width
;
2312 area
.height
= needed
->height
;
2313 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2314 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2315 - FRAME_MENUBAR_HEIGHT (f
)
2316 - FRAME_TOOLBAR_TOP_HEIGHT (f
)
2317 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2320 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2321 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2326 /* Set X fontset for XIC of frame F, using base font name
2327 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2330 xic_set_xfontset (struct frame
*f
, const char *base_fontname
)
2335 xic_free_xfontset (f
);
2337 xfs
= xic_create_xfontset (f
);
2339 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2340 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2341 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2342 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2343 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2346 FRAME_XIC_FONTSET (f
) = xfs
;
2349 #endif /* HAVE_X_I18N */
2353 #ifdef USE_X_TOOLKIT
2355 /* Create and set up the X widget for frame F. */
2358 x_window (struct frame
*f
, long window_prompting
, int minibuffer_only
)
2360 XClassHint class_hints
;
2361 XSetWindowAttributes attributes
;
2362 unsigned long attribute_mask
;
2363 Widget shell_widget
;
2365 Widget frame_widget
;
2371 /* Use the resource name as the top-level widget name
2372 for looking up resources. Make a non-Lisp copy
2373 for the window manager, so GC relocation won't bother it.
2375 Elsewhere we specify the window name for the window manager. */
2378 char *str
= SSDATA (Vx_resource_name
);
2379 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2380 strcpy (f
->namebuf
, str
);
2384 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2385 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2386 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2387 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2388 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2389 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2390 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2391 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2392 applicationShellWidgetClass
,
2393 FRAME_X_DISPLAY (f
), al
, ac
);
2395 f
->output_data
.x
->widget
= shell_widget
;
2396 /* maybe_set_screen_title_format (shell_widget); */
2398 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2399 (widget_value
*) NULL
,
2400 shell_widget
, False
,
2404 (lw_callback
) NULL
);
2407 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2408 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2409 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2410 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2411 XtSetValues (pane_widget
, al
, ac
);
2412 f
->output_data
.x
->column_widget
= pane_widget
;
2414 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2415 the emacs screen when changing menubar. This reduces flickering. */
2418 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2419 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2420 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2421 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2422 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2423 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2424 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2425 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2426 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2427 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2430 f
->output_data
.x
->edit_widget
= frame_widget
;
2432 XtManageChild (frame_widget
);
2434 /* Do some needed geometry management. */
2437 char *tem
, shell_position
[32];
2440 int extra_borders
= 0;
2442 = (f
->output_data
.x
->menubar_widget
2443 ? (f
->output_data
.x
->menubar_widget
->core
.height
2444 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2447 #if 0 /* Experimentally, we now get the right results
2448 for -geometry -0-0 without this. 24 Aug 96, rms. */
2449 if (FRAME_EXTERNAL_MENU_BAR (f
))
2452 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2453 menubar_size
+= ibw
;
2457 f
->output_data
.x
->menubar_height
= menubar_size
;
2460 /* Motif seems to need this amount added to the sizes
2461 specified for the shell widget. The Athena/Lucid widgets don't.
2462 Both conclusions reached experimentally. -- rms. */
2463 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2464 &extra_borders
, NULL
);
2468 /* Convert our geometry parameters into a geometry string
2470 Note that we do not specify here whether the position
2471 is a user-specified or program-specified one.
2472 We pass that information later, in x_wm_set_size_hints. */
2474 int left
= f
->left_pos
;
2475 int xneg
= window_prompting
& XNegative
;
2476 int top
= f
->top_pos
;
2477 int yneg
= window_prompting
& YNegative
;
2483 if (window_prompting
& USPosition
)
2484 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2485 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2486 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2487 (xneg
? '-' : '+'), left
,
2488 (yneg
? '-' : '+'), top
);
2491 sprintf (shell_position
, "=%dx%d",
2492 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2493 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2495 /* Setting x and y when the position is not specified in
2496 the geometry string will set program position in the WM hints.
2497 If Emacs had just one program position, we could set it in
2498 fallback resources, but since each make-frame call can specify
2499 different program positions, this is easier. */
2500 XtSetArg (gal
[gac
], XtNx
, left
); gac
++;
2501 XtSetArg (gal
[gac
], XtNy
, top
); gac
++;
2505 len
= strlen (shell_position
) + 1;
2506 /* We don't free this because we don't know whether
2507 it is safe to free it while the frame exists.
2508 It isn't worth the trouble of arranging to free it
2509 when the frame is deleted. */
2510 tem
= (char *) xmalloc (len
);
2511 strncpy (tem
, shell_position
, len
);
2512 XtSetArg (gal
[gac
], XtNgeometry
, tem
); gac
++;
2513 XtSetValues (shell_widget
, gal
, gac
);
2516 XtManageChild (pane_widget
);
2517 XtRealizeWidget (shell_widget
);
2519 if (FRAME_X_EMBEDDED_P (f
))
2520 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2521 f
->output_data
.x
->parent_desc
, 0, 0);
2523 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2525 validate_x_resource_name ();
2527 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2528 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2529 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2532 FRAME_XIC (f
) = NULL
;
2534 create_frame_xic (f
);
2537 f
->output_data
.x
->wm_hints
.input
= True
;
2538 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2539 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2540 &f
->output_data
.x
->wm_hints
);
2542 hack_wm_protocols (f
, shell_widget
);
2545 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2548 /* Do a stupid property change to force the server to generate a
2549 PropertyNotify event so that the event_stream server timestamp will
2550 be initialized to something relevant to the time we created the window.
2552 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2553 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2554 XA_ATOM
, 32, PropModeAppend
,
2555 (unsigned char*) NULL
, 0);
2557 /* Make all the standard events reach the Emacs frame. */
2558 attributes
.event_mask
= STANDARD_EVENT_SET
;
2563 /* XIM server might require some X events. */
2564 unsigned long fevent
= NoEventMask
;
2565 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2566 attributes
.event_mask
|= fevent
;
2568 #endif /* HAVE_X_I18N */
2570 attribute_mask
= CWEventMask
;
2571 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2572 attribute_mask
, &attributes
);
2574 XtMapWidget (frame_widget
);
2576 /* x_set_name normally ignores requests to set the name if the
2577 requested name is the same as the current name. This is the one
2578 place where that assumption isn't correct; f->name is set, but
2579 the X server hasn't been told. */
2582 int explicit = f
->explicit_name
;
2584 f
->explicit_name
= 0;
2587 x_set_name (f
, name
, explicit);
2590 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2591 f
->output_data
.x
->current_cursor
2592 = f
->output_data
.x
->text_cursor
);
2596 /* This is a no-op, except under Motif. Make sure main areas are
2597 set to something reasonable, in case we get an error later. */
2598 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2601 #else /* not USE_X_TOOLKIT */
2604 x_window (FRAME_PTR f
)
2606 if (! xg_create_frame_widgets (f
))
2607 error ("Unable to create window");
2610 FRAME_XIC (f
) = NULL
;
2614 create_frame_xic (f
);
2617 /* XIM server might require some X events. */
2618 unsigned long fevent
= NoEventMask
;
2619 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2621 if (fevent
!= NoEventMask
)
2623 XSetWindowAttributes attributes
;
2624 XWindowAttributes wattr
;
2625 unsigned long attribute_mask
;
2627 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2629 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2630 attribute_mask
= CWEventMask
;
2631 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2632 attribute_mask
, &attributes
);
2640 #else /*! USE_GTK */
2641 /* Create and set up the X window for frame F. */
2644 x_window (struct frame
*f
)
2646 XClassHint class_hints
;
2647 XSetWindowAttributes attributes
;
2648 unsigned long attribute_mask
;
2650 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2651 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2652 attributes
.bit_gravity
= StaticGravity
;
2653 attributes
.backing_store
= NotUseful
;
2654 attributes
.save_under
= True
;
2655 attributes
.event_mask
= STANDARD_EVENT_SET
;
2656 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2657 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2662 = XCreateWindow (FRAME_X_DISPLAY (f
),
2663 f
->output_data
.x
->parent_desc
,
2666 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2668 CopyFromParent
, /* depth */
2669 InputOutput
, /* class */
2671 attribute_mask
, &attributes
);
2676 create_frame_xic (f
);
2679 /* XIM server might require some X events. */
2680 unsigned long fevent
= NoEventMask
;
2681 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2682 attributes
.event_mask
|= fevent
;
2683 attribute_mask
= CWEventMask
;
2684 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2685 attribute_mask
, &attributes
);
2688 #endif /* HAVE_X_I18N */
2690 validate_x_resource_name ();
2692 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2693 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2694 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2696 /* The menubar is part of the ordinary display;
2697 it does not count in addition to the height of the window. */
2698 f
->output_data
.x
->menubar_height
= 0;
2700 /* This indicates that we use the "Passive Input" input model.
2701 Unless we do this, we don't get the Focus{In,Out} events that we
2702 need to draw the cursor correctly. Accursed bureaucrats.
2703 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2705 f
->output_data
.x
->wm_hints
.input
= True
;
2706 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2707 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2708 &f
->output_data
.x
->wm_hints
);
2709 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2711 /* Request "save yourself" and "delete window" commands from wm. */
2714 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2715 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2716 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2719 /* x_set_name normally ignores requests to set the name if the
2720 requested name is the same as the current name. This is the one
2721 place where that assumption isn't correct; f->name is set, but
2722 the X server hasn't been told. */
2725 int explicit = f
->explicit_name
;
2727 f
->explicit_name
= 0;
2730 x_set_name (f
, name
, explicit);
2733 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2734 f
->output_data
.x
->current_cursor
2735 = f
->output_data
.x
->text_cursor
);
2739 if (FRAME_X_WINDOW (f
) == 0)
2740 error ("Unable to create window");
2743 #endif /* not USE_GTK */
2744 #endif /* not USE_X_TOOLKIT */
2746 /* Verify that the icon position args for this window are valid. */
2749 x_icon_verify (struct frame
*f
, Lisp_Object parms
)
2751 Lisp_Object icon_x
, icon_y
;
2753 /* Set the position of the icon. Note that twm groups all
2754 icons in an icon window. */
2755 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2756 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2757 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2759 CHECK_NUMBER (icon_x
);
2760 CHECK_NUMBER (icon_y
);
2762 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2763 error ("Both left and top icon corners of icon must be specified");
2766 /* Handle the icon stuff for this window. Perhaps later we might
2767 want an x_set_icon_position which can be called interactively as
2771 x_icon (struct frame
*f
, Lisp_Object parms
)
2773 Lisp_Object icon_x
, icon_y
;
2775 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2778 /* Set the position of the icon. Note that twm groups all
2779 icons in an icon window. */
2780 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2781 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2782 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2784 CHECK_NUMBER (icon_x
);
2785 CHECK_NUMBER (icon_y
);
2787 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2788 error ("Both left and top icon corners of icon must be specified");
2792 if (! EQ (icon_x
, Qunbound
))
2793 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2795 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2796 but x_create_frame still needs it. */
2797 /* Start up iconic or window? */
2798 x_wm_set_window_state
2799 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2805 x_text_icon (f
, SSDATA ((!NILP (f
->icon_name
)
2812 /* Make the GCs needed for this window, setting the
2813 background, border and mouse colors; also create the
2814 mouse cursor and the gray border tile. */
2817 x_make_gc (struct frame
*f
)
2819 XGCValues gc_values
;
2823 /* Create the GCs of this frame.
2824 Note that many default values are used. */
2826 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2827 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2828 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2829 f
->output_data
.x
->normal_gc
2830 = XCreateGC (FRAME_X_DISPLAY (f
),
2832 GCLineWidth
| GCForeground
| GCBackground
,
2835 /* Reverse video style. */
2836 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2837 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2838 f
->output_data
.x
->reverse_gc
2839 = XCreateGC (FRAME_X_DISPLAY (f
),
2841 GCForeground
| GCBackground
| GCLineWidth
,
2844 /* Cursor has cursor-color background, background-color foreground. */
2845 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2846 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2847 gc_values
.fill_style
= FillOpaqueStippled
;
2848 f
->output_data
.x
->cursor_gc
2849 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2850 (GCForeground
| GCBackground
2851 | GCFillStyle
| GCLineWidth
),
2855 f
->output_data
.x
->white_relief
.gc
= 0;
2856 f
->output_data
.x
->black_relief
.gc
= 0;
2858 /* Create the gray border tile used when the pointer is not in
2859 the frame. Since this depends on the frame's pixel values,
2860 this must be done on a per-frame basis. */
2861 f
->output_data
.x
->border_tile
2862 = (XCreatePixmapFromBitmapData
2863 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2864 gray_bits
, gray_width
, gray_height
,
2865 FRAME_FOREGROUND_PIXEL (f
),
2866 FRAME_BACKGROUND_PIXEL (f
),
2867 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2873 /* Free what was allocated in x_make_gc. */
2876 x_free_gcs (struct frame
*f
)
2878 Display
*dpy
= FRAME_X_DISPLAY (f
);
2882 if (f
->output_data
.x
->normal_gc
)
2884 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2885 f
->output_data
.x
->normal_gc
= 0;
2888 if (f
->output_data
.x
->reverse_gc
)
2890 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2891 f
->output_data
.x
->reverse_gc
= 0;
2894 if (f
->output_data
.x
->cursor_gc
)
2896 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2897 f
->output_data
.x
->cursor_gc
= 0;
2900 if (f
->output_data
.x
->border_tile
)
2902 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2903 f
->output_data
.x
->border_tile
= 0;
2910 /* Handler for signals raised during x_create_frame and
2911 x_create_top_frame. FRAME is the frame which is partially
2915 unwind_create_frame (Lisp_Object frame
)
2917 struct frame
*f
= XFRAME (frame
);
2919 /* If frame is already dead, nothing to do. This can happen if the
2920 display is disconnected after the frame has become official, but
2921 before x_create_frame removes the unwind protect. */
2922 if (!FRAME_LIVE_P (f
))
2925 /* If frame is ``official'', nothing to do. */
2926 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2928 #if GLYPH_DEBUG && XASSERTS
2929 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2932 x_free_frame_resources (f
);
2935 /* Check that reference counts are indeed correct. */
2936 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2937 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2947 x_default_font_parameter (struct frame
*f
, Lisp_Object parms
)
2949 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2950 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
2952 Lisp_Object font
= Qnil
;
2953 if (EQ (font_param
, Qunbound
))
2956 if (NILP (font_param
))
2958 /* System font should take precedendce over X resources. We suggest this
2959 regardless of font-use-system-font because .emacs may not have been
2961 const char *system_font
= xsettings_get_system_font ();
2964 char *name
= xstrdup (system_font
);
2965 font
= font_open_by_name (f
, name
);
2971 font
= !NILP (font_param
) ? font_param
2972 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
2974 if (! FONTP (font
) && ! STRINGP (font
))
2979 /* This will find the normal Xft font. */
2982 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
2983 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2984 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2985 /* This was formerly the first thing tried, but it finds
2986 too many fonts and takes too long. */
2987 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
2988 /* If those didn't work, look for something which will
2990 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
2995 for (i
= 0; names
[i
]; i
++)
2997 font
= font_open_by_name (f
, names
[i
]);
3002 error ("No suitable font was found");
3004 else if (!NILP (font_param
))
3006 /* Remember the explicit font parameter, so we can re-apply it after
3007 we've applied the `default' face settings. */
3008 x_set_frame_parameters (f
, Fcons (Fcons (Qfont_param
, font_param
), Qnil
));
3011 /* This call will make X resources override any system font setting. */
3012 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
3016 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
3018 doc
: /* Send the size hints for frame FRAME to the window manager.
3019 If FRAME is nil, use the selected frame. */)
3024 frame
= selected_frame
;
3028 x_wm_set_size_hint (f
, 0, 0);
3034 set_machine_and_pid_properties (struct frame
*f
)
3036 long pid
= (long) getpid ();
3038 /* This will set WM_CLIENT_MACHINE and WM_LOCALE_NAME. */
3039 XSetWMProperties (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), NULL
, NULL
,
3040 NULL
, 0, NULL
, NULL
, NULL
);
3041 XChangeProperty (FRAME_X_DISPLAY (f
),
3042 FRAME_OUTER_WINDOW (f
),
3043 XInternAtom (FRAME_X_DISPLAY (f
),
3046 XA_CARDINAL
, 32, PropModeReplace
,
3047 (unsigned char *) &pid
, 1);
3050 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3052 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3053 Return an Emacs frame object.
3054 PARMS is an alist of frame parameters.
3055 If the parameters specify that the frame should not have a minibuffer,
3056 and do not specify a specific minibuffer window to use,
3057 then `default-minibuffer-frame' must be a frame whose minibuffer can
3058 be shared by the new frame.
3060 This function is an internal primitive--use `make-frame' instead. */)
3064 Lisp_Object frame
, tem
;
3066 int minibuffer_only
= 0;
3067 long window_prompting
= 0;
3069 int count
= SPECPDL_INDEX ();
3070 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3071 Lisp_Object display
;
3072 struct x_display_info
*dpyinfo
= NULL
;
3076 parms
= Fcopy_alist (parms
);
3078 /* Use this general default value to start with
3079 until we know if this frame has a specified name. */
3080 Vx_resource_name
= Vinvocation_name
;
3082 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3083 if (EQ (display
, Qunbound
))
3084 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3085 if (EQ (display
, Qunbound
))
3087 dpyinfo
= check_x_display_info (display
);
3088 kb
= dpyinfo
->terminal
->kboard
;
3090 if (!dpyinfo
->terminal
->name
)
3091 error ("Terminal is not live, can't create new frames on it");
3093 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3095 && ! EQ (name
, Qunbound
)
3097 error ("Invalid frame name--not a string or nil");
3100 Vx_resource_name
= name
;
3102 /* See if parent window is specified. */
3103 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3104 if (EQ (parent
, Qunbound
))
3106 if (! NILP (parent
))
3107 CHECK_NUMBER (parent
);
3109 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3110 /* No need to protect DISPLAY because that's not used after passing
3111 it to make_frame_without_minibuffer. */
3113 GCPRO4 (parms
, parent
, name
, frame
);
3114 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3116 if (EQ (tem
, Qnone
) || NILP (tem
))
3117 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3118 else if (EQ (tem
, Qonly
))
3120 f
= make_minibuffer_frame ();
3121 minibuffer_only
= 1;
3123 else if (WINDOWP (tem
))
3124 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3128 XSETFRAME (frame
, f
);
3130 /* Note that X Windows does support scroll bars. */
3131 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3133 f
->terminal
= dpyinfo
->terminal
;
3134 f
->terminal
->reference_count
++;
3136 f
->output_method
= output_x_window
;
3137 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3138 memset (f
->output_data
.x
, 0, sizeof (struct x_output
));
3139 f
->output_data
.x
->icon_bitmap
= -1;
3140 FRAME_FONTSET (f
) = -1;
3141 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3142 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3143 #ifdef USE_TOOLKIT_SCROLL_BARS
3144 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3145 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3146 #endif /* USE_TOOLKIT_SCROLL_BARS */
3149 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3151 if (! STRINGP (f
->icon_name
))
3152 f
->icon_name
= Qnil
;
3154 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3156 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3157 record_unwind_protect (unwind_create_frame
, frame
);
3159 /* These colors will be set anyway later, but it's important
3160 to get the color reference counts right, so initialize them! */
3163 struct gcpro inner_gcpro1
;
3165 /* Function x_decode_color can signal an error. Make
3166 sure to initialize color slots so that we won't try
3167 to free colors we haven't allocated. */
3168 FRAME_FOREGROUND_PIXEL (f
) = -1;
3169 FRAME_BACKGROUND_PIXEL (f
) = -1;
3170 f
->output_data
.x
->cursor_pixel
= -1;
3171 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3172 f
->output_data
.x
->border_pixel
= -1;
3173 f
->output_data
.x
->mouse_pixel
= -1;
3175 black
= build_string ("black");
3176 GCPRO1_VAR (black
, inner_gcpro
);
3177 FRAME_FOREGROUND_PIXEL (f
)
3178 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3179 FRAME_BACKGROUND_PIXEL (f
)
3180 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3181 f
->output_data
.x
->cursor_pixel
3182 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3183 f
->output_data
.x
->cursor_foreground_pixel
3184 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3185 f
->output_data
.x
->border_pixel
3186 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3187 f
->output_data
.x
->mouse_pixel
3188 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3189 UNGCPRO_VAR (inner_gcpro
);
3192 /* Specify the parent under which to make this X window. */
3196 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3197 f
->output_data
.x
->explicit_parent
= 1;
3201 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3202 f
->output_data
.x
->explicit_parent
= 0;
3205 /* Set the name; the functions to which we pass f expect the name to
3207 if (EQ (name
, Qunbound
) || NILP (name
))
3209 f
->name
= build_string (dpyinfo
->x_id_name
);
3210 f
->explicit_name
= 0;
3215 f
->explicit_name
= 1;
3216 /* use the frame's title when getting resources for this frame. */
3217 specbind (Qx_resource_name
, name
);
3220 f
->resx
= dpyinfo
->resx
;
3221 f
->resy
= dpyinfo
->resy
;
3223 #ifdef HAVE_FREETYPE
3225 register_font_driver (&xftfont_driver
, f
);
3226 #else /* not HAVE_XFT */
3227 register_font_driver (&ftxfont_driver
, f
);
3228 #endif /* not HAVE_XFT */
3229 #endif /* HAVE_FREETYPE */
3230 register_font_driver (&xfont_driver
, f
);
3232 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3233 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3235 /* Extract the window parameters from the supplied values
3236 that are needed to determine window geometry. */
3237 x_default_font_parameter (f
, parms
);
3238 if (!FRAME_FONT (f
))
3240 delete_frame (frame
, Qnoelisp
);
3241 error ("Invalid frame font");
3244 /* Frame contents get displaced if an embedded X window has a border. */
3245 if (! FRAME_X_EMBEDDED_P (f
))
3246 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
3247 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3249 /* This defaults to 1 in order to match xterm. We recognize either
3250 internalBorderWidth or internalBorder (which is what xterm calls
3252 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3256 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3257 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3258 if (! EQ (value
, Qunbound
))
3259 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3262 x_default_parameter (f
, parms
, Qinternal_border_width
,
3263 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3268 "internalBorderWidth", "internalBorderWidth",
3270 x_default_parameter (f
, parms
, Qvertical_scroll_bars
,
3271 #if defined(USE_GTK) && defined(USE_TOOLKIT_SCROLL_BARS)
3276 "verticalScrollBars", "ScrollBars",
3279 /* Also do the stuff which must be set before the window exists. */
3280 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3281 "foreground", "Foreground", RES_TYPE_STRING
);
3282 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3283 "background", "Background", RES_TYPE_STRING
);
3284 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3285 "pointerColor", "Foreground", RES_TYPE_STRING
);
3286 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3287 "borderColor", "BorderColor", RES_TYPE_STRING
);
3288 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3289 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3290 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3291 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3292 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3293 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3294 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3295 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3297 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3298 "scrollBarForeground",
3299 "ScrollBarForeground", 1);
3300 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3301 "scrollBarBackground",
3302 "ScrollBarBackground", 0);
3304 /* Init faces before x_default_parameter is called for scroll-bar
3305 parameters because that function calls x_set_scroll_bar_width,
3306 which calls change_frame_size, which calls Fset_window_buffer,
3307 which runs hooks, which call Fvertical_motion. At the end, we
3308 end up in init_iterator with a null face cache, which should not
3310 init_frame_faces (f
);
3313 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
3314 dpyinfo_refcount
= dpyinfo
->reference_count
;
3315 #endif /* GLYPH_DEBUG */
3317 /* The X resources controlling the menu-bar and tool-bar are
3318 processed specially at startup, and reflected in the mode
3319 variables; ignore them here. */
3320 x_default_parameter (f
, parms
, Qmenu_bar_lines
,
3321 NILP (Vmenu_bar_mode
)
3322 ? make_number (0) : make_number (1),
3323 NULL
, NULL
, RES_TYPE_NUMBER
);
3324 x_default_parameter (f
, parms
, Qtool_bar_lines
,
3325 NILP (Vtool_bar_mode
)
3326 ? make_number (0) : make_number (1),
3327 NULL
, NULL
, RES_TYPE_NUMBER
);
3329 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3330 "bufferPredicate", "BufferPredicate",
3332 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3333 "title", "Title", RES_TYPE_STRING
);
3334 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3335 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3336 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3337 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3338 x_default_parameter (f
, parms
, Qtool_bar_position
,
3339 f
->tool_bar_position
, 0, 0, RES_TYPE_SYMBOL
);
3341 /* Compute the size of the X window. */
3342 window_prompting
= x_figure_window_size (f
, parms
, 1);
3344 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3345 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3347 x_icon_verify (f
, parms
);
3349 /* Create the X widget or window. */
3350 #ifdef USE_X_TOOLKIT
3351 x_window (f
, window_prompting
, minibuffer_only
);
3359 /* Now consider the frame official. */
3360 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3361 Vframe_list
= Fcons (frame
, Vframe_list
);
3363 /* We need to do this after creating the X window, so that the
3364 icon-creation functions can say whose icon they're describing. */
3365 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3366 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3368 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3369 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3370 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3371 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3372 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3373 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3374 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3375 "scrollBarWidth", "ScrollBarWidth",
3377 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3378 "alpha", "Alpha", RES_TYPE_NUMBER
);
3380 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3381 Change will not be effected unless different from the current
3383 width
= FRAME_COLS (f
);
3384 height
= FRAME_LINES (f
);
3386 SET_FRAME_COLS (f
, 0);
3387 FRAME_LINES (f
) = 0;
3388 change_frame_size (f
, height
, width
, 1, 0, 0);
3390 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3391 /* Create the menu bar. */
3392 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3394 /* If this signals an error, we haven't set size hints for the
3395 frame and we didn't make it visible. */
3396 initialize_frame_menubar (f
);
3399 /* This is a no-op, except under Motif where it arranges the
3400 main window for the widgets on it. */
3401 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3402 f
->output_data
.x
->menubar_widget
,
3403 f
->output_data
.x
->edit_widget
);
3404 #endif /* not USE_GTK */
3406 #endif /* USE_X_TOOLKIT || USE_GTK */
3408 /* Tell the server what size and position, etc, we want, and how
3409 badly we want them. This should be done after we have the menu
3410 bar so that its size can be taken into account. */
3412 x_wm_set_size_hint (f
, window_prompting
, 0);
3415 /* Make the window appear on the frame and enable display, unless
3416 the caller says not to. However, with explicit parent, Emacs
3417 cannot control visibility, so don't try. */
3418 if (! f
->output_data
.x
->explicit_parent
)
3420 Lisp_Object visibility
;
3422 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3424 if (EQ (visibility
, Qunbound
))
3427 if (EQ (visibility
, Qicon
))
3428 x_iconify_frame (f
);
3429 else if (! NILP (visibility
))
3430 x_make_frame_visible (f
);
3433 /* Must have been Qnil. */
3439 /* Set machine name and pid for the purpose of window managers. */
3440 set_machine_and_pid_properties(f
);
3442 /* Set the WM leader property. GTK does this itself, so this is not
3443 needed when using GTK. */
3444 if (dpyinfo
->client_leader_window
!= 0)
3446 XChangeProperty (FRAME_X_DISPLAY (f
),
3447 FRAME_OUTER_WINDOW (f
),
3448 dpyinfo
->Xatom_wm_client_leader
,
3449 XA_WINDOW
, 32, PropModeReplace
,
3450 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3455 /* Initialize `default-minibuffer-frame' in case this is the first
3456 frame on this terminal. */
3457 if (FRAME_HAS_MINIBUF_P (f
)
3458 && (!FRAMEP (KVAR (kb
, Vdefault_minibuffer_frame
))
3459 || !FRAME_LIVE_P (XFRAME (KVAR (kb
, Vdefault_minibuffer_frame
)))))
3460 KVAR (kb
, Vdefault_minibuffer_frame
) = frame
;
3462 /* All remaining specified parameters, which have not been "used"
3463 by x_get_arg and friends, now go in the misc. alist of the frame. */
3464 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3465 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3466 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3470 /* Make sure windows on this frame appear in calls to next-window
3471 and similar functions. */
3472 Vwindow_list
= Qnil
;
3474 return unbind_to (count
, frame
);
3478 /* FRAME is used only to get a handle on the X display. We don't pass the
3479 display info directly because we're called from frame.c, which doesn't
3480 know about that structure. */
3483 x_get_focus_frame (struct frame
*frame
)
3485 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3487 if (! dpyinfo
->x_focus_frame
)
3490 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3495 /* In certain situations, when the window manager follows a
3496 click-to-focus policy, there seems to be no way around calling
3497 XSetInputFocus to give another frame the input focus .
3499 In an ideal world, XSetInputFocus should generally be avoided so
3500 that applications don't interfere with the window manager's focus
3501 policy. But I think it's okay to use when it's clearly done
3502 following a user-command. */
3504 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3505 doc
: /* Set the input focus to FRAME.
3506 FRAME nil means use the selected frame. */)
3509 struct frame
*f
= check_x_frame (frame
);
3510 Display
*dpy
= FRAME_X_DISPLAY (f
);
3513 x_catch_errors (dpy
);
3514 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3515 RevertToParent
, CurrentTime
);
3516 x_ewmh_activate_frame (f
);
3517 x_uncatch_errors ();
3524 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3525 doc
: /* Internal function called by `color-defined-p', which see
3526 .\(Note that the Nextstep version of this function ignores FRAME.) */)
3527 (Lisp_Object color
, Lisp_Object frame
)
3530 FRAME_PTR f
= check_x_frame (frame
);
3532 CHECK_STRING (color
);
3534 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3540 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3541 doc
: /* Internal function called by `color-values', which see. */)
3542 (Lisp_Object color
, Lisp_Object frame
)
3545 FRAME_PTR f
= check_x_frame (frame
);
3547 CHECK_STRING (color
);
3549 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3550 return list3 (make_number (foo
.red
),
3551 make_number (foo
.green
),
3552 make_number (foo
.blue
));
3557 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3558 doc
: /* Internal function called by `display-color-p', which see. */)
3559 (Lisp_Object terminal
)
3561 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3563 if (dpyinfo
->n_planes
<= 2)
3566 switch (dpyinfo
->visual
->class)
3579 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3581 doc
: /* Return t if the X display supports shades of gray.
3582 Note that color displays do support shades of gray.
3583 The optional argument TERMINAL specifies which display to ask about.
3584 TERMINAL should be a terminal object, a frame or a display name (a string).
3585 If omitted or nil, that stands for the selected frame's display. */)
3586 (Lisp_Object terminal
)
3588 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3590 if (dpyinfo
->n_planes
<= 1)
3593 switch (dpyinfo
->visual
->class)
3608 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3610 doc
: /* Return the width in pixels of the X display TERMINAL.
3611 The optional argument TERMINAL specifies which display to ask about.
3612 TERMINAL should be a terminal object, a frame or a display name (a string).
3613 If omitted or nil, that stands for the selected frame's display. */)
3614 (Lisp_Object terminal
)
3616 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3618 return make_number (x_display_pixel_width (dpyinfo
));
3621 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3622 Sx_display_pixel_height
, 0, 1, 0,
3623 doc
: /* Return the height in pixels of the X display TERMINAL.
3624 The optional argument TERMINAL specifies which display to ask about.
3625 TERMINAL should be a terminal object, a frame or a display name (a string).
3626 If omitted or nil, that stands for the selected frame's display. */)
3627 (Lisp_Object terminal
)
3629 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3631 return make_number (x_display_pixel_height (dpyinfo
));
3634 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3636 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3637 The optional argument TERMINAL specifies which display to ask about.
3638 TERMINAL should be a terminal object, a frame or a display name (a string).
3639 If omitted or nil, that stands for the selected frame's display. */)
3640 (Lisp_Object terminal
)
3642 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3644 return make_number (dpyinfo
->n_planes
);
3647 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3649 doc
: /* Return the number of color cells of the X display TERMINAL.
3650 The optional argument TERMINAL specifies which display to ask about.
3651 TERMINAL should be a terminal object, a frame or a display name (a string).
3652 If omitted or nil, that stands for the selected frame's display. */)
3653 (Lisp_Object terminal
)
3655 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3657 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3658 XScreenNumberOfScreen (dpyinfo
->screen
));
3660 /* Truncate nr_planes to 24 to avoid integer overflow.
3661 Some displays says 32, but only 24 bits are actually significant.
3662 There are only very few and rare video cards that have more than
3663 24 significant bits. Also 24 bits is more than 16 million colors,
3664 it "should be enough for everyone". */
3665 if (nr_planes
> 24) nr_planes
= 24;
3667 return make_number (1 << nr_planes
);
3670 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3671 Sx_server_max_request_size
,
3673 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3674 The optional argument TERMINAL specifies which display to ask about.
3675 TERMINAL should be a terminal object, a frame or a display name (a string).
3676 If omitted or nil, that stands for the selected frame's display. */)
3677 (Lisp_Object terminal
)
3679 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3681 return make_number (MAXREQUEST (dpyinfo
->display
));
3684 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3685 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3686 \(Labelling every distributor as a "vendor" embodies the false assumption
3687 that operating systems cannot be developed and distributed noncommercially.)
3688 The optional argument TERMINAL specifies which display to ask about.
3689 TERMINAL should be a terminal object, a frame or a display name (a string).
3690 If omitted or nil, that stands for the selected frame's display. */)
3691 (Lisp_Object terminal
)
3693 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3694 const char *vendor
= ServerVendor (dpyinfo
->display
);
3696 if (! vendor
) vendor
= "";
3697 return build_string (vendor
);
3700 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3701 doc
: /* Return the version numbers of the X server of display TERMINAL.
3702 The value is a list of three integers: the major and minor
3703 version numbers of the X Protocol in use, and the distributor-specific release
3704 number. See also the function `x-server-vendor'.
3706 The optional argument TERMINAL specifies which display to ask about.
3707 TERMINAL should be a terminal object, a frame or a display name (a string).
3708 If omitted or nil, that stands for the selected frame's display. */)
3709 (Lisp_Object terminal
)
3711 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3712 Display
*dpy
= dpyinfo
->display
;
3714 return Fcons (make_number (ProtocolVersion (dpy
)),
3715 Fcons (make_number (ProtocolRevision (dpy
)),
3716 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3719 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3720 doc
: /* Return the number of screens on the X server of display TERMINAL.
3721 The optional argument TERMINAL specifies which display to ask about.
3722 TERMINAL should be a terminal object, a frame or a display name (a string).
3723 If omitted or nil, that stands for the selected frame's display. */)
3724 (Lisp_Object terminal
)
3726 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3728 return make_number (ScreenCount (dpyinfo
->display
));
3731 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3732 doc
: /* Return the height in millimeters of the X display TERMINAL.
3733 The optional argument TERMINAL specifies which display to ask about.
3734 TERMINAL should be a terminal object, a frame or a display name (a string).
3735 If omitted or nil, that stands for the selected frame's display. */)
3736 (Lisp_Object terminal
)
3738 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3740 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3743 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3744 doc
: /* Return the width in millimeters of the X display TERMINAL.
3745 The optional argument TERMINAL specifies which display to ask about.
3746 TERMINAL should be a terminal object, a frame or a display name (a string).
3747 If omitted or nil, that stands for the selected frame's display. */)
3748 (Lisp_Object terminal
)
3750 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3752 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3755 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3756 Sx_display_backing_store
, 0, 1, 0,
3757 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3758 The value may be `always', `when-mapped', or `not-useful'.
3759 The optional argument TERMINAL specifies which display to ask about.
3760 TERMINAL should be a terminal object, a frame or a display name (a string).
3761 If omitted or nil, that stands for the selected frame's display. */)
3762 (Lisp_Object terminal
)
3764 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3767 switch (DoesBackingStore (dpyinfo
->screen
))
3770 result
= intern ("always");
3774 result
= intern ("when-mapped");
3778 result
= intern ("not-useful");
3782 error ("Strange value for BackingStore parameter of screen");
3789 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3790 Sx_display_visual_class
, 0, 1, 0,
3791 doc
: /* Return the visual class of the X display TERMINAL.
3792 The value is one of the symbols `static-gray', `gray-scale',
3793 `static-color', `pseudo-color', `true-color', or `direct-color'.
3795 The optional argument TERMINAL specifies which display to ask about.
3796 TERMINAL should a terminal object, a frame or a display name (a string).
3797 If omitted or nil, that stands for the selected frame's display. */)
3798 (Lisp_Object terminal
)
3800 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3803 switch (dpyinfo
->visual
->class)
3806 result
= intern ("static-gray");
3809 result
= intern ("gray-scale");
3812 result
= intern ("static-color");
3815 result
= intern ("pseudo-color");
3818 result
= intern ("true-color");
3821 result
= intern ("direct-color");
3824 error ("Display has an unknown visual class");
3831 DEFUN ("x-display-save-under", Fx_display_save_under
,
3832 Sx_display_save_under
, 0, 1, 0,
3833 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3834 The optional argument TERMINAL specifies which display to ask about.
3835 TERMINAL should be a terminal object, a frame or a display name (a string).
3836 If omitted or nil, that stands for the selected frame's display. */)
3837 (Lisp_Object terminal
)
3839 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3841 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3848 x_pixel_width (register struct frame
*f
)
3850 return FRAME_PIXEL_WIDTH (f
);
3854 x_pixel_height (register struct frame
*f
)
3856 return FRAME_PIXEL_HEIGHT (f
);
3860 x_char_width (register struct frame
*f
)
3862 return FRAME_COLUMN_WIDTH (f
);
3866 x_char_height (register struct frame
*f
)
3868 return FRAME_LINE_HEIGHT (f
);
3873 /************************************************************************
3875 ************************************************************************/
3878 /* Mapping visual names to visuals. */
3880 static struct visual_class
3887 {"StaticGray", StaticGray
},
3888 {"GrayScale", GrayScale
},
3889 {"StaticColor", StaticColor
},
3890 {"PseudoColor", PseudoColor
},
3891 {"TrueColor", TrueColor
},
3892 {"DirectColor", DirectColor
},
3897 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3899 /* Value is the screen number of screen SCR. This is a substitute for
3900 the X function with the same name when that doesn't exist. */
3903 XScreenNumberOfScreen (scr
)
3904 register Screen
*scr
;
3906 Display
*dpy
= scr
->display
;
3909 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3910 if (scr
== dpy
->screens
+ i
)
3916 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3919 /* Select the visual that should be used on display DPYINFO. Set
3920 members of DPYINFO appropriately. Called from x_term_init. */
3923 select_visual (struct x_display_info
*dpyinfo
)
3925 Display
*dpy
= dpyinfo
->display
;
3926 Screen
*screen
= dpyinfo
->screen
;
3929 /* See if a visual is specified. */
3930 value
= display_x_get_resource (dpyinfo
,
3931 build_string ("visualClass"),
3932 build_string ("VisualClass"),
3934 if (STRINGP (value
))
3936 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3937 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3938 depth, a decimal number. NAME is compared with case ignored. */
3939 char *s
= (char *) alloca (SBYTES (value
) + 1);
3944 strcpy (s
, SSDATA (value
));
3945 dash
= strchr (s
, '-');
3948 dpyinfo
->n_planes
= atoi (dash
+ 1);
3952 /* We won't find a matching visual with depth 0, so that
3953 an error will be printed below. */
3954 dpyinfo
->n_planes
= 0;
3956 /* Determine the visual class. */
3957 for (i
= 0; visual_classes
[i
].name
; ++i
)
3958 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
3960 class = visual_classes
[i
].class;
3964 /* Look up a matching visual for the specified class. */
3966 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
3967 dpyinfo
->n_planes
, class, &vinfo
))
3968 fatal ("Invalid visual specification `%s'", SDATA (value
));
3970 dpyinfo
->visual
= vinfo
.visual
;
3975 XVisualInfo
*vinfo
, vinfo_template
;
3977 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
3979 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
3980 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
3981 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
3982 &vinfo_template
, &n_visuals
);
3984 fatal ("Can't get proper X visual info");
3986 dpyinfo
->n_planes
= vinfo
->depth
;
3987 XFree ((char *) vinfo
);
3992 /* Return the X display structure for the display named NAME.
3993 Open a new connection if necessary. */
3995 static struct x_display_info
*
3996 x_display_info_for_name (Lisp_Object name
)
3999 struct x_display_info
*dpyinfo
;
4001 CHECK_STRING (name
);
4004 if (! EQ (Vinitial_window_system
, intern ("x")))
4005 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4008 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4010 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4013 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4018 /* Use this general default value to start with. */
4019 Vx_resource_name
= Vinvocation_name
;
4021 validate_x_resource_name ();
4023 dpyinfo
= x_term_init (name
, (char *)0,
4024 SSDATA (Vx_resource_name
));
4027 error ("Cannot connect to X server %s", SDATA (name
));
4030 XSETFASTINT (Vwindow_system_version
, 11);
4036 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4038 doc
: /* Open a connection to a display server.
4039 DISPLAY is the name of the display to connect to.
4040 Optional second arg XRM-STRING is a string of resources in xrdb format.
4041 If the optional third arg MUST-SUCCEED is non-nil,
4042 terminate Emacs if we can't open the connection.
4043 \(In the Nextstep version, the last two arguments are currently ignored.) */)
4044 (Lisp_Object display
, Lisp_Object xrm_string
, Lisp_Object must_succeed
)
4047 struct x_display_info
*dpyinfo
;
4049 CHECK_STRING (display
);
4050 if (! NILP (xrm_string
))
4051 CHECK_STRING (xrm_string
);
4054 if (! EQ (Vinitial_window_system
, intern ("x")))
4055 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4058 if (! NILP (xrm_string
))
4059 xrm_option
= SSDATA (xrm_string
);
4061 xrm_option
= (char *) 0;
4063 validate_x_resource_name ();
4065 /* This is what opens the connection and sets x_current_display.
4066 This also initializes many symbols, such as those used for input. */
4067 dpyinfo
= x_term_init (display
, xrm_option
,
4068 SSDATA (Vx_resource_name
));
4072 if (!NILP (must_succeed
))
4073 fatal ("Cannot connect to X server %s.\n\
4074 Check the DISPLAY environment variable or use `-d'.\n\
4075 Also use the `xauth' program to verify that you have the proper\n\
4076 authorization information needed to connect the X server.\n\
4077 An insecure way to solve the problem may be to use `xhost'.\n",
4080 error ("Cannot connect to X server %s", SDATA (display
));
4085 XSETFASTINT (Vwindow_system_version
, 11);
4089 DEFUN ("x-close-connection", Fx_close_connection
,
4090 Sx_close_connection
, 1, 1, 0,
4091 doc
: /* Close the connection to TERMINAL's X server.
4092 For TERMINAL, specify a terminal object, a frame or a display name (a
4093 string). If TERMINAL is nil, that stands for the selected frame's
4095 (Lisp_Object terminal
)
4097 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4099 if (dpyinfo
->reference_count
> 0)
4100 error ("Display still has frames on it");
4102 x_delete_terminal (dpyinfo
->terminal
);
4107 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4108 doc
: /* Return the list of display names that Emacs has connections to. */)
4111 Lisp_Object tail
, result
;
4114 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4115 result
= Fcons (XCAR (XCAR (tail
)), result
);
4120 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4121 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4122 This function only has an effect on X Windows. With MS Windows, it is
4123 defined but does nothing.
4125 If ON is nil, allow buffering of requests.
4126 Turning on synchronization prohibits the Xlib routines from buffering
4127 requests and seriously degrades performance, but makes debugging much
4129 The optional second argument TERMINAL specifies which display to act on.
4130 TERMINAL should be a terminal object, a frame or a display name (a string).
4131 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4132 (Lisp_Object on
, Lisp_Object terminal
)
4134 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4136 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4141 /* Wait for responses to all X commands issued so far for frame F. */
4144 x_sync (FRAME_PTR f
)
4147 XSync (FRAME_X_DISPLAY (f
), False
);
4152 /***********************************************************************
4154 ***********************************************************************/
4156 DEFUN ("x-change-window-property", Fx_change_window_property
,
4157 Sx_change_window_property
, 2, 6, 0,
4158 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4159 PROP must be a string. VALUE may be a string or a list of conses,
4160 numbers and/or strings. If an element in the list is a string, it is
4161 converted to an atom and the value of the atom is used. If an element
4162 is a cons, it is converted to a 32 bit number where the car is the 16
4163 top bits and the cdr is the lower 16 bits.
4165 FRAME nil or omitted means use the selected frame.
4166 If TYPE is given and non-nil, it is the name of the type of VALUE.
4167 If TYPE is not given or nil, the type is STRING.
4168 FORMAT gives the size in bits of each element if VALUE is a list.
4169 It must be one of 8, 16 or 32.
4170 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4171 If OUTER_P is non-nil, the property is changed for the outer X window of
4172 FRAME. Default is to change on the edit X window. */)
4173 (Lisp_Object prop
, Lisp_Object value
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4175 struct frame
*f
= check_x_frame (frame
);
4177 Atom target_type
= XA_STRING
;
4178 int element_format
= 8;
4179 unsigned char *data
;
4183 CHECK_STRING (prop
);
4185 if (! NILP (format
))
4187 CHECK_NUMBER (format
);
4188 element_format
= XFASTINT (format
);
4190 if (element_format
!= 8 && element_format
!= 16
4191 && element_format
!= 32)
4192 error ("FORMAT must be one of 8, 16 or 32");
4197 nelements
= x_check_property_data (value
);
4198 if (nelements
== -1)
4199 error ("Bad data in VALUE, must be number, string or cons");
4201 if (element_format
== 8)
4202 data
= (unsigned char *) xmalloc (nelements
);
4203 else if (element_format
== 16)
4204 data
= (unsigned char *) xmalloc (nelements
*2);
4205 else /* format == 32 */
4206 /* The man page for XChangeProperty:
4207 "If the specified format is 32, the property data must be a
4209 This applies even if long is more than 64 bits. The X library
4210 converts to 32 bits before sending to the X server. */
4211 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4213 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4217 CHECK_STRING (value
);
4218 data
= SDATA (value
);
4219 nelements
= SCHARS (value
);
4223 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4226 CHECK_STRING (type
);
4227 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4230 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4231 else w
= FRAME_X_WINDOW (f
);
4233 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4234 prop_atom
, target_type
, element_format
, PropModeReplace
,
4237 if (CONSP (value
)) xfree (data
);
4239 /* Make sure the property is set when we return. */
4240 XFlush (FRAME_X_DISPLAY (f
));
4247 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4248 Sx_delete_window_property
, 1, 2, 0,
4249 doc
: /* Remove window property PROP from X window of FRAME.
4250 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4251 (Lisp_Object prop
, Lisp_Object frame
)
4253 struct frame
*f
= check_x_frame (frame
);
4256 CHECK_STRING (prop
);
4258 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4259 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4261 /* Make sure the property is removed when we return. */
4262 XFlush (FRAME_X_DISPLAY (f
));
4269 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4271 doc
: /* Value is the value of window property PROP on FRAME.
4272 If FRAME is nil or omitted, use the selected frame.
4274 On MS Windows, this function only accepts the PROP and FRAME arguments.
4276 On X Windows, the following optional arguments are also accepted:
4277 If TYPE is nil or omitted, get the property as a string.
4278 Otherwise TYPE is the name of the atom that denotes the type expected.
4279 If SOURCE is non-nil, get the property on that window instead of from
4280 FRAME. The number 0 denotes the root window.
4281 If DELETE_P is non-nil, delete the property after retreiving it.
4282 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4284 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4285 no value of TYPE (always string in the MS Windows case). */)
4286 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4288 struct frame
*f
= check_x_frame (frame
);
4291 Lisp_Object prop_value
= Qnil
;
4292 unsigned char *tmp_data
= NULL
;
4294 Atom target_type
= XA_STRING
;
4296 unsigned long actual_size
, bytes_remaining
;
4297 Window target_window
= FRAME_X_WINDOW (f
);
4298 struct gcpro gcpro1
;
4300 GCPRO1 (prop_value
);
4301 CHECK_STRING (prop
);
4303 if (! NILP (source
))
4305 CONS_TO_INTEGER (source
, Window
, target_window
);
4306 if (! target_window
)
4307 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4313 if (strcmp ("AnyPropertyType", SSDATA (type
)) == 0)
4314 target_type
= AnyPropertyType
;
4316 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4319 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4320 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4321 prop_atom
, 0, 0, False
, target_type
,
4322 &actual_type
, &actual_format
, &actual_size
,
4323 &bytes_remaining
, &tmp_data
);
4326 int size
= bytes_remaining
;
4331 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4332 prop_atom
, 0, bytes_remaining
,
4333 ! NILP (delete_p
), target_type
,
4334 &actual_type
, &actual_format
,
4335 &actual_size
, &bytes_remaining
,
4337 if (rc
== Success
&& tmp_data
)
4339 /* The man page for XGetWindowProperty says:
4340 "If the returned format is 32, the returned data is represented
4341 as a long array and should be cast to that type to obtain the
4343 This applies even if long is more than 32 bits, the X library
4344 converts from 32 bit elements received from the X server to long
4345 and passes the long array to us. Thus, for that case memcpy can not
4346 be used. We convert to a 32 bit type here, because so much code
4349 The bytes and offsets passed to XGetWindowProperty refers to the
4350 property and those are indeed in 32 bit quantities if format is
4353 if (32 < BITS_PER_LONG
&& actual_format
== 32)
4356 int *idata
= (int *) tmp_data
;
4357 long *ldata
= (long *) tmp_data
;
4359 for (i
= 0; i
< actual_size
; ++i
)
4360 idata
[i
] = (int) ldata
[i
];
4363 if (NILP (vector_ret_p
))
4364 prop_value
= make_string ((char *) tmp_data
, size
);
4366 prop_value
= x_property_data_to_lisp (f
,
4373 if (tmp_data
) XFree (tmp_data
);
4383 /***********************************************************************
4385 ***********************************************************************/
4387 /* Timer function of hourglass_atimer. TIMER is equal to
4390 Display an hourglass pointer on all frames by mapping the frames'
4391 hourglass_window. Set the hourglass_p flag in the frames'
4392 output_data.x structure to indicate that an hourglass cursor is
4393 shown on the frames. */
4396 show_hourglass (struct atimer
*timer
)
4398 /* The timer implementation will cancel this timer automatically
4399 after this function has run. Set hourglass_atimer to null
4400 so that we know the timer doesn't have to be canceled. */
4401 hourglass_atimer
= NULL
;
4403 if (!hourglass_shown_p
)
4405 Lisp_Object rest
, frame
;
4409 FOR_EACH_FRAME (rest
, frame
)
4411 struct frame
*f
= XFRAME (frame
);
4413 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4415 Display
*dpy
= FRAME_X_DISPLAY (f
);
4417 #ifdef USE_X_TOOLKIT
4418 if (f
->output_data
.x
->widget
)
4420 if (FRAME_OUTER_WINDOW (f
))
4423 f
->output_data
.x
->hourglass_p
= 1;
4425 if (!f
->output_data
.x
->hourglass_window
)
4427 unsigned long mask
= CWCursor
;
4428 XSetWindowAttributes attrs
;
4430 Window parent
= FRAME_X_WINDOW (f
);
4432 Window parent
= FRAME_OUTER_WINDOW (f
);
4434 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4436 f
->output_data
.x
->hourglass_window
4437 = XCreateWindow (dpy
, parent
,
4438 0, 0, 32000, 32000, 0, 0,
4444 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4450 hourglass_shown_p
= 1;
4456 /* Hide the hourglass pointer on all frames, if it is currently
4460 hide_hourglass (void)
4462 if (hourglass_shown_p
)
4464 Lisp_Object rest
, frame
;
4467 FOR_EACH_FRAME (rest
, frame
)
4469 struct frame
*f
= XFRAME (frame
);
4472 /* Watch out for newly created frames. */
4473 && f
->output_data
.x
->hourglass_window
)
4475 XUnmapWindow (FRAME_X_DISPLAY (f
),
4476 f
->output_data
.x
->hourglass_window
);
4477 /* Sync here because XTread_socket looks at the
4478 hourglass_p flag that is reset to zero below. */
4479 XSync (FRAME_X_DISPLAY (f
), False
);
4480 f
->output_data
.x
->hourglass_p
= 0;
4484 hourglass_shown_p
= 0;
4491 /***********************************************************************
4493 ***********************************************************************/
4495 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4496 Lisp_Object
, Lisp_Object
);
4497 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4498 Lisp_Object
, int, int, int *, int *);
4500 /* The frame of a currently visible tooltip. */
4502 Lisp_Object tip_frame
;
4504 /* If non-nil, a timer started that hides the last tooltip when it
4507 static Lisp_Object tip_timer
;
4510 /* If non-nil, a vector of 3 elements containing the last args
4511 with which x-show-tip was called. See there. */
4513 static Lisp_Object last_show_tip_args
;
4517 unwind_create_tip_frame (Lisp_Object frame
)
4519 Lisp_Object deleted
;
4521 deleted
= unwind_create_frame (frame
);
4522 if (EQ (deleted
, Qt
))
4532 /* Create a frame for a tooltip on the display described by DPYINFO.
4533 PARMS is a list of frame parameters. TEXT is the string to
4534 display in the tip frame. Value is the frame.
4536 Note that functions called here, esp. x_default_parameter can
4537 signal errors, for instance when a specified color name is
4538 undefined. We have to make sure that we're in a consistent state
4539 when this happens. */
4542 x_create_tip_frame (struct x_display_info
*dpyinfo
,
4550 int count
= SPECPDL_INDEX ();
4551 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4552 int face_change_count_before
= face_change_count
;
4554 struct buffer
*old_buffer
;
4558 if (!dpyinfo
->terminal
->name
)
4559 error ("Terminal is not live, can't create new frames on it");
4561 parms
= Fcopy_alist (parms
);
4563 /* Get the name of the frame to use for resource lookup. */
4564 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4566 && !EQ (name
, Qunbound
)
4568 error ("Invalid frame name--not a string or nil");
4571 GCPRO3 (parms
, name
, frame
);
4573 XSETFRAME (frame
, f
);
4575 buffer
= Fget_buffer_create (build_string (" *tip*"));
4576 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4577 old_buffer
= current_buffer
;
4578 set_buffer_internal_1 (XBUFFER (buffer
));
4579 BVAR (current_buffer
, truncate_lines
) = Qnil
;
4580 specbind (Qinhibit_read_only
, Qt
);
4581 specbind (Qinhibit_modification_hooks
, Qt
);
4584 set_buffer_internal_1 (old_buffer
);
4586 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4587 record_unwind_protect (unwind_create_tip_frame
, frame
);
4589 f
->terminal
= dpyinfo
->terminal
;
4590 f
->terminal
->reference_count
++;
4592 /* By setting the output method, we're essentially saying that
4593 the frame is live, as per FRAME_LIVE_P. If we get a signal
4594 from this point on, x_destroy_window might screw up reference
4596 f
->output_method
= output_x_window
;
4597 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4598 memset (f
->output_data
.x
, 0, sizeof (struct x_output
));
4599 f
->output_data
.x
->icon_bitmap
= -1;
4600 FRAME_FONTSET (f
) = -1;
4601 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4602 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4603 #ifdef USE_TOOLKIT_SCROLL_BARS
4604 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4605 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4606 #endif /* USE_TOOLKIT_SCROLL_BARS */
4607 f
->icon_name
= Qnil
;
4608 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4609 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4610 f
->output_data
.x
->explicit_parent
= 0;
4612 /* These colors will be set anyway later, but it's important
4613 to get the color reference counts right, so initialize them! */
4616 struct gcpro inner_gcpro1
;
4618 /* Function x_decode_color can signal an error. Make
4619 sure to initialize color slots so that we won't try
4620 to free colors we haven't allocated. */
4621 FRAME_FOREGROUND_PIXEL (f
) = -1;
4622 FRAME_BACKGROUND_PIXEL (f
) = -1;
4623 f
->output_data
.x
->cursor_pixel
= -1;
4624 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4625 f
->output_data
.x
->border_pixel
= -1;
4626 f
->output_data
.x
->mouse_pixel
= -1;
4628 black
= build_string ("black");
4629 GCPRO1_VAR (black
, inner_gcpro
);
4630 FRAME_FOREGROUND_PIXEL (f
)
4631 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4632 FRAME_BACKGROUND_PIXEL (f
)
4633 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4634 f
->output_data
.x
->cursor_pixel
4635 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4636 f
->output_data
.x
->cursor_foreground_pixel
4637 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4638 f
->output_data
.x
->border_pixel
4639 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4640 f
->output_data
.x
->mouse_pixel
4641 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4642 UNGCPRO_VAR (inner_gcpro
);
4645 /* Set the name; the functions to which we pass f expect the name to
4647 if (EQ (name
, Qunbound
) || NILP (name
))
4649 f
->name
= build_string (dpyinfo
->x_id_name
);
4650 f
->explicit_name
= 0;
4655 f
->explicit_name
= 1;
4656 /* use the frame's title when getting resources for this frame. */
4657 specbind (Qx_resource_name
, name
);
4660 f
->resx
= dpyinfo
->resx
;
4661 f
->resy
= dpyinfo
->resy
;
4663 register_font_driver (&xfont_driver
, f
);
4664 #ifdef HAVE_FREETYPE
4666 register_font_driver (&xftfont_driver
, f
);
4667 #else /* not HAVE_XFT */
4668 register_font_driver (&ftxfont_driver
, f
);
4669 #endif /* not HAVE_XFT */
4670 #endif /* HAVE_FREETYPE */
4672 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4673 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4675 /* Extract the window parameters from the supplied values that are
4676 needed to determine window geometry. */
4677 x_default_font_parameter (f
, parms
);
4679 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
4680 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4682 /* This defaults to 2 in order to match xterm. We recognize either
4683 internalBorderWidth or internalBorder (which is what xterm calls
4685 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4689 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4690 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4691 if (! EQ (value
, Qunbound
))
4692 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4696 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4697 "internalBorderWidth", "internalBorderWidth",
4700 /* Also do the stuff which must be set before the window exists. */
4701 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4702 "foreground", "Foreground", RES_TYPE_STRING
);
4703 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4704 "background", "Background", RES_TYPE_STRING
);
4705 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4706 "pointerColor", "Foreground", RES_TYPE_STRING
);
4707 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4708 "cursorColor", "Foreground", RES_TYPE_STRING
);
4709 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4710 "borderColor", "BorderColor", RES_TYPE_STRING
);
4712 /* Init faces before x_default_parameter is called for scroll-bar
4713 parameters because that function calls x_set_scroll_bar_width,
4714 which calls change_frame_size, which calls Fset_window_buffer,
4715 which runs hooks, which call Fvertical_motion. At the end, we
4716 end up in init_iterator with a null face cache, which should not
4718 init_frame_faces (f
);
4721 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
4722 dpyinfo_refcount
= dpyinfo
->reference_count
;
4723 #endif /* GLYPH_DEBUG */
4725 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4727 x_figure_window_size (f
, parms
, 0);
4730 XSetWindowAttributes attrs
;
4732 Atom type
= FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
4735 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4736 if (DoesSaveUnders (dpyinfo
->screen
))
4737 mask
|= CWSaveUnder
;
4739 /* Window managers look at the override-redirect flag to determine
4740 whether or net to give windows a decoration (Xlib spec, chapter
4742 attrs
.override_redirect
= True
;
4743 attrs
.save_under
= True
;
4744 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4745 /* Arrange for getting MapNotify and UnmapNotify events. */
4746 attrs
.event_mask
= StructureNotifyMask
;
4748 = FRAME_X_WINDOW (f
)
4749 = XCreateWindow (FRAME_X_DISPLAY (f
),
4750 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4751 /* x, y, width, height */
4755 CopyFromParent
, InputOutput
, CopyFromParent
,
4757 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
4758 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type
,
4759 XA_ATOM
, 32, PropModeReplace
,
4760 (unsigned char *)&type
, 1);
4766 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4767 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4768 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4769 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4770 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4771 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4773 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4774 Change will not be effected unless different from the current
4776 width
= FRAME_COLS (f
);
4777 height
= FRAME_LINES (f
);
4778 SET_FRAME_COLS (f
, 0);
4779 FRAME_LINES (f
) = 0;
4780 change_frame_size (f
, height
, width
, 1, 0, 0);
4782 /* Add `tooltip' frame parameter's default value. */
4783 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
4784 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qtooltip
, Qt
), Qnil
));
4786 /* FIXME - can this be done in a similar way to normal frames?
4787 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
4789 /* Set the `display-type' frame parameter before setting up faces. */
4791 Lisp_Object disptype
;
4793 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4794 disptype
= intern ("mono");
4795 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
4796 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4797 disptype
= intern ("grayscale");
4799 disptype
= intern ("color");
4801 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4802 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4806 /* Set up faces after all frame parameters are known. This call
4807 also merges in face attributes specified for new frames.
4809 Frame parameters may be changed if .Xdefaults contains
4810 specifications for the default font. For example, if there is an
4811 `Emacs.default.attributeBackground: pink', the `background-color'
4812 attribute of the frame get's set, which let's the internal border
4813 of the tooltip frame appear in pink. Prevent this. */
4815 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4817 /* Set tip_frame here, so that */
4819 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
4821 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4822 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4830 /* It is now ok to make the frame official even if we get an error
4831 below. And the frame needs to be on Vframe_list or making it
4832 visible won't work. */
4833 Vframe_list
= Fcons (frame
, Vframe_list
);
4835 /* Now that the frame is official, it counts as a reference to
4837 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4839 /* Setting attributes of faces of the tooltip frame from resources
4840 and similar will increment face_change_count, which leads to the
4841 clearing of all current matrices. Since this isn't necessary
4842 here, avoid it by resetting face_change_count to the value it
4843 had before we created the tip frame. */
4844 face_change_count
= face_change_count_before
;
4846 /* Discard the unwind_protect. */
4847 return unbind_to (count
, frame
);
4851 /* Compute where to display tip frame F. PARMS is the list of frame
4852 parameters for F. DX and DY are specified offsets from the current
4853 location of the mouse. WIDTH and HEIGHT are the width and height
4854 of the tooltip. Return coordinates relative to the root window of
4855 the display in *ROOT_X, and *ROOT_Y. */
4858 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
)
4860 Lisp_Object left
, top
;
4865 /* User-specified position? */
4866 left
= Fcdr (Fassq (Qleft
, parms
));
4867 top
= Fcdr (Fassq (Qtop
, parms
));
4869 /* Move the tooltip window where the mouse pointer is. Resize and
4871 if (!INTEGERP (left
) || !INTEGERP (top
))
4874 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4875 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4880 *root_y
= XINT (top
);
4881 else if (*root_y
+ XINT (dy
) <= 0)
4882 *root_y
= 0; /* Can happen for negative dy */
4883 else if (*root_y
+ XINT (dy
) + height
4884 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
4885 /* It fits below the pointer */
4886 *root_y
+= XINT (dy
);
4887 else if (height
+ XINT (dy
) <= *root_y
)
4888 /* It fits above the pointer. */
4889 *root_y
-= height
+ XINT (dy
);
4891 /* Put it on the top. */
4894 if (INTEGERP (left
))
4895 *root_x
= XINT (left
);
4896 else if (*root_x
+ XINT (dx
) <= 0)
4897 *root_x
= 0; /* Can happen for negative dx */
4898 else if (*root_x
+ XINT (dx
) + width
4899 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
4900 /* It fits to the right of the pointer. */
4901 *root_x
+= XINT (dx
);
4902 else if (width
+ XINT (dx
) <= *root_x
)
4903 /* It fits to the left of the pointer. */
4904 *root_x
-= width
+ XINT (dx
);
4906 /* Put it left-justified on the screen--it ought to fit that way. */
4911 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4912 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4913 A tooltip window is a small X window displaying a string.
4915 This is an internal function; Lisp code should call `tooltip-show'.
4917 FRAME nil or omitted means use the selected frame.
4919 PARMS is an optional list of frame parameters which can be used to
4920 change the tooltip's appearance.
4922 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4923 means use the default timeout of 5 seconds.
4925 If the list of frame parameters PARMS contains a `left' parameters,
4926 the tooltip is displayed at that x-position. Otherwise it is
4927 displayed at the mouse position, with offset DX added (default is 5 if
4928 DX isn't specified). Likewise for the y-position; if a `top' frame
4929 parameter is specified, it determines the y-position of the tooltip
4930 window, otherwise it is displayed at the mouse position, with offset
4931 DY added (default is -10).
4933 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4934 Text larger than the specified size is clipped. */)
4935 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
4940 struct buffer
*old_buffer
;
4941 struct text_pos pos
;
4942 int i
, width
, height
, seen_reversed_p
;
4943 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
4944 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
4945 int count
= SPECPDL_INDEX ();
4947 specbind (Qinhibit_redisplay
, Qt
);
4949 GCPRO4 (string
, parms
, frame
, timeout
);
4951 CHECK_STRING (string
);
4952 if (SCHARS (string
) == 0)
4953 string
= make_unibyte_string (" ", 1);
4955 f
= check_x_frame (frame
);
4957 timeout
= make_number (5);
4959 CHECK_NATNUM (timeout
);
4962 dx
= make_number (5);
4967 dy
= make_number (-10);
4972 if (x_gtk_use_system_tooltips
)
4976 /* Hide a previous tip, if any. */
4980 if ((ok
= xg_prepare_tooltip (f
, string
, &width
, &height
)) != 0)
4982 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
4983 xg_show_tooltip (f
, root_x
, root_y
);
4984 /* This is used in Fx_hide_tip. */
4985 XSETFRAME (tip_frame
, f
);
4988 if (ok
) goto start_timer
;
4990 #endif /* USE_GTK */
4992 if (NILP (last_show_tip_args
))
4993 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
4995 if (!NILP (tip_frame
))
4997 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
4998 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
4999 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5001 if (EQ (frame
, last_frame
)
5002 && !NILP (Fequal (last_string
, string
))
5003 && !NILP (Fequal (last_parms
, parms
)))
5005 struct frame
*tip_f
= XFRAME (tip_frame
);
5007 /* Only DX and DY have changed. */
5008 if (!NILP (tip_timer
))
5010 Lisp_Object timer
= tip_timer
;
5012 call1 (Qcancel_timer
, timer
);
5016 compute_tip_xy (tip_f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (tip_f
),
5017 FRAME_PIXEL_HEIGHT (tip_f
), &root_x
, &root_y
);
5018 XMoveWindow (FRAME_X_DISPLAY (tip_f
), FRAME_X_WINDOW (tip_f
),
5025 /* Hide a previous tip, if any. */
5028 ASET (last_show_tip_args
, 0, string
);
5029 ASET (last_show_tip_args
, 1, frame
);
5030 ASET (last_show_tip_args
, 2, parms
);
5032 /* Add default values to frame parameters. */
5033 if (NILP (Fassq (Qname
, parms
)))
5034 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5035 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5036 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5037 if (NILP (Fassq (Qborder_width
, parms
)))
5038 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5039 if (NILP (Fassq (Qborder_color
, parms
)))
5040 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5041 if (NILP (Fassq (Qbackground_color
, parms
)))
5042 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5045 /* Create a frame for the tooltip, and record it in the global
5046 variable tip_frame. */
5047 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5050 /* Set up the frame's root window. */
5051 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5052 w
->left_col
= w
->top_line
= make_number (0);
5054 if (CONSP (Vx_max_tooltip_size
)
5055 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5056 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5057 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5058 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5060 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5061 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5065 w
->total_cols
= make_number (80);
5066 w
->total_lines
= make_number (40);
5069 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5071 w
->pseudo_window_p
= 1;
5073 /* Display the tooltip text in a temporary buffer. */
5074 old_buffer
= current_buffer
;
5075 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5076 BVAR (current_buffer
, truncate_lines
) = Qnil
;
5077 clear_glyph_matrix (w
->desired_matrix
);
5078 clear_glyph_matrix (w
->current_matrix
);
5079 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5080 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5082 /* Compute width and height of the tooltip. */
5083 width
= height
= seen_reversed_p
= 0;
5084 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5086 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5090 /* Stop at the first empty row at the end. */
5091 if (!row
->enabled_p
|| !row
->displays_text_p
)
5094 /* Let the row go over the full width of the frame. */
5095 row
->full_width_p
= 1;
5097 row_width
= row
->pixel_width
;
5098 if (row
->used
[TEXT_AREA
])
5100 /* There's a glyph at the end of rows that is used to place
5101 the cursor there. Don't include the width of this glyph. */
5102 if (!row
->reversed_p
)
5104 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5105 if (INTEGERP (last
->object
))
5106 row_width
-= last
->pixel_width
;
5110 /* There could be a stretch glyph at the beginning of R2L
5111 rows that is produced by extend_face_to_end_of_line.
5112 Don't count that glyph. */
5113 struct glyph
*g
= row
->glyphs
[TEXT_AREA
];
5115 if (g
->type
== STRETCH_GLYPH
&& INTEGERP (g
->object
))
5117 row_width
-= g
->pixel_width
;
5118 seen_reversed_p
= 1;
5123 height
+= row
->height
;
5124 width
= max (width
, row_width
);
5127 /* If we've seen partial-length R2L rows, we need to re-adjust the
5128 tool-tip frame width and redisplay it again, to avoid over-wide
5129 tips due to the stretch glyph that extends R2L lines to full
5130 width of the frame. */
5131 if (seen_reversed_p
)
5133 /* w->total_cols and FRAME_TOTAL_COLS want the width in columns,
5135 width
/= WINDOW_FRAME_COLUMN_WIDTH (w
);
5136 w
->total_cols
= make_number (width
);
5137 FRAME_TOTAL_COLS (f
) = width
;
5139 clear_glyph_matrix (w
->desired_matrix
);
5140 clear_glyph_matrix (w
->current_matrix
);
5141 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5143 /* Recompute width and height of the tooltip. */
5144 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5146 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5150 if (!row
->enabled_p
|| !row
->displays_text_p
)
5152 row
->full_width_p
= 1;
5153 row_width
= row
->pixel_width
;
5154 if (row
->used
[TEXT_AREA
] && !row
->reversed_p
)
5156 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5157 if (INTEGERP (last
->object
))
5158 row_width
-= last
->pixel_width
;
5161 height
+= row
->height
;
5162 width
= max (width
, row_width
);
5166 /* Add the frame's internal border to the width and height the X
5167 window should have. */
5168 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5169 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5171 /* Move the tooltip window where the mouse pointer is. Resize and
5173 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5176 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5177 root_x
, root_y
, width
, height
);
5178 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5181 /* Draw into the window. */
5182 w
->must_be_updated_p
= 1;
5183 update_single_window (w
, 1);
5185 /* Restore original current buffer. */
5186 set_buffer_internal_1 (old_buffer
);
5187 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5190 /* Let the tip disappear after timeout seconds. */
5191 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5192 intern ("x-hide-tip"));
5195 return unbind_to (count
, Qnil
);
5199 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5200 doc
: /* Hide the current tooltip window, if there is any.
5201 Value is t if tooltip was open, nil otherwise. */)
5205 Lisp_Object deleted
, frame
, timer
;
5206 struct gcpro gcpro1
, gcpro2
;
5208 /* Return quickly if nothing to do. */
5209 if (NILP (tip_timer
) && NILP (tip_frame
))
5214 GCPRO2 (frame
, timer
);
5215 tip_frame
= tip_timer
= deleted
= Qnil
;
5217 count
= SPECPDL_INDEX ();
5218 specbind (Qinhibit_redisplay
, Qt
);
5219 specbind (Qinhibit_quit
, Qt
);
5222 call1 (Qcancel_timer
, timer
);
5226 /* When using system tooltip, tip_frame is the Emacs frame on which
5227 the tip is shown. */
5228 struct frame
*f
= XFRAME (frame
);
5229 if (FRAME_LIVE_P (f
) && xg_hide_tooltip (f
))
5236 delete_frame (frame
, Qnil
);
5240 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5241 redisplay procedure is not called when a tip frame over menu
5242 items is unmapped. Redisplay the menu manually... */
5245 struct frame
*f
= SELECTED_FRAME ();
5246 w
= f
->output_data
.x
->menubar_widget
;
5248 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5252 xlwmenu_redisplay (w
);
5256 #endif /* USE_LUCID */
5260 return unbind_to (count
, deleted
);
5265 /***********************************************************************
5266 File selection dialog
5267 ***********************************************************************/
5269 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5270 Sx_uses_old_gtk_dialog
,
5272 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5279 && xg_uses_old_file_dialog ())
5287 /* Callback for "OK" and "Cancel" on file selection dialog. */
5290 file_dialog_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5292 int *result
= (int *) client_data
;
5293 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5294 *result
= cb
->reason
;
5298 /* Callback for unmapping a file selection dialog. This is used to
5299 capture the case where a dialog is closed via a window manager's
5300 closer button, for example. Using a XmNdestroyCallback didn't work
5304 file_dialog_unmap_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5306 int *result
= (int *) client_data
;
5307 *result
= XmCR_CANCEL
;
5311 clean_up_file_dialog (Lisp_Object arg
)
5313 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5314 Widget dialog
= (Widget
) p
->pointer
;
5318 XtUnmanageChild (dialog
);
5319 XtDestroyWidget (dialog
);
5320 x_menu_set_in_use (0);
5327 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5328 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5329 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5330 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5331 or directory must exist.
5333 This function is only defined on MS Windows, and X Windows with the
5334 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5335 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5336 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5339 struct frame
*f
= SELECTED_FRAME ();
5340 Lisp_Object file
= Qnil
;
5341 Lisp_Object decoded_file
;
5342 Widget dialog
, text
, help
;
5345 XmString dir_xmstring
, pattern_xmstring
;
5346 int count
= SPECPDL_INDEX ();
5347 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5351 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5353 if (popup_activated ())
5354 error ("Trying to use a menu from within a menu-entry");
5356 CHECK_STRING (prompt
);
5359 /* Prevent redisplay. */
5360 specbind (Qinhibit_redisplay
, Qt
);
5364 /* Create the dialog with PROMPT as title, using DIR as initial
5365 directory and using "*" as pattern. */
5366 dir
= Fexpand_file_name (dir
, Qnil
);
5367 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5368 pattern_xmstring
= XmStringCreateLocalized ("*");
5370 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5371 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5372 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5373 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5374 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5375 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5377 XmStringFree (dir_xmstring
);
5378 XmStringFree (pattern_xmstring
);
5380 /* Add callbacks for OK and Cancel. */
5381 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5382 (XtPointer
) &result
);
5383 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5384 (XtPointer
) &result
);
5385 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5386 (XtPointer
) &result
);
5388 /* Remove the help button since we can't display help. */
5389 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5390 XtUnmanageChild (help
);
5392 /* Mark OK button as default. */
5393 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5394 XmNshowAsDefault
, True
, NULL
);
5396 /* If MUSTMATCH is non-nil, disable the file entry field of the
5397 dialog, so that the user must select a file from the files list
5398 box. We can't remove it because we wouldn't have a way to get at
5399 the result file name, then. */
5400 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5401 if (!NILP (mustmatch
))
5404 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5405 XtSetSensitive (text
, False
);
5406 XtSetSensitive (label
, False
);
5409 /* Manage the dialog, so that list boxes get filled. */
5410 XtManageChild (dialog
);
5412 if (STRINGP (default_filename
))
5414 XmString default_xmstring
;
5415 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5416 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5418 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5419 XmTextFieldReplace (wtext
, 0, last_pos
,
5420 (SDATA (Ffile_name_nondirectory (default_filename
))));
5422 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5423 must include the path for this to work. */
5425 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5427 if (XmListItemExists (list
, default_xmstring
))
5429 int item_pos
= XmListItemPos (list
, default_xmstring
);
5430 /* Select the item and scroll it into view. */
5431 XmListSelectPos (list
, item_pos
, True
);
5432 XmListSetPos (list
, item_pos
);
5435 XmStringFree (default_xmstring
);
5438 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5440 /* Process events until the user presses Cancel or OK. */
5441 x_menu_set_in_use (1);
5446 x_menu_wait_for_event (0);
5447 XtAppNextEvent (Xt_app_con
, &event
);
5448 if (event
.type
== KeyPress
5449 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5451 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5453 /* Pop down on C-g. */
5454 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5455 XtUnmanageChild (dialog
);
5458 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5461 /* Get the result. */
5462 if (result
== XmCR_OK
)
5464 XmString text_string
;
5467 XtVaGetValues (dialog
, XmNtextString
, &text_string
, NULL
);
5468 XmStringGetLtoR (text_string
, XmFONTLIST_DEFAULT_TAG
, &data
);
5469 XmStringFree (text_string
);
5470 file
= build_string (data
);
5479 /* Make "Cancel" equivalent to C-g. */
5481 Fsignal (Qquit
, Qnil
);
5483 decoded_file
= DECODE_FILE (file
);
5485 return unbind_to (count
, decoded_file
);
5488 #endif /* USE_MOTIF */
5493 clean_up_dialog (Lisp_Object arg
)
5495 x_menu_set_in_use (0);
5500 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5501 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5502 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5503 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5504 or directory must exist.
5506 This function is only defined on MS Windows, and X Windows with the
5507 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5508 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5509 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5511 FRAME_PTR f
= SELECTED_FRAME ();
5513 Lisp_Object file
= Qnil
;
5514 Lisp_Object decoded_file
;
5515 int count
= SPECPDL_INDEX ();
5516 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5521 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5523 if (popup_activated ())
5524 error ("Trying to use a menu from within a menu-entry");
5526 CHECK_STRING (prompt
);
5529 /* Prevent redisplay. */
5530 specbind (Qinhibit_redisplay
, Qt
);
5531 record_unwind_protect (clean_up_dialog
, Qnil
);
5535 if (STRINGP (default_filename
))
5536 cdef_file
= SSDATA (default_filename
);
5538 cdef_file
= SSDATA (dir
);
5540 fn
= xg_get_file_name (f
, SSDATA (prompt
), cdef_file
,
5542 ! NILP (only_dir_p
));
5546 file
= build_string (fn
);
5553 /* Make "Cancel" equivalent to C-g. */
5555 Fsignal (Qquit
, Qnil
);
5557 decoded_file
= DECODE_FILE (file
);
5559 return unbind_to (count
, decoded_file
);
5563 #ifdef HAVE_FREETYPE
5565 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5566 doc
: /* Read a font name using a GTK font selection dialog.
5567 Return a GTK-style font string corresponding to the selection.
5569 If FRAME is omitted or nil, it defaults to the selected frame. */)
5570 (Lisp_Object frame
, Lisp_Object ignored
)
5572 FRAME_PTR f
= check_x_frame (frame
);
5575 Lisp_Object font_param
;
5576 char *default_name
= NULL
;
5577 struct gcpro gcpro1
, gcpro2
;
5578 int count
= SPECPDL_INDEX ();
5582 if (popup_activated ())
5583 error ("Trying to use a menu from within a menu-entry");
5585 /* Prevent redisplay. */
5586 specbind (Qinhibit_redisplay
, Qt
);
5587 record_unwind_protect (clean_up_dialog
, Qnil
);
5591 GCPRO2(font_param
, font
);
5593 XSETFONT (font
, FRAME_FONT (f
));
5594 font_param
= Ffont_get (font
, intern (":name"));
5595 if (STRINGP (font_param
))
5596 default_name
= xstrdup (SSDATA (font_param
));
5599 font_param
= Fframe_parameter (frame
, Qfont_param
);
5600 if (STRINGP (font_param
))
5601 default_name
= xstrdup (SSDATA (font_param
));
5604 if (default_name
== NULL
&& x_last_font_name
!= NULL
)
5605 default_name
= xstrdup (x_last_font_name
);
5607 /* Convert fontconfig names to Gtk names, i.e. remove - before number */
5610 char *p
= strrchr (default_name
, '-');
5614 while (isdigit (*ep
))
5616 if (*ep
== '\0') *p
= ' ';
5620 name
= xg_get_font_name (f
, default_name
);
5621 xfree (default_name
);
5625 font
= build_string (name
);
5626 g_free (x_last_font_name
);
5627 x_last_font_name
= name
;
5633 Fsignal (Qquit
, Qnil
);
5635 return unbind_to (count
, font
);
5637 #endif /* HAVE_FREETYPE */
5639 #endif /* USE_GTK */
5642 /***********************************************************************
5644 ***********************************************************************/
5646 #ifdef HAVE_XKBGETKEYBOARD
5647 #include <X11/XKBlib.h>
5648 #include <X11/keysym.h>
5651 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5652 Sx_backspace_delete_keys_p
, 0, 1, 0,
5653 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5654 FRAME nil means use the selected frame.
5655 Value is t if we know that both keys are present, and are mapped to the
5656 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5657 present and mapped to the usual X keysyms. */)
5660 #ifdef HAVE_XKBGETKEYBOARD
5662 struct frame
*f
= check_x_frame (frame
);
5663 Display
*dpy
= FRAME_X_DISPLAY (f
);
5664 Lisp_Object have_keys
;
5665 int major
, minor
, op
, event
, error_code
;
5669 /* Check library version in case we're dynamically linked. */
5670 major
= XkbMajorVersion
;
5671 minor
= XkbMinorVersion
;
5672 if (!XkbLibraryVersion (&major
, &minor
))
5678 /* Check that the server supports XKB. */
5679 major
= XkbMajorVersion
;
5680 minor
= XkbMinorVersion
;
5681 if (!XkbQueryExtension (dpy
, &op
, &event
, &error_code
, &major
, &minor
))
5687 /* In this code we check that the keyboard has physical keys with names
5688 that start with BKSP (Backspace) and DELE (Delete), and that they
5689 generate keysym XK_BackSpace and XK_Delete respectively.
5690 This function is used to test if normal-erase-is-backspace should be
5692 An alternative approach would be to just check if XK_BackSpace and
5693 XK_Delete are mapped to any key. But if any of those are mapped to
5694 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5695 user doesn't know about it, it is better to return false here.
5696 It is more obvious to the user what to do if she/he has two keys
5697 clearly marked with names/symbols and one key does something not
5698 expected (i.e. she/he then tries the other).
5699 The cases where Backspace/Delete is mapped to some other key combination
5700 are rare, and in those cases, normal-erase-is-backspace can be turned on
5704 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5707 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5709 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5711 for (i
= kb
->min_key_code
;
5712 (i
< kb
->max_key_code
5713 && (delete_keycode
== 0 || backspace_keycode
== 0));
5716 /* The XKB symbolic key names can be seen most easily in
5717 the PS file generated by `xkbprint -label name
5719 if (memcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5721 else if (memcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5722 backspace_keycode
= i
;
5725 XkbFreeNames (kb
, 0, True
);
5728 XkbFreeClientMap (kb
, 0, True
);
5731 && backspace_keycode
5732 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5733 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5738 #else /* not HAVE_XKBGETKEYBOARD */
5740 #endif /* not HAVE_XKBGETKEYBOARD */
5745 /***********************************************************************
5747 ***********************************************************************/
5749 /* Keep this list in the same order as frame_parms in frame.c.
5750 Use 0 for unsupported frame parameters. */
5752 frame_parm_handler x_frame_parm_handlers
[] =
5756 x_set_background_color
,
5762 x_set_foreground_color
,
5765 x_set_internal_border_width
,
5766 x_set_menu_bar_lines
,
5768 x_explicitly_set_name
,
5769 x_set_scroll_bar_width
,
5772 x_set_vertical_scroll_bars
,
5774 x_set_tool_bar_lines
,
5775 x_set_scroll_bar_foreground
,
5776 x_set_scroll_bar_background
,
5786 x_set_tool_bar_position
,
5792 /* This is zero if not using X windows. */
5795 /* The section below is built by the lisp expression at the top of the file,
5796 just above where these variables are declared. */
5797 /*&&& init symbols here &&&*/
5798 DEFSYM (Qnone
, "none");
5799 DEFSYM (Qsuppress_icon
, "suppress-icon");
5800 DEFSYM (Qundefined_color
, "undefined-color");
5801 DEFSYM (Qcompound_text
, "compound-text");
5802 DEFSYM (Qcancel_timer
, "cancel-timer");
5803 DEFSYM (Qfont_param
, "font-parameter");
5804 /* This is the end of symbol initialization. */
5806 Fput (Qundefined_color
, Qerror_conditions
,
5807 pure_cons (Qundefined_color
, pure_cons (Qerror
, Qnil
)));
5808 Fput (Qundefined_color
, Qerror_message
,
5809 make_pure_c_string ("Undefined color"));
5811 DEFVAR_LISP ("x-pointer-shape", Vx_pointer_shape
,
5812 doc
: /* The shape of the pointer when over text.
5813 Changing the value does not affect existing frames
5814 unless you set the mouse color. */);
5815 Vx_pointer_shape
= Qnil
;
5817 #if 0 /* This doesn't really do anything. */
5818 DEFVAR_LISP ("x-nontext-pointer-shape", Vx_nontext_pointer_shape
,
5819 doc
: /* The shape of the pointer when not over text.
5820 This variable takes effect when you create a new frame
5821 or when you set the mouse color. */);
5823 Vx_nontext_pointer_shape
= Qnil
;
5825 DEFVAR_LISP ("x-hourglass-pointer-shape", Vx_hourglass_pointer_shape
,
5826 doc
: /* The shape of the pointer when Emacs is busy.
5827 This variable takes effect when you create a new frame
5828 or when you set the mouse color. */);
5829 Vx_hourglass_pointer_shape
= Qnil
;
5831 #if 0 /* This doesn't really do anything. */
5832 DEFVAR_LISP ("x-mode-pointer-shape", Vx_mode_pointer_shape
,
5833 doc
: /* The shape of the pointer when over the mode line.
5834 This variable takes effect when you create a new frame
5835 or when you set the mouse color. */);
5837 Vx_mode_pointer_shape
= Qnil
;
5839 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5840 Vx_sensitive_text_pointer_shape
,
5841 doc
: /* The shape of the pointer when over mouse-sensitive text.
5842 This variable takes effect when you create a new frame
5843 or when you set the mouse color. */);
5844 Vx_sensitive_text_pointer_shape
= Qnil
;
5846 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5847 Vx_window_horizontal_drag_shape
,
5848 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5849 This variable takes effect when you create a new frame
5850 or when you set the mouse color. */);
5851 Vx_window_horizontal_drag_shape
= Qnil
;
5853 DEFVAR_LISP ("x-cursor-fore-pixel", Vx_cursor_fore_pixel
,
5854 doc
: /* A string indicating the foreground color of the cursor box. */);
5855 Vx_cursor_fore_pixel
= Qnil
;
5857 DEFVAR_LISP ("x-max-tooltip-size", Vx_max_tooltip_size
,
5858 doc
: /* Maximum size for tooltips.
5859 Value is a pair (COLUMNS . ROWS). Text larger than this is clipped. */);
5860 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5862 DEFVAR_LISP ("x-no-window-manager", Vx_no_window_manager
,
5863 doc
: /* Non-nil if no X window manager is in use.
5864 Emacs doesn't try to figure this out; this is always nil
5865 unless you set it to something else. */);
5866 /* We don't have any way to find this out, so set it to nil
5867 and maybe the user would like to set it to t. */
5868 Vx_no_window_manager
= Qnil
;
5870 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5871 Vx_pixel_size_width_font_regexp
,
5872 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5874 Since Emacs gets width of a font matching with this regexp from
5875 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5876 such a font. This is especially effective for such large fonts as
5877 Chinese, Japanese, and Korean. */);
5878 Vx_pixel_size_width_font_regexp
= Qnil
;
5880 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5881 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", x_gtk_use_old_file_dialog
,
5882 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5883 If nil or if the file selection dialog is not available, the new GTK file
5884 chooser is used instead. To turn off all file dialogs set the
5885 variable `use-file-dialog'. */);
5886 x_gtk_use_old_file_dialog
= 0;
5888 DEFVAR_BOOL ("x-gtk-show-hidden-files", x_gtk_show_hidden_files
,
5889 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5890 Note that this is just the default, there is a toggle button on the file
5891 chooser to show or not show hidden files on a case by case basis. */);
5892 x_gtk_show_hidden_files
= 0;
5894 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", x_gtk_file_dialog_help_text
,
5895 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
5896 If more space for files in the file chooser dialog is wanted, set this to nil
5897 to turn the additional text off. */);
5898 x_gtk_file_dialog_help_text
= 1;
5900 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", x_gtk_whole_detached_tool_bar
,
5901 doc
: /* *If non-nil, a detached tool bar is shown in full.
5902 The default is to just show an arrow and pressing on that arrow shows
5903 the tool bar buttons. */);
5904 x_gtk_whole_detached_tool_bar
= 0;
5906 DEFVAR_BOOL ("x-gtk-use-system-tooltips", x_gtk_use_system_tooltips
,
5907 doc
: /* *If non-nil with a Gtk+ built Emacs, the Gtk+ toolip is used.
5908 Otherwise use Emacs own tooltip implementation.
5909 When using Gtk+ tooltips, the tooltip face is not used. */);
5910 x_gtk_use_system_tooltips
= 1;
5912 Fprovide (intern_c_string ("x"), Qnil
);
5914 #ifdef USE_X_TOOLKIT
5915 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5917 Fprovide (intern_c_string ("motif"), Qnil
);
5919 DEFVAR_LISP ("motif-version-string", Vmotif_version_string
,
5920 doc
: /* Version info for LessTif/Motif. */);
5921 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5922 #endif /* USE_MOTIF */
5923 #endif /* USE_X_TOOLKIT */
5926 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5927 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5928 But for a user it is a toolkit for X, and indeed, configure
5929 accepts --with-x-toolkit=gtk. */
5930 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5931 Fprovide (intern_c_string ("gtk"), Qnil
);
5932 Fprovide (intern_c_string ("move-toolbar"), Qnil
);
5934 DEFVAR_LISP ("gtk-version-string", Vgtk_version_string
,
5935 doc
: /* Version info for GTK+. */);
5937 char gtk_version
[40];
5938 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5939 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5940 Vgtk_version_string
= make_pure_string (gtk_version
, strlen (gtk_version
), strlen (gtk_version
), 0);
5942 #endif /* USE_GTK */
5944 /* X window properties. */
5945 defsubr (&Sx_change_window_property
);
5946 defsubr (&Sx_delete_window_property
);
5947 defsubr (&Sx_window_property
);
5949 defsubr (&Sxw_display_color_p
);
5950 defsubr (&Sx_display_grayscale_p
);
5951 defsubr (&Sxw_color_defined_p
);
5952 defsubr (&Sxw_color_values
);
5953 defsubr (&Sx_server_max_request_size
);
5954 defsubr (&Sx_server_vendor
);
5955 defsubr (&Sx_server_version
);
5956 defsubr (&Sx_display_pixel_width
);
5957 defsubr (&Sx_display_pixel_height
);
5958 defsubr (&Sx_display_mm_width
);
5959 defsubr (&Sx_display_mm_height
);
5960 defsubr (&Sx_display_screens
);
5961 defsubr (&Sx_display_planes
);
5962 defsubr (&Sx_display_color_cells
);
5963 defsubr (&Sx_display_visual_class
);
5964 defsubr (&Sx_display_backing_store
);
5965 defsubr (&Sx_display_save_under
);
5966 defsubr (&Sx_wm_set_size_hint
);
5967 defsubr (&Sx_create_frame
);
5968 defsubr (&Sx_open_connection
);
5969 defsubr (&Sx_close_connection
);
5970 defsubr (&Sx_display_list
);
5971 defsubr (&Sx_synchronize
);
5972 defsubr (&Sx_focus_frame
);
5973 defsubr (&Sx_backspace_delete_keys_p
);
5975 /* Setting callback functions for fontset handler. */
5976 check_window_system_func
= check_x
;
5978 defsubr (&Sx_show_tip
);
5979 defsubr (&Sx_hide_tip
);
5981 staticpro (&tip_timer
);
5983 staticpro (&tip_frame
);
5985 last_show_tip_args
= Qnil
;
5986 staticpro (&last_show_tip_args
);
5988 defsubr (&Sx_uses_old_gtk_dialog
);
5989 #if defined (USE_MOTIF) || defined (USE_GTK)
5990 defsubr (&Sx_file_dialog
);
5993 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
5994 defsubr (&Sx_select_font
);
5995 x_last_font_name
= NULL
;
5999 #endif /* HAVE_X_WINDOWS */