1 /* Functions for the X window system.
2 Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
3 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
4 Free Software Foundation, Inc.
6 This file is part of GNU Emacs.
8 GNU Emacs is free software: you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation, either version 3 of the License, or
11 (at your option) any later version.
13 GNU Emacs is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
31 /* This makes the fields of a Display accessible, in Xlib header files. */
33 #define XLIB_ILLEGAL_ACCESS
40 #include "intervals.h"
41 #include "dispextern.h"
43 #include "blockinput.h"
45 #include "character.h"
50 #include "termhooks.h"
58 #include <sys/types.h>
61 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
62 #include "bitmaps/gray.xbm"
64 #include <X11/bitmaps/gray>
67 #include "xsettings.h"
74 #include <X11/Shell.h>
78 #include <X11/Xaw3d/Paned.h>
79 #include <X11/Xaw3d/Label.h>
80 #else /* !HAVE_XAW3D */
81 #include <X11/Xaw/Paned.h>
82 #include <X11/Xaw/Label.h>
83 #endif /* HAVE_XAW3D */
84 #endif /* USE_MOTIF */
87 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
96 #include "../lwlib/lwlib.h"
100 #include <Xm/DialogS.h>
101 #include <Xm/FileSB.h>
104 #if !defined(NO_EDITRES)
106 extern void _XEditResCheckMessages ();
107 #endif /* not defined NO_EDITRES */
109 /* Unique id counter for widgets created by the Lucid Widget Library. */
111 extern LWLIB_ID widget_id_tick
;
113 extern void free_frame_menubar ();
114 extern double atof ();
118 /* LessTif/Motif version info. */
120 static Lisp_Object Vmotif_version_string
;
122 #endif /* USE_MOTIF */
124 #endif /* USE_X_TOOLKIT */
128 /* GTK+ version info */
130 static Lisp_Object Vgtk_version_string
;
134 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
136 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
137 it, and including `bitmaps/gray' more than once is a problem when
138 config.h defines `static' as an empty replacement string. */
140 int gray_bitmap_width
= gray_width
;
141 int gray_bitmap_height
= gray_height
;
142 char *gray_bitmap_bits
= gray_bits
;
144 /* Non-zero means prompt with the old GTK file selection dialog. */
146 int x_gtk_use_old_file_dialog
;
148 /* If non-zero, by default show hidden files in the GTK file chooser. */
150 int x_gtk_show_hidden_files
;
152 /* If non-zero, don't show additional help text in the GTK file chooser. */
154 int x_gtk_file_dialog_help_text
;
156 /* If non-zero, don't collapse to tool bar when it is detached. */
158 int x_gtk_whole_detached_tool_bar
;
160 /* The background and shape of the mouse pointer, and shape when not
161 over text or in the modeline. */
163 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
164 Lisp_Object Vx_hourglass_pointer_shape
;
166 /* The shape when over mouse-sensitive text. */
168 Lisp_Object Vx_sensitive_text_pointer_shape
;
170 /* If non-nil, the pointer shape to indicate that windows can be
171 dragged horizontally. */
173 Lisp_Object Vx_window_horizontal_drag_shape
;
175 /* Color of chars displayed in cursor box. */
177 Lisp_Object Vx_cursor_fore_pixel
;
179 /* Nonzero if using X. */
183 /* Non nil if no window manager is in use. */
185 Lisp_Object Vx_no_window_manager
;
187 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
189 Lisp_Object Vx_pixel_size_width_font_regexp
;
192 Lisp_Object Qsuppress_icon
;
193 Lisp_Object Qundefined_color
;
194 Lisp_Object Qcompound_text
, Qcancel_timer
;
195 Lisp_Object Qfont_param
;
199 extern Lisp_Object Vwindow_system_version
;
203 extern Lisp_Object Vsystem_name
;
205 /* The below are defined in frame.c. */
207 extern Lisp_Object Vmenu_bar_mode
, Vtool_bar_mode
;
210 int image_cache_refcount
, dpyinfo_refcount
;
213 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
214 char *x_last_font_name
;
218 /* Error if we are not connected to X. */
224 error ("X windows are not in use or not initialized");
227 /* Nonzero if we can use mouse menus.
228 You should not call this unless HAVE_MENUS is defined. */
236 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
237 and checking validity for X. */
240 check_x_frame (Lisp_Object frame
)
245 frame
= selected_frame
;
246 CHECK_LIVE_FRAME (frame
);
249 error ("Non-X frame used");
253 /* Let the user specify an X display with a Lisp object.
254 OBJECT may be nil, a frame or a terminal object.
255 nil stands for the selected frame--or, if that is not an X frame,
256 the first X display on the list. */
258 struct x_display_info
*
259 check_x_display_info (Lisp_Object object
)
261 struct x_display_info
*dpyinfo
= NULL
;
265 struct frame
*sf
= XFRAME (selected_frame
);
267 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
268 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
269 else if (x_display_list
!= 0)
270 dpyinfo
= x_display_list
;
272 error ("X windows are not in use or not initialized");
274 else if (TERMINALP (object
))
276 struct terminal
*t
= get_terminal (object
, 1);
278 if (t
->type
!= output_x_window
)
279 error ("Terminal %d is not an X display", XINT (object
));
281 dpyinfo
= t
->display_info
.x
;
283 else if (STRINGP (object
))
284 dpyinfo
= x_display_info_for_name (object
);
287 FRAME_PTR f
= check_x_frame (object
);
288 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
295 /* Return the Emacs frame-object corresponding to an X window.
296 It could be the frame's main window or an icon window. */
298 /* This function can be called during GC, so use GC_xxx type test macros. */
301 x_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
303 Lisp_Object tail
, frame
;
306 if (wdesc
== None
) return 0;
308 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
314 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
316 if (f
->output_data
.x
->hourglass_window
== wdesc
)
319 if ((f
->output_data
.x
->edit_widget
320 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
321 /* A tooltip frame? */
322 || (!f
->output_data
.x
->edit_widget
323 && FRAME_X_WINDOW (f
) == wdesc
)
324 || f
->output_data
.x
->icon_desc
== wdesc
)
326 #else /* not USE_X_TOOLKIT */
328 if (f
->output_data
.x
->edit_widget
)
330 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
331 struct x_output
*x
= f
->output_data
.x
;
332 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
336 if (FRAME_X_WINDOW (f
) == wdesc
337 || f
->output_data
.x
->icon_desc
== wdesc
)
339 #endif /* not USE_X_TOOLKIT */
344 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
345 /* Like x_window_to_frame but also compares the window with the widget's
349 x_any_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
351 Lisp_Object tail
, frame
;
352 struct frame
*f
, *found
;
355 if (wdesc
== None
) return NULL
;
358 for (tail
= Vframe_list
; CONSP (tail
) && !found
; tail
= XCDR (tail
))
365 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
367 /* This frame matches if the window is any of its widgets. */
368 x
= f
->output_data
.x
;
369 if (x
->hourglass_window
== wdesc
)
374 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
376 && gtk_widget_get_toplevel (gwdesc
) == x
->widget
)
379 if (wdesc
== XtWindow (x
->widget
)
380 || wdesc
== XtWindow (x
->column_widget
)
381 || wdesc
== XtWindow (x
->edit_widget
))
383 /* Match if the window is this frame's menubar. */
384 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
388 else if (FRAME_X_WINDOW (f
) == wdesc
)
389 /* A tooltip frame. */
397 /* Likewise, but consider only the menu bar widget. */
400 x_menubar_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
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
;
417 /* Match if the window is this frame's menubar. */
419 if (x
->menubar_widget
)
421 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
423 /* This gives false positives, but the rectangle check in xterm.c
424 where this is called takes care of that. */
426 && (gwdesc
== x
->menubar_widget
427 || gtk_widget_is_ancestor (x
->menubar_widget
, gwdesc
)
428 || gtk_widget_is_ancestor (gwdesc
, x
->menubar_widget
)))
432 if (x
->menubar_widget
433 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
440 /* Return the frame whose principal (outermost) window is WDESC.
441 If WDESC is some other (smaller) window, we return 0. */
444 x_top_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
446 Lisp_Object tail
, frame
;
450 if (wdesc
== None
) return 0;
452 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
458 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
460 x
= f
->output_data
.x
;
464 /* This frame matches if the window is its topmost widget. */
466 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
467 if (gwdesc
== x
->widget
)
470 if (wdesc
== XtWindow (x
->widget
))
472 #if 0 /* I don't know why it did this,
473 but it seems logically wrong,
474 and it causes trouble for MapNotify events. */
475 /* Match if the window is this frame's menubar. */
476 if (x
->menubar_widget
477 && wdesc
== XtWindow (x
->menubar_widget
))
482 else if (FRAME_X_WINDOW (f
) == wdesc
)
488 #endif /* USE_X_TOOLKIT || USE_GTK */
492 static void x_default_font_parameter (struct frame
*, Lisp_Object
);
494 static Lisp_Object
unwind_create_frame (Lisp_Object
);
495 static Lisp_Object
unwind_create_tip_frame (Lisp_Object
);
497 void x_set_foreground_color (struct frame
*, Lisp_Object
, Lisp_Object
);
498 static void x_set_wait_for_wm (struct frame
*, Lisp_Object
, Lisp_Object
);
499 void x_set_background_color (struct frame
*, Lisp_Object
, Lisp_Object
);
500 void x_set_mouse_color (struct frame
*, Lisp_Object
, Lisp_Object
);
501 void x_set_cursor_color (struct frame
*, Lisp_Object
, Lisp_Object
);
502 void x_set_border_color (struct frame
*, Lisp_Object
, Lisp_Object
);
503 void x_set_cursor_type (struct frame
*, Lisp_Object
, Lisp_Object
);
504 void x_set_icon_type (struct frame
*, Lisp_Object
, Lisp_Object
);
505 void x_set_icon_name (struct frame
*, Lisp_Object
, Lisp_Object
);
506 void x_explicitly_set_name (struct frame
*, Lisp_Object
, Lisp_Object
);
507 void x_set_menu_bar_lines (struct frame
*, Lisp_Object
, Lisp_Object
);
508 void x_set_title (struct frame
*, Lisp_Object
, Lisp_Object
);
509 void x_set_tool_bar_lines (struct frame
*, Lisp_Object
, Lisp_Object
);
510 void x_set_scroll_bar_foreground (struct frame
*, Lisp_Object
,
512 void x_set_scroll_bar_background (struct frame
*, Lisp_Object
,
514 static Lisp_Object
x_default_scroll_bar_color_parameter (struct frame
*,
521 /* Store the screen positions of frame F into XPTR and YPTR.
522 These are the positions of the containing window manager window,
523 not Emacs's own window. */
526 x_real_positions (FRAME_PTR f
, int *xptr
, int *yptr
)
528 int win_x
, win_y
, outer_x
, outer_y
;
529 int real_x
= 0, real_y
= 0;
531 Window win
= f
->output_data
.x
->parent_desc
;
535 x_catch_errors (FRAME_X_DISPLAY (f
));
537 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
538 win
= FRAME_OUTER_WINDOW (f
);
540 /* This loop traverses up the containment tree until we hit the root
541 window. Window managers may intersect many windows between our window
542 and the root window. The window we find just before the root window
543 should be the outer WM window. */
546 Window wm_window
, rootw
;
547 Window
*tmp_children
;
548 unsigned int tmp_nchildren
;
551 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
552 &wm_window
, &tmp_children
, &tmp_nchildren
);
554 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
556 /* Don't free tmp_children if XQueryTree failed. */
560 XFree ((char *) tmp_children
);
562 if (wm_window
== rootw
|| had_errors
)
573 /* Get the real coordinates for the WM window upper left corner */
574 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
575 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
577 /* Translate real coordinates to coordinates relative to our
578 window. For our window, the upper left corner is 0, 0.
579 Since the upper left corner of the WM window is outside
580 our window, win_x and win_y will be negative:
582 ------------------ ---> x
584 | ----------------- v y
587 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
589 /* From-window, to-window. */
590 FRAME_X_DISPLAY_INFO (f
)->root_window
,
593 /* From-position, to-position. */
594 real_x
, real_y
, &win_x
, &win_y
,
599 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
606 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
608 /* From-window, to-window. */
609 FRAME_X_DISPLAY_INFO (f
)->root_window
,
610 FRAME_OUTER_WINDOW (f
),
612 /* From-position, to-position. */
613 real_x
, real_y
, &outer_x
, &outer_y
,
619 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
626 if (had_errors
) return;
628 f
->x_pixels_diff
= -win_x
;
629 f
->y_pixels_diff
= -win_y
;
631 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
632 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
641 /* Gamma-correct COLOR on frame F. */
644 gamma_correct (struct frame
*f
, XColor
*color
)
648 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
649 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
650 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
655 /* Decide if color named COLOR_NAME is valid for use on frame F. If
656 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
657 allocate the color. Value is zero if COLOR_NAME is invalid, or
658 no color could be allocated. */
661 x_defined_color (struct frame
*f
, char *color_name
, XColor
*color
, int alloc_p
)
664 Display
*dpy
= FRAME_X_DISPLAY (f
);
665 Colormap cmap
= FRAME_X_COLORMAP (f
);
668 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
669 if (success_p
&& alloc_p
)
670 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
677 /* Return the pixel color value for color COLOR_NAME on frame F. If F
678 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
679 Signal an error if color can't be allocated. */
682 x_decode_color (FRAME_PTR f
, Lisp_Object color_name
, int mono_color
)
686 CHECK_STRING (color_name
);
688 #if 0 /* Don't do this. It's wrong when we're not using the default
689 colormap, it makes freeing difficult, and it's probably not
690 an important optimization. */
691 if (strcmp (SDATA (color_name
), "black") == 0)
692 return BLACK_PIX_DEFAULT (f
);
693 else if (strcmp (SDATA (color_name
), "white") == 0)
694 return WHITE_PIX_DEFAULT (f
);
697 /* Return MONO_COLOR for monochrome frames. */
698 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
701 /* x_defined_color is responsible for coping with failures
702 by looking for a near-miss. */
703 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
706 signal_error ("Undefined color", color_name
);
711 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
712 the previous value of that parameter, NEW_VALUE is the new value.
713 See also the comment of wait_for_wm in struct x_output. */
716 x_set_wait_for_wm (struct frame
*f
, Lisp_Object new_value
, Lisp_Object old_value
)
718 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
723 /* Set icon from FILE for frame F. By using GTK functions the icon
724 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
727 xg_set_icon (FRAME_PTR f
, Lisp_Object file
)
732 found
= x_find_image_file (file
);
738 char *filename
= (char *) SDATA (found
);
741 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
745 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
747 g_object_unref (pixbuf
);
761 xg_set_icon_from_xpm_data (FRAME_PTR f
, char **data
)
764 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data ((const char **) data
);
769 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
770 g_object_unref (pixbuf
);
776 /* Functions called only from `x_set_frame_param'
777 to set individual parameters.
779 If FRAME_X_WINDOW (f) is 0,
780 the frame is being created and its X-window does not exist yet.
781 In that case, just record the parameter's new value
782 in the standard place; do not attempt to change the window. */
785 x_set_foreground_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
787 struct x_output
*x
= f
->output_data
.x
;
788 unsigned long fg
, old_fg
;
790 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
791 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
792 FRAME_FOREGROUND_PIXEL (f
) = fg
;
794 if (FRAME_X_WINDOW (f
) != 0)
796 Display
*dpy
= FRAME_X_DISPLAY (f
);
799 XSetForeground (dpy
, x
->normal_gc
, fg
);
800 XSetBackground (dpy
, x
->reverse_gc
, fg
);
802 if (x
->cursor_pixel
== old_fg
)
804 unload_color (f
, x
->cursor_pixel
);
805 x
->cursor_pixel
= x_copy_color (f
, fg
);
806 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
811 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
813 if (FRAME_VISIBLE_P (f
))
817 unload_color (f
, old_fg
);
821 x_set_background_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
823 struct x_output
*x
= f
->output_data
.x
;
826 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
827 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
828 FRAME_BACKGROUND_PIXEL (f
) = bg
;
830 if (FRAME_X_WINDOW (f
) != 0)
832 Display
*dpy
= FRAME_X_DISPLAY (f
);
835 XSetBackground (dpy
, x
->normal_gc
, bg
);
836 XSetForeground (dpy
, x
->reverse_gc
, bg
);
837 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
838 XSetForeground (dpy
, x
->cursor_gc
, bg
);
841 xg_set_background_color (f
, bg
);
844 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
845 toolkit scroll bars. */
848 for (bar
= FRAME_SCROLL_BARS (f
);
850 bar
= XSCROLL_BAR (bar
)->next
)
852 Window window
= XSCROLL_BAR (bar
)->x_window
;
853 XSetWindowBackground (dpy
, window
, bg
);
856 #endif /* USE_TOOLKIT_SCROLL_BARS */
859 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
861 if (FRAME_VISIBLE_P (f
))
867 make_invisible_cursor (struct frame
*f
)
869 Display
*dpy
= FRAME_X_DISPLAY (f
);
870 static char const no_data
[] = { 0 };
875 x_catch_errors (dpy
);
876 pix
= XCreateBitmapFromData (dpy
, FRAME_X_DISPLAY_INFO (f
)->root_window
,
878 if (! x_had_errors_p (dpy
) && pix
!= None
)
881 col
.red
= col
.green
= col
.blue
= 0;
882 col
.flags
= DoRed
| DoGreen
| DoBlue
;
883 c
= XCreatePixmapCursor (dpy
, pix
, pix
, &col
, &col
, 0, 0);
884 if (x_had_errors_p (dpy
) || c
== None
)
886 XFreePixmap (dpy
, pix
);
895 x_set_mouse_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
897 struct x_output
*x
= f
->output_data
.x
;
898 Display
*dpy
= FRAME_X_DISPLAY (f
);
899 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
900 Cursor hourglass_cursor
, horizontal_drag_cursor
;
901 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
902 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
904 /* Don't let pointers be invisible. */
905 if (mask_color
== pixel
)
907 x_free_colors (f
, &pixel
, 1);
908 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
911 unload_color (f
, x
->mouse_pixel
);
912 x
->mouse_pixel
= pixel
;
916 /* It's not okay to crash if the user selects a screwy cursor. */
917 x_catch_errors (dpy
);
919 if (!NILP (Vx_pointer_shape
))
921 CHECK_NUMBER (Vx_pointer_shape
);
922 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
925 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
926 x_check_errors (dpy
, "bad text pointer cursor: %s");
928 if (!NILP (Vx_nontext_pointer_shape
))
930 CHECK_NUMBER (Vx_nontext_pointer_shape
);
932 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
935 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
936 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
938 if (!NILP (Vx_hourglass_pointer_shape
))
940 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
942 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
945 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
946 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
948 if (!NILP (Vx_mode_pointer_shape
))
950 CHECK_NUMBER (Vx_mode_pointer_shape
);
951 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
954 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
955 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
957 if (!NILP (Vx_sensitive_text_pointer_shape
))
959 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
961 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
964 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
966 if (!NILP (Vx_window_horizontal_drag_shape
))
968 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
969 horizontal_drag_cursor
970 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
973 horizontal_drag_cursor
974 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
976 /* Check and report errors with the above calls. */
977 x_check_errors (dpy
, "can't set cursor shape: %s");
981 XColor fore_color
, back_color
;
983 fore_color
.pixel
= x
->mouse_pixel
;
984 x_query_color (f
, &fore_color
);
985 back_color
.pixel
= mask_color
;
986 x_query_color (f
, &back_color
);
988 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
989 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
990 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
991 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
992 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
993 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
996 if (FRAME_X_WINDOW (f
) != 0)
997 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
998 f
->output_data
.x
->current_cursor
= cursor
);
1000 if (FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
== 0)
1001 FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
= make_invisible_cursor (f
);
1003 if (cursor
!= x
->text_cursor
1004 && x
->text_cursor
!= 0)
1005 XFreeCursor (dpy
, x
->text_cursor
);
1006 x
->text_cursor
= cursor
;
1008 if (nontext_cursor
!= x
->nontext_cursor
1009 && x
->nontext_cursor
!= 0)
1010 XFreeCursor (dpy
, x
->nontext_cursor
);
1011 x
->nontext_cursor
= nontext_cursor
;
1013 if (hourglass_cursor
!= x
->hourglass_cursor
1014 && x
->hourglass_cursor
!= 0)
1015 XFreeCursor (dpy
, x
->hourglass_cursor
);
1016 x
->hourglass_cursor
= hourglass_cursor
;
1018 if (mode_cursor
!= x
->modeline_cursor
1019 && x
->modeline_cursor
!= 0)
1020 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1021 x
->modeline_cursor
= mode_cursor
;
1023 if (hand_cursor
!= x
->hand_cursor
1024 && x
->hand_cursor
!= 0)
1025 XFreeCursor (dpy
, x
->hand_cursor
);
1026 x
->hand_cursor
= hand_cursor
;
1028 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1029 && x
->horizontal_drag_cursor
!= 0)
1030 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1031 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1036 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1040 x_set_cursor_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1042 unsigned long fore_pixel
, pixel
;
1043 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1044 struct x_output
*x
= f
->output_data
.x
;
1046 if (!NILP (Vx_cursor_fore_pixel
))
1048 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1049 WHITE_PIX_DEFAULT (f
));
1050 fore_pixel_allocated_p
= 1;
1053 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1055 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1056 pixel_allocated_p
= 1;
1058 /* Make sure that the cursor color differs from the background color. */
1059 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1061 if (pixel_allocated_p
)
1063 x_free_colors (f
, &pixel
, 1);
1064 pixel_allocated_p
= 0;
1067 pixel
= x
->mouse_pixel
;
1068 if (pixel
== fore_pixel
)
1070 if (fore_pixel_allocated_p
)
1072 x_free_colors (f
, &fore_pixel
, 1);
1073 fore_pixel_allocated_p
= 0;
1075 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1079 unload_color (f
, x
->cursor_foreground_pixel
);
1080 if (!fore_pixel_allocated_p
)
1081 fore_pixel
= x_copy_color (f
, fore_pixel
);
1082 x
->cursor_foreground_pixel
= fore_pixel
;
1084 unload_color (f
, x
->cursor_pixel
);
1085 if (!pixel_allocated_p
)
1086 pixel
= x_copy_color (f
, pixel
);
1087 x
->cursor_pixel
= pixel
;
1089 if (FRAME_X_WINDOW (f
) != 0)
1092 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1093 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1096 if (FRAME_VISIBLE_P (f
))
1098 x_update_cursor (f
, 0);
1099 x_update_cursor (f
, 1);
1103 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1106 /* Set the border-color of frame F to pixel value PIX.
1107 Note that this does not fully take effect if done before
1108 F has an x-window. */
1111 x_set_border_pixel (struct frame
*f
, int pix
)
1113 unload_color (f
, f
->output_data
.x
->border_pixel
);
1114 f
->output_data
.x
->border_pixel
= pix
;
1116 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1119 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1120 (unsigned long)pix
);
1123 if (FRAME_VISIBLE_P (f
))
1128 /* Set the border-color of frame F to value described by ARG.
1129 ARG can be a string naming a color.
1130 The border-color is used for the border that is drawn by the X server.
1131 Note that this does not fully take effect if done before
1132 F has an x-window; it must be redone when the window is created.
1134 Note: this is done in two routines because of the way X10 works.
1136 Note: under X11, this is normally the province of the window manager,
1137 and so emacs' border colors may be overridden. */
1140 x_set_border_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1145 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1146 x_set_border_pixel (f
, pix
);
1147 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1152 x_set_cursor_type (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1154 set_frame_cursor_types (f
, arg
);
1156 /* Make sure the cursor gets redrawn. */
1157 cursor_type_changed
= 1;
1161 x_set_icon_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1167 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1170 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1175 result
= x_text_icon (f
,
1176 (char *) SDATA ((!NILP (f
->icon_name
)
1180 result
= x_bitmap_icon (f
, arg
);
1185 error ("No icon window available");
1188 XFlush (FRAME_X_DISPLAY (f
));
1193 x_set_icon_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1199 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1202 else if (!NILP (arg
) || NILP (oldval
))
1207 if (f
->output_data
.x
->icon_bitmap
!= 0)
1212 result
= x_text_icon (f
,
1213 (char *) SDATA ((!NILP (f
->icon_name
)
1222 error ("No icon window available");
1225 XFlush (FRAME_X_DISPLAY (f
));
1231 x_set_menu_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1234 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1235 int olines
= FRAME_MENU_BAR_LINES (f
);
1238 /* Right now, menu bars don't work properly in minibuf-only frames;
1239 most of the commands try to apply themselves to the minibuffer
1240 frame itself, and get an error because you can't switch buffers
1241 in or split the minibuffer window. */
1242 if (FRAME_MINIBUF_ONLY_P (f
))
1245 if (INTEGERP (value
))
1246 nlines
= XINT (value
);
1250 /* Make sure we redisplay all windows in this frame. */
1251 windows_or_buffers_changed
++;
1253 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1254 FRAME_MENU_BAR_LINES (f
) = 0;
1257 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1258 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1259 /* Make sure next redisplay shows the menu bar. */
1260 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1264 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1265 free_frame_menubar (f
);
1266 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1268 f
->output_data
.x
->menubar_widget
= 0;
1270 #else /* not USE_X_TOOLKIT && not USE_GTK */
1271 FRAME_MENU_BAR_LINES (f
) = nlines
;
1272 change_window_heights (f
->root_window
, nlines
- olines
);
1274 /* If the menu bar height gets changed, the internal border below
1275 the top margin has to be cleared. Also, if the menu bar gets
1276 larger, the area for the added lines has to be cleared except for
1277 the first menu bar line that is to be drawn later. */
1278 if (nlines
!= olines
)
1280 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1281 int width
= FRAME_PIXEL_WIDTH (f
);
1284 /* height can be zero here. */
1285 if (height
> 0 && width
> 0)
1287 y
= FRAME_TOP_MARGIN_HEIGHT (f
);
1290 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1291 0, y
, width
, height
, False
);
1295 if (nlines
> 1 && nlines
> olines
)
1297 y
= (olines
== 0 ? 1 : olines
) * FRAME_LINE_HEIGHT (f
);
1298 height
= nlines
* FRAME_LINE_HEIGHT (f
) - y
;
1301 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1302 0, y
, width
, height
, False
);
1306 if (nlines
== 0 && WINDOWP (f
->menu_bar_window
))
1307 clear_glyph_matrix (XWINDOW (f
->menu_bar_window
)->current_matrix
);
1309 #endif /* not USE_X_TOOLKIT && not USE_GTK */
1314 /* Set the number of lines used for the tool bar of frame F to VALUE.
1315 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1316 is the old number of tool bar lines. This function changes the
1317 height of all windows on frame F to match the new tool bar height.
1318 The frame's height doesn't change. */
1321 x_set_tool_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1323 int delta
, nlines
, root_height
;
1324 Lisp_Object root_window
;
1326 /* Treat tool bars like menu bars. */
1327 if (FRAME_MINIBUF_ONLY_P (f
))
1330 /* Use VALUE only if an integer >= 0. */
1331 if (INTEGERP (value
) && XINT (value
) >= 0)
1332 nlines
= XFASTINT (value
);
1337 FRAME_TOOL_BAR_LINES (f
) = 0;
1340 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1341 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1342 /* Make sure next redisplay shows the tool bar. */
1343 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1344 update_frame_tool_bar (f
);
1348 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1349 free_frame_tool_bar (f
);
1350 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1356 /* Make sure we redisplay all windows in this frame. */
1357 ++windows_or_buffers_changed
;
1359 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1361 /* Don't resize the tool-bar to more than we have room for. */
1362 root_window
= FRAME_ROOT_WINDOW (f
);
1363 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1364 if (root_height
- delta
< 1)
1366 delta
= root_height
- 1;
1367 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1370 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1371 change_window_heights (root_window
, delta
);
1374 /* We also have to make sure that the internal border at the top of
1375 the frame, below the menu bar or tool bar, is redrawn when the
1376 tool bar disappears. This is so because the internal border is
1377 below the tool bar if one is displayed, but is below the menu bar
1378 if there isn't a tool bar. The tool bar draws into the area
1379 below the menu bar. */
1380 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1383 clear_current_matrices (f
);
1386 /* If the tool bar gets smaller, the internal border below it
1387 has to be cleared. It was formerly part of the display
1388 of the larger tool bar, and updating windows won't clear it. */
1391 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1392 int width
= FRAME_PIXEL_WIDTH (f
);
1393 int y
= (FRAME_MENU_BAR_LINES (f
) + nlines
) * FRAME_LINE_HEIGHT (f
);
1395 /* height can be zero here. */
1396 if (height
> 0 && width
> 0)
1399 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1400 0, y
, width
, height
, False
);
1404 if (WINDOWP (f
->tool_bar_window
))
1405 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1410 /* Set the foreground color for scroll bars on frame F to VALUE.
1411 VALUE should be a string, a color name. If it isn't a string or
1412 isn't a valid color name, do nothing. OLDVAL is the old value of
1413 the frame parameter. */
1416 x_set_scroll_bar_foreground (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1418 unsigned long pixel
;
1420 if (STRINGP (value
))
1421 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1425 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1426 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1428 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1429 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1431 /* Remove all scroll bars because they have wrong colors. */
1432 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1433 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1434 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1435 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1437 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1443 /* Set the background color for scroll bars on frame F to VALUE VALUE
1444 should be a string, a color name. If it isn't a string or isn't a
1445 valid color name, do nothing. OLDVAL is the old value of the frame
1449 x_set_scroll_bar_background (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1451 unsigned long pixel
;
1453 if (STRINGP (value
))
1454 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1458 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1459 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1461 #ifdef USE_TOOLKIT_SCROLL_BARS
1462 /* Scrollbar shadow colors. */
1463 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1465 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1466 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1468 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1470 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1471 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1473 #endif /* USE_TOOLKIT_SCROLL_BARS */
1475 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1476 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1478 /* Remove all scroll bars because they have wrong colors. */
1479 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1480 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1481 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1482 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1484 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1490 /* Encode Lisp string STRING as a text in a format appropriate for
1491 XICCC (X Inter Client Communication Conventions).
1493 This can call Lisp code, so callers must GCPRO.
1495 If STRING contains only ASCII characters, do no conversion and
1496 return the string data of STRING. Otherwise, encode the text by
1497 CODING_SYSTEM, and return a newly allocated memory area which
1498 should be freed by `xfree' by a caller.
1500 SELECTIONP non-zero means the string is being encoded for an X
1501 selection, so it is safe to run pre-write conversions (which
1504 Store the byte length of resulting text in *TEXT_BYTES.
1506 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1507 which means that the `encoding' of the result can be `STRING'.
1508 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1509 the result should be `COMPOUND_TEXT'. */
1511 static unsigned char *
1512 x_encode_text (Lisp_Object string
, Lisp_Object coding_system
, int selectionp
, int *text_bytes
, int *stringp
, int *freep
)
1514 int result
= string_xstring_p (string
);
1515 struct coding_system coding
;
1519 /* No multibyte character in OBJ. We need not encode it. */
1520 *text_bytes
= SBYTES (string
);
1523 return SDATA (string
);
1526 setup_coding_system (coding_system
, &coding
);
1527 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1528 /* We suppress producing escape sequences for composition. */
1529 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1530 coding
.dst_bytes
= SCHARS (string
) * 2;
1531 coding
.destination
= (unsigned char *) xmalloc (coding
.dst_bytes
);
1532 encode_coding_object (&coding
, string
, 0, 0,
1533 SCHARS (string
), SBYTES (string
), Qnil
);
1534 *text_bytes
= coding
.produced
;
1535 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1537 return coding
.destination
;
1541 /* Set the WM name to NAME for frame F. Also set the icon name.
1542 If the frame already has an icon name, use that, otherwise set the
1543 icon name to NAME. */
1546 x_set_name_internal (FRAME_PTR f
, Lisp_Object name
)
1548 if (FRAME_X_WINDOW (f
))
1552 XTextProperty text
, icon
;
1554 int do_free_icon_value
= 0, do_free_text_value
= 0;
1555 Lisp_Object coding_system
;
1556 Lisp_Object encoded_name
;
1557 Lisp_Object encoded_icon_name
;
1558 struct gcpro gcpro1
;
1560 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1561 we use it before x_encode_text that may return string data. */
1563 encoded_name
= ENCODE_UTF_8 (name
);
1566 coding_system
= Qcompound_text
;
1567 /* Note: Encoding strategy
1569 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1570 text.encoding. But, there are non-internationalized window
1571 managers which don't support that encoding. So, if NAME
1572 contains only ASCII and 8859-1 characters, encode it by
1573 iso-latin-1, and use "STRING" in text.encoding hoping that
1574 such window managers at least analyze this format correctly,
1575 i.e. treat 8-bit bytes as 8859-1 characters.
1577 We may also be able to use "UTF8_STRING" in text.encoding
1578 in the future which can encode all Unicode characters.
1579 But, for the moment, there's no way to know that the
1580 current window manager supports it or not.
1582 Either way, we also set the _NET_WM_NAME and _NET_WM_ICON_NAME
1583 properties. Per the EWMH specification, those two properties
1584 are always UTF8_STRING. This matches what gtk_window_set_title()
1585 does in the USE_GTK case. */
1586 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1587 &do_free_text_value
);
1588 text
.encoding
= (stringp
? XA_STRING
1589 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1591 text
.nitems
= bytes
;
1593 if (!STRINGP (f
->icon_name
))
1596 encoded_icon_name
= encoded_name
;
1600 /* See the above comment "Note: Encoding strategy". */
1601 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1602 &bytes
, &stringp
, &do_free_icon_value
);
1603 icon
.encoding
= (stringp
? XA_STRING
1604 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1606 icon
.nitems
= bytes
;
1608 encoded_icon_name
= ENCODE_UTF_8 (f
->icon_name
);
1612 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1613 (char *) SDATA (encoded_name
));
1614 #else /* not USE_GTK */
1615 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1616 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1617 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_name
,
1618 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1620 (char *) SDATA (encoded_name
),
1621 SBYTES (encoded_name
));
1622 #endif /* not USE_GTK */
1624 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1625 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1626 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_icon_name
,
1627 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1629 (char *) SDATA (encoded_icon_name
),
1630 SBYTES (encoded_icon_name
));
1632 if (do_free_icon_value
)
1634 if (do_free_text_value
)
1641 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1644 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1645 name; if NAME is a string, set F's name to NAME and set
1646 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1648 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1649 suggesting a new name, which lisp code should override; if
1650 F->explicit_name is set, ignore the new name; otherwise, set it. */
1653 x_set_name (struct frame
*f
, Lisp_Object name
, int explicit)
1655 /* Make sure that requests from lisp code override requests from
1656 Emacs redisplay code. */
1659 /* If we're switching from explicit to implicit, we had better
1660 update the mode lines and thereby update the title. */
1661 if (f
->explicit_name
&& NILP (name
))
1662 update_mode_lines
= 1;
1664 f
->explicit_name
= ! NILP (name
);
1666 else if (f
->explicit_name
)
1669 /* If NAME is nil, set the name to the x_id_name. */
1672 /* Check for no change needed in this very common case
1673 before we do any consing. */
1674 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1677 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1680 CHECK_STRING (name
);
1682 /* Don't change the name if it's already NAME. */
1683 if (! NILP (Fstring_equal (name
, f
->name
)))
1688 /* For setting the frame title, the title parameter should override
1689 the name parameter. */
1690 if (! NILP (f
->title
))
1693 x_set_name_internal (f
, name
);
1696 /* This function should be called when the user's lisp code has
1697 specified a name for the frame; the name will override any set by the
1700 x_explicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1702 x_set_name (f
, arg
, 1);
1705 /* This function should be called by Emacs redisplay code to set the
1706 name; names set this way will never override names set by the user's
1709 x_implicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1711 x_set_name (f
, arg
, 0);
1714 /* Change the title of frame F to NAME.
1715 If NAME is nil, use the frame name as the title. */
1718 x_set_title (struct frame
*f
, Lisp_Object name
, Lisp_Object old_name
)
1720 /* Don't change the title if it's already NAME. */
1721 if (EQ (name
, f
->title
))
1724 update_mode_lines
= 1;
1731 CHECK_STRING (name
);
1733 x_set_name_internal (f
, name
);
1737 x_set_scroll_bar_default_width (struct frame
*f
)
1739 int wid
= FRAME_COLUMN_WIDTH (f
);
1741 #ifdef USE_TOOLKIT_SCROLL_BARS
1742 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1743 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1744 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1745 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1747 /* Make the actual width at least 14 pixels and a multiple of a
1749 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1751 /* Use all of that space (aside from required margins) for the
1753 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1758 /* Record in frame F the specified or default value according to ALIST
1759 of the parameter named PROP (a Lisp symbol). If no value is
1760 specified for PROP, look for an X default for XPROP on the frame
1761 named NAME. If that is not found either, use the value DEFLT. */
1764 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1773 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1776 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1777 if (EQ (tem
, Qunbound
))
1779 #ifdef USE_TOOLKIT_SCROLL_BARS
1781 /* See if an X resource for the scroll bar color has been
1783 tem
= display_x_get_resource (dpyinfo
,
1784 build_string (foreground_p
1787 empty_unibyte_string
,
1788 build_string ("verticalScrollBar"),
1789 empty_unibyte_string
);
1792 /* If nothing has been specified, scroll bars will use a
1793 toolkit-dependent default. Because these defaults are
1794 difficult to get at without actually creating a scroll
1795 bar, use nil to indicate that no color has been
1800 #else /* not USE_TOOLKIT_SCROLL_BARS */
1804 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1807 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1814 #ifdef USE_X_TOOLKIT
1816 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1817 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1818 already be present because of the toolkit (Motif adds some of them,
1819 for example, but Xt doesn't). */
1822 hack_wm_protocols (f
, widget
)
1826 Display
*dpy
= XtDisplay (widget
);
1827 Window w
= XtWindow (widget
);
1828 int need_delete
= 1;
1835 unsigned char *catoms
;
1837 unsigned long nitems
= 0;
1838 unsigned long bytes_after
;
1840 if ((XGetWindowProperty (dpy
, w
,
1841 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1842 (long)0, (long)100, False
, XA_ATOM
,
1843 &type
, &format
, &nitems
, &bytes_after
,
1846 && format
== 32 && type
== XA_ATOM
)
1848 Atom
*atoms
= (Atom
*) catoms
;
1853 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1855 else if (atoms
[nitems
]
1856 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1858 else if (atoms
[nitems
]
1859 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1870 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1872 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1874 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1876 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1877 XA_ATOM
, 32, PropModeAppend
,
1878 (unsigned char *) props
, count
);
1886 /* Support routines for XIC (X Input Context). */
1890 static XFontSet
xic_create_xfontset (struct frame
*);
1891 static XIMStyle
best_xim_style (XIMStyles
*, XIMStyles
*);
1894 /* Supported XIM styles, ordered by preference. */
1896 static XIMStyle supported_xim_styles
[] =
1898 XIMPreeditPosition
| XIMStatusArea
,
1899 XIMPreeditPosition
| XIMStatusNothing
,
1900 XIMPreeditPosition
| XIMStatusNone
,
1901 XIMPreeditNothing
| XIMStatusArea
,
1902 XIMPreeditNothing
| XIMStatusNothing
,
1903 XIMPreeditNothing
| XIMStatusNone
,
1904 XIMPreeditNone
| XIMStatusArea
,
1905 XIMPreeditNone
| XIMStatusNothing
,
1906 XIMPreeditNone
| XIMStatusNone
,
1911 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1913 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1915 /* Create an Xt fontset spec from the name of a base font.
1916 If `motif' is True use the Motif syntax. */
1918 xic_create_fontsetname (char *base_fontname
, int motif
)
1920 const char *sep
= motif
? ";" : ",";
1923 /* Make a fontset name from the base font name. */
1924 if (xic_defaut_fontset
== base_fontname
)
1925 { /* There is no base font name, use the default. */
1926 int len
= strlen (base_fontname
) + 2;
1927 fontsetname
= xmalloc (len
);
1928 bzero (fontsetname
, len
);
1929 strcpy (fontsetname
, base_fontname
);
1933 /* Make a fontset name from the base font name.
1934 The font set will be made of the following elements:
1936 - the base font where the charset spec is replaced by -*-*.
1937 - the same but with the family also replaced with -*-*-. */
1938 char *p
= base_fontname
;
1941 for (i
= 0; *p
; p
++)
1944 { /* As the font name doesn't conform to XLFD, we can't
1945 modify it to generalize it to allcs and allfamilies.
1946 Use the specified font plus the default. */
1947 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
1948 fontsetname
= xmalloc (len
);
1949 bzero (fontsetname
, len
);
1950 strcpy (fontsetname
, base_fontname
);
1951 strcat (fontsetname
, sep
);
1952 strcat (fontsetname
, xic_defaut_fontset
);
1957 char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1958 char *font_allcs
= NULL
;
1959 char *font_allfamilies
= NULL
;
1960 char *font_all
= NULL
;
1961 char *allcs
= "*-*-*-*-*-*-*";
1962 char *allfamilies
= "-*-*-";
1963 char *all
= "*-*-*-*-";
1966 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
1979 /* If base_fontname specifies ADSTYLE, make it a
1983 int diff
= (p2
- p3
) - 2;
1985 base
= alloca (strlen (base_fontname
) + 1);
1986 bcopy (base_fontname
, base
, p3
- base_fontname
);
1987 base
[p3
- base_fontname
] = '*';
1988 base
[(p3
- base_fontname
) + 1] = '-';
1989 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
1990 p
= base
+ (p
- base_fontname
) - diff
;
1991 p1
= base
+ (p1
- base_fontname
);
1992 p2
= base
+ (p2
- base_fontname
) - diff
;
1993 base_fontname
= base
;
1996 /* Build the font spec that matches all charsets. */
1997 len
= p
- base_fontname
+ strlen (allcs
) + 1;
1998 font_allcs
= (char *) alloca (len
);
1999 bzero (font_allcs
, len
);
2000 bcopy (base_fontname
, font_allcs
, p
- base_fontname
);
2001 strcat (font_allcs
, allcs
);
2003 /* Build the font spec that matches all families and
2005 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2006 font_allfamilies
= (char *) alloca (len
);
2007 bzero (font_allfamilies
, len
);
2008 strcpy (font_allfamilies
, allfamilies
);
2009 bcopy (p1
, font_allfamilies
+ strlen (allfamilies
), p
- p1
);
2010 strcat (font_allfamilies
, allcs
);
2012 /* Build the font spec that matches all. */
2013 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2014 font_all
= (char *) alloca (len
);
2015 bzero (font_all
, len
);
2016 strcpy (font_all
, allfamilies
);
2017 strcat (font_all
, all
);
2018 bcopy (p2
, font_all
+ strlen (all
) + strlen (allfamilies
), p
- p2
);
2019 strcat (font_all
, allcs
);
2021 /* Build the actual font set name. */
2022 len
= strlen (base_fontname
) + strlen (font_allcs
)
2023 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2024 fontsetname
= xmalloc (len
);
2025 bzero (fontsetname
, len
);
2026 strcpy (fontsetname
, base_fontname
);
2027 strcat (fontsetname
, sep
);
2028 strcat (fontsetname
, font_allcs
);
2029 strcat (fontsetname
, sep
);
2030 strcat (fontsetname
, font_allfamilies
);
2031 strcat (fontsetname
, sep
);
2032 strcat (fontsetname
, font_all
);
2036 strcat (fontsetname
, ":");
2040 #ifdef DEBUG_XIC_FONTSET
2042 print_fontset_result (xfs
, name
, missing_list
, missing_count
)
2045 char **missing_list
;
2049 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
2052 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
2053 while (missing_count
-- > 0)
2055 fprintf (stderr
, " missing: %s\n", *missing_list
);
2064 xic_create_xfontset (struct frame
*f
)
2066 XFontSet xfs
= NULL
;
2067 struct font
*font
= FRAME_FONT (f
);
2068 int pixel_size
= font
->pixel_size
;
2069 Lisp_Object rest
, frame
;
2071 /* See if there is another frame already using same fontset. */
2072 FOR_EACH_FRAME (rest
, frame
)
2074 struct frame
*cf
= XFRAME (frame
);
2076 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2077 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2079 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
2081 xfs
= FRAME_XIC_FONTSET (cf
);
2089 char **missing_list
;
2092 char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
2094 sprintf (buf
, xlfd_format
, pixel_size
);
2095 missing_list
= NULL
;
2096 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2097 &missing_list
, &missing_count
, &def_string
);
2098 #ifdef DEBUG_XIC_FONTSET
2099 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2102 XFreeStringList (missing_list
);
2105 /* List of pixel sizes most likely available. Find one that
2106 is closest to pixel_size. */
2107 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2108 int *smaller
, *larger
;
2110 for (smaller
= sizes
; smaller
[1]; smaller
++)
2111 if (smaller
[1] >= pixel_size
)
2113 larger
= smaller
+ 1;
2114 if (*larger
== pixel_size
)
2116 while (*smaller
|| *larger
)
2121 this_size
= *smaller
--;
2122 else if (! *smaller
)
2123 this_size
= *larger
++;
2124 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
2125 this_size
= *smaller
--;
2127 this_size
= *larger
++;
2128 sprintf (buf
, xlfd_format
, this_size
);
2129 missing_list
= NULL
;
2130 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2131 &missing_list
, &missing_count
, &def_string
);
2132 #ifdef DEBUG_XIC_FONTSET
2133 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2136 XFreeStringList (missing_list
);
2143 char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
2145 missing_list
= NULL
;
2146 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
2147 &missing_list
, &missing_count
, &def_string
);
2148 #ifdef DEBUG_XIC_FONTSET
2149 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
2152 XFreeStringList (missing_list
);
2160 /* Free the X fontset of frame F if it is the last frame using it. */
2163 xic_free_xfontset (struct frame
*f
)
2165 Lisp_Object rest
, frame
;
2168 if (!FRAME_XIC_FONTSET (f
))
2171 /* See if there is another frame sharing the same fontset. */
2172 FOR_EACH_FRAME (rest
, frame
)
2174 struct frame
*cf
= XFRAME (frame
);
2175 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2176 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2177 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2185 /* The fontset is not used anymore. It is safe to free it. */
2186 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2188 if (FRAME_XIC_BASE_FONTNAME (f
))
2189 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2190 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2191 FRAME_XIC_FONTSET (f
) = NULL
;
2195 /* Value is the best input style, given user preferences USER (already
2196 checked to be supported by Emacs), and styles supported by the
2197 input method XIM. */
2200 best_xim_style (XIMStyles
*user
, XIMStyles
*xim
)
2204 for (i
= 0; i
< user
->count_styles
; ++i
)
2205 for (j
= 0; j
< xim
->count_styles
; ++j
)
2206 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2207 return user
->supported_styles
[i
];
2209 /* Return the default style. */
2210 return XIMPreeditNothing
| XIMStatusNothing
;
2213 /* Create XIC for frame F. */
2215 static XIMStyle xic_style
;
2218 create_frame_xic (struct frame
*f
)
2222 XFontSet xfs
= NULL
;
2227 /* Create X fontset. */
2228 xfs
= xic_create_xfontset (f
);
2229 xim
= FRAME_X_XIM (f
);
2234 XVaNestedList preedit_attr
;
2235 XVaNestedList status_attr
;
2237 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2238 spot
.x
= 0; spot
.y
= 1;
2240 /* Determine XIC style. */
2243 XIMStyles supported_list
;
2244 supported_list
.count_styles
= (sizeof supported_xim_styles
2245 / sizeof supported_xim_styles
[0]);
2246 supported_list
.supported_styles
= supported_xim_styles
;
2247 xic_style
= best_xim_style (&supported_list
,
2248 FRAME_X_XIM_STYLES (f
));
2251 preedit_attr
= XVaCreateNestedList (0,
2254 FRAME_FOREGROUND_PIXEL (f
),
2256 FRAME_BACKGROUND_PIXEL (f
),
2257 (xic_style
& XIMPreeditPosition
2262 status_attr
= XVaCreateNestedList (0,
2268 FRAME_FOREGROUND_PIXEL (f
),
2270 FRAME_BACKGROUND_PIXEL (f
),
2273 xic
= XCreateIC (xim
,
2274 XNInputStyle
, xic_style
,
2275 XNClientWindow
, FRAME_X_WINDOW (f
),
2276 XNFocusWindow
, FRAME_X_WINDOW (f
),
2277 XNStatusAttributes
, status_attr
,
2278 XNPreeditAttributes
, preedit_attr
,
2280 XFree (preedit_attr
);
2281 XFree (status_attr
);
2284 FRAME_XIC (f
) = xic
;
2285 FRAME_XIC_STYLE (f
) = xic_style
;
2286 FRAME_XIC_FONTSET (f
) = xfs
;
2290 /* Destroy XIC and free XIC fontset of frame F, if any. */
2293 free_frame_xic (struct frame
*f
)
2295 if (FRAME_XIC (f
) == NULL
)
2298 XDestroyIC (FRAME_XIC (f
));
2299 xic_free_xfontset (f
);
2301 FRAME_XIC (f
) = NULL
;
2305 /* Place preedit area for XIC of window W's frame to specified
2306 pixel position X/Y. X and Y are relative to window W. */
2309 xic_set_preeditarea (struct window
*w
, int x
, int y
)
2311 struct frame
*f
= XFRAME (w
->frame
);
2315 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2316 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2317 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2318 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2323 /* Place status area for XIC in bottom right corner of frame F.. */
2326 xic_set_statusarea (struct frame
*f
)
2328 XIC xic
= FRAME_XIC (f
);
2333 /* Negotiate geometry of status area. If input method has existing
2334 status area, use its current size. */
2335 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2336 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2337 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2340 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2341 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2344 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2346 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2347 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2351 area
.width
= needed
->width
;
2352 area
.height
= needed
->height
;
2353 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2354 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2355 - FRAME_MENUBAR_HEIGHT (f
)
2356 - FRAME_TOOLBAR_HEIGHT (f
)
2357 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2360 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2361 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2366 /* Set X fontset for XIC of frame F, using base font name
2367 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2370 xic_set_xfontset (struct frame
*f
, char *base_fontname
)
2375 xic_free_xfontset (f
);
2377 xfs
= xic_create_xfontset (f
);
2379 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2380 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2381 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2382 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2383 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2386 FRAME_XIC_FONTSET (f
) = xfs
;
2389 #endif /* HAVE_X_I18N */
2393 #ifdef USE_X_TOOLKIT
2395 /* Create and set up the X widget for frame F. */
2398 x_window (f
, window_prompting
, minibuffer_only
)
2400 long window_prompting
;
2401 int minibuffer_only
;
2403 XClassHint class_hints
;
2404 XSetWindowAttributes attributes
;
2405 unsigned long attribute_mask
;
2406 Widget shell_widget
;
2408 Widget frame_widget
;
2414 /* Use the resource name as the top-level widget name
2415 for looking up resources. Make a non-Lisp copy
2416 for the window manager, so GC relocation won't bother it.
2418 Elsewhere we specify the window name for the window manager. */
2421 char *str
= (char *) SDATA (Vx_resource_name
);
2422 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2423 strcpy (f
->namebuf
, str
);
2427 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2428 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2429 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2430 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2431 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2432 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2433 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2434 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2435 applicationShellWidgetClass
,
2436 FRAME_X_DISPLAY (f
), al
, ac
);
2438 f
->output_data
.x
->widget
= shell_widget
;
2439 /* maybe_set_screen_title_format (shell_widget); */
2441 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2442 (widget_value
*) NULL
,
2443 shell_widget
, False
,
2447 (lw_callback
) NULL
);
2450 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2451 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2452 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2453 XtSetValues (pane_widget
, al
, ac
);
2454 f
->output_data
.x
->column_widget
= pane_widget
;
2456 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2457 the emacs screen when changing menubar. This reduces flickering. */
2460 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2461 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2462 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2463 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2464 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2465 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2466 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2467 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2468 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2471 f
->output_data
.x
->edit_widget
= frame_widget
;
2473 XtManageChild (frame_widget
);
2475 /* Do some needed geometry management. */
2478 char *tem
, shell_position
[32];
2481 int extra_borders
= 0;
2483 = (f
->output_data
.x
->menubar_widget
2484 ? (f
->output_data
.x
->menubar_widget
->core
.height
2485 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2488 #if 0 /* Experimentally, we now get the right results
2489 for -geometry -0-0 without this. 24 Aug 96, rms. */
2490 if (FRAME_EXTERNAL_MENU_BAR (f
))
2493 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2494 menubar_size
+= ibw
;
2498 f
->output_data
.x
->menubar_height
= menubar_size
;
2501 /* Motif seems to need this amount added to the sizes
2502 specified for the shell widget. The Athena/Lucid widgets don't.
2503 Both conclusions reached experimentally. -- rms. */
2504 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2505 &extra_borders
, NULL
);
2509 /* Convert our geometry parameters into a geometry string
2511 Note that we do not specify here whether the position
2512 is a user-specified or program-specified one.
2513 We pass that information later, in x_wm_set_size_hints. */
2515 int left
= f
->left_pos
;
2516 int xneg
= window_prompting
& XNegative
;
2517 int top
= f
->top_pos
;
2518 int yneg
= window_prompting
& YNegative
;
2524 if (window_prompting
& USPosition
)
2525 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2526 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2527 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2528 (xneg
? '-' : '+'), left
,
2529 (yneg
? '-' : '+'), top
);
2532 sprintf (shell_position
, "=%dx%d",
2533 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2534 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2536 /* Setting x and y when the position is not specified in
2537 the geometry string will set program position in the WM hints.
2538 If Emacs had just one program position, we could set it in
2539 fallback resources, but since each make-frame call can specify
2540 different program positions, this is easier. */
2541 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2542 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2546 len
= strlen (shell_position
) + 1;
2547 /* We don't free this because we don't know whether
2548 it is safe to free it while the frame exists.
2549 It isn't worth the trouble of arranging to free it
2550 when the frame is deleted. */
2551 tem
= (char *) xmalloc (len
);
2552 strncpy (tem
, shell_position
, len
);
2553 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2554 XtSetValues (shell_widget
, al
, ac
);
2557 XtManageChild (pane_widget
);
2558 XtRealizeWidget (shell_widget
);
2560 if (FRAME_X_EMBEDDED_P (f
))
2561 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2562 f
->output_data
.x
->parent_desc
, 0, 0);
2564 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2566 validate_x_resource_name ();
2568 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2569 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2570 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2573 FRAME_XIC (f
) = NULL
;
2575 create_frame_xic (f
);
2578 f
->output_data
.x
->wm_hints
.input
= True
;
2579 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2580 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2581 &f
->output_data
.x
->wm_hints
);
2583 hack_wm_protocols (f
, shell_widget
);
2586 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2589 /* Do a stupid property change to force the server to generate a
2590 PropertyNotify event so that the event_stream server timestamp will
2591 be initialized to something relevant to the time we created the window.
2593 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2594 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2595 XA_ATOM
, 32, PropModeAppend
,
2596 (unsigned char*) NULL
, 0);
2598 /* Make all the standard events reach the Emacs frame. */
2599 attributes
.event_mask
= STANDARD_EVENT_SET
;
2604 /* XIM server might require some X events. */
2605 unsigned long fevent
= NoEventMask
;
2606 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2607 attributes
.event_mask
|= fevent
;
2609 #endif /* HAVE_X_I18N */
2611 attribute_mask
= CWEventMask
;
2612 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2613 attribute_mask
, &attributes
);
2615 XtMapWidget (frame_widget
);
2617 /* x_set_name normally ignores requests to set the name if the
2618 requested name is the same as the current name. This is the one
2619 place where that assumption isn't correct; f->name is set, but
2620 the X server hasn't been told. */
2623 int explicit = f
->explicit_name
;
2625 f
->explicit_name
= 0;
2628 x_set_name (f
, name
, explicit);
2631 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2632 f
->output_data
.x
->current_cursor
2633 = f
->output_data
.x
->text_cursor
);
2637 /* This is a no-op, except under Motif. Make sure main areas are
2638 set to something reasonable, in case we get an error later. */
2639 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2642 #else /* not USE_X_TOOLKIT */
2645 x_window (FRAME_PTR f
)
2647 if (! xg_create_frame_widgets (f
))
2648 error ("Unable to create window");
2651 FRAME_XIC (f
) = NULL
;
2655 create_frame_xic (f
);
2658 /* XIM server might require some X events. */
2659 unsigned long fevent
= NoEventMask
;
2660 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2662 if (fevent
!= NoEventMask
)
2664 XSetWindowAttributes attributes
;
2665 XWindowAttributes wattr
;
2666 unsigned long attribute_mask
;
2668 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2670 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2671 attribute_mask
= CWEventMask
;
2672 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2673 attribute_mask
, &attributes
);
2681 #else /*! USE_GTK */
2682 /* Create and set up the X window for frame F. */
2689 XClassHint class_hints
;
2690 XSetWindowAttributes attributes
;
2691 unsigned long attribute_mask
;
2693 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2694 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2695 attributes
.bit_gravity
= StaticGravity
;
2696 attributes
.backing_store
= NotUseful
;
2697 attributes
.save_under
= True
;
2698 attributes
.event_mask
= STANDARD_EVENT_SET
;
2699 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2700 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2705 = XCreateWindow (FRAME_X_DISPLAY (f
),
2706 f
->output_data
.x
->parent_desc
,
2709 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2711 CopyFromParent
, /* depth */
2712 InputOutput
, /* class */
2714 attribute_mask
, &attributes
);
2719 create_frame_xic (f
);
2722 /* XIM server might require some X events. */
2723 unsigned long fevent
= NoEventMask
;
2724 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2725 attributes
.event_mask
|= fevent
;
2726 attribute_mask
= CWEventMask
;
2727 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2728 attribute_mask
, &attributes
);
2731 #endif /* HAVE_X_I18N */
2733 validate_x_resource_name ();
2735 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2736 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2737 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2739 /* The menubar is part of the ordinary display;
2740 it does not count in addition to the height of the window. */
2741 f
->output_data
.x
->menubar_height
= 0;
2743 /* This indicates that we use the "Passive Input" input model.
2744 Unless we do this, we don't get the Focus{In,Out} events that we
2745 need to draw the cursor correctly. Accursed bureaucrats.
2746 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2748 f
->output_data
.x
->wm_hints
.input
= True
;
2749 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2750 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2751 &f
->output_data
.x
->wm_hints
);
2752 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2754 /* Request "save yourself" and "delete window" commands from wm. */
2757 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2758 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2759 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2762 /* x_set_name normally ignores requests to set the name if the
2763 requested name is the same as the current name. This is the one
2764 place where that assumption isn't correct; f->name is set, but
2765 the X server hasn't been told. */
2768 int explicit = f
->explicit_name
;
2770 f
->explicit_name
= 0;
2773 x_set_name (f
, name
, explicit);
2776 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2777 f
->output_data
.x
->current_cursor
2778 = f
->output_data
.x
->text_cursor
);
2782 if (FRAME_X_WINDOW (f
) == 0)
2783 error ("Unable to create window");
2786 #endif /* not USE_GTK */
2787 #endif /* not USE_X_TOOLKIT */
2789 /* Verify that the icon position args for this window are valid. */
2792 x_icon_verify (struct frame
*f
, Lisp_Object parms
)
2794 Lisp_Object icon_x
, icon_y
;
2796 /* Set the position of the icon. Note that twm groups all
2797 icons in an icon window. */
2798 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2799 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2800 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2802 CHECK_NUMBER (icon_x
);
2803 CHECK_NUMBER (icon_y
);
2805 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2806 error ("Both left and top icon corners of icon must be specified");
2809 /* Handle the icon stuff for this window. Perhaps later we might
2810 want an x_set_icon_position which can be called interactively as
2814 x_icon (struct frame
*f
, Lisp_Object parms
)
2816 Lisp_Object icon_x
, icon_y
;
2818 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2821 /* Set the position of the icon. Note that twm groups all
2822 icons in an icon window. */
2823 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2824 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2825 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2827 CHECK_NUMBER (icon_x
);
2828 CHECK_NUMBER (icon_y
);
2830 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2831 error ("Both left and top icon corners of icon must be specified");
2835 if (! EQ (icon_x
, Qunbound
))
2836 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2838 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2839 but x_create_frame still needs it. */
2840 /* Start up iconic or window? */
2841 x_wm_set_window_state
2842 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2848 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2855 /* Make the GCs needed for this window, setting the
2856 background, border and mouse colors; also create the
2857 mouse cursor and the gray border tile. */
2860 x_make_gc (struct frame
*f
)
2862 XGCValues gc_values
;
2866 /* Create the GCs of this frame.
2867 Note that many default values are used. */
2869 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2870 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2871 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2872 f
->output_data
.x
->normal_gc
2873 = XCreateGC (FRAME_X_DISPLAY (f
),
2875 GCLineWidth
| GCForeground
| GCBackground
,
2878 /* Reverse video style. */
2879 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2880 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2881 f
->output_data
.x
->reverse_gc
2882 = XCreateGC (FRAME_X_DISPLAY (f
),
2884 GCForeground
| GCBackground
| GCLineWidth
,
2887 /* Cursor has cursor-color background, background-color foreground. */
2888 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2889 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2890 gc_values
.fill_style
= FillOpaqueStippled
;
2891 f
->output_data
.x
->cursor_gc
2892 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2893 (GCForeground
| GCBackground
2894 | GCFillStyle
| GCLineWidth
),
2898 f
->output_data
.x
->white_relief
.gc
= 0;
2899 f
->output_data
.x
->black_relief
.gc
= 0;
2901 /* Create the gray border tile used when the pointer is not in
2902 the frame. Since this depends on the frame's pixel values,
2903 this must be done on a per-frame basis. */
2904 f
->output_data
.x
->border_tile
2905 = (XCreatePixmapFromBitmapData
2906 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2907 gray_bits
, gray_width
, gray_height
,
2908 FRAME_FOREGROUND_PIXEL (f
),
2909 FRAME_BACKGROUND_PIXEL (f
),
2910 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2916 /* Free what was allocated in x_make_gc. */
2919 x_free_gcs (struct frame
*f
)
2921 Display
*dpy
= FRAME_X_DISPLAY (f
);
2925 if (f
->output_data
.x
->normal_gc
)
2927 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2928 f
->output_data
.x
->normal_gc
= 0;
2931 if (f
->output_data
.x
->reverse_gc
)
2933 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2934 f
->output_data
.x
->reverse_gc
= 0;
2937 if (f
->output_data
.x
->cursor_gc
)
2939 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2940 f
->output_data
.x
->cursor_gc
= 0;
2943 if (f
->output_data
.x
->border_tile
)
2945 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2946 f
->output_data
.x
->border_tile
= 0;
2953 /* Handler for signals raised during x_create_frame and
2954 x_create_top_frame. FRAME is the frame which is partially
2958 unwind_create_frame (Lisp_Object frame
)
2960 struct frame
*f
= XFRAME (frame
);
2962 /* If frame is already dead, nothing to do. This can happen if the
2963 display is disconnected after the frame has become official, but
2964 before x_create_frame removes the unwind protect. */
2965 if (!FRAME_LIVE_P (f
))
2968 /* If frame is ``official'', nothing to do. */
2969 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2972 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2975 x_free_frame_resources (f
);
2978 /* Check that reference counts are indeed correct. */
2979 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2980 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2990 x_default_font_parameter (struct frame
*f
, Lisp_Object parms
)
2992 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2993 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
2995 Lisp_Object font
= Qnil
;
2996 if (EQ (font_param
, Qunbound
))
2999 if (NILP (font_param
))
3001 /* System font should take precedendce over X resources. We suggest this
3002 regardless of font-use-system-font because .emacs may not have been
3004 const char *system_font
= xsettings_get_system_font ();
3007 char *name
= xstrdup (system_font
);
3008 font
= font_open_by_name (f
, name
);
3014 font
= !NILP (font_param
) ? font_param
3015 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3017 if (! FONTP (font
) && ! STRINGP (font
))
3022 /* This will find the normal Xft font. */
3025 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
3026 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3027 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3028 /* This was formerly the first thing tried, but it finds
3029 too many fonts and takes too long. */
3030 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
3031 /* If those didn't work, look for something which will
3033 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
3038 for (i
= 0; names
[i
]; i
++)
3040 font
= font_open_by_name (f
, names
[i
]);
3045 error ("No suitable font was found");
3047 else if (!NILP (font_param
))
3049 /* Remember the explicit font parameter, so we can re-apply it after
3050 we've applied the `default' face settings. */
3051 x_set_frame_parameters (f
, Fcons (Fcons (Qfont_param
, font_param
), Qnil
));
3054 /* This call will make X resources override any system font setting. */
3055 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
3059 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
3061 doc
: /* Send the size hints for frame FRAME to the window manager.
3062 If FRAME is nil, use the selected frame. */)
3068 frame
= selected_frame
;
3072 x_wm_set_size_hint (f
, 0, 0);
3078 set_machine_and_pid_properties (struct frame
*f
)
3080 /* See the above comment "Note: Encoding strategy". */
3083 int do_free_text_value
= 0;
3084 long pid
= (long) getpid ();
3086 text
.value
= x_encode_text (Vsystem_name
,
3087 Qcompound_text
, 0, &bytes
, &stringp
,
3088 &do_free_text_value
);
3089 text
.encoding
= (stringp
? XA_STRING
3090 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
3092 text
.nitems
= bytes
;
3093 XSetWMClientMachine (FRAME_X_DISPLAY (f
),
3094 FRAME_OUTER_WINDOW (f
),
3096 if (do_free_text_value
)
3099 XChangeProperty (FRAME_X_DISPLAY (f
),
3100 FRAME_OUTER_WINDOW (f
),
3101 XInternAtom (FRAME_X_DISPLAY (f
),
3104 XA_CARDINAL
, 32, PropModeReplace
,
3105 (unsigned char *) &pid
, 1);
3108 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3110 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3111 Return an Emacs frame object.
3112 PARMS is an alist of frame parameters.
3113 If the parameters specify that the frame should not have a minibuffer,
3114 and do not specify a specific minibuffer window to use,
3115 then `default-minibuffer-frame' must be a frame whose minibuffer can
3116 be shared by the new frame.
3118 This function is an internal primitive--use `make-frame' instead. */)
3123 Lisp_Object frame
, tem
;
3125 int minibuffer_only
= 0;
3126 long window_prompting
= 0;
3128 int count
= SPECPDL_INDEX ();
3129 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3130 Lisp_Object display
;
3131 struct x_display_info
*dpyinfo
= NULL
;
3135 parms
= Fcopy_alist (parms
);
3137 /* Use this general default value to start with
3138 until we know if this frame has a specified name. */
3139 Vx_resource_name
= Vinvocation_name
;
3141 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3142 if (EQ (display
, Qunbound
))
3143 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3144 if (EQ (display
, Qunbound
))
3146 dpyinfo
= check_x_display_info (display
);
3147 kb
= dpyinfo
->terminal
->kboard
;
3149 if (!dpyinfo
->terminal
->name
)
3150 error ("Terminal is not live, can't create new frames on it");
3152 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3154 && ! EQ (name
, Qunbound
)
3156 error ("Invalid frame name--not a string or nil");
3159 Vx_resource_name
= name
;
3161 /* See if parent window is specified. */
3162 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3163 if (EQ (parent
, Qunbound
))
3165 if (! NILP (parent
))
3166 CHECK_NUMBER (parent
);
3168 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3169 /* No need to protect DISPLAY because that's not used after passing
3170 it to make_frame_without_minibuffer. */
3172 GCPRO4 (parms
, parent
, name
, frame
);
3173 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3175 if (EQ (tem
, Qnone
) || NILP (tem
))
3176 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3177 else if (EQ (tem
, Qonly
))
3179 f
= make_minibuffer_frame ();
3180 minibuffer_only
= 1;
3182 else if (WINDOWP (tem
))
3183 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3187 XSETFRAME (frame
, f
);
3189 /* Note that X Windows does support scroll bars. */
3190 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3192 f
->terminal
= dpyinfo
->terminal
;
3193 f
->terminal
->reference_count
++;
3195 f
->output_method
= output_x_window
;
3196 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3197 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3198 f
->output_data
.x
->icon_bitmap
= -1;
3199 FRAME_FONTSET (f
) = -1;
3200 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3201 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3202 #ifdef USE_TOOLKIT_SCROLL_BARS
3203 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3204 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3205 #endif /* USE_TOOLKIT_SCROLL_BARS */
3208 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3210 if (! STRINGP (f
->icon_name
))
3211 f
->icon_name
= Qnil
;
3213 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3215 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3216 record_unwind_protect (unwind_create_frame
, frame
);
3218 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
3219 dpyinfo_refcount
= dpyinfo
->reference_count
;
3220 #endif /* GLYPH_DEBUG */
3222 /* These colors will be set anyway later, but it's important
3223 to get the color reference counts right, so initialize them! */
3226 struct gcpro gcpro1
;
3228 /* Function x_decode_color can signal an error. Make
3229 sure to initialize color slots so that we won't try
3230 to free colors we haven't allocated. */
3231 FRAME_FOREGROUND_PIXEL (f
) = -1;
3232 FRAME_BACKGROUND_PIXEL (f
) = -1;
3233 f
->output_data
.x
->cursor_pixel
= -1;
3234 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3235 f
->output_data
.x
->border_pixel
= -1;
3236 f
->output_data
.x
->mouse_pixel
= -1;
3238 black
= build_string ("black");
3240 FRAME_FOREGROUND_PIXEL (f
)
3241 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3242 FRAME_BACKGROUND_PIXEL (f
)
3243 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3244 f
->output_data
.x
->cursor_pixel
3245 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3246 f
->output_data
.x
->cursor_foreground_pixel
3247 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3248 f
->output_data
.x
->border_pixel
3249 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3250 f
->output_data
.x
->mouse_pixel
3251 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3255 /* Specify the parent under which to make this X window. */
3259 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3260 f
->output_data
.x
->explicit_parent
= 1;
3264 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3265 f
->output_data
.x
->explicit_parent
= 0;
3268 /* Set the name; the functions to which we pass f expect the name to
3270 if (EQ (name
, Qunbound
) || NILP (name
))
3272 f
->name
= build_string (dpyinfo
->x_id_name
);
3273 f
->explicit_name
= 0;
3278 f
->explicit_name
= 1;
3279 /* use the frame's title when getting resources for this frame. */
3280 specbind (Qx_resource_name
, name
);
3283 f
->resx
= dpyinfo
->resx
;
3284 f
->resy
= dpyinfo
->resy
;
3286 #ifdef HAVE_FREETYPE
3288 register_font_driver (&xftfont_driver
, f
);
3289 #else /* not HAVE_XFT */
3290 register_font_driver (&ftxfont_driver
, f
);
3291 #endif /* not HAVE_XFT */
3292 #endif /* HAVE_FREETYPE */
3293 register_font_driver (&xfont_driver
, f
);
3295 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3296 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3298 /* Extract the window parameters from the supplied values
3299 that are needed to determine window geometry. */
3300 x_default_font_parameter (f
, parms
);
3301 if (!FRAME_FONT (f
))
3303 delete_frame (frame
, Qnoelisp
);
3304 error ("Invalid frame font");
3307 /* Frame contents get displaced if an embedded X window has a border. */
3308 if (! FRAME_X_EMBEDDED_P (f
))
3309 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
3310 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3312 /* This defaults to 1 in order to match xterm. We recognize either
3313 internalBorderWidth or internalBorder (which is what xterm calls
3315 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3319 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3320 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3321 if (! EQ (value
, Qunbound
))
3322 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3325 x_default_parameter (f
, parms
, Qinternal_border_width
,
3326 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3331 "internalBorderWidth", "internalBorderWidth",
3333 x_default_parameter (f
, parms
, Qvertical_scroll_bars
,
3334 #if defined(USE_GTK) && defined(USE_TOOLKIT_SCROLL_BARS)
3339 "verticalScrollBars", "ScrollBars",
3342 /* Also do the stuff which must be set before the window exists. */
3343 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3344 "foreground", "Foreground", RES_TYPE_STRING
);
3345 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3346 "background", "Background", RES_TYPE_STRING
);
3347 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3348 "pointerColor", "Foreground", RES_TYPE_STRING
);
3349 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3350 "cursorColor", "Foreground", RES_TYPE_STRING
);
3351 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3352 "borderColor", "BorderColor", RES_TYPE_STRING
);
3353 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3354 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3355 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3356 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3357 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3358 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3359 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3360 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3362 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3363 "scrollBarForeground",
3364 "ScrollBarForeground", 1);
3365 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3366 "scrollBarBackground",
3367 "ScrollBarBackground", 0);
3369 /* Init faces before x_default_parameter is called for scroll-bar
3370 parameters because that function calls x_set_scroll_bar_width,
3371 which calls change_frame_size, which calls Fset_window_buffer,
3372 which runs hooks, which call Fvertical_motion. At the end, we
3373 end up in init_iterator with a null face cache, which should not
3375 init_frame_faces (f
);
3377 /* The X resources controlling the menu-bar and tool-bar are
3378 processed specially at startup, and reflected in the mode
3379 variables; ignore them here. */
3380 x_default_parameter (f
, parms
, Qmenu_bar_lines
,
3381 NILP (Vmenu_bar_mode
)
3382 ? make_number (0) : make_number (1),
3383 NULL
, NULL
, RES_TYPE_NUMBER
);
3384 x_default_parameter (f
, parms
, Qtool_bar_lines
,
3385 NILP (Vtool_bar_mode
)
3386 ? make_number (0) : make_number (1),
3387 NULL
, NULL
, RES_TYPE_NUMBER
);
3389 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3390 "bufferPredicate", "BufferPredicate",
3392 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3393 "title", "Title", RES_TYPE_STRING
);
3394 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3395 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3396 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3397 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3399 /* Compute the size of the X window. */
3400 window_prompting
= x_figure_window_size (f
, parms
, 1);
3402 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3403 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3405 x_icon_verify (f
, parms
);
3407 /* Create the X widget or window. */
3408 #ifdef USE_X_TOOLKIT
3409 x_window (f
, window_prompting
, minibuffer_only
);
3417 /* Now consider the frame official. */
3418 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3419 Vframe_list
= Fcons (frame
, Vframe_list
);
3421 /* We need to do this after creating the X window, so that the
3422 icon-creation functions can say whose icon they're describing. */
3423 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3424 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3426 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3427 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3428 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3429 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3430 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3431 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3432 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3433 "scrollBarWidth", "ScrollBarWidth",
3435 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3436 "alpha", "Alpha", RES_TYPE_NUMBER
);
3438 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3439 Change will not be effected unless different from the current
3441 width
= FRAME_COLS (f
);
3442 height
= FRAME_LINES (f
);
3444 SET_FRAME_COLS (f
, 0);
3445 FRAME_LINES (f
) = 0;
3446 change_frame_size (f
, height
, width
, 1, 0, 0);
3448 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3449 /* Create the menu bar. */
3450 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3452 /* If this signals an error, we haven't set size hints for the
3453 frame and we didn't make it visible. */
3454 initialize_frame_menubar (f
);
3457 /* This is a no-op, except under Motif where it arranges the
3458 main window for the widgets on it. */
3459 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3460 f
->output_data
.x
->menubar_widget
,
3461 f
->output_data
.x
->edit_widget
);
3462 #endif /* not USE_GTK */
3464 #endif /* USE_X_TOOLKIT || USE_GTK */
3466 /* Tell the server what size and position, etc, we want, and how
3467 badly we want them. This should be done after we have the menu
3468 bar so that its size can be taken into account. */
3470 x_wm_set_size_hint (f
, window_prompting
, 0);
3473 /* Make the window appear on the frame and enable display, unless
3474 the caller says not to. However, with explicit parent, Emacs
3475 cannot control visibility, so don't try. */
3476 if (! f
->output_data
.x
->explicit_parent
)
3478 Lisp_Object visibility
;
3480 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3482 if (EQ (visibility
, Qunbound
))
3485 if (EQ (visibility
, Qicon
))
3486 x_iconify_frame (f
);
3487 else if (! NILP (visibility
))
3488 x_make_frame_visible (f
);
3490 /* Must have been Qnil. */
3496 /* Set machine name and pid for the purpose of window managers. */
3497 set_machine_and_pid_properties(f
);
3499 /* Set the WM leader property. GTK does this itself, so this is not
3500 needed when using GTK. */
3501 if (dpyinfo
->client_leader_window
!= 0)
3503 XChangeProperty (FRAME_X_DISPLAY (f
),
3504 FRAME_OUTER_WINDOW (f
),
3505 dpyinfo
->Xatom_wm_client_leader
,
3506 XA_WINDOW
, 32, PropModeReplace
,
3507 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3512 /* Initialize `default-minibuffer-frame' in case this is the first
3513 frame on this terminal. */
3514 if (FRAME_HAS_MINIBUF_P (f
)
3515 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3516 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3517 kb
->Vdefault_minibuffer_frame
= frame
;
3519 /* All remaining specified parameters, which have not been "used"
3520 by x_get_arg and friends, now go in the misc. alist of the frame. */
3521 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3522 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3523 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3527 /* Make sure windows on this frame appear in calls to next-window
3528 and similar functions. */
3529 Vwindow_list
= Qnil
;
3531 return unbind_to (count
, frame
);
3535 /* FRAME is used only to get a handle on the X display. We don't pass the
3536 display info directly because we're called from frame.c, which doesn't
3537 know about that structure. */
3540 x_get_focus_frame (struct frame
*frame
)
3542 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3544 if (! dpyinfo
->x_focus_frame
)
3547 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3552 /* In certain situations, when the window manager follows a
3553 click-to-focus policy, there seems to be no way around calling
3554 XSetInputFocus to give another frame the input focus .
3556 In an ideal world, XSetInputFocus should generally be avoided so
3557 that applications don't interfere with the window manager's focus
3558 policy. But I think it's okay to use when it's clearly done
3559 following a user-command. */
3561 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3562 doc
: /* Set the input focus to FRAME.
3563 FRAME nil means use the selected frame. */)
3567 struct frame
*f
= check_x_frame (frame
);
3568 Display
*dpy
= FRAME_X_DISPLAY (f
);
3571 x_catch_errors (dpy
);
3572 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3573 RevertToParent
, CurrentTime
);
3574 x_ewmh_activate_frame (f
);
3575 x_uncatch_errors ();
3582 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3583 doc
: /* Internal function called by `color-defined-p', which see. */)
3585 Lisp_Object color
, frame
;
3588 FRAME_PTR f
= check_x_frame (frame
);
3590 CHECK_STRING (color
);
3592 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3598 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3599 doc
: /* Internal function called by `color-values', which see. */)
3601 Lisp_Object color
, frame
;
3604 FRAME_PTR f
= check_x_frame (frame
);
3606 CHECK_STRING (color
);
3608 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3609 return list3 (make_number (foo
.red
),
3610 make_number (foo
.green
),
3611 make_number (foo
.blue
));
3616 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3617 doc
: /* Internal function called by `display-color-p', which see. */)
3619 Lisp_Object terminal
;
3621 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3623 if (dpyinfo
->n_planes
<= 2)
3626 switch (dpyinfo
->visual
->class)
3639 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3641 doc
: /* Return t if the X display supports shades of gray.
3642 Note that color displays do support shades of gray.
3643 The optional argument TERMINAL specifies which display to ask about.
3644 TERMINAL should be a terminal object, a frame or a display name (a string).
3645 If omitted or nil, that stands for the selected frame's display. */)
3647 Lisp_Object terminal
;
3649 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3651 if (dpyinfo
->n_planes
<= 1)
3654 switch (dpyinfo
->visual
->class)
3669 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3671 doc
: /* Return the width in pixels of the X display TERMINAL.
3672 The optional argument TERMINAL specifies which display to ask about.
3673 TERMINAL should be a terminal object, a frame or a display name (a string).
3674 If omitted or nil, that stands for the selected frame's display. */)
3676 Lisp_Object terminal
;
3678 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3680 return make_number (x_display_pixel_width (dpyinfo
));
3683 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3684 Sx_display_pixel_height
, 0, 1, 0,
3685 doc
: /* Return the height in pixels of the X display TERMINAL.
3686 The optional argument TERMINAL specifies which display to ask about.
3687 TERMINAL should be a terminal object, a frame or a display name (a string).
3688 If omitted or nil, that stands for the selected frame's display. */)
3690 Lisp_Object terminal
;
3692 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3694 return make_number (x_display_pixel_height (dpyinfo
));
3697 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3699 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3700 The optional argument TERMINAL specifies which display to ask about.
3701 TERMINAL should be a terminal object, a frame or a display name (a string).
3702 If omitted or nil, that stands for the selected frame's display. */)
3704 Lisp_Object terminal
;
3706 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3708 return make_number (dpyinfo
->n_planes
);
3711 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3713 doc
: /* Return the number of color cells of the X display TERMINAL.
3714 The optional argument TERMINAL specifies which display to ask about.
3715 TERMINAL should be a terminal object, a frame or a display name (a string).
3716 If omitted or nil, that stands for the selected frame's display. */)
3718 Lisp_Object terminal
;
3720 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3722 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3723 XScreenNumberOfScreen (dpyinfo
->screen
));
3725 /* Truncate nr_planes to 24 to avoid integer overflow.
3726 Some displays says 32, but only 24 bits are actually significant.
3727 There are only very few and rare video cards that have more than
3728 24 significant bits. Also 24 bits is more than 16 million colors,
3729 it "should be enough for everyone". */
3730 if (nr_planes
> 24) nr_planes
= 24;
3732 return make_number (1 << nr_planes
);
3735 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3736 Sx_server_max_request_size
,
3738 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3739 The optional argument TERMINAL specifies which display to ask about.
3740 TERMINAL should be a terminal object, a frame or a display name (a string).
3741 If omitted or nil, that stands for the selected frame's display. */)
3743 Lisp_Object terminal
;
3745 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3747 return make_number (MAXREQUEST (dpyinfo
->display
));
3750 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3751 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3752 \(Labelling every distributor as a "vendor" embodies the false assumption
3753 that operating systems cannot be developed and distributed noncommercially.)
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. */)
3758 Lisp_Object terminal
;
3760 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3761 char *vendor
= ServerVendor (dpyinfo
->display
);
3763 if (! vendor
) vendor
= "";
3764 return build_string (vendor
);
3767 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3768 doc
: /* Return the version numbers of the X server of display TERMINAL.
3769 The value is a list of three integers: the major and minor
3770 version numbers of the X Protocol in use, and the distributor-specific release
3771 number. See also the function `x-server-vendor'.
3773 The optional argument TERMINAL specifies which display to ask about.
3774 TERMINAL should be a terminal object, a frame or a display name (a string).
3775 If omitted or nil, that stands for the selected frame's display. */)
3777 Lisp_Object terminal
;
3779 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3780 Display
*dpy
= dpyinfo
->display
;
3782 return Fcons (make_number (ProtocolVersion (dpy
)),
3783 Fcons (make_number (ProtocolRevision (dpy
)),
3784 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3787 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3788 doc
: /* Return the number of screens on the X server of display TERMINAL.
3789 The optional argument TERMINAL specifies which display to ask about.
3790 TERMINAL should be a terminal object, a frame or a display name (a string).
3791 If omitted or nil, that stands for the selected frame's display. */)
3793 Lisp_Object terminal
;
3795 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3797 return make_number (ScreenCount (dpyinfo
->display
));
3800 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3801 doc
: /* Return the height in millimeters of the X display TERMINAL.
3802 The optional argument TERMINAL specifies which display to ask about.
3803 TERMINAL should be a terminal object, a frame or a display name (a string).
3804 If omitted or nil, that stands for the selected frame's display. */)
3806 Lisp_Object terminal
;
3808 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3810 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3813 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3814 doc
: /* Return the width in millimeters of the X display TERMINAL.
3815 The optional argument TERMINAL specifies which display to ask about.
3816 TERMINAL should be a terminal object, a frame or a display name (a string).
3817 If omitted or nil, that stands for the selected frame's display. */)
3819 Lisp_Object terminal
;
3821 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3823 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3826 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3827 Sx_display_backing_store
, 0, 1, 0,
3828 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3829 The value may be `always', `when-mapped', or `not-useful'.
3830 The optional argument TERMINAL specifies which display to ask about.
3831 TERMINAL should be a terminal object, a frame or a display name (a string).
3832 If omitted or nil, that stands for the selected frame's display. */)
3834 Lisp_Object terminal
;
3836 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3839 switch (DoesBackingStore (dpyinfo
->screen
))
3842 result
= intern ("always");
3846 result
= intern ("when-mapped");
3850 result
= intern ("not-useful");
3854 error ("Strange value for BackingStore parameter of screen");
3861 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3862 Sx_display_visual_class
, 0, 1, 0,
3863 doc
: /* Return the visual class of the X display TERMINAL.
3864 The value is one of the symbols `static-gray', `gray-scale',
3865 `static-color', `pseudo-color', `true-color', or `direct-color'.
3867 The optional argument TERMINAL specifies which display to ask about.
3868 TERMINAL should a terminal object, a frame or a display name (a string).
3869 If omitted or nil, that stands for the selected frame's display. */)
3871 Lisp_Object terminal
;
3873 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3876 switch (dpyinfo
->visual
->class)
3879 result
= intern ("static-gray");
3882 result
= intern ("gray-scale");
3885 result
= intern ("static-color");
3888 result
= intern ("pseudo-color");
3891 result
= intern ("true-color");
3894 result
= intern ("direct-color");
3897 error ("Display has an unknown visual class");
3904 DEFUN ("x-display-save-under", Fx_display_save_under
,
3905 Sx_display_save_under
, 0, 1, 0,
3906 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3907 The optional argument TERMINAL specifies which display to ask about.
3908 TERMINAL should be a terminal object, a frame or a display name (a string).
3909 If omitted or nil, that stands for the selected frame's display. */)
3911 Lisp_Object terminal
;
3913 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3915 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3922 x_pixel_width (register struct frame
*f
)
3924 return FRAME_PIXEL_WIDTH (f
);
3928 x_pixel_height (register struct frame
*f
)
3930 return FRAME_PIXEL_HEIGHT (f
);
3934 x_char_width (register struct frame
*f
)
3936 return FRAME_COLUMN_WIDTH (f
);
3940 x_char_height (register struct frame
*f
)
3942 return FRAME_LINE_HEIGHT (f
);
3946 x_screen_planes (register struct frame
*f
)
3948 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3953 /************************************************************************
3955 ************************************************************************/
3958 /* Mapping visual names to visuals. */
3960 static struct visual_class
3967 {"StaticGray", StaticGray
},
3968 {"GrayScale", GrayScale
},
3969 {"StaticColor", StaticColor
},
3970 {"PseudoColor", PseudoColor
},
3971 {"TrueColor", TrueColor
},
3972 {"DirectColor", DirectColor
},
3977 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3979 /* Value is the screen number of screen SCR. This is a substitute for
3980 the X function with the same name when that doesn't exist. */
3983 XScreenNumberOfScreen (scr
)
3984 register Screen
*scr
;
3986 Display
*dpy
= scr
->display
;
3989 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3990 if (scr
== dpy
->screens
+ i
)
3996 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3999 /* Select the visual that should be used on display DPYINFO. Set
4000 members of DPYINFO appropriately. Called from x_term_init. */
4003 select_visual (struct x_display_info
*dpyinfo
)
4005 Display
*dpy
= dpyinfo
->display
;
4006 Screen
*screen
= dpyinfo
->screen
;
4009 /* See if a visual is specified. */
4010 value
= display_x_get_resource (dpyinfo
,
4011 build_string ("visualClass"),
4012 build_string ("VisualClass"),
4014 if (STRINGP (value
))
4016 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
4017 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4018 depth, a decimal number. NAME is compared with case ignored. */
4019 char *s
= (char *) alloca (SBYTES (value
) + 1);
4024 strcpy (s
, SDATA (value
));
4025 dash
= index (s
, '-');
4028 dpyinfo
->n_planes
= atoi (dash
+ 1);
4032 /* We won't find a matching visual with depth 0, so that
4033 an error will be printed below. */
4034 dpyinfo
->n_planes
= 0;
4036 /* Determine the visual class. */
4037 for (i
= 0; visual_classes
[i
].name
; ++i
)
4038 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4040 class = visual_classes
[i
].class;
4044 /* Look up a matching visual for the specified class. */
4046 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4047 dpyinfo
->n_planes
, class, &vinfo
))
4048 fatal ("Invalid visual specification `%s'", SDATA (value
));
4050 dpyinfo
->visual
= vinfo
.visual
;
4055 XVisualInfo
*vinfo
, vinfo_template
;
4057 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4059 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4060 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4061 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4062 &vinfo_template
, &n_visuals
);
4064 fatal ("Can't get proper X visual info");
4066 dpyinfo
->n_planes
= vinfo
->depth
;
4067 XFree ((char *) vinfo
);
4072 /* Return the X display structure for the display named NAME.
4073 Open a new connection if necessary. */
4075 struct x_display_info
*
4076 x_display_info_for_name (Lisp_Object name
)
4079 struct x_display_info
*dpyinfo
;
4081 CHECK_STRING (name
);
4084 if (! EQ (Vinitial_window_system
, intern ("x")))
4085 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4088 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4090 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4093 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4098 /* Use this general default value to start with. */
4099 Vx_resource_name
= Vinvocation_name
;
4101 validate_x_resource_name ();
4103 dpyinfo
= x_term_init (name
, (char *)0,
4104 (char *) SDATA (Vx_resource_name
));
4107 error ("Cannot connect to X server %s", SDATA (name
));
4110 XSETFASTINT (Vwindow_system_version
, 11);
4116 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4118 doc
: /* Open a connection to an X server.
4119 DISPLAY is the name of the display to connect to.
4120 Optional second arg XRM-STRING is a string of resources in xrdb format.
4121 If the optional third arg MUST-SUCCEED is non-nil,
4122 terminate Emacs if we can't open the connection. */)
4123 (display
, xrm_string
, must_succeed
)
4124 Lisp_Object display
, xrm_string
, must_succeed
;
4126 unsigned char *xrm_option
;
4127 struct x_display_info
*dpyinfo
;
4129 CHECK_STRING (display
);
4130 if (! NILP (xrm_string
))
4131 CHECK_STRING (xrm_string
);
4134 if (! EQ (Vinitial_window_system
, intern ("x")))
4135 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4138 if (! NILP (xrm_string
))
4139 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4141 xrm_option
= (unsigned char *) 0;
4143 validate_x_resource_name ();
4145 /* This is what opens the connection and sets x_current_display.
4146 This also initializes many symbols, such as those used for input. */
4147 dpyinfo
= x_term_init (display
, xrm_option
,
4148 (char *) SDATA (Vx_resource_name
));
4152 if (!NILP (must_succeed
))
4153 fatal ("Cannot connect to X server %s.\n\
4154 Check the DISPLAY environment variable or use `-d'.\n\
4155 Also use the `xauth' program to verify that you have the proper\n\
4156 authorization information needed to connect the X server.\n\
4157 An insecure way to solve the problem may be to use `xhost'.\n",
4160 error ("Cannot connect to X server %s", SDATA (display
));
4165 XSETFASTINT (Vwindow_system_version
, 11);
4169 DEFUN ("x-close-connection", Fx_close_connection
,
4170 Sx_close_connection
, 1, 1, 0,
4171 doc
: /* Close the connection to TERMINAL's X server.
4172 For TERMINAL, specify a terminal object, a frame or a display name (a
4173 string). If TERMINAL is nil, that stands for the selected frame's
4176 Lisp_Object terminal
;
4178 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4180 if (dpyinfo
->reference_count
> 0)
4181 error ("Display still has frames on it");
4183 x_delete_terminal (dpyinfo
->terminal
);
4188 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4189 doc
: /* Return the list of display names that Emacs has connections to. */)
4192 Lisp_Object tail
, result
;
4195 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4196 result
= Fcons (XCAR (XCAR (tail
)), result
);
4201 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4202 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4203 If ON is nil, allow buffering of requests.
4204 Turning on synchronization prohibits the Xlib routines from buffering
4205 requests and seriously degrades performance, but makes debugging much
4207 The optional second argument TERMINAL specifies which display to act on.
4208 TERMINAL should be a terminal object, a frame or a display name (a string).
4209 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4211 Lisp_Object terminal
, on
;
4213 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4215 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4220 /* Wait for responses to all X commands issued so far for frame F. */
4223 x_sync (FRAME_PTR f
)
4226 XSync (FRAME_X_DISPLAY (f
), False
);
4231 /***********************************************************************
4233 ***********************************************************************/
4235 DEFUN ("x-change-window-property", Fx_change_window_property
,
4236 Sx_change_window_property
, 2, 6, 0,
4237 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4238 PROP must be a string.
4239 VALUE may be a string or a list of conses, numbers and/or strings.
4240 If an element in the list is a string, it is converted to
4241 an Atom and the value of the Atom is used. If an element is a cons,
4242 it is converted to a 32 bit number where the car is the 16 top bits and the
4243 cdr is the lower 16 bits.
4244 FRAME nil or omitted means use the selected frame.
4245 If TYPE is given and non-nil, it is the name of the type of VALUE.
4246 If TYPE is not given or nil, the type is STRING.
4247 FORMAT gives the size in bits of each element if VALUE is a list.
4248 It must be one of 8, 16 or 32.
4249 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4250 If OUTER_P is non-nil, the property is changed for the outer X window of
4251 FRAME. Default is to change on the edit X window.
4254 (prop
, value
, frame
, type
, format
, outer_p
)
4255 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4257 struct frame
*f
= check_x_frame (frame
);
4259 Atom target_type
= XA_STRING
;
4260 int element_format
= 8;
4261 unsigned char *data
;
4265 CHECK_STRING (prop
);
4267 if (! NILP (format
))
4269 CHECK_NUMBER (format
);
4270 element_format
= XFASTINT (format
);
4272 if (element_format
!= 8 && element_format
!= 16
4273 && element_format
!= 32)
4274 error ("FORMAT must be one of 8, 16 or 32");
4279 nelements
= x_check_property_data (value
);
4280 if (nelements
== -1)
4281 error ("Bad data in VALUE, must be number, string or cons");
4283 if (element_format
== 8)
4284 data
= (unsigned char *) xmalloc (nelements
);
4285 else if (element_format
== 16)
4286 data
= (unsigned char *) xmalloc (nelements
*2);
4287 else /* format == 32 */
4288 /* The man page for XChangeProperty:
4289 "If the specified format is 32, the property data must be a
4291 This applies even if long is more than 64 bits. The X library
4292 converts to 32 bits before sending to the X server. */
4293 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4295 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4299 CHECK_STRING (value
);
4300 data
= SDATA (value
);
4301 nelements
= SCHARS (value
);
4305 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4308 CHECK_STRING (type
);
4309 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4312 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4313 else w
= FRAME_X_WINDOW (f
);
4315 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4316 prop_atom
, target_type
, element_format
, PropModeReplace
,
4319 if (CONSP (value
)) xfree (data
);
4321 /* Make sure the property is set when we return. */
4322 XFlush (FRAME_X_DISPLAY (f
));
4329 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4330 Sx_delete_window_property
, 1, 2, 0,
4331 doc
: /* Remove window property PROP from X window of FRAME.
4332 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4334 Lisp_Object prop
, frame
;
4336 struct frame
*f
= check_x_frame (frame
);
4339 CHECK_STRING (prop
);
4341 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4342 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4344 /* Make sure the property is removed when we return. */
4345 XFlush (FRAME_X_DISPLAY (f
));
4352 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4354 doc
: /* Value is the value of window property PROP on FRAME.
4355 If FRAME is nil or omitted, use the selected frame.
4356 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4357 is the name of the Atom that denotes the type expected.
4358 If SOURCE is non-nil, get the property on that window instead of from
4359 FRAME. The number 0 denotes the root window.
4360 If DELETE_P is non-nil, delete the property after retreiving it.
4361 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4363 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4364 no value of TYPE. */)
4365 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4366 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4368 struct frame
*f
= check_x_frame (frame
);
4371 Lisp_Object prop_value
= Qnil
;
4372 unsigned char *tmp_data
= NULL
;
4374 Atom target_type
= XA_STRING
;
4376 unsigned long actual_size
, bytes_remaining
;
4377 Window target_window
= FRAME_X_WINDOW (f
);
4378 struct gcpro gcpro1
;
4380 GCPRO1 (prop_value
);
4381 CHECK_STRING (prop
);
4383 if (! NILP (source
))
4385 if (NUMBERP (source
))
4387 if (FLOATP (source
))
4388 target_window
= (Window
) XFLOAT (source
);
4390 target_window
= XFASTINT (source
);
4392 if (target_window
== 0)
4393 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4395 else if (CONSP (source
))
4396 target_window
= cons_to_long (source
);
4402 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4403 target_type
= AnyPropertyType
;
4405 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4408 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4409 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4410 prop_atom
, 0, 0, False
, target_type
,
4411 &actual_type
, &actual_format
, &actual_size
,
4412 &bytes_remaining
, &tmp_data
);
4415 int size
= bytes_remaining
;
4420 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4421 prop_atom
, 0, bytes_remaining
,
4422 ! NILP (delete_p
), target_type
,
4423 &actual_type
, &actual_format
,
4424 &actual_size
, &bytes_remaining
,
4426 if (rc
== Success
&& tmp_data
)
4428 /* The man page for XGetWindowProperty says:
4429 "If the returned format is 32, the returned data is represented
4430 as a long array and should be cast to that type to obtain the
4432 This applies even if long is more than 32 bits, the X library
4433 converts from 32 bit elements received from the X server to long
4434 and passes the long array to us. Thus, for that case bcopy can not
4435 be used. We convert to a 32 bit type here, because so much code
4438 The bytes and offsets passed to XGetWindowProperty refers to the
4439 property and those are indeed in 32 bit quantities if format is
4442 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4445 int *idata
= (int *) tmp_data
;
4446 long *ldata
= (long *) tmp_data
;
4448 for (i
= 0; i
< actual_size
; ++i
)
4449 idata
[i
] = (int) ldata
[i
];
4452 if (NILP (vector_ret_p
))
4453 prop_value
= make_string (tmp_data
, size
);
4455 prop_value
= x_property_data_to_lisp (f
,
4462 if (tmp_data
) XFree (tmp_data
);
4472 /***********************************************************************
4474 ***********************************************************************/
4476 /* Timer function of hourglass_atimer. TIMER is equal to
4479 Display an hourglass pointer on all frames by mapping the frames'
4480 hourglass_window. Set the hourglass_p flag in the frames'
4481 output_data.x structure to indicate that an hourglass cursor is
4482 shown on the frames. */
4485 show_hourglass (struct atimer
*timer
)
4487 /* The timer implementation will cancel this timer automatically
4488 after this function has run. Set hourglass_atimer to null
4489 so that we know the timer doesn't have to be canceled. */
4490 hourglass_atimer
= NULL
;
4492 if (!hourglass_shown_p
)
4494 Lisp_Object rest
, frame
;
4498 FOR_EACH_FRAME (rest
, frame
)
4500 struct frame
*f
= XFRAME (frame
);
4502 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4504 Display
*dpy
= FRAME_X_DISPLAY (f
);
4506 #ifdef USE_X_TOOLKIT
4507 if (f
->output_data
.x
->widget
)
4509 if (FRAME_OUTER_WINDOW (f
))
4512 f
->output_data
.x
->hourglass_p
= 1;
4514 if (!f
->output_data
.x
->hourglass_window
)
4516 unsigned long mask
= CWCursor
;
4517 XSetWindowAttributes attrs
;
4519 Window parent
= FRAME_X_WINDOW (f
);
4521 Window parent
= FRAME_OUTER_WINDOW (f
);
4523 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4525 f
->output_data
.x
->hourglass_window
4526 = XCreateWindow (dpy
, parent
,
4527 0, 0, 32000, 32000, 0, 0,
4533 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4539 hourglass_shown_p
= 1;
4545 /* Hide the hourglass pointer on all frames, if it is currently
4549 hide_hourglass (void)
4551 if (hourglass_shown_p
)
4553 Lisp_Object rest
, frame
;
4556 FOR_EACH_FRAME (rest
, frame
)
4558 struct frame
*f
= XFRAME (frame
);
4561 /* Watch out for newly created frames. */
4562 && f
->output_data
.x
->hourglass_window
)
4564 XUnmapWindow (FRAME_X_DISPLAY (f
),
4565 f
->output_data
.x
->hourglass_window
);
4566 /* Sync here because XTread_socket looks at the
4567 hourglass_p flag that is reset to zero below. */
4568 XSync (FRAME_X_DISPLAY (f
), False
);
4569 f
->output_data
.x
->hourglass_p
= 0;
4573 hourglass_shown_p
= 0;
4580 /***********************************************************************
4582 ***********************************************************************/
4584 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4585 Lisp_Object
, Lisp_Object
);
4586 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4587 Lisp_Object
, int, int, int *, int *);
4589 /* The frame of a currently visible tooltip. */
4591 Lisp_Object tip_frame
;
4593 /* If non-nil, a timer started that hides the last tooltip when it
4596 Lisp_Object tip_timer
;
4599 /* If non-nil, a vector of 3 elements containing the last args
4600 with which x-show-tip was called. See there. */
4602 Lisp_Object last_show_tip_args
;
4604 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4606 Lisp_Object Vx_max_tooltip_size
;
4610 unwind_create_tip_frame (Lisp_Object frame
)
4612 Lisp_Object deleted
;
4614 deleted
= unwind_create_frame (frame
);
4615 if (EQ (deleted
, Qt
))
4625 /* Create a frame for a tooltip on the display described by DPYINFO.
4626 PARMS is a list of frame parameters. TEXT is the string to
4627 display in the tip frame. Value is the frame.
4629 Note that functions called here, esp. x_default_parameter can
4630 signal errors, for instance when a specified color name is
4631 undefined. We have to make sure that we're in a consistent state
4632 when this happens. */
4635 x_create_tip_frame (struct x_display_info
*dpyinfo
, Lisp_Object parms
, Lisp_Object text
)
4638 Lisp_Object frame
, tem
;
4640 long window_prompting
= 0;
4642 int count
= SPECPDL_INDEX ();
4643 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4644 int face_change_count_before
= face_change_count
;
4646 struct buffer
*old_buffer
;
4650 if (!dpyinfo
->terminal
->name
)
4651 error ("Terminal is not live, can't create new frames on it");
4653 parms
= Fcopy_alist (parms
);
4655 /* Get the name of the frame to use for resource lookup. */
4656 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4658 && !EQ (name
, Qunbound
)
4660 error ("Invalid frame name--not a string or nil");
4663 GCPRO3 (parms
, name
, frame
);
4665 XSETFRAME (frame
, f
);
4667 buffer
= Fget_buffer_create (build_string (" *tip*"));
4668 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4669 old_buffer
= current_buffer
;
4670 set_buffer_internal_1 (XBUFFER (buffer
));
4671 current_buffer
->truncate_lines
= Qnil
;
4672 specbind (Qinhibit_read_only
, Qt
);
4673 specbind (Qinhibit_modification_hooks
, Qt
);
4676 set_buffer_internal_1 (old_buffer
);
4678 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4679 record_unwind_protect (unwind_create_tip_frame
, frame
);
4681 f
->terminal
= dpyinfo
->terminal
;
4682 f
->terminal
->reference_count
++;
4684 /* By setting the output method, we're essentially saying that
4685 the frame is live, as per FRAME_LIVE_P. If we get a signal
4686 from this point on, x_destroy_window might screw up reference
4688 f
->output_method
= output_x_window
;
4689 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4690 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4691 f
->output_data
.x
->icon_bitmap
= -1;
4692 FRAME_FONTSET (f
) = -1;
4693 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4694 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4695 #ifdef USE_TOOLKIT_SCROLL_BARS
4696 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4697 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4698 #endif /* USE_TOOLKIT_SCROLL_BARS */
4699 f
->icon_name
= Qnil
;
4700 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4702 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
4703 dpyinfo_refcount
= dpyinfo
->reference_count
;
4704 #endif /* GLYPH_DEBUG */
4705 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4706 f
->output_data
.x
->explicit_parent
= 0;
4708 /* These colors will be set anyway later, but it's important
4709 to get the color reference counts right, so initialize them! */
4712 struct gcpro gcpro1
;
4714 /* Function x_decode_color can signal an error. Make
4715 sure to initialize color slots so that we won't try
4716 to free colors we haven't allocated. */
4717 FRAME_FOREGROUND_PIXEL (f
) = -1;
4718 FRAME_BACKGROUND_PIXEL (f
) = -1;
4719 f
->output_data
.x
->cursor_pixel
= -1;
4720 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4721 f
->output_data
.x
->border_pixel
= -1;
4722 f
->output_data
.x
->mouse_pixel
= -1;
4724 black
= build_string ("black");
4726 FRAME_FOREGROUND_PIXEL (f
)
4727 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4728 FRAME_BACKGROUND_PIXEL (f
)
4729 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4730 f
->output_data
.x
->cursor_pixel
4731 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4732 f
->output_data
.x
->cursor_foreground_pixel
4733 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4734 f
->output_data
.x
->border_pixel
4735 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4736 f
->output_data
.x
->mouse_pixel
4737 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4741 /* Set the name; the functions to which we pass f expect the name to
4743 if (EQ (name
, Qunbound
) || NILP (name
))
4745 f
->name
= build_string (dpyinfo
->x_id_name
);
4746 f
->explicit_name
= 0;
4751 f
->explicit_name
= 1;
4752 /* use the frame's title when getting resources for this frame. */
4753 specbind (Qx_resource_name
, name
);
4756 f
->resx
= dpyinfo
->resx
;
4757 f
->resy
= dpyinfo
->resy
;
4759 register_font_driver (&xfont_driver
, f
);
4760 #ifdef HAVE_FREETYPE
4762 register_font_driver (&xftfont_driver
, f
);
4763 #else /* not HAVE_XFT */
4764 register_font_driver (&ftxfont_driver
, f
);
4765 #endif /* not HAVE_XFT */
4766 #endif /* HAVE_FREETYPE */
4768 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4769 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4771 /* Extract the window parameters from the supplied values that are
4772 needed to determine window geometry. */
4773 x_default_font_parameter (f
, parms
);
4775 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
4776 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4778 /* This defaults to 2 in order to match xterm. We recognize either
4779 internalBorderWidth or internalBorder (which is what xterm calls
4781 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4785 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4786 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4787 if (! EQ (value
, Qunbound
))
4788 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4792 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4793 "internalBorderWidth", "internalBorderWidth",
4796 /* Also do the stuff which must be set before the window exists. */
4797 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4798 "foreground", "Foreground", RES_TYPE_STRING
);
4799 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4800 "background", "Background", RES_TYPE_STRING
);
4801 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4802 "pointerColor", "Foreground", RES_TYPE_STRING
);
4803 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4804 "cursorColor", "Foreground", RES_TYPE_STRING
);
4805 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4806 "borderColor", "BorderColor", RES_TYPE_STRING
);
4808 /* Init faces before x_default_parameter is called for scroll-bar
4809 parameters because that function calls x_set_scroll_bar_width,
4810 which calls change_frame_size, which calls Fset_window_buffer,
4811 which runs hooks, which call Fvertical_motion. At the end, we
4812 end up in init_iterator with a null face cache, which should not
4814 init_frame_faces (f
);
4816 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4818 window_prompting
= x_figure_window_size (f
, parms
, 0);
4821 XSetWindowAttributes attrs
;
4823 Atom type
= FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
4826 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4827 if (DoesSaveUnders (dpyinfo
->screen
))
4828 mask
|= CWSaveUnder
;
4830 /* Window managers look at the override-redirect flag to determine
4831 whether or net to give windows a decoration (Xlib spec, chapter
4833 attrs
.override_redirect
= True
;
4834 attrs
.save_under
= True
;
4835 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4836 /* Arrange for getting MapNotify and UnmapNotify events. */
4837 attrs
.event_mask
= StructureNotifyMask
;
4839 = FRAME_X_WINDOW (f
)
4840 = XCreateWindow (FRAME_X_DISPLAY (f
),
4841 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4842 /* x, y, width, height */
4846 CopyFromParent
, InputOutput
, CopyFromParent
,
4848 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
4849 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type
,
4850 XA_ATOM
, 32, PropModeReplace
,
4851 (unsigned char *)&type
, 1);
4857 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4858 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4859 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4860 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4861 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4862 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4864 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4865 Change will not be effected unless different from the current
4867 width
= FRAME_COLS (f
);
4868 height
= FRAME_LINES (f
);
4869 SET_FRAME_COLS (f
, 0);
4870 FRAME_LINES (f
) = 0;
4871 change_frame_size (f
, height
, width
, 1, 0, 0);
4873 /* Add `tooltip' frame parameter's default value. */
4874 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4875 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4878 /* FIXME - can this be done in a similar way to normal frames?
4879 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
4881 /* Set the `display-type' frame parameter before setting up faces. */
4883 Lisp_Object disptype
;
4885 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4886 disptype
= intern ("mono");
4887 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
4888 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4889 disptype
= intern ("grayscale");
4891 disptype
= intern ("color");
4893 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4894 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4898 /* Set up faces after all frame parameters are known. This call
4899 also merges in face attributes specified for new frames.
4901 Frame parameters may be changed if .Xdefaults contains
4902 specifications for the default font. For example, if there is an
4903 `Emacs.default.attributeBackground: pink', the `background-color'
4904 attribute of the frame get's set, which let's the internal border
4905 of the tooltip frame appear in pink. Prevent this. */
4907 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4909 /* Set tip_frame here, so that */
4911 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
4913 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4914 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4922 /* It is now ok to make the frame official even if we get an error
4923 below. And the frame needs to be on Vframe_list or making it
4924 visible won't work. */
4925 Vframe_list
= Fcons (frame
, Vframe_list
);
4927 /* Now that the frame is official, it counts as a reference to
4929 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4931 /* Setting attributes of faces of the tooltip frame from resources
4932 and similar will increment face_change_count, which leads to the
4933 clearing of all current matrices. Since this isn't necessary
4934 here, avoid it by resetting face_change_count to the value it
4935 had before we created the tip frame. */
4936 face_change_count
= face_change_count_before
;
4938 /* Discard the unwind_protect. */
4939 return unbind_to (count
, frame
);
4943 /* Compute where to display tip frame F. PARMS is the list of frame
4944 parameters for F. DX and DY are specified offsets from the current
4945 location of the mouse. WIDTH and HEIGHT are the width and height
4946 of the tooltip. Return coordinates relative to the root window of
4947 the display in *ROOT_X, and *ROOT_Y. */
4950 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
)
4952 Lisp_Object left
, top
;
4957 /* User-specified position? */
4958 left
= Fcdr (Fassq (Qleft
, parms
));
4959 top
= Fcdr (Fassq (Qtop
, parms
));
4961 /* Move the tooltip window where the mouse pointer is. Resize and
4963 if (!INTEGERP (left
) || !INTEGERP (top
))
4966 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4967 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4972 *root_y
= XINT (top
);
4973 else if (*root_y
+ XINT (dy
) <= 0)
4974 *root_y
= 0; /* Can happen for negative dy */
4975 else if (*root_y
+ XINT (dy
) + height
4976 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
4977 /* It fits below the pointer */
4978 *root_y
+= XINT (dy
);
4979 else if (height
+ XINT (dy
) <= *root_y
)
4980 /* It fits above the pointer. */
4981 *root_y
-= height
+ XINT (dy
);
4983 /* Put it on the top. */
4986 if (INTEGERP (left
))
4987 *root_x
= XINT (left
);
4988 else if (*root_x
+ XINT (dx
) <= 0)
4989 *root_x
= 0; /* Can happen for negative dx */
4990 else if (*root_x
+ XINT (dx
) + width
4991 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
4992 /* It fits to the right of the pointer. */
4993 *root_x
+= XINT (dx
);
4994 else if (width
+ XINT (dx
) <= *root_x
)
4995 /* It fits to the left of the pointer. */
4996 *root_x
-= width
+ XINT (dx
);
4998 /* Put it left-justified on the screen--it ought to fit that way. */
5003 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5004 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5005 A tooltip window is a small X window displaying a string.
5007 This is an internal function; Lisp code should call `tooltip-show'.
5009 FRAME nil or omitted means use the selected frame.
5011 PARMS is an optional list of frame parameters which can be used to
5012 change the tooltip's appearance.
5014 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5015 means use the default timeout of 5 seconds.
5017 If the list of frame parameters PARAMS contains a `left' parameters,
5018 the tooltip is displayed at that x-position. Otherwise it is
5019 displayed at the mouse position, with offset DX added (default is 5 if
5020 DX isn't specified). Likewise for the y-position; if a `top' frame
5021 parameter is specified, it determines the y-position of the tooltip
5022 window, otherwise it is displayed at the mouse position, with offset
5023 DY added (default is -10).
5025 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5026 Text larger than the specified size is clipped. */)
5027 (string
, frame
, parms
, timeout
, dx
, dy
)
5028 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
5033 struct buffer
*old_buffer
;
5034 struct text_pos pos
;
5035 int i
, width
, height
;
5036 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5037 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5038 int count
= SPECPDL_INDEX ();
5040 specbind (Qinhibit_redisplay
, Qt
);
5042 GCPRO4 (string
, parms
, frame
, timeout
);
5044 CHECK_STRING (string
);
5045 if (SCHARS (string
) == 0)
5046 string
= make_unibyte_string (" ", 1);
5048 f
= check_x_frame (frame
);
5050 timeout
= make_number (5);
5052 CHECK_NATNUM (timeout
);
5055 dx
= make_number (5);
5060 dy
= make_number (-10);
5064 if (NILP (last_show_tip_args
))
5065 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5067 if (!NILP (tip_frame
))
5069 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5070 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5071 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5073 if (EQ (frame
, last_frame
)
5074 && !NILP (Fequal (last_string
, string
))
5075 && !NILP (Fequal (last_parms
, parms
)))
5077 struct frame
*f
= XFRAME (tip_frame
);
5079 /* Only DX and DY have changed. */
5080 if (!NILP (tip_timer
))
5082 Lisp_Object timer
= tip_timer
;
5084 call1 (Qcancel_timer
, timer
);
5088 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5089 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5090 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5097 /* Hide a previous tip, if any. */
5100 ASET (last_show_tip_args
, 0, string
);
5101 ASET (last_show_tip_args
, 1, frame
);
5102 ASET (last_show_tip_args
, 2, parms
);
5104 /* Add default values to frame parameters. */
5105 if (NILP (Fassq (Qname
, parms
)))
5106 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5107 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5108 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5109 if (NILP (Fassq (Qborder_width
, parms
)))
5110 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5111 if (NILP (Fassq (Qborder_color
, parms
)))
5112 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5113 if (NILP (Fassq (Qbackground_color
, parms
)))
5114 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5117 /* Create a frame for the tooltip, and record it in the global
5118 variable tip_frame. */
5119 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5122 /* Set up the frame's root window. */
5123 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5124 w
->left_col
= w
->top_line
= make_number (0);
5126 if (CONSP (Vx_max_tooltip_size
)
5127 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5128 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5129 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5130 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5132 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5133 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5137 w
->total_cols
= make_number (80);
5138 w
->total_lines
= make_number (40);
5141 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5143 w
->pseudo_window_p
= 1;
5145 /* Display the tooltip text in a temporary buffer. */
5146 old_buffer
= current_buffer
;
5147 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5148 current_buffer
->truncate_lines
= Qnil
;
5149 clear_glyph_matrix (w
->desired_matrix
);
5150 clear_glyph_matrix (w
->current_matrix
);
5151 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5152 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5154 /* Compute width and height of the tooltip. */
5156 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5158 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5162 /* Stop at the first empty row at the end. */
5163 if (!row
->enabled_p
|| !row
->displays_text_p
)
5166 /* Let the row go over the full width of the frame. */
5167 row
->full_width_p
= 1;
5169 row_width
= row
->pixel_width
;
5170 /* There's a glyph at the end of rows that is used to place
5171 the cursor there. Don't include the width of this glyph. */
5172 if (row
->used
[TEXT_AREA
])
5174 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5175 if (INTEGERP (last
->object
))
5176 row_width
-= last
->pixel_width
;
5179 height
+= row
->height
;
5180 width
= max (width
, row_width
);
5183 /* Add the frame's internal border to the width and height the X
5184 window should have. */
5185 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5186 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5188 /* Move the tooltip window where the mouse pointer is. Resize and
5190 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5193 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5194 root_x
, root_y
, width
, height
);
5195 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5198 /* Draw into the window. */
5199 w
->must_be_updated_p
= 1;
5200 update_single_window (w
, 1);
5202 /* Restore original current buffer. */
5203 set_buffer_internal_1 (old_buffer
);
5204 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5207 /* Let the tip disappear after timeout seconds. */
5208 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5209 intern ("x-hide-tip"));
5212 return unbind_to (count
, Qnil
);
5216 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5217 doc
: /* Hide the current tooltip window, if there is any.
5218 Value is t if tooltip was open, nil otherwise. */)
5222 Lisp_Object deleted
, frame
, timer
;
5223 struct gcpro gcpro1
, gcpro2
;
5225 /* Return quickly if nothing to do. */
5226 if (NILP (tip_timer
) && NILP (tip_frame
))
5231 GCPRO2 (frame
, timer
);
5232 tip_frame
= tip_timer
= deleted
= Qnil
;
5234 count
= SPECPDL_INDEX ();
5235 specbind (Qinhibit_redisplay
, Qt
);
5236 specbind (Qinhibit_quit
, Qt
);
5239 call1 (Qcancel_timer
, timer
);
5243 delete_frame (frame
, Qnil
);
5247 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5248 redisplay procedure is not called when a tip frame over menu
5249 items is unmapped. Redisplay the menu manually... */
5251 struct frame
*f
= SELECTED_FRAME ();
5252 Widget w
= f
->output_data
.x
->menubar_widget
;
5253 extern void xlwmenu_redisplay (Widget
);
5255 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5259 xlwmenu_redisplay (w
);
5263 #endif /* USE_LUCID */
5267 return unbind_to (count
, deleted
);
5272 /***********************************************************************
5273 File selection dialog
5274 ***********************************************************************/
5276 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5277 Sx_uses_old_gtk_dialog
,
5279 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5283 extern int use_dialog_box
;
5284 extern int use_file_dialog
;
5289 && xg_uses_old_file_dialog ())
5297 /* Callback for "OK" and "Cancel" on file selection dialog. */
5300 file_dialog_cb (widget
, client_data
, call_data
)
5302 XtPointer call_data
, client_data
;
5304 int *result
= (int *) client_data
;
5305 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5306 *result
= cb
->reason
;
5310 /* Callback for unmapping a file selection dialog. This is used to
5311 capture the case where a dialog is closed via a window manager's
5312 closer button, for example. Using a XmNdestroyCallback didn't work
5316 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5318 XtPointer call_data
, client_data
;
5320 int *result
= (int *) client_data
;
5321 *result
= XmCR_CANCEL
;
5325 clean_up_file_dialog (arg
)
5328 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5329 Widget dialog
= (Widget
) p
->pointer
;
5333 XtUnmanageChild (dialog
);
5334 XtDestroyWidget (dialog
);
5335 x_menu_set_in_use (0);
5342 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5343 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5344 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5345 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5346 or directory must exist. ONLY-DIR-P is ignored." */)
5347 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5348 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5351 struct frame
*f
= SELECTED_FRAME ();
5352 Lisp_Object file
= Qnil
;
5353 Lisp_Object decoded_file
;
5354 Widget dialog
, text
, help
;
5357 extern XtAppContext Xt_app_con
;
5358 XmString dir_xmstring
, pattern_xmstring
;
5359 int count
= SPECPDL_INDEX ();
5360 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5364 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5366 if (popup_activated ())
5367 error ("Trying to use a menu from within a menu-entry");
5369 CHECK_STRING (prompt
);
5372 /* Prevent redisplay. */
5373 specbind (Qinhibit_redisplay
, Qt
);
5377 /* Create the dialog with PROMPT as title, using DIR as initial
5378 directory and using "*" as pattern. */
5379 dir
= Fexpand_file_name (dir
, Qnil
);
5380 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5381 pattern_xmstring
= XmStringCreateLocalized ("*");
5383 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5384 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5385 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5386 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5387 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5388 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5390 XmStringFree (dir_xmstring
);
5391 XmStringFree (pattern_xmstring
);
5393 /* Add callbacks for OK and Cancel. */
5394 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5395 (XtPointer
) &result
);
5396 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5397 (XtPointer
) &result
);
5398 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5399 (XtPointer
) &result
);
5401 /* Remove the help button since we can't display help. */
5402 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5403 XtUnmanageChild (help
);
5405 /* Mark OK button as default. */
5406 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5407 XmNshowAsDefault
, True
, NULL
);
5409 /* If MUSTMATCH is non-nil, disable the file entry field of the
5410 dialog, so that the user must select a file from the files list
5411 box. We can't remove it because we wouldn't have a way to get at
5412 the result file name, then. */
5413 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5414 if (!NILP (mustmatch
))
5417 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5418 XtSetSensitive (text
, False
);
5419 XtSetSensitive (label
, False
);
5422 /* Manage the dialog, so that list boxes get filled. */
5423 XtManageChild (dialog
);
5425 if (STRINGP (default_filename
))
5427 XmString default_xmstring
;
5428 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5429 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5431 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5432 XmTextFieldReplace (wtext
, 0, last_pos
,
5433 (SDATA (Ffile_name_nondirectory (default_filename
))));
5435 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5436 must include the path for this to work. */
5438 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5440 if (XmListItemExists (list
, default_xmstring
))
5442 int item_pos
= XmListItemPos (list
, default_xmstring
);
5443 /* Select the item and scroll it into view. */
5444 XmListSelectPos (list
, item_pos
, True
);
5445 XmListSetPos (list
, item_pos
);
5448 XmStringFree (default_xmstring
);
5451 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5453 /* Process events until the user presses Cancel or OK. */
5454 x_menu_set_in_use (1);
5459 x_menu_wait_for_event (0);
5460 XtAppNextEvent (Xt_app_con
, &event
);
5461 if (event
.type
== KeyPress
5462 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5464 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5466 /* Pop down on C-g. */
5467 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5468 XtUnmanageChild (dialog
);
5471 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5474 /* Get the result. */
5475 if (result
== XmCR_OK
)
5480 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5481 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5482 XmStringFree (text
);
5483 file
= build_string (data
);
5492 /* Make "Cancel" equivalent to C-g. */
5494 Fsignal (Qquit
, Qnil
);
5496 decoded_file
= DECODE_FILE (file
);
5498 return unbind_to (count
, decoded_file
);
5501 #endif /* USE_MOTIF */
5506 clean_up_dialog (Lisp_Object arg
)
5508 x_menu_set_in_use (0);
5513 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5514 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5515 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5516 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5517 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5519 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5520 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5522 FRAME_PTR f
= SELECTED_FRAME ();
5524 Lisp_Object file
= Qnil
;
5525 Lisp_Object decoded_file
;
5526 int count
= SPECPDL_INDEX ();
5527 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5532 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5534 if (popup_activated ())
5535 error ("Trying to use a menu from within a menu-entry");
5537 CHECK_STRING (prompt
);
5540 /* Prevent redisplay. */
5541 specbind (Qinhibit_redisplay
, Qt
);
5542 record_unwind_protect (clean_up_dialog
, Qnil
);
5546 if (STRINGP (default_filename
))
5547 cdef_file
= SDATA (default_filename
);
5549 cdef_file
= SDATA (dir
);
5551 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5553 ! NILP (only_dir_p
));
5557 file
= build_string (fn
);
5564 /* Make "Cancel" equivalent to C-g. */
5566 Fsignal (Qquit
, Qnil
);
5568 decoded_file
= DECODE_FILE (file
);
5570 return unbind_to (count
, decoded_file
);
5574 #ifdef HAVE_FREETYPE
5576 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5577 doc
: /* Read a font name using a GTK font selection dialog.
5578 Return a GTK-style font string corresponding to the selection.
5580 If FRAME is omitted or nil, it defaults to the selected frame. */)
5582 Lisp_Object frame
, ignored
;
5584 FRAME_PTR f
= check_x_frame (frame
);
5587 Lisp_Object font_param
;
5588 char *default_name
= NULL
;
5589 struct gcpro gcpro1
, gcpro2
;
5590 int count
= SPECPDL_INDEX ();
5594 if (popup_activated ())
5595 error ("Trying to use a menu from within a menu-entry");
5597 /* Prevent redisplay. */
5598 specbind (Qinhibit_redisplay
, Qt
);
5599 record_unwind_protect (clean_up_dialog
, Qnil
);
5603 GCPRO2(font_param
, font
);
5605 XSETFONT (font
, FRAME_FONT (f
));
5606 font_param
= Ffont_get (font
, intern (":name"));
5607 if (STRINGP (font_param
))
5608 default_name
= xstrdup (SDATA (font_param
));
5611 font_param
= Fframe_parameter (frame
, Qfont_param
);
5612 if (STRINGP (font_param
))
5613 default_name
= xstrdup (SDATA (font_param
));
5616 if (default_name
== NULL
&& x_last_font_name
!= NULL
)
5617 default_name
= xstrdup (x_last_font_name
);
5619 /* Convert fontconfig names to Gtk names, i.e. remove - before number */
5622 char *p
= strrchr (default_name
, '-');
5626 while (isdigit (*ep
))
5628 if (*ep
== '\0') *p
= ' ';
5632 name
= xg_get_font_name (f
, default_name
);
5633 xfree (default_name
);
5637 font
= build_string (name
);
5638 g_free (x_last_font_name
);
5639 x_last_font_name
= name
;
5645 Fsignal (Qquit
, Qnil
);
5647 return unbind_to (count
, font
);
5649 #endif /* HAVE_FREETYPE */
5651 #endif /* USE_GTK */
5654 /***********************************************************************
5656 ***********************************************************************/
5658 #ifdef HAVE_XKBGETKEYBOARD
5659 #include <X11/XKBlib.h>
5660 #include <X11/keysym.h>
5663 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5664 Sx_backspace_delete_keys_p
, 0, 1, 0,
5665 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5666 FRAME nil means use the selected frame.
5667 Value is t if we know that both keys are present, and are mapped to the
5668 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5669 present and mapped to the usual X keysyms. */)
5673 #ifdef HAVE_XKBGETKEYBOARD
5675 struct frame
*f
= check_x_frame (frame
);
5676 Display
*dpy
= FRAME_X_DISPLAY (f
);
5677 Lisp_Object have_keys
;
5678 int major
, minor
, op
, event
, error
;
5682 /* Check library version in case we're dynamically linked. */
5683 major
= XkbMajorVersion
;
5684 minor
= XkbMinorVersion
;
5685 if (!XkbLibraryVersion (&major
, &minor
))
5691 /* Check that the server supports XKB. */
5692 major
= XkbMajorVersion
;
5693 minor
= XkbMinorVersion
;
5694 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5700 /* In this code we check that the keyboard has physical keys with names
5701 that start with BKSP (Backspace) and DELE (Delete), and that they
5702 generate keysym XK_BackSpace and XK_Delete respectively.
5703 This function is used to test if normal-erase-is-backspace should be
5705 An alternative approach would be to just check if XK_BackSpace and
5706 XK_Delete are mapped to any key. But if any of those are mapped to
5707 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5708 user doesn't know about it, it is better to return false here.
5709 It is more obvious to the user what to do if she/he has two keys
5710 clearly marked with names/symbols and one key does something not
5711 expected (i.e. she/he then tries the other).
5712 The cases where Backspace/Delete is mapped to some other key combination
5713 are rare, and in those cases, normal-erase-is-backspace can be turned on
5717 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5720 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5722 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5724 for (i
= kb
->min_key_code
;
5725 (i
< kb
->max_key_code
5726 && (delete_keycode
== 0 || backspace_keycode
== 0));
5729 /* The XKB symbolic key names can be seen most easily in
5730 the PS file generated by `xkbprint -label name
5732 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5734 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5735 backspace_keycode
= i
;
5738 XkbFreeNames (kb
, 0, True
);
5741 XkbFreeClientMap (kb
, 0, True
);
5744 && backspace_keycode
5745 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5746 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5751 #else /* not HAVE_XKBGETKEYBOARD */
5753 #endif /* not HAVE_XKBGETKEYBOARD */
5758 /***********************************************************************
5760 ***********************************************************************/
5762 /* Keep this list in the same order as frame_parms in frame.c.
5763 Use 0 for unsupported frame parameters. */
5765 frame_parm_handler x_frame_parm_handlers
[] =
5769 x_set_background_color
,
5775 x_set_foreground_color
,
5778 x_set_internal_border_width
,
5779 x_set_menu_bar_lines
,
5781 x_explicitly_set_name
,
5782 x_set_scroll_bar_width
,
5785 x_set_vertical_scroll_bars
,
5787 x_set_tool_bar_lines
,
5788 x_set_scroll_bar_foreground
,
5789 x_set_scroll_bar_background
,
5804 /* This is zero if not using X windows. */
5807 /* The section below is built by the lisp expression at the top of the file,
5808 just above where these variables are declared. */
5809 /*&&& init symbols here &&&*/
5810 Qnone
= intern_c_string ("none");
5812 Qsuppress_icon
= intern_c_string ("suppress-icon");
5813 staticpro (&Qsuppress_icon
);
5814 Qundefined_color
= intern_c_string ("undefined-color");
5815 staticpro (&Qundefined_color
);
5816 Qcompound_text
= intern_c_string ("compound-text");
5817 staticpro (&Qcompound_text
);
5818 Qcancel_timer
= intern_c_string ("cancel-timer");
5819 staticpro (&Qcancel_timer
);
5820 Qfont_param
= intern_c_string ("font-parameter");
5821 staticpro (&Qfont_param
);
5822 /* This is the end of symbol initialization. */
5824 /* Text property `display' should be nonsticky by default. */
5825 Vtext_property_default_nonsticky
5826 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5829 Fput (Qundefined_color
, Qerror_conditions
,
5830 pure_cons (Qundefined_color
, pure_cons (Qerror
, Qnil
)));
5831 Fput (Qundefined_color
, Qerror_message
,
5832 make_pure_c_string ("Undefined color"));
5834 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5835 doc
: /* The shape of the pointer when over text.
5836 Changing the value does not affect existing frames
5837 unless you set the mouse color. */);
5838 Vx_pointer_shape
= Qnil
;
5840 #if 0 /* This doesn't really do anything. */
5841 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5842 doc
: /* The shape of the pointer when not over text.
5843 This variable takes effect when you create a new frame
5844 or when you set the mouse color. */);
5846 Vx_nontext_pointer_shape
= Qnil
;
5848 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5849 doc
: /* The shape of the pointer when Emacs is busy.
5850 This variable takes effect when you create a new frame
5851 or when you set the mouse color. */);
5852 Vx_hourglass_pointer_shape
= Qnil
;
5854 #if 0 /* This doesn't really do anything. */
5855 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5856 doc
: /* The shape of the pointer when over the mode line.
5857 This variable takes effect when you create a new frame
5858 or when you set the mouse color. */);
5860 Vx_mode_pointer_shape
= Qnil
;
5862 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5863 &Vx_sensitive_text_pointer_shape
,
5864 doc
: /* The shape of the pointer when over mouse-sensitive text.
5865 This variable takes effect when you create a new frame
5866 or when you set the mouse color. */);
5867 Vx_sensitive_text_pointer_shape
= Qnil
;
5869 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5870 &Vx_window_horizontal_drag_shape
,
5871 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5872 This variable takes effect when you create a new frame
5873 or when you set the mouse color. */);
5874 Vx_window_horizontal_drag_shape
= Qnil
;
5876 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5877 doc
: /* A string indicating the foreground color of the cursor box. */);
5878 Vx_cursor_fore_pixel
= Qnil
;
5880 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5881 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5882 Text larger than this is clipped. */);
5883 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5885 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5886 doc
: /* Non-nil if no X window manager is in use.
5887 Emacs doesn't try to figure this out; this is always nil
5888 unless you set it to something else. */);
5889 /* We don't have any way to find this out, so set it to nil
5890 and maybe the user would like to set it to t. */
5891 Vx_no_window_manager
= Qnil
;
5893 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5894 &Vx_pixel_size_width_font_regexp
,
5895 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5897 Since Emacs gets width of a font matching with this regexp from
5898 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5899 such a font. This is especially effective for such large fonts as
5900 Chinese, Japanese, and Korean. */);
5901 Vx_pixel_size_width_font_regexp
= Qnil
;
5903 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5904 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", &x_gtk_use_old_file_dialog
,
5905 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5906 If nil or if the file selection dialog is not available, the new GTK file
5907 chooser is used instead. To turn off all file dialogs set the
5908 variable `use-file-dialog'. */);
5909 x_gtk_use_old_file_dialog
= 0;
5911 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5912 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5913 Note that this is just the default, there is a toggle button on the file
5914 chooser to show or not show hidden files on a case by case basis. */);
5915 x_gtk_show_hidden_files
= 0;
5917 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", &x_gtk_file_dialog_help_text
,
5918 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
5919 If more space for files in the file chooser dialog is wanted, set this to nil
5920 to turn the additional text off. */);
5921 x_gtk_file_dialog_help_text
= 1;
5923 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
5924 doc
: /* *If non-nil, a detached tool bar is shown in full.
5925 The default is to just show an arrow and pressing on that arrow shows
5926 the tool bar buttons. */);
5927 x_gtk_whole_detached_tool_bar
= 0;
5929 Fprovide (intern_c_string ("x"), Qnil
);
5931 #ifdef USE_X_TOOLKIT
5932 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5934 Fprovide (intern_c_string ("motif"), Qnil
);
5936 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5937 doc
: /* Version info for LessTif/Motif. */);
5938 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5939 #endif /* USE_MOTIF */
5940 #endif /* USE_X_TOOLKIT */
5943 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5944 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5945 But for a user it is a toolkit for X, and indeed, configure
5946 accepts --with-x-toolkit=gtk. */
5947 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5948 Fprovide (intern_c_string ("gtk"), Qnil
);
5950 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5951 doc
: /* Version info for GTK+. */);
5953 char gtk_version
[40];
5954 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5955 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5956 Vgtk_version_string
= make_pure_string (gtk_version
, strlen (gtk_version
), strlen (gtk_version
), 0);
5958 #endif /* USE_GTK */
5960 /* X window properties. */
5961 defsubr (&Sx_change_window_property
);
5962 defsubr (&Sx_delete_window_property
);
5963 defsubr (&Sx_window_property
);
5965 defsubr (&Sxw_display_color_p
);
5966 defsubr (&Sx_display_grayscale_p
);
5967 defsubr (&Sxw_color_defined_p
);
5968 defsubr (&Sxw_color_values
);
5969 defsubr (&Sx_server_max_request_size
);
5970 defsubr (&Sx_server_vendor
);
5971 defsubr (&Sx_server_version
);
5972 defsubr (&Sx_display_pixel_width
);
5973 defsubr (&Sx_display_pixel_height
);
5974 defsubr (&Sx_display_mm_width
);
5975 defsubr (&Sx_display_mm_height
);
5976 defsubr (&Sx_display_screens
);
5977 defsubr (&Sx_display_planes
);
5978 defsubr (&Sx_display_color_cells
);
5979 defsubr (&Sx_display_visual_class
);
5980 defsubr (&Sx_display_backing_store
);
5981 defsubr (&Sx_display_save_under
);
5982 defsubr (&Sx_wm_set_size_hint
);
5983 defsubr (&Sx_create_frame
);
5984 defsubr (&Sx_open_connection
);
5985 defsubr (&Sx_close_connection
);
5986 defsubr (&Sx_display_list
);
5987 defsubr (&Sx_synchronize
);
5988 defsubr (&Sx_focus_frame
);
5989 defsubr (&Sx_backspace_delete_keys_p
);
5991 /* Setting callback functions for fontset handler. */
5992 check_window_system_func
= check_x
;
5994 defsubr (&Sx_show_tip
);
5995 defsubr (&Sx_hide_tip
);
5997 staticpro (&tip_timer
);
5999 staticpro (&tip_frame
);
6001 last_show_tip_args
= Qnil
;
6002 staticpro (&last_show_tip_args
);
6004 defsubr (&Sx_uses_old_gtk_dialog
);
6005 #if defined (USE_MOTIF) || defined (USE_GTK)
6006 defsubr (&Sx_file_dialog
);
6009 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
6010 defsubr (&Sx_select_font
);
6011 x_last_font_name
= NULL
;
6015 #endif /* HAVE_X_WINDOWS */
6017 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
6018 (do not change this comment) */