1 /* Functions for the X window system.
3 Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
4 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
5 Free Software Foundation, Inc.
7 This file is part of GNU Emacs.
9 GNU Emacs is free software: you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation, either version 3 of the License, or
12 (at your option) any later version.
14 GNU Emacs is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
32 /* This makes the fields of a Display accessible, in Xlib header files. */
34 #define XLIB_ILLEGAL_ACCESS
41 #include "intervals.h"
42 #include "dispextern.h"
44 #include "blockinput.h"
46 #include "character.h"
51 #include "termhooks.h"
59 #include <sys/types.h>
62 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
63 #include "bitmaps/gray.xbm"
65 #include <X11/bitmaps/gray>
68 #include "xsettings.h"
75 #include <X11/Shell.h>
79 #include <X11/Xaw3d/Paned.h>
80 #include <X11/Xaw3d/Label.h>
81 #else /* !HAVE_XAW3D */
82 #include <X11/Xaw/Paned.h>
83 #include <X11/Xaw/Label.h>
84 #endif /* HAVE_XAW3D */
85 #endif /* USE_MOTIF */
88 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
97 #include "../lwlib/lwlib.h"
101 #include <Xm/DialogS.h>
102 #include <Xm/FileSB.h>
104 #include <Xm/TextF.h>
108 #include "../lwlib/xlwmenu.h"
111 #if !defined(NO_EDITRES)
113 extern void _XEditResCheckMessages ();
114 #endif /* not defined NO_EDITRES */
116 /* Unique id counter for widgets created by the Lucid Widget Library. */
118 extern LWLIB_ID widget_id_tick
;
120 extern void free_frame_menubar ();
121 extern double atof ();
125 /* LessTif/Motif version info. */
127 static Lisp_Object Vmotif_version_string
;
129 #endif /* USE_MOTIF */
131 #endif /* USE_X_TOOLKIT */
135 /* GTK+ version info */
137 static Lisp_Object Vgtk_version_string
;
141 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
143 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
144 it, and including `bitmaps/gray' more than once is a problem when
145 config.h defines `static' as an empty replacement string. */
147 int gray_bitmap_width
= gray_width
;
148 int gray_bitmap_height
= gray_height
;
149 char *gray_bitmap_bits
= gray_bits
;
151 /* Non-zero means prompt with the old GTK file selection dialog. */
153 int x_gtk_use_old_file_dialog
;
155 /* If non-zero, by default show hidden files in the GTK file chooser. */
157 int x_gtk_show_hidden_files
;
159 /* If non-zero, don't show additional help text in the GTK file chooser. */
161 int x_gtk_file_dialog_help_text
;
163 /* If non-zero, don't collapse to tool bar when it is detached. */
165 int x_gtk_whole_detached_tool_bar
;
167 /* If non-zero, use Gtk+ tooltips. */
169 static int x_gtk_use_system_tooltips
;
171 /* The background and shape of the mouse pointer, and shape when not
172 over text or in the modeline. */
174 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
175 Lisp_Object Vx_hourglass_pointer_shape
;
177 /* The shape when over mouse-sensitive text. */
179 Lisp_Object Vx_sensitive_text_pointer_shape
;
181 /* If non-nil, the pointer shape to indicate that windows can be
182 dragged horizontally. */
184 Lisp_Object Vx_window_horizontal_drag_shape
;
186 /* Color of chars displayed in cursor box. */
188 Lisp_Object Vx_cursor_fore_pixel
;
190 /* Nonzero if using X. */
194 /* Non nil if no window manager is in use. */
196 Lisp_Object Vx_no_window_manager
;
198 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
200 Lisp_Object Vx_pixel_size_width_font_regexp
;
203 Lisp_Object Qsuppress_icon
;
204 Lisp_Object Qundefined_color
;
205 Lisp_Object Qcompound_text
, Qcancel_timer
;
206 Lisp_Object Qfont_param
;
209 int image_cache_refcount
, dpyinfo_refcount
;
212 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
213 char *x_last_font_name
;
217 /* Error if we are not connected to X. */
223 error ("X windows are not in use or not initialized");
226 /* Nonzero if we can use mouse menus.
227 You should not call this unless HAVE_MENUS is defined. */
235 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
236 and checking validity for X. */
239 check_x_frame (Lisp_Object frame
)
244 frame
= selected_frame
;
245 CHECK_LIVE_FRAME (frame
);
248 error ("Non-X frame used");
252 /* Let the user specify an X display with a Lisp object.
253 OBJECT may be nil, a frame or a terminal object.
254 nil stands for the selected frame--or, if that is not an X frame,
255 the first X display on the list. */
257 struct x_display_info
*
258 check_x_display_info (Lisp_Object object
)
260 struct x_display_info
*dpyinfo
= NULL
;
264 struct frame
*sf
= XFRAME (selected_frame
);
266 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
267 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
268 else if (x_display_list
!= 0)
269 dpyinfo
= x_display_list
;
271 error ("X windows are not in use or not initialized");
273 else if (TERMINALP (object
))
275 struct terminal
*t
= get_terminal (object
, 1);
277 if (t
->type
!= output_x_window
)
278 error ("Terminal %d is not an X display", XINT (object
));
280 dpyinfo
= t
->display_info
.x
;
282 else if (STRINGP (object
))
283 dpyinfo
= x_display_info_for_name (object
);
286 FRAME_PTR f
= check_x_frame (object
);
287 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
294 /* Return the Emacs frame-object corresponding to an X window.
295 It could be the frame's main window or an icon window. */
297 /* This function can be called during GC, so use GC_xxx type test macros. */
300 x_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
302 Lisp_Object tail
, frame
;
305 if (wdesc
== None
) return 0;
307 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
313 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
315 if (f
->output_data
.x
->hourglass_window
== wdesc
)
318 if ((f
->output_data
.x
->edit_widget
319 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
320 /* A tooltip frame? */
321 || (!f
->output_data
.x
->edit_widget
322 && FRAME_X_WINDOW (f
) == wdesc
)
323 || f
->output_data
.x
->icon_desc
== wdesc
)
325 #else /* not USE_X_TOOLKIT */
327 if (f
->output_data
.x
->edit_widget
)
329 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
330 struct x_output
*x
= f
->output_data
.x
;
331 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
335 if (FRAME_X_WINDOW (f
) == wdesc
336 || f
->output_data
.x
->icon_desc
== wdesc
)
338 #endif /* not USE_X_TOOLKIT */
343 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
344 /* Like x_window_to_frame but also compares the window with the widget's
348 x_any_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
350 Lisp_Object tail
, frame
;
351 struct frame
*f
, *found
;
354 if (wdesc
== None
) return NULL
;
357 for (tail
= Vframe_list
; CONSP (tail
) && !found
; tail
= XCDR (tail
))
364 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
366 /* This frame matches if the window is any of its widgets. */
367 x
= f
->output_data
.x
;
368 if (x
->hourglass_window
== wdesc
)
373 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
375 && gtk_widget_get_toplevel (gwdesc
) == x
->widget
)
378 if (wdesc
== XtWindow (x
->widget
)
379 || wdesc
== XtWindow (x
->column_widget
)
380 || wdesc
== XtWindow (x
->edit_widget
))
382 /* Match if the window is this frame's menubar. */
383 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
387 else if (FRAME_X_WINDOW (f
) == wdesc
)
388 /* A tooltip frame. */
396 /* Likewise, but consider only the menu bar widget. */
399 x_menubar_window_to_frame (struct x_display_info
*dpyinfo
, XEvent
*event
)
401 Window wdesc
= event
->xany
.window
;
402 Lisp_Object tail
, frame
;
406 if (wdesc
== None
) return 0;
408 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
414 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
416 x
= f
->output_data
.x
;
418 if (x
->menubar_widget
&& xg_event_is_for_menubar (f
, event
))
421 /* Match if the window is this frame's menubar. */
422 if (x
->menubar_widget
423 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
430 /* Return the frame whose principal (outermost) window is WDESC.
431 If WDESC is some other (smaller) window, we return 0. */
434 x_top_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
436 Lisp_Object tail
, frame
;
440 if (wdesc
== None
) return 0;
442 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
448 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
450 x
= f
->output_data
.x
;
454 /* This frame matches if the window is its topmost widget. */
456 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
457 if (gwdesc
== x
->widget
)
460 if (wdesc
== XtWindow (x
->widget
))
462 #if 0 /* I don't know why it did this,
463 but it seems logically wrong,
464 and it causes trouble for MapNotify events. */
465 /* Match if the window is this frame's menubar. */
466 if (x
->menubar_widget
467 && wdesc
== XtWindow (x
->menubar_widget
))
472 else if (FRAME_X_WINDOW (f
) == wdesc
)
478 #endif /* USE_X_TOOLKIT || USE_GTK */
482 static void x_default_font_parameter (struct frame
*, Lisp_Object
);
484 static Lisp_Object
unwind_create_frame (Lisp_Object
);
485 static Lisp_Object
unwind_create_tip_frame (Lisp_Object
);
487 void x_set_foreground_color (struct frame
*, Lisp_Object
, Lisp_Object
);
488 static void x_set_wait_for_wm (struct frame
*, Lisp_Object
, Lisp_Object
);
489 void x_set_background_color (struct frame
*, Lisp_Object
, Lisp_Object
);
490 void x_set_mouse_color (struct frame
*, Lisp_Object
, Lisp_Object
);
491 void x_set_cursor_color (struct frame
*, Lisp_Object
, Lisp_Object
);
492 void x_set_border_color (struct frame
*, Lisp_Object
, Lisp_Object
);
493 void x_set_cursor_type (struct frame
*, Lisp_Object
, Lisp_Object
);
494 void x_set_icon_type (struct frame
*, Lisp_Object
, Lisp_Object
);
495 void x_set_icon_name (struct frame
*, Lisp_Object
, Lisp_Object
);
496 void x_explicitly_set_name (struct frame
*, Lisp_Object
, Lisp_Object
);
497 void x_set_menu_bar_lines (struct frame
*, Lisp_Object
, Lisp_Object
);
498 void x_set_title (struct frame
*, Lisp_Object
, Lisp_Object
);
499 void x_set_tool_bar_lines (struct frame
*, Lisp_Object
, Lisp_Object
);
500 void x_set_scroll_bar_foreground (struct frame
*, Lisp_Object
,
502 void x_set_scroll_bar_background (struct frame
*, Lisp_Object
,
504 static Lisp_Object
x_default_scroll_bar_color_parameter (struct frame
*,
507 const char *, const char *,
511 /* Store the screen positions of frame F into XPTR and YPTR.
512 These are the positions of the containing window manager window,
513 not Emacs's own window. */
516 x_real_positions (FRAME_PTR f
, int *xptr
, int *yptr
)
518 int win_x
, win_y
, outer_x
, outer_y
;
519 int real_x
= 0, real_y
= 0;
521 Window win
= f
->output_data
.x
->parent_desc
;
523 unsigned long actual_size
, bytes_remaining
;
524 int i
, rc
, actual_format
;
525 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
527 Display
*dpy
= FRAME_X_DISPLAY (f
);
528 unsigned char *tmp_data
= NULL
;
529 Atom target_type
= XA_CARDINAL
;
533 x_catch_errors (dpy
);
535 if (win
== dpyinfo
->root_window
)
536 win
= FRAME_OUTER_WINDOW (f
);
538 /* This loop traverses up the containment tree until we hit the root
539 window. Window managers may intersect many windows between our window
540 and the root window. The window we find just before the root window
541 should be the outer WM window. */
544 Window wm_window
, rootw
;
545 Window
*tmp_children
;
546 unsigned int tmp_nchildren
;
549 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
550 &wm_window
, &tmp_children
, &tmp_nchildren
);
552 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
554 /* Don't free tmp_children if XQueryTree failed. */
558 XFree ((char *) tmp_children
);
560 if (wm_window
== rootw
|| had_errors
)
571 /* Get the real coordinates for the WM window upper left corner */
572 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
573 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
575 /* Translate real coordinates to coordinates relative to our
576 window. For our window, the upper left corner is 0, 0.
577 Since the upper left corner of the WM window is outside
578 our window, win_x and win_y will be negative:
580 ------------------ ---> x
582 | ----------------- v y
585 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
587 /* From-window, to-window. */
588 FRAME_X_DISPLAY_INFO (f
)->root_window
,
591 /* From-position, to-position. */
592 real_x
, real_y
, &win_x
, &win_y
,
597 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
604 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
606 /* From-window, to-window. */
607 FRAME_X_DISPLAY_INFO (f
)->root_window
,
608 FRAME_OUTER_WINDOW (f
),
610 /* From-position, to-position. */
611 real_x
, real_y
, &outer_x
, &outer_y
,
617 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
621 if (dpyinfo
->root_window
== f
->output_data
.x
->parent_desc
)
623 /* Try _NET_FRAME_EXTENTS if our parent is the root window. */
624 rc
= XGetWindowProperty (dpy
, win
, dpyinfo
->Xatom_net_frame_extents
,
625 0, max_len
, False
, target_type
,
626 &actual_type
, &actual_format
, &actual_size
,
627 &bytes_remaining
, &tmp_data
);
629 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
630 && actual_size
== 4 && actual_format
== 32)
634 long *fe
= (long *)tmp_data
;
636 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
637 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
645 if (tmp_data
) XFree (tmp_data
);
651 if (had_errors
) return;
653 f
->x_pixels_diff
= -win_x
;
654 f
->y_pixels_diff
= -win_y
;
656 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
657 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
666 /* Gamma-correct COLOR on frame F. */
669 gamma_correct (struct frame
*f
, XColor
*color
)
673 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
674 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
675 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
680 /* Decide if color named COLOR_NAME is valid for use on frame F. If
681 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
682 allocate the color. Value is zero if COLOR_NAME is invalid, or
683 no color could be allocated. */
686 x_defined_color (struct frame
*f
, const char *color_name
,
687 XColor
*color
, int alloc_p
)
690 Display
*dpy
= FRAME_X_DISPLAY (f
);
691 Colormap cmap
= FRAME_X_COLORMAP (f
);
695 success_p
= xg_check_special_colors (f
, color_name
, color
);
698 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
699 if (success_p
&& alloc_p
)
700 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
707 /* Return the pixel color value for color COLOR_NAME on frame F. If F
708 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
709 Signal an error if color can't be allocated. */
712 x_decode_color (FRAME_PTR f
, Lisp_Object color_name
, int mono_color
)
716 CHECK_STRING (color_name
);
718 #if 0 /* Don't do this. It's wrong when we're not using the default
719 colormap, it makes freeing difficult, and it's probably not
720 an important optimization. */
721 if (strcmp (SDATA (color_name
), "black") == 0)
722 return BLACK_PIX_DEFAULT (f
);
723 else if (strcmp (SDATA (color_name
), "white") == 0)
724 return WHITE_PIX_DEFAULT (f
);
727 /* Return MONO_COLOR for monochrome frames. */
728 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
731 /* x_defined_color is responsible for coping with failures
732 by looking for a near-miss. */
733 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
736 signal_error ("Undefined color", color_name
);
741 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
742 the previous value of that parameter, NEW_VALUE is the new value.
743 See also the comment of wait_for_wm in struct x_output. */
746 x_set_wait_for_wm (struct frame
*f
, Lisp_Object new_value
, Lisp_Object old_value
)
748 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
752 x_set_tool_bar_position (struct frame
*f
,
753 Lisp_Object new_value
,
754 Lisp_Object old_value
)
756 if (! EQ (new_value
, Qleft
) && ! EQ (new_value
, Qright
)
757 && ! EQ (new_value
, Qbottom
) && ! EQ (new_value
, Qtop
))
759 if (EQ (new_value
, old_value
)) return;
762 if (xg_change_toolbar_position (f
, new_value
))
763 f
->tool_bar_position
= new_value
;
769 /* Set icon from FILE for frame F. By using GTK functions the icon
770 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
773 xg_set_icon (FRAME_PTR f
, Lisp_Object file
)
778 found
= x_find_image_file (file
);
784 char *filename
= (char *) SDATA (found
);
787 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
791 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
793 g_object_unref (pixbuf
);
807 xg_set_icon_from_xpm_data (FRAME_PTR f
, const char **data
)
810 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data (data
);
815 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
816 g_object_unref (pixbuf
);
822 /* Functions called only from `x_set_frame_param'
823 to set individual parameters.
825 If FRAME_X_WINDOW (f) is 0,
826 the frame is being created and its X-window does not exist yet.
827 In that case, just record the parameter's new value
828 in the standard place; do not attempt to change the window. */
831 x_set_foreground_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
833 struct x_output
*x
= f
->output_data
.x
;
834 unsigned long fg
, old_fg
;
836 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
837 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
838 FRAME_FOREGROUND_PIXEL (f
) = fg
;
840 if (FRAME_X_WINDOW (f
) != 0)
842 Display
*dpy
= FRAME_X_DISPLAY (f
);
845 XSetForeground (dpy
, x
->normal_gc
, fg
);
846 XSetBackground (dpy
, x
->reverse_gc
, fg
);
848 if (x
->cursor_pixel
== old_fg
)
850 unload_color (f
, x
->cursor_pixel
);
851 x
->cursor_pixel
= x_copy_color (f
, fg
);
852 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
857 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
859 if (FRAME_VISIBLE_P (f
))
863 unload_color (f
, old_fg
);
867 x_set_background_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
869 struct x_output
*x
= f
->output_data
.x
;
872 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
873 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
874 FRAME_BACKGROUND_PIXEL (f
) = bg
;
876 if (FRAME_X_WINDOW (f
) != 0)
878 Display
*dpy
= FRAME_X_DISPLAY (f
);
881 XSetBackground (dpy
, x
->normal_gc
, bg
);
882 XSetForeground (dpy
, x
->reverse_gc
, bg
);
883 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
884 XSetForeground (dpy
, x
->cursor_gc
, bg
);
887 xg_set_background_color (f
, bg
);
890 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
891 toolkit scroll bars. */
894 for (bar
= FRAME_SCROLL_BARS (f
);
896 bar
= XSCROLL_BAR (bar
)->next
)
898 Window window
= XSCROLL_BAR (bar
)->x_window
;
899 XSetWindowBackground (dpy
, window
, bg
);
902 #endif /* USE_TOOLKIT_SCROLL_BARS */
905 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
907 if (FRAME_VISIBLE_P (f
))
913 make_invisible_cursor (struct frame
*f
)
915 Display
*dpy
= FRAME_X_DISPLAY (f
);
916 static char const no_data
[] = { 0 };
921 x_catch_errors (dpy
);
922 pix
= XCreateBitmapFromData (dpy
, FRAME_X_DISPLAY_INFO (f
)->root_window
,
924 if (! x_had_errors_p (dpy
) && pix
!= None
)
927 col
.red
= col
.green
= col
.blue
= 0;
928 col
.flags
= DoRed
| DoGreen
| DoBlue
;
929 c
= XCreatePixmapCursor (dpy
, pix
, pix
, &col
, &col
, 0, 0);
930 if (x_had_errors_p (dpy
) || c
== None
)
932 XFreePixmap (dpy
, pix
);
941 x_set_mouse_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
943 struct x_output
*x
= f
->output_data
.x
;
944 Display
*dpy
= FRAME_X_DISPLAY (f
);
945 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
946 Cursor hourglass_cursor
, horizontal_drag_cursor
;
947 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
948 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
950 /* Don't let pointers be invisible. */
951 if (mask_color
== pixel
)
953 x_free_colors (f
, &pixel
, 1);
954 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
957 unload_color (f
, x
->mouse_pixel
);
958 x
->mouse_pixel
= pixel
;
962 /* It's not okay to crash if the user selects a screwy cursor. */
963 x_catch_errors (dpy
);
965 if (!NILP (Vx_pointer_shape
))
967 CHECK_NUMBER (Vx_pointer_shape
);
968 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
971 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
972 x_check_errors (dpy
, "bad text pointer cursor: %s");
974 if (!NILP (Vx_nontext_pointer_shape
))
976 CHECK_NUMBER (Vx_nontext_pointer_shape
);
978 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
981 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
982 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
984 if (!NILP (Vx_hourglass_pointer_shape
))
986 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
988 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
991 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
992 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
994 if (!NILP (Vx_mode_pointer_shape
))
996 CHECK_NUMBER (Vx_mode_pointer_shape
);
997 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
1000 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
1001 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
1003 if (!NILP (Vx_sensitive_text_pointer_shape
))
1005 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
1007 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
1010 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
1012 if (!NILP (Vx_window_horizontal_drag_shape
))
1014 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1015 horizontal_drag_cursor
1016 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1019 horizontal_drag_cursor
1020 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1022 /* Check and report errors with the above calls. */
1023 x_check_errors (dpy
, "can't set cursor shape: %s");
1024 x_uncatch_errors ();
1027 XColor fore_color
, back_color
;
1029 fore_color
.pixel
= x
->mouse_pixel
;
1030 x_query_color (f
, &fore_color
);
1031 back_color
.pixel
= mask_color
;
1032 x_query_color (f
, &back_color
);
1034 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1035 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1036 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1037 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1038 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1039 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1042 if (FRAME_X_WINDOW (f
) != 0)
1043 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
1044 f
->output_data
.x
->current_cursor
= cursor
);
1046 if (FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
== 0)
1047 FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
= make_invisible_cursor (f
);
1049 if (cursor
!= x
->text_cursor
1050 && x
->text_cursor
!= 0)
1051 XFreeCursor (dpy
, x
->text_cursor
);
1052 x
->text_cursor
= cursor
;
1054 if (nontext_cursor
!= x
->nontext_cursor
1055 && x
->nontext_cursor
!= 0)
1056 XFreeCursor (dpy
, x
->nontext_cursor
);
1057 x
->nontext_cursor
= nontext_cursor
;
1059 if (hourglass_cursor
!= x
->hourglass_cursor
1060 && x
->hourglass_cursor
!= 0)
1061 XFreeCursor (dpy
, x
->hourglass_cursor
);
1062 x
->hourglass_cursor
= hourglass_cursor
;
1064 if (mode_cursor
!= x
->modeline_cursor
1065 && x
->modeline_cursor
!= 0)
1066 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1067 x
->modeline_cursor
= mode_cursor
;
1069 if (hand_cursor
!= x
->hand_cursor
1070 && x
->hand_cursor
!= 0)
1071 XFreeCursor (dpy
, x
->hand_cursor
);
1072 x
->hand_cursor
= hand_cursor
;
1074 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1075 && x
->horizontal_drag_cursor
!= 0)
1076 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1077 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1082 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1086 x_set_cursor_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1088 unsigned long fore_pixel
, pixel
;
1089 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1090 struct x_output
*x
= f
->output_data
.x
;
1092 if (!NILP (Vx_cursor_fore_pixel
))
1094 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1095 WHITE_PIX_DEFAULT (f
));
1096 fore_pixel_allocated_p
= 1;
1099 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1101 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1102 pixel_allocated_p
= 1;
1104 /* Make sure that the cursor color differs from the background color. */
1105 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1107 if (pixel_allocated_p
)
1109 x_free_colors (f
, &pixel
, 1);
1110 pixel_allocated_p
= 0;
1113 pixel
= x
->mouse_pixel
;
1114 if (pixel
== fore_pixel
)
1116 if (fore_pixel_allocated_p
)
1118 x_free_colors (f
, &fore_pixel
, 1);
1119 fore_pixel_allocated_p
= 0;
1121 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1125 unload_color (f
, x
->cursor_foreground_pixel
);
1126 if (!fore_pixel_allocated_p
)
1127 fore_pixel
= x_copy_color (f
, fore_pixel
);
1128 x
->cursor_foreground_pixel
= fore_pixel
;
1130 unload_color (f
, x
->cursor_pixel
);
1131 if (!pixel_allocated_p
)
1132 pixel
= x_copy_color (f
, pixel
);
1133 x
->cursor_pixel
= pixel
;
1135 if (FRAME_X_WINDOW (f
) != 0)
1138 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1139 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1142 if (FRAME_VISIBLE_P (f
))
1144 x_update_cursor (f
, 0);
1145 x_update_cursor (f
, 1);
1149 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1152 /* Set the border-color of frame F to pixel value PIX.
1153 Note that this does not fully take effect if done before
1154 F has an x-window. */
1157 x_set_border_pixel (struct frame
*f
, int pix
)
1159 unload_color (f
, f
->output_data
.x
->border_pixel
);
1160 f
->output_data
.x
->border_pixel
= pix
;
1162 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1165 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1166 (unsigned long)pix
);
1169 if (FRAME_VISIBLE_P (f
))
1174 /* Set the border-color of frame F to value described by ARG.
1175 ARG can be a string naming a color.
1176 The border-color is used for the border that is drawn by the X server.
1177 Note that this does not fully take effect if done before
1178 F has an x-window; it must be redone when the window is created.
1180 Note: this is done in two routines because of the way X10 works.
1182 Note: under X11, this is normally the province of the window manager,
1183 and so emacs' border colors may be overridden. */
1186 x_set_border_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1191 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1192 x_set_border_pixel (f
, pix
);
1193 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1198 x_set_cursor_type (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1200 set_frame_cursor_types (f
, arg
);
1202 /* Make sure the cursor gets redrawn. */
1203 cursor_type_changed
= 1;
1207 x_set_icon_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1213 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1216 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1221 result
= x_text_icon (f
,
1222 (char *) SDATA ((!NILP (f
->icon_name
)
1226 result
= x_bitmap_icon (f
, arg
);
1231 error ("No icon window available");
1234 XFlush (FRAME_X_DISPLAY (f
));
1239 x_set_icon_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1245 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1248 else if (!NILP (arg
) || NILP (oldval
))
1253 if (f
->output_data
.x
->icon_bitmap
!= 0)
1258 result
= x_text_icon (f
,
1259 (char *) SDATA ((!NILP (f
->icon_name
)
1268 error ("No icon window available");
1271 XFlush (FRAME_X_DISPLAY (f
));
1277 x_set_menu_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1280 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1281 int olines
= FRAME_MENU_BAR_LINES (f
);
1284 /* Right now, menu bars don't work properly in minibuf-only frames;
1285 most of the commands try to apply themselves to the minibuffer
1286 frame itself, and get an error because you can't switch buffers
1287 in or split the minibuffer window. */
1288 if (FRAME_MINIBUF_ONLY_P (f
))
1291 if (INTEGERP (value
))
1292 nlines
= XINT (value
);
1296 /* Make sure we redisplay all windows in this frame. */
1297 windows_or_buffers_changed
++;
1299 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1300 FRAME_MENU_BAR_LINES (f
) = 0;
1303 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1304 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1305 /* Make sure next redisplay shows the menu bar. */
1306 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1310 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1311 free_frame_menubar (f
);
1312 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1314 f
->output_data
.x
->menubar_widget
= 0;
1316 #else /* not USE_X_TOOLKIT && not USE_GTK */
1317 FRAME_MENU_BAR_LINES (f
) = nlines
;
1318 change_window_heights (f
->root_window
, nlines
- olines
);
1320 /* If the menu bar height gets changed, the internal border below
1321 the top margin has to be cleared. Also, if the menu bar gets
1322 larger, the area for the added lines has to be cleared except for
1323 the first menu bar line that is to be drawn later. */
1324 if (nlines
!= olines
)
1326 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1327 int width
= FRAME_PIXEL_WIDTH (f
);
1330 /* height can be zero here. */
1331 if (height
> 0 && width
> 0)
1333 y
= FRAME_TOP_MARGIN_HEIGHT (f
);
1336 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1337 0, y
, width
, height
, False
);
1341 if (nlines
> 1 && nlines
> olines
)
1343 y
= (olines
== 0 ? 1 : olines
) * FRAME_LINE_HEIGHT (f
);
1344 height
= nlines
* FRAME_LINE_HEIGHT (f
) - y
;
1347 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1348 0, y
, width
, height
, False
);
1352 if (nlines
== 0 && WINDOWP (f
->menu_bar_window
))
1353 clear_glyph_matrix (XWINDOW (f
->menu_bar_window
)->current_matrix
);
1355 #endif /* not USE_X_TOOLKIT && not USE_GTK */
1360 /* Set the number of lines used for the tool bar of frame F to VALUE.
1361 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1362 is the old number of tool bar lines. This function changes the
1363 height of all windows on frame F to match the new tool bar height.
1364 The frame's height doesn't change. */
1367 x_set_tool_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1369 int delta
, nlines
, root_height
;
1370 Lisp_Object root_window
;
1372 /* Treat tool bars like menu bars. */
1373 if (FRAME_MINIBUF_ONLY_P (f
))
1376 /* Use VALUE only if an integer >= 0. */
1377 if (INTEGERP (value
) && XINT (value
) >= 0)
1378 nlines
= XFASTINT (value
);
1383 FRAME_TOOL_BAR_LINES (f
) = 0;
1386 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1387 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1388 /* Make sure next redisplay shows the tool bar. */
1389 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1390 update_frame_tool_bar (f
);
1394 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1395 free_frame_tool_bar (f
);
1396 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1402 /* Make sure we redisplay all windows in this frame. */
1403 ++windows_or_buffers_changed
;
1405 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1407 /* Don't resize the tool-bar to more than we have room for. */
1408 root_window
= FRAME_ROOT_WINDOW (f
);
1409 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1410 if (root_height
- delta
< 1)
1412 delta
= root_height
- 1;
1413 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1416 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1417 change_window_heights (root_window
, delta
);
1420 /* We also have to make sure that the internal border at the top of
1421 the frame, below the menu bar or tool bar, is redrawn when the
1422 tool bar disappears. This is so because the internal border is
1423 below the tool bar if one is displayed, but is below the menu bar
1424 if there isn't a tool bar. The tool bar draws into the area
1425 below the menu bar. */
1426 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1429 clear_current_matrices (f
);
1432 /* If the tool bar gets smaller, the internal border below it
1433 has to be cleared. It was formerly part of the display
1434 of the larger tool bar, and updating windows won't clear it. */
1437 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1438 int width
= FRAME_PIXEL_WIDTH (f
);
1439 int y
= (FRAME_MENU_BAR_LINES (f
) + nlines
) * FRAME_LINE_HEIGHT (f
);
1441 /* height can be zero here. */
1442 if (height
> 0 && width
> 0)
1445 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1446 0, y
, width
, height
, False
);
1450 if (WINDOWP (f
->tool_bar_window
))
1451 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1456 /* Set the foreground color for scroll bars on frame F to VALUE.
1457 VALUE should be a string, a color name. If it isn't a string or
1458 isn't a valid color name, do nothing. OLDVAL is the old value of
1459 the frame parameter. */
1462 x_set_scroll_bar_foreground (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1464 unsigned long pixel
;
1466 if (STRINGP (value
))
1467 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1471 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1472 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1474 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1475 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1477 /* Remove all scroll bars because they have wrong colors. */
1478 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1479 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1480 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1481 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1483 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1489 /* Set the background color for scroll bars on frame F to VALUE VALUE
1490 should be a string, a color name. If it isn't a string or isn't a
1491 valid color name, do nothing. OLDVAL is the old value of the frame
1495 x_set_scroll_bar_background (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1497 unsigned long pixel
;
1499 if (STRINGP (value
))
1500 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1504 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1505 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1507 #ifdef USE_TOOLKIT_SCROLL_BARS
1508 /* Scrollbar shadow colors. */
1509 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1511 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1512 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1514 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1516 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1517 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1519 #endif /* USE_TOOLKIT_SCROLL_BARS */
1521 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1522 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1524 /* Remove all scroll bars because they have wrong colors. */
1525 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1526 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1527 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1528 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1530 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1536 /* Encode Lisp string STRING as a text in a format appropriate for
1537 XICCC (X Inter Client Communication Conventions).
1539 This can call Lisp code, so callers must GCPRO.
1541 If STRING contains only ASCII characters, do no conversion and
1542 return the string data of STRING. Otherwise, encode the text by
1543 CODING_SYSTEM, and return a newly allocated memory area which
1544 should be freed by `xfree' by a caller.
1546 SELECTIONP non-zero means the string is being encoded for an X
1547 selection, so it is safe to run pre-write conversions (which
1550 Store the byte length of resulting text in *TEXT_BYTES.
1552 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1553 which means that the `encoding' of the result can be `STRING'.
1554 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1555 the result should be `COMPOUND_TEXT'. */
1557 static unsigned char *
1558 x_encode_text (Lisp_Object string
, Lisp_Object coding_system
, int selectionp
, int *text_bytes
, int *stringp
, int *freep
)
1560 int result
= string_xstring_p (string
);
1561 struct coding_system coding
;
1565 /* No multibyte character in OBJ. We need not encode it. */
1566 *text_bytes
= SBYTES (string
);
1569 return SDATA (string
);
1572 setup_coding_system (coding_system
, &coding
);
1573 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1574 /* We suppress producing escape sequences for composition. */
1575 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1576 coding
.dst_bytes
= SCHARS (string
) * 2;
1577 coding
.destination
= (unsigned char *) xmalloc (coding
.dst_bytes
);
1578 encode_coding_object (&coding
, string
, 0, 0,
1579 SCHARS (string
), SBYTES (string
), Qnil
);
1580 *text_bytes
= coding
.produced
;
1581 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1583 return coding
.destination
;
1587 /* Set the WM name to NAME for frame F. Also set the icon name.
1588 If the frame already has an icon name, use that, otherwise set the
1589 icon name to NAME. */
1592 x_set_name_internal (FRAME_PTR f
, Lisp_Object name
)
1594 if (FRAME_X_WINDOW (f
))
1598 XTextProperty text
, icon
;
1600 int do_free_icon_value
= 0, do_free_text_value
= 0;
1601 Lisp_Object coding_system
;
1602 Lisp_Object encoded_name
;
1603 Lisp_Object encoded_icon_name
;
1604 struct gcpro gcpro1
;
1606 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1607 we use it before x_encode_text that may return string data. */
1609 encoded_name
= ENCODE_UTF_8 (name
);
1612 coding_system
= Qcompound_text
;
1613 /* Note: Encoding strategy
1615 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1616 text.encoding. But, there are non-internationalized window
1617 managers which don't support that encoding. So, if NAME
1618 contains only ASCII and 8859-1 characters, encode it by
1619 iso-latin-1, and use "STRING" in text.encoding hoping that
1620 such window managers at least analyze this format correctly,
1621 i.e. treat 8-bit bytes as 8859-1 characters.
1623 We may also be able to use "UTF8_STRING" in text.encoding
1624 in the future which can encode all Unicode characters.
1625 But, for the moment, there's no way to know that the
1626 current window manager supports it or not.
1628 Either way, we also set the _NET_WM_NAME and _NET_WM_ICON_NAME
1629 properties. Per the EWMH specification, those two properties
1630 are always UTF8_STRING. This matches what gtk_window_set_title()
1631 does in the USE_GTK case. */
1632 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1633 &do_free_text_value
);
1634 text
.encoding
= (stringp
? XA_STRING
1635 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1637 text
.nitems
= bytes
;
1639 if (!STRINGP (f
->icon_name
))
1642 encoded_icon_name
= encoded_name
;
1646 /* See the above comment "Note: Encoding strategy". */
1647 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1648 &bytes
, &stringp
, &do_free_icon_value
);
1649 icon
.encoding
= (stringp
? XA_STRING
1650 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1652 icon
.nitems
= bytes
;
1654 encoded_icon_name
= ENCODE_UTF_8 (f
->icon_name
);
1658 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1659 (char *) SDATA (encoded_name
));
1660 #else /* not USE_GTK */
1661 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1662 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1663 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_name
,
1664 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1666 (char *) SDATA (encoded_name
),
1667 SBYTES (encoded_name
));
1668 #endif /* not USE_GTK */
1670 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1671 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1672 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_icon_name
,
1673 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1675 (char *) SDATA (encoded_icon_name
),
1676 SBYTES (encoded_icon_name
));
1678 if (do_free_icon_value
)
1680 if (do_free_text_value
)
1687 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1690 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1691 name; if NAME is a string, set F's name to NAME and set
1692 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1694 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1695 suggesting a new name, which lisp code should override; if
1696 F->explicit_name is set, ignore the new name; otherwise, set it. */
1699 x_set_name (struct frame
*f
, Lisp_Object name
, int explicit)
1701 /* Make sure that requests from lisp code override requests from
1702 Emacs redisplay code. */
1705 /* If we're switching from explicit to implicit, we had better
1706 update the mode lines and thereby update the title. */
1707 if (f
->explicit_name
&& NILP (name
))
1708 update_mode_lines
= 1;
1710 f
->explicit_name
= ! NILP (name
);
1712 else if (f
->explicit_name
)
1715 /* If NAME is nil, set the name to the x_id_name. */
1718 /* Check for no change needed in this very common case
1719 before we do any consing. */
1720 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1723 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1726 CHECK_STRING (name
);
1728 /* Don't change the name if it's already NAME. */
1729 if (! NILP (Fstring_equal (name
, f
->name
)))
1734 /* For setting the frame title, the title parameter should override
1735 the name parameter. */
1736 if (! NILP (f
->title
))
1739 x_set_name_internal (f
, name
);
1742 /* This function should be called when the user's lisp code has
1743 specified a name for the frame; the name will override any set by the
1746 x_explicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1748 x_set_name (f
, arg
, 1);
1751 /* This function should be called by Emacs redisplay code to set the
1752 name; names set this way will never override names set by the user's
1755 x_implicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1757 x_set_name (f
, arg
, 0);
1760 /* Change the title of frame F to NAME.
1761 If NAME is nil, use the frame name as the title. */
1764 x_set_title (struct frame
*f
, Lisp_Object name
, Lisp_Object old_name
)
1766 /* Don't change the title if it's already NAME. */
1767 if (EQ (name
, f
->title
))
1770 update_mode_lines
= 1;
1777 CHECK_STRING (name
);
1779 x_set_name_internal (f
, name
);
1783 x_set_scroll_bar_default_width (struct frame
*f
)
1785 int wid
= FRAME_COLUMN_WIDTH (f
);
1787 #ifdef USE_TOOLKIT_SCROLL_BARS
1788 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1789 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1790 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1791 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1793 /* Make the actual width at least 14 pixels and a multiple of a
1795 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1797 /* Use all of that space (aside from required margins) for the
1799 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1804 /* Record in frame F the specified or default value according to ALIST
1805 of the parameter named PROP (a Lisp symbol). If no value is
1806 specified for PROP, look for an X default for XPROP on the frame
1807 named NAME. If that is not found either, use the value DEFLT. */
1810 x_default_scroll_bar_color_parameter (struct frame
*f
,
1811 Lisp_Object alist
, Lisp_Object prop
,
1812 const char *xprop
, const char *xclass
,
1815 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1818 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1819 if (EQ (tem
, Qunbound
))
1821 #ifdef USE_TOOLKIT_SCROLL_BARS
1823 /* See if an X resource for the scroll bar color has been
1825 tem
= display_x_get_resource (dpyinfo
,
1826 build_string (foreground_p
1829 empty_unibyte_string
,
1830 build_string ("verticalScrollBar"),
1831 empty_unibyte_string
);
1834 /* If nothing has been specified, scroll bars will use a
1835 toolkit-dependent default. Because these defaults are
1836 difficult to get at without actually creating a scroll
1837 bar, use nil to indicate that no color has been
1842 #else /* not USE_TOOLKIT_SCROLL_BARS */
1846 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1849 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1856 #ifdef USE_X_TOOLKIT
1858 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1859 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1860 already be present because of the toolkit (Motif adds some of them,
1861 for example, but Xt doesn't). */
1864 hack_wm_protocols (FRAME_PTR f
, Widget widget
)
1866 Display
*dpy
= XtDisplay (widget
);
1867 Window w
= XtWindow (widget
);
1868 int need_delete
= 1;
1875 unsigned char *catoms
;
1877 unsigned long nitems
= 0;
1878 unsigned long bytes_after
;
1880 if ((XGetWindowProperty (dpy
, w
,
1881 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1882 (long)0, (long)100, False
, XA_ATOM
,
1883 &type
, &format
, &nitems
, &bytes_after
,
1886 && format
== 32 && type
== XA_ATOM
)
1888 Atom
*atoms
= (Atom
*) catoms
;
1893 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1895 else if (atoms
[nitems
]
1896 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1898 else if (atoms
[nitems
]
1899 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1910 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1912 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1914 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1916 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1917 XA_ATOM
, 32, PropModeAppend
,
1918 (unsigned char *) props
, count
);
1926 /* Support routines for XIC (X Input Context). */
1930 static XFontSet
xic_create_xfontset (struct frame
*);
1931 static XIMStyle
best_xim_style (XIMStyles
*, XIMStyles
*);
1934 /* Supported XIM styles, ordered by preference. */
1936 static XIMStyle supported_xim_styles
[] =
1938 XIMPreeditPosition
| XIMStatusArea
,
1939 XIMPreeditPosition
| XIMStatusNothing
,
1940 XIMPreeditPosition
| XIMStatusNone
,
1941 XIMPreeditNothing
| XIMStatusArea
,
1942 XIMPreeditNothing
| XIMStatusNothing
,
1943 XIMPreeditNothing
| XIMStatusNone
,
1944 XIMPreeditNone
| XIMStatusArea
,
1945 XIMPreeditNone
| XIMStatusNothing
,
1946 XIMPreeditNone
| XIMStatusNone
,
1951 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1953 const char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1955 /* Create an Xt fontset spec from the name of a base font.
1956 If `motif' is True use the Motif syntax. */
1958 xic_create_fontsetname (const char *base_fontname
, int motif
)
1960 const char *sep
= motif
? ";" : ",";
1963 /* Make a fontset name from the base font name. */
1964 if (xic_defaut_fontset
== base_fontname
)
1965 { /* There is no base font name, use the default. */
1966 int len
= strlen (base_fontname
) + 2;
1967 fontsetname
= xmalloc (len
);
1968 memset (fontsetname
, 0, len
);
1969 strcpy (fontsetname
, base_fontname
);
1973 /* Make a fontset name from the base font name.
1974 The font set will be made of the following elements:
1976 - the base font where the charset spec is replaced by -*-*.
1977 - the same but with the family also replaced with -*-*-. */
1978 const char *p
= base_fontname
;
1981 for (i
= 0; *p
; p
++)
1984 { /* As the font name doesn't conform to XLFD, we can't
1985 modify it to generalize it to allcs and allfamilies.
1986 Use the specified font plus the default. */
1987 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
1988 fontsetname
= xmalloc (len
);
1989 memset (fontsetname
, 0, len
);
1990 strcpy (fontsetname
, base_fontname
);
1991 strcat (fontsetname
, sep
);
1992 strcat (fontsetname
, xic_defaut_fontset
);
1997 const char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1998 char *font_allcs
= NULL
;
1999 char *font_allfamilies
= NULL
;
2000 char *font_all
= NULL
;
2001 const char *allcs
= "*-*-*-*-*-*-*";
2002 const char *allfamilies
= "-*-*-";
2003 const char *all
= "*-*-*-*-";
2006 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
2019 /* If base_fontname specifies ADSTYLE, make it a
2023 int diff
= (p2
- p3
) - 2;
2025 base
= alloca (strlen (base_fontname
) + 1);
2026 memcpy (base
, base_fontname
, p3
- base_fontname
);
2027 base
[p3
- base_fontname
] = '*';
2028 base
[(p3
- base_fontname
) + 1] = '-';
2029 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
2030 p
= base
+ (p
- base_fontname
) - diff
;
2031 p1
= base
+ (p1
- base_fontname
);
2032 p2
= base
+ (p2
- base_fontname
) - diff
;
2033 base_fontname
= base
;
2036 /* Build the font spec that matches all charsets. */
2037 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2038 font_allcs
= (char *) alloca (len
);
2039 memset (font_allcs
, 0, len
);
2040 memcpy (font_allcs
, base_fontname
, p
- base_fontname
);
2041 strcat (font_allcs
, allcs
);
2043 /* Build the font spec that matches all families and
2045 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2046 font_allfamilies
= (char *) alloca (len
);
2047 memset (font_allfamilies
, 0, len
);
2048 strcpy (font_allfamilies
, allfamilies
);
2049 memcpy (font_allfamilies
+ strlen (allfamilies
), p1
, p
- p1
);
2050 strcat (font_allfamilies
, allcs
);
2052 /* Build the font spec that matches all. */
2053 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2054 font_all
= (char *) alloca (len
);
2055 memset (font_all
, 0, len
);
2056 strcpy (font_all
, allfamilies
);
2057 strcat (font_all
, all
);
2058 memcpy (font_all
+ strlen (all
) + strlen (allfamilies
), p2
, p
- p2
);
2059 strcat (font_all
, allcs
);
2061 /* Build the actual font set name. */
2062 len
= strlen (base_fontname
) + strlen (font_allcs
)
2063 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2064 fontsetname
= xmalloc (len
);
2065 memset (fontsetname
, 0, len
);
2066 strcpy (fontsetname
, base_fontname
);
2067 strcat (fontsetname
, sep
);
2068 strcat (fontsetname
, font_allcs
);
2069 strcat (fontsetname
, sep
);
2070 strcat (fontsetname
, font_allfamilies
);
2071 strcat (fontsetname
, sep
);
2072 strcat (fontsetname
, font_all
);
2076 strcat (fontsetname
, ":");
2080 #ifdef DEBUG_XIC_FONTSET
2082 print_fontset_result (xfs
, name
, missing_list
, missing_count
)
2085 char **missing_list
;
2089 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
2092 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
2093 while (missing_count
-- > 0)
2095 fprintf (stderr
, " missing: %s\n", *missing_list
);
2104 xic_create_xfontset (struct frame
*f
)
2106 XFontSet xfs
= NULL
;
2107 struct font
*font
= FRAME_FONT (f
);
2108 int pixel_size
= font
->pixel_size
;
2109 Lisp_Object rest
, frame
;
2111 /* See if there is another frame already using same fontset. */
2112 FOR_EACH_FRAME (rest
, frame
)
2114 struct frame
*cf
= XFRAME (frame
);
2116 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2117 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2119 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
2121 xfs
= FRAME_XIC_FONTSET (cf
);
2129 char **missing_list
;
2132 const char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
2134 sprintf (buf
, xlfd_format
, pixel_size
);
2135 missing_list
= NULL
;
2136 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2137 &missing_list
, &missing_count
, &def_string
);
2138 #ifdef DEBUG_XIC_FONTSET
2139 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2142 XFreeStringList (missing_list
);
2145 /* List of pixel sizes most likely available. Find one that
2146 is closest to pixel_size. */
2147 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2148 int *smaller
, *larger
;
2150 for (smaller
= sizes
; smaller
[1]; smaller
++)
2151 if (smaller
[1] >= pixel_size
)
2153 larger
= smaller
+ 1;
2154 if (*larger
== pixel_size
)
2156 while (*smaller
|| *larger
)
2161 this_size
= *smaller
--;
2162 else if (! *smaller
)
2163 this_size
= *larger
++;
2164 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
2165 this_size
= *smaller
--;
2167 this_size
= *larger
++;
2168 sprintf (buf
, xlfd_format
, this_size
);
2169 missing_list
= NULL
;
2170 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2171 &missing_list
, &missing_count
, &def_string
);
2172 #ifdef DEBUG_XIC_FONTSET
2173 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2176 XFreeStringList (missing_list
);
2183 const char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
2185 missing_list
= NULL
;
2186 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
2187 &missing_list
, &missing_count
, &def_string
);
2188 #ifdef DEBUG_XIC_FONTSET
2189 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
2192 XFreeStringList (missing_list
);
2200 /* Free the X fontset of frame F if it is the last frame using it. */
2203 xic_free_xfontset (struct frame
*f
)
2205 Lisp_Object rest
, frame
;
2208 if (!FRAME_XIC_FONTSET (f
))
2211 /* See if there is another frame sharing the same fontset. */
2212 FOR_EACH_FRAME (rest
, frame
)
2214 struct frame
*cf
= XFRAME (frame
);
2215 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2216 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2217 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2225 /* The fontset is not used anymore. It is safe to free it. */
2226 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2228 if (FRAME_XIC_BASE_FONTNAME (f
))
2229 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2230 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2231 FRAME_XIC_FONTSET (f
) = NULL
;
2235 /* Value is the best input style, given user preferences USER (already
2236 checked to be supported by Emacs), and styles supported by the
2237 input method XIM. */
2240 best_xim_style (XIMStyles
*user
, XIMStyles
*xim
)
2244 for (i
= 0; i
< user
->count_styles
; ++i
)
2245 for (j
= 0; j
< xim
->count_styles
; ++j
)
2246 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2247 return user
->supported_styles
[i
];
2249 /* Return the default style. */
2250 return XIMPreeditNothing
| XIMStatusNothing
;
2253 /* Create XIC for frame F. */
2255 static XIMStyle xic_style
;
2258 create_frame_xic (struct frame
*f
)
2262 XFontSet xfs
= NULL
;
2267 /* Create X fontset. */
2268 xfs
= xic_create_xfontset (f
);
2269 xim
= FRAME_X_XIM (f
);
2274 XVaNestedList preedit_attr
;
2275 XVaNestedList status_attr
;
2277 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2278 spot
.x
= 0; spot
.y
= 1;
2280 /* Determine XIC style. */
2283 XIMStyles supported_list
;
2284 supported_list
.count_styles
= (sizeof supported_xim_styles
2285 / sizeof supported_xim_styles
[0]);
2286 supported_list
.supported_styles
= supported_xim_styles
;
2287 xic_style
= best_xim_style (&supported_list
,
2288 FRAME_X_XIM_STYLES (f
));
2291 preedit_attr
= XVaCreateNestedList (0,
2294 FRAME_FOREGROUND_PIXEL (f
),
2296 FRAME_BACKGROUND_PIXEL (f
),
2297 (xic_style
& XIMPreeditPosition
2302 status_attr
= XVaCreateNestedList (0,
2308 FRAME_FOREGROUND_PIXEL (f
),
2310 FRAME_BACKGROUND_PIXEL (f
),
2313 xic
= XCreateIC (xim
,
2314 XNInputStyle
, xic_style
,
2315 XNClientWindow
, FRAME_X_WINDOW (f
),
2316 XNFocusWindow
, FRAME_X_WINDOW (f
),
2317 XNStatusAttributes
, status_attr
,
2318 XNPreeditAttributes
, preedit_attr
,
2320 XFree (preedit_attr
);
2321 XFree (status_attr
);
2324 FRAME_XIC (f
) = xic
;
2325 FRAME_XIC_STYLE (f
) = xic_style
;
2326 FRAME_XIC_FONTSET (f
) = xfs
;
2330 /* Destroy XIC and free XIC fontset of frame F, if any. */
2333 free_frame_xic (struct frame
*f
)
2335 if (FRAME_XIC (f
) == NULL
)
2338 XDestroyIC (FRAME_XIC (f
));
2339 xic_free_xfontset (f
);
2341 FRAME_XIC (f
) = NULL
;
2345 /* Place preedit area for XIC of window W's frame to specified
2346 pixel position X/Y. X and Y are relative to window W. */
2349 xic_set_preeditarea (struct window
*w
, int x
, int y
)
2351 struct frame
*f
= XFRAME (w
->frame
);
2355 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2356 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2357 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2358 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2363 /* Place status area for XIC in bottom right corner of frame F.. */
2366 xic_set_statusarea (struct frame
*f
)
2368 XIC xic
= FRAME_XIC (f
);
2373 /* Negotiate geometry of status area. If input method has existing
2374 status area, use its current size. */
2375 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2376 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2377 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2380 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2381 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2384 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2386 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2387 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2391 area
.width
= needed
->width
;
2392 area
.height
= needed
->height
;
2393 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2394 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2395 - FRAME_MENUBAR_HEIGHT (f
)
2396 - FRAME_TOOLBAR_TOP_HEIGHT (f
)
2397 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2400 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2401 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2406 /* Set X fontset for XIC of frame F, using base font name
2407 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2410 xic_set_xfontset (struct frame
*f
, const char *base_fontname
)
2415 xic_free_xfontset (f
);
2417 xfs
= xic_create_xfontset (f
);
2419 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2420 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2421 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2422 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2423 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2426 FRAME_XIC_FONTSET (f
) = xfs
;
2429 #endif /* HAVE_X_I18N */
2433 #ifdef USE_X_TOOLKIT
2435 /* Create and set up the X widget for frame F. */
2438 x_window (struct frame
*f
, long window_prompting
, int minibuffer_only
)
2440 XClassHint class_hints
;
2441 XSetWindowAttributes attributes
;
2442 unsigned long attribute_mask
;
2443 Widget shell_widget
;
2445 Widget frame_widget
;
2451 /* Use the resource name as the top-level widget name
2452 for looking up resources. Make a non-Lisp copy
2453 for the window manager, so GC relocation won't bother it.
2455 Elsewhere we specify the window name for the window manager. */
2458 char *str
= (char *) SDATA (Vx_resource_name
);
2459 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2460 strcpy (f
->namebuf
, str
);
2464 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2465 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2466 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2467 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2468 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2469 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2470 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2471 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2472 applicationShellWidgetClass
,
2473 FRAME_X_DISPLAY (f
), al
, ac
);
2475 f
->output_data
.x
->widget
= shell_widget
;
2476 /* maybe_set_screen_title_format (shell_widget); */
2478 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2479 (widget_value
*) NULL
,
2480 shell_widget
, False
,
2484 (lw_callback
) NULL
);
2487 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2488 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2489 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2490 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2491 XtSetValues (pane_widget
, al
, ac
);
2492 f
->output_data
.x
->column_widget
= pane_widget
;
2494 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2495 the emacs screen when changing menubar. This reduces flickering. */
2498 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2499 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2500 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2501 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2502 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2503 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2504 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2505 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2506 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2507 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2510 f
->output_data
.x
->edit_widget
= frame_widget
;
2512 XtManageChild (frame_widget
);
2514 /* Do some needed geometry management. */
2517 char *tem
, shell_position
[32];
2520 int extra_borders
= 0;
2522 = (f
->output_data
.x
->menubar_widget
2523 ? (f
->output_data
.x
->menubar_widget
->core
.height
2524 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2527 #if 0 /* Experimentally, we now get the right results
2528 for -geometry -0-0 without this. 24 Aug 96, rms. */
2529 if (FRAME_EXTERNAL_MENU_BAR (f
))
2532 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2533 menubar_size
+= ibw
;
2537 f
->output_data
.x
->menubar_height
= menubar_size
;
2540 /* Motif seems to need this amount added to the sizes
2541 specified for the shell widget. The Athena/Lucid widgets don't.
2542 Both conclusions reached experimentally. -- rms. */
2543 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2544 &extra_borders
, NULL
);
2548 /* Convert our geometry parameters into a geometry string
2550 Note that we do not specify here whether the position
2551 is a user-specified or program-specified one.
2552 We pass that information later, in x_wm_set_size_hints. */
2554 int left
= f
->left_pos
;
2555 int xneg
= window_prompting
& XNegative
;
2556 int top
= f
->top_pos
;
2557 int yneg
= window_prompting
& YNegative
;
2563 if (window_prompting
& USPosition
)
2564 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2565 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2566 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2567 (xneg
? '-' : '+'), left
,
2568 (yneg
? '-' : '+'), top
);
2571 sprintf (shell_position
, "=%dx%d",
2572 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2573 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2575 /* Setting x and y when the position is not specified in
2576 the geometry string will set program position in the WM hints.
2577 If Emacs had just one program position, we could set it in
2578 fallback resources, but since each make-frame call can specify
2579 different program positions, this is easier. */
2580 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2581 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2585 len
= strlen (shell_position
) + 1;
2586 /* We don't free this because we don't know whether
2587 it is safe to free it while the frame exists.
2588 It isn't worth the trouble of arranging to free it
2589 when the frame is deleted. */
2590 tem
= (char *) xmalloc (len
);
2591 strncpy (tem
, shell_position
, len
);
2592 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2593 XtSetValues (shell_widget
, al
, ac
);
2596 XtManageChild (pane_widget
);
2597 XtRealizeWidget (shell_widget
);
2599 if (FRAME_X_EMBEDDED_P (f
))
2600 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2601 f
->output_data
.x
->parent_desc
, 0, 0);
2603 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2605 validate_x_resource_name ();
2607 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2608 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2609 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2612 FRAME_XIC (f
) = NULL
;
2614 create_frame_xic (f
);
2617 f
->output_data
.x
->wm_hints
.input
= True
;
2618 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2619 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2620 &f
->output_data
.x
->wm_hints
);
2622 hack_wm_protocols (f
, shell_widget
);
2625 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2628 /* Do a stupid property change to force the server to generate a
2629 PropertyNotify event so that the event_stream server timestamp will
2630 be initialized to something relevant to the time we created the window.
2632 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2633 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2634 XA_ATOM
, 32, PropModeAppend
,
2635 (unsigned char*) NULL
, 0);
2637 /* Make all the standard events reach the Emacs frame. */
2638 attributes
.event_mask
= STANDARD_EVENT_SET
;
2643 /* XIM server might require some X events. */
2644 unsigned long fevent
= NoEventMask
;
2645 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2646 attributes
.event_mask
|= fevent
;
2648 #endif /* HAVE_X_I18N */
2650 attribute_mask
= CWEventMask
;
2651 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2652 attribute_mask
, &attributes
);
2654 XtMapWidget (frame_widget
);
2656 /* x_set_name normally ignores requests to set the name if the
2657 requested name is the same as the current name. This is the one
2658 place where that assumption isn't correct; f->name is set, but
2659 the X server hasn't been told. */
2662 int explicit = f
->explicit_name
;
2664 f
->explicit_name
= 0;
2667 x_set_name (f
, name
, explicit);
2670 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2671 f
->output_data
.x
->current_cursor
2672 = f
->output_data
.x
->text_cursor
);
2676 /* This is a no-op, except under Motif. Make sure main areas are
2677 set to something reasonable, in case we get an error later. */
2678 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2681 #else /* not USE_X_TOOLKIT */
2684 x_window (FRAME_PTR f
)
2686 if (! xg_create_frame_widgets (f
))
2687 error ("Unable to create window");
2690 FRAME_XIC (f
) = NULL
;
2694 create_frame_xic (f
);
2697 /* XIM server might require some X events. */
2698 unsigned long fevent
= NoEventMask
;
2699 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2701 if (fevent
!= NoEventMask
)
2703 XSetWindowAttributes attributes
;
2704 XWindowAttributes wattr
;
2705 unsigned long attribute_mask
;
2707 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2709 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2710 attribute_mask
= CWEventMask
;
2711 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2712 attribute_mask
, &attributes
);
2720 #else /*! USE_GTK */
2721 /* Create and set up the X window for frame F. */
2724 x_window (struct frame
*f
)
2726 XClassHint class_hints
;
2727 XSetWindowAttributes attributes
;
2728 unsigned long attribute_mask
;
2730 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2731 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2732 attributes
.bit_gravity
= StaticGravity
;
2733 attributes
.backing_store
= NotUseful
;
2734 attributes
.save_under
= True
;
2735 attributes
.event_mask
= STANDARD_EVENT_SET
;
2736 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2737 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2742 = XCreateWindow (FRAME_X_DISPLAY (f
),
2743 f
->output_data
.x
->parent_desc
,
2746 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2748 CopyFromParent
, /* depth */
2749 InputOutput
, /* class */
2751 attribute_mask
, &attributes
);
2756 create_frame_xic (f
);
2759 /* XIM server might require some X events. */
2760 unsigned long fevent
= NoEventMask
;
2761 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2762 attributes
.event_mask
|= fevent
;
2763 attribute_mask
= CWEventMask
;
2764 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2765 attribute_mask
, &attributes
);
2768 #endif /* HAVE_X_I18N */
2770 validate_x_resource_name ();
2772 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2773 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2774 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2776 /* The menubar is part of the ordinary display;
2777 it does not count in addition to the height of the window. */
2778 f
->output_data
.x
->menubar_height
= 0;
2780 /* This indicates that we use the "Passive Input" input model.
2781 Unless we do this, we don't get the Focus{In,Out} events that we
2782 need to draw the cursor correctly. Accursed bureaucrats.
2783 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2785 f
->output_data
.x
->wm_hints
.input
= True
;
2786 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2787 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2788 &f
->output_data
.x
->wm_hints
);
2789 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2791 /* Request "save yourself" and "delete window" commands from wm. */
2794 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2795 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2796 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2799 /* x_set_name normally ignores requests to set the name if the
2800 requested name is the same as the current name. This is the one
2801 place where that assumption isn't correct; f->name is set, but
2802 the X server hasn't been told. */
2805 int explicit = f
->explicit_name
;
2807 f
->explicit_name
= 0;
2810 x_set_name (f
, name
, explicit);
2813 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2814 f
->output_data
.x
->current_cursor
2815 = f
->output_data
.x
->text_cursor
);
2819 if (FRAME_X_WINDOW (f
) == 0)
2820 error ("Unable to create window");
2823 #endif /* not USE_GTK */
2824 #endif /* not USE_X_TOOLKIT */
2826 /* Verify that the icon position args for this window are valid. */
2829 x_icon_verify (struct frame
*f
, Lisp_Object parms
)
2831 Lisp_Object icon_x
, icon_y
;
2833 /* Set the position of the icon. Note that twm groups all
2834 icons in an icon window. */
2835 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2836 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2837 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2839 CHECK_NUMBER (icon_x
);
2840 CHECK_NUMBER (icon_y
);
2842 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2843 error ("Both left and top icon corners of icon must be specified");
2846 /* Handle the icon stuff for this window. Perhaps later we might
2847 want an x_set_icon_position which can be called interactively as
2851 x_icon (struct frame
*f
, Lisp_Object parms
)
2853 Lisp_Object icon_x
, icon_y
;
2855 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2858 /* Set the position of the icon. Note that twm groups all
2859 icons in an icon window. */
2860 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2861 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2862 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2864 CHECK_NUMBER (icon_x
);
2865 CHECK_NUMBER (icon_y
);
2867 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2868 error ("Both left and top icon corners of icon must be specified");
2872 if (! EQ (icon_x
, Qunbound
))
2873 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2875 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2876 but x_create_frame still needs it. */
2877 /* Start up iconic or window? */
2878 x_wm_set_window_state
2879 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2885 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2892 /* Make the GCs needed for this window, setting the
2893 background, border and mouse colors; also create the
2894 mouse cursor and the gray border tile. */
2897 x_make_gc (struct frame
*f
)
2899 XGCValues gc_values
;
2903 /* Create the GCs of this frame.
2904 Note that many default values are used. */
2906 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2907 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2908 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2909 f
->output_data
.x
->normal_gc
2910 = XCreateGC (FRAME_X_DISPLAY (f
),
2912 GCLineWidth
| GCForeground
| GCBackground
,
2915 /* Reverse video style. */
2916 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2917 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2918 f
->output_data
.x
->reverse_gc
2919 = XCreateGC (FRAME_X_DISPLAY (f
),
2921 GCForeground
| GCBackground
| GCLineWidth
,
2924 /* Cursor has cursor-color background, background-color foreground. */
2925 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2926 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2927 gc_values
.fill_style
= FillOpaqueStippled
;
2928 f
->output_data
.x
->cursor_gc
2929 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2930 (GCForeground
| GCBackground
2931 | GCFillStyle
| GCLineWidth
),
2935 f
->output_data
.x
->white_relief
.gc
= 0;
2936 f
->output_data
.x
->black_relief
.gc
= 0;
2938 /* Create the gray border tile used when the pointer is not in
2939 the frame. Since this depends on the frame's pixel values,
2940 this must be done on a per-frame basis. */
2941 f
->output_data
.x
->border_tile
2942 = (XCreatePixmapFromBitmapData
2943 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2944 gray_bits
, gray_width
, gray_height
,
2945 FRAME_FOREGROUND_PIXEL (f
),
2946 FRAME_BACKGROUND_PIXEL (f
),
2947 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2953 /* Free what was allocated in x_make_gc. */
2956 x_free_gcs (struct frame
*f
)
2958 Display
*dpy
= FRAME_X_DISPLAY (f
);
2962 if (f
->output_data
.x
->normal_gc
)
2964 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2965 f
->output_data
.x
->normal_gc
= 0;
2968 if (f
->output_data
.x
->reverse_gc
)
2970 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2971 f
->output_data
.x
->reverse_gc
= 0;
2974 if (f
->output_data
.x
->cursor_gc
)
2976 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2977 f
->output_data
.x
->cursor_gc
= 0;
2980 if (f
->output_data
.x
->border_tile
)
2982 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2983 f
->output_data
.x
->border_tile
= 0;
2990 /* Handler for signals raised during x_create_frame and
2991 x_create_top_frame. FRAME is the frame which is partially
2995 unwind_create_frame (Lisp_Object frame
)
2997 struct frame
*f
= XFRAME (frame
);
2999 /* If frame is already dead, nothing to do. This can happen if the
3000 display is disconnected after the frame has become official, but
3001 before x_create_frame removes the unwind protect. */
3002 if (!FRAME_LIVE_P (f
))
3005 /* If frame is ``official'', nothing to do. */
3006 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
3009 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
3012 x_free_frame_resources (f
);
3015 /* Check that reference counts are indeed correct. */
3016 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
3017 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
3027 x_default_font_parameter (struct frame
*f
, Lisp_Object parms
)
3029 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
3030 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
3032 Lisp_Object font
= Qnil
;
3033 if (EQ (font_param
, Qunbound
))
3036 if (NILP (font_param
))
3038 /* System font should take precedendce over X resources. We suggest this
3039 regardless of font-use-system-font because .emacs may not have been
3041 const char *system_font
= xsettings_get_system_font ();
3044 char *name
= xstrdup (system_font
);
3045 font
= font_open_by_name (f
, name
);
3051 font
= !NILP (font_param
) ? font_param
3052 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3054 if (! FONTP (font
) && ! STRINGP (font
))
3059 /* This will find the normal Xft font. */
3062 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
3063 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3064 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3065 /* This was formerly the first thing tried, but it finds
3066 too many fonts and takes too long. */
3067 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
3068 /* If those didn't work, look for something which will
3070 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
3075 for (i
= 0; names
[i
]; i
++)
3077 font
= font_open_by_name (f
, names
[i
]);
3082 error ("No suitable font was found");
3084 else if (!NILP (font_param
))
3086 /* Remember the explicit font parameter, so we can re-apply it after
3087 we've applied the `default' face settings. */
3088 x_set_frame_parameters (f
, Fcons (Fcons (Qfont_param
, font_param
), Qnil
));
3091 /* This call will make X resources override any system font setting. */
3092 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
3096 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
3098 doc
: /* Send the size hints for frame FRAME to the window manager.
3099 If FRAME is nil, use the selected frame. */)
3104 frame
= selected_frame
;
3108 x_wm_set_size_hint (f
, 0, 0);
3114 set_machine_and_pid_properties (struct frame
*f
)
3116 long pid
= (long) getpid ();
3118 /* This will set WM_CLIENT_MACHINE and WM_LOCALE_NAME. */
3119 XSetWMProperties (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), NULL
, NULL
,
3120 NULL
, 0, NULL
, NULL
, NULL
);
3121 XChangeProperty (FRAME_X_DISPLAY (f
),
3122 FRAME_OUTER_WINDOW (f
),
3123 XInternAtom (FRAME_X_DISPLAY (f
),
3126 XA_CARDINAL
, 32, PropModeReplace
,
3127 (unsigned char *) &pid
, 1);
3130 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3132 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3133 Return an Emacs frame object.
3134 PARMS is an alist of frame parameters.
3135 If the parameters specify that the frame should not have a minibuffer,
3136 and do not specify a specific minibuffer window to use,
3137 then `default-minibuffer-frame' must be a frame whose minibuffer can
3138 be shared by the new frame.
3140 This function is an internal primitive--use `make-frame' instead. */)
3144 Lisp_Object frame
, tem
;
3146 int minibuffer_only
= 0;
3147 long window_prompting
= 0;
3149 int count
= SPECPDL_INDEX ();
3150 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3151 Lisp_Object display
;
3152 struct x_display_info
*dpyinfo
= NULL
;
3156 parms
= Fcopy_alist (parms
);
3158 /* Use this general default value to start with
3159 until we know if this frame has a specified name. */
3160 Vx_resource_name
= Vinvocation_name
;
3162 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3163 if (EQ (display
, Qunbound
))
3164 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3165 if (EQ (display
, Qunbound
))
3167 dpyinfo
= check_x_display_info (display
);
3168 kb
= dpyinfo
->terminal
->kboard
;
3170 if (!dpyinfo
->terminal
->name
)
3171 error ("Terminal is not live, can't create new frames on it");
3173 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3175 && ! EQ (name
, Qunbound
)
3177 error ("Invalid frame name--not a string or nil");
3180 Vx_resource_name
= name
;
3182 /* See if parent window is specified. */
3183 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3184 if (EQ (parent
, Qunbound
))
3186 if (! NILP (parent
))
3187 CHECK_NUMBER (parent
);
3189 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3190 /* No need to protect DISPLAY because that's not used after passing
3191 it to make_frame_without_minibuffer. */
3193 GCPRO4 (parms
, parent
, name
, frame
);
3194 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3196 if (EQ (tem
, Qnone
) || NILP (tem
))
3197 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3198 else if (EQ (tem
, Qonly
))
3200 f
= make_minibuffer_frame ();
3201 minibuffer_only
= 1;
3203 else if (WINDOWP (tem
))
3204 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3208 XSETFRAME (frame
, f
);
3210 /* Note that X Windows does support scroll bars. */
3211 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3213 f
->terminal
= dpyinfo
->terminal
;
3214 f
->terminal
->reference_count
++;
3216 f
->output_method
= output_x_window
;
3217 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3218 memset (f
->output_data
.x
, 0, sizeof (struct x_output
));
3219 f
->output_data
.x
->icon_bitmap
= -1;
3220 FRAME_FONTSET (f
) = -1;
3221 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3222 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3223 #ifdef USE_TOOLKIT_SCROLL_BARS
3224 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3225 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3226 #endif /* USE_TOOLKIT_SCROLL_BARS */
3229 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3231 if (! STRINGP (f
->icon_name
))
3232 f
->icon_name
= Qnil
;
3234 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3236 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3237 record_unwind_protect (unwind_create_frame
, frame
);
3239 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
3240 dpyinfo_refcount
= dpyinfo
->reference_count
;
3241 #endif /* GLYPH_DEBUG */
3243 /* These colors will be set anyway later, but it's important
3244 to get the color reference counts right, so initialize them! */
3247 struct gcpro gcpro1
;
3249 /* Function x_decode_color can signal an error. Make
3250 sure to initialize color slots so that we won't try
3251 to free colors we haven't allocated. */
3252 FRAME_FOREGROUND_PIXEL (f
) = -1;
3253 FRAME_BACKGROUND_PIXEL (f
) = -1;
3254 f
->output_data
.x
->cursor_pixel
= -1;
3255 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3256 f
->output_data
.x
->border_pixel
= -1;
3257 f
->output_data
.x
->mouse_pixel
= -1;
3259 black
= build_string ("black");
3261 FRAME_FOREGROUND_PIXEL (f
)
3262 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3263 FRAME_BACKGROUND_PIXEL (f
)
3264 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3265 f
->output_data
.x
->cursor_pixel
3266 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3267 f
->output_data
.x
->cursor_foreground_pixel
3268 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3269 f
->output_data
.x
->border_pixel
3270 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3271 f
->output_data
.x
->mouse_pixel
3272 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3276 /* Specify the parent under which to make this X window. */
3280 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3281 f
->output_data
.x
->explicit_parent
= 1;
3285 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3286 f
->output_data
.x
->explicit_parent
= 0;
3289 /* Set the name; the functions to which we pass f expect the name to
3291 if (EQ (name
, Qunbound
) || NILP (name
))
3293 f
->name
= build_string (dpyinfo
->x_id_name
);
3294 f
->explicit_name
= 0;
3299 f
->explicit_name
= 1;
3300 /* use the frame's title when getting resources for this frame. */
3301 specbind (Qx_resource_name
, name
);
3304 f
->resx
= dpyinfo
->resx
;
3305 f
->resy
= dpyinfo
->resy
;
3307 #ifdef HAVE_FREETYPE
3309 register_font_driver (&xftfont_driver
, f
);
3310 #else /* not HAVE_XFT */
3311 register_font_driver (&ftxfont_driver
, f
);
3312 #endif /* not HAVE_XFT */
3313 #endif /* HAVE_FREETYPE */
3314 register_font_driver (&xfont_driver
, f
);
3316 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3317 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3319 /* Extract the window parameters from the supplied values
3320 that are needed to determine window geometry. */
3321 x_default_font_parameter (f
, parms
);
3322 if (!FRAME_FONT (f
))
3324 delete_frame (frame
, Qnoelisp
);
3325 error ("Invalid frame font");
3328 /* Frame contents get displaced if an embedded X window has a border. */
3329 if (! FRAME_X_EMBEDDED_P (f
))
3330 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
3331 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3333 /* This defaults to 1 in order to match xterm. We recognize either
3334 internalBorderWidth or internalBorder (which is what xterm calls
3336 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3340 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3341 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3342 if (! EQ (value
, Qunbound
))
3343 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3346 x_default_parameter (f
, parms
, Qinternal_border_width
,
3347 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3352 "internalBorderWidth", "internalBorderWidth",
3354 x_default_parameter (f
, parms
, Qvertical_scroll_bars
,
3355 #if defined(USE_GTK) && defined(USE_TOOLKIT_SCROLL_BARS)
3360 "verticalScrollBars", "ScrollBars",
3363 /* Also do the stuff which must be set before the window exists. */
3364 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3365 "foreground", "Foreground", RES_TYPE_STRING
);
3366 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3367 "background", "Background", RES_TYPE_STRING
);
3368 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3369 "pointerColor", "Foreground", RES_TYPE_STRING
);
3370 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3371 "cursorColor", "Foreground", RES_TYPE_STRING
);
3372 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3373 "borderColor", "BorderColor", RES_TYPE_STRING
);
3374 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3375 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3376 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3377 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3378 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3379 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3380 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3381 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3383 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3384 "scrollBarForeground",
3385 "ScrollBarForeground", 1);
3386 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3387 "scrollBarBackground",
3388 "ScrollBarBackground", 0);
3390 /* Init faces before x_default_parameter is called for scroll-bar
3391 parameters because that function calls x_set_scroll_bar_width,
3392 which calls change_frame_size, which calls Fset_window_buffer,
3393 which runs hooks, which call Fvertical_motion. At the end, we
3394 end up in init_iterator with a null face cache, which should not
3396 init_frame_faces (f
);
3398 /* The X resources controlling the menu-bar and tool-bar are
3399 processed specially at startup, and reflected in the mode
3400 variables; ignore them here. */
3401 x_default_parameter (f
, parms
, Qmenu_bar_lines
,
3402 NILP (Vmenu_bar_mode
)
3403 ? make_number (0) : make_number (1),
3404 NULL
, NULL
, RES_TYPE_NUMBER
);
3405 x_default_parameter (f
, parms
, Qtool_bar_lines
,
3406 NILP (Vtool_bar_mode
)
3407 ? make_number (0) : make_number (1),
3408 NULL
, NULL
, RES_TYPE_NUMBER
);
3410 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3411 "bufferPredicate", "BufferPredicate",
3413 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3414 "title", "Title", RES_TYPE_STRING
);
3415 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3416 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3417 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3418 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3419 x_default_parameter (f
, parms
, Qtool_bar_position
,
3420 f
->tool_bar_position
, 0, 0, RES_TYPE_SYMBOL
);
3422 /* Compute the size of the X window. */
3423 window_prompting
= x_figure_window_size (f
, parms
, 1);
3425 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3426 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3428 x_icon_verify (f
, parms
);
3430 /* Create the X widget or window. */
3431 #ifdef USE_X_TOOLKIT
3432 x_window (f
, window_prompting
, minibuffer_only
);
3440 /* Now consider the frame official. */
3441 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3442 Vframe_list
= Fcons (frame
, Vframe_list
);
3444 /* We need to do this after creating the X window, so that the
3445 icon-creation functions can say whose icon they're describing. */
3446 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3447 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3449 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3450 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3451 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3452 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3453 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3454 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3455 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3456 "scrollBarWidth", "ScrollBarWidth",
3458 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3459 "alpha", "Alpha", RES_TYPE_NUMBER
);
3461 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3462 Change will not be effected unless different from the current
3464 width
= FRAME_COLS (f
);
3465 height
= FRAME_LINES (f
);
3467 SET_FRAME_COLS (f
, 0);
3468 FRAME_LINES (f
) = 0;
3469 change_frame_size (f
, height
, width
, 1, 0, 0);
3471 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3472 /* Create the menu bar. */
3473 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3475 /* If this signals an error, we haven't set size hints for the
3476 frame and we didn't make it visible. */
3477 initialize_frame_menubar (f
);
3480 /* This is a no-op, except under Motif where it arranges the
3481 main window for the widgets on it. */
3482 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3483 f
->output_data
.x
->menubar_widget
,
3484 f
->output_data
.x
->edit_widget
);
3485 #endif /* not USE_GTK */
3487 #endif /* USE_X_TOOLKIT || USE_GTK */
3489 /* Tell the server what size and position, etc, we want, and how
3490 badly we want them. This should be done after we have the menu
3491 bar so that its size can be taken into account. */
3493 x_wm_set_size_hint (f
, window_prompting
, 0);
3496 /* Make the window appear on the frame and enable display, unless
3497 the caller says not to. However, with explicit parent, Emacs
3498 cannot control visibility, so don't try. */
3499 if (! f
->output_data
.x
->explicit_parent
)
3501 Lisp_Object visibility
;
3503 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3505 if (EQ (visibility
, Qunbound
))
3508 if (EQ (visibility
, Qicon
))
3509 x_iconify_frame (f
);
3510 else if (! NILP (visibility
))
3511 x_make_frame_visible (f
);
3513 /* Must have been Qnil. */
3519 /* Set machine name and pid for the purpose of window managers. */
3520 set_machine_and_pid_properties(f
);
3522 /* Set the WM leader property. GTK does this itself, so this is not
3523 needed when using GTK. */
3524 if (dpyinfo
->client_leader_window
!= 0)
3526 XChangeProperty (FRAME_X_DISPLAY (f
),
3527 FRAME_OUTER_WINDOW (f
),
3528 dpyinfo
->Xatom_wm_client_leader
,
3529 XA_WINDOW
, 32, PropModeReplace
,
3530 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3535 /* Initialize `default-minibuffer-frame' in case this is the first
3536 frame on this terminal. */
3537 if (FRAME_HAS_MINIBUF_P (f
)
3538 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3539 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3540 kb
->Vdefault_minibuffer_frame
= frame
;
3542 /* All remaining specified parameters, which have not been "used"
3543 by x_get_arg and friends, now go in the misc. alist of the frame. */
3544 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3545 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3546 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3550 /* Make sure windows on this frame appear in calls to next-window
3551 and similar functions. */
3552 Vwindow_list
= Qnil
;
3554 return unbind_to (count
, frame
);
3558 /* FRAME is used only to get a handle on the X display. We don't pass the
3559 display info directly because we're called from frame.c, which doesn't
3560 know about that structure. */
3563 x_get_focus_frame (struct frame
*frame
)
3565 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3567 if (! dpyinfo
->x_focus_frame
)
3570 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3575 /* In certain situations, when the window manager follows a
3576 click-to-focus policy, there seems to be no way around calling
3577 XSetInputFocus to give another frame the input focus .
3579 In an ideal world, XSetInputFocus should generally be avoided so
3580 that applications don't interfere with the window manager's focus
3581 policy. But I think it's okay to use when it's clearly done
3582 following a user-command. */
3584 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3585 doc
: /* Set the input focus to FRAME.
3586 FRAME nil means use the selected frame. */)
3589 struct frame
*f
= check_x_frame (frame
);
3590 Display
*dpy
= FRAME_X_DISPLAY (f
);
3593 x_catch_errors (dpy
);
3594 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3595 RevertToParent
, CurrentTime
);
3596 x_ewmh_activate_frame (f
);
3597 x_uncatch_errors ();
3604 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3605 doc
: /* Internal function called by `color-defined-p', which see
3606 .\(Note that the Nextstep version of this function ignores FRAME.) */)
3607 (Lisp_Object color
, Lisp_Object frame
)
3610 FRAME_PTR f
= check_x_frame (frame
);
3612 CHECK_STRING (color
);
3614 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3620 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3621 doc
: /* Internal function called by `color-values', which see. */)
3622 (Lisp_Object color
, Lisp_Object frame
)
3625 FRAME_PTR f
= check_x_frame (frame
);
3627 CHECK_STRING (color
);
3629 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3630 return list3 (make_number (foo
.red
),
3631 make_number (foo
.green
),
3632 make_number (foo
.blue
));
3637 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3638 doc
: /* Internal function called by `display-color-p', which see. */)
3639 (Lisp_Object terminal
)
3641 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3643 if (dpyinfo
->n_planes
<= 2)
3646 switch (dpyinfo
->visual
->class)
3659 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3661 doc
: /* Return t if the X display supports shades of gray.
3662 Note that color displays do support shades of gray.
3663 The optional argument TERMINAL specifies which display to ask about.
3664 TERMINAL should be a terminal object, a frame or a display name (a string).
3665 If omitted or nil, that stands for the selected frame's display. */)
3666 (Lisp_Object terminal
)
3668 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3670 if (dpyinfo
->n_planes
<= 1)
3673 switch (dpyinfo
->visual
->class)
3688 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3690 doc
: /* Return the width in pixels of the X display TERMINAL.
3691 The optional argument TERMINAL specifies which display to ask about.
3692 TERMINAL should be a terminal object, a frame or a display name (a string).
3693 If omitted or nil, that stands for the selected frame's display. */)
3694 (Lisp_Object terminal
)
3696 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3698 return make_number (x_display_pixel_width (dpyinfo
));
3701 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3702 Sx_display_pixel_height
, 0, 1, 0,
3703 doc
: /* Return the height in pixels of the X display TERMINAL.
3704 The optional argument TERMINAL specifies which display to ask about.
3705 TERMINAL should be a terminal object, a frame or a display name (a string).
3706 If omitted or nil, that stands for the selected frame's display. */)
3707 (Lisp_Object terminal
)
3709 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3711 return make_number (x_display_pixel_height (dpyinfo
));
3714 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3716 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3717 The optional argument TERMINAL specifies which display to ask about.
3718 TERMINAL should be a terminal object, a frame or a display name (a string).
3719 If omitted or nil, that stands for the selected frame's display. */)
3720 (Lisp_Object terminal
)
3722 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3724 return make_number (dpyinfo
->n_planes
);
3727 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3729 doc
: /* Return the number of color cells of the X display TERMINAL.
3730 The optional argument TERMINAL specifies which display to ask about.
3731 TERMINAL should be a terminal object, a frame or a display name (a string).
3732 If omitted or nil, that stands for the selected frame's display. */)
3733 (Lisp_Object terminal
)
3735 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3737 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3738 XScreenNumberOfScreen (dpyinfo
->screen
));
3740 /* Truncate nr_planes to 24 to avoid integer overflow.
3741 Some displays says 32, but only 24 bits are actually significant.
3742 There are only very few and rare video cards that have more than
3743 24 significant bits. Also 24 bits is more than 16 million colors,
3744 it "should be enough for everyone". */
3745 if (nr_planes
> 24) nr_planes
= 24;
3747 return make_number (1 << nr_planes
);
3750 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3751 Sx_server_max_request_size
,
3753 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3754 The optional argument TERMINAL specifies which display to ask about.
3755 TERMINAL should be a terminal object, a frame or a display name (a string).
3756 If omitted or nil, that stands for the selected frame's display. */)
3757 (Lisp_Object terminal
)
3759 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3761 return make_number (MAXREQUEST (dpyinfo
->display
));
3764 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3765 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3766 \(Labelling every distributor as a "vendor" embodies the false assumption
3767 that operating systems cannot be developed and distributed noncommercially.)
3768 The optional argument TERMINAL specifies which display to ask about.
3769 TERMINAL should be a terminal object, a frame or a display name (a string).
3770 If omitted or nil, that stands for the selected frame's display. */)
3771 (Lisp_Object terminal
)
3773 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3774 const char *vendor
= ServerVendor (dpyinfo
->display
);
3776 if (! vendor
) vendor
= "";
3777 return build_string (vendor
);
3780 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3781 doc
: /* Return the version numbers of the X server of display TERMINAL.
3782 The value is a list of three integers: the major and minor
3783 version numbers of the X Protocol in use, and the distributor-specific release
3784 number. See also the function `x-server-vendor'.
3786 The optional argument TERMINAL specifies which display to ask about.
3787 TERMINAL should be a terminal object, a frame or a display name (a string).
3788 If omitted or nil, that stands for the selected frame's display. */)
3789 (Lisp_Object terminal
)
3791 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3792 Display
*dpy
= dpyinfo
->display
;
3794 return Fcons (make_number (ProtocolVersion (dpy
)),
3795 Fcons (make_number (ProtocolRevision (dpy
)),
3796 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3799 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3800 doc
: /* Return the number of screens on the X server of display TERMINAL.
3801 The optional argument TERMINAL specifies which display to ask about.
3802 TERMINAL should be a terminal object, a frame or a display name (a string).
3803 If omitted or nil, that stands for the selected frame's display. */)
3804 (Lisp_Object terminal
)
3806 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3808 return make_number (ScreenCount (dpyinfo
->display
));
3811 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3812 doc
: /* Return the height in millimeters of the X display TERMINAL.
3813 The optional argument TERMINAL specifies which display to ask about.
3814 TERMINAL should be a terminal object, a frame or a display name (a string).
3815 If omitted or nil, that stands for the selected frame's display. */)
3816 (Lisp_Object terminal
)
3818 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3820 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3823 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3824 doc
: /* Return the width in millimeters of the X display TERMINAL.
3825 The optional argument TERMINAL specifies which display to ask about.
3826 TERMINAL should be a terminal object, a frame or a display name (a string).
3827 If omitted or nil, that stands for the selected frame's display. */)
3828 (Lisp_Object terminal
)
3830 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3832 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3835 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3836 Sx_display_backing_store
, 0, 1, 0,
3837 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3838 The value may be `always', `when-mapped', or `not-useful'.
3839 The optional argument TERMINAL specifies which display to ask about.
3840 TERMINAL should be a terminal object, a frame or a display name (a string).
3841 If omitted or nil, that stands for the selected frame's display. */)
3842 (Lisp_Object terminal
)
3844 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3847 switch (DoesBackingStore (dpyinfo
->screen
))
3850 result
= intern ("always");
3854 result
= intern ("when-mapped");
3858 result
= intern ("not-useful");
3862 error ("Strange value for BackingStore parameter of screen");
3869 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3870 Sx_display_visual_class
, 0, 1, 0,
3871 doc
: /* Return the visual class of the X display TERMINAL.
3872 The value is one of the symbols `static-gray', `gray-scale',
3873 `static-color', `pseudo-color', `true-color', or `direct-color'.
3875 The optional argument TERMINAL specifies which display to ask about.
3876 TERMINAL should a terminal object, a frame or a display name (a string).
3877 If omitted or nil, that stands for the selected frame's display. */)
3878 (Lisp_Object terminal
)
3880 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3883 switch (dpyinfo
->visual
->class)
3886 result
= intern ("static-gray");
3889 result
= intern ("gray-scale");
3892 result
= intern ("static-color");
3895 result
= intern ("pseudo-color");
3898 result
= intern ("true-color");
3901 result
= intern ("direct-color");
3904 error ("Display has an unknown visual class");
3911 DEFUN ("x-display-save-under", Fx_display_save_under
,
3912 Sx_display_save_under
, 0, 1, 0,
3913 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3914 The optional argument TERMINAL specifies which display to ask about.
3915 TERMINAL should be a terminal object, a frame or a display name (a string).
3916 If omitted or nil, that stands for the selected frame's display. */)
3917 (Lisp_Object terminal
)
3919 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3921 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3928 x_pixel_width (register struct frame
*f
)
3930 return FRAME_PIXEL_WIDTH (f
);
3934 x_pixel_height (register struct frame
*f
)
3936 return FRAME_PIXEL_HEIGHT (f
);
3940 x_char_width (register struct frame
*f
)
3942 return FRAME_COLUMN_WIDTH (f
);
3946 x_char_height (register struct frame
*f
)
3948 return FRAME_LINE_HEIGHT (f
);
3952 x_screen_planes (register struct frame
*f
)
3954 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3959 /************************************************************************
3961 ************************************************************************/
3964 /* Mapping visual names to visuals. */
3966 static struct visual_class
3973 {"StaticGray", StaticGray
},
3974 {"GrayScale", GrayScale
},
3975 {"StaticColor", StaticColor
},
3976 {"PseudoColor", PseudoColor
},
3977 {"TrueColor", TrueColor
},
3978 {"DirectColor", DirectColor
},
3983 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3985 /* Value is the screen number of screen SCR. This is a substitute for
3986 the X function with the same name when that doesn't exist. */
3989 XScreenNumberOfScreen (scr
)
3990 register Screen
*scr
;
3992 Display
*dpy
= scr
->display
;
3995 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3996 if (scr
== dpy
->screens
+ i
)
4002 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
4005 /* Select the visual that should be used on display DPYINFO. Set
4006 members of DPYINFO appropriately. Called from x_term_init. */
4009 select_visual (struct x_display_info
*dpyinfo
)
4011 Display
*dpy
= dpyinfo
->display
;
4012 Screen
*screen
= dpyinfo
->screen
;
4015 /* See if a visual is specified. */
4016 value
= display_x_get_resource (dpyinfo
,
4017 build_string ("visualClass"),
4018 build_string ("VisualClass"),
4020 if (STRINGP (value
))
4022 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
4023 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4024 depth, a decimal number. NAME is compared with case ignored. */
4025 char *s
= (char *) alloca (SBYTES (value
) + 1);
4030 strcpy (s
, SDATA (value
));
4031 dash
= strchr (s
, '-');
4034 dpyinfo
->n_planes
= atoi (dash
+ 1);
4038 /* We won't find a matching visual with depth 0, so that
4039 an error will be printed below. */
4040 dpyinfo
->n_planes
= 0;
4042 /* Determine the visual class. */
4043 for (i
= 0; visual_classes
[i
].name
; ++i
)
4044 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4046 class = visual_classes
[i
].class;
4050 /* Look up a matching visual for the specified class. */
4052 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4053 dpyinfo
->n_planes
, class, &vinfo
))
4054 fatal ("Invalid visual specification `%s'", SDATA (value
));
4056 dpyinfo
->visual
= vinfo
.visual
;
4061 XVisualInfo
*vinfo
, vinfo_template
;
4063 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4065 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4066 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4067 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4068 &vinfo_template
, &n_visuals
);
4070 fatal ("Can't get proper X visual info");
4072 dpyinfo
->n_planes
= vinfo
->depth
;
4073 XFree ((char *) vinfo
);
4078 /* Return the X display structure for the display named NAME.
4079 Open a new connection if necessary. */
4081 struct x_display_info
*
4082 x_display_info_for_name (Lisp_Object name
)
4085 struct x_display_info
*dpyinfo
;
4087 CHECK_STRING (name
);
4090 if (! EQ (Vinitial_window_system
, intern ("x")))
4091 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4094 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4096 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4099 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4104 /* Use this general default value to start with. */
4105 Vx_resource_name
= Vinvocation_name
;
4107 validate_x_resource_name ();
4109 dpyinfo
= x_term_init (name
, (char *)0,
4110 (char *) SDATA (Vx_resource_name
));
4113 error ("Cannot connect to X server %s", SDATA (name
));
4116 XSETFASTINT (Vwindow_system_version
, 11);
4122 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4124 doc
: /* Open a connection to a display server.
4125 DISPLAY is the name of the display to connect to.
4126 Optional second arg XRM-STRING is a string of resources in xrdb format.
4127 If the optional third arg MUST-SUCCEED is non-nil,
4128 terminate Emacs if we can't open the connection.
4129 \(In the Nextstep version, the last two arguments are currently ignored.) */)
4130 (Lisp_Object display
, Lisp_Object xrm_string
, Lisp_Object must_succeed
)
4132 unsigned char *xrm_option
;
4133 struct x_display_info
*dpyinfo
;
4135 CHECK_STRING (display
);
4136 if (! NILP (xrm_string
))
4137 CHECK_STRING (xrm_string
);
4140 if (! EQ (Vinitial_window_system
, intern ("x")))
4141 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4144 if (! NILP (xrm_string
))
4145 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4147 xrm_option
= (unsigned char *) 0;
4149 validate_x_resource_name ();
4151 /* This is what opens the connection and sets x_current_display.
4152 This also initializes many symbols, such as those used for input. */
4153 dpyinfo
= x_term_init (display
, xrm_option
,
4154 (char *) SDATA (Vx_resource_name
));
4158 if (!NILP (must_succeed
))
4159 fatal ("Cannot connect to X server %s.\n\
4160 Check the DISPLAY environment variable or use `-d'.\n\
4161 Also use the `xauth' program to verify that you have the proper\n\
4162 authorization information needed to connect the X server.\n\
4163 An insecure way to solve the problem may be to use `xhost'.\n",
4166 error ("Cannot connect to X server %s", SDATA (display
));
4171 XSETFASTINT (Vwindow_system_version
, 11);
4175 DEFUN ("x-close-connection", Fx_close_connection
,
4176 Sx_close_connection
, 1, 1, 0,
4177 doc
: /* Close the connection to TERMINAL's X server.
4178 For TERMINAL, specify a terminal object, a frame or a display name (a
4179 string). If TERMINAL is nil, that stands for the selected frame's
4181 (Lisp_Object terminal
)
4183 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4185 if (dpyinfo
->reference_count
> 0)
4186 error ("Display still has frames on it");
4188 x_delete_terminal (dpyinfo
->terminal
);
4193 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4194 doc
: /* Return the list of display names that Emacs has connections to. */)
4197 Lisp_Object tail
, result
;
4200 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4201 result
= Fcons (XCAR (XCAR (tail
)), result
);
4206 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4207 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4208 This function only has an effect on X Windows. With MS Windows, it is
4209 defined but does nothing.
4211 If ON is nil, allow buffering of requests.
4212 Turning on synchronization prohibits the Xlib routines from buffering
4213 requests and seriously degrades performance, but makes debugging much
4215 The optional second argument TERMINAL specifies which display to act on.
4216 TERMINAL should be a terminal object, a frame or a display name (a string).
4217 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4218 (Lisp_Object on
, Lisp_Object terminal
)
4220 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4222 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4227 /* Wait for responses to all X commands issued so far for frame F. */
4230 x_sync (FRAME_PTR f
)
4233 XSync (FRAME_X_DISPLAY (f
), False
);
4238 /***********************************************************************
4240 ***********************************************************************/
4242 DEFUN ("x-change-window-property", Fx_change_window_property
,
4243 Sx_change_window_property
, 2, 6, 0,
4244 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4245 PROP must be a string. VALUE may be a string or a list of conses,
4246 numbers and/or strings. If an element in the list is a string, it is
4247 converted to an atom and the value of the atom is used. If an element
4248 is a cons, it is converted to a 32 bit number where the car is the 16
4249 top bits and the cdr is the lower 16 bits.
4251 FRAME nil or omitted means use the selected frame.
4252 If TYPE is given and non-nil, it is the name of the type of VALUE.
4253 If TYPE is not given or nil, the type is STRING.
4254 FORMAT gives the size in bits of each element if VALUE is a list.
4255 It must be one of 8, 16 or 32.
4256 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4257 If OUTER_P is non-nil, the property is changed for the outer X window of
4258 FRAME. Default is to change on the edit X window. */)
4259 (Lisp_Object prop
, Lisp_Object value
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4261 struct frame
*f
= check_x_frame (frame
);
4263 Atom target_type
= XA_STRING
;
4264 int element_format
= 8;
4265 unsigned char *data
;
4269 CHECK_STRING (prop
);
4271 if (! NILP (format
))
4273 CHECK_NUMBER (format
);
4274 element_format
= XFASTINT (format
);
4276 if (element_format
!= 8 && element_format
!= 16
4277 && element_format
!= 32)
4278 error ("FORMAT must be one of 8, 16 or 32");
4283 nelements
= x_check_property_data (value
);
4284 if (nelements
== -1)
4285 error ("Bad data in VALUE, must be number, string or cons");
4287 if (element_format
== 8)
4288 data
= (unsigned char *) xmalloc (nelements
);
4289 else if (element_format
== 16)
4290 data
= (unsigned char *) xmalloc (nelements
*2);
4291 else /* format == 32 */
4292 /* The man page for XChangeProperty:
4293 "If the specified format is 32, the property data must be a
4295 This applies even if long is more than 64 bits. The X library
4296 converts to 32 bits before sending to the X server. */
4297 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4299 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4303 CHECK_STRING (value
);
4304 data
= SDATA (value
);
4305 nelements
= SCHARS (value
);
4309 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4312 CHECK_STRING (type
);
4313 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4316 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4317 else w
= FRAME_X_WINDOW (f
);
4319 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4320 prop_atom
, target_type
, element_format
, PropModeReplace
,
4323 if (CONSP (value
)) xfree (data
);
4325 /* Make sure the property is set when we return. */
4326 XFlush (FRAME_X_DISPLAY (f
));
4333 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4334 Sx_delete_window_property
, 1, 2, 0,
4335 doc
: /* Remove window property PROP from X window of FRAME.
4336 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4337 (Lisp_Object prop
, Lisp_Object frame
)
4339 struct frame
*f
= check_x_frame (frame
);
4342 CHECK_STRING (prop
);
4344 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4345 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4347 /* Make sure the property is removed when we return. */
4348 XFlush (FRAME_X_DISPLAY (f
));
4355 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4357 doc
: /* Value is the value of window property PROP on FRAME.
4358 If FRAME is nil or omitted, use the selected frame.
4360 On MS Windows, this function only accepts the PROP and FRAME arguments.
4362 On X Windows, the following optional arguments are also accepted:
4363 If TYPE is nil or omitted, get the property as a string.
4364 Otherwise TYPE is the name of the atom that denotes the type expected.
4365 If SOURCE is non-nil, get the property on that window instead of from
4366 FRAME. The number 0 denotes the root window.
4367 If DELETE_P is non-nil, delete the property after retreiving it.
4368 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4370 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4371 no value of TYPE (always string in the MS Windows case). */)
4372 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4374 struct frame
*f
= check_x_frame (frame
);
4377 Lisp_Object prop_value
= Qnil
;
4378 unsigned char *tmp_data
= NULL
;
4380 Atom target_type
= XA_STRING
;
4382 unsigned long actual_size
, bytes_remaining
;
4383 Window target_window
= FRAME_X_WINDOW (f
);
4384 struct gcpro gcpro1
;
4386 GCPRO1 (prop_value
);
4387 CHECK_STRING (prop
);
4389 if (! NILP (source
))
4391 if (NUMBERP (source
))
4393 if (FLOATP (source
))
4394 target_window
= (Window
) XFLOAT (source
);
4396 target_window
= XFASTINT (source
);
4398 if (target_window
== 0)
4399 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4401 else if (CONSP (source
))
4402 target_window
= cons_to_long (source
);
4408 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4409 target_type
= AnyPropertyType
;
4411 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4414 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4415 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4416 prop_atom
, 0, 0, False
, target_type
,
4417 &actual_type
, &actual_format
, &actual_size
,
4418 &bytes_remaining
, &tmp_data
);
4421 int size
= bytes_remaining
;
4426 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4427 prop_atom
, 0, bytes_remaining
,
4428 ! NILP (delete_p
), target_type
,
4429 &actual_type
, &actual_format
,
4430 &actual_size
, &bytes_remaining
,
4432 if (rc
== Success
&& tmp_data
)
4434 /* The man page for XGetWindowProperty says:
4435 "If the returned format is 32, the returned data is represented
4436 as a long array and should be cast to that type to obtain the
4438 This applies even if long is more than 32 bits, the X library
4439 converts from 32 bit elements received from the X server to long
4440 and passes the long array to us. Thus, for that case memcpy can not
4441 be used. We convert to a 32 bit type here, because so much code
4444 The bytes and offsets passed to XGetWindowProperty refers to the
4445 property and those are indeed in 32 bit quantities if format is
4448 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4451 int *idata
= (int *) tmp_data
;
4452 long *ldata
= (long *) tmp_data
;
4454 for (i
= 0; i
< actual_size
; ++i
)
4455 idata
[i
] = (int) ldata
[i
];
4458 if (NILP (vector_ret_p
))
4459 prop_value
= make_string (tmp_data
, size
);
4461 prop_value
= x_property_data_to_lisp (f
,
4468 if (tmp_data
) XFree (tmp_data
);
4478 /***********************************************************************
4480 ***********************************************************************/
4482 /* Timer function of hourglass_atimer. TIMER is equal to
4485 Display an hourglass pointer on all frames by mapping the frames'
4486 hourglass_window. Set the hourglass_p flag in the frames'
4487 output_data.x structure to indicate that an hourglass cursor is
4488 shown on the frames. */
4491 show_hourglass (struct atimer
*timer
)
4493 /* The timer implementation will cancel this timer automatically
4494 after this function has run. Set hourglass_atimer to null
4495 so that we know the timer doesn't have to be canceled. */
4496 hourglass_atimer
= NULL
;
4498 if (!hourglass_shown_p
)
4500 Lisp_Object rest
, frame
;
4504 FOR_EACH_FRAME (rest
, frame
)
4506 struct frame
*f
= XFRAME (frame
);
4508 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4510 Display
*dpy
= FRAME_X_DISPLAY (f
);
4512 #ifdef USE_X_TOOLKIT
4513 if (f
->output_data
.x
->widget
)
4515 if (FRAME_OUTER_WINDOW (f
))
4518 f
->output_data
.x
->hourglass_p
= 1;
4520 if (!f
->output_data
.x
->hourglass_window
)
4522 unsigned long mask
= CWCursor
;
4523 XSetWindowAttributes attrs
;
4525 Window parent
= FRAME_X_WINDOW (f
);
4527 Window parent
= FRAME_OUTER_WINDOW (f
);
4529 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4531 f
->output_data
.x
->hourglass_window
4532 = XCreateWindow (dpy
, parent
,
4533 0, 0, 32000, 32000, 0, 0,
4539 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4545 hourglass_shown_p
= 1;
4551 /* Hide the hourglass pointer on all frames, if it is currently
4555 hide_hourglass (void)
4557 if (hourglass_shown_p
)
4559 Lisp_Object rest
, frame
;
4562 FOR_EACH_FRAME (rest
, frame
)
4564 struct frame
*f
= XFRAME (frame
);
4567 /* Watch out for newly created frames. */
4568 && f
->output_data
.x
->hourglass_window
)
4570 XUnmapWindow (FRAME_X_DISPLAY (f
),
4571 f
->output_data
.x
->hourglass_window
);
4572 /* Sync here because XTread_socket looks at the
4573 hourglass_p flag that is reset to zero below. */
4574 XSync (FRAME_X_DISPLAY (f
), False
);
4575 f
->output_data
.x
->hourglass_p
= 0;
4579 hourglass_shown_p
= 0;
4586 /***********************************************************************
4588 ***********************************************************************/
4590 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4591 Lisp_Object
, Lisp_Object
);
4592 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4593 Lisp_Object
, int, int, int *, int *);
4595 /* The frame of a currently visible tooltip. */
4597 Lisp_Object tip_frame
;
4599 /* If non-nil, a timer started that hides the last tooltip when it
4602 Lisp_Object tip_timer
;
4605 /* If non-nil, a vector of 3 elements containing the last args
4606 with which x-show-tip was called. See there. */
4608 Lisp_Object last_show_tip_args
;
4610 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4612 Lisp_Object Vx_max_tooltip_size
;
4616 unwind_create_tip_frame (Lisp_Object frame
)
4618 Lisp_Object deleted
;
4620 deleted
= unwind_create_frame (frame
);
4621 if (EQ (deleted
, Qt
))
4631 /* Create a frame for a tooltip on the display described by DPYINFO.
4632 PARMS is a list of frame parameters. TEXT is the string to
4633 display in the tip frame. Value is the frame.
4635 Note that functions called here, esp. x_default_parameter can
4636 signal errors, for instance when a specified color name is
4637 undefined. We have to make sure that we're in a consistent state
4638 when this happens. */
4641 x_create_tip_frame (struct x_display_info
*dpyinfo
,
4646 Lisp_Object frame
, tem
;
4648 long window_prompting
= 0;
4650 int count
= SPECPDL_INDEX ();
4651 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4652 int face_change_count_before
= face_change_count
;
4654 struct buffer
*old_buffer
;
4658 if (!dpyinfo
->terminal
->name
)
4659 error ("Terminal is not live, can't create new frames on it");
4661 parms
= Fcopy_alist (parms
);
4663 /* Get the name of the frame to use for resource lookup. */
4664 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4666 && !EQ (name
, Qunbound
)
4668 error ("Invalid frame name--not a string or nil");
4671 GCPRO3 (parms
, name
, frame
);
4673 XSETFRAME (frame
, f
);
4675 buffer
= Fget_buffer_create (build_string (" *tip*"));
4676 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4677 old_buffer
= current_buffer
;
4678 set_buffer_internal_1 (XBUFFER (buffer
));
4679 current_buffer
->truncate_lines
= Qnil
;
4680 specbind (Qinhibit_read_only
, Qt
);
4681 specbind (Qinhibit_modification_hooks
, Qt
);
4684 set_buffer_internal_1 (old_buffer
);
4686 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4687 record_unwind_protect (unwind_create_tip_frame
, frame
);
4689 f
->terminal
= dpyinfo
->terminal
;
4690 f
->terminal
->reference_count
++;
4692 /* By setting the output method, we're essentially saying that
4693 the frame is live, as per FRAME_LIVE_P. If we get a signal
4694 from this point on, x_destroy_window might screw up reference
4696 f
->output_method
= output_x_window
;
4697 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4698 memset (f
->output_data
.x
, 0, sizeof (struct x_output
));
4699 f
->output_data
.x
->icon_bitmap
= -1;
4700 FRAME_FONTSET (f
) = -1;
4701 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4702 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4703 #ifdef USE_TOOLKIT_SCROLL_BARS
4704 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4705 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4706 #endif /* USE_TOOLKIT_SCROLL_BARS */
4707 f
->icon_name
= Qnil
;
4708 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4710 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
4711 dpyinfo_refcount
= dpyinfo
->reference_count
;
4712 #endif /* GLYPH_DEBUG */
4713 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4714 f
->output_data
.x
->explicit_parent
= 0;
4716 /* These colors will be set anyway later, but it's important
4717 to get the color reference counts right, so initialize them! */
4720 struct gcpro gcpro1
;
4722 /* Function x_decode_color can signal an error. Make
4723 sure to initialize color slots so that we won't try
4724 to free colors we haven't allocated. */
4725 FRAME_FOREGROUND_PIXEL (f
) = -1;
4726 FRAME_BACKGROUND_PIXEL (f
) = -1;
4727 f
->output_data
.x
->cursor_pixel
= -1;
4728 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4729 f
->output_data
.x
->border_pixel
= -1;
4730 f
->output_data
.x
->mouse_pixel
= -1;
4732 black
= build_string ("black");
4734 FRAME_FOREGROUND_PIXEL (f
)
4735 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4736 FRAME_BACKGROUND_PIXEL (f
)
4737 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4738 f
->output_data
.x
->cursor_pixel
4739 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4740 f
->output_data
.x
->cursor_foreground_pixel
4741 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4742 f
->output_data
.x
->border_pixel
4743 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4744 f
->output_data
.x
->mouse_pixel
4745 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4749 /* Set the name; the functions to which we pass f expect the name to
4751 if (EQ (name
, Qunbound
) || NILP (name
))
4753 f
->name
= build_string (dpyinfo
->x_id_name
);
4754 f
->explicit_name
= 0;
4759 f
->explicit_name
= 1;
4760 /* use the frame's title when getting resources for this frame. */
4761 specbind (Qx_resource_name
, name
);
4764 f
->resx
= dpyinfo
->resx
;
4765 f
->resy
= dpyinfo
->resy
;
4767 register_font_driver (&xfont_driver
, f
);
4768 #ifdef HAVE_FREETYPE
4770 register_font_driver (&xftfont_driver
, f
);
4771 #else /* not HAVE_XFT */
4772 register_font_driver (&ftxfont_driver
, f
);
4773 #endif /* not HAVE_XFT */
4774 #endif /* HAVE_FREETYPE */
4776 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4777 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4779 /* Extract the window parameters from the supplied values that are
4780 needed to determine window geometry. */
4781 x_default_font_parameter (f
, parms
);
4783 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
4784 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4786 /* This defaults to 2 in order to match xterm. We recognize either
4787 internalBorderWidth or internalBorder (which is what xterm calls
4789 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4793 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4794 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4795 if (! EQ (value
, Qunbound
))
4796 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4800 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4801 "internalBorderWidth", "internalBorderWidth",
4804 /* Also do the stuff which must be set before the window exists. */
4805 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4806 "foreground", "Foreground", RES_TYPE_STRING
);
4807 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4808 "background", "Background", RES_TYPE_STRING
);
4809 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4810 "pointerColor", "Foreground", RES_TYPE_STRING
);
4811 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4812 "cursorColor", "Foreground", RES_TYPE_STRING
);
4813 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4814 "borderColor", "BorderColor", RES_TYPE_STRING
);
4816 /* Init faces before x_default_parameter is called for scroll-bar
4817 parameters because that function calls x_set_scroll_bar_width,
4818 which calls change_frame_size, which calls Fset_window_buffer,
4819 which runs hooks, which call Fvertical_motion. At the end, we
4820 end up in init_iterator with a null face cache, which should not
4822 init_frame_faces (f
);
4824 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4826 window_prompting
= x_figure_window_size (f
, parms
, 0);
4829 XSetWindowAttributes attrs
;
4831 Atom type
= FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
4834 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4835 if (DoesSaveUnders (dpyinfo
->screen
))
4836 mask
|= CWSaveUnder
;
4838 /* Window managers look at the override-redirect flag to determine
4839 whether or net to give windows a decoration (Xlib spec, chapter
4841 attrs
.override_redirect
= True
;
4842 attrs
.save_under
= True
;
4843 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4844 /* Arrange for getting MapNotify and UnmapNotify events. */
4845 attrs
.event_mask
= StructureNotifyMask
;
4847 = FRAME_X_WINDOW (f
)
4848 = XCreateWindow (FRAME_X_DISPLAY (f
),
4849 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4850 /* x, y, width, height */
4854 CopyFromParent
, InputOutput
, CopyFromParent
,
4856 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
4857 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type
,
4858 XA_ATOM
, 32, PropModeReplace
,
4859 (unsigned char *)&type
, 1);
4865 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4866 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4867 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4868 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4869 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4870 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4872 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4873 Change will not be effected unless different from the current
4875 width
= FRAME_COLS (f
);
4876 height
= FRAME_LINES (f
);
4877 SET_FRAME_COLS (f
, 0);
4878 FRAME_LINES (f
) = 0;
4879 change_frame_size (f
, height
, width
, 1, 0, 0);
4881 /* Add `tooltip' frame parameter's default value. */
4882 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
4883 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qtooltip
, Qt
), Qnil
));
4885 /* FIXME - can this be done in a similar way to normal frames?
4886 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
4888 /* Set the `display-type' frame parameter before setting up faces. */
4890 Lisp_Object disptype
;
4892 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4893 disptype
= intern ("mono");
4894 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
4895 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4896 disptype
= intern ("grayscale");
4898 disptype
= intern ("color");
4900 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4901 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4905 /* Set up faces after all frame parameters are known. This call
4906 also merges in face attributes specified for new frames.
4908 Frame parameters may be changed if .Xdefaults contains
4909 specifications for the default font. For example, if there is an
4910 `Emacs.default.attributeBackground: pink', the `background-color'
4911 attribute of the frame get's set, which let's the internal border
4912 of the tooltip frame appear in pink. Prevent this. */
4914 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4916 /* Set tip_frame here, so that */
4918 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
4920 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4921 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4929 /* It is now ok to make the frame official even if we get an error
4930 below. And the frame needs to be on Vframe_list or making it
4931 visible won't work. */
4932 Vframe_list
= Fcons (frame
, Vframe_list
);
4934 /* Now that the frame is official, it counts as a reference to
4936 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4938 /* Setting attributes of faces of the tooltip frame from resources
4939 and similar will increment face_change_count, which leads to the
4940 clearing of all current matrices. Since this isn't necessary
4941 here, avoid it by resetting face_change_count to the value it
4942 had before we created the tip frame. */
4943 face_change_count
= face_change_count_before
;
4945 /* Discard the unwind_protect. */
4946 return unbind_to (count
, frame
);
4950 /* Compute where to display tip frame F. PARMS is the list of frame
4951 parameters for F. DX and DY are specified offsets from the current
4952 location of the mouse. WIDTH and HEIGHT are the width and height
4953 of the tooltip. Return coordinates relative to the root window of
4954 the display in *ROOT_X, and *ROOT_Y. */
4957 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
)
4959 Lisp_Object left
, top
;
4964 /* User-specified position? */
4965 left
= Fcdr (Fassq (Qleft
, parms
));
4966 top
= Fcdr (Fassq (Qtop
, parms
));
4968 /* Move the tooltip window where the mouse pointer is. Resize and
4970 if (!INTEGERP (left
) || !INTEGERP (top
))
4973 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4974 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4979 *root_y
= XINT (top
);
4980 else if (*root_y
+ XINT (dy
) <= 0)
4981 *root_y
= 0; /* Can happen for negative dy */
4982 else if (*root_y
+ XINT (dy
) + height
4983 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
4984 /* It fits below the pointer */
4985 *root_y
+= XINT (dy
);
4986 else if (height
+ XINT (dy
) <= *root_y
)
4987 /* It fits above the pointer. */
4988 *root_y
-= height
+ XINT (dy
);
4990 /* Put it on the top. */
4993 if (INTEGERP (left
))
4994 *root_x
= XINT (left
);
4995 else if (*root_x
+ XINT (dx
) <= 0)
4996 *root_x
= 0; /* Can happen for negative dx */
4997 else if (*root_x
+ XINT (dx
) + width
4998 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
4999 /* It fits to the right of the pointer. */
5000 *root_x
+= XINT (dx
);
5001 else if (width
+ XINT (dx
) <= *root_x
)
5002 /* It fits to the left of the pointer. */
5003 *root_x
-= width
+ XINT (dx
);
5005 /* Put it left-justified on the screen--it ought to fit that way. */
5010 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5011 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5012 A tooltip window is a small X window displaying a string.
5014 This is an internal function; Lisp code should call `tooltip-show'.
5016 FRAME nil or omitted means use the selected frame.
5018 PARMS is an optional list of frame parameters which can be used to
5019 change the tooltip's appearance.
5021 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5022 means use the default timeout of 5 seconds.
5024 If the list of frame parameters PARAMS contains a `left' parameters,
5025 the tooltip is displayed at that x-position. Otherwise it is
5026 displayed at the mouse position, with offset DX added (default is 5 if
5027 DX isn't specified). Likewise for the y-position; if a `top' frame
5028 parameter is specified, it determines the y-position of the tooltip
5029 window, otherwise it is displayed at the mouse position, with offset
5030 DY added (default is -10).
5032 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5033 Text larger than the specified size is clipped. */)
5034 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
5039 struct buffer
*old_buffer
;
5040 struct text_pos pos
;
5041 int i
, width
, height
, seen_reversed_p
;
5042 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5043 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5044 int count
= SPECPDL_INDEX ();
5046 specbind (Qinhibit_redisplay
, Qt
);
5048 GCPRO4 (string
, parms
, frame
, timeout
);
5050 CHECK_STRING (string
);
5051 if (SCHARS (string
) == 0)
5052 string
= make_unibyte_string (" ", 1);
5054 f
= check_x_frame (frame
);
5056 timeout
= make_number (5);
5058 CHECK_NATNUM (timeout
);
5061 dx
= make_number (5);
5066 dy
= make_number (-10);
5071 if (x_gtk_use_system_tooltips
)
5075 /* Hide a previous tip, if any. */
5079 if ((ok
= xg_prepare_tooltip (f
, string
, &width
, &height
)) != 0)
5081 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5082 xg_show_tooltip (f
, root_x
, root_y
);
5083 /* This is used in Fx_hide_tip. */
5084 XSETFRAME (tip_frame
, f
);
5087 if (ok
) goto start_timer
;
5089 #endif /* USE_GTK */
5091 if (NILP (last_show_tip_args
))
5092 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5094 if (!NILP (tip_frame
))
5096 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5097 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5098 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5100 if (EQ (frame
, last_frame
)
5101 && !NILP (Fequal (last_string
, string
))
5102 && !NILP (Fequal (last_parms
, parms
)))
5104 struct frame
*f
= XFRAME (tip_frame
);
5106 /* Only DX and DY have changed. */
5107 if (!NILP (tip_timer
))
5109 Lisp_Object timer
= tip_timer
;
5111 call1 (Qcancel_timer
, timer
);
5115 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5116 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5117 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5124 /* Hide a previous tip, if any. */
5127 ASET (last_show_tip_args
, 0, string
);
5128 ASET (last_show_tip_args
, 1, frame
);
5129 ASET (last_show_tip_args
, 2, parms
);
5131 /* Add default values to frame parameters. */
5132 if (NILP (Fassq (Qname
, parms
)))
5133 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5134 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5135 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5136 if (NILP (Fassq (Qborder_width
, parms
)))
5137 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5138 if (NILP (Fassq (Qborder_color
, parms
)))
5139 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5140 if (NILP (Fassq (Qbackground_color
, parms
)))
5141 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5144 /* Create a frame for the tooltip, and record it in the global
5145 variable tip_frame. */
5146 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5149 /* Set up the frame's root window. */
5150 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5151 w
->left_col
= w
->top_line
= make_number (0);
5153 if (CONSP (Vx_max_tooltip_size
)
5154 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5155 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5156 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5157 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5159 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5160 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5164 w
->total_cols
= make_number (80);
5165 w
->total_lines
= make_number (40);
5168 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5170 w
->pseudo_window_p
= 1;
5172 /* Display the tooltip text in a temporary buffer. */
5173 old_buffer
= current_buffer
;
5174 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5175 current_buffer
->truncate_lines
= Qnil
;
5176 clear_glyph_matrix (w
->desired_matrix
);
5177 clear_glyph_matrix (w
->current_matrix
);
5178 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5179 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5181 /* Compute width and height of the tooltip. */
5182 width
= height
= seen_reversed_p
= 0;
5183 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5185 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5189 /* Stop at the first empty row at the end. */
5190 if (!row
->enabled_p
|| !row
->displays_text_p
)
5193 /* Let the row go over the full width of the frame. */
5194 row
->full_width_p
= 1;
5196 row_width
= row
->pixel_width
;
5197 if (row
->used
[TEXT_AREA
])
5199 /* There's a glyph at the end of rows that is used to place
5200 the cursor there. Don't include the width of this glyph. */
5201 if (!row
->reversed_p
)
5203 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5204 if (INTEGERP (last
->object
))
5205 row_width
-= last
->pixel_width
;
5209 /* There could be a stretch glyph at the beginning of R2L
5210 rows that is produced by extend_face_to_end_of_line.
5211 Don't count that glyph. */
5212 struct glyph
*g
= row
->glyphs
[TEXT_AREA
];
5214 if (g
->type
== STRETCH_GLYPH
&& INTEGERP (g
->object
))
5216 row_width
-= g
->pixel_width
;
5217 seen_reversed_p
= 1;
5222 height
+= row
->height
;
5223 width
= max (width
, row_width
);
5226 /* If we've seen partial-length R2L rows, we need to re-adjust the
5227 tool-tip frame width and redisplay it again, to avoid over-wide
5228 tips due to the stretch glyph that extends R2L lines to full
5229 width of the frame. */
5230 if (seen_reversed_p
)
5232 /* w->total_cols and FRAME_TOTAL_COLS want the width in columns,
5234 width
/= WINDOW_FRAME_COLUMN_WIDTH (w
);
5235 w
->total_cols
= make_number (width
);
5236 FRAME_TOTAL_COLS (f
) = width
;
5238 clear_glyph_matrix (w
->desired_matrix
);
5239 clear_glyph_matrix (w
->current_matrix
);
5240 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5242 /* Recompute width and height of the tooltip. */
5243 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5245 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5249 if (!row
->enabled_p
|| !row
->displays_text_p
)
5251 row
->full_width_p
= 1;
5252 row_width
= row
->pixel_width
;
5253 if (row
->used
[TEXT_AREA
] && !row
->reversed_p
)
5255 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5256 if (INTEGERP (last
->object
))
5257 row_width
-= last
->pixel_width
;
5260 height
+= row
->height
;
5261 width
= max (width
, row_width
);
5265 /* Add the frame's internal border to the width and height the X
5266 window should have. */
5267 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5268 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5270 /* Move the tooltip window where the mouse pointer is. Resize and
5272 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5275 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5276 root_x
, root_y
, width
, height
);
5277 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5280 /* Draw into the window. */
5281 w
->must_be_updated_p
= 1;
5282 update_single_window (w
, 1);
5284 /* Restore original current buffer. */
5285 set_buffer_internal_1 (old_buffer
);
5286 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5289 /* Let the tip disappear after timeout seconds. */
5290 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5291 intern ("x-hide-tip"));
5294 return unbind_to (count
, Qnil
);
5298 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5299 doc
: /* Hide the current tooltip window, if there is any.
5300 Value is t if tooltip was open, nil otherwise. */)
5304 Lisp_Object deleted
, frame
, timer
;
5305 struct gcpro gcpro1
, gcpro2
;
5308 /* Return quickly if nothing to do. */
5309 if (NILP (tip_timer
) && NILP (tip_frame
))
5314 GCPRO2 (frame
, timer
);
5315 tip_frame
= tip_timer
= deleted
= Qnil
;
5317 count
= SPECPDL_INDEX ();
5318 specbind (Qinhibit_redisplay
, Qt
);
5319 specbind (Qinhibit_quit
, Qt
);
5322 call1 (Qcancel_timer
, timer
);
5325 /* When using system tooltip, tip_frame is the Emacs frame on which
5326 the tip is shown. */
5328 if (FRAME_LIVE_P (f
) && xg_hide_tooltip (f
))
5334 delete_frame (frame
, Qnil
);
5338 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5339 redisplay procedure is not called when a tip frame over menu
5340 items is unmapped. Redisplay the menu manually... */
5343 f
= SELECTED_FRAME ();
5344 w
= f
->output_data
.x
->menubar_widget
;
5346 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5350 xlwmenu_redisplay (w
);
5354 #endif /* USE_LUCID */
5358 return unbind_to (count
, deleted
);
5363 /***********************************************************************
5364 File selection dialog
5365 ***********************************************************************/
5367 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5368 Sx_uses_old_gtk_dialog
,
5370 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5377 && xg_uses_old_file_dialog ())
5385 /* Callback for "OK" and "Cancel" on file selection dialog. */
5388 file_dialog_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5390 int *result
= (int *) client_data
;
5391 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5392 *result
= cb
->reason
;
5396 /* Callback for unmapping a file selection dialog. This is used to
5397 capture the case where a dialog is closed via a window manager's
5398 closer button, for example. Using a XmNdestroyCallback didn't work
5402 file_dialog_unmap_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5404 int *result
= (int *) client_data
;
5405 *result
= XmCR_CANCEL
;
5409 clean_up_file_dialog (Lisp_Object arg
)
5411 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5412 Widget dialog
= (Widget
) p
->pointer
;
5416 XtUnmanageChild (dialog
);
5417 XtDestroyWidget (dialog
);
5418 x_menu_set_in_use (0);
5425 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5426 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5427 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5428 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5429 or directory must exist.
5431 This function is only defined on MS Windows, and X Windows with the
5432 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5433 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5434 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5437 struct frame
*f
= SELECTED_FRAME ();
5438 Lisp_Object file
= Qnil
;
5439 Lisp_Object decoded_file
;
5440 Widget dialog
, text
, help
;
5443 XmString dir_xmstring
, pattern_xmstring
;
5444 int count
= SPECPDL_INDEX ();
5445 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5449 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5451 if (popup_activated ())
5452 error ("Trying to use a menu from within a menu-entry");
5454 CHECK_STRING (prompt
);
5457 /* Prevent redisplay. */
5458 specbind (Qinhibit_redisplay
, Qt
);
5462 /* Create the dialog with PROMPT as title, using DIR as initial
5463 directory and using "*" as pattern. */
5464 dir
= Fexpand_file_name (dir
, Qnil
);
5465 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5466 pattern_xmstring
= XmStringCreateLocalized ("*");
5468 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5469 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5470 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5471 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5472 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5473 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5475 XmStringFree (dir_xmstring
);
5476 XmStringFree (pattern_xmstring
);
5478 /* Add callbacks for OK and Cancel. */
5479 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5480 (XtPointer
) &result
);
5481 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5482 (XtPointer
) &result
);
5483 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5484 (XtPointer
) &result
);
5486 /* Remove the help button since we can't display help. */
5487 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5488 XtUnmanageChild (help
);
5490 /* Mark OK button as default. */
5491 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5492 XmNshowAsDefault
, True
, NULL
);
5494 /* If MUSTMATCH is non-nil, disable the file entry field of the
5495 dialog, so that the user must select a file from the files list
5496 box. We can't remove it because we wouldn't have a way to get at
5497 the result file name, then. */
5498 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5499 if (!NILP (mustmatch
))
5502 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5503 XtSetSensitive (text
, False
);
5504 XtSetSensitive (label
, False
);
5507 /* Manage the dialog, so that list boxes get filled. */
5508 XtManageChild (dialog
);
5510 if (STRINGP (default_filename
))
5512 XmString default_xmstring
;
5513 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5514 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5516 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5517 XmTextFieldReplace (wtext
, 0, last_pos
,
5518 (SDATA (Ffile_name_nondirectory (default_filename
))));
5520 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5521 must include the path for this to work. */
5523 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5525 if (XmListItemExists (list
, default_xmstring
))
5527 int item_pos
= XmListItemPos (list
, default_xmstring
);
5528 /* Select the item and scroll it into view. */
5529 XmListSelectPos (list
, item_pos
, True
);
5530 XmListSetPos (list
, item_pos
);
5533 XmStringFree (default_xmstring
);
5536 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5538 /* Process events until the user presses Cancel or OK. */
5539 x_menu_set_in_use (1);
5544 x_menu_wait_for_event (0);
5545 XtAppNextEvent (Xt_app_con
, &event
);
5546 if (event
.type
== KeyPress
5547 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5549 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5551 /* Pop down on C-g. */
5552 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5553 XtUnmanageChild (dialog
);
5556 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5559 /* Get the result. */
5560 if (result
== XmCR_OK
)
5565 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5566 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5567 XmStringFree (text
);
5568 file
= build_string (data
);
5577 /* Make "Cancel" equivalent to C-g. */
5579 Fsignal (Qquit
, Qnil
);
5581 decoded_file
= DECODE_FILE (file
);
5583 return unbind_to (count
, decoded_file
);
5586 #endif /* USE_MOTIF */
5591 clean_up_dialog (Lisp_Object arg
)
5593 x_menu_set_in_use (0);
5598 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5599 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5600 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5601 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5602 or directory must exist.
5604 This function is only defined on MS Windows, and X Windows with the
5605 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5606 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5607 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5609 FRAME_PTR f
= SELECTED_FRAME ();
5611 Lisp_Object file
= Qnil
;
5612 Lisp_Object decoded_file
;
5613 int count
= SPECPDL_INDEX ();
5614 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5619 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5621 if (popup_activated ())
5622 error ("Trying to use a menu from within a menu-entry");
5624 CHECK_STRING (prompt
);
5627 /* Prevent redisplay. */
5628 specbind (Qinhibit_redisplay
, Qt
);
5629 record_unwind_protect (clean_up_dialog
, Qnil
);
5633 if (STRINGP (default_filename
))
5634 cdef_file
= SDATA (default_filename
);
5636 cdef_file
= SDATA (dir
);
5638 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5640 ! NILP (only_dir_p
));
5644 file
= build_string (fn
);
5651 /* Make "Cancel" equivalent to C-g. */
5653 Fsignal (Qquit
, Qnil
);
5655 decoded_file
= DECODE_FILE (file
);
5657 return unbind_to (count
, decoded_file
);
5661 #ifdef HAVE_FREETYPE
5663 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5664 doc
: /* Read a font name using a GTK font selection dialog.
5665 Return a GTK-style font string corresponding to the selection.
5667 If FRAME is omitted or nil, it defaults to the selected frame. */)
5668 (Lisp_Object frame
, Lisp_Object ignored
)
5670 FRAME_PTR f
= check_x_frame (frame
);
5673 Lisp_Object font_param
;
5674 char *default_name
= NULL
;
5675 struct gcpro gcpro1
, gcpro2
;
5676 int count
= SPECPDL_INDEX ();
5680 if (popup_activated ())
5681 error ("Trying to use a menu from within a menu-entry");
5683 /* Prevent redisplay. */
5684 specbind (Qinhibit_redisplay
, Qt
);
5685 record_unwind_protect (clean_up_dialog
, Qnil
);
5689 GCPRO2(font_param
, font
);
5691 XSETFONT (font
, FRAME_FONT (f
));
5692 font_param
= Ffont_get (font
, intern (":name"));
5693 if (STRINGP (font_param
))
5694 default_name
= xstrdup (SDATA (font_param
));
5697 font_param
= Fframe_parameter (frame
, Qfont_param
);
5698 if (STRINGP (font_param
))
5699 default_name
= xstrdup (SDATA (font_param
));
5702 if (default_name
== NULL
&& x_last_font_name
!= NULL
)
5703 default_name
= xstrdup (x_last_font_name
);
5705 /* Convert fontconfig names to Gtk names, i.e. remove - before number */
5708 char *p
= strrchr (default_name
, '-');
5712 while (isdigit (*ep
))
5714 if (*ep
== '\0') *p
= ' ';
5718 name
= xg_get_font_name (f
, default_name
);
5719 xfree (default_name
);
5723 font
= build_string (name
);
5724 g_free (x_last_font_name
);
5725 x_last_font_name
= name
;
5731 Fsignal (Qquit
, Qnil
);
5733 return unbind_to (count
, font
);
5735 #endif /* HAVE_FREETYPE */
5737 #endif /* USE_GTK */
5740 /***********************************************************************
5742 ***********************************************************************/
5744 #ifdef HAVE_XKBGETKEYBOARD
5745 #include <X11/XKBlib.h>
5746 #include <X11/keysym.h>
5749 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5750 Sx_backspace_delete_keys_p
, 0, 1, 0,
5751 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5752 FRAME nil means use the selected frame.
5753 Value is t if we know that both keys are present, and are mapped to the
5754 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5755 present and mapped to the usual X keysyms. */)
5758 #ifdef HAVE_XKBGETKEYBOARD
5760 struct frame
*f
= check_x_frame (frame
);
5761 Display
*dpy
= FRAME_X_DISPLAY (f
);
5762 Lisp_Object have_keys
;
5763 int major
, minor
, op
, event
, error
;
5767 /* Check library version in case we're dynamically linked. */
5768 major
= XkbMajorVersion
;
5769 minor
= XkbMinorVersion
;
5770 if (!XkbLibraryVersion (&major
, &minor
))
5776 /* Check that the server supports XKB. */
5777 major
= XkbMajorVersion
;
5778 minor
= XkbMinorVersion
;
5779 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5785 /* In this code we check that the keyboard has physical keys with names
5786 that start with BKSP (Backspace) and DELE (Delete), and that they
5787 generate keysym XK_BackSpace and XK_Delete respectively.
5788 This function is used to test if normal-erase-is-backspace should be
5790 An alternative approach would be to just check if XK_BackSpace and
5791 XK_Delete are mapped to any key. But if any of those are mapped to
5792 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5793 user doesn't know about it, it is better to return false here.
5794 It is more obvious to the user what to do if she/he has two keys
5795 clearly marked with names/symbols and one key does something not
5796 expected (i.e. she/he then tries the other).
5797 The cases where Backspace/Delete is mapped to some other key combination
5798 are rare, and in those cases, normal-erase-is-backspace can be turned on
5802 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5805 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5807 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5809 for (i
= kb
->min_key_code
;
5810 (i
< kb
->max_key_code
5811 && (delete_keycode
== 0 || backspace_keycode
== 0));
5814 /* The XKB symbolic key names can be seen most easily in
5815 the PS file generated by `xkbprint -label name
5817 if (memcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5819 else if (memcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5820 backspace_keycode
= i
;
5823 XkbFreeNames (kb
, 0, True
);
5826 XkbFreeClientMap (kb
, 0, True
);
5829 && backspace_keycode
5830 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5831 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5836 #else /* not HAVE_XKBGETKEYBOARD */
5838 #endif /* not HAVE_XKBGETKEYBOARD */
5843 /***********************************************************************
5845 ***********************************************************************/
5847 /* Keep this list in the same order as frame_parms in frame.c.
5848 Use 0 for unsupported frame parameters. */
5850 frame_parm_handler x_frame_parm_handlers
[] =
5854 x_set_background_color
,
5860 x_set_foreground_color
,
5863 x_set_internal_border_width
,
5864 x_set_menu_bar_lines
,
5866 x_explicitly_set_name
,
5867 x_set_scroll_bar_width
,
5870 x_set_vertical_scroll_bars
,
5872 x_set_tool_bar_lines
,
5873 x_set_scroll_bar_foreground
,
5874 x_set_scroll_bar_background
,
5884 x_set_tool_bar_position
,
5890 /* This is zero if not using X windows. */
5893 /* The section below is built by the lisp expression at the top of the file,
5894 just above where these variables are declared. */
5895 /*&&& init symbols here &&&*/
5896 Qnone
= intern_c_string ("none");
5898 Qsuppress_icon
= intern_c_string ("suppress-icon");
5899 staticpro (&Qsuppress_icon
);
5900 Qundefined_color
= intern_c_string ("undefined-color");
5901 staticpro (&Qundefined_color
);
5902 Qcompound_text
= intern_c_string ("compound-text");
5903 staticpro (&Qcompound_text
);
5904 Qcancel_timer
= intern_c_string ("cancel-timer");
5905 staticpro (&Qcancel_timer
);
5906 Qfont_param
= intern_c_string ("font-parameter");
5907 staticpro (&Qfont_param
);
5908 /* This is the end of symbol initialization. */
5910 /* Text property `display' should be nonsticky by default. */
5911 Vtext_property_default_nonsticky
5912 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5915 Fput (Qundefined_color
, Qerror_conditions
,
5916 pure_cons (Qundefined_color
, pure_cons (Qerror
, Qnil
)));
5917 Fput (Qundefined_color
, Qerror_message
,
5918 make_pure_c_string ("Undefined color"));
5920 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5921 doc
: /* The shape of the pointer when over text.
5922 Changing the value does not affect existing frames
5923 unless you set the mouse color. */);
5924 Vx_pointer_shape
= Qnil
;
5926 #if 0 /* This doesn't really do anything. */
5927 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5928 doc
: /* The shape of the pointer when not over text.
5929 This variable takes effect when you create a new frame
5930 or when you set the mouse color. */);
5932 Vx_nontext_pointer_shape
= Qnil
;
5934 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5935 doc
: /* The shape of the pointer when Emacs is busy.
5936 This variable takes effect when you create a new frame
5937 or when you set the mouse color. */);
5938 Vx_hourglass_pointer_shape
= Qnil
;
5940 #if 0 /* This doesn't really do anything. */
5941 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5942 doc
: /* The shape of the pointer when over the mode line.
5943 This variable takes effect when you create a new frame
5944 or when you set the mouse color. */);
5946 Vx_mode_pointer_shape
= Qnil
;
5948 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5949 &Vx_sensitive_text_pointer_shape
,
5950 doc
: /* The shape of the pointer when over mouse-sensitive text.
5951 This variable takes effect when you create a new frame
5952 or when you set the mouse color. */);
5953 Vx_sensitive_text_pointer_shape
= Qnil
;
5955 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5956 &Vx_window_horizontal_drag_shape
,
5957 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5958 This variable takes effect when you create a new frame
5959 or when you set the mouse color. */);
5960 Vx_window_horizontal_drag_shape
= Qnil
;
5962 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5963 doc
: /* A string indicating the foreground color of the cursor box. */);
5964 Vx_cursor_fore_pixel
= Qnil
;
5966 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5967 doc
: /* Maximum size for tooltips.
5968 Value is a pair (COLUMNS . ROWS). Text larger than this is clipped. */);
5969 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5971 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5972 doc
: /* Non-nil if no X window manager is in use.
5973 Emacs doesn't try to figure this out; this is always nil
5974 unless you set it to something else. */);
5975 /* We don't have any way to find this out, so set it to nil
5976 and maybe the user would like to set it to t. */
5977 Vx_no_window_manager
= Qnil
;
5979 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5980 &Vx_pixel_size_width_font_regexp
,
5981 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5983 Since Emacs gets width of a font matching with this regexp from
5984 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5985 such a font. This is especially effective for such large fonts as
5986 Chinese, Japanese, and Korean. */);
5987 Vx_pixel_size_width_font_regexp
= Qnil
;
5989 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5990 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", &x_gtk_use_old_file_dialog
,
5991 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5992 If nil or if the file selection dialog is not available, the new GTK file
5993 chooser is used instead. To turn off all file dialogs set the
5994 variable `use-file-dialog'. */);
5995 x_gtk_use_old_file_dialog
= 0;
5997 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5998 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5999 Note that this is just the default, there is a toggle button on the file
6000 chooser to show or not show hidden files on a case by case basis. */);
6001 x_gtk_show_hidden_files
= 0;
6003 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", &x_gtk_file_dialog_help_text
,
6004 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
6005 If more space for files in the file chooser dialog is wanted, set this to nil
6006 to turn the additional text off. */);
6007 x_gtk_file_dialog_help_text
= 1;
6009 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
6010 doc
: /* *If non-nil, a detached tool bar is shown in full.
6011 The default is to just show an arrow and pressing on that arrow shows
6012 the tool bar buttons. */);
6013 x_gtk_whole_detached_tool_bar
= 0;
6015 DEFVAR_BOOL ("x-gtk-use-system-tooltips", &x_gtk_use_system_tooltips
,
6016 doc
: /* *If non-nil with a Gtk+ built Emacs, the Gtk+ toolip is used.
6017 Otherwise use Emacs own tooltip implementation.
6018 When using Gtk+ tooltips, the tooltip face is not used. */);
6019 x_gtk_use_system_tooltips
= 1;
6021 Fprovide (intern_c_string ("x"), Qnil
);
6023 #ifdef USE_X_TOOLKIT
6024 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6026 Fprovide (intern_c_string ("motif"), Qnil
);
6028 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
6029 doc
: /* Version info for LessTif/Motif. */);
6030 Vmotif_version_string
= build_string (XmVERSION_STRING
);
6031 #endif /* USE_MOTIF */
6032 #endif /* USE_X_TOOLKIT */
6035 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
6036 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
6037 But for a user it is a toolkit for X, and indeed, configure
6038 accepts --with-x-toolkit=gtk. */
6039 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
6040 Fprovide (intern_c_string ("gtk"), Qnil
);
6041 Fprovide (intern_c_string ("move-toolbar"), Qnil
);
6043 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
6044 doc
: /* Version info for GTK+. */);
6046 char gtk_version
[40];
6047 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
6048 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
6049 Vgtk_version_string
= make_pure_string (gtk_version
, strlen (gtk_version
), strlen (gtk_version
), 0);
6051 #endif /* USE_GTK */
6053 /* X window properties. */
6054 defsubr (&Sx_change_window_property
);
6055 defsubr (&Sx_delete_window_property
);
6056 defsubr (&Sx_window_property
);
6058 defsubr (&Sxw_display_color_p
);
6059 defsubr (&Sx_display_grayscale_p
);
6060 defsubr (&Sxw_color_defined_p
);
6061 defsubr (&Sxw_color_values
);
6062 defsubr (&Sx_server_max_request_size
);
6063 defsubr (&Sx_server_vendor
);
6064 defsubr (&Sx_server_version
);
6065 defsubr (&Sx_display_pixel_width
);
6066 defsubr (&Sx_display_pixel_height
);
6067 defsubr (&Sx_display_mm_width
);
6068 defsubr (&Sx_display_mm_height
);
6069 defsubr (&Sx_display_screens
);
6070 defsubr (&Sx_display_planes
);
6071 defsubr (&Sx_display_color_cells
);
6072 defsubr (&Sx_display_visual_class
);
6073 defsubr (&Sx_display_backing_store
);
6074 defsubr (&Sx_display_save_under
);
6075 defsubr (&Sx_wm_set_size_hint
);
6076 defsubr (&Sx_create_frame
);
6077 defsubr (&Sx_open_connection
);
6078 defsubr (&Sx_close_connection
);
6079 defsubr (&Sx_display_list
);
6080 defsubr (&Sx_synchronize
);
6081 defsubr (&Sx_focus_frame
);
6082 defsubr (&Sx_backspace_delete_keys_p
);
6084 /* Setting callback functions for fontset handler. */
6085 check_window_system_func
= check_x
;
6087 defsubr (&Sx_show_tip
);
6088 defsubr (&Sx_hide_tip
);
6090 staticpro (&tip_timer
);
6092 staticpro (&tip_frame
);
6094 last_show_tip_args
= Qnil
;
6095 staticpro (&last_show_tip_args
);
6097 defsubr (&Sx_uses_old_gtk_dialog
);
6098 #if defined (USE_MOTIF) || defined (USE_GTK)
6099 defsubr (&Sx_file_dialog
);
6102 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
6103 defsubr (&Sx_select_font
);
6104 x_last_font_name
= NULL
;
6108 #endif /* HAVE_X_WINDOWS */