1 /* Functions for the X window system.
3 Copyright (C) 1989, 1992-2011 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
27 /* This makes the fields of a Display accessible, in Xlib header files. */
29 #define XLIB_ILLEGAL_ACCESS
36 #include "intervals.h"
37 #include "dispextern.h"
39 #include "blockinput.h"
41 #include "character.h"
46 #include "termhooks.h"
54 #include <sys/types.h>
57 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
58 #include "bitmaps/gray.xbm"
60 #include <X11/bitmaps/gray>
63 #include "xsettings.h"
70 #include <X11/Shell.h>
74 #include <X11/Xaw3d/Paned.h>
75 #include <X11/Xaw3d/Label.h>
76 #else /* !HAVE_XAW3D */
77 #include <X11/Xaw/Paned.h>
78 #include <X11/Xaw/Label.h>
79 #endif /* HAVE_XAW3D */
80 #endif /* USE_MOTIF */
83 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
86 #ifdef USG /* Pacify gcc -Wunused-macros. */
94 #include "../lwlib/lwlib.h"
98 #include <Xm/DialogS.h>
99 #include <Xm/FileSB.h>
101 #include <Xm/TextF.h>
105 #include "../lwlib/xlwmenu.h"
108 #if !defined (NO_EDITRES)
110 extern void _XEditResCheckMessages (Widget
, XtPointer
, XEvent
*, Boolean
*);
111 #endif /* not defined NO_EDITRES */
113 /* Unique id counter for widgets created by the Lucid Widget Library. */
115 extern LWLIB_ID widget_id_tick
;
119 #endif /* USE_MOTIF */
121 #endif /* USE_X_TOOLKIT */
127 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
129 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
130 it, and including `bitmaps/gray' more than once is a problem when
131 config.h defines `static' as an empty replacement string. */
133 int gray_bitmap_width
= gray_width
;
134 int gray_bitmap_height
= gray_height
;
135 char *gray_bitmap_bits
= gray_bits
;
137 /* Nonzero if using X. */
141 static Lisp_Object Qnone
;
142 static Lisp_Object Qsuppress_icon
;
143 static Lisp_Object Qundefined_color
;
144 static Lisp_Object Qcompound_text
, Qcancel_timer
;
145 Lisp_Object Qfont_param
;
148 static ptrdiff_t image_cache_refcount
;
149 static int dpyinfo_refcount
;
152 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
153 static char *x_last_font_name
;
156 static struct x_display_info
*x_display_info_for_name (Lisp_Object
);
159 /* Error if we are not connected to X. */
165 error ("X windows are not in use or not initialized");
168 /* Nonzero if we can use mouse menus.
169 You should not call this unless HAVE_MENUS is defined. */
177 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
178 and checking validity for X. */
181 check_x_frame (Lisp_Object frame
)
186 frame
= selected_frame
;
187 CHECK_LIVE_FRAME (frame
);
190 error ("Non-X frame used");
194 /* Let the user specify an X display with a Lisp object.
195 OBJECT may be nil, a frame or a terminal object.
196 nil stands for the selected frame--or, if that is not an X frame,
197 the first X display on the list. */
199 struct x_display_info
*
200 check_x_display_info (Lisp_Object object
)
202 struct x_display_info
*dpyinfo
= NULL
;
206 struct frame
*sf
= XFRAME (selected_frame
);
208 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
209 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
210 else if (x_display_list
!= 0)
211 dpyinfo
= x_display_list
;
213 error ("X windows are not in use or not initialized");
215 else if (TERMINALP (object
))
217 struct terminal
*t
= get_terminal (object
, 1);
219 if (t
->type
!= output_x_window
)
220 error ("Terminal %"pI
"d is not an X display", XINT (object
));
222 dpyinfo
= t
->display_info
.x
;
224 else if (STRINGP (object
))
225 dpyinfo
= x_display_info_for_name (object
);
228 FRAME_PTR f
= check_x_frame (object
);
229 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
236 /* Return the Emacs frame-object corresponding to an X window.
237 It could be the frame's main window or an icon window. */
239 /* This function can be called during GC, so use GC_xxx type test macros. */
242 x_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
244 Lisp_Object tail
, frame
;
247 if (wdesc
== None
) return 0;
249 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
255 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
257 if (f
->output_data
.x
->hourglass_window
== wdesc
)
260 if ((f
->output_data
.x
->edit_widget
261 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
262 /* A tooltip frame? */
263 || (!f
->output_data
.x
->edit_widget
264 && FRAME_X_WINDOW (f
) == wdesc
)
265 || f
->output_data
.x
->icon_desc
== wdesc
)
267 #else /* not USE_X_TOOLKIT */
269 if (f
->output_data
.x
->edit_widget
)
271 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
272 struct x_output
*x
= f
->output_data
.x
;
273 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
277 if (FRAME_X_WINDOW (f
) == wdesc
278 || f
->output_data
.x
->icon_desc
== wdesc
)
280 #endif /* not USE_X_TOOLKIT */
285 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
286 /* Like x_window_to_frame but also compares the window with the widget's
290 x_any_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
292 Lisp_Object tail
, frame
;
293 struct frame
*f
, *found
;
296 if (wdesc
== None
) return NULL
;
299 for (tail
= Vframe_list
; CONSP (tail
) && !found
; tail
= XCDR (tail
))
306 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
308 /* This frame matches if the window is any of its widgets. */
309 x
= f
->output_data
.x
;
310 if (x
->hourglass_window
== wdesc
)
315 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
317 && gtk_widget_get_toplevel (gwdesc
) == x
->widget
)
320 if (wdesc
== XtWindow (x
->widget
)
321 || wdesc
== XtWindow (x
->column_widget
)
322 || wdesc
== XtWindow (x
->edit_widget
))
324 /* Match if the window is this frame's menubar. */
325 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
329 else if (FRAME_X_WINDOW (f
) == wdesc
)
330 /* A tooltip frame. */
338 /* Likewise, but consider only the menu bar widget. */
341 x_menubar_window_to_frame (struct x_display_info
*dpyinfo
, XEvent
*event
)
343 Window wdesc
= event
->xany
.window
;
344 Lisp_Object tail
, frame
;
348 if (wdesc
== None
) return 0;
350 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
356 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
358 x
= f
->output_data
.x
;
360 if (x
->menubar_widget
&& xg_event_is_for_menubar (f
, event
))
363 /* Match if the window is this frame's menubar. */
364 if (x
->menubar_widget
365 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
372 /* Return the frame whose principal (outermost) window is WDESC.
373 If WDESC is some other (smaller) window, we return 0. */
376 x_top_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
378 Lisp_Object tail
, frame
;
382 if (wdesc
== None
) return 0;
384 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
390 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
392 x
= f
->output_data
.x
;
396 /* This frame matches if the window is its topmost widget. */
398 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
399 if (gwdesc
== x
->widget
)
402 if (wdesc
== XtWindow (x
->widget
))
404 #if 0 /* I don't know why it did this,
405 but it seems logically wrong,
406 and it causes trouble for MapNotify events. */
407 /* Match if the window is this frame's menubar. */
408 if (x
->menubar_widget
409 && wdesc
== XtWindow (x
->menubar_widget
))
414 else if (FRAME_X_WINDOW (f
) == wdesc
)
420 #endif /* USE_X_TOOLKIT || USE_GTK */
424 /* Store the screen positions of frame F into XPTR and YPTR.
425 These are the positions of the containing window manager window,
426 not Emacs's own window. */
429 x_real_positions (FRAME_PTR f
, int *xptr
, int *yptr
)
431 int win_x
, win_y
, outer_x
IF_LINT (= 0), outer_y
IF_LINT (= 0);
432 int real_x
= 0, real_y
= 0;
434 Window win
= f
->output_data
.x
->parent_desc
;
436 unsigned long actual_size
, bytes_remaining
;
437 int rc
, actual_format
;
438 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
440 Display
*dpy
= FRAME_X_DISPLAY (f
);
441 unsigned char *tmp_data
= NULL
;
442 Atom target_type
= XA_CARDINAL
;
446 x_catch_errors (dpy
);
448 if (win
== dpyinfo
->root_window
)
449 win
= FRAME_OUTER_WINDOW (f
);
451 /* This loop traverses up the containment tree until we hit the root
452 window. Window managers may intersect many windows between our window
453 and the root window. The window we find just before the root window
454 should be the outer WM window. */
457 Window wm_window
, rootw
;
458 Window
*tmp_children
;
459 unsigned int tmp_nchildren
;
462 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
463 &wm_window
, &tmp_children
, &tmp_nchildren
);
465 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
467 /* Don't free tmp_children if XQueryTree failed. */
471 XFree ((char *) tmp_children
);
473 if (wm_window
== rootw
|| had_errors
)
484 /* Get the real coordinates for the WM window upper left corner */
485 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
486 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
488 /* Translate real coordinates to coordinates relative to our
489 window. For our window, the upper left corner is 0, 0.
490 Since the upper left corner of the WM window is outside
491 our window, win_x and win_y will be negative:
493 ------------------ ---> x
495 | ----------------- v y
498 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
500 /* From-window, to-window. */
501 FRAME_X_DISPLAY_INFO (f
)->root_window
,
504 /* From-position, to-position. */
505 real_x
, real_y
, &win_x
, &win_y
,
510 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
517 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
519 /* From-window, to-window. */
520 FRAME_X_DISPLAY_INFO (f
)->root_window
,
521 FRAME_OUTER_WINDOW (f
),
523 /* From-position, to-position. */
524 real_x
, real_y
, &outer_x
, &outer_y
,
530 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
534 if (dpyinfo
->root_window
== f
->output_data
.x
->parent_desc
)
536 /* Try _NET_FRAME_EXTENTS if our parent is the root window. */
537 rc
= XGetWindowProperty (dpy
, win
, dpyinfo
->Xatom_net_frame_extents
,
538 0, max_len
, False
, target_type
,
539 &actual_type
, &actual_format
, &actual_size
,
540 &bytes_remaining
, &tmp_data
);
542 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
543 && actual_size
== 4 && actual_format
== 32)
547 long *fe
= (long *)tmp_data
;
549 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
550 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
558 if (tmp_data
) XFree (tmp_data
);
564 if (had_errors
) return;
566 f
->x_pixels_diff
= -win_x
;
567 f
->y_pixels_diff
= -win_y
;
569 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
570 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
579 /* Gamma-correct COLOR on frame F. */
582 gamma_correct (struct frame
*f
, XColor
*color
)
586 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
587 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
588 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
593 /* Decide if color named COLOR_NAME is valid for use on frame F. If
594 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
595 allocate the color. Value is zero if COLOR_NAME is invalid, or
596 no color could be allocated. */
599 x_defined_color (struct frame
*f
, const char *color_name
,
600 XColor
*color
, int alloc_p
)
603 Display
*dpy
= FRAME_X_DISPLAY (f
);
604 Colormap cmap
= FRAME_X_COLORMAP (f
);
608 success_p
= xg_check_special_colors (f
, color_name
, color
);
611 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
612 if (success_p
&& alloc_p
)
613 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
620 /* Return the pixel color value for color COLOR_NAME on frame F. If F
621 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
622 Signal an error if color can't be allocated. */
625 x_decode_color (FRAME_PTR f
, Lisp_Object color_name
, int mono_color
)
629 CHECK_STRING (color_name
);
631 #if 0 /* Don't do this. It's wrong when we're not using the default
632 colormap, it makes freeing difficult, and it's probably not
633 an important optimization. */
634 if (strcmp (SDATA (color_name
), "black") == 0)
635 return BLACK_PIX_DEFAULT (f
);
636 else if (strcmp (SDATA (color_name
), "white") == 0)
637 return WHITE_PIX_DEFAULT (f
);
640 /* Return MONO_COLOR for monochrome frames. */
641 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
644 /* x_defined_color is responsible for coping with failures
645 by looking for a near-miss. */
646 if (x_defined_color (f
, SSDATA (color_name
), &cdef
, 1))
649 signal_error ("Undefined color", color_name
);
654 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
655 the previous value of that parameter, NEW_VALUE is the new value.
656 See also the comment of wait_for_wm in struct x_output. */
659 x_set_wait_for_wm (struct frame
*f
, Lisp_Object new_value
, Lisp_Object old_value
)
661 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
665 x_set_tool_bar_position (struct frame
*f
,
666 Lisp_Object new_value
,
667 Lisp_Object old_value
)
669 if (! EQ (new_value
, Qleft
) && ! EQ (new_value
, Qright
)
670 && ! EQ (new_value
, Qbottom
) && ! EQ (new_value
, Qtop
))
672 if (EQ (new_value
, old_value
)) return;
675 if (xg_change_toolbar_position (f
, new_value
))
676 f
->tool_bar_position
= new_value
;
682 /* Set icon from FILE for frame F. By using GTK functions the icon
683 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
686 xg_set_icon (FRAME_PTR f
, Lisp_Object file
)
691 found
= x_find_image_file (file
);
697 char *filename
= SSDATA (found
);
700 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
704 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
706 g_object_unref (pixbuf
);
720 xg_set_icon_from_xpm_data (FRAME_PTR f
, const char **data
)
722 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data (data
);
727 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
728 g_object_unref (pixbuf
);
734 /* Functions called only from `x_set_frame_param'
735 to set individual parameters.
737 If FRAME_X_WINDOW (f) is 0,
738 the frame is being created and its X-window does not exist yet.
739 In that case, just record the parameter's new value
740 in the standard place; do not attempt to change the window. */
743 x_set_foreground_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
745 struct x_output
*x
= f
->output_data
.x
;
746 unsigned long fg
, old_fg
;
748 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
749 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
750 FRAME_FOREGROUND_PIXEL (f
) = fg
;
752 if (FRAME_X_WINDOW (f
) != 0)
754 Display
*dpy
= FRAME_X_DISPLAY (f
);
757 XSetForeground (dpy
, x
->normal_gc
, fg
);
758 XSetBackground (dpy
, x
->reverse_gc
, fg
);
760 if (x
->cursor_pixel
== old_fg
)
762 unload_color (f
, x
->cursor_pixel
);
763 x
->cursor_pixel
= x_copy_color (f
, fg
);
764 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
769 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
771 if (FRAME_VISIBLE_P (f
))
775 unload_color (f
, old_fg
);
779 x_set_background_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
781 struct x_output
*x
= f
->output_data
.x
;
784 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
785 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
786 FRAME_BACKGROUND_PIXEL (f
) = bg
;
788 if (FRAME_X_WINDOW (f
) != 0)
790 Display
*dpy
= FRAME_X_DISPLAY (f
);
793 XSetBackground (dpy
, x
->normal_gc
, bg
);
794 XSetForeground (dpy
, x
->reverse_gc
, bg
);
795 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
796 XSetForeground (dpy
, x
->cursor_gc
, bg
);
799 xg_set_background_color (f
, bg
);
802 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
803 toolkit scroll bars. */
806 for (bar
= FRAME_SCROLL_BARS (f
);
808 bar
= XSCROLL_BAR (bar
)->next
)
810 Window window
= XSCROLL_BAR (bar
)->x_window
;
811 XSetWindowBackground (dpy
, window
, bg
);
814 #endif /* USE_TOOLKIT_SCROLL_BARS */
817 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
819 if (FRAME_VISIBLE_P (f
))
825 make_invisible_cursor (struct frame
*f
)
827 Display
*dpy
= FRAME_X_DISPLAY (f
);
828 static char const no_data
[] = { 0 };
833 x_catch_errors (dpy
);
834 pix
= XCreateBitmapFromData (dpy
, FRAME_X_DISPLAY_INFO (f
)->root_window
,
836 if (! x_had_errors_p (dpy
) && pix
!= None
)
840 col
.red
= col
.green
= col
.blue
= 0;
841 col
.flags
= DoRed
| DoGreen
| DoBlue
;
842 pixc
= XCreatePixmapCursor (dpy
, pix
, pix
, &col
, &col
, 0, 0);
843 if (! x_had_errors_p (dpy
) && pixc
!= None
)
845 XFreePixmap (dpy
, pix
);
854 x_set_mouse_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
856 struct x_output
*x
= f
->output_data
.x
;
857 Display
*dpy
= FRAME_X_DISPLAY (f
);
858 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
859 Cursor hourglass_cursor
, horizontal_drag_cursor
;
860 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
861 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
863 /* Don't let pointers be invisible. */
864 if (mask_color
== pixel
)
866 x_free_colors (f
, &pixel
, 1);
867 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
870 unload_color (f
, x
->mouse_pixel
);
871 x
->mouse_pixel
= pixel
;
875 /* It's not okay to crash if the user selects a screwy cursor. */
876 x_catch_errors (dpy
);
878 if (!NILP (Vx_pointer_shape
))
880 CHECK_NUMBER (Vx_pointer_shape
);
881 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
884 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
885 x_check_errors (dpy
, "bad text pointer cursor: %s");
887 if (!NILP (Vx_nontext_pointer_shape
))
889 CHECK_NUMBER (Vx_nontext_pointer_shape
);
891 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
894 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
895 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
897 if (!NILP (Vx_hourglass_pointer_shape
))
899 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
901 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
904 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
905 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
907 if (!NILP (Vx_mode_pointer_shape
))
909 CHECK_NUMBER (Vx_mode_pointer_shape
);
910 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
913 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
914 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
916 if (!NILP (Vx_sensitive_text_pointer_shape
))
918 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
920 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
923 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
925 if (!NILP (Vx_window_horizontal_drag_shape
))
927 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
928 horizontal_drag_cursor
929 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
932 horizontal_drag_cursor
933 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
935 /* Check and report errors with the above calls. */
936 x_check_errors (dpy
, "can't set cursor shape: %s");
940 XColor fore_color
, back_color
;
942 fore_color
.pixel
= x
->mouse_pixel
;
943 x_query_color (f
, &fore_color
);
944 back_color
.pixel
= mask_color
;
945 x_query_color (f
, &back_color
);
947 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
948 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
949 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
950 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
951 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
952 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
955 if (FRAME_X_WINDOW (f
) != 0)
956 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
957 f
->output_data
.x
->current_cursor
= cursor
);
959 if (FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
== 0)
960 FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
= make_invisible_cursor (f
);
962 if (cursor
!= x
->text_cursor
963 && x
->text_cursor
!= 0)
964 XFreeCursor (dpy
, x
->text_cursor
);
965 x
->text_cursor
= cursor
;
967 if (nontext_cursor
!= x
->nontext_cursor
968 && x
->nontext_cursor
!= 0)
969 XFreeCursor (dpy
, x
->nontext_cursor
);
970 x
->nontext_cursor
= nontext_cursor
;
972 if (hourglass_cursor
!= x
->hourglass_cursor
973 && x
->hourglass_cursor
!= 0)
974 XFreeCursor (dpy
, x
->hourglass_cursor
);
975 x
->hourglass_cursor
= hourglass_cursor
;
977 if (mode_cursor
!= x
->modeline_cursor
978 && x
->modeline_cursor
!= 0)
979 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
980 x
->modeline_cursor
= mode_cursor
;
982 if (hand_cursor
!= x
->hand_cursor
983 && x
->hand_cursor
!= 0)
984 XFreeCursor (dpy
, x
->hand_cursor
);
985 x
->hand_cursor
= hand_cursor
;
987 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
988 && x
->horizontal_drag_cursor
!= 0)
989 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
990 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
995 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
999 x_set_cursor_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1001 unsigned long fore_pixel
, pixel
;
1002 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1003 struct x_output
*x
= f
->output_data
.x
;
1005 if (!NILP (Vx_cursor_fore_pixel
))
1007 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1008 WHITE_PIX_DEFAULT (f
));
1009 fore_pixel_allocated_p
= 1;
1012 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1014 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1015 pixel_allocated_p
= 1;
1017 /* Make sure that the cursor color differs from the background color. */
1018 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1020 if (pixel_allocated_p
)
1022 x_free_colors (f
, &pixel
, 1);
1023 pixel_allocated_p
= 0;
1026 pixel
= x
->mouse_pixel
;
1027 if (pixel
== fore_pixel
)
1029 if (fore_pixel_allocated_p
)
1031 x_free_colors (f
, &fore_pixel
, 1);
1032 fore_pixel_allocated_p
= 0;
1034 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1038 unload_color (f
, x
->cursor_foreground_pixel
);
1039 if (!fore_pixel_allocated_p
)
1040 fore_pixel
= x_copy_color (f
, fore_pixel
);
1041 x
->cursor_foreground_pixel
= fore_pixel
;
1043 unload_color (f
, x
->cursor_pixel
);
1044 if (!pixel_allocated_p
)
1045 pixel
= x_copy_color (f
, pixel
);
1046 x
->cursor_pixel
= pixel
;
1048 if (FRAME_X_WINDOW (f
) != 0)
1051 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1052 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1055 if (FRAME_VISIBLE_P (f
))
1057 x_update_cursor (f
, 0);
1058 x_update_cursor (f
, 1);
1062 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1065 /* Set the border-color of frame F to pixel value PIX.
1066 Note that this does not fully take effect if done before
1067 F has an x-window. */
1070 x_set_border_pixel (struct frame
*f
, int pix
)
1072 unload_color (f
, f
->output_data
.x
->border_pixel
);
1073 f
->output_data
.x
->border_pixel
= pix
;
1075 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1078 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), pix
);
1081 if (FRAME_VISIBLE_P (f
))
1086 /* Set the border-color of frame F to value described by ARG.
1087 ARG can be a string naming a color.
1088 The border-color is used for the border that is drawn by the X server.
1089 Note that this does not fully take effect if done before
1090 F has an x-window; it must be redone when the window is created.
1092 Note: this is done in two routines because of the way X10 works.
1094 Note: under X11, this is normally the province of the window manager,
1095 and so emacs' border colors may be overridden. */
1098 x_set_border_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1103 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1104 x_set_border_pixel (f
, pix
);
1105 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1110 x_set_cursor_type (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1112 set_frame_cursor_types (f
, arg
);
1114 /* Make sure the cursor gets redrawn. */
1115 cursor_type_changed
= 1;
1119 x_set_icon_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1125 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1128 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1133 result
= x_text_icon (f
,
1134 SSDATA ((!NILP (f
->icon_name
)
1138 result
= x_bitmap_icon (f
, arg
);
1143 error ("No icon window available");
1146 XFlush (FRAME_X_DISPLAY (f
));
1151 x_set_icon_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1157 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1160 else if (!NILP (arg
) || NILP (oldval
))
1165 if (f
->output_data
.x
->icon_bitmap
!= 0)
1170 result
= x_text_icon (f
,
1171 SSDATA ((!NILP (f
->icon_name
)
1180 error ("No icon window available");
1183 XFlush (FRAME_X_DISPLAY (f
));
1189 x_set_menu_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1192 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1193 int olines
= FRAME_MENU_BAR_LINES (f
);
1196 /* Right now, menu bars don't work properly in minibuf-only frames;
1197 most of the commands try to apply themselves to the minibuffer
1198 frame itself, and get an error because you can't switch buffers
1199 in or split the minibuffer window. */
1200 if (FRAME_MINIBUF_ONLY_P (f
))
1203 if (INTEGERP (value
))
1204 nlines
= XINT (value
);
1208 /* Make sure we redisplay all windows in this frame. */
1209 windows_or_buffers_changed
++;
1211 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1212 FRAME_MENU_BAR_LINES (f
) = 0;
1215 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1216 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1217 /* Make sure next redisplay shows the menu bar. */
1218 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1222 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1223 free_frame_menubar (f
);
1224 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1226 f
->output_data
.x
->menubar_widget
= 0;
1228 #else /* not USE_X_TOOLKIT && not USE_GTK */
1229 FRAME_MENU_BAR_LINES (f
) = nlines
;
1230 resize_frame_windows (f
, FRAME_LINES (f
), 0);
1232 /* If the menu bar height gets changed, the internal border below
1233 the top margin has to be cleared. Also, if the menu bar gets
1234 larger, the area for the added lines has to be cleared except for
1235 the first menu bar line that is to be drawn later. */
1236 if (nlines
!= olines
)
1238 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1239 int width
= FRAME_PIXEL_WIDTH (f
);
1242 /* height can be zero here. */
1243 if (height
> 0 && width
> 0)
1245 y
= FRAME_TOP_MARGIN_HEIGHT (f
);
1248 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1249 0, y
, width
, height
, False
);
1253 if (nlines
> 1 && nlines
> olines
)
1255 y
= (olines
== 0 ? 1 : olines
) * FRAME_LINE_HEIGHT (f
);
1256 height
= nlines
* FRAME_LINE_HEIGHT (f
) - y
;
1259 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1260 0, y
, width
, height
, False
);
1264 if (nlines
== 0 && WINDOWP (f
->menu_bar_window
))
1265 clear_glyph_matrix (XWINDOW (f
->menu_bar_window
)->current_matrix
);
1267 #endif /* not USE_X_TOOLKIT && not USE_GTK */
1269 run_window_configuration_change_hook (f
);
1273 /* Set the number of lines used for the tool bar of frame F to VALUE.
1274 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1275 is the old number of tool bar lines. This function changes the
1276 height of all windows on frame F to match the new tool bar height.
1277 The frame's height doesn't change. */
1280 x_set_tool_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1282 int delta
, nlines
, root_height
;
1283 Lisp_Object root_window
;
1285 /* Treat tool bars like menu bars. */
1286 if (FRAME_MINIBUF_ONLY_P (f
))
1289 /* Use VALUE only if an integer >= 0. */
1290 if (INTEGERP (value
) && XINT (value
) >= 0)
1291 nlines
= XFASTINT (value
);
1296 FRAME_TOOL_BAR_LINES (f
) = 0;
1299 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1300 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1301 /* Make sure next redisplay shows the tool bar. */
1302 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1303 update_frame_tool_bar (f
);
1307 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1308 free_frame_tool_bar (f
);
1309 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1315 /* Make sure we redisplay all windows in this frame. */
1316 ++windows_or_buffers_changed
;
1318 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1320 /* Don't resize the tool-bar to more than we have room for. */
1321 root_window
= FRAME_ROOT_WINDOW (f
);
1322 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1323 if (root_height
- delta
< 1)
1325 delta
= root_height
- 1;
1326 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1329 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1330 resize_frame_windows (f
, FRAME_LINES (f
), 0);
1333 /* We also have to make sure that the internal border at the top of
1334 the frame, below the menu bar or tool bar, is redrawn when the
1335 tool bar disappears. This is so because the internal border is
1336 below the tool bar if one is displayed, but is below the menu bar
1337 if there isn't a tool bar. The tool bar draws into the area
1338 below the menu bar. */
1339 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1342 clear_current_matrices (f
);
1345 /* If the tool bar gets smaller, the internal border below it
1346 has to be cleared. It was formerly part of the display
1347 of the larger tool bar, and updating windows won't clear it. */
1350 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1351 int width
= FRAME_PIXEL_WIDTH (f
);
1352 int y
= (FRAME_MENU_BAR_LINES (f
) + nlines
) * FRAME_LINE_HEIGHT (f
);
1354 /* height can be zero here. */
1355 if (height
> 0 && width
> 0)
1358 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1359 0, y
, width
, height
, False
);
1363 if (WINDOWP (f
->tool_bar_window
))
1364 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1367 run_window_configuration_change_hook (f
);
1372 /* Set the foreground color for scroll bars on frame F to VALUE.
1373 VALUE should be a string, a color name. If it isn't a string or
1374 isn't a valid color name, do nothing. OLDVAL is the old value of
1375 the frame parameter. */
1378 x_set_scroll_bar_foreground (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1380 unsigned long pixel
;
1382 if (STRINGP (value
))
1383 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1387 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1388 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1390 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1391 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1393 /* Remove all scroll bars because they have wrong colors. */
1394 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1395 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1396 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1397 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1399 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1405 /* Set the background color for scroll bars on frame F to VALUE VALUE
1406 should be a string, a color name. If it isn't a string or isn't a
1407 valid color name, do nothing. OLDVAL is the old value of the frame
1411 x_set_scroll_bar_background (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1413 unsigned long pixel
;
1415 if (STRINGP (value
))
1416 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1420 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1421 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1423 #ifdef USE_TOOLKIT_SCROLL_BARS
1424 /* Scrollbar shadow colors. */
1425 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1427 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1428 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1430 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1432 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1433 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1435 #endif /* USE_TOOLKIT_SCROLL_BARS */
1437 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1438 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1440 /* Remove all scroll bars because they have wrong colors. */
1441 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1442 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1443 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1444 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1446 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1452 /* Encode Lisp string STRING as a text in a format appropriate for
1453 XICCC (X Inter Client Communication Conventions).
1455 This can call Lisp code, so callers must GCPRO.
1457 If STRING contains only ASCII characters, do no conversion and
1458 return the string data of STRING. Otherwise, encode the text by
1459 CODING_SYSTEM, and return a newly allocated memory area which
1460 should be freed by `xfree' by a caller.
1462 SELECTIONP non-zero means the string is being encoded for an X
1463 selection, so it is safe to run pre-write conversions (which
1466 Store the byte length of resulting text in *TEXT_BYTES.
1468 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1469 which means that the `encoding' of the result can be `STRING'.
1470 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1471 the result should be `COMPOUND_TEXT'. */
1473 static unsigned char *
1474 x_encode_text (Lisp_Object string
, Lisp_Object coding_system
, int selectionp
,
1475 ptrdiff_t *text_bytes
, int *stringp
, int *freep
)
1477 int result
= string_xstring_p (string
);
1478 struct coding_system coding
;
1482 /* No multibyte character in OBJ. We need not encode it. */
1483 *text_bytes
= SBYTES (string
);
1486 return SDATA (string
);
1489 setup_coding_system (coding_system
, &coding
);
1490 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1491 /* We suppress producing escape sequences for composition. */
1492 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1493 coding
.destination
= xnmalloc (SCHARS (string
), 2);
1494 coding
.dst_bytes
= SCHARS (string
) * 2;
1495 encode_coding_object (&coding
, string
, 0, 0,
1496 SCHARS (string
), SBYTES (string
), Qnil
);
1497 *text_bytes
= coding
.produced
;
1498 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1500 return coding
.destination
;
1504 /* Set the WM name to NAME for frame F. Also set the icon name.
1505 If the frame already has an icon name, use that, otherwise set the
1506 icon name to NAME. */
1509 x_set_name_internal (FRAME_PTR f
, Lisp_Object name
)
1511 if (FRAME_X_WINDOW (f
))
1515 XTextProperty text
, icon
;
1518 int do_free_icon_value
= 0, do_free_text_value
= 0;
1519 Lisp_Object coding_system
;
1520 Lisp_Object encoded_name
;
1521 Lisp_Object encoded_icon_name
;
1522 struct gcpro gcpro1
;
1524 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1525 we use it before x_encode_text that may return string data. */
1527 encoded_name
= ENCODE_UTF_8 (name
);
1530 coding_system
= Qcompound_text
;
1531 /* Note: Encoding strategy
1533 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1534 text.encoding. But, there are non-internationalized window
1535 managers which don't support that encoding. So, if NAME
1536 contains only ASCII and 8859-1 characters, encode it by
1537 iso-latin-1, and use "STRING" in text.encoding hoping that
1538 such window managers at least analyze this format correctly,
1539 i.e. treat 8-bit bytes as 8859-1 characters.
1541 We may also be able to use "UTF8_STRING" in text.encoding
1542 in the future which can encode all Unicode characters.
1543 But, for the moment, there's no way to know that the
1544 current window manager supports it or not.
1546 Either way, we also set the _NET_WM_NAME and _NET_WM_ICON_NAME
1547 properties. Per the EWMH specification, those two properties
1548 are always UTF8_STRING. This matches what gtk_window_set_title()
1549 does in the USE_GTK case. */
1550 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1551 &do_free_text_value
);
1552 text
.encoding
= (stringp
? XA_STRING
1553 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1555 text
.nitems
= bytes
;
1556 if (text
.nitems
!= bytes
)
1557 error ("Window name too large");
1559 if (!STRINGP (f
->icon_name
))
1562 encoded_icon_name
= encoded_name
;
1566 /* See the above comment "Note: Encoding strategy". */
1567 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1568 &bytes
, &stringp
, &do_free_icon_value
);
1569 icon
.encoding
= (stringp
? XA_STRING
1570 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1572 icon
.nitems
= bytes
;
1573 if (icon
.nitems
!= bytes
)
1574 error ("Icon name too large");
1576 encoded_icon_name
= ENCODE_UTF_8 (f
->icon_name
);
1580 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1581 SSDATA (encoded_name
));
1582 #else /* not USE_GTK */
1583 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1584 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1585 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_name
,
1586 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1588 SDATA (encoded_name
),
1589 SBYTES (encoded_name
));
1590 #endif /* not USE_GTK */
1592 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1593 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1594 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_icon_name
,
1595 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1597 SDATA (encoded_icon_name
),
1598 SBYTES (encoded_icon_name
));
1600 if (do_free_icon_value
)
1602 if (do_free_text_value
)
1609 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1612 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1613 name; if NAME is a string, set F's name to NAME and set
1614 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1616 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1617 suggesting a new name, which lisp code should override; if
1618 F->explicit_name is set, ignore the new name; otherwise, set it. */
1621 x_set_name (struct frame
*f
, Lisp_Object name
, int explicit)
1623 /* Make sure that requests from lisp code override requests from
1624 Emacs redisplay code. */
1627 /* If we're switching from explicit to implicit, we had better
1628 update the mode lines and thereby update the title. */
1629 if (f
->explicit_name
&& NILP (name
))
1630 update_mode_lines
= 1;
1632 f
->explicit_name
= ! NILP (name
);
1634 else if (f
->explicit_name
)
1637 /* If NAME is nil, set the name to the x_id_name. */
1640 /* Check for no change needed in this very common case
1641 before we do any consing. */
1642 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1645 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1648 CHECK_STRING (name
);
1650 /* Don't change the name if it's already NAME. */
1651 if (! NILP (Fstring_equal (name
, f
->name
)))
1656 /* For setting the frame title, the title parameter should override
1657 the name parameter. */
1658 if (! NILP (f
->title
))
1661 x_set_name_internal (f
, name
);
1664 /* This function should be called when the user's lisp code has
1665 specified a name for the frame; the name will override any set by the
1668 x_explicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1670 x_set_name (f
, arg
, 1);
1673 /* This function should be called by Emacs redisplay code to set the
1674 name; names set this way will never override names set by the user's
1677 x_implicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1679 x_set_name (f
, arg
, 0);
1682 /* Change the title of frame F to NAME.
1683 If NAME is nil, use the frame name as the title. */
1686 x_set_title (struct frame
*f
, Lisp_Object name
, Lisp_Object old_name
)
1688 /* Don't change the title if it's already NAME. */
1689 if (EQ (name
, f
->title
))
1692 update_mode_lines
= 1;
1699 CHECK_STRING (name
);
1701 x_set_name_internal (f
, name
);
1705 x_set_scroll_bar_default_width (struct frame
*f
)
1707 int wid
= FRAME_COLUMN_WIDTH (f
);
1708 #ifdef USE_TOOLKIT_SCROLL_BARS
1710 int minw
= xg_get_default_scrollbar_width ();
1714 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1715 int width
= minw
+ 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1716 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1717 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1719 /* Make the actual width at least 14 pixels and a multiple of a
1721 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1723 /* Use all of that space (aside from required margins) for the
1725 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1730 /* Record in frame F the specified or default value according to ALIST
1731 of the parameter named PROP (a Lisp symbol). If no value is
1732 specified for PROP, look for an X default for XPROP on the frame
1733 named NAME. If that is not found either, use the value DEFLT. */
1736 x_default_scroll_bar_color_parameter (struct frame
*f
,
1737 Lisp_Object alist
, Lisp_Object prop
,
1738 const char *xprop
, const char *xclass
,
1741 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1744 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1745 if (EQ (tem
, Qunbound
))
1747 #ifdef USE_TOOLKIT_SCROLL_BARS
1749 /* See if an X resource for the scroll bar color has been
1751 tem
= display_x_get_resource (dpyinfo
,
1752 build_string (foreground_p
1755 empty_unibyte_string
,
1756 build_string ("verticalScrollBar"),
1757 empty_unibyte_string
);
1760 /* If nothing has been specified, scroll bars will use a
1761 toolkit-dependent default. Because these defaults are
1762 difficult to get at without actually creating a scroll
1763 bar, use nil to indicate that no color has been
1768 #else /* not USE_TOOLKIT_SCROLL_BARS */
1772 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1775 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1782 #ifdef USE_X_TOOLKIT
1784 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1785 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1786 already be present because of the toolkit (Motif adds some of them,
1787 for example, but Xt doesn't). */
1790 hack_wm_protocols (FRAME_PTR f
, Widget widget
)
1792 Display
*dpy
= XtDisplay (widget
);
1793 Window w
= XtWindow (widget
);
1794 int need_delete
= 1;
1801 unsigned char *catoms
;
1803 unsigned long nitems
= 0;
1804 unsigned long bytes_after
;
1806 if ((XGetWindowProperty (dpy
, w
,
1807 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1808 (long)0, (long)100, False
, XA_ATOM
,
1809 &type
, &format
, &nitems
, &bytes_after
,
1812 && format
== 32 && type
== XA_ATOM
)
1814 Atom
*atoms
= (Atom
*) catoms
;
1819 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1821 else if (atoms
[nitems
]
1822 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1824 else if (atoms
[nitems
]
1825 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1836 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1838 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1840 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1842 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1843 XA_ATOM
, 32, PropModeAppend
,
1844 (unsigned char *) props
, count
);
1852 /* Support routines for XIC (X Input Context). */
1856 static XFontSet
xic_create_xfontset (struct frame
*);
1857 static XIMStyle
best_xim_style (XIMStyles
*, XIMStyles
*);
1860 /* Supported XIM styles, ordered by preference. */
1862 static XIMStyle supported_xim_styles
[] =
1864 XIMPreeditPosition
| XIMStatusArea
,
1865 XIMPreeditPosition
| XIMStatusNothing
,
1866 XIMPreeditPosition
| XIMStatusNone
,
1867 XIMPreeditNothing
| XIMStatusArea
,
1868 XIMPreeditNothing
| XIMStatusNothing
,
1869 XIMPreeditNothing
| XIMStatusNone
,
1870 XIMPreeditNone
| XIMStatusArea
,
1871 XIMPreeditNone
| XIMStatusNothing
,
1872 XIMPreeditNone
| XIMStatusNone
,
1877 #if defined HAVE_X_WINDOWS && defined USE_X_TOOLKIT
1878 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1880 static const char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1882 /* Create an Xt fontset spec from the name of a base font.
1883 If `motif' is True use the Motif syntax. */
1885 xic_create_fontsetname (const char *base_fontname
, int motif
)
1887 const char *sep
= motif
? ";" : ",";
1890 /* Make a fontset name from the base font name. */
1891 if (xic_defaut_fontset
== base_fontname
)
1892 { /* There is no base font name, use the default. */
1893 ptrdiff_t len
= strlen (base_fontname
) + 2;
1894 fontsetname
= xmalloc (len
);
1895 memset (fontsetname
, 0, len
);
1896 strcpy (fontsetname
, base_fontname
);
1900 /* Make a fontset name from the base font name.
1901 The font set will be made of the following elements:
1903 - the base font where the charset spec is replaced by -*-*.
1904 - the same but with the family also replaced with -*-*-. */
1905 const char *p
= base_fontname
;
1908 for (i
= 0; *p
; p
++)
1911 { /* As the font name doesn't conform to XLFD, we can't
1912 modify it to generalize it to allcs and allfamilies.
1913 Use the specified font plus the default. */
1915 strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
1916 fontsetname
= xmalloc (len
);
1917 memset (fontsetname
, 0, len
);
1918 strcpy (fontsetname
, base_fontname
);
1919 strcat (fontsetname
, sep
);
1920 strcat (fontsetname
, xic_defaut_fontset
);
1925 const char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1926 char *font_allcs
= NULL
;
1927 char *font_allfamilies
= NULL
;
1928 char *font_all
= NULL
;
1929 const char *allcs
= "*-*-*-*-*-*-*";
1930 const char *allfamilies
= "-*-*-";
1931 const char *all
= "*-*-*-*-";
1934 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
1947 /* If base_fontname specifies ADSTYLE, make it a
1951 ptrdiff_t diff
= (p2
- p3
) - 2;
1953 base
= alloca (strlen (base_fontname
) + 1);
1954 memcpy (base
, base_fontname
, p3
- base_fontname
);
1955 base
[p3
- base_fontname
] = '*';
1956 base
[(p3
- base_fontname
) + 1] = '-';
1957 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
1958 p
= base
+ (p
- base_fontname
) - diff
;
1959 p1
= base
+ (p1
- base_fontname
);
1960 p2
= base
+ (p2
- base_fontname
) - diff
;
1961 base_fontname
= base
;
1964 /* Build the font spec that matches all charsets. */
1965 len
= p
- base_fontname
+ strlen (allcs
) + 1;
1966 font_allcs
= (char *) alloca (len
);
1967 memset (font_allcs
, 0, len
);
1968 memcpy (font_allcs
, base_fontname
, p
- base_fontname
);
1969 strcat (font_allcs
, allcs
);
1971 /* Build the font spec that matches all families and
1973 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
1974 font_allfamilies
= (char *) alloca (len
);
1975 memset (font_allfamilies
, 0, len
);
1976 strcpy (font_allfamilies
, allfamilies
);
1977 memcpy (font_allfamilies
+ strlen (allfamilies
), p1
, p
- p1
);
1978 strcat (font_allfamilies
, allcs
);
1980 /* Build the font spec that matches all. */
1981 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
1982 font_all
= (char *) alloca (len
);
1983 memset (font_all
, 0, len
);
1984 strcpy (font_all
, allfamilies
);
1985 strcat (font_all
, all
);
1986 memcpy (font_all
+ strlen (all
) + strlen (allfamilies
), p2
, p
- p2
);
1987 strcat (font_all
, allcs
);
1989 /* Build the actual font set name. */
1990 len
= strlen (base_fontname
) + strlen (font_allcs
)
1991 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
1992 fontsetname
= xmalloc (len
);
1993 memset (fontsetname
, 0, len
);
1994 strcpy (fontsetname
, base_fontname
);
1995 strcat (fontsetname
, sep
);
1996 strcat (fontsetname
, font_allcs
);
1997 strcat (fontsetname
, sep
);
1998 strcat (fontsetname
, font_allfamilies
);
1999 strcat (fontsetname
, sep
);
2000 strcat (fontsetname
, font_all
);
2004 strcat (fontsetname
, ":");
2007 #endif /* HAVE_X_WINDOWS && USE_X_TOOLKIT */
2009 #ifdef DEBUG_XIC_FONTSET
2011 print_fontset_result (XFontSet xfs
, char *name
, char **missing_list
,
2015 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
2018 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
2019 while (missing_count
-- > 0)
2021 fprintf (stderr
, " missing: %s\n", *missing_list
);
2030 xic_create_xfontset (struct frame
*f
)
2032 XFontSet xfs
= NULL
;
2033 struct font
*font
= FRAME_FONT (f
);
2034 int pixel_size
= font
->pixel_size
;
2035 Lisp_Object rest
, frame
;
2037 /* See if there is another frame already using same fontset. */
2038 FOR_EACH_FRAME (rest
, frame
)
2040 struct frame
*cf
= XFRAME (frame
);
2042 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2043 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2045 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
2047 xfs
= FRAME_XIC_FONTSET (cf
);
2055 char **missing_list
;
2058 const char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
2060 sprintf (buf
, xlfd_format
, pixel_size
);
2061 missing_list
= NULL
;
2062 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2063 &missing_list
, &missing_count
, &def_string
);
2064 #ifdef DEBUG_XIC_FONTSET
2065 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2068 XFreeStringList (missing_list
);
2071 /* List of pixel sizes most likely available. Find one that
2072 is closest to pixel_size. */
2073 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2074 int *smaller
, *larger
;
2076 for (smaller
= sizes
; smaller
[1]; smaller
++)
2077 if (smaller
[1] >= pixel_size
)
2079 larger
= smaller
+ 1;
2080 if (*larger
== pixel_size
)
2082 while (*smaller
|| *larger
)
2087 this_size
= *smaller
--;
2088 else if (! *smaller
)
2089 this_size
= *larger
++;
2090 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
2091 this_size
= *smaller
--;
2093 this_size
= *larger
++;
2094 sprintf (buf
, xlfd_format
, this_size
);
2095 missing_list
= NULL
;
2096 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2097 &missing_list
, &missing_count
, &def_string
);
2098 #ifdef DEBUG_XIC_FONTSET
2099 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2102 XFreeStringList (missing_list
);
2109 const char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
2111 missing_list
= NULL
;
2112 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
2113 &missing_list
, &missing_count
, &def_string
);
2114 #ifdef DEBUG_XIC_FONTSET
2115 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
2118 XFreeStringList (missing_list
);
2126 /* Free the X fontset of frame F if it is the last frame using it. */
2129 xic_free_xfontset (struct frame
*f
)
2131 Lisp_Object rest
, frame
;
2134 if (!FRAME_XIC_FONTSET (f
))
2137 /* See if there is another frame sharing the same fontset. */
2138 FOR_EACH_FRAME (rest
, frame
)
2140 struct frame
*cf
= XFRAME (frame
);
2141 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2142 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2143 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2151 /* The fontset is not used anymore. It is safe to free it. */
2152 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2154 if (FRAME_XIC_BASE_FONTNAME (f
))
2155 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2156 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2157 FRAME_XIC_FONTSET (f
) = NULL
;
2161 /* Value is the best input style, given user preferences USER (already
2162 checked to be supported by Emacs), and styles supported by the
2163 input method XIM. */
2166 best_xim_style (XIMStyles
*user
, XIMStyles
*xim
)
2170 for (i
= 0; i
< user
->count_styles
; ++i
)
2171 for (j
= 0; j
< xim
->count_styles
; ++j
)
2172 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2173 return user
->supported_styles
[i
];
2175 /* Return the default style. */
2176 return XIMPreeditNothing
| XIMStatusNothing
;
2179 /* Create XIC for frame F. */
2181 static XIMStyle xic_style
;
2184 create_frame_xic (struct frame
*f
)
2188 XFontSet xfs
= NULL
;
2193 /* Create X fontset. */
2194 xfs
= xic_create_xfontset (f
);
2195 xim
= FRAME_X_XIM (f
);
2200 XVaNestedList preedit_attr
;
2201 XVaNestedList status_attr
;
2203 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2204 spot
.x
= 0; spot
.y
= 1;
2206 /* Determine XIC style. */
2209 XIMStyles supported_list
;
2210 supported_list
.count_styles
= (sizeof supported_xim_styles
2211 / sizeof supported_xim_styles
[0]);
2212 supported_list
.supported_styles
= supported_xim_styles
;
2213 xic_style
= best_xim_style (&supported_list
,
2214 FRAME_X_XIM_STYLES (f
));
2217 preedit_attr
= XVaCreateNestedList (0,
2220 FRAME_FOREGROUND_PIXEL (f
),
2222 FRAME_BACKGROUND_PIXEL (f
),
2223 (xic_style
& XIMPreeditPosition
2228 status_attr
= XVaCreateNestedList (0,
2234 FRAME_FOREGROUND_PIXEL (f
),
2236 FRAME_BACKGROUND_PIXEL (f
),
2239 xic
= XCreateIC (xim
,
2240 XNInputStyle
, xic_style
,
2241 XNClientWindow
, FRAME_X_WINDOW (f
),
2242 XNFocusWindow
, FRAME_X_WINDOW (f
),
2243 XNStatusAttributes
, status_attr
,
2244 XNPreeditAttributes
, preedit_attr
,
2246 XFree (preedit_attr
);
2247 XFree (status_attr
);
2250 FRAME_XIC (f
) = xic
;
2251 FRAME_XIC_STYLE (f
) = xic_style
;
2252 FRAME_XIC_FONTSET (f
) = xfs
;
2256 /* Destroy XIC and free XIC fontset of frame F, if any. */
2259 free_frame_xic (struct frame
*f
)
2261 if (FRAME_XIC (f
) == NULL
)
2264 XDestroyIC (FRAME_XIC (f
));
2265 xic_free_xfontset (f
);
2267 FRAME_XIC (f
) = NULL
;
2271 /* Place preedit area for XIC of window W's frame to specified
2272 pixel position X/Y. X and Y are relative to window W. */
2275 xic_set_preeditarea (struct window
*w
, int x
, int y
)
2277 struct frame
*f
= XFRAME (w
->frame
);
2281 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2282 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2283 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2284 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2289 /* Place status area for XIC in bottom right corner of frame F.. */
2292 xic_set_statusarea (struct frame
*f
)
2294 XIC xic
= FRAME_XIC (f
);
2299 /* Negotiate geometry of status area. If input method has existing
2300 status area, use its current size. */
2301 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2302 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2303 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2306 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2307 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2310 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2312 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2313 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2317 area
.width
= needed
->width
;
2318 area
.height
= needed
->height
;
2319 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2320 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2321 - FRAME_MENUBAR_HEIGHT (f
)
2322 - FRAME_TOOLBAR_TOP_HEIGHT (f
)
2323 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2326 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2327 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2332 /* Set X fontset for XIC of frame F, using base font name
2333 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2336 xic_set_xfontset (struct frame
*f
, const char *base_fontname
)
2341 xic_free_xfontset (f
);
2343 xfs
= xic_create_xfontset (f
);
2345 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2346 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2347 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2348 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2349 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2352 FRAME_XIC_FONTSET (f
) = xfs
;
2355 #endif /* HAVE_X_I18N */
2359 #ifdef USE_X_TOOLKIT
2361 /* Create and set up the X widget for frame F. */
2364 x_window (struct frame
*f
, long window_prompting
, int minibuffer_only
)
2366 XClassHint class_hints
;
2367 XSetWindowAttributes attributes
;
2368 unsigned long attribute_mask
;
2369 Widget shell_widget
;
2371 Widget frame_widget
;
2377 /* Use the resource name as the top-level widget name
2378 for looking up resources. Make a non-Lisp copy
2379 for the window manager, so GC relocation won't bother it.
2381 Elsewhere we specify the window name for the window manager. */
2384 char *str
= SSDATA (Vx_resource_name
);
2385 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2386 strcpy (f
->namebuf
, str
);
2390 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2391 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2392 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2393 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2394 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2395 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2396 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2397 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2398 applicationShellWidgetClass
,
2399 FRAME_X_DISPLAY (f
), al
, ac
);
2401 f
->output_data
.x
->widget
= shell_widget
;
2402 /* maybe_set_screen_title_format (shell_widget); */
2404 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2405 (widget_value
*) NULL
,
2406 shell_widget
, False
,
2410 (lw_callback
) NULL
);
2413 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2414 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2415 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2416 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2417 XtSetValues (pane_widget
, al
, ac
);
2418 f
->output_data
.x
->column_widget
= pane_widget
;
2420 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2421 the emacs screen when changing menubar. This reduces flickering. */
2424 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2425 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2426 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2427 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2428 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2429 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2430 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2431 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2432 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2433 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2436 f
->output_data
.x
->edit_widget
= frame_widget
;
2438 XtManageChild (frame_widget
);
2440 /* Do some needed geometry management. */
2443 char *tem
, shell_position
[sizeof "=x++" + 4 * INT_STRLEN_BOUND (int)];
2446 int extra_borders
= 0;
2448 = (f
->output_data
.x
->menubar_widget
2449 ? (f
->output_data
.x
->menubar_widget
->core
.height
2450 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2453 #if 0 /* Experimentally, we now get the right results
2454 for -geometry -0-0 without this. 24 Aug 96, rms. */
2455 if (FRAME_EXTERNAL_MENU_BAR (f
))
2458 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2459 menubar_size
+= ibw
;
2463 f
->output_data
.x
->menubar_height
= menubar_size
;
2466 /* Motif seems to need this amount added to the sizes
2467 specified for the shell widget. The Athena/Lucid widgets don't.
2468 Both conclusions reached experimentally. -- rms. */
2469 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2470 &extra_borders
, NULL
);
2474 /* Convert our geometry parameters into a geometry string
2476 Note that we do not specify here whether the position
2477 is a user-specified or program-specified one.
2478 We pass that information later, in x_wm_set_size_hints. */
2480 int left
= f
->left_pos
;
2481 int xneg
= window_prompting
& XNegative
;
2482 int top
= f
->top_pos
;
2483 int yneg
= window_prompting
& YNegative
;
2489 if (window_prompting
& USPosition
)
2490 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2491 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2492 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2493 (xneg
? '-' : '+'), left
,
2494 (yneg
? '-' : '+'), top
);
2497 sprintf (shell_position
, "=%dx%d",
2498 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2499 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2501 /* Setting x and y when the position is not specified in
2502 the geometry string will set program position in the WM hints.
2503 If Emacs had just one program position, we could set it in
2504 fallback resources, but since each make-frame call can specify
2505 different program positions, this is easier. */
2506 XtSetArg (gal
[gac
], XtNx
, left
); gac
++;
2507 XtSetArg (gal
[gac
], XtNy
, top
); gac
++;
2511 len
= strlen (shell_position
) + 1;
2512 /* We don't free this because we don't know whether
2513 it is safe to free it while the frame exists.
2514 It isn't worth the trouble of arranging to free it
2515 when the frame is deleted. */
2516 tem
= (char *) xmalloc (len
);
2517 strncpy (tem
, shell_position
, len
);
2518 XtSetArg (gal
[gac
], XtNgeometry
, tem
); gac
++;
2519 XtSetValues (shell_widget
, gal
, gac
);
2522 XtManageChild (pane_widget
);
2523 XtRealizeWidget (shell_widget
);
2525 if (FRAME_X_EMBEDDED_P (f
))
2526 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2527 f
->output_data
.x
->parent_desc
, 0, 0);
2529 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2531 validate_x_resource_name ();
2533 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2534 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2535 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2538 FRAME_XIC (f
) = NULL
;
2540 create_frame_xic (f
);
2543 f
->output_data
.x
->wm_hints
.input
= True
;
2544 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2545 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2546 &f
->output_data
.x
->wm_hints
);
2548 hack_wm_protocols (f
, shell_widget
);
2551 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2554 /* Do a stupid property change to force the server to generate a
2555 PropertyNotify event so that the event_stream server timestamp will
2556 be initialized to something relevant to the time we created the window.
2558 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2559 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2560 XA_ATOM
, 32, PropModeAppend
,
2561 (unsigned char*) NULL
, 0);
2563 /* Make all the standard events reach the Emacs frame. */
2564 attributes
.event_mask
= STANDARD_EVENT_SET
;
2569 /* XIM server might require some X events. */
2570 unsigned long fevent
= NoEventMask
;
2571 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2572 attributes
.event_mask
|= fevent
;
2574 #endif /* HAVE_X_I18N */
2576 attribute_mask
= CWEventMask
;
2577 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2578 attribute_mask
, &attributes
);
2580 XtMapWidget (frame_widget
);
2582 /* x_set_name normally ignores requests to set the name if the
2583 requested name is the same as the current name. This is the one
2584 place where that assumption isn't correct; f->name is set, but
2585 the X server hasn't been told. */
2588 int explicit = f
->explicit_name
;
2590 f
->explicit_name
= 0;
2593 x_set_name (f
, name
, explicit);
2596 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2597 f
->output_data
.x
->current_cursor
2598 = f
->output_data
.x
->text_cursor
);
2602 /* This is a no-op, except under Motif. Make sure main areas are
2603 set to something reasonable, in case we get an error later. */
2604 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2607 #else /* not USE_X_TOOLKIT */
2610 x_window (FRAME_PTR f
)
2612 if (! xg_create_frame_widgets (f
))
2613 error ("Unable to create window");
2616 FRAME_XIC (f
) = NULL
;
2620 create_frame_xic (f
);
2623 /* XIM server might require some X events. */
2624 unsigned long fevent
= NoEventMask
;
2625 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2627 if (fevent
!= NoEventMask
)
2629 XSetWindowAttributes attributes
;
2630 XWindowAttributes wattr
;
2631 unsigned long attribute_mask
;
2633 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2635 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2636 attribute_mask
= CWEventMask
;
2637 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2638 attribute_mask
, &attributes
);
2646 #else /*! USE_GTK */
2647 /* Create and set up the X window for frame F. */
2650 x_window (struct frame
*f
)
2652 XClassHint class_hints
;
2653 XSetWindowAttributes attributes
;
2654 unsigned long attribute_mask
;
2656 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2657 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2658 attributes
.bit_gravity
= StaticGravity
;
2659 attributes
.backing_store
= NotUseful
;
2660 attributes
.save_under
= True
;
2661 attributes
.event_mask
= STANDARD_EVENT_SET
;
2662 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2663 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2668 = XCreateWindow (FRAME_X_DISPLAY (f
),
2669 f
->output_data
.x
->parent_desc
,
2672 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2674 CopyFromParent
, /* depth */
2675 InputOutput
, /* class */
2677 attribute_mask
, &attributes
);
2682 create_frame_xic (f
);
2685 /* XIM server might require some X events. */
2686 unsigned long fevent
= NoEventMask
;
2687 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2688 attributes
.event_mask
|= fevent
;
2689 attribute_mask
= CWEventMask
;
2690 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2691 attribute_mask
, &attributes
);
2694 #endif /* HAVE_X_I18N */
2696 validate_x_resource_name ();
2698 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2699 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2700 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2702 /* The menubar is part of the ordinary display;
2703 it does not count in addition to the height of the window. */
2704 f
->output_data
.x
->menubar_height
= 0;
2706 /* This indicates that we use the "Passive Input" input model.
2707 Unless we do this, we don't get the Focus{In,Out} events that we
2708 need to draw the cursor correctly. Accursed bureaucrats.
2709 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2711 f
->output_data
.x
->wm_hints
.input
= True
;
2712 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2713 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2714 &f
->output_data
.x
->wm_hints
);
2715 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2717 /* Request "save yourself" and "delete window" commands from wm. */
2720 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2721 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2722 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2725 /* x_set_name normally ignores requests to set the name if the
2726 requested name is the same as the current name. This is the one
2727 place where that assumption isn't correct; f->name is set, but
2728 the X server hasn't been told. */
2731 int explicit = f
->explicit_name
;
2733 f
->explicit_name
= 0;
2736 x_set_name (f
, name
, explicit);
2739 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2740 f
->output_data
.x
->current_cursor
2741 = f
->output_data
.x
->text_cursor
);
2745 if (FRAME_X_WINDOW (f
) == 0)
2746 error ("Unable to create window");
2749 #endif /* not USE_GTK */
2750 #endif /* not USE_X_TOOLKIT */
2752 /* Verify that the icon position args for this window are valid. */
2755 x_icon_verify (struct frame
*f
, Lisp_Object parms
)
2757 Lisp_Object icon_x
, icon_y
;
2759 /* Set the position of the icon. Note that twm groups all
2760 icons in an icon window. */
2761 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2762 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2763 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2765 CHECK_NUMBER (icon_x
);
2766 CHECK_NUMBER (icon_y
);
2768 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2769 error ("Both left and top icon corners of icon must be specified");
2772 /* Handle the icon stuff for this window. Perhaps later we might
2773 want an x_set_icon_position which can be called interactively as
2777 x_icon (struct frame
*f
, Lisp_Object parms
)
2779 Lisp_Object icon_x
, icon_y
;
2781 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2784 /* Set the position of the icon. Note that twm groups all
2785 icons in an icon window. */
2786 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2787 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2788 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2790 CHECK_NUMBER (icon_x
);
2791 CHECK_NUMBER (icon_y
);
2793 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2794 error ("Both left and top icon corners of icon must be specified");
2798 if (! EQ (icon_x
, Qunbound
))
2799 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2801 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2802 but x_create_frame still needs it. */
2803 /* Start up iconic or window? */
2804 x_wm_set_window_state
2805 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2811 x_text_icon (f
, SSDATA ((!NILP (f
->icon_name
)
2818 /* Make the GCs needed for this window, setting the
2819 background, border and mouse colors; also create the
2820 mouse cursor and the gray border tile. */
2823 x_make_gc (struct frame
*f
)
2825 XGCValues gc_values
;
2829 /* Create the GCs of this frame.
2830 Note that many default values are used. */
2832 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2833 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2834 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2835 f
->output_data
.x
->normal_gc
2836 = XCreateGC (FRAME_X_DISPLAY (f
),
2838 GCLineWidth
| GCForeground
| GCBackground
,
2841 /* Reverse video style. */
2842 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2843 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2844 f
->output_data
.x
->reverse_gc
2845 = XCreateGC (FRAME_X_DISPLAY (f
),
2847 GCForeground
| GCBackground
| GCLineWidth
,
2850 /* Cursor has cursor-color background, background-color foreground. */
2851 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2852 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2853 gc_values
.fill_style
= FillOpaqueStippled
;
2854 f
->output_data
.x
->cursor_gc
2855 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2856 (GCForeground
| GCBackground
2857 | GCFillStyle
| GCLineWidth
),
2861 f
->output_data
.x
->white_relief
.gc
= 0;
2862 f
->output_data
.x
->black_relief
.gc
= 0;
2864 /* Create the gray border tile used when the pointer is not in
2865 the frame. Since this depends on the frame's pixel values,
2866 this must be done on a per-frame basis. */
2867 f
->output_data
.x
->border_tile
2868 = (XCreatePixmapFromBitmapData
2869 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2870 gray_bits
, gray_width
, gray_height
,
2871 FRAME_FOREGROUND_PIXEL (f
),
2872 FRAME_BACKGROUND_PIXEL (f
),
2873 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2879 /* Free what was allocated in x_make_gc. */
2882 x_free_gcs (struct frame
*f
)
2884 Display
*dpy
= FRAME_X_DISPLAY (f
);
2888 if (f
->output_data
.x
->normal_gc
)
2890 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2891 f
->output_data
.x
->normal_gc
= 0;
2894 if (f
->output_data
.x
->reverse_gc
)
2896 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2897 f
->output_data
.x
->reverse_gc
= 0;
2900 if (f
->output_data
.x
->cursor_gc
)
2902 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2903 f
->output_data
.x
->cursor_gc
= 0;
2906 if (f
->output_data
.x
->border_tile
)
2908 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2909 f
->output_data
.x
->border_tile
= 0;
2916 /* Handler for signals raised during x_create_frame and
2917 x_create_top_frame. FRAME is the frame which is partially
2921 unwind_create_frame (Lisp_Object frame
)
2923 struct frame
*f
= XFRAME (frame
);
2925 /* If frame is already dead, nothing to do. This can happen if the
2926 display is disconnected after the frame has become official, but
2927 before x_create_frame removes the unwind protect. */
2928 if (!FRAME_LIVE_P (f
))
2931 /* If frame is ``official'', nothing to do. */
2932 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2934 #if GLYPH_DEBUG && XASSERTS
2935 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2938 x_free_frame_resources (f
);
2942 /* Check that reference counts are indeed correct. */
2943 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2944 xassert (dpyinfo
->terminal
->image_cache
->refcount
== image_cache_refcount
);
2954 x_default_font_parameter (struct frame
*f
, Lisp_Object parms
)
2956 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2957 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
2959 Lisp_Object font
= Qnil
;
2960 if (EQ (font_param
, Qunbound
))
2963 if (NILP (font_param
))
2965 /* System font should take precedendce over X resources. We suggest this
2966 regardless of font-use-system-font because .emacs may not have been
2968 const char *system_font
= xsettings_get_system_font ();
2971 char *name
= xstrdup (system_font
);
2972 font
= font_open_by_name (f
, name
);
2978 font
= !NILP (font_param
) ? font_param
2979 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
2981 if (! FONTP (font
) && ! STRINGP (font
))
2986 /* This will find the normal Xft font. */
2989 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
2990 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2991 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2992 /* This was formerly the first thing tried, but it finds
2993 too many fonts and takes too long. */
2994 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
2995 /* If those didn't work, look for something which will
2997 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
3002 for (i
= 0; names
[i
]; i
++)
3004 font
= font_open_by_name (f
, names
[i
]);
3009 error ("No suitable font was found");
3011 else if (!NILP (font_param
))
3013 /* Remember the explicit font parameter, so we can re-apply it after
3014 we've applied the `default' face settings. */
3015 x_set_frame_parameters (f
, Fcons (Fcons (Qfont_param
, font_param
), Qnil
));
3018 /* This call will make X resources override any system font setting. */
3019 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
3023 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
3025 doc
: /* Send the size hints for frame FRAME to the window manager.
3026 If FRAME is nil, use the selected frame. */)
3031 frame
= selected_frame
;
3035 x_wm_set_size_hint (f
, 0, 0);
3041 set_machine_and_pid_properties (struct frame
*f
)
3043 long pid
= (long) getpid ();
3045 /* This will set WM_CLIENT_MACHINE and WM_LOCALE_NAME. */
3046 XSetWMProperties (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), NULL
, NULL
,
3047 NULL
, 0, NULL
, NULL
, NULL
);
3048 XChangeProperty (FRAME_X_DISPLAY (f
),
3049 FRAME_OUTER_WINDOW (f
),
3050 XInternAtom (FRAME_X_DISPLAY (f
),
3053 XA_CARDINAL
, 32, PropModeReplace
,
3054 (unsigned char *) &pid
, 1);
3057 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3059 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3060 Return an Emacs frame object.
3061 PARMS is an alist of frame parameters.
3062 If the parameters specify that the frame should not have a minibuffer,
3063 and do not specify a specific minibuffer window to use,
3064 then `default-minibuffer-frame' must be a frame whose minibuffer can
3065 be shared by the new frame.
3067 This function is an internal primitive--use `make-frame' instead. */)
3071 Lisp_Object frame
, tem
;
3073 int minibuffer_only
= 0;
3074 long window_prompting
= 0;
3076 int count
= SPECPDL_INDEX ();
3077 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3078 Lisp_Object display
;
3079 struct x_display_info
*dpyinfo
= NULL
;
3083 parms
= Fcopy_alist (parms
);
3085 /* Use this general default value to start with
3086 until we know if this frame has a specified name. */
3087 Vx_resource_name
= Vinvocation_name
;
3089 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3090 if (EQ (display
, Qunbound
))
3091 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3092 if (EQ (display
, Qunbound
))
3094 dpyinfo
= check_x_display_info (display
);
3095 kb
= dpyinfo
->terminal
->kboard
;
3097 if (!dpyinfo
->terminal
->name
)
3098 error ("Terminal is not live, can't create new frames on it");
3100 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3102 && ! EQ (name
, Qunbound
)
3104 error ("Invalid frame name--not a string or nil");
3107 Vx_resource_name
= name
;
3109 /* See if parent window is specified. */
3110 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3111 if (EQ (parent
, Qunbound
))
3113 if (! NILP (parent
))
3114 CHECK_NUMBER (parent
);
3116 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3117 /* No need to protect DISPLAY because that's not used after passing
3118 it to make_frame_without_minibuffer. */
3120 GCPRO4 (parms
, parent
, name
, frame
);
3121 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3123 if (EQ (tem
, Qnone
) || NILP (tem
))
3124 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3125 else if (EQ (tem
, Qonly
))
3127 f
= make_minibuffer_frame ();
3128 minibuffer_only
= 1;
3130 else if (WINDOWP (tem
))
3131 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3135 XSETFRAME (frame
, f
);
3137 /* Note that X Windows does support scroll bars. */
3138 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3140 f
->terminal
= dpyinfo
->terminal
;
3141 f
->terminal
->reference_count
++;
3143 f
->output_method
= output_x_window
;
3144 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3145 memset (f
->output_data
.x
, 0, sizeof (struct x_output
));
3146 f
->output_data
.x
->icon_bitmap
= -1;
3147 FRAME_FONTSET (f
) = -1;
3148 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3149 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3150 #ifdef USE_TOOLKIT_SCROLL_BARS
3151 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3152 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3153 #endif /* USE_TOOLKIT_SCROLL_BARS */
3156 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3158 if (! STRINGP (f
->icon_name
))
3159 f
->icon_name
= Qnil
;
3161 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3163 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3164 record_unwind_protect (unwind_create_frame
, frame
);
3166 /* These colors will be set anyway later, but it's important
3167 to get the color reference counts right, so initialize them! */
3170 struct gcpro inner_gcpro1
;
3172 /* Function x_decode_color can signal an error. Make
3173 sure to initialize color slots so that we won't try
3174 to free colors we haven't allocated. */
3175 FRAME_FOREGROUND_PIXEL (f
) = -1;
3176 FRAME_BACKGROUND_PIXEL (f
) = -1;
3177 f
->output_data
.x
->cursor_pixel
= -1;
3178 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3179 f
->output_data
.x
->border_pixel
= -1;
3180 f
->output_data
.x
->mouse_pixel
= -1;
3182 black
= build_string ("black");
3183 GCPRO1_VAR (black
, inner_gcpro
);
3184 FRAME_FOREGROUND_PIXEL (f
)
3185 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3186 FRAME_BACKGROUND_PIXEL (f
)
3187 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3188 f
->output_data
.x
->cursor_pixel
3189 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3190 f
->output_data
.x
->cursor_foreground_pixel
3191 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3192 f
->output_data
.x
->border_pixel
3193 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3194 f
->output_data
.x
->mouse_pixel
3195 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3196 UNGCPRO_VAR (inner_gcpro
);
3199 /* Specify the parent under which to make this X window. */
3203 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3204 f
->output_data
.x
->explicit_parent
= 1;
3208 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3209 f
->output_data
.x
->explicit_parent
= 0;
3212 /* Set the name; the functions to which we pass f expect the name to
3214 if (EQ (name
, Qunbound
) || NILP (name
))
3216 f
->name
= build_string (dpyinfo
->x_id_name
);
3217 f
->explicit_name
= 0;
3222 f
->explicit_name
= 1;
3223 /* use the frame's title when getting resources for this frame. */
3224 specbind (Qx_resource_name
, name
);
3227 f
->resx
= dpyinfo
->resx
;
3228 f
->resy
= dpyinfo
->resy
;
3230 #ifdef HAVE_FREETYPE
3232 register_font_driver (&xftfont_driver
, f
);
3233 #else /* not HAVE_XFT */
3234 register_font_driver (&ftxfont_driver
, f
);
3235 #endif /* not HAVE_XFT */
3236 #endif /* HAVE_FREETYPE */
3237 register_font_driver (&xfont_driver
, f
);
3239 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3240 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3242 /* Extract the window parameters from the supplied values
3243 that are needed to determine window geometry. */
3244 x_default_font_parameter (f
, parms
);
3245 if (!FRAME_FONT (f
))
3247 delete_frame (frame
, Qnoelisp
);
3248 error ("Invalid frame font");
3251 /* Frame contents get displaced if an embedded X window has a border. */
3252 if (! FRAME_X_EMBEDDED_P (f
))
3253 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
3254 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3256 /* This defaults to 1 in order to match xterm. We recognize either
3257 internalBorderWidth or internalBorder (which is what xterm calls
3259 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3263 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3264 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3265 if (! EQ (value
, Qunbound
))
3266 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3269 x_default_parameter (f
, parms
, Qinternal_border_width
,
3270 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3275 "internalBorderWidth", "internalBorderWidth",
3277 x_default_parameter (f
, parms
, Qvertical_scroll_bars
,
3278 #if defined (USE_GTK) && defined (USE_TOOLKIT_SCROLL_BARS)
3283 "verticalScrollBars", "ScrollBars",
3286 /* Also do the stuff which must be set before the window exists. */
3287 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3288 "foreground", "Foreground", RES_TYPE_STRING
);
3289 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3290 "background", "Background", RES_TYPE_STRING
);
3291 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3292 "pointerColor", "Foreground", RES_TYPE_STRING
);
3293 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3294 "borderColor", "BorderColor", RES_TYPE_STRING
);
3295 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3296 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3297 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3298 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3299 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3300 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3301 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3302 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3304 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3305 "scrollBarForeground",
3306 "ScrollBarForeground", 1);
3307 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3308 "scrollBarBackground",
3309 "ScrollBarBackground", 0);
3311 /* Init faces before x_default_parameter is called for scroll-bar
3312 parameters because that function calls x_set_scroll_bar_width,
3313 which calls change_frame_size, which calls Fset_window_buffer,
3314 which runs hooks, which call Fvertical_motion. At the end, we
3315 end up in init_iterator with a null face cache, which should not
3317 init_frame_faces (f
);
3320 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
3321 dpyinfo_refcount
= dpyinfo
->reference_count
;
3322 #endif /* GLYPH_DEBUG */
3324 /* The X resources controlling the menu-bar and tool-bar are
3325 processed specially at startup, and reflected in the mode
3326 variables; ignore them here. */
3327 x_default_parameter (f
, parms
, Qmenu_bar_lines
,
3328 NILP (Vmenu_bar_mode
)
3329 ? make_number (0) : make_number (1),
3330 NULL
, NULL
, RES_TYPE_NUMBER
);
3331 x_default_parameter (f
, parms
, Qtool_bar_lines
,
3332 NILP (Vtool_bar_mode
)
3333 ? make_number (0) : make_number (1),
3334 NULL
, NULL
, RES_TYPE_NUMBER
);
3336 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3337 "bufferPredicate", "BufferPredicate",
3339 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3340 "title", "Title", RES_TYPE_STRING
);
3341 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3342 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3343 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3344 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3345 x_default_parameter (f
, parms
, Qtool_bar_position
,
3346 f
->tool_bar_position
, 0, 0, RES_TYPE_SYMBOL
);
3348 /* Compute the size of the X window. */
3349 window_prompting
= x_figure_window_size (f
, parms
, 1);
3351 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3352 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3354 x_icon_verify (f
, parms
);
3356 /* Create the X widget or window. */
3357 #ifdef USE_X_TOOLKIT
3358 x_window (f
, window_prompting
, minibuffer_only
);
3366 /* Now consider the frame official. */
3367 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3368 Vframe_list
= Fcons (frame
, Vframe_list
);
3370 /* We need to do this after creating the X window, so that the
3371 icon-creation functions can say whose icon they're describing. */
3372 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3373 "bitmapIcon", "BitmapIcon", RES_TYPE_BOOLEAN
);
3375 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3376 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3377 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3378 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3379 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3380 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3381 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3382 "scrollBarWidth", "ScrollBarWidth",
3384 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3385 "alpha", "Alpha", RES_TYPE_NUMBER
);
3387 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3388 Change will not be effected unless different from the current
3390 width
= FRAME_COLS (f
);
3391 height
= FRAME_LINES (f
);
3393 SET_FRAME_COLS (f
, 0);
3394 FRAME_LINES (f
) = 0;
3395 change_frame_size (f
, height
, width
, 1, 0, 0);
3397 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3398 /* Create the menu bar. */
3399 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3401 /* If this signals an error, we haven't set size hints for the
3402 frame and we didn't make it visible. */
3403 initialize_frame_menubar (f
);
3406 /* This is a no-op, except under Motif where it arranges the
3407 main window for the widgets on it. */
3408 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3409 f
->output_data
.x
->menubar_widget
,
3410 f
->output_data
.x
->edit_widget
);
3411 #endif /* not USE_GTK */
3413 #endif /* USE_X_TOOLKIT || USE_GTK */
3415 /* Tell the server what size and position, etc, we want, and how
3416 badly we want them. This should be done after we have the menu
3417 bar so that its size can be taken into account. */
3419 x_wm_set_size_hint (f
, window_prompting
, 0);
3422 /* Make the window appear on the frame and enable display, unless
3423 the caller says not to. However, with explicit parent, Emacs
3424 cannot control visibility, so don't try. */
3425 if (! f
->output_data
.x
->explicit_parent
)
3427 Lisp_Object visibility
;
3429 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3431 if (EQ (visibility
, Qunbound
))
3434 if (EQ (visibility
, Qicon
))
3435 x_iconify_frame (f
);
3436 else if (! NILP (visibility
))
3437 x_make_frame_visible (f
);
3440 /* Must have been Qnil. */
3446 /* Set machine name and pid for the purpose of window managers. */
3447 set_machine_and_pid_properties (f
);
3449 /* Set the WM leader property. GTK does this itself, so this is not
3450 needed when using GTK. */
3451 if (dpyinfo
->client_leader_window
!= 0)
3453 XChangeProperty (FRAME_X_DISPLAY (f
),
3454 FRAME_OUTER_WINDOW (f
),
3455 dpyinfo
->Xatom_wm_client_leader
,
3456 XA_WINDOW
, 32, PropModeReplace
,
3457 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3462 /* Initialize `default-minibuffer-frame' in case this is the first
3463 frame on this terminal. */
3464 if (FRAME_HAS_MINIBUF_P (f
)
3465 && (!FRAMEP (KVAR (kb
, Vdefault_minibuffer_frame
))
3466 || !FRAME_LIVE_P (XFRAME (KVAR (kb
, Vdefault_minibuffer_frame
)))))
3467 KVAR (kb
, Vdefault_minibuffer_frame
) = frame
;
3469 /* All remaining specified parameters, which have not been "used"
3470 by x_get_arg and friends, now go in the misc. alist of the frame. */
3471 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3472 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3473 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3477 /* Make sure windows on this frame appear in calls to next-window
3478 and similar functions. */
3479 Vwindow_list
= Qnil
;
3481 return unbind_to (count
, frame
);
3485 /* FRAME is used only to get a handle on the X display. We don't pass the
3486 display info directly because we're called from frame.c, which doesn't
3487 know about that structure. */
3490 x_get_focus_frame (struct frame
*frame
)
3492 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3494 if (! dpyinfo
->x_focus_frame
)
3497 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3502 /* In certain situations, when the window manager follows a
3503 click-to-focus policy, there seems to be no way around calling
3504 XSetInputFocus to give another frame the input focus .
3506 In an ideal world, XSetInputFocus should generally be avoided so
3507 that applications don't interfere with the window manager's focus
3508 policy. But I think it's okay to use when it's clearly done
3509 following a user-command. */
3511 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3512 doc
: /* Set the input focus to FRAME.
3513 FRAME nil means use the selected frame. */)
3516 struct frame
*f
= check_x_frame (frame
);
3517 Display
*dpy
= FRAME_X_DISPLAY (f
);
3520 x_catch_errors (dpy
);
3521 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3522 RevertToParent
, CurrentTime
);
3523 x_ewmh_activate_frame (f
);
3524 x_uncatch_errors ();
3531 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3532 doc
: /* Internal function called by `color-defined-p', which see
3533 .\(Note that the Nextstep version of this function ignores FRAME.) */)
3534 (Lisp_Object color
, Lisp_Object frame
)
3537 FRAME_PTR f
= check_x_frame (frame
);
3539 CHECK_STRING (color
);
3541 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3547 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3548 doc
: /* Internal function called by `color-values', which see. */)
3549 (Lisp_Object color
, Lisp_Object frame
)
3552 FRAME_PTR f
= check_x_frame (frame
);
3554 CHECK_STRING (color
);
3556 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3557 return list3 (make_number (foo
.red
),
3558 make_number (foo
.green
),
3559 make_number (foo
.blue
));
3564 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3565 doc
: /* Internal function called by `display-color-p', which see. */)
3566 (Lisp_Object terminal
)
3568 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3570 if (dpyinfo
->n_planes
<= 2)
3573 switch (dpyinfo
->visual
->class)
3586 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3588 doc
: /* Return t if the X display supports shades of gray.
3589 Note that color displays do support shades of gray.
3590 The optional argument TERMINAL specifies which display to ask about.
3591 TERMINAL should be a terminal object, a frame or a display name (a string).
3592 If omitted or nil, that stands for the selected frame's display. */)
3593 (Lisp_Object terminal
)
3595 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3597 if (dpyinfo
->n_planes
<= 1)
3600 switch (dpyinfo
->visual
->class)
3615 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3617 doc
: /* Return the width in pixels of the X display TERMINAL.
3618 The optional argument TERMINAL specifies which display to ask about.
3619 TERMINAL should be a terminal object, a frame or a display name (a string).
3620 If omitted or nil, that stands for the selected frame's display. */)
3621 (Lisp_Object terminal
)
3623 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3625 return make_number (x_display_pixel_width (dpyinfo
));
3628 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3629 Sx_display_pixel_height
, 0, 1, 0,
3630 doc
: /* Return the height in pixels of the X display TERMINAL.
3631 The optional argument TERMINAL specifies which display to ask about.
3632 TERMINAL should be a terminal object, a frame or a display name (a string).
3633 If omitted or nil, that stands for the selected frame's display. */)
3634 (Lisp_Object terminal
)
3636 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3638 return make_number (x_display_pixel_height (dpyinfo
));
3641 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3643 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3644 The optional argument TERMINAL specifies which display to ask about.
3645 TERMINAL should be a terminal object, a frame or a display name (a string).
3646 If omitted or nil, that stands for the selected frame's display. */)
3647 (Lisp_Object terminal
)
3649 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3651 return make_number (dpyinfo
->n_planes
);
3654 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3656 doc
: /* Return the number of color cells of the X display TERMINAL.
3657 The optional argument TERMINAL specifies which display to ask about.
3658 TERMINAL should be a terminal object, a frame or a display name (a string).
3659 If omitted or nil, that stands for the selected frame's display. */)
3660 (Lisp_Object terminal
)
3662 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3664 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3665 XScreenNumberOfScreen (dpyinfo
->screen
));
3667 /* Truncate nr_planes to 24 to avoid integer overflow.
3668 Some displays says 32, but only 24 bits are actually significant.
3669 There are only very few and rare video cards that have more than
3670 24 significant bits. Also 24 bits is more than 16 million colors,
3671 it "should be enough for everyone". */
3672 if (nr_planes
> 24) nr_planes
= 24;
3674 return make_number (1 << nr_planes
);
3677 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3678 Sx_server_max_request_size
,
3680 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3681 The optional argument TERMINAL specifies which display to ask about.
3682 TERMINAL should be a terminal object, a frame or a display name (a string).
3683 If omitted or nil, that stands for the selected frame's display. */)
3684 (Lisp_Object terminal
)
3686 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3688 return make_number (MAXREQUEST (dpyinfo
->display
));
3691 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3692 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3693 \(Labelling every distributor as a "vendor" embodies the false assumption
3694 that operating systems cannot be developed and distributed noncommercially.)
3695 The optional argument TERMINAL specifies which display to ask about.
3696 TERMINAL should be a terminal object, a frame or a display name (a string).
3697 If omitted or nil, that stands for the selected frame's display. */)
3698 (Lisp_Object terminal
)
3700 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3701 const char *vendor
= ServerVendor (dpyinfo
->display
);
3703 if (! vendor
) vendor
= "";
3704 return build_string (vendor
);
3707 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3708 doc
: /* Return the version numbers of the X server of display TERMINAL.
3709 The value is a list of three integers: the major and minor
3710 version numbers of the X Protocol in use, and the distributor-specific release
3711 number. See also the function `x-server-vendor'.
3713 The optional argument TERMINAL specifies which display to ask about.
3714 TERMINAL should be a terminal object, a frame or a display name (a string).
3715 If omitted or nil, that stands for the selected frame's display. */)
3716 (Lisp_Object terminal
)
3718 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3719 Display
*dpy
= dpyinfo
->display
;
3721 return Fcons (make_number (ProtocolVersion (dpy
)),
3722 Fcons (make_number (ProtocolRevision (dpy
)),
3723 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3726 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3727 doc
: /* Return the number of screens on the X server of display TERMINAL.
3728 The optional argument TERMINAL specifies which display to ask about.
3729 TERMINAL should be a terminal object, a frame or a display name (a string).
3730 If omitted or nil, that stands for the selected frame's display. */)
3731 (Lisp_Object terminal
)
3733 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3735 return make_number (ScreenCount (dpyinfo
->display
));
3738 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3739 doc
: /* Return the height in millimeters of the X display TERMINAL.
3740 The optional argument TERMINAL specifies which display to ask about.
3741 TERMINAL should be a terminal object, a frame or a display name (a string).
3742 If omitted or nil, that stands for the selected frame's display. */)
3743 (Lisp_Object terminal
)
3745 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3747 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3750 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3751 doc
: /* Return the width in millimeters of the X display TERMINAL.
3752 The optional argument TERMINAL specifies which display to ask about.
3753 TERMINAL should be a terminal object, a frame or a display name (a string).
3754 If omitted or nil, that stands for the selected frame's display. */)
3755 (Lisp_Object terminal
)
3757 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3759 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3762 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3763 Sx_display_backing_store
, 0, 1, 0,
3764 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3765 The value may be `always', `when-mapped', or `not-useful'.
3766 The optional argument TERMINAL specifies which display to ask about.
3767 TERMINAL should be a terminal object, a frame or a display name (a string).
3768 If omitted or nil, that stands for the selected frame's display. */)
3769 (Lisp_Object terminal
)
3771 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3774 switch (DoesBackingStore (dpyinfo
->screen
))
3777 result
= intern ("always");
3781 result
= intern ("when-mapped");
3785 result
= intern ("not-useful");
3789 error ("Strange value for BackingStore parameter of screen");
3796 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3797 Sx_display_visual_class
, 0, 1, 0,
3798 doc
: /* Return the visual class of the X display TERMINAL.
3799 The value is one of the symbols `static-gray', `gray-scale',
3800 `static-color', `pseudo-color', `true-color', or `direct-color'.
3802 The optional argument TERMINAL specifies which display to ask about.
3803 TERMINAL should a terminal object, a frame or a display name (a string).
3804 If omitted or nil, that stands for the selected frame's display. */)
3805 (Lisp_Object terminal
)
3807 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3810 switch (dpyinfo
->visual
->class)
3813 result
= intern ("static-gray");
3816 result
= intern ("gray-scale");
3819 result
= intern ("static-color");
3822 result
= intern ("pseudo-color");
3825 result
= intern ("true-color");
3828 result
= intern ("direct-color");
3831 error ("Display has an unknown visual class");
3838 DEFUN ("x-display-save-under", Fx_display_save_under
,
3839 Sx_display_save_under
, 0, 1, 0,
3840 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3841 The optional argument TERMINAL specifies which display to ask about.
3842 TERMINAL should be a terminal object, a frame or a display name (a string).
3843 If omitted or nil, that stands for the selected frame's display. */)
3844 (Lisp_Object terminal
)
3846 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3848 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3855 x_pixel_width (register struct frame
*f
)
3857 return FRAME_PIXEL_WIDTH (f
);
3861 x_pixel_height (register struct frame
*f
)
3863 return FRAME_PIXEL_HEIGHT (f
);
3867 x_char_width (register struct frame
*f
)
3869 return FRAME_COLUMN_WIDTH (f
);
3873 x_char_height (register struct frame
*f
)
3875 return FRAME_LINE_HEIGHT (f
);
3880 /************************************************************************
3882 ************************************************************************/
3885 /* Mapping visual names to visuals. */
3887 static struct visual_class
3894 {"StaticGray", StaticGray
},
3895 {"GrayScale", GrayScale
},
3896 {"StaticColor", StaticColor
},
3897 {"PseudoColor", PseudoColor
},
3898 {"TrueColor", TrueColor
},
3899 {"DirectColor", DirectColor
},
3904 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3906 /* Value is the screen number of screen SCR. This is a substitute for
3907 the X function with the same name when that doesn't exist. */
3910 XScreenNumberOfScreen (scr
)
3911 register Screen
*scr
;
3913 Display
*dpy
= scr
->display
;
3916 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3917 if (scr
== dpy
->screens
+ i
)
3923 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3926 /* Select the visual that should be used on display DPYINFO. Set
3927 members of DPYINFO appropriately. Called from x_term_init. */
3930 select_visual (struct x_display_info
*dpyinfo
)
3932 Display
*dpy
= dpyinfo
->display
;
3933 Screen
*screen
= dpyinfo
->screen
;
3936 /* See if a visual is specified. */
3937 value
= display_x_get_resource (dpyinfo
,
3938 build_string ("visualClass"),
3939 build_string ("VisualClass"),
3941 if (STRINGP (value
))
3943 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3944 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3945 depth, a decimal number. NAME is compared with case ignored. */
3946 char *s
= (char *) alloca (SBYTES (value
) + 1);
3951 strcpy (s
, SSDATA (value
));
3952 dash
= strchr (s
, '-');
3955 dpyinfo
->n_planes
= atoi (dash
+ 1);
3959 /* We won't find a matching visual with depth 0, so that
3960 an error will be printed below. */
3961 dpyinfo
->n_planes
= 0;
3963 /* Determine the visual class. */
3964 for (i
= 0; visual_classes
[i
].name
; ++i
)
3965 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
3967 class = visual_classes
[i
].class;
3971 /* Look up a matching visual for the specified class. */
3973 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
3974 dpyinfo
->n_planes
, class, &vinfo
))
3975 fatal ("Invalid visual specification `%s'", SDATA (value
));
3977 dpyinfo
->visual
= vinfo
.visual
;
3982 XVisualInfo
*vinfo
, vinfo_template
;
3984 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
3986 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
3987 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
3988 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
3989 &vinfo_template
, &n_visuals
);
3991 fatal ("Can't get proper X visual info");
3993 dpyinfo
->n_planes
= vinfo
->depth
;
3994 XFree ((char *) vinfo
);
3999 /* Return the X display structure for the display named NAME.
4000 Open a new connection if necessary. */
4002 static struct x_display_info
*
4003 x_display_info_for_name (Lisp_Object name
)
4006 struct x_display_info
*dpyinfo
;
4008 CHECK_STRING (name
);
4011 if (! EQ (Vinitial_window_system
, intern ("x")))
4012 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4015 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4017 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4020 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4025 /* Use this general default value to start with. */
4026 Vx_resource_name
= Vinvocation_name
;
4028 validate_x_resource_name ();
4030 dpyinfo
= x_term_init (name
, (char *)0,
4031 SSDATA (Vx_resource_name
));
4034 error ("Cannot connect to X server %s", SDATA (name
));
4037 XSETFASTINT (Vwindow_system_version
, 11);
4043 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4045 doc
: /* Open a connection to a display server.
4046 DISPLAY is the name of the display to connect to.
4047 Optional second arg XRM-STRING is a string of resources in xrdb format.
4048 If the optional third arg MUST-SUCCEED is non-nil,
4049 terminate Emacs if we can't open the connection.
4050 \(In the Nextstep version, the last two arguments are currently ignored.) */)
4051 (Lisp_Object display
, Lisp_Object xrm_string
, Lisp_Object must_succeed
)
4054 struct x_display_info
*dpyinfo
;
4056 CHECK_STRING (display
);
4057 if (! NILP (xrm_string
))
4058 CHECK_STRING (xrm_string
);
4061 if (! EQ (Vinitial_window_system
, intern ("x")))
4062 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4065 if (! NILP (xrm_string
))
4066 xrm_option
= SSDATA (xrm_string
);
4068 xrm_option
= (char *) 0;
4070 validate_x_resource_name ();
4072 /* This is what opens the connection and sets x_current_display.
4073 This also initializes many symbols, such as those used for input. */
4074 dpyinfo
= x_term_init (display
, xrm_option
,
4075 SSDATA (Vx_resource_name
));
4079 if (!NILP (must_succeed
))
4080 fatal ("Cannot connect to X server %s.\n\
4081 Check the DISPLAY environment variable or use `-d'.\n\
4082 Also use the `xauth' program to verify that you have the proper\n\
4083 authorization information needed to connect the X server.\n\
4084 An insecure way to solve the problem may be to use `xhost'.\n",
4087 error ("Cannot connect to X server %s", SDATA (display
));
4092 XSETFASTINT (Vwindow_system_version
, 11);
4096 DEFUN ("x-close-connection", Fx_close_connection
,
4097 Sx_close_connection
, 1, 1, 0,
4098 doc
: /* Close the connection to TERMINAL's X server.
4099 For TERMINAL, specify a terminal object, a frame or a display name (a
4100 string). If TERMINAL is nil, that stands for the selected frame's
4102 (Lisp_Object terminal
)
4104 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4106 if (dpyinfo
->reference_count
> 0)
4107 error ("Display still has frames on it");
4109 x_delete_terminal (dpyinfo
->terminal
);
4114 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4115 doc
: /* Return the list of display names that Emacs has connections to. */)
4118 Lisp_Object tail
, result
;
4121 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4122 result
= Fcons (XCAR (XCAR (tail
)), result
);
4127 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4128 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4129 This function only has an effect on X Windows. With MS Windows, it is
4130 defined but does nothing.
4132 If ON is nil, allow buffering of requests.
4133 Turning on synchronization prohibits the Xlib routines from buffering
4134 requests and seriously degrades performance, but makes debugging much
4136 The optional second argument TERMINAL specifies which display to act on.
4137 TERMINAL should be a terminal object, a frame or a display name (a string).
4138 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4139 (Lisp_Object on
, Lisp_Object terminal
)
4141 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4143 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4148 /* Wait for responses to all X commands issued so far for frame F. */
4151 x_sync (FRAME_PTR f
)
4154 XSync (FRAME_X_DISPLAY (f
), False
);
4159 /***********************************************************************
4161 ***********************************************************************/
4163 DEFUN ("x-change-window-property", Fx_change_window_property
,
4164 Sx_change_window_property
, 2, 6, 0,
4165 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4166 PROP must be a string. VALUE may be a string or a list of conses,
4167 numbers and/or strings. If an element in the list is a string, it is
4168 converted to an atom and the value of the atom is used. If an element
4169 is a cons, it is converted to a 32 bit number where the car is the 16
4170 top bits and the cdr is the lower 16 bits.
4172 FRAME nil or omitted means use the selected frame.
4173 If TYPE is given and non-nil, it is the name of the type of VALUE.
4174 If TYPE is not given or nil, the type is STRING.
4175 FORMAT gives the size in bits of each element if VALUE is a list.
4176 It must be one of 8, 16 or 32.
4177 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4178 If OUTER_P is non-nil, the property is changed for the outer X window of
4179 FRAME. Default is to change on the edit X window. */)
4180 (Lisp_Object prop
, Lisp_Object value
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4182 struct frame
*f
= check_x_frame (frame
);
4184 Atom target_type
= XA_STRING
;
4185 int element_format
= 8;
4186 unsigned char *data
;
4190 CHECK_STRING (prop
);
4192 if (! NILP (format
))
4194 CHECK_NUMBER (format
);
4195 element_format
= XFASTINT (format
);
4197 if (element_format
!= 8 && element_format
!= 16
4198 && element_format
!= 32)
4199 error ("FORMAT must be one of 8, 16 or 32");
4206 nelements
= x_check_property_data (value
);
4207 if (nelements
== -1)
4208 error ("Bad data in VALUE, must be number, string or cons");
4210 /* The man page for XChangeProperty:
4211 "If the specified format is 32, the property data must be a
4213 This applies even if long is more than 32 bits. The X library
4214 converts to 32 bits before sending to the X server. */
4215 elsize
= element_format
== 32 ? sizeof (long) : element_format
>> 3;
4216 data
= xnmalloc (nelements
, elsize
);
4218 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4222 CHECK_STRING (value
);
4223 data
= SDATA (value
);
4224 if (INT_MAX
< SBYTES (value
))
4225 error ("VALUE too long");
4226 nelements
= SBYTES (value
);
4230 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4233 CHECK_STRING (type
);
4234 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4237 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4238 else w
= FRAME_X_WINDOW (f
);
4240 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4241 prop_atom
, target_type
, element_format
, PropModeReplace
,
4244 if (CONSP (value
)) xfree (data
);
4246 /* Make sure the property is set when we return. */
4247 XFlush (FRAME_X_DISPLAY (f
));
4254 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4255 Sx_delete_window_property
, 1, 2, 0,
4256 doc
: /* Remove window property PROP from X window of FRAME.
4257 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4258 (Lisp_Object prop
, Lisp_Object frame
)
4260 struct frame
*f
= check_x_frame (frame
);
4263 CHECK_STRING (prop
);
4265 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4266 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4268 /* Make sure the property is removed when we return. */
4269 XFlush (FRAME_X_DISPLAY (f
));
4276 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4278 doc
: /* Value is the value of window property PROP on FRAME.
4279 If FRAME is nil or omitted, use the selected frame.
4281 On MS Windows, this function only accepts the PROP and FRAME arguments.
4283 On X Windows, the following optional arguments are also accepted:
4284 If TYPE is nil or omitted, get the property as a string.
4285 Otherwise TYPE is the name of the atom that denotes the type expected.
4286 If SOURCE is non-nil, get the property on that window instead of from
4287 FRAME. The number 0 denotes the root window.
4288 If DELETE_P is non-nil, delete the property after retreiving it.
4289 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4291 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4292 no value of TYPE (always string in the MS Windows case). */)
4293 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4295 struct frame
*f
= check_x_frame (frame
);
4298 Lisp_Object prop_value
= Qnil
;
4299 unsigned char *tmp_data
= NULL
;
4301 Atom target_type
= XA_STRING
;
4303 unsigned long actual_size
, bytes_remaining
;
4304 Window target_window
= FRAME_X_WINDOW (f
);
4305 struct gcpro gcpro1
;
4307 GCPRO1 (prop_value
);
4308 CHECK_STRING (prop
);
4310 if (! NILP (source
))
4312 CONS_TO_INTEGER (source
, Window
, target_window
);
4313 if (! target_window
)
4314 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4320 if (strcmp ("AnyPropertyType", SSDATA (type
)) == 0)
4321 target_type
= AnyPropertyType
;
4323 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4326 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4327 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4328 prop_atom
, 0, 0, False
, target_type
,
4329 &actual_type
, &actual_format
, &actual_size
,
4330 &bytes_remaining
, &tmp_data
);
4333 int size
= bytes_remaining
;
4338 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4339 prop_atom
, 0, bytes_remaining
,
4340 ! NILP (delete_p
), target_type
,
4341 &actual_type
, &actual_format
,
4342 &actual_size
, &bytes_remaining
,
4344 if (rc
== Success
&& tmp_data
)
4346 /* The man page for XGetWindowProperty says:
4347 "If the returned format is 32, the returned data is represented
4348 as a long array and should be cast to that type to obtain the
4350 This applies even if long is more than 32 bits, the X library
4351 converts from 32 bit elements received from the X server to long
4352 and passes the long array to us. Thus, for that case memcpy can not
4353 be used. We convert to a 32 bit type here, because so much code
4356 The bytes and offsets passed to XGetWindowProperty refers to the
4357 property and those are indeed in 32 bit quantities if format is
4360 if (32 < BITS_PER_LONG
&& actual_format
== 32)
4363 int *idata
= (int *) tmp_data
;
4364 long *ldata
= (long *) tmp_data
;
4366 for (i
= 0; i
< actual_size
; ++i
)
4367 idata
[i
] = (int) ldata
[i
];
4370 if (NILP (vector_ret_p
))
4371 prop_value
= make_string ((char *) tmp_data
, size
);
4373 prop_value
= x_property_data_to_lisp (f
,
4380 if (tmp_data
) XFree (tmp_data
);
4390 /***********************************************************************
4392 ***********************************************************************/
4394 /* Timer function of hourglass_atimer. TIMER is equal to
4397 Display an hourglass pointer on all frames by mapping the frames'
4398 hourglass_window. Set the hourglass_p flag in the frames'
4399 output_data.x structure to indicate that an hourglass cursor is
4400 shown on the frames. */
4403 show_hourglass (struct atimer
*timer
)
4405 /* The timer implementation will cancel this timer automatically
4406 after this function has run. Set hourglass_atimer to null
4407 so that we know the timer doesn't have to be canceled. */
4408 hourglass_atimer
= NULL
;
4410 if (!hourglass_shown_p
)
4412 Lisp_Object rest
, frame
;
4416 FOR_EACH_FRAME (rest
, frame
)
4418 struct frame
*f
= XFRAME (frame
);
4420 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4422 Display
*dpy
= FRAME_X_DISPLAY (f
);
4424 #ifdef USE_X_TOOLKIT
4425 if (f
->output_data
.x
->widget
)
4427 if (FRAME_OUTER_WINDOW (f
))
4430 f
->output_data
.x
->hourglass_p
= 1;
4432 if (!f
->output_data
.x
->hourglass_window
)
4434 unsigned long mask
= CWCursor
;
4435 XSetWindowAttributes attrs
;
4437 Window parent
= FRAME_X_WINDOW (f
);
4439 Window parent
= FRAME_OUTER_WINDOW (f
);
4441 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4443 f
->output_data
.x
->hourglass_window
4444 = XCreateWindow (dpy
, parent
,
4445 0, 0, 32000, 32000, 0, 0,
4451 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4457 hourglass_shown_p
= 1;
4463 /* Hide the hourglass pointer on all frames, if it is currently
4467 hide_hourglass (void)
4469 if (hourglass_shown_p
)
4471 Lisp_Object rest
, frame
;
4474 FOR_EACH_FRAME (rest
, frame
)
4476 struct frame
*f
= XFRAME (frame
);
4479 /* Watch out for newly created frames. */
4480 && f
->output_data
.x
->hourglass_window
)
4482 XUnmapWindow (FRAME_X_DISPLAY (f
),
4483 f
->output_data
.x
->hourglass_window
);
4484 /* Sync here because XTread_socket looks at the
4485 hourglass_p flag that is reset to zero below. */
4486 XSync (FRAME_X_DISPLAY (f
), False
);
4487 f
->output_data
.x
->hourglass_p
= 0;
4491 hourglass_shown_p
= 0;
4498 /***********************************************************************
4500 ***********************************************************************/
4502 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4503 Lisp_Object
, Lisp_Object
);
4504 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4505 Lisp_Object
, int, int, int *, int *);
4507 /* The frame of a currently visible tooltip. */
4509 Lisp_Object tip_frame
;
4511 /* If non-nil, a timer started that hides the last tooltip when it
4514 static Lisp_Object tip_timer
;
4517 /* If non-nil, a vector of 3 elements containing the last args
4518 with which x-show-tip was called. See there. */
4520 static Lisp_Object last_show_tip_args
;
4524 unwind_create_tip_frame (Lisp_Object frame
)
4526 Lisp_Object deleted
;
4528 deleted
= unwind_create_frame (frame
);
4529 if (EQ (deleted
, Qt
))
4539 /* Create a frame for a tooltip on the display described by DPYINFO.
4540 PARMS is a list of frame parameters. TEXT is the string to
4541 display in the tip frame. Value is the frame.
4543 Note that functions called here, esp. x_default_parameter can
4544 signal errors, for instance when a specified color name is
4545 undefined. We have to make sure that we're in a consistent state
4546 when this happens. */
4549 x_create_tip_frame (struct x_display_info
*dpyinfo
,
4557 int count
= SPECPDL_INDEX ();
4558 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4559 int face_change_count_before
= face_change_count
;
4561 struct buffer
*old_buffer
;
4565 if (!dpyinfo
->terminal
->name
)
4566 error ("Terminal is not live, can't create new frames on it");
4568 parms
= Fcopy_alist (parms
);
4570 /* Get the name of the frame to use for resource lookup. */
4571 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4573 && !EQ (name
, Qunbound
)
4575 error ("Invalid frame name--not a string or nil");
4578 GCPRO3 (parms
, name
, frame
);
4580 XSETFRAME (frame
, f
);
4582 buffer
= Fget_buffer_create (build_string (" *tip*"));
4583 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4584 old_buffer
= current_buffer
;
4585 set_buffer_internal_1 (XBUFFER (buffer
));
4586 BVAR (current_buffer
, truncate_lines
) = Qnil
;
4587 specbind (Qinhibit_read_only
, Qt
);
4588 specbind (Qinhibit_modification_hooks
, Qt
);
4591 set_buffer_internal_1 (old_buffer
);
4593 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4594 record_unwind_protect (unwind_create_tip_frame
, frame
);
4596 f
->terminal
= dpyinfo
->terminal
;
4597 f
->terminal
->reference_count
++;
4599 /* By setting the output method, we're essentially saying that
4600 the frame is live, as per FRAME_LIVE_P. If we get a signal
4601 from this point on, x_destroy_window might screw up reference
4603 f
->output_method
= output_x_window
;
4604 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4605 memset (f
->output_data
.x
, 0, sizeof (struct x_output
));
4606 f
->output_data
.x
->icon_bitmap
= -1;
4607 FRAME_FONTSET (f
) = -1;
4608 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4609 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4610 #ifdef USE_TOOLKIT_SCROLL_BARS
4611 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4612 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4613 #endif /* USE_TOOLKIT_SCROLL_BARS */
4614 f
->icon_name
= Qnil
;
4615 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4616 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4617 f
->output_data
.x
->explicit_parent
= 0;
4619 /* These colors will be set anyway later, but it's important
4620 to get the color reference counts right, so initialize them! */
4623 struct gcpro inner_gcpro1
;
4625 /* Function x_decode_color can signal an error. Make
4626 sure to initialize color slots so that we won't try
4627 to free colors we haven't allocated. */
4628 FRAME_FOREGROUND_PIXEL (f
) = -1;
4629 FRAME_BACKGROUND_PIXEL (f
) = -1;
4630 f
->output_data
.x
->cursor_pixel
= -1;
4631 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4632 f
->output_data
.x
->border_pixel
= -1;
4633 f
->output_data
.x
->mouse_pixel
= -1;
4635 black
= build_string ("black");
4636 GCPRO1_VAR (black
, inner_gcpro
);
4637 FRAME_FOREGROUND_PIXEL (f
)
4638 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4639 FRAME_BACKGROUND_PIXEL (f
)
4640 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4641 f
->output_data
.x
->cursor_pixel
4642 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4643 f
->output_data
.x
->cursor_foreground_pixel
4644 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4645 f
->output_data
.x
->border_pixel
4646 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4647 f
->output_data
.x
->mouse_pixel
4648 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4649 UNGCPRO_VAR (inner_gcpro
);
4652 /* Set the name; the functions to which we pass f expect the name to
4654 if (EQ (name
, Qunbound
) || NILP (name
))
4656 f
->name
= build_string (dpyinfo
->x_id_name
);
4657 f
->explicit_name
= 0;
4662 f
->explicit_name
= 1;
4663 /* use the frame's title when getting resources for this frame. */
4664 specbind (Qx_resource_name
, name
);
4667 f
->resx
= dpyinfo
->resx
;
4668 f
->resy
= dpyinfo
->resy
;
4670 register_font_driver (&xfont_driver
, f
);
4671 #ifdef HAVE_FREETYPE
4673 register_font_driver (&xftfont_driver
, f
);
4674 #else /* not HAVE_XFT */
4675 register_font_driver (&ftxfont_driver
, f
);
4676 #endif /* not HAVE_XFT */
4677 #endif /* HAVE_FREETYPE */
4679 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4680 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4682 /* Extract the window parameters from the supplied values that are
4683 needed to determine window geometry. */
4684 x_default_font_parameter (f
, parms
);
4686 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
4687 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4689 /* This defaults to 2 in order to match xterm. We recognize either
4690 internalBorderWidth or internalBorder (which is what xterm calls
4692 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4696 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4697 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4698 if (! EQ (value
, Qunbound
))
4699 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4703 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4704 "internalBorderWidth", "internalBorderWidth",
4707 /* Also do the stuff which must be set before the window exists. */
4708 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4709 "foreground", "Foreground", RES_TYPE_STRING
);
4710 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4711 "background", "Background", RES_TYPE_STRING
);
4712 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4713 "pointerColor", "Foreground", RES_TYPE_STRING
);
4714 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4715 "cursorColor", "Foreground", RES_TYPE_STRING
);
4716 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4717 "borderColor", "BorderColor", RES_TYPE_STRING
);
4719 /* Init faces before x_default_parameter is called for scroll-bar
4720 parameters because that function calls x_set_scroll_bar_width,
4721 which calls change_frame_size, which calls Fset_window_buffer,
4722 which runs hooks, which call Fvertical_motion. At the end, we
4723 end up in init_iterator with a null face cache, which should not
4725 init_frame_faces (f
);
4728 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
4729 dpyinfo_refcount
= dpyinfo
->reference_count
;
4730 #endif /* GLYPH_DEBUG */
4732 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4734 x_figure_window_size (f
, parms
, 0);
4737 XSetWindowAttributes attrs
;
4739 Atom type
= FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
4742 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4743 if (DoesSaveUnders (dpyinfo
->screen
))
4744 mask
|= CWSaveUnder
;
4746 /* Window managers look at the override-redirect flag to determine
4747 whether or net to give windows a decoration (Xlib spec, chapter
4749 attrs
.override_redirect
= True
;
4750 attrs
.save_under
= True
;
4751 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4752 /* Arrange for getting MapNotify and UnmapNotify events. */
4753 attrs
.event_mask
= StructureNotifyMask
;
4755 = FRAME_X_WINDOW (f
)
4756 = XCreateWindow (FRAME_X_DISPLAY (f
),
4757 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4758 /* x, y, width, height */
4762 CopyFromParent
, InputOutput
, CopyFromParent
,
4764 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
4765 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type
,
4766 XA_ATOM
, 32, PropModeReplace
,
4767 (unsigned char *)&type
, 1);
4773 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4774 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4775 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4776 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4777 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4778 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4780 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4781 Change will not be effected unless different from the current
4783 width
= FRAME_COLS (f
);
4784 height
= FRAME_LINES (f
);
4785 SET_FRAME_COLS (f
, 0);
4786 FRAME_LINES (f
) = 0;
4787 change_frame_size (f
, height
, width
, 1, 0, 0);
4789 /* Add `tooltip' frame parameter's default value. */
4790 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
4791 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qtooltip
, Qt
), Qnil
));
4793 /* FIXME - can this be done in a similar way to normal frames?
4794 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
4796 /* Set the `display-type' frame parameter before setting up faces. */
4798 Lisp_Object disptype
;
4800 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4801 disptype
= intern ("mono");
4802 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
4803 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4804 disptype
= intern ("grayscale");
4806 disptype
= intern ("color");
4808 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4809 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4813 /* Set up faces after all frame parameters are known. This call
4814 also merges in face attributes specified for new frames.
4816 Frame parameters may be changed if .Xdefaults contains
4817 specifications for the default font. For example, if there is an
4818 `Emacs.default.attributeBackground: pink', the `background-color'
4819 attribute of the frame get's set, which let's the internal border
4820 of the tooltip frame appear in pink. Prevent this. */
4822 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4824 /* Set tip_frame here, so that */
4826 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
4828 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4829 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4837 /* It is now ok to make the frame official even if we get an error
4838 below. And the frame needs to be on Vframe_list or making it
4839 visible won't work. */
4840 Vframe_list
= Fcons (frame
, Vframe_list
);
4842 /* Now that the frame is official, it counts as a reference to
4844 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4846 /* Setting attributes of faces of the tooltip frame from resources
4847 and similar will increment face_change_count, which leads to the
4848 clearing of all current matrices. Since this isn't necessary
4849 here, avoid it by resetting face_change_count to the value it
4850 had before we created the tip frame. */
4851 face_change_count
= face_change_count_before
;
4853 /* Discard the unwind_protect. */
4854 return unbind_to (count
, frame
);
4858 /* Compute where to display tip frame F. PARMS is the list of frame
4859 parameters for F. DX and DY are specified offsets from the current
4860 location of the mouse. WIDTH and HEIGHT are the width and height
4861 of the tooltip. Return coordinates relative to the root window of
4862 the display in *ROOT_X, and *ROOT_Y. */
4865 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
)
4867 Lisp_Object left
, top
;
4872 /* User-specified position? */
4873 left
= Fcdr (Fassq (Qleft
, parms
));
4874 top
= Fcdr (Fassq (Qtop
, parms
));
4876 /* Move the tooltip window where the mouse pointer is. Resize and
4878 if (!INTEGERP (left
) || !INTEGERP (top
))
4881 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4882 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4887 *root_y
= XINT (top
);
4888 else if (*root_y
+ XINT (dy
) <= 0)
4889 *root_y
= 0; /* Can happen for negative dy */
4890 else if (*root_y
+ XINT (dy
) + height
4891 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
4892 /* It fits below the pointer */
4893 *root_y
+= XINT (dy
);
4894 else if (height
+ XINT (dy
) <= *root_y
)
4895 /* It fits above the pointer. */
4896 *root_y
-= height
+ XINT (dy
);
4898 /* Put it on the top. */
4901 if (INTEGERP (left
))
4902 *root_x
= XINT (left
);
4903 else if (*root_x
+ XINT (dx
) <= 0)
4904 *root_x
= 0; /* Can happen for negative dx */
4905 else if (*root_x
+ XINT (dx
) + width
4906 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
4907 /* It fits to the right of the pointer. */
4908 *root_x
+= XINT (dx
);
4909 else if (width
+ XINT (dx
) <= *root_x
)
4910 /* It fits to the left of the pointer. */
4911 *root_x
-= width
+ XINT (dx
);
4913 /* Put it left-justified on the screen--it ought to fit that way. */
4918 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4919 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4920 A tooltip window is a small X window displaying a string.
4922 This is an internal function; Lisp code should call `tooltip-show'.
4924 FRAME nil or omitted means use the selected frame.
4926 PARMS is an optional list of frame parameters which can be used to
4927 change the tooltip's appearance.
4929 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4930 means use the default timeout of 5 seconds.
4932 If the list of frame parameters PARMS contains a `left' parameters,
4933 the tooltip is displayed at that x-position. Otherwise it is
4934 displayed at the mouse position, with offset DX added (default is 5 if
4935 DX isn't specified). Likewise for the y-position; if a `top' frame
4936 parameter is specified, it determines the y-position of the tooltip
4937 window, otherwise it is displayed at the mouse position, with offset
4938 DY added (default is -10).
4940 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4941 Text larger than the specified size is clipped. */)
4942 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
4947 struct buffer
*old_buffer
;
4948 struct text_pos pos
;
4949 int i
, width
, height
, seen_reversed_p
;
4950 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
4951 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
4952 int count
= SPECPDL_INDEX ();
4954 specbind (Qinhibit_redisplay
, Qt
);
4956 GCPRO4 (string
, parms
, frame
, timeout
);
4958 CHECK_STRING (string
);
4959 if (SCHARS (string
) == 0)
4960 string
= make_unibyte_string (" ", 1);
4962 f
= check_x_frame (frame
);
4964 timeout
= make_number (5);
4966 CHECK_NATNUM (timeout
);
4969 dx
= make_number (5);
4974 dy
= make_number (-10);
4979 if (x_gtk_use_system_tooltips
)
4983 /* Hide a previous tip, if any. */
4987 if ((ok
= xg_prepare_tooltip (f
, string
, &width
, &height
)) != 0)
4989 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
4990 xg_show_tooltip (f
, root_x
, root_y
);
4991 /* This is used in Fx_hide_tip. */
4992 XSETFRAME (tip_frame
, f
);
4995 if (ok
) goto start_timer
;
4997 #endif /* USE_GTK */
4999 if (NILP (last_show_tip_args
))
5000 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5002 if (!NILP (tip_frame
))
5004 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5005 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5006 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5008 if (EQ (frame
, last_frame
)
5009 && !NILP (Fequal (last_string
, string
))
5010 && !NILP (Fequal (last_parms
, parms
)))
5012 struct frame
*tip_f
= XFRAME (tip_frame
);
5014 /* Only DX and DY have changed. */
5015 if (!NILP (tip_timer
))
5017 Lisp_Object timer
= tip_timer
;
5019 call1 (Qcancel_timer
, timer
);
5023 compute_tip_xy (tip_f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (tip_f
),
5024 FRAME_PIXEL_HEIGHT (tip_f
), &root_x
, &root_y
);
5025 XMoveWindow (FRAME_X_DISPLAY (tip_f
), FRAME_X_WINDOW (tip_f
),
5032 /* Hide a previous tip, if any. */
5035 ASET (last_show_tip_args
, 0, string
);
5036 ASET (last_show_tip_args
, 1, frame
);
5037 ASET (last_show_tip_args
, 2, parms
);
5039 /* Add default values to frame parameters. */
5040 if (NILP (Fassq (Qname
, parms
)))
5041 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5042 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5043 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5044 if (NILP (Fassq (Qborder_width
, parms
)))
5045 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5046 if (NILP (Fassq (Qborder_color
, parms
)))
5047 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5048 if (NILP (Fassq (Qbackground_color
, parms
)))
5049 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5052 /* Create a frame for the tooltip, and record it in the global
5053 variable tip_frame. */
5054 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5057 /* Set up the frame's root window. */
5058 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5059 w
->left_col
= w
->top_line
= make_number (0);
5061 if (CONSP (Vx_max_tooltip_size
)
5062 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5063 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5064 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5065 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5067 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5068 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5072 w
->total_cols
= make_number (80);
5073 w
->total_lines
= make_number (40);
5076 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5078 w
->pseudo_window_p
= 1;
5080 /* Display the tooltip text in a temporary buffer. */
5081 old_buffer
= current_buffer
;
5082 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5083 BVAR (current_buffer
, truncate_lines
) = Qnil
;
5084 clear_glyph_matrix (w
->desired_matrix
);
5085 clear_glyph_matrix (w
->current_matrix
);
5086 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5087 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5089 /* Compute width and height of the tooltip. */
5090 width
= height
= seen_reversed_p
= 0;
5091 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5093 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5097 /* Stop at the first empty row at the end. */
5098 if (!row
->enabled_p
|| !row
->displays_text_p
)
5101 /* Let the row go over the full width of the frame. */
5102 row
->full_width_p
= 1;
5104 row_width
= row
->pixel_width
;
5105 if (row
->used
[TEXT_AREA
])
5107 /* There's a glyph at the end of rows that is used to place
5108 the cursor there. Don't include the width of this glyph. */
5109 if (!row
->reversed_p
)
5111 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5112 if (INTEGERP (last
->object
))
5113 row_width
-= last
->pixel_width
;
5117 /* There could be a stretch glyph at the beginning of R2L
5118 rows that is produced by extend_face_to_end_of_line.
5119 Don't count that glyph. */
5120 struct glyph
*g
= row
->glyphs
[TEXT_AREA
];
5122 if (g
->type
== STRETCH_GLYPH
&& INTEGERP (g
->object
))
5124 row_width
-= g
->pixel_width
;
5125 seen_reversed_p
= 1;
5130 height
+= row
->height
;
5131 width
= max (width
, row_width
);
5134 /* If we've seen partial-length R2L rows, we need to re-adjust the
5135 tool-tip frame width and redisplay it again, to avoid over-wide
5136 tips due to the stretch glyph that extends R2L lines to full
5137 width of the frame. */
5138 if (seen_reversed_p
)
5140 /* w->total_cols and FRAME_TOTAL_COLS want the width in columns,
5142 width
/= WINDOW_FRAME_COLUMN_WIDTH (w
);
5143 w
->total_cols
= make_number (width
);
5144 FRAME_TOTAL_COLS (f
) = width
;
5146 clear_glyph_matrix (w
->desired_matrix
);
5147 clear_glyph_matrix (w
->current_matrix
);
5148 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5150 /* Recompute width and height of the tooltip. */
5151 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5153 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5157 if (!row
->enabled_p
|| !row
->displays_text_p
)
5159 row
->full_width_p
= 1;
5160 row_width
= row
->pixel_width
;
5161 if (row
->used
[TEXT_AREA
] && !row
->reversed_p
)
5163 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5164 if (INTEGERP (last
->object
))
5165 row_width
-= last
->pixel_width
;
5168 height
+= row
->height
;
5169 width
= max (width
, row_width
);
5173 /* Add the frame's internal border to the width and height the X
5174 window should have. */
5175 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5176 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5178 /* Move the tooltip window where the mouse pointer is. Resize and
5180 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5183 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5184 root_x
, root_y
, width
, height
);
5185 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5188 /* Draw into the window. */
5189 w
->must_be_updated_p
= 1;
5190 update_single_window (w
, 1);
5192 /* Restore original current buffer. */
5193 set_buffer_internal_1 (old_buffer
);
5194 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5197 /* Let the tip disappear after timeout seconds. */
5198 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5199 intern ("x-hide-tip"));
5202 return unbind_to (count
, Qnil
);
5206 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5207 doc
: /* Hide the current tooltip window, if there is any.
5208 Value is t if tooltip was open, nil otherwise. */)
5212 Lisp_Object deleted
, frame
, timer
;
5213 struct gcpro gcpro1
, gcpro2
;
5215 /* Return quickly if nothing to do. */
5216 if (NILP (tip_timer
) && NILP (tip_frame
))
5221 GCPRO2 (frame
, timer
);
5222 tip_frame
= tip_timer
= deleted
= Qnil
;
5224 count
= SPECPDL_INDEX ();
5225 specbind (Qinhibit_redisplay
, Qt
);
5226 specbind (Qinhibit_quit
, Qt
);
5229 call1 (Qcancel_timer
, timer
);
5233 /* When using system tooltip, tip_frame is the Emacs frame on which
5234 the tip is shown. */
5235 struct frame
*f
= XFRAME (frame
);
5236 if (FRAME_LIVE_P (f
) && xg_hide_tooltip (f
))
5243 delete_frame (frame
, Qnil
);
5247 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5248 redisplay procedure is not called when a tip frame over menu
5249 items is unmapped. Redisplay the menu manually... */
5252 struct frame
*f
= SELECTED_FRAME ();
5253 w
= f
->output_data
.x
->menubar_widget
;
5255 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5259 xlwmenu_redisplay (w
);
5263 #endif /* USE_LUCID */
5267 return unbind_to (count
, deleted
);
5272 /***********************************************************************
5273 File selection dialog
5274 ***********************************************************************/
5276 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5277 Sx_uses_old_gtk_dialog
,
5279 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5286 && xg_uses_old_file_dialog ())
5294 /* Callback for "OK" and "Cancel" on file selection dialog. */
5297 file_dialog_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5299 int *result
= (int *) client_data
;
5300 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5301 *result
= cb
->reason
;
5305 /* Callback for unmapping a file selection dialog. This is used to
5306 capture the case where a dialog is closed via a window manager's
5307 closer button, for example. Using a XmNdestroyCallback didn't work
5311 file_dialog_unmap_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5313 int *result
= (int *) client_data
;
5314 *result
= XmCR_CANCEL
;
5318 clean_up_file_dialog (Lisp_Object arg
)
5320 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5321 Widget dialog
= (Widget
) p
->pointer
;
5325 XtUnmanageChild (dialog
);
5326 XtDestroyWidget (dialog
);
5327 x_menu_set_in_use (0);
5334 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5335 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5336 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5337 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5338 or directory must exist.
5340 This function is only defined on MS Windows, and X Windows with the
5341 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5342 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5343 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5346 struct frame
*f
= SELECTED_FRAME ();
5347 Lisp_Object file
= Qnil
;
5348 Lisp_Object decoded_file
;
5349 Widget dialog
, text
, help
;
5352 XmString dir_xmstring
, pattern_xmstring
;
5353 int count
= SPECPDL_INDEX ();
5354 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5358 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5360 if (popup_activated ())
5361 error ("Trying to use a menu from within a menu-entry");
5363 CHECK_STRING (prompt
);
5366 /* Prevent redisplay. */
5367 specbind (Qinhibit_redisplay
, Qt
);
5371 /* Create the dialog with PROMPT as title, using DIR as initial
5372 directory and using "*" as pattern. */
5373 dir
= Fexpand_file_name (dir
, Qnil
);
5374 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5375 pattern_xmstring
= XmStringCreateLocalized ("*");
5377 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5378 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5379 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5380 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5381 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5382 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5384 XmStringFree (dir_xmstring
);
5385 XmStringFree (pattern_xmstring
);
5387 /* Add callbacks for OK and Cancel. */
5388 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5389 (XtPointer
) &result
);
5390 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5391 (XtPointer
) &result
);
5392 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5393 (XtPointer
) &result
);
5395 /* Remove the help button since we can't display help. */
5396 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5397 XtUnmanageChild (help
);
5399 /* Mark OK button as default. */
5400 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5401 XmNshowAsDefault
, True
, NULL
);
5403 /* If MUSTMATCH is non-nil, disable the file entry field of the
5404 dialog, so that the user must select a file from the files list
5405 box. We can't remove it because we wouldn't have a way to get at
5406 the result file name, then. */
5407 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5408 if (!NILP (mustmatch
))
5411 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5412 XtSetSensitive (text
, False
);
5413 XtSetSensitive (label
, False
);
5416 /* Manage the dialog, so that list boxes get filled. */
5417 XtManageChild (dialog
);
5419 if (STRINGP (default_filename
))
5421 XmString default_xmstring
;
5422 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5423 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5425 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5426 XmTextFieldReplace (wtext
, 0, last_pos
,
5427 (SDATA (Ffile_name_nondirectory (default_filename
))));
5429 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5430 must include the path for this to work. */
5432 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5434 if (XmListItemExists (list
, default_xmstring
))
5436 int item_pos
= XmListItemPos (list
, default_xmstring
);
5437 /* Select the item and scroll it into view. */
5438 XmListSelectPos (list
, item_pos
, True
);
5439 XmListSetPos (list
, item_pos
);
5442 XmStringFree (default_xmstring
);
5445 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5447 /* Process events until the user presses Cancel or OK. */
5448 x_menu_set_in_use (1);
5453 x_menu_wait_for_event (0);
5454 XtAppNextEvent (Xt_app_con
, &event
);
5455 if (event
.type
== KeyPress
5456 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5458 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5460 /* Pop down on C-g. */
5461 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5462 XtUnmanageChild (dialog
);
5465 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5468 /* Get the result. */
5469 if (result
== XmCR_OK
)
5471 XmString text_string
;
5474 XtVaGetValues (dialog
, XmNtextString
, &text_string
, NULL
);
5475 XmStringGetLtoR (text_string
, XmFONTLIST_DEFAULT_TAG
, &data
);
5476 XmStringFree (text_string
);
5477 file
= build_string (data
);
5486 /* Make "Cancel" equivalent to C-g. */
5488 Fsignal (Qquit
, Qnil
);
5490 decoded_file
= DECODE_FILE (file
);
5492 return unbind_to (count
, decoded_file
);
5495 #endif /* USE_MOTIF */
5500 clean_up_dialog (Lisp_Object arg
)
5502 x_menu_set_in_use (0);
5507 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5508 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5509 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5510 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5511 or directory must exist.
5513 This function is only defined on MS Windows, and X Windows with the
5514 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5515 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5516 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5518 FRAME_PTR f
= SELECTED_FRAME ();
5520 Lisp_Object file
= Qnil
;
5521 Lisp_Object decoded_file
;
5522 int count
= SPECPDL_INDEX ();
5523 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5528 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5530 if (popup_activated ())
5531 error ("Trying to use a menu from within a menu-entry");
5533 CHECK_STRING (prompt
);
5536 /* Prevent redisplay. */
5537 specbind (Qinhibit_redisplay
, Qt
);
5538 record_unwind_protect (clean_up_dialog
, Qnil
);
5542 if (STRINGP (default_filename
))
5543 cdef_file
= SSDATA (default_filename
);
5545 cdef_file
= SSDATA (dir
);
5547 fn
= xg_get_file_name (f
, SSDATA (prompt
), cdef_file
,
5549 ! NILP (only_dir_p
));
5553 file
= build_string (fn
);
5560 /* Make "Cancel" equivalent to C-g. */
5562 Fsignal (Qquit
, Qnil
);
5564 decoded_file
= DECODE_FILE (file
);
5566 return unbind_to (count
, decoded_file
);
5570 #ifdef HAVE_FREETYPE
5572 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5573 doc
: /* Read a font name using a GTK font selection dialog.
5574 Return a GTK-style font string corresponding to the selection.
5576 If FRAME is omitted or nil, it defaults to the selected frame. */)
5577 (Lisp_Object frame
, Lisp_Object ignored
)
5579 FRAME_PTR f
= check_x_frame (frame
);
5582 Lisp_Object font_param
;
5583 char *default_name
= NULL
;
5584 struct gcpro gcpro1
, gcpro2
;
5585 int count
= SPECPDL_INDEX ();
5589 if (popup_activated ())
5590 error ("Trying to use a menu from within a menu-entry");
5592 /* Prevent redisplay. */
5593 specbind (Qinhibit_redisplay
, Qt
);
5594 record_unwind_protect (clean_up_dialog
, Qnil
);
5598 GCPRO2 (font_param
, font
);
5600 XSETFONT (font
, FRAME_FONT (f
));
5601 font_param
= Ffont_get (font
, intern (":name"));
5602 if (STRINGP (font_param
))
5603 default_name
= xstrdup (SSDATA (font_param
));
5606 font_param
= Fframe_parameter (frame
, Qfont_param
);
5607 if (STRINGP (font_param
))
5608 default_name
= xstrdup (SSDATA (font_param
));
5611 if (default_name
== NULL
&& x_last_font_name
!= NULL
)
5612 default_name
= xstrdup (x_last_font_name
);
5614 /* Convert fontconfig names to Gtk names, i.e. remove - before number */
5617 char *p
= strrchr (default_name
, '-');
5621 while (isdigit (*ep
))
5623 if (*ep
== '\0') *p
= ' ';
5627 name
= xg_get_font_name (f
, default_name
);
5628 xfree (default_name
);
5632 font
= build_string (name
);
5633 g_free (x_last_font_name
);
5634 x_last_font_name
= name
;
5640 Fsignal (Qquit
, Qnil
);
5642 return unbind_to (count
, font
);
5644 #endif /* HAVE_FREETYPE */
5646 #endif /* USE_GTK */
5649 /***********************************************************************
5651 ***********************************************************************/
5653 #ifdef HAVE_XKBGETKEYBOARD
5654 #include <X11/XKBlib.h>
5655 #include <X11/keysym.h>
5658 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5659 Sx_backspace_delete_keys_p
, 0, 1, 0,
5660 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5661 FRAME nil means use the selected frame.
5662 Value is t if we know that both keys are present, and are mapped to the
5663 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5664 present and mapped to the usual X keysyms. */)
5667 #ifdef HAVE_XKBGETKEYBOARD
5669 struct frame
*f
= check_x_frame (frame
);
5670 Display
*dpy
= FRAME_X_DISPLAY (f
);
5671 Lisp_Object have_keys
;
5672 int major
, minor
, op
, event
, error_code
;
5676 /* Check library version in case we're dynamically linked. */
5677 major
= XkbMajorVersion
;
5678 minor
= XkbMinorVersion
;
5679 if (!XkbLibraryVersion (&major
, &minor
))
5685 /* Check that the server supports XKB. */
5686 major
= XkbMajorVersion
;
5687 minor
= XkbMinorVersion
;
5688 if (!XkbQueryExtension (dpy
, &op
, &event
, &error_code
, &major
, &minor
))
5694 /* In this code we check that the keyboard has physical keys with names
5695 that start with BKSP (Backspace) and DELE (Delete), and that they
5696 generate keysym XK_BackSpace and XK_Delete respectively.
5697 This function is used to test if normal-erase-is-backspace should be
5699 An alternative approach would be to just check if XK_BackSpace and
5700 XK_Delete are mapped to any key. But if any of those are mapped to
5701 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5702 user doesn't know about it, it is better to return false here.
5703 It is more obvious to the user what to do if she/he has two keys
5704 clearly marked with names/symbols and one key does something not
5705 expected (i.e. she/he then tries the other).
5706 The cases where Backspace/Delete is mapped to some other key combination
5707 are rare, and in those cases, normal-erase-is-backspace can be turned on
5711 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5714 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5716 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5718 for (i
= kb
->min_key_code
;
5719 (i
< kb
->max_key_code
5720 && (delete_keycode
== 0 || backspace_keycode
== 0));
5723 /* The XKB symbolic key names can be seen most easily in
5724 the PS file generated by `xkbprint -label name
5726 if (memcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5728 else if (memcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5729 backspace_keycode
= i
;
5732 XkbFreeNames (kb
, 0, True
);
5735 XkbFreeClientMap (kb
, 0, True
);
5738 && backspace_keycode
5739 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5740 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5745 #else /* not HAVE_XKBGETKEYBOARD */
5747 #endif /* not HAVE_XKBGETKEYBOARD */
5752 /***********************************************************************
5754 ***********************************************************************/
5756 /* Keep this list in the same order as frame_parms in frame.c.
5757 Use 0 for unsupported frame parameters. */
5759 frame_parm_handler x_frame_parm_handlers
[] =
5763 x_set_background_color
,
5769 x_set_foreground_color
,
5772 x_set_internal_border_width
,
5773 x_set_menu_bar_lines
,
5775 x_explicitly_set_name
,
5776 x_set_scroll_bar_width
,
5779 x_set_vertical_scroll_bars
,
5781 x_set_tool_bar_lines
,
5782 x_set_scroll_bar_foreground
,
5783 x_set_scroll_bar_background
,
5793 x_set_tool_bar_position
,
5799 /* This is zero if not using X windows. */
5802 /* The section below is built by the lisp expression at the top of the file,
5803 just above where these variables are declared. */
5804 /*&&& init symbols here &&&*/
5805 DEFSYM (Qnone
, "none");
5806 DEFSYM (Qsuppress_icon
, "suppress-icon");
5807 DEFSYM (Qundefined_color
, "undefined-color");
5808 DEFSYM (Qcompound_text
, "compound-text");
5809 DEFSYM (Qcancel_timer
, "cancel-timer");
5810 DEFSYM (Qfont_param
, "font-parameter");
5811 /* This is the end of symbol initialization. */
5813 Fput (Qundefined_color
, Qerror_conditions
,
5814 pure_cons (Qundefined_color
, pure_cons (Qerror
, Qnil
)));
5815 Fput (Qundefined_color
, Qerror_message
,
5816 make_pure_c_string ("Undefined color"));
5818 DEFVAR_LISP ("x-pointer-shape", Vx_pointer_shape
,
5819 doc
: /* The shape of the pointer when over text.
5820 Changing the value does not affect existing frames
5821 unless you set the mouse color. */);
5822 Vx_pointer_shape
= Qnil
;
5824 #if 0 /* This doesn't really do anything. */
5825 DEFVAR_LISP ("x-nontext-pointer-shape", Vx_nontext_pointer_shape
,
5826 doc
: /* The shape of the pointer when not over text.
5827 This variable takes effect when you create a new frame
5828 or when you set the mouse color. */);
5830 Vx_nontext_pointer_shape
= Qnil
;
5832 DEFVAR_LISP ("x-hourglass-pointer-shape", Vx_hourglass_pointer_shape
,
5833 doc
: /* The shape of the pointer when Emacs is busy.
5834 This variable takes effect when you create a new frame
5835 or when you set the mouse color. */);
5836 Vx_hourglass_pointer_shape
= Qnil
;
5838 #if 0 /* This doesn't really do anything. */
5839 DEFVAR_LISP ("x-mode-pointer-shape", Vx_mode_pointer_shape
,
5840 doc
: /* The shape of the pointer when over the mode line.
5841 This variable takes effect when you create a new frame
5842 or when you set the mouse color. */);
5844 Vx_mode_pointer_shape
= Qnil
;
5846 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5847 Vx_sensitive_text_pointer_shape
,
5848 doc
: /* The shape of the pointer when over mouse-sensitive text.
5849 This variable takes effect when you create a new frame
5850 or when you set the mouse color. */);
5851 Vx_sensitive_text_pointer_shape
= Qnil
;
5853 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5854 Vx_window_horizontal_drag_shape
,
5855 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5856 This variable takes effect when you create a new frame
5857 or when you set the mouse color. */);
5858 Vx_window_horizontal_drag_shape
= Qnil
;
5860 DEFVAR_LISP ("x-cursor-fore-pixel", Vx_cursor_fore_pixel
,
5861 doc
: /* A string indicating the foreground color of the cursor box. */);
5862 Vx_cursor_fore_pixel
= Qnil
;
5864 DEFVAR_LISP ("x-max-tooltip-size", Vx_max_tooltip_size
,
5865 doc
: /* Maximum size for tooltips.
5866 Value is a pair (COLUMNS . ROWS). Text larger than this is clipped. */);
5867 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5869 DEFVAR_LISP ("x-no-window-manager", Vx_no_window_manager
,
5870 doc
: /* Non-nil if no X window manager is in use.
5871 Emacs doesn't try to figure this out; this is always nil
5872 unless you set it to something else. */);
5873 /* We don't have any way to find this out, so set it to nil
5874 and maybe the user would like to set it to t. */
5875 Vx_no_window_manager
= Qnil
;
5877 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5878 Vx_pixel_size_width_font_regexp
,
5879 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5881 Since Emacs gets width of a font matching with this regexp from
5882 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5883 such a font. This is especially effective for such large fonts as
5884 Chinese, Japanese, and Korean. */);
5885 Vx_pixel_size_width_font_regexp
= Qnil
;
5887 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5888 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", x_gtk_use_old_file_dialog
,
5889 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5890 If nil or if the file selection dialog is not available, the new GTK file
5891 chooser is used instead. To turn off all file dialogs set the
5892 variable `use-file-dialog'. */);
5893 x_gtk_use_old_file_dialog
= 0;
5895 DEFVAR_BOOL ("x-gtk-show-hidden-files", x_gtk_show_hidden_files
,
5896 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5897 Note that this is just the default, there is a toggle button on the file
5898 chooser to show or not show hidden files on a case by case basis. */);
5899 x_gtk_show_hidden_files
= 0;
5901 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", x_gtk_file_dialog_help_text
,
5902 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
5903 If more space for files in the file chooser dialog is wanted, set this to nil
5904 to turn the additional text off. */);
5905 x_gtk_file_dialog_help_text
= 1;
5907 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", x_gtk_whole_detached_tool_bar
,
5908 doc
: /* *If non-nil, a detached tool bar is shown in full.
5909 The default is to just show an arrow and pressing on that arrow shows
5910 the tool bar buttons. */);
5911 x_gtk_whole_detached_tool_bar
= 0;
5913 DEFVAR_BOOL ("x-gtk-use-system-tooltips", x_gtk_use_system_tooltips
,
5914 doc
: /* *If non-nil with a Gtk+ built Emacs, the Gtk+ toolip is used.
5915 Otherwise use Emacs own tooltip implementation.
5916 When using Gtk+ tooltips, the tooltip face is not used. */);
5917 x_gtk_use_system_tooltips
= 1;
5919 Fprovide (intern_c_string ("x"), Qnil
);
5921 #ifdef USE_X_TOOLKIT
5922 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5924 Fprovide (intern_c_string ("motif"), Qnil
);
5926 DEFVAR_LISP ("motif-version-string", Vmotif_version_string
,
5927 doc
: /* Version info for LessTif/Motif. */);
5928 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5929 #endif /* USE_MOTIF */
5930 #endif /* USE_X_TOOLKIT */
5933 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5934 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5935 But for a user it is a toolkit for X, and indeed, configure
5936 accepts --with-x-toolkit=gtk. */
5937 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5938 Fprovide (intern_c_string ("gtk"), Qnil
);
5939 Fprovide (intern_c_string ("move-toolbar"), Qnil
);
5941 DEFVAR_LISP ("gtk-version-string", Vgtk_version_string
,
5942 doc
: /* Version info for GTK+. */);
5944 char gtk_version
[40];
5945 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5946 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5947 Vgtk_version_string
= make_pure_string (gtk_version
, strlen (gtk_version
), strlen (gtk_version
), 0);
5949 #endif /* USE_GTK */
5951 /* X window properties. */
5952 defsubr (&Sx_change_window_property
);
5953 defsubr (&Sx_delete_window_property
);
5954 defsubr (&Sx_window_property
);
5956 defsubr (&Sxw_display_color_p
);
5957 defsubr (&Sx_display_grayscale_p
);
5958 defsubr (&Sxw_color_defined_p
);
5959 defsubr (&Sxw_color_values
);
5960 defsubr (&Sx_server_max_request_size
);
5961 defsubr (&Sx_server_vendor
);
5962 defsubr (&Sx_server_version
);
5963 defsubr (&Sx_display_pixel_width
);
5964 defsubr (&Sx_display_pixel_height
);
5965 defsubr (&Sx_display_mm_width
);
5966 defsubr (&Sx_display_mm_height
);
5967 defsubr (&Sx_display_screens
);
5968 defsubr (&Sx_display_planes
);
5969 defsubr (&Sx_display_color_cells
);
5970 defsubr (&Sx_display_visual_class
);
5971 defsubr (&Sx_display_backing_store
);
5972 defsubr (&Sx_display_save_under
);
5973 defsubr (&Sx_wm_set_size_hint
);
5974 defsubr (&Sx_create_frame
);
5975 defsubr (&Sx_open_connection
);
5976 defsubr (&Sx_close_connection
);
5977 defsubr (&Sx_display_list
);
5978 defsubr (&Sx_synchronize
);
5979 defsubr (&Sx_focus_frame
);
5980 defsubr (&Sx_backspace_delete_keys_p
);
5982 /* Setting callback functions for fontset handler. */
5983 check_window_system_func
= check_x
;
5985 defsubr (&Sx_show_tip
);
5986 defsubr (&Sx_hide_tip
);
5988 staticpro (&tip_timer
);
5990 staticpro (&tip_frame
);
5992 last_show_tip_args
= Qnil
;
5993 staticpro (&last_show_tip_args
);
5995 defsubr (&Sx_uses_old_gtk_dialog
);
5996 #if defined (USE_MOTIF) || defined (USE_GTK)
5997 defsubr (&Sx_file_dialog
);
6000 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
6001 defsubr (&Sx_select_font
);
6002 x_last_font_name
= NULL
;
6006 #endif /* HAVE_X_WINDOWS */