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
;
208 extern Lisp_Object Qtooltip
;
211 int image_cache_refcount
, dpyinfo_refcount
;
214 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
215 char *x_last_font_name
;
219 /* Error if we are not connected to X. */
225 error ("X windows are not in use or not initialized");
228 /* Nonzero if we can use mouse menus.
229 You should not call this unless HAVE_MENUS is defined. */
237 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
238 and checking validity for X. */
241 check_x_frame (Lisp_Object frame
)
246 frame
= selected_frame
;
247 CHECK_LIVE_FRAME (frame
);
250 error ("Non-X frame used");
254 /* Let the user specify an X display with a Lisp object.
255 OBJECT may be nil, a frame or a terminal object.
256 nil stands for the selected frame--or, if that is not an X frame,
257 the first X display on the list. */
259 struct x_display_info
*
260 check_x_display_info (Lisp_Object object
)
262 struct x_display_info
*dpyinfo
= NULL
;
266 struct frame
*sf
= XFRAME (selected_frame
);
268 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
269 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
270 else if (x_display_list
!= 0)
271 dpyinfo
= x_display_list
;
273 error ("X windows are not in use or not initialized");
275 else if (TERMINALP (object
))
277 struct terminal
*t
= get_terminal (object
, 1);
279 if (t
->type
!= output_x_window
)
280 error ("Terminal %d is not an X display", XINT (object
));
282 dpyinfo
= t
->display_info
.x
;
284 else if (STRINGP (object
))
285 dpyinfo
= x_display_info_for_name (object
);
288 FRAME_PTR f
= check_x_frame (object
);
289 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
296 /* Return the Emacs frame-object corresponding to an X window.
297 It could be the frame's main window or an icon window. */
299 /* This function can be called during GC, so use GC_xxx type test macros. */
302 x_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
304 Lisp_Object tail
, frame
;
307 if (wdesc
== None
) return 0;
309 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
315 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
317 if (f
->output_data
.x
->hourglass_window
== wdesc
)
320 if ((f
->output_data
.x
->edit_widget
321 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
322 /* A tooltip frame? */
323 || (!f
->output_data
.x
->edit_widget
324 && FRAME_X_WINDOW (f
) == wdesc
)
325 || f
->output_data
.x
->icon_desc
== wdesc
)
327 #else /* not USE_X_TOOLKIT */
329 if (f
->output_data
.x
->edit_widget
)
331 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
332 struct x_output
*x
= f
->output_data
.x
;
333 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
337 if (FRAME_X_WINDOW (f
) == wdesc
338 || f
->output_data
.x
->icon_desc
== wdesc
)
340 #endif /* not USE_X_TOOLKIT */
345 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
346 /* Like x_window_to_frame but also compares the window with the widget's
350 x_any_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
352 Lisp_Object tail
, frame
;
353 struct frame
*f
, *found
;
356 if (wdesc
== None
) return NULL
;
359 for (tail
= Vframe_list
; CONSP (tail
) && !found
; tail
= XCDR (tail
))
366 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
368 /* This frame matches if the window is any of its widgets. */
369 x
= f
->output_data
.x
;
370 if (x
->hourglass_window
== wdesc
)
375 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
377 && gtk_widget_get_toplevel (gwdesc
) == x
->widget
)
380 if (wdesc
== XtWindow (x
->widget
)
381 || wdesc
== XtWindow (x
->column_widget
)
382 || wdesc
== XtWindow (x
->edit_widget
))
384 /* Match if the window is this frame's menubar. */
385 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
389 else if (FRAME_X_WINDOW (f
) == wdesc
)
390 /* A tooltip frame. */
398 /* Likewise, but consider only the menu bar widget. */
401 x_menubar_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
403 Lisp_Object tail
, frame
;
407 if (wdesc
== None
) return 0;
409 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
415 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
417 x
= f
->output_data
.x
;
418 /* Match if the window is this frame's menubar. */
420 if (x
->menubar_widget
)
422 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
424 /* This gives false positives, but the rectangle check in xterm.c
425 where this is called takes care of that. */
427 && (gwdesc
== x
->menubar_widget
428 || gtk_widget_is_ancestor (x
->menubar_widget
, gwdesc
)
429 || gtk_widget_is_ancestor (gwdesc
, x
->menubar_widget
)))
433 if (x
->menubar_widget
434 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
441 /* Return the frame whose principal (outermost) window is WDESC.
442 If WDESC is some other (smaller) window, we return 0. */
445 x_top_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
447 Lisp_Object tail
, frame
;
451 if (wdesc
== None
) return 0;
453 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
459 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
461 x
= f
->output_data
.x
;
465 /* This frame matches if the window is its topmost widget. */
467 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
468 if (gwdesc
== x
->widget
)
471 if (wdesc
== XtWindow (x
->widget
))
473 #if 0 /* I don't know why it did this,
474 but it seems logically wrong,
475 and it causes trouble for MapNotify events. */
476 /* Match if the window is this frame's menubar. */
477 if (x
->menubar_widget
478 && wdesc
== XtWindow (x
->menubar_widget
))
483 else if (FRAME_X_WINDOW (f
) == wdesc
)
489 #endif /* USE_X_TOOLKIT || USE_GTK */
493 static void x_default_font_parameter (struct frame
*, Lisp_Object
);
495 static Lisp_Object
unwind_create_frame (Lisp_Object
);
496 static Lisp_Object
unwind_create_tip_frame (Lisp_Object
);
498 void x_set_foreground_color (struct frame
*, Lisp_Object
, Lisp_Object
);
499 static void x_set_wait_for_wm (struct frame
*, Lisp_Object
, Lisp_Object
);
500 void x_set_background_color (struct frame
*, Lisp_Object
, Lisp_Object
);
501 void x_set_mouse_color (struct frame
*, Lisp_Object
, Lisp_Object
);
502 void x_set_cursor_color (struct frame
*, Lisp_Object
, Lisp_Object
);
503 void x_set_border_color (struct frame
*, Lisp_Object
, Lisp_Object
);
504 void x_set_cursor_type (struct frame
*, Lisp_Object
, Lisp_Object
);
505 void x_set_icon_type (struct frame
*, Lisp_Object
, Lisp_Object
);
506 void x_set_icon_name (struct frame
*, Lisp_Object
, Lisp_Object
);
507 void x_explicitly_set_name (struct frame
*, Lisp_Object
, Lisp_Object
);
508 void x_set_menu_bar_lines (struct frame
*, Lisp_Object
, Lisp_Object
);
509 void x_set_title (struct frame
*, Lisp_Object
, Lisp_Object
);
510 void x_set_tool_bar_lines (struct frame
*, Lisp_Object
, Lisp_Object
);
511 void x_set_scroll_bar_foreground (struct frame
*, Lisp_Object
,
513 void x_set_scroll_bar_background (struct frame
*, Lisp_Object
,
515 static Lisp_Object
x_default_scroll_bar_color_parameter (struct frame
*,
522 /* Store the screen positions of frame F into XPTR and YPTR.
523 These are the positions of the containing window manager window,
524 not Emacs's own window. */
527 x_real_positions (FRAME_PTR f
, int *xptr
, int *yptr
)
529 int win_x
, win_y
, outer_x
, outer_y
;
530 int real_x
= 0, real_y
= 0;
532 Window win
= f
->output_data
.x
->parent_desc
;
536 x_catch_errors (FRAME_X_DISPLAY (f
));
538 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
539 win
= FRAME_OUTER_WINDOW (f
);
541 /* This loop traverses up the containment tree until we hit the root
542 window. Window managers may intersect many windows between our window
543 and the root window. The window we find just before the root window
544 should be the outer WM window. */
547 Window wm_window
, rootw
;
548 Window
*tmp_children
;
549 unsigned int tmp_nchildren
;
552 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
553 &wm_window
, &tmp_children
, &tmp_nchildren
);
555 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
557 /* Don't free tmp_children if XQueryTree failed. */
561 XFree ((char *) tmp_children
);
563 if (wm_window
== rootw
|| had_errors
)
574 /* Get the real coordinates for the WM window upper left corner */
575 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
576 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
578 /* Translate real coordinates to coordinates relative to our
579 window. For our window, the upper left corner is 0, 0.
580 Since the upper left corner of the WM window is outside
581 our window, win_x and win_y will be negative:
583 ------------------ ---> x
585 | ----------------- v y
588 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
590 /* From-window, to-window. */
591 FRAME_X_DISPLAY_INFO (f
)->root_window
,
594 /* From-position, to-position. */
595 real_x
, real_y
, &win_x
, &win_y
,
600 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
607 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
609 /* From-window, to-window. */
610 FRAME_X_DISPLAY_INFO (f
)->root_window
,
611 FRAME_OUTER_WINDOW (f
),
613 /* From-position, to-position. */
614 real_x
, real_y
, &outer_x
, &outer_y
,
620 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
627 if (had_errors
) return;
629 f
->x_pixels_diff
= -win_x
;
630 f
->y_pixels_diff
= -win_y
;
632 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
633 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
642 /* Gamma-correct COLOR on frame F. */
645 gamma_correct (struct frame
*f
, XColor
*color
)
649 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
650 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
651 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
656 /* Decide if color named COLOR_NAME is valid for use on frame F. If
657 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
658 allocate the color. Value is zero if COLOR_NAME is invalid, or
659 no color could be allocated. */
662 x_defined_color (struct frame
*f
, char *color_name
, XColor
*color
, int alloc_p
)
665 Display
*dpy
= FRAME_X_DISPLAY (f
);
666 Colormap cmap
= FRAME_X_COLORMAP (f
);
669 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
670 if (success_p
&& alloc_p
)
671 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
678 /* Return the pixel color value for color COLOR_NAME on frame F. If F
679 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
680 Signal an error if color can't be allocated. */
683 x_decode_color (FRAME_PTR f
, Lisp_Object color_name
, int mono_color
)
687 CHECK_STRING (color_name
);
689 #if 0 /* Don't do this. It's wrong when we're not using the default
690 colormap, it makes freeing difficult, and it's probably not
691 an important optimization. */
692 if (strcmp (SDATA (color_name
), "black") == 0)
693 return BLACK_PIX_DEFAULT (f
);
694 else if (strcmp (SDATA (color_name
), "white") == 0)
695 return WHITE_PIX_DEFAULT (f
);
698 /* Return MONO_COLOR for monochrome frames. */
699 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
702 /* x_defined_color is responsible for coping with failures
703 by looking for a near-miss. */
704 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
707 signal_error ("Undefined color", color_name
);
712 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
713 the previous value of that parameter, NEW_VALUE is the new value.
714 See also the comment of wait_for_wm in struct x_output. */
717 x_set_wait_for_wm (struct frame
*f
, Lisp_Object new_value
, Lisp_Object old_value
)
719 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
724 /* Set icon from FILE for frame F. By using GTK functions the icon
725 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
728 xg_set_icon (FRAME_PTR f
, Lisp_Object file
)
733 found
= x_find_image_file (file
);
739 char *filename
= (char *) SDATA (found
);
742 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
746 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
748 g_object_unref (pixbuf
);
762 xg_set_icon_from_xpm_data (FRAME_PTR f
, char **data
)
765 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data ((const char **) data
);
770 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
771 g_object_unref (pixbuf
);
777 /* Functions called only from `x_set_frame_param'
778 to set individual parameters.
780 If FRAME_X_WINDOW (f) is 0,
781 the frame is being created and its X-window does not exist yet.
782 In that case, just record the parameter's new value
783 in the standard place; do not attempt to change the window. */
786 x_set_foreground_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
788 struct x_output
*x
= f
->output_data
.x
;
789 unsigned long fg
, old_fg
;
791 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
792 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
793 FRAME_FOREGROUND_PIXEL (f
) = fg
;
795 if (FRAME_X_WINDOW (f
) != 0)
797 Display
*dpy
= FRAME_X_DISPLAY (f
);
800 XSetForeground (dpy
, x
->normal_gc
, fg
);
801 XSetBackground (dpy
, x
->reverse_gc
, fg
);
803 if (x
->cursor_pixel
== old_fg
)
805 unload_color (f
, x
->cursor_pixel
);
806 x
->cursor_pixel
= x_copy_color (f
, fg
);
807 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
812 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
814 if (FRAME_VISIBLE_P (f
))
818 unload_color (f
, old_fg
);
822 x_set_background_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
824 struct x_output
*x
= f
->output_data
.x
;
827 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
828 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
829 FRAME_BACKGROUND_PIXEL (f
) = bg
;
831 if (FRAME_X_WINDOW (f
) != 0)
833 Display
*dpy
= FRAME_X_DISPLAY (f
);
836 XSetBackground (dpy
, x
->normal_gc
, bg
);
837 XSetForeground (dpy
, x
->reverse_gc
, bg
);
838 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
839 XSetForeground (dpy
, x
->cursor_gc
, bg
);
842 xg_set_background_color (f
, bg
);
845 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
846 toolkit scroll bars. */
849 for (bar
= FRAME_SCROLL_BARS (f
);
851 bar
= XSCROLL_BAR (bar
)->next
)
853 Window window
= XSCROLL_BAR (bar
)->x_window
;
854 XSetWindowBackground (dpy
, window
, bg
);
857 #endif /* USE_TOOLKIT_SCROLL_BARS */
860 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
862 if (FRAME_VISIBLE_P (f
))
868 make_invisible_cursor (struct frame
*f
)
870 Display
*dpy
= FRAME_X_DISPLAY (f
);
871 static char const no_data
[] = { 0 };
876 x_catch_errors (dpy
);
877 pix
= XCreateBitmapFromData (dpy
, FRAME_X_DISPLAY_INFO (f
)->root_window
,
879 if (! x_had_errors_p (dpy
) && pix
!= None
)
882 col
.red
= col
.green
= col
.blue
= 0;
883 col
.flags
= DoRed
| DoGreen
| DoBlue
;
884 c
= XCreatePixmapCursor (dpy
, pix
, pix
, &col
, &col
, 0, 0);
885 if (x_had_errors_p (dpy
) || c
== None
)
887 XFreePixmap (dpy
, pix
);
896 x_set_mouse_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
898 struct x_output
*x
= f
->output_data
.x
;
899 Display
*dpy
= FRAME_X_DISPLAY (f
);
900 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
901 Cursor hourglass_cursor
, horizontal_drag_cursor
;
902 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
903 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
905 /* Don't let pointers be invisible. */
906 if (mask_color
== pixel
)
908 x_free_colors (f
, &pixel
, 1);
909 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
912 unload_color (f
, x
->mouse_pixel
);
913 x
->mouse_pixel
= pixel
;
917 /* It's not okay to crash if the user selects a screwy cursor. */
918 x_catch_errors (dpy
);
920 if (!NILP (Vx_pointer_shape
))
922 CHECK_NUMBER (Vx_pointer_shape
);
923 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
926 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
927 x_check_errors (dpy
, "bad text pointer cursor: %s");
929 if (!NILP (Vx_nontext_pointer_shape
))
931 CHECK_NUMBER (Vx_nontext_pointer_shape
);
933 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
936 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
937 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
939 if (!NILP (Vx_hourglass_pointer_shape
))
941 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
943 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
946 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
947 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
949 if (!NILP (Vx_mode_pointer_shape
))
951 CHECK_NUMBER (Vx_mode_pointer_shape
);
952 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
955 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
956 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
958 if (!NILP (Vx_sensitive_text_pointer_shape
))
960 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
962 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
965 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
967 if (!NILP (Vx_window_horizontal_drag_shape
))
969 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
970 horizontal_drag_cursor
971 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
974 horizontal_drag_cursor
975 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
977 /* Check and report errors with the above calls. */
978 x_check_errors (dpy
, "can't set cursor shape: %s");
982 XColor fore_color
, back_color
;
984 fore_color
.pixel
= x
->mouse_pixel
;
985 x_query_color (f
, &fore_color
);
986 back_color
.pixel
= mask_color
;
987 x_query_color (f
, &back_color
);
989 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
990 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
991 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
992 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
993 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
994 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
997 if (FRAME_X_WINDOW (f
) != 0)
998 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
999 f
->output_data
.x
->current_cursor
= cursor
);
1001 if (FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
== 0)
1002 FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
= make_invisible_cursor (f
);
1004 if (cursor
!= x
->text_cursor
1005 && x
->text_cursor
!= 0)
1006 XFreeCursor (dpy
, x
->text_cursor
);
1007 x
->text_cursor
= cursor
;
1009 if (nontext_cursor
!= x
->nontext_cursor
1010 && x
->nontext_cursor
!= 0)
1011 XFreeCursor (dpy
, x
->nontext_cursor
);
1012 x
->nontext_cursor
= nontext_cursor
;
1014 if (hourglass_cursor
!= x
->hourglass_cursor
1015 && x
->hourglass_cursor
!= 0)
1016 XFreeCursor (dpy
, x
->hourglass_cursor
);
1017 x
->hourglass_cursor
= hourglass_cursor
;
1019 if (mode_cursor
!= x
->modeline_cursor
1020 && x
->modeline_cursor
!= 0)
1021 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1022 x
->modeline_cursor
= mode_cursor
;
1024 if (hand_cursor
!= x
->hand_cursor
1025 && x
->hand_cursor
!= 0)
1026 XFreeCursor (dpy
, x
->hand_cursor
);
1027 x
->hand_cursor
= hand_cursor
;
1029 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1030 && x
->horizontal_drag_cursor
!= 0)
1031 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1032 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1037 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1041 x_set_cursor_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1043 unsigned long fore_pixel
, pixel
;
1044 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1045 struct x_output
*x
= f
->output_data
.x
;
1047 if (!NILP (Vx_cursor_fore_pixel
))
1049 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1050 WHITE_PIX_DEFAULT (f
));
1051 fore_pixel_allocated_p
= 1;
1054 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1056 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1057 pixel_allocated_p
= 1;
1059 /* Make sure that the cursor color differs from the background color. */
1060 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1062 if (pixel_allocated_p
)
1064 x_free_colors (f
, &pixel
, 1);
1065 pixel_allocated_p
= 0;
1068 pixel
= x
->mouse_pixel
;
1069 if (pixel
== fore_pixel
)
1071 if (fore_pixel_allocated_p
)
1073 x_free_colors (f
, &fore_pixel
, 1);
1074 fore_pixel_allocated_p
= 0;
1076 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1080 unload_color (f
, x
->cursor_foreground_pixel
);
1081 if (!fore_pixel_allocated_p
)
1082 fore_pixel
= x_copy_color (f
, fore_pixel
);
1083 x
->cursor_foreground_pixel
= fore_pixel
;
1085 unload_color (f
, x
->cursor_pixel
);
1086 if (!pixel_allocated_p
)
1087 pixel
= x_copy_color (f
, pixel
);
1088 x
->cursor_pixel
= pixel
;
1090 if (FRAME_X_WINDOW (f
) != 0)
1093 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1094 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1097 if (FRAME_VISIBLE_P (f
))
1099 x_update_cursor (f
, 0);
1100 x_update_cursor (f
, 1);
1104 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1107 /* Set the border-color of frame F to pixel value PIX.
1108 Note that this does not fully take effect if done before
1109 F has an x-window. */
1112 x_set_border_pixel (struct frame
*f
, int pix
)
1114 unload_color (f
, f
->output_data
.x
->border_pixel
);
1115 f
->output_data
.x
->border_pixel
= pix
;
1117 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1120 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1121 (unsigned long)pix
);
1124 if (FRAME_VISIBLE_P (f
))
1129 /* Set the border-color of frame F to value described by ARG.
1130 ARG can be a string naming a color.
1131 The border-color is used for the border that is drawn by the X server.
1132 Note that this does not fully take effect if done before
1133 F has an x-window; it must be redone when the window is created.
1135 Note: this is done in two routines because of the way X10 works.
1137 Note: under X11, this is normally the province of the window manager,
1138 and so emacs' border colors may be overridden. */
1141 x_set_border_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1146 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1147 x_set_border_pixel (f
, pix
);
1148 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1153 x_set_cursor_type (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1155 set_frame_cursor_types (f
, arg
);
1157 /* Make sure the cursor gets redrawn. */
1158 cursor_type_changed
= 1;
1162 x_set_icon_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1168 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1171 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1176 result
= x_text_icon (f
,
1177 (char *) SDATA ((!NILP (f
->icon_name
)
1181 result
= x_bitmap_icon (f
, arg
);
1186 error ("No icon window available");
1189 XFlush (FRAME_X_DISPLAY (f
));
1194 x_set_icon_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1200 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1203 else if (!NILP (arg
) || NILP (oldval
))
1208 if (f
->output_data
.x
->icon_bitmap
!= 0)
1213 result
= x_text_icon (f
,
1214 (char *) SDATA ((!NILP (f
->icon_name
)
1223 error ("No icon window available");
1226 XFlush (FRAME_X_DISPLAY (f
));
1232 x_set_menu_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1235 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1236 int olines
= FRAME_MENU_BAR_LINES (f
);
1239 /* Right now, menu bars don't work properly in minibuf-only frames;
1240 most of the commands try to apply themselves to the minibuffer
1241 frame itself, and get an error because you can't switch buffers
1242 in or split the minibuffer window. */
1243 if (FRAME_MINIBUF_ONLY_P (f
))
1246 if (INTEGERP (value
))
1247 nlines
= XINT (value
);
1251 /* Make sure we redisplay all windows in this frame. */
1252 windows_or_buffers_changed
++;
1254 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1255 FRAME_MENU_BAR_LINES (f
) = 0;
1258 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1259 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1260 /* Make sure next redisplay shows the menu bar. */
1261 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1265 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1266 free_frame_menubar (f
);
1267 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1269 f
->output_data
.x
->menubar_widget
= 0;
1271 #else /* not USE_X_TOOLKIT && not USE_GTK */
1272 FRAME_MENU_BAR_LINES (f
) = nlines
;
1273 change_window_heights (f
->root_window
, nlines
- olines
);
1275 /* If the menu bar height gets changed, the internal border below
1276 the top margin has to be cleared. Also, if the menu bar gets
1277 larger, the area for the added lines has to be cleared except for
1278 the first menu bar line that is to be drawn later. */
1279 if (nlines
!= olines
)
1281 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1282 int width
= FRAME_PIXEL_WIDTH (f
);
1285 /* height can be zero here. */
1286 if (height
> 0 && width
> 0)
1288 y
= FRAME_TOP_MARGIN_HEIGHT (f
);
1291 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1292 0, y
, width
, height
, False
);
1296 if (nlines
> 1 && nlines
> olines
)
1298 y
= (olines
== 0 ? 1 : olines
) * FRAME_LINE_HEIGHT (f
);
1299 height
= nlines
* FRAME_LINE_HEIGHT (f
) - y
;
1302 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1303 0, y
, width
, height
, False
);
1307 if (nlines
== 0 && WINDOWP (f
->menu_bar_window
))
1308 clear_glyph_matrix (XWINDOW (f
->menu_bar_window
)->current_matrix
);
1310 #endif /* not USE_X_TOOLKIT && not USE_GTK */
1315 /* Set the number of lines used for the tool bar of frame F to VALUE.
1316 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1317 is the old number of tool bar lines. This function changes the
1318 height of all windows on frame F to match the new tool bar height.
1319 The frame's height doesn't change. */
1322 x_set_tool_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1324 int delta
, nlines
, root_height
;
1325 Lisp_Object root_window
;
1327 /* Treat tool bars like menu bars. */
1328 if (FRAME_MINIBUF_ONLY_P (f
))
1331 /* Use VALUE only if an integer >= 0. */
1332 if (INTEGERP (value
) && XINT (value
) >= 0)
1333 nlines
= XFASTINT (value
);
1338 FRAME_TOOL_BAR_LINES (f
) = 0;
1341 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1342 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1343 /* Make sure next redisplay shows the tool bar. */
1344 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1345 update_frame_tool_bar (f
);
1349 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1350 free_frame_tool_bar (f
);
1351 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1357 /* Make sure we redisplay all windows in this frame. */
1358 ++windows_or_buffers_changed
;
1360 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1362 /* Don't resize the tool-bar to more than we have room for. */
1363 root_window
= FRAME_ROOT_WINDOW (f
);
1364 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1365 if (root_height
- delta
< 1)
1367 delta
= root_height
- 1;
1368 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1371 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1372 change_window_heights (root_window
, delta
);
1375 /* We also have to make sure that the internal border at the top of
1376 the frame, below the menu bar or tool bar, is redrawn when the
1377 tool bar disappears. This is so because the internal border is
1378 below the tool bar if one is displayed, but is below the menu bar
1379 if there isn't a tool bar. The tool bar draws into the area
1380 below the menu bar. */
1381 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1384 clear_current_matrices (f
);
1387 /* If the tool bar gets smaller, the internal border below it
1388 has to be cleared. It was formerly part of the display
1389 of the larger tool bar, and updating windows won't clear it. */
1392 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1393 int width
= FRAME_PIXEL_WIDTH (f
);
1394 int y
= (FRAME_MENU_BAR_LINES (f
) + nlines
) * FRAME_LINE_HEIGHT (f
);
1396 /* height can be zero here. */
1397 if (height
> 0 && width
> 0)
1400 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1401 0, y
, width
, height
, False
);
1405 if (WINDOWP (f
->tool_bar_window
))
1406 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1411 /* Set the foreground color for scroll bars on frame F to VALUE.
1412 VALUE should be a string, a color name. If it isn't a string or
1413 isn't a valid color name, do nothing. OLDVAL is the old value of
1414 the frame parameter. */
1417 x_set_scroll_bar_foreground (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1419 unsigned long pixel
;
1421 if (STRINGP (value
))
1422 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1426 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1427 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1429 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1430 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1432 /* Remove all scroll bars because they have wrong colors. */
1433 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1434 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1435 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1436 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1438 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1444 /* Set the background color for scroll bars on frame F to VALUE VALUE
1445 should be a string, a color name. If it isn't a string or isn't a
1446 valid color name, do nothing. OLDVAL is the old value of the frame
1450 x_set_scroll_bar_background (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1452 unsigned long pixel
;
1454 if (STRINGP (value
))
1455 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1459 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1460 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1462 #ifdef USE_TOOLKIT_SCROLL_BARS
1463 /* Scrollbar shadow colors. */
1464 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1466 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1467 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1469 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1471 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1472 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1474 #endif /* USE_TOOLKIT_SCROLL_BARS */
1476 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1477 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1479 /* Remove all scroll bars because they have wrong colors. */
1480 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1481 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1482 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1483 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1485 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1491 /* Encode Lisp string STRING as a text in a format appropriate for
1492 XICCC (X Inter Client Communication Conventions).
1494 This can call Lisp code, so callers must GCPRO.
1496 If STRING contains only ASCII characters, do no conversion and
1497 return the string data of STRING. Otherwise, encode the text by
1498 CODING_SYSTEM, and return a newly allocated memory area which
1499 should be freed by `xfree' by a caller.
1501 SELECTIONP non-zero means the string is being encoded for an X
1502 selection, so it is safe to run pre-write conversions (which
1505 Store the byte length of resulting text in *TEXT_BYTES.
1507 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1508 which means that the `encoding' of the result can be `STRING'.
1509 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1510 the result should be `COMPOUND_TEXT'. */
1512 static unsigned char *
1513 x_encode_text (Lisp_Object string
, Lisp_Object coding_system
, int selectionp
, int *text_bytes
, int *stringp
, int *freep
)
1515 int result
= string_xstring_p (string
);
1516 struct coding_system coding
;
1520 /* No multibyte character in OBJ. We need not encode it. */
1521 *text_bytes
= SBYTES (string
);
1524 return SDATA (string
);
1527 setup_coding_system (coding_system
, &coding
);
1528 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1529 /* We suppress producing escape sequences for composition. */
1530 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1531 coding
.dst_bytes
= SCHARS (string
) * 2;
1532 coding
.destination
= (unsigned char *) xmalloc (coding
.dst_bytes
);
1533 encode_coding_object (&coding
, string
, 0, 0,
1534 SCHARS (string
), SBYTES (string
), Qnil
);
1535 *text_bytes
= coding
.produced
;
1536 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1538 return coding
.destination
;
1542 /* Set the WM name to NAME for frame F. Also set the icon name.
1543 If the frame already has an icon name, use that, otherwise set the
1544 icon name to NAME. */
1547 x_set_name_internal (FRAME_PTR f
, Lisp_Object name
)
1549 if (FRAME_X_WINDOW (f
))
1553 XTextProperty text
, icon
;
1555 int do_free_icon_value
= 0, do_free_text_value
= 0;
1556 Lisp_Object coding_system
;
1557 Lisp_Object encoded_name
;
1558 Lisp_Object encoded_icon_name
;
1559 struct gcpro gcpro1
;
1561 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1562 we use it before x_encode_text that may return string data. */
1564 encoded_name
= ENCODE_UTF_8 (name
);
1567 coding_system
= Qcompound_text
;
1568 /* Note: Encoding strategy
1570 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1571 text.encoding. But, there are non-internationalized window
1572 managers which don't support that encoding. So, if NAME
1573 contains only ASCII and 8859-1 characters, encode it by
1574 iso-latin-1, and use "STRING" in text.encoding hoping that
1575 such window managers at least analyze this format correctly,
1576 i.e. treat 8-bit bytes as 8859-1 characters.
1578 We may also be able to use "UTF8_STRING" in text.encoding
1579 in the future which can encode all Unicode characters.
1580 But, for the moment, there's no way to know that the
1581 current window manager supports it or not.
1583 Either way, we also set the _NET_WM_NAME and _NET_WM_ICON_NAME
1584 properties. Per the EWMH specification, those two properties
1585 are always UTF8_STRING. This matches what gtk_window_set_title()
1586 does in the USE_GTK case. */
1587 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1588 &do_free_text_value
);
1589 text
.encoding
= (stringp
? XA_STRING
1590 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1592 text
.nitems
= bytes
;
1594 if (!STRINGP (f
->icon_name
))
1597 encoded_icon_name
= encoded_name
;
1601 /* See the above comment "Note: Encoding strategy". */
1602 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1603 &bytes
, &stringp
, &do_free_icon_value
);
1604 icon
.encoding
= (stringp
? XA_STRING
1605 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1607 icon
.nitems
= bytes
;
1609 encoded_icon_name
= ENCODE_UTF_8 (f
->icon_name
);
1613 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1614 (char *) SDATA (encoded_name
));
1615 #else /* not USE_GTK */
1616 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1617 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1618 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_name
,
1619 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1621 (char *) SDATA (encoded_name
),
1622 SBYTES (encoded_name
));
1623 #endif /* not USE_GTK */
1625 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1626 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1627 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_icon_name
,
1628 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1630 (char *) SDATA (encoded_icon_name
),
1631 SBYTES (encoded_icon_name
));
1633 if (do_free_icon_value
)
1635 if (do_free_text_value
)
1642 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1645 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1646 name; if NAME is a string, set F's name to NAME and set
1647 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1649 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1650 suggesting a new name, which lisp code should override; if
1651 F->explicit_name is set, ignore the new name; otherwise, set it. */
1654 x_set_name (struct frame
*f
, Lisp_Object name
, int explicit)
1656 /* Make sure that requests from lisp code override requests from
1657 Emacs redisplay code. */
1660 /* If we're switching from explicit to implicit, we had better
1661 update the mode lines and thereby update the title. */
1662 if (f
->explicit_name
&& NILP (name
))
1663 update_mode_lines
= 1;
1665 f
->explicit_name
= ! NILP (name
);
1667 else if (f
->explicit_name
)
1670 /* If NAME is nil, set the name to the x_id_name. */
1673 /* Check for no change needed in this very common case
1674 before we do any consing. */
1675 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1678 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1681 CHECK_STRING (name
);
1683 /* Don't change the name if it's already NAME. */
1684 if (! NILP (Fstring_equal (name
, f
->name
)))
1689 /* For setting the frame title, the title parameter should override
1690 the name parameter. */
1691 if (! NILP (f
->title
))
1694 x_set_name_internal (f
, name
);
1697 /* This function should be called when the user's lisp code has
1698 specified a name for the frame; the name will override any set by the
1701 x_explicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1703 x_set_name (f
, arg
, 1);
1706 /* This function should be called by Emacs redisplay code to set the
1707 name; names set this way will never override names set by the user's
1710 x_implicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1712 x_set_name (f
, arg
, 0);
1715 /* Change the title of frame F to NAME.
1716 If NAME is nil, use the frame name as the title. */
1719 x_set_title (struct frame
*f
, Lisp_Object name
, Lisp_Object old_name
)
1721 /* Don't change the title if it's already NAME. */
1722 if (EQ (name
, f
->title
))
1725 update_mode_lines
= 1;
1732 CHECK_STRING (name
);
1734 x_set_name_internal (f
, name
);
1738 x_set_scroll_bar_default_width (struct frame
*f
)
1740 int wid
= FRAME_COLUMN_WIDTH (f
);
1742 #ifdef USE_TOOLKIT_SCROLL_BARS
1743 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1744 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1745 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1746 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1748 /* Make the actual width at least 14 pixels and a multiple of a
1750 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1752 /* Use all of that space (aside from required margins) for the
1754 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1759 /* Record in frame F the specified or default value according to ALIST
1760 of the parameter named PROP (a Lisp symbol). If no value is
1761 specified for PROP, look for an X default for XPROP on the frame
1762 named NAME. If that is not found either, use the value DEFLT. */
1765 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1774 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1777 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1778 if (EQ (tem
, Qunbound
))
1780 #ifdef USE_TOOLKIT_SCROLL_BARS
1782 /* See if an X resource for the scroll bar color has been
1784 tem
= display_x_get_resource (dpyinfo
,
1785 build_string (foreground_p
1788 empty_unibyte_string
,
1789 build_string ("verticalScrollBar"),
1790 empty_unibyte_string
);
1793 /* If nothing has been specified, scroll bars will use a
1794 toolkit-dependent default. Because these defaults are
1795 difficult to get at without actually creating a scroll
1796 bar, use nil to indicate that no color has been
1801 #else /* not USE_TOOLKIT_SCROLL_BARS */
1805 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1808 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1815 #ifdef USE_X_TOOLKIT
1817 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1818 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1819 already be present because of the toolkit (Motif adds some of them,
1820 for example, but Xt doesn't). */
1823 hack_wm_protocols (f
, widget
)
1827 Display
*dpy
= XtDisplay (widget
);
1828 Window w
= XtWindow (widget
);
1829 int need_delete
= 1;
1836 unsigned char *catoms
;
1838 unsigned long nitems
= 0;
1839 unsigned long bytes_after
;
1841 if ((XGetWindowProperty (dpy
, w
,
1842 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1843 (long)0, (long)100, False
, XA_ATOM
,
1844 &type
, &format
, &nitems
, &bytes_after
,
1847 && format
== 32 && type
== XA_ATOM
)
1849 Atom
*atoms
= (Atom
*) catoms
;
1854 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1856 else if (atoms
[nitems
]
1857 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1859 else if (atoms
[nitems
]
1860 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1871 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1873 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1875 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1877 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1878 XA_ATOM
, 32, PropModeAppend
,
1879 (unsigned char *) props
, count
);
1887 /* Support routines for XIC (X Input Context). */
1891 static XFontSet
xic_create_xfontset (struct frame
*);
1892 static XIMStyle
best_xim_style (XIMStyles
*, XIMStyles
*);
1895 /* Supported XIM styles, ordered by preference. */
1897 static XIMStyle supported_xim_styles
[] =
1899 XIMPreeditPosition
| XIMStatusArea
,
1900 XIMPreeditPosition
| XIMStatusNothing
,
1901 XIMPreeditPosition
| XIMStatusNone
,
1902 XIMPreeditNothing
| XIMStatusArea
,
1903 XIMPreeditNothing
| XIMStatusNothing
,
1904 XIMPreeditNothing
| XIMStatusNone
,
1905 XIMPreeditNone
| XIMStatusArea
,
1906 XIMPreeditNone
| XIMStatusNothing
,
1907 XIMPreeditNone
| XIMStatusNone
,
1912 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1914 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1916 /* Create an Xt fontset spec from the name of a base font.
1917 If `motif' is True use the Motif syntax. */
1919 xic_create_fontsetname (char *base_fontname
, int motif
)
1921 const char *sep
= motif
? ";" : ",";
1924 /* Make a fontset name from the base font name. */
1925 if (xic_defaut_fontset
== base_fontname
)
1926 { /* There is no base font name, use the default. */
1927 int len
= strlen (base_fontname
) + 2;
1928 fontsetname
= xmalloc (len
);
1929 memset (fontsetname
, 0, len
);
1930 strcpy (fontsetname
, base_fontname
);
1934 /* Make a fontset name from the base font name.
1935 The font set will be made of the following elements:
1937 - the base font where the charset spec is replaced by -*-*.
1938 - the same but with the family also replaced with -*-*-. */
1939 char *p
= base_fontname
;
1942 for (i
= 0; *p
; p
++)
1945 { /* As the font name doesn't conform to XLFD, we can't
1946 modify it to generalize it to allcs and allfamilies.
1947 Use the specified font plus the default. */
1948 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
1949 fontsetname
= xmalloc (len
);
1950 memset (fontsetname
, 0, len
);
1951 strcpy (fontsetname
, base_fontname
);
1952 strcat (fontsetname
, sep
);
1953 strcat (fontsetname
, xic_defaut_fontset
);
1958 char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1959 char *font_allcs
= NULL
;
1960 char *font_allfamilies
= NULL
;
1961 char *font_all
= NULL
;
1962 char *allcs
= "*-*-*-*-*-*-*";
1963 char *allfamilies
= "-*-*-";
1964 char *all
= "*-*-*-*-";
1967 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
1980 /* If base_fontname specifies ADSTYLE, make it a
1984 int diff
= (p2
- p3
) - 2;
1986 base
= alloca (strlen (base_fontname
) + 1);
1987 memcpy (base
, base_fontname
, p3
- base_fontname
);
1988 base
[p3
- base_fontname
] = '*';
1989 base
[(p3
- base_fontname
) + 1] = '-';
1990 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
1991 p
= base
+ (p
- base_fontname
) - diff
;
1992 p1
= base
+ (p1
- base_fontname
);
1993 p2
= base
+ (p2
- base_fontname
) - diff
;
1994 base_fontname
= base
;
1997 /* Build the font spec that matches all charsets. */
1998 len
= p
- base_fontname
+ strlen (allcs
) + 1;
1999 font_allcs
= (char *) alloca (len
);
2000 memset (font_allcs
, 0, len
);
2001 memcpy (font_allcs
, base_fontname
, p
- base_fontname
);
2002 strcat (font_allcs
, allcs
);
2004 /* Build the font spec that matches all families and
2006 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2007 font_allfamilies
= (char *) alloca (len
);
2008 memset (font_allfamilies
, 0, len
);
2009 strcpy (font_allfamilies
, allfamilies
);
2010 memcpy (font_allfamilies
+ strlen (allfamilies
), p1
, p
- p1
);
2011 strcat (font_allfamilies
, allcs
);
2013 /* Build the font spec that matches all. */
2014 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2015 font_all
= (char *) alloca (len
);
2016 memset (font_all
, 0, len
);
2017 strcpy (font_all
, allfamilies
);
2018 strcat (font_all
, all
);
2019 memcpy (font_all
+ strlen (all
) + strlen (allfamilies
), p2
, p
- p2
);
2020 strcat (font_all
, allcs
);
2022 /* Build the actual font set name. */
2023 len
= strlen (base_fontname
) + strlen (font_allcs
)
2024 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2025 fontsetname
= xmalloc (len
);
2026 memset (fontsetname
, 0, len
);
2027 strcpy (fontsetname
, base_fontname
);
2028 strcat (fontsetname
, sep
);
2029 strcat (fontsetname
, font_allcs
);
2030 strcat (fontsetname
, sep
);
2031 strcat (fontsetname
, font_allfamilies
);
2032 strcat (fontsetname
, sep
);
2033 strcat (fontsetname
, font_all
);
2037 strcat (fontsetname
, ":");
2041 #ifdef DEBUG_XIC_FONTSET
2043 print_fontset_result (xfs
, name
, missing_list
, missing_count
)
2046 char **missing_list
;
2050 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
2053 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
2054 while (missing_count
-- > 0)
2056 fprintf (stderr
, " missing: %s\n", *missing_list
);
2065 xic_create_xfontset (struct frame
*f
)
2067 XFontSet xfs
= NULL
;
2068 struct font
*font
= FRAME_FONT (f
);
2069 int pixel_size
= font
->pixel_size
;
2070 Lisp_Object rest
, frame
;
2072 /* See if there is another frame already using same fontset. */
2073 FOR_EACH_FRAME (rest
, frame
)
2075 struct frame
*cf
= XFRAME (frame
);
2077 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2078 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2080 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
2082 xfs
= FRAME_XIC_FONTSET (cf
);
2090 char **missing_list
;
2093 char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
2095 sprintf (buf
, xlfd_format
, pixel_size
);
2096 missing_list
= NULL
;
2097 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2098 &missing_list
, &missing_count
, &def_string
);
2099 #ifdef DEBUG_XIC_FONTSET
2100 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2103 XFreeStringList (missing_list
);
2106 /* List of pixel sizes most likely available. Find one that
2107 is closest to pixel_size. */
2108 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2109 int *smaller
, *larger
;
2111 for (smaller
= sizes
; smaller
[1]; smaller
++)
2112 if (smaller
[1] >= pixel_size
)
2114 larger
= smaller
+ 1;
2115 if (*larger
== pixel_size
)
2117 while (*smaller
|| *larger
)
2122 this_size
= *smaller
--;
2123 else if (! *smaller
)
2124 this_size
= *larger
++;
2125 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
2126 this_size
= *smaller
--;
2128 this_size
= *larger
++;
2129 sprintf (buf
, xlfd_format
, this_size
);
2130 missing_list
= NULL
;
2131 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2132 &missing_list
, &missing_count
, &def_string
);
2133 #ifdef DEBUG_XIC_FONTSET
2134 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2137 XFreeStringList (missing_list
);
2144 char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
2146 missing_list
= NULL
;
2147 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
2148 &missing_list
, &missing_count
, &def_string
);
2149 #ifdef DEBUG_XIC_FONTSET
2150 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
2153 XFreeStringList (missing_list
);
2161 /* Free the X fontset of frame F if it is the last frame using it. */
2164 xic_free_xfontset (struct frame
*f
)
2166 Lisp_Object rest
, frame
;
2169 if (!FRAME_XIC_FONTSET (f
))
2172 /* See if there is another frame sharing the same fontset. */
2173 FOR_EACH_FRAME (rest
, frame
)
2175 struct frame
*cf
= XFRAME (frame
);
2176 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2177 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2178 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2186 /* The fontset is not used anymore. It is safe to free it. */
2187 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2189 if (FRAME_XIC_BASE_FONTNAME (f
))
2190 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2191 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2192 FRAME_XIC_FONTSET (f
) = NULL
;
2196 /* Value is the best input style, given user preferences USER (already
2197 checked to be supported by Emacs), and styles supported by the
2198 input method XIM. */
2201 best_xim_style (XIMStyles
*user
, XIMStyles
*xim
)
2205 for (i
= 0; i
< user
->count_styles
; ++i
)
2206 for (j
= 0; j
< xim
->count_styles
; ++j
)
2207 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2208 return user
->supported_styles
[i
];
2210 /* Return the default style. */
2211 return XIMPreeditNothing
| XIMStatusNothing
;
2214 /* Create XIC for frame F. */
2216 static XIMStyle xic_style
;
2219 create_frame_xic (struct frame
*f
)
2223 XFontSet xfs
= NULL
;
2228 /* Create X fontset. */
2229 xfs
= xic_create_xfontset (f
);
2230 xim
= FRAME_X_XIM (f
);
2235 XVaNestedList preedit_attr
;
2236 XVaNestedList status_attr
;
2238 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2239 spot
.x
= 0; spot
.y
= 1;
2241 /* Determine XIC style. */
2244 XIMStyles supported_list
;
2245 supported_list
.count_styles
= (sizeof supported_xim_styles
2246 / sizeof supported_xim_styles
[0]);
2247 supported_list
.supported_styles
= supported_xim_styles
;
2248 xic_style
= best_xim_style (&supported_list
,
2249 FRAME_X_XIM_STYLES (f
));
2252 preedit_attr
= XVaCreateNestedList (0,
2255 FRAME_FOREGROUND_PIXEL (f
),
2257 FRAME_BACKGROUND_PIXEL (f
),
2258 (xic_style
& XIMPreeditPosition
2263 status_attr
= XVaCreateNestedList (0,
2269 FRAME_FOREGROUND_PIXEL (f
),
2271 FRAME_BACKGROUND_PIXEL (f
),
2274 xic
= XCreateIC (xim
,
2275 XNInputStyle
, xic_style
,
2276 XNClientWindow
, FRAME_X_WINDOW (f
),
2277 XNFocusWindow
, FRAME_X_WINDOW (f
),
2278 XNStatusAttributes
, status_attr
,
2279 XNPreeditAttributes
, preedit_attr
,
2281 XFree (preedit_attr
);
2282 XFree (status_attr
);
2285 FRAME_XIC (f
) = xic
;
2286 FRAME_XIC_STYLE (f
) = xic_style
;
2287 FRAME_XIC_FONTSET (f
) = xfs
;
2291 /* Destroy XIC and free XIC fontset of frame F, if any. */
2294 free_frame_xic (struct frame
*f
)
2296 if (FRAME_XIC (f
) == NULL
)
2299 XDestroyIC (FRAME_XIC (f
));
2300 xic_free_xfontset (f
);
2302 FRAME_XIC (f
) = NULL
;
2306 /* Place preedit area for XIC of window W's frame to specified
2307 pixel position X/Y. X and Y are relative to window W. */
2310 xic_set_preeditarea (struct window
*w
, int x
, int y
)
2312 struct frame
*f
= XFRAME (w
->frame
);
2316 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2317 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2318 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2319 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2324 /* Place status area for XIC in bottom right corner of frame F.. */
2327 xic_set_statusarea (struct frame
*f
)
2329 XIC xic
= FRAME_XIC (f
);
2334 /* Negotiate geometry of status area. If input method has existing
2335 status area, use its current size. */
2336 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2337 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2338 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2341 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2342 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2345 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2347 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2348 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2352 area
.width
= needed
->width
;
2353 area
.height
= needed
->height
;
2354 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2355 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2356 - FRAME_MENUBAR_HEIGHT (f
)
2357 - FRAME_TOOLBAR_HEIGHT (f
)
2358 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2361 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2362 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2367 /* Set X fontset for XIC of frame F, using base font name
2368 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2371 xic_set_xfontset (struct frame
*f
, char *base_fontname
)
2376 xic_free_xfontset (f
);
2378 xfs
= xic_create_xfontset (f
);
2380 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2381 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2382 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2383 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2384 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2387 FRAME_XIC_FONTSET (f
) = xfs
;
2390 #endif /* HAVE_X_I18N */
2394 #ifdef USE_X_TOOLKIT
2396 /* Create and set up the X widget for frame F. */
2399 x_window (f
, window_prompting
, minibuffer_only
)
2401 long window_prompting
;
2402 int minibuffer_only
;
2404 XClassHint class_hints
;
2405 XSetWindowAttributes attributes
;
2406 unsigned long attribute_mask
;
2407 Widget shell_widget
;
2409 Widget frame_widget
;
2415 /* Use the resource name as the top-level widget name
2416 for looking up resources. Make a non-Lisp copy
2417 for the window manager, so GC relocation won't bother it.
2419 Elsewhere we specify the window name for the window manager. */
2422 char *str
= (char *) SDATA (Vx_resource_name
);
2423 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2424 strcpy (f
->namebuf
, str
);
2428 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2429 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2430 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2431 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2432 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2433 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2434 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2435 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2436 applicationShellWidgetClass
,
2437 FRAME_X_DISPLAY (f
), al
, ac
);
2439 f
->output_data
.x
->widget
= shell_widget
;
2440 /* maybe_set_screen_title_format (shell_widget); */
2442 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2443 (widget_value
*) NULL
,
2444 shell_widget
, False
,
2448 (lw_callback
) NULL
);
2451 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2452 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2453 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2454 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2455 XtSetValues (pane_widget
, al
, ac
);
2456 f
->output_data
.x
->column_widget
= pane_widget
;
2458 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2459 the emacs screen when changing menubar. This reduces flickering. */
2462 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2463 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2464 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2465 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2466 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2467 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2468 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2469 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2470 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2471 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2474 f
->output_data
.x
->edit_widget
= frame_widget
;
2476 XtManageChild (frame_widget
);
2478 /* Do some needed geometry management. */
2481 char *tem
, shell_position
[32];
2484 int extra_borders
= 0;
2486 = (f
->output_data
.x
->menubar_widget
2487 ? (f
->output_data
.x
->menubar_widget
->core
.height
2488 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2491 #if 0 /* Experimentally, we now get the right results
2492 for -geometry -0-0 without this. 24 Aug 96, rms. */
2493 if (FRAME_EXTERNAL_MENU_BAR (f
))
2496 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2497 menubar_size
+= ibw
;
2501 f
->output_data
.x
->menubar_height
= menubar_size
;
2504 /* Motif seems to need this amount added to the sizes
2505 specified for the shell widget. The Athena/Lucid widgets don't.
2506 Both conclusions reached experimentally. -- rms. */
2507 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2508 &extra_borders
, NULL
);
2512 /* Convert our geometry parameters into a geometry string
2514 Note that we do not specify here whether the position
2515 is a user-specified or program-specified one.
2516 We pass that information later, in x_wm_set_size_hints. */
2518 int left
= f
->left_pos
;
2519 int xneg
= window_prompting
& XNegative
;
2520 int top
= f
->top_pos
;
2521 int yneg
= window_prompting
& YNegative
;
2527 if (window_prompting
& USPosition
)
2528 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2529 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2530 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2531 (xneg
? '-' : '+'), left
,
2532 (yneg
? '-' : '+'), top
);
2535 sprintf (shell_position
, "=%dx%d",
2536 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2537 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2539 /* Setting x and y when the position is not specified in
2540 the geometry string will set program position in the WM hints.
2541 If Emacs had just one program position, we could set it in
2542 fallback resources, but since each make-frame call can specify
2543 different program positions, this is easier. */
2544 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2545 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2549 len
= strlen (shell_position
) + 1;
2550 /* We don't free this because we don't know whether
2551 it is safe to free it while the frame exists.
2552 It isn't worth the trouble of arranging to free it
2553 when the frame is deleted. */
2554 tem
= (char *) xmalloc (len
);
2555 strncpy (tem
, shell_position
, len
);
2556 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2557 XtSetValues (shell_widget
, al
, ac
);
2560 XtManageChild (pane_widget
);
2561 XtRealizeWidget (shell_widget
);
2563 if (FRAME_X_EMBEDDED_P (f
))
2564 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2565 f
->output_data
.x
->parent_desc
, 0, 0);
2567 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2569 validate_x_resource_name ();
2571 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2572 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2573 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2576 FRAME_XIC (f
) = NULL
;
2578 create_frame_xic (f
);
2581 f
->output_data
.x
->wm_hints
.input
= True
;
2582 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2583 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2584 &f
->output_data
.x
->wm_hints
);
2586 hack_wm_protocols (f
, shell_widget
);
2589 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2592 /* Do a stupid property change to force the server to generate a
2593 PropertyNotify event so that the event_stream server timestamp will
2594 be initialized to something relevant to the time we created the window.
2596 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2597 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2598 XA_ATOM
, 32, PropModeAppend
,
2599 (unsigned char*) NULL
, 0);
2601 /* Make all the standard events reach the Emacs frame. */
2602 attributes
.event_mask
= STANDARD_EVENT_SET
;
2607 /* XIM server might require some X events. */
2608 unsigned long fevent
= NoEventMask
;
2609 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2610 attributes
.event_mask
|= fevent
;
2612 #endif /* HAVE_X_I18N */
2614 attribute_mask
= CWEventMask
;
2615 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2616 attribute_mask
, &attributes
);
2618 XtMapWidget (frame_widget
);
2620 /* x_set_name normally ignores requests to set the name if the
2621 requested name is the same as the current name. This is the one
2622 place where that assumption isn't correct; f->name is set, but
2623 the X server hasn't been told. */
2626 int explicit = f
->explicit_name
;
2628 f
->explicit_name
= 0;
2631 x_set_name (f
, name
, explicit);
2634 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2635 f
->output_data
.x
->current_cursor
2636 = f
->output_data
.x
->text_cursor
);
2640 /* This is a no-op, except under Motif. Make sure main areas are
2641 set to something reasonable, in case we get an error later. */
2642 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2645 #else /* not USE_X_TOOLKIT */
2648 x_window (FRAME_PTR f
)
2650 if (! xg_create_frame_widgets (f
))
2651 error ("Unable to create window");
2654 FRAME_XIC (f
) = NULL
;
2658 create_frame_xic (f
);
2661 /* XIM server might require some X events. */
2662 unsigned long fevent
= NoEventMask
;
2663 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2665 if (fevent
!= NoEventMask
)
2667 XSetWindowAttributes attributes
;
2668 XWindowAttributes wattr
;
2669 unsigned long attribute_mask
;
2671 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2673 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2674 attribute_mask
= CWEventMask
;
2675 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2676 attribute_mask
, &attributes
);
2684 #else /*! USE_GTK */
2685 /* Create and set up the X window for frame F. */
2692 XClassHint class_hints
;
2693 XSetWindowAttributes attributes
;
2694 unsigned long attribute_mask
;
2696 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2697 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2698 attributes
.bit_gravity
= StaticGravity
;
2699 attributes
.backing_store
= NotUseful
;
2700 attributes
.save_under
= True
;
2701 attributes
.event_mask
= STANDARD_EVENT_SET
;
2702 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2703 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2708 = XCreateWindow (FRAME_X_DISPLAY (f
),
2709 f
->output_data
.x
->parent_desc
,
2712 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2714 CopyFromParent
, /* depth */
2715 InputOutput
, /* class */
2717 attribute_mask
, &attributes
);
2722 create_frame_xic (f
);
2725 /* XIM server might require some X events. */
2726 unsigned long fevent
= NoEventMask
;
2727 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2728 attributes
.event_mask
|= fevent
;
2729 attribute_mask
= CWEventMask
;
2730 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2731 attribute_mask
, &attributes
);
2734 #endif /* HAVE_X_I18N */
2736 validate_x_resource_name ();
2738 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2739 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2740 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2742 /* The menubar is part of the ordinary display;
2743 it does not count in addition to the height of the window. */
2744 f
->output_data
.x
->menubar_height
= 0;
2746 /* This indicates that we use the "Passive Input" input model.
2747 Unless we do this, we don't get the Focus{In,Out} events that we
2748 need to draw the cursor correctly. Accursed bureaucrats.
2749 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2751 f
->output_data
.x
->wm_hints
.input
= True
;
2752 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2753 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2754 &f
->output_data
.x
->wm_hints
);
2755 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2757 /* Request "save yourself" and "delete window" commands from wm. */
2760 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2761 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2762 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2765 /* x_set_name normally ignores requests to set the name if the
2766 requested name is the same as the current name. This is the one
2767 place where that assumption isn't correct; f->name is set, but
2768 the X server hasn't been told. */
2771 int explicit = f
->explicit_name
;
2773 f
->explicit_name
= 0;
2776 x_set_name (f
, name
, explicit);
2779 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2780 f
->output_data
.x
->current_cursor
2781 = f
->output_data
.x
->text_cursor
);
2785 if (FRAME_X_WINDOW (f
) == 0)
2786 error ("Unable to create window");
2789 #endif /* not USE_GTK */
2790 #endif /* not USE_X_TOOLKIT */
2792 /* Verify that the icon position args for this window are valid. */
2795 x_icon_verify (struct frame
*f
, Lisp_Object parms
)
2797 Lisp_Object icon_x
, icon_y
;
2799 /* Set the position of the icon. Note that twm groups all
2800 icons in an icon window. */
2801 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2802 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2803 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2805 CHECK_NUMBER (icon_x
);
2806 CHECK_NUMBER (icon_y
);
2808 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2809 error ("Both left and top icon corners of icon must be specified");
2812 /* Handle the icon stuff for this window. Perhaps later we might
2813 want an x_set_icon_position which can be called interactively as
2817 x_icon (struct frame
*f
, Lisp_Object parms
)
2819 Lisp_Object icon_x
, icon_y
;
2821 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2824 /* Set the position of the icon. Note that twm groups all
2825 icons in an icon window. */
2826 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2827 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2828 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2830 CHECK_NUMBER (icon_x
);
2831 CHECK_NUMBER (icon_y
);
2833 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2834 error ("Both left and top icon corners of icon must be specified");
2838 if (! EQ (icon_x
, Qunbound
))
2839 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2841 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2842 but x_create_frame still needs it. */
2843 /* Start up iconic or window? */
2844 x_wm_set_window_state
2845 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2851 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2858 /* Make the GCs needed for this window, setting the
2859 background, border and mouse colors; also create the
2860 mouse cursor and the gray border tile. */
2863 x_make_gc (struct frame
*f
)
2865 XGCValues gc_values
;
2869 /* Create the GCs of this frame.
2870 Note that many default values are used. */
2872 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2873 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2874 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2875 f
->output_data
.x
->normal_gc
2876 = XCreateGC (FRAME_X_DISPLAY (f
),
2878 GCLineWidth
| GCForeground
| GCBackground
,
2881 /* Reverse video style. */
2882 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2883 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2884 f
->output_data
.x
->reverse_gc
2885 = XCreateGC (FRAME_X_DISPLAY (f
),
2887 GCForeground
| GCBackground
| GCLineWidth
,
2890 /* Cursor has cursor-color background, background-color foreground. */
2891 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2892 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2893 gc_values
.fill_style
= FillOpaqueStippled
;
2894 f
->output_data
.x
->cursor_gc
2895 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2896 (GCForeground
| GCBackground
2897 | GCFillStyle
| GCLineWidth
),
2901 f
->output_data
.x
->white_relief
.gc
= 0;
2902 f
->output_data
.x
->black_relief
.gc
= 0;
2904 /* Create the gray border tile used when the pointer is not in
2905 the frame. Since this depends on the frame's pixel values,
2906 this must be done on a per-frame basis. */
2907 f
->output_data
.x
->border_tile
2908 = (XCreatePixmapFromBitmapData
2909 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2910 gray_bits
, gray_width
, gray_height
,
2911 FRAME_FOREGROUND_PIXEL (f
),
2912 FRAME_BACKGROUND_PIXEL (f
),
2913 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2919 /* Free what was allocated in x_make_gc. */
2922 x_free_gcs (struct frame
*f
)
2924 Display
*dpy
= FRAME_X_DISPLAY (f
);
2928 if (f
->output_data
.x
->normal_gc
)
2930 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2931 f
->output_data
.x
->normal_gc
= 0;
2934 if (f
->output_data
.x
->reverse_gc
)
2936 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2937 f
->output_data
.x
->reverse_gc
= 0;
2940 if (f
->output_data
.x
->cursor_gc
)
2942 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2943 f
->output_data
.x
->cursor_gc
= 0;
2946 if (f
->output_data
.x
->border_tile
)
2948 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2949 f
->output_data
.x
->border_tile
= 0;
2956 /* Handler for signals raised during x_create_frame and
2957 x_create_top_frame. FRAME is the frame which is partially
2961 unwind_create_frame (Lisp_Object frame
)
2963 struct frame
*f
= XFRAME (frame
);
2965 /* If frame is already dead, nothing to do. This can happen if the
2966 display is disconnected after the frame has become official, but
2967 before x_create_frame removes the unwind protect. */
2968 if (!FRAME_LIVE_P (f
))
2971 /* If frame is ``official'', nothing to do. */
2972 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2975 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2978 x_free_frame_resources (f
);
2981 /* Check that reference counts are indeed correct. */
2982 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2983 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2993 x_default_font_parameter (struct frame
*f
, Lisp_Object parms
)
2995 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2996 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
2998 Lisp_Object font
= Qnil
;
2999 if (EQ (font_param
, Qunbound
))
3002 if (NILP (font_param
))
3004 /* System font should take precedendce over X resources. We suggest this
3005 regardless of font-use-system-font because .emacs may not have been
3007 const char *system_font
= xsettings_get_system_font ();
3010 char *name
= xstrdup (system_font
);
3011 font
= font_open_by_name (f
, name
);
3017 font
= !NILP (font_param
) ? font_param
3018 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3020 if (! FONTP (font
) && ! STRINGP (font
))
3025 /* This will find the normal Xft font. */
3028 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
3029 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3030 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3031 /* This was formerly the first thing tried, but it finds
3032 too many fonts and takes too long. */
3033 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
3034 /* If those didn't work, look for something which will
3036 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
3041 for (i
= 0; names
[i
]; i
++)
3043 font
= font_open_by_name (f
, names
[i
]);
3048 error ("No suitable font was found");
3050 else if (!NILP (font_param
))
3052 /* Remember the explicit font parameter, so we can re-apply it after
3053 we've applied the `default' face settings. */
3054 x_set_frame_parameters (f
, Fcons (Fcons (Qfont_param
, font_param
), Qnil
));
3057 /* This call will make X resources override any system font setting. */
3058 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
3062 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
3064 doc
: /* Send the size hints for frame FRAME to the window manager.
3065 If FRAME is nil, use the selected frame. */)
3070 frame
= selected_frame
;
3074 x_wm_set_size_hint (f
, 0, 0);
3080 set_machine_and_pid_properties (struct frame
*f
)
3082 /* See the above comment "Note: Encoding strategy". */
3085 int do_free_text_value
= 0;
3086 long pid
= (long) getpid ();
3088 text
.value
= x_encode_text (Vsystem_name
,
3089 Qcompound_text
, 0, &bytes
, &stringp
,
3090 &do_free_text_value
);
3091 text
.encoding
= (stringp
? XA_STRING
3092 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
3094 text
.nitems
= bytes
;
3095 XSetWMClientMachine (FRAME_X_DISPLAY (f
),
3096 FRAME_OUTER_WINDOW (f
),
3098 if (do_free_text_value
)
3101 XChangeProperty (FRAME_X_DISPLAY (f
),
3102 FRAME_OUTER_WINDOW (f
),
3103 XInternAtom (FRAME_X_DISPLAY (f
),
3106 XA_CARDINAL
, 32, PropModeReplace
,
3107 (unsigned char *) &pid
, 1);
3110 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3112 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3113 Return an Emacs frame object.
3114 PARMS is an alist of frame parameters.
3115 If the parameters specify that the frame should not have a minibuffer,
3116 and do not specify a specific minibuffer window to use,
3117 then `default-minibuffer-frame' must be a frame whose minibuffer can
3118 be shared by the new frame.
3120 This function is an internal primitive--use `make-frame' instead. */)
3124 Lisp_Object frame
, tem
;
3126 int minibuffer_only
= 0;
3127 long window_prompting
= 0;
3129 int count
= SPECPDL_INDEX ();
3130 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3131 Lisp_Object display
;
3132 struct x_display_info
*dpyinfo
= NULL
;
3136 parms
= Fcopy_alist (parms
);
3138 /* Use this general default value to start with
3139 until we know if this frame has a specified name. */
3140 Vx_resource_name
= Vinvocation_name
;
3142 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3143 if (EQ (display
, Qunbound
))
3144 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3145 if (EQ (display
, Qunbound
))
3147 dpyinfo
= check_x_display_info (display
);
3148 kb
= dpyinfo
->terminal
->kboard
;
3150 if (!dpyinfo
->terminal
->name
)
3151 error ("Terminal is not live, can't create new frames on it");
3153 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3155 && ! EQ (name
, Qunbound
)
3157 error ("Invalid frame name--not a string or nil");
3160 Vx_resource_name
= name
;
3162 /* See if parent window is specified. */
3163 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3164 if (EQ (parent
, Qunbound
))
3166 if (! NILP (parent
))
3167 CHECK_NUMBER (parent
);
3169 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3170 /* No need to protect DISPLAY because that's not used after passing
3171 it to make_frame_without_minibuffer. */
3173 GCPRO4 (parms
, parent
, name
, frame
);
3174 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3176 if (EQ (tem
, Qnone
) || NILP (tem
))
3177 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3178 else if (EQ (tem
, Qonly
))
3180 f
= make_minibuffer_frame ();
3181 minibuffer_only
= 1;
3183 else if (WINDOWP (tem
))
3184 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3188 XSETFRAME (frame
, f
);
3190 /* Note that X Windows does support scroll bars. */
3191 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3193 f
->terminal
= dpyinfo
->terminal
;
3194 f
->terminal
->reference_count
++;
3196 f
->output_method
= output_x_window
;
3197 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3198 memset (f
->output_data
.x
, 0, sizeof (struct x_output
));
3199 f
->output_data
.x
->icon_bitmap
= -1;
3200 FRAME_FONTSET (f
) = -1;
3201 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3202 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3203 #ifdef USE_TOOLKIT_SCROLL_BARS
3204 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3205 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3206 #endif /* USE_TOOLKIT_SCROLL_BARS */
3209 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3211 if (! STRINGP (f
->icon_name
))
3212 f
->icon_name
= Qnil
;
3214 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3216 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3217 record_unwind_protect (unwind_create_frame
, frame
);
3219 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
3220 dpyinfo_refcount
= dpyinfo
->reference_count
;
3221 #endif /* GLYPH_DEBUG */
3223 /* These colors will be set anyway later, but it's important
3224 to get the color reference counts right, so initialize them! */
3227 struct gcpro gcpro1
;
3229 /* Function x_decode_color can signal an error. Make
3230 sure to initialize color slots so that we won't try
3231 to free colors we haven't allocated. */
3232 FRAME_FOREGROUND_PIXEL (f
) = -1;
3233 FRAME_BACKGROUND_PIXEL (f
) = -1;
3234 f
->output_data
.x
->cursor_pixel
= -1;
3235 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3236 f
->output_data
.x
->border_pixel
= -1;
3237 f
->output_data
.x
->mouse_pixel
= -1;
3239 black
= build_string ("black");
3241 FRAME_FOREGROUND_PIXEL (f
)
3242 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3243 FRAME_BACKGROUND_PIXEL (f
)
3244 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3245 f
->output_data
.x
->cursor_pixel
3246 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3247 f
->output_data
.x
->cursor_foreground_pixel
3248 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3249 f
->output_data
.x
->border_pixel
3250 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3251 f
->output_data
.x
->mouse_pixel
3252 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3256 /* Specify the parent under which to make this X window. */
3260 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3261 f
->output_data
.x
->explicit_parent
= 1;
3265 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3266 f
->output_data
.x
->explicit_parent
= 0;
3269 /* Set the name; the functions to which we pass f expect the name to
3271 if (EQ (name
, Qunbound
) || NILP (name
))
3273 f
->name
= build_string (dpyinfo
->x_id_name
);
3274 f
->explicit_name
= 0;
3279 f
->explicit_name
= 1;
3280 /* use the frame's title when getting resources for this frame. */
3281 specbind (Qx_resource_name
, name
);
3284 f
->resx
= dpyinfo
->resx
;
3285 f
->resy
= dpyinfo
->resy
;
3287 #ifdef HAVE_FREETYPE
3289 register_font_driver (&xftfont_driver
, f
);
3290 #else /* not HAVE_XFT */
3291 register_font_driver (&ftxfont_driver
, f
);
3292 #endif /* not HAVE_XFT */
3293 #endif /* HAVE_FREETYPE */
3294 register_font_driver (&xfont_driver
, f
);
3296 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3297 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3299 /* Extract the window parameters from the supplied values
3300 that are needed to determine window geometry. */
3301 x_default_font_parameter (f
, parms
);
3302 if (!FRAME_FONT (f
))
3304 delete_frame (frame
, Qnoelisp
);
3305 error ("Invalid frame font");
3308 /* Frame contents get displaced if an embedded X window has a border. */
3309 if (! FRAME_X_EMBEDDED_P (f
))
3310 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
3311 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3313 /* This defaults to 1 in order to match xterm. We recognize either
3314 internalBorderWidth or internalBorder (which is what xterm calls
3316 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3320 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3321 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3322 if (! EQ (value
, Qunbound
))
3323 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3326 x_default_parameter (f
, parms
, Qinternal_border_width
,
3327 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3332 "internalBorderWidth", "internalBorderWidth",
3334 x_default_parameter (f
, parms
, Qvertical_scroll_bars
,
3335 #if defined(USE_GTK) && defined(USE_TOOLKIT_SCROLL_BARS)
3340 "verticalScrollBars", "ScrollBars",
3343 /* Also do the stuff which must be set before the window exists. */
3344 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3345 "foreground", "Foreground", RES_TYPE_STRING
);
3346 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3347 "background", "Background", RES_TYPE_STRING
);
3348 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3349 "pointerColor", "Foreground", RES_TYPE_STRING
);
3350 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3351 "cursorColor", "Foreground", RES_TYPE_STRING
);
3352 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3353 "borderColor", "BorderColor", RES_TYPE_STRING
);
3354 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3355 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3356 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3357 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3358 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3359 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3360 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3361 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3363 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3364 "scrollBarForeground",
3365 "ScrollBarForeground", 1);
3366 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3367 "scrollBarBackground",
3368 "ScrollBarBackground", 0);
3370 /* Init faces before x_default_parameter is called for scroll-bar
3371 parameters because that function calls x_set_scroll_bar_width,
3372 which calls change_frame_size, which calls Fset_window_buffer,
3373 which runs hooks, which call Fvertical_motion. At the end, we
3374 end up in init_iterator with a null face cache, which should not
3376 init_frame_faces (f
);
3378 /* The X resources controlling the menu-bar and tool-bar are
3379 processed specially at startup, and reflected in the mode
3380 variables; ignore them here. */
3381 x_default_parameter (f
, parms
, Qmenu_bar_lines
,
3382 NILP (Vmenu_bar_mode
)
3383 ? make_number (0) : make_number (1),
3384 NULL
, NULL
, RES_TYPE_NUMBER
);
3385 x_default_parameter (f
, parms
, Qtool_bar_lines
,
3386 NILP (Vtool_bar_mode
)
3387 ? make_number (0) : make_number (1),
3388 NULL
, NULL
, RES_TYPE_NUMBER
);
3390 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3391 "bufferPredicate", "BufferPredicate",
3393 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3394 "title", "Title", RES_TYPE_STRING
);
3395 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3396 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3397 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3398 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3400 /* Compute the size of the X window. */
3401 window_prompting
= x_figure_window_size (f
, parms
, 1);
3403 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3404 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3406 x_icon_verify (f
, parms
);
3408 /* Create the X widget or window. */
3409 #ifdef USE_X_TOOLKIT
3410 x_window (f
, window_prompting
, minibuffer_only
);
3418 /* Now consider the frame official. */
3419 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3420 Vframe_list
= Fcons (frame
, Vframe_list
);
3422 /* We need to do this after creating the X window, so that the
3423 icon-creation functions can say whose icon they're describing. */
3424 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3425 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3427 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3428 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3429 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3430 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3431 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3432 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3433 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3434 "scrollBarWidth", "ScrollBarWidth",
3436 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3437 "alpha", "Alpha", RES_TYPE_NUMBER
);
3439 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3440 Change will not be effected unless different from the current
3442 width
= FRAME_COLS (f
);
3443 height
= FRAME_LINES (f
);
3445 SET_FRAME_COLS (f
, 0);
3446 FRAME_LINES (f
) = 0;
3447 change_frame_size (f
, height
, width
, 1, 0, 0);
3449 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3450 /* Create the menu bar. */
3451 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3453 /* If this signals an error, we haven't set size hints for the
3454 frame and we didn't make it visible. */
3455 initialize_frame_menubar (f
);
3458 /* This is a no-op, except under Motif where it arranges the
3459 main window for the widgets on it. */
3460 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3461 f
->output_data
.x
->menubar_widget
,
3462 f
->output_data
.x
->edit_widget
);
3463 #endif /* not USE_GTK */
3465 #endif /* USE_X_TOOLKIT || USE_GTK */
3467 /* Tell the server what size and position, etc, we want, and how
3468 badly we want them. This should be done after we have the menu
3469 bar so that its size can be taken into account. */
3471 x_wm_set_size_hint (f
, window_prompting
, 0);
3474 /* Make the window appear on the frame and enable display, unless
3475 the caller says not to. However, with explicit parent, Emacs
3476 cannot control visibility, so don't try. */
3477 if (! f
->output_data
.x
->explicit_parent
)
3479 Lisp_Object visibility
;
3481 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3483 if (EQ (visibility
, Qunbound
))
3486 if (EQ (visibility
, Qicon
))
3487 x_iconify_frame (f
);
3488 else if (! NILP (visibility
))
3489 x_make_frame_visible (f
);
3491 /* Must have been Qnil. */
3497 /* Set machine name and pid for the purpose of window managers. */
3498 set_machine_and_pid_properties(f
);
3500 /* Set the WM leader property. GTK does this itself, so this is not
3501 needed when using GTK. */
3502 if (dpyinfo
->client_leader_window
!= 0)
3504 XChangeProperty (FRAME_X_DISPLAY (f
),
3505 FRAME_OUTER_WINDOW (f
),
3506 dpyinfo
->Xatom_wm_client_leader
,
3507 XA_WINDOW
, 32, PropModeReplace
,
3508 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3513 /* Initialize `default-minibuffer-frame' in case this is the first
3514 frame on this terminal. */
3515 if (FRAME_HAS_MINIBUF_P (f
)
3516 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3517 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3518 kb
->Vdefault_minibuffer_frame
= frame
;
3520 /* All remaining specified parameters, which have not been "used"
3521 by x_get_arg and friends, now go in the misc. alist of the frame. */
3522 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3523 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3524 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3528 /* Make sure windows on this frame appear in calls to next-window
3529 and similar functions. */
3530 Vwindow_list
= Qnil
;
3532 return unbind_to (count
, frame
);
3536 /* FRAME is used only to get a handle on the X display. We don't pass the
3537 display info directly because we're called from frame.c, which doesn't
3538 know about that structure. */
3541 x_get_focus_frame (struct frame
*frame
)
3543 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3545 if (! dpyinfo
->x_focus_frame
)
3548 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3553 /* In certain situations, when the window manager follows a
3554 click-to-focus policy, there seems to be no way around calling
3555 XSetInputFocus to give another frame the input focus .
3557 In an ideal world, XSetInputFocus should generally be avoided so
3558 that applications don't interfere with the window manager's focus
3559 policy. But I think it's okay to use when it's clearly done
3560 following a user-command. */
3562 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3563 doc
: /* Set the input focus to FRAME.
3564 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. */)
3584 (Lisp_Object color
, Lisp_Object frame
)
3587 FRAME_PTR f
= check_x_frame (frame
);
3589 CHECK_STRING (color
);
3591 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3597 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3598 doc
: /* Internal function called by `color-values', which see. */)
3599 (Lisp_Object color
, Lisp_Object frame
)
3602 FRAME_PTR f
= check_x_frame (frame
);
3604 CHECK_STRING (color
);
3606 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3607 return list3 (make_number (foo
.red
),
3608 make_number (foo
.green
),
3609 make_number (foo
.blue
));
3614 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3615 doc
: /* Internal function called by `display-color-p', which see. */)
3616 (Lisp_Object terminal
)
3618 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3620 if (dpyinfo
->n_planes
<= 2)
3623 switch (dpyinfo
->visual
->class)
3636 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3638 doc
: /* Return t if the X display supports shades of gray.
3639 Note that color displays do support shades of gray.
3640 The optional argument TERMINAL specifies which display to ask about.
3641 TERMINAL should be a terminal object, a frame or a display name (a string).
3642 If omitted or nil, that stands for the selected frame's display. */)
3643 (Lisp_Object terminal
)
3645 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3647 if (dpyinfo
->n_planes
<= 1)
3650 switch (dpyinfo
->visual
->class)
3665 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3667 doc
: /* Return the width in pixels of the X display TERMINAL.
3668 The optional argument TERMINAL specifies which display to ask about.
3669 TERMINAL should be a terminal object, a frame or a display name (a string).
3670 If omitted or nil, that stands for the selected frame's display. */)
3671 (Lisp_Object terminal
)
3673 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3675 return make_number (x_display_pixel_width (dpyinfo
));
3678 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3679 Sx_display_pixel_height
, 0, 1, 0,
3680 doc
: /* Return the height in pixels of the X display TERMINAL.
3681 The optional argument TERMINAL specifies which display to ask about.
3682 TERMINAL should be a terminal object, a frame or a display name (a string).
3683 If omitted or nil, that stands for the selected frame's display. */)
3684 (Lisp_Object terminal
)
3686 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3688 return make_number (x_display_pixel_height (dpyinfo
));
3691 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3693 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3694 The optional argument TERMINAL specifies which display to ask about.
3695 TERMINAL should be a terminal object, a frame or a display name (a string).
3696 If omitted or nil, that stands for the selected frame's display. */)
3697 (Lisp_Object terminal
)
3699 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3701 return make_number (dpyinfo
->n_planes
);
3704 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3706 doc
: /* Return the number of color cells of the X display TERMINAL.
3707 The optional argument TERMINAL specifies which display to ask about.
3708 TERMINAL should be a terminal object, a frame or a display name (a string).
3709 If omitted or nil, that stands for the selected frame's display. */)
3710 (Lisp_Object terminal
)
3712 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3714 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3715 XScreenNumberOfScreen (dpyinfo
->screen
));
3717 /* Truncate nr_planes to 24 to avoid integer overflow.
3718 Some displays says 32, but only 24 bits are actually significant.
3719 There are only very few and rare video cards that have more than
3720 24 significant bits. Also 24 bits is more than 16 million colors,
3721 it "should be enough for everyone". */
3722 if (nr_planes
> 24) nr_planes
= 24;
3724 return make_number (1 << nr_planes
);
3727 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3728 Sx_server_max_request_size
,
3730 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3731 The optional argument TERMINAL specifies which display to ask about.
3732 TERMINAL should be a terminal object, a frame or a display name (a string).
3733 If omitted or nil, that stands for the selected frame's display. */)
3734 (Lisp_Object terminal
)
3736 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3738 return make_number (MAXREQUEST (dpyinfo
->display
));
3741 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3742 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3743 \(Labelling every distributor as a "vendor" embodies the false assumption
3744 that operating systems cannot be developed and distributed noncommercially.)
3745 The optional argument TERMINAL specifies which display to ask about.
3746 TERMINAL should be a terminal object, a frame or a display name (a string).
3747 If omitted or nil, that stands for the selected frame's display. */)
3748 (Lisp_Object terminal
)
3750 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3751 char *vendor
= ServerVendor (dpyinfo
->display
);
3753 if (! vendor
) vendor
= "";
3754 return build_string (vendor
);
3757 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3758 doc
: /* Return the version numbers of the X server of display TERMINAL.
3759 The value is a list of three integers: the major and minor
3760 version numbers of the X Protocol in use, and the distributor-specific release
3761 number. See also the function `x-server-vendor'.
3763 The optional argument TERMINAL specifies which display to ask about.
3764 TERMINAL should be a terminal object, a frame or a display name (a string).
3765 If omitted or nil, that stands for the selected frame's display. */)
3766 (Lisp_Object terminal
)
3768 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3769 Display
*dpy
= dpyinfo
->display
;
3771 return Fcons (make_number (ProtocolVersion (dpy
)),
3772 Fcons (make_number (ProtocolRevision (dpy
)),
3773 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3776 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3777 doc
: /* Return the number of screens on the X server of display TERMINAL.
3778 The optional argument TERMINAL specifies which display to ask about.
3779 TERMINAL should be a terminal object, a frame or a display name (a string).
3780 If omitted or nil, that stands for the selected frame's display. */)
3781 (Lisp_Object terminal
)
3783 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3785 return make_number (ScreenCount (dpyinfo
->display
));
3788 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3789 doc
: /* Return the height in millimeters of the X display TERMINAL.
3790 The optional argument TERMINAL specifies which display to ask about.
3791 TERMINAL should be a terminal object, a frame or a display name (a string).
3792 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 (HeightMMOfScreen (dpyinfo
->screen
));
3800 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3801 doc
: /* Return the width 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. */)
3805 (Lisp_Object terminal
)
3807 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3809 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3812 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3813 Sx_display_backing_store
, 0, 1, 0,
3814 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3815 The value may be `always', `when-mapped', or `not-useful'.
3816 The optional argument TERMINAL specifies which display to ask about.
3817 TERMINAL should be a terminal object, a frame or a display name (a string).
3818 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
);
3824 switch (DoesBackingStore (dpyinfo
->screen
))
3827 result
= intern ("always");
3831 result
= intern ("when-mapped");
3835 result
= intern ("not-useful");
3839 error ("Strange value for BackingStore parameter of screen");
3846 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3847 Sx_display_visual_class
, 0, 1, 0,
3848 doc
: /* Return the visual class of the X display TERMINAL.
3849 The value is one of the symbols `static-gray', `gray-scale',
3850 `static-color', `pseudo-color', `true-color', or `direct-color'.
3852 The optional argument TERMINAL specifies which display to ask about.
3853 TERMINAL should a terminal object, a frame or a display name (a string).
3854 If omitted or nil, that stands for the selected frame's display. */)
3855 (Lisp_Object terminal
)
3857 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3860 switch (dpyinfo
->visual
->class)
3863 result
= intern ("static-gray");
3866 result
= intern ("gray-scale");
3869 result
= intern ("static-color");
3872 result
= intern ("pseudo-color");
3875 result
= intern ("true-color");
3878 result
= intern ("direct-color");
3881 error ("Display has an unknown visual class");
3888 DEFUN ("x-display-save-under", Fx_display_save_under
,
3889 Sx_display_save_under
, 0, 1, 0,
3890 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3891 The optional argument TERMINAL specifies which display to ask about.
3892 TERMINAL should be a terminal object, a frame or a display name (a string).
3893 If omitted or nil, that stands for the selected frame's display. */)
3894 (Lisp_Object terminal
)
3896 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3898 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3905 x_pixel_width (register struct frame
*f
)
3907 return FRAME_PIXEL_WIDTH (f
);
3911 x_pixel_height (register struct frame
*f
)
3913 return FRAME_PIXEL_HEIGHT (f
);
3917 x_char_width (register struct frame
*f
)
3919 return FRAME_COLUMN_WIDTH (f
);
3923 x_char_height (register struct frame
*f
)
3925 return FRAME_LINE_HEIGHT (f
);
3929 x_screen_planes (register struct frame
*f
)
3931 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3936 /************************************************************************
3938 ************************************************************************/
3941 /* Mapping visual names to visuals. */
3943 static struct visual_class
3950 {"StaticGray", StaticGray
},
3951 {"GrayScale", GrayScale
},
3952 {"StaticColor", StaticColor
},
3953 {"PseudoColor", PseudoColor
},
3954 {"TrueColor", TrueColor
},
3955 {"DirectColor", DirectColor
},
3960 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3962 /* Value is the screen number of screen SCR. This is a substitute for
3963 the X function with the same name when that doesn't exist. */
3966 XScreenNumberOfScreen (scr
)
3967 register Screen
*scr
;
3969 Display
*dpy
= scr
->display
;
3972 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3973 if (scr
== dpy
->screens
+ i
)
3979 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3982 /* Select the visual that should be used on display DPYINFO. Set
3983 members of DPYINFO appropriately. Called from x_term_init. */
3986 select_visual (struct x_display_info
*dpyinfo
)
3988 Display
*dpy
= dpyinfo
->display
;
3989 Screen
*screen
= dpyinfo
->screen
;
3992 /* See if a visual is specified. */
3993 value
= display_x_get_resource (dpyinfo
,
3994 build_string ("visualClass"),
3995 build_string ("VisualClass"),
3997 if (STRINGP (value
))
3999 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
4000 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4001 depth, a decimal number. NAME is compared with case ignored. */
4002 char *s
= (char *) alloca (SBYTES (value
) + 1);
4007 strcpy (s
, SDATA (value
));
4008 dash
= index (s
, '-');
4011 dpyinfo
->n_planes
= atoi (dash
+ 1);
4015 /* We won't find a matching visual with depth 0, so that
4016 an error will be printed below. */
4017 dpyinfo
->n_planes
= 0;
4019 /* Determine the visual class. */
4020 for (i
= 0; visual_classes
[i
].name
; ++i
)
4021 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4023 class = visual_classes
[i
].class;
4027 /* Look up a matching visual for the specified class. */
4029 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4030 dpyinfo
->n_planes
, class, &vinfo
))
4031 fatal ("Invalid visual specification `%s'", SDATA (value
));
4033 dpyinfo
->visual
= vinfo
.visual
;
4038 XVisualInfo
*vinfo
, vinfo_template
;
4040 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4042 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4043 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4044 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4045 &vinfo_template
, &n_visuals
);
4047 fatal ("Can't get proper X visual info");
4049 dpyinfo
->n_planes
= vinfo
->depth
;
4050 XFree ((char *) vinfo
);
4055 /* Return the X display structure for the display named NAME.
4056 Open a new connection if necessary. */
4058 struct x_display_info
*
4059 x_display_info_for_name (Lisp_Object name
)
4062 struct x_display_info
*dpyinfo
;
4064 CHECK_STRING (name
);
4067 if (! EQ (Vinitial_window_system
, intern ("x")))
4068 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4071 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4073 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4076 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4081 /* Use this general default value to start with. */
4082 Vx_resource_name
= Vinvocation_name
;
4084 validate_x_resource_name ();
4086 dpyinfo
= x_term_init (name
, (char *)0,
4087 (char *) SDATA (Vx_resource_name
));
4090 error ("Cannot connect to X server %s", SDATA (name
));
4093 XSETFASTINT (Vwindow_system_version
, 11);
4099 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4101 doc
: /* Open a connection to an X server.
4102 DISPLAY is the name of the display to connect to.
4103 Optional second arg XRM-STRING is a string of resources in xrdb format.
4104 If the optional third arg MUST-SUCCEED is non-nil,
4105 terminate Emacs if we can't open the connection. */)
4106 (Lisp_Object display
, Lisp_Object xrm_string
, Lisp_Object must_succeed
)
4108 unsigned char *xrm_option
;
4109 struct x_display_info
*dpyinfo
;
4111 CHECK_STRING (display
);
4112 if (! NILP (xrm_string
))
4113 CHECK_STRING (xrm_string
);
4116 if (! EQ (Vinitial_window_system
, intern ("x")))
4117 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4120 if (! NILP (xrm_string
))
4121 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4123 xrm_option
= (unsigned char *) 0;
4125 validate_x_resource_name ();
4127 /* This is what opens the connection and sets x_current_display.
4128 This also initializes many symbols, such as those used for input. */
4129 dpyinfo
= x_term_init (display
, xrm_option
,
4130 (char *) SDATA (Vx_resource_name
));
4134 if (!NILP (must_succeed
))
4135 fatal ("Cannot connect to X server %s.\n\
4136 Check the DISPLAY environment variable or use `-d'.\n\
4137 Also use the `xauth' program to verify that you have the proper\n\
4138 authorization information needed to connect the X server.\n\
4139 An insecure way to solve the problem may be to use `xhost'.\n",
4142 error ("Cannot connect to X server %s", SDATA (display
));
4147 XSETFASTINT (Vwindow_system_version
, 11);
4151 DEFUN ("x-close-connection", Fx_close_connection
,
4152 Sx_close_connection
, 1, 1, 0,
4153 doc
: /* Close the connection to TERMINAL's X server.
4154 For TERMINAL, specify a terminal object, a frame or a display name (a
4155 string). If TERMINAL is nil, that stands for the selected frame's
4157 (Lisp_Object terminal
)
4159 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4161 if (dpyinfo
->reference_count
> 0)
4162 error ("Display still has frames on it");
4164 x_delete_terminal (dpyinfo
->terminal
);
4169 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4170 doc
: /* Return the list of display names that Emacs has connections to. */)
4173 Lisp_Object tail
, result
;
4176 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4177 result
= Fcons (XCAR (XCAR (tail
)), result
);
4182 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4183 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4184 If ON is nil, allow buffering of requests.
4185 Turning on synchronization prohibits the Xlib routines from buffering
4186 requests and seriously degrades performance, but makes debugging much
4188 The optional second argument TERMINAL specifies which display to act on.
4189 TERMINAL should be a terminal object, a frame or a display name (a string).
4190 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4191 (Lisp_Object on
, Lisp_Object terminal
)
4193 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4195 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4200 /* Wait for responses to all X commands issued so far for frame F. */
4203 x_sync (FRAME_PTR f
)
4206 XSync (FRAME_X_DISPLAY (f
), False
);
4211 /***********************************************************************
4213 ***********************************************************************/
4215 DEFUN ("x-change-window-property", Fx_change_window_property
,
4216 Sx_change_window_property
, 2, 6, 0,
4217 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4218 PROP must be a string.
4219 VALUE may be a string or a list of conses, numbers and/or strings.
4220 If an element in the list is a string, it is converted to
4221 an Atom and the value of the Atom is used. If an element is a cons,
4222 it is converted to a 32 bit number where the car is the 16 top bits and the
4223 cdr is the lower 16 bits.
4224 FRAME nil or omitted means use the selected frame.
4225 If TYPE is given and non-nil, it is the name of the type of VALUE.
4226 If TYPE is not given or nil, the type is STRING.
4227 FORMAT gives the size in bits of each element if VALUE is a list.
4228 It must be one of 8, 16 or 32.
4229 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4230 If OUTER_P is non-nil, the property is changed for the outer X window of
4231 FRAME. Default is to change on the edit X window.
4234 (Lisp_Object prop
, Lisp_Object value
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4236 struct frame
*f
= check_x_frame (frame
);
4238 Atom target_type
= XA_STRING
;
4239 int element_format
= 8;
4240 unsigned char *data
;
4244 CHECK_STRING (prop
);
4246 if (! NILP (format
))
4248 CHECK_NUMBER (format
);
4249 element_format
= XFASTINT (format
);
4251 if (element_format
!= 8 && element_format
!= 16
4252 && element_format
!= 32)
4253 error ("FORMAT must be one of 8, 16 or 32");
4258 nelements
= x_check_property_data (value
);
4259 if (nelements
== -1)
4260 error ("Bad data in VALUE, must be number, string or cons");
4262 if (element_format
== 8)
4263 data
= (unsigned char *) xmalloc (nelements
);
4264 else if (element_format
== 16)
4265 data
= (unsigned char *) xmalloc (nelements
*2);
4266 else /* format == 32 */
4267 /* The man page for XChangeProperty:
4268 "If the specified format is 32, the property data must be a
4270 This applies even if long is more than 64 bits. The X library
4271 converts to 32 bits before sending to the X server. */
4272 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4274 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4278 CHECK_STRING (value
);
4279 data
= SDATA (value
);
4280 nelements
= SCHARS (value
);
4284 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4287 CHECK_STRING (type
);
4288 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4291 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4292 else w
= FRAME_X_WINDOW (f
);
4294 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4295 prop_atom
, target_type
, element_format
, PropModeReplace
,
4298 if (CONSP (value
)) xfree (data
);
4300 /* Make sure the property is set when we return. */
4301 XFlush (FRAME_X_DISPLAY (f
));
4308 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4309 Sx_delete_window_property
, 1, 2, 0,
4310 doc
: /* Remove window property PROP from X window of FRAME.
4311 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4312 (Lisp_Object prop
, Lisp_Object frame
)
4314 struct frame
*f
= check_x_frame (frame
);
4317 CHECK_STRING (prop
);
4319 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4320 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4322 /* Make sure the property is removed when we return. */
4323 XFlush (FRAME_X_DISPLAY (f
));
4330 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4332 doc
: /* Value is the value of window property PROP on FRAME.
4333 If FRAME is nil or omitted, use the selected frame.
4334 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4335 is the name of the Atom that denotes the type expected.
4336 If SOURCE is non-nil, get the property on that window instead of from
4337 FRAME. The number 0 denotes the root window.
4338 If DELETE_P is non-nil, delete the property after retreiving it.
4339 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4341 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4342 no value of TYPE. */)
4343 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4345 struct frame
*f
= check_x_frame (frame
);
4348 Lisp_Object prop_value
= Qnil
;
4349 unsigned char *tmp_data
= NULL
;
4351 Atom target_type
= XA_STRING
;
4353 unsigned long actual_size
, bytes_remaining
;
4354 Window target_window
= FRAME_X_WINDOW (f
);
4355 struct gcpro gcpro1
;
4357 GCPRO1 (prop_value
);
4358 CHECK_STRING (prop
);
4360 if (! NILP (source
))
4362 if (NUMBERP (source
))
4364 if (FLOATP (source
))
4365 target_window
= (Window
) XFLOAT (source
);
4367 target_window
= XFASTINT (source
);
4369 if (target_window
== 0)
4370 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4372 else if (CONSP (source
))
4373 target_window
= cons_to_long (source
);
4379 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4380 target_type
= AnyPropertyType
;
4382 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4385 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4386 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4387 prop_atom
, 0, 0, False
, target_type
,
4388 &actual_type
, &actual_format
, &actual_size
,
4389 &bytes_remaining
, &tmp_data
);
4392 int size
= bytes_remaining
;
4397 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4398 prop_atom
, 0, bytes_remaining
,
4399 ! NILP (delete_p
), target_type
,
4400 &actual_type
, &actual_format
,
4401 &actual_size
, &bytes_remaining
,
4403 if (rc
== Success
&& tmp_data
)
4405 /* The man page for XGetWindowProperty says:
4406 "If the returned format is 32, the returned data is represented
4407 as a long array and should be cast to that type to obtain the
4409 This applies even if long is more than 32 bits, the X library
4410 converts from 32 bit elements received from the X server to long
4411 and passes the long array to us. Thus, for that case memcpy can not
4412 be used. We convert to a 32 bit type here, because so much code
4415 The bytes and offsets passed to XGetWindowProperty refers to the
4416 property and those are indeed in 32 bit quantities if format is
4419 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4422 int *idata
= (int *) tmp_data
;
4423 long *ldata
= (long *) tmp_data
;
4425 for (i
= 0; i
< actual_size
; ++i
)
4426 idata
[i
] = (int) ldata
[i
];
4429 if (NILP (vector_ret_p
))
4430 prop_value
= make_string (tmp_data
, size
);
4432 prop_value
= x_property_data_to_lisp (f
,
4439 if (tmp_data
) XFree (tmp_data
);
4449 /***********************************************************************
4451 ***********************************************************************/
4453 /* Timer function of hourglass_atimer. TIMER is equal to
4456 Display an hourglass pointer on all frames by mapping the frames'
4457 hourglass_window. Set the hourglass_p flag in the frames'
4458 output_data.x structure to indicate that an hourglass cursor is
4459 shown on the frames. */
4462 show_hourglass (struct atimer
*timer
)
4464 /* The timer implementation will cancel this timer automatically
4465 after this function has run. Set hourglass_atimer to null
4466 so that we know the timer doesn't have to be canceled. */
4467 hourglass_atimer
= NULL
;
4469 if (!hourglass_shown_p
)
4471 Lisp_Object rest
, frame
;
4475 FOR_EACH_FRAME (rest
, frame
)
4477 struct frame
*f
= XFRAME (frame
);
4479 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4481 Display
*dpy
= FRAME_X_DISPLAY (f
);
4483 #ifdef USE_X_TOOLKIT
4484 if (f
->output_data
.x
->widget
)
4486 if (FRAME_OUTER_WINDOW (f
))
4489 f
->output_data
.x
->hourglass_p
= 1;
4491 if (!f
->output_data
.x
->hourglass_window
)
4493 unsigned long mask
= CWCursor
;
4494 XSetWindowAttributes attrs
;
4496 Window parent
= FRAME_X_WINDOW (f
);
4498 Window parent
= FRAME_OUTER_WINDOW (f
);
4500 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4502 f
->output_data
.x
->hourglass_window
4503 = XCreateWindow (dpy
, parent
,
4504 0, 0, 32000, 32000, 0, 0,
4510 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4516 hourglass_shown_p
= 1;
4522 /* Hide the hourglass pointer on all frames, if it is currently
4526 hide_hourglass (void)
4528 if (hourglass_shown_p
)
4530 Lisp_Object rest
, frame
;
4533 FOR_EACH_FRAME (rest
, frame
)
4535 struct frame
*f
= XFRAME (frame
);
4538 /* Watch out for newly created frames. */
4539 && f
->output_data
.x
->hourglass_window
)
4541 XUnmapWindow (FRAME_X_DISPLAY (f
),
4542 f
->output_data
.x
->hourglass_window
);
4543 /* Sync here because XTread_socket looks at the
4544 hourglass_p flag that is reset to zero below. */
4545 XSync (FRAME_X_DISPLAY (f
), False
);
4546 f
->output_data
.x
->hourglass_p
= 0;
4550 hourglass_shown_p
= 0;
4557 /***********************************************************************
4559 ***********************************************************************/
4561 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4562 Lisp_Object
, Lisp_Object
);
4563 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4564 Lisp_Object
, int, int, int *, int *);
4566 /* The frame of a currently visible tooltip. */
4568 Lisp_Object tip_frame
;
4570 /* If non-nil, a timer started that hides the last tooltip when it
4573 Lisp_Object tip_timer
;
4576 /* If non-nil, a vector of 3 elements containing the last args
4577 with which x-show-tip was called. See there. */
4579 Lisp_Object last_show_tip_args
;
4581 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4583 Lisp_Object Vx_max_tooltip_size
;
4587 unwind_create_tip_frame (Lisp_Object frame
)
4589 Lisp_Object deleted
;
4591 deleted
= unwind_create_frame (frame
);
4592 if (EQ (deleted
, Qt
))
4602 /* Create a frame for a tooltip on the display described by DPYINFO.
4603 PARMS is a list of frame parameters. TEXT is the string to
4604 display in the tip frame. Value is the frame.
4606 Note that functions called here, esp. x_default_parameter can
4607 signal errors, for instance when a specified color name is
4608 undefined. We have to make sure that we're in a consistent state
4609 when this happens. */
4612 x_create_tip_frame (struct x_display_info
*dpyinfo
, Lisp_Object parms
, Lisp_Object text
)
4615 Lisp_Object frame
, tem
;
4617 long window_prompting
= 0;
4619 int count
= SPECPDL_INDEX ();
4620 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4621 int face_change_count_before
= face_change_count
;
4623 struct buffer
*old_buffer
;
4627 if (!dpyinfo
->terminal
->name
)
4628 error ("Terminal is not live, can't create new frames on it");
4630 parms
= Fcopy_alist (parms
);
4632 /* Get the name of the frame to use for resource lookup. */
4633 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4635 && !EQ (name
, Qunbound
)
4637 error ("Invalid frame name--not a string or nil");
4640 GCPRO3 (parms
, name
, frame
);
4642 XSETFRAME (frame
, f
);
4644 buffer
= Fget_buffer_create (build_string (" *tip*"));
4645 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4646 old_buffer
= current_buffer
;
4647 set_buffer_internal_1 (XBUFFER (buffer
));
4648 current_buffer
->truncate_lines
= Qnil
;
4649 specbind (Qinhibit_read_only
, Qt
);
4650 specbind (Qinhibit_modification_hooks
, Qt
);
4653 set_buffer_internal_1 (old_buffer
);
4655 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4656 record_unwind_protect (unwind_create_tip_frame
, frame
);
4658 f
->terminal
= dpyinfo
->terminal
;
4659 f
->terminal
->reference_count
++;
4661 /* By setting the output method, we're essentially saying that
4662 the frame is live, as per FRAME_LIVE_P. If we get a signal
4663 from this point on, x_destroy_window might screw up reference
4665 f
->output_method
= output_x_window
;
4666 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4667 memset (f
->output_data
.x
, 0, sizeof (struct x_output
));
4668 f
->output_data
.x
->icon_bitmap
= -1;
4669 FRAME_FONTSET (f
) = -1;
4670 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4671 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4672 #ifdef USE_TOOLKIT_SCROLL_BARS
4673 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4674 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4675 #endif /* USE_TOOLKIT_SCROLL_BARS */
4676 f
->icon_name
= Qnil
;
4677 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4679 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
4680 dpyinfo_refcount
= dpyinfo
->reference_count
;
4681 #endif /* GLYPH_DEBUG */
4682 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4683 f
->output_data
.x
->explicit_parent
= 0;
4685 /* These colors will be set anyway later, but it's important
4686 to get the color reference counts right, so initialize them! */
4689 struct gcpro gcpro1
;
4691 /* Function x_decode_color can signal an error. Make
4692 sure to initialize color slots so that we won't try
4693 to free colors we haven't allocated. */
4694 FRAME_FOREGROUND_PIXEL (f
) = -1;
4695 FRAME_BACKGROUND_PIXEL (f
) = -1;
4696 f
->output_data
.x
->cursor_pixel
= -1;
4697 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4698 f
->output_data
.x
->border_pixel
= -1;
4699 f
->output_data
.x
->mouse_pixel
= -1;
4701 black
= build_string ("black");
4703 FRAME_FOREGROUND_PIXEL (f
)
4704 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4705 FRAME_BACKGROUND_PIXEL (f
)
4706 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4707 f
->output_data
.x
->cursor_pixel
4708 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4709 f
->output_data
.x
->cursor_foreground_pixel
4710 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4711 f
->output_data
.x
->border_pixel
4712 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4713 f
->output_data
.x
->mouse_pixel
4714 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4718 /* Set the name; the functions to which we pass f expect the name to
4720 if (EQ (name
, Qunbound
) || NILP (name
))
4722 f
->name
= build_string (dpyinfo
->x_id_name
);
4723 f
->explicit_name
= 0;
4728 f
->explicit_name
= 1;
4729 /* use the frame's title when getting resources for this frame. */
4730 specbind (Qx_resource_name
, name
);
4733 f
->resx
= dpyinfo
->resx
;
4734 f
->resy
= dpyinfo
->resy
;
4736 register_font_driver (&xfont_driver
, f
);
4737 #ifdef HAVE_FREETYPE
4739 register_font_driver (&xftfont_driver
, f
);
4740 #else /* not HAVE_XFT */
4741 register_font_driver (&ftxfont_driver
, f
);
4742 #endif /* not HAVE_XFT */
4743 #endif /* HAVE_FREETYPE */
4745 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4746 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4748 /* Extract the window parameters from the supplied values that are
4749 needed to determine window geometry. */
4750 x_default_font_parameter (f
, parms
);
4752 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
4753 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4755 /* This defaults to 2 in order to match xterm. We recognize either
4756 internalBorderWidth or internalBorder (which is what xterm calls
4758 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4762 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4763 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4764 if (! EQ (value
, Qunbound
))
4765 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4769 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4770 "internalBorderWidth", "internalBorderWidth",
4773 /* Also do the stuff which must be set before the window exists. */
4774 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4775 "foreground", "Foreground", RES_TYPE_STRING
);
4776 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4777 "background", "Background", RES_TYPE_STRING
);
4778 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4779 "pointerColor", "Foreground", RES_TYPE_STRING
);
4780 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4781 "cursorColor", "Foreground", RES_TYPE_STRING
);
4782 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4783 "borderColor", "BorderColor", RES_TYPE_STRING
);
4785 /* Init faces before x_default_parameter is called for scroll-bar
4786 parameters because that function calls x_set_scroll_bar_width,
4787 which calls change_frame_size, which calls Fset_window_buffer,
4788 which runs hooks, which call Fvertical_motion. At the end, we
4789 end up in init_iterator with a null face cache, which should not
4791 init_frame_faces (f
);
4793 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4795 window_prompting
= x_figure_window_size (f
, parms
, 0);
4798 XSetWindowAttributes attrs
;
4800 Atom type
= FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
4803 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4804 if (DoesSaveUnders (dpyinfo
->screen
))
4805 mask
|= CWSaveUnder
;
4807 /* Window managers look at the override-redirect flag to determine
4808 whether or net to give windows a decoration (Xlib spec, chapter
4810 attrs
.override_redirect
= True
;
4811 attrs
.save_under
= True
;
4812 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4813 /* Arrange for getting MapNotify and UnmapNotify events. */
4814 attrs
.event_mask
= StructureNotifyMask
;
4816 = FRAME_X_WINDOW (f
)
4817 = XCreateWindow (FRAME_X_DISPLAY (f
),
4818 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4819 /* x, y, width, height */
4823 CopyFromParent
, InputOutput
, CopyFromParent
,
4825 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
4826 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type
,
4827 XA_ATOM
, 32, PropModeReplace
,
4828 (unsigned char *)&type
, 1);
4834 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4835 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4836 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4837 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4838 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4839 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4841 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4842 Change will not be effected unless different from the current
4844 width
= FRAME_COLS (f
);
4845 height
= FRAME_LINES (f
);
4846 SET_FRAME_COLS (f
, 0);
4847 FRAME_LINES (f
) = 0;
4848 change_frame_size (f
, height
, width
, 1, 0, 0);
4850 /* Add `tooltip' frame parameter's default value. */
4851 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
4852 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qtooltip
, Qt
), Qnil
));
4854 /* FIXME - can this be done in a similar way to normal frames?
4855 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
4857 /* Set the `display-type' frame parameter before setting up faces. */
4859 Lisp_Object disptype
;
4861 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4862 disptype
= intern ("mono");
4863 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
4864 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4865 disptype
= intern ("grayscale");
4867 disptype
= intern ("color");
4869 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4870 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4874 /* Set up faces after all frame parameters are known. This call
4875 also merges in face attributes specified for new frames.
4877 Frame parameters may be changed if .Xdefaults contains
4878 specifications for the default font. For example, if there is an
4879 `Emacs.default.attributeBackground: pink', the `background-color'
4880 attribute of the frame get's set, which let's the internal border
4881 of the tooltip frame appear in pink. Prevent this. */
4883 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4885 /* Set tip_frame here, so that */
4887 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
4889 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4890 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4898 /* It is now ok to make the frame official even if we get an error
4899 below. And the frame needs to be on Vframe_list or making it
4900 visible won't work. */
4901 Vframe_list
= Fcons (frame
, Vframe_list
);
4903 /* Now that the frame is official, it counts as a reference to
4905 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4907 /* Setting attributes of faces of the tooltip frame from resources
4908 and similar will increment face_change_count, which leads to the
4909 clearing of all current matrices. Since this isn't necessary
4910 here, avoid it by resetting face_change_count to the value it
4911 had before we created the tip frame. */
4912 face_change_count
= face_change_count_before
;
4914 /* Discard the unwind_protect. */
4915 return unbind_to (count
, frame
);
4919 /* Compute where to display tip frame F. PARMS is the list of frame
4920 parameters for F. DX and DY are specified offsets from the current
4921 location of the mouse. WIDTH and HEIGHT are the width and height
4922 of the tooltip. Return coordinates relative to the root window of
4923 the display in *ROOT_X, and *ROOT_Y. */
4926 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
)
4928 Lisp_Object left
, top
;
4933 /* User-specified position? */
4934 left
= Fcdr (Fassq (Qleft
, parms
));
4935 top
= Fcdr (Fassq (Qtop
, parms
));
4937 /* Move the tooltip window where the mouse pointer is. Resize and
4939 if (!INTEGERP (left
) || !INTEGERP (top
))
4942 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4943 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4948 *root_y
= XINT (top
);
4949 else if (*root_y
+ XINT (dy
) <= 0)
4950 *root_y
= 0; /* Can happen for negative dy */
4951 else if (*root_y
+ XINT (dy
) + height
4952 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
4953 /* It fits below the pointer */
4954 *root_y
+= XINT (dy
);
4955 else if (height
+ XINT (dy
) <= *root_y
)
4956 /* It fits above the pointer. */
4957 *root_y
-= height
+ XINT (dy
);
4959 /* Put it on the top. */
4962 if (INTEGERP (left
))
4963 *root_x
= XINT (left
);
4964 else if (*root_x
+ XINT (dx
) <= 0)
4965 *root_x
= 0; /* Can happen for negative dx */
4966 else if (*root_x
+ XINT (dx
) + width
4967 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
4968 /* It fits to the right of the pointer. */
4969 *root_x
+= XINT (dx
);
4970 else if (width
+ XINT (dx
) <= *root_x
)
4971 /* It fits to the left of the pointer. */
4972 *root_x
-= width
+ XINT (dx
);
4974 /* Put it left-justified on the screen--it ought to fit that way. */
4979 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4980 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4981 A tooltip window is a small X window displaying a string.
4983 This is an internal function; Lisp code should call `tooltip-show'.
4985 FRAME nil or omitted means use the selected frame.
4987 PARMS is an optional list of frame parameters which can be used to
4988 change the tooltip's appearance.
4990 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4991 means use the default timeout of 5 seconds.
4993 If the list of frame parameters PARAMS contains a `left' parameters,
4994 the tooltip is displayed at that x-position. Otherwise it is
4995 displayed at the mouse position, with offset DX added (default is 5 if
4996 DX isn't specified). Likewise for the y-position; if a `top' frame
4997 parameter is specified, it determines the y-position of the tooltip
4998 window, otherwise it is displayed at the mouse position, with offset
4999 DY added (default is -10).
5001 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5002 Text larger than the specified size is clipped. */)
5003 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
5008 struct buffer
*old_buffer
;
5009 struct text_pos pos
;
5010 int i
, width
, height
;
5011 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5012 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5013 int count
= SPECPDL_INDEX ();
5015 specbind (Qinhibit_redisplay
, Qt
);
5017 GCPRO4 (string
, parms
, frame
, timeout
);
5019 CHECK_STRING (string
);
5020 if (SCHARS (string
) == 0)
5021 string
= make_unibyte_string (" ", 1);
5023 f
= check_x_frame (frame
);
5025 timeout
= make_number (5);
5027 CHECK_NATNUM (timeout
);
5030 dx
= make_number (5);
5035 dy
= make_number (-10);
5039 if (NILP (last_show_tip_args
))
5040 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5042 if (!NILP (tip_frame
))
5044 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5045 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5046 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5048 if (EQ (frame
, last_frame
)
5049 && !NILP (Fequal (last_string
, string
))
5050 && !NILP (Fequal (last_parms
, parms
)))
5052 struct frame
*f
= XFRAME (tip_frame
);
5054 /* Only DX and DY have changed. */
5055 if (!NILP (tip_timer
))
5057 Lisp_Object timer
= tip_timer
;
5059 call1 (Qcancel_timer
, timer
);
5063 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5064 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5065 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5072 /* Hide a previous tip, if any. */
5075 ASET (last_show_tip_args
, 0, string
);
5076 ASET (last_show_tip_args
, 1, frame
);
5077 ASET (last_show_tip_args
, 2, parms
);
5079 /* Add default values to frame parameters. */
5080 if (NILP (Fassq (Qname
, parms
)))
5081 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5082 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5083 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5084 if (NILP (Fassq (Qborder_width
, parms
)))
5085 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5086 if (NILP (Fassq (Qborder_color
, parms
)))
5087 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5088 if (NILP (Fassq (Qbackground_color
, parms
)))
5089 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5092 /* Create a frame for the tooltip, and record it in the global
5093 variable tip_frame. */
5094 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5097 /* Set up the frame's root window. */
5098 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5099 w
->left_col
= w
->top_line
= make_number (0);
5101 if (CONSP (Vx_max_tooltip_size
)
5102 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5103 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5104 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5105 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5107 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5108 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5112 w
->total_cols
= make_number (80);
5113 w
->total_lines
= make_number (40);
5116 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5118 w
->pseudo_window_p
= 1;
5120 /* Display the tooltip text in a temporary buffer. */
5121 old_buffer
= current_buffer
;
5122 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5123 current_buffer
->truncate_lines
= Qnil
;
5124 clear_glyph_matrix (w
->desired_matrix
);
5125 clear_glyph_matrix (w
->current_matrix
);
5126 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5127 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5129 /* Compute width and height of the tooltip. */
5131 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5133 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5137 /* Stop at the first empty row at the end. */
5138 if (!row
->enabled_p
|| !row
->displays_text_p
)
5141 /* Let the row go over the full width of the frame. */
5142 row
->full_width_p
= 1;
5144 row_width
= row
->pixel_width
;
5145 /* There's a glyph at the end of rows that is used to place
5146 the cursor there. Don't include the width of this glyph. */
5147 if (row
->used
[TEXT_AREA
])
5149 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5150 if (INTEGERP (last
->object
))
5151 row_width
-= last
->pixel_width
;
5154 height
+= row
->height
;
5155 width
= max (width
, row_width
);
5158 /* Add the frame's internal border to the width and height the X
5159 window should have. */
5160 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5161 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5163 /* Move the tooltip window where the mouse pointer is. Resize and
5165 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5168 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5169 root_x
, root_y
, width
, height
);
5170 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5173 /* Draw into the window. */
5174 w
->must_be_updated_p
= 1;
5175 update_single_window (w
, 1);
5177 /* Restore original current buffer. */
5178 set_buffer_internal_1 (old_buffer
);
5179 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5182 /* Let the tip disappear after timeout seconds. */
5183 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5184 intern ("x-hide-tip"));
5187 return unbind_to (count
, Qnil
);
5191 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5192 doc
: /* Hide the current tooltip window, if there is any.
5193 Value is t if tooltip was open, nil otherwise. */)
5197 Lisp_Object deleted
, frame
, timer
;
5198 struct gcpro gcpro1
, gcpro2
;
5200 /* Return quickly if nothing to do. */
5201 if (NILP (tip_timer
) && NILP (tip_frame
))
5206 GCPRO2 (frame
, timer
);
5207 tip_frame
= tip_timer
= deleted
= Qnil
;
5209 count
= SPECPDL_INDEX ();
5210 specbind (Qinhibit_redisplay
, Qt
);
5211 specbind (Qinhibit_quit
, Qt
);
5214 call1 (Qcancel_timer
, timer
);
5218 delete_frame (frame
, Qnil
);
5222 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5223 redisplay procedure is not called when a tip frame over menu
5224 items is unmapped. Redisplay the menu manually... */
5226 struct frame
*f
= SELECTED_FRAME ();
5227 Widget w
= f
->output_data
.x
->menubar_widget
;
5228 extern void xlwmenu_redisplay (Widget
);
5230 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5234 xlwmenu_redisplay (w
);
5238 #endif /* USE_LUCID */
5242 return unbind_to (count
, deleted
);
5247 /***********************************************************************
5248 File selection dialog
5249 ***********************************************************************/
5251 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5252 Sx_uses_old_gtk_dialog
,
5254 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5258 extern int use_dialog_box
;
5259 extern int use_file_dialog
;
5264 && xg_uses_old_file_dialog ())
5272 /* Callback for "OK" and "Cancel" on file selection dialog. */
5275 file_dialog_cb (widget
, client_data
, call_data
)
5277 XtPointer call_data
, client_data
;
5279 int *result
= (int *) client_data
;
5280 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5281 *result
= cb
->reason
;
5285 /* Callback for unmapping a file selection dialog. This is used to
5286 capture the case where a dialog is closed via a window manager's
5287 closer button, for example. Using a XmNdestroyCallback didn't work
5291 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5293 XtPointer call_data
, client_data
;
5295 int *result
= (int *) client_data
;
5296 *result
= XmCR_CANCEL
;
5300 clean_up_file_dialog (arg
)
5303 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5304 Widget dialog
= (Widget
) p
->pointer
;
5308 XtUnmanageChild (dialog
);
5309 XtDestroyWidget (dialog
);
5310 x_menu_set_in_use (0);
5317 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5318 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5319 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5320 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5321 or directory must exist. ONLY-DIR-P is ignored." */)
5322 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5325 struct frame
*f
= SELECTED_FRAME ();
5326 Lisp_Object file
= Qnil
;
5327 Lisp_Object decoded_file
;
5328 Widget dialog
, text
, help
;
5331 extern XtAppContext Xt_app_con
;
5332 XmString dir_xmstring
, pattern_xmstring
;
5333 int count
= SPECPDL_INDEX ();
5334 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5338 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5340 if (popup_activated ())
5341 error ("Trying to use a menu from within a menu-entry");
5343 CHECK_STRING (prompt
);
5346 /* Prevent redisplay. */
5347 specbind (Qinhibit_redisplay
, Qt
);
5351 /* Create the dialog with PROMPT as title, using DIR as initial
5352 directory and using "*" as pattern. */
5353 dir
= Fexpand_file_name (dir
, Qnil
);
5354 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5355 pattern_xmstring
= XmStringCreateLocalized ("*");
5357 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5358 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5359 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5360 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5361 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5362 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5364 XmStringFree (dir_xmstring
);
5365 XmStringFree (pattern_xmstring
);
5367 /* Add callbacks for OK and Cancel. */
5368 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5369 (XtPointer
) &result
);
5370 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5371 (XtPointer
) &result
);
5372 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5373 (XtPointer
) &result
);
5375 /* Remove the help button since we can't display help. */
5376 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5377 XtUnmanageChild (help
);
5379 /* Mark OK button as default. */
5380 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5381 XmNshowAsDefault
, True
, NULL
);
5383 /* If MUSTMATCH is non-nil, disable the file entry field of the
5384 dialog, so that the user must select a file from the files list
5385 box. We can't remove it because we wouldn't have a way to get at
5386 the result file name, then. */
5387 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5388 if (!NILP (mustmatch
))
5391 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5392 XtSetSensitive (text
, False
);
5393 XtSetSensitive (label
, False
);
5396 /* Manage the dialog, so that list boxes get filled. */
5397 XtManageChild (dialog
);
5399 if (STRINGP (default_filename
))
5401 XmString default_xmstring
;
5402 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5403 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5405 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5406 XmTextFieldReplace (wtext
, 0, last_pos
,
5407 (SDATA (Ffile_name_nondirectory (default_filename
))));
5409 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5410 must include the path for this to work. */
5412 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5414 if (XmListItemExists (list
, default_xmstring
))
5416 int item_pos
= XmListItemPos (list
, default_xmstring
);
5417 /* Select the item and scroll it into view. */
5418 XmListSelectPos (list
, item_pos
, True
);
5419 XmListSetPos (list
, item_pos
);
5422 XmStringFree (default_xmstring
);
5425 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5427 /* Process events until the user presses Cancel or OK. */
5428 x_menu_set_in_use (1);
5433 x_menu_wait_for_event (0);
5434 XtAppNextEvent (Xt_app_con
, &event
);
5435 if (event
.type
== KeyPress
5436 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5438 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5440 /* Pop down on C-g. */
5441 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5442 XtUnmanageChild (dialog
);
5445 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5448 /* Get the result. */
5449 if (result
== XmCR_OK
)
5454 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5455 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5456 XmStringFree (text
);
5457 file
= build_string (data
);
5466 /* Make "Cancel" equivalent to C-g. */
5468 Fsignal (Qquit
, Qnil
);
5470 decoded_file
= DECODE_FILE (file
);
5472 return unbind_to (count
, decoded_file
);
5475 #endif /* USE_MOTIF */
5480 clean_up_dialog (Lisp_Object arg
)
5482 x_menu_set_in_use (0);
5487 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5488 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5489 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5490 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5491 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5493 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5495 FRAME_PTR f
= SELECTED_FRAME ();
5497 Lisp_Object file
= Qnil
;
5498 Lisp_Object decoded_file
;
5499 int count
= SPECPDL_INDEX ();
5500 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5505 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5507 if (popup_activated ())
5508 error ("Trying to use a menu from within a menu-entry");
5510 CHECK_STRING (prompt
);
5513 /* Prevent redisplay. */
5514 specbind (Qinhibit_redisplay
, Qt
);
5515 record_unwind_protect (clean_up_dialog
, Qnil
);
5519 if (STRINGP (default_filename
))
5520 cdef_file
= SDATA (default_filename
);
5522 cdef_file
= SDATA (dir
);
5524 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5526 ! NILP (only_dir_p
));
5530 file
= build_string (fn
);
5537 /* Make "Cancel" equivalent to C-g. */
5539 Fsignal (Qquit
, Qnil
);
5541 decoded_file
= DECODE_FILE (file
);
5543 return unbind_to (count
, decoded_file
);
5547 #ifdef HAVE_FREETYPE
5549 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5550 doc
: /* Read a font name using a GTK font selection dialog.
5551 Return a GTK-style font string corresponding to the selection.
5553 If FRAME is omitted or nil, it defaults to the selected frame. */)
5554 (Lisp_Object frame
, Lisp_Object ignored
)
5556 FRAME_PTR f
= check_x_frame (frame
);
5559 Lisp_Object font_param
;
5560 char *default_name
= NULL
;
5561 struct gcpro gcpro1
, gcpro2
;
5562 int count
= SPECPDL_INDEX ();
5566 if (popup_activated ())
5567 error ("Trying to use a menu from within a menu-entry");
5569 /* Prevent redisplay. */
5570 specbind (Qinhibit_redisplay
, Qt
);
5571 record_unwind_protect (clean_up_dialog
, Qnil
);
5575 GCPRO2(font_param
, font
);
5577 XSETFONT (font
, FRAME_FONT (f
));
5578 font_param
= Ffont_get (font
, intern (":name"));
5579 if (STRINGP (font_param
))
5580 default_name
= xstrdup (SDATA (font_param
));
5583 font_param
= Fframe_parameter (frame
, Qfont_param
);
5584 if (STRINGP (font_param
))
5585 default_name
= xstrdup (SDATA (font_param
));
5588 if (default_name
== NULL
&& x_last_font_name
!= NULL
)
5589 default_name
= xstrdup (x_last_font_name
);
5591 /* Convert fontconfig names to Gtk names, i.e. remove - before number */
5594 char *p
= strrchr (default_name
, '-');
5598 while (isdigit (*ep
))
5600 if (*ep
== '\0') *p
= ' ';
5604 name
= xg_get_font_name (f
, default_name
);
5605 xfree (default_name
);
5609 font
= build_string (name
);
5610 g_free (x_last_font_name
);
5611 x_last_font_name
= name
;
5617 Fsignal (Qquit
, Qnil
);
5619 return unbind_to (count
, font
);
5621 #endif /* HAVE_FREETYPE */
5623 #endif /* USE_GTK */
5626 /***********************************************************************
5628 ***********************************************************************/
5630 #ifdef HAVE_XKBGETKEYBOARD
5631 #include <X11/XKBlib.h>
5632 #include <X11/keysym.h>
5635 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5636 Sx_backspace_delete_keys_p
, 0, 1, 0,
5637 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5638 FRAME nil means use the selected frame.
5639 Value is t if we know that both keys are present, and are mapped to the
5640 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5641 present and mapped to the usual X keysyms. */)
5644 #ifdef HAVE_XKBGETKEYBOARD
5646 struct frame
*f
= check_x_frame (frame
);
5647 Display
*dpy
= FRAME_X_DISPLAY (f
);
5648 Lisp_Object have_keys
;
5649 int major
, minor
, op
, event
, error
;
5653 /* Check library version in case we're dynamically linked. */
5654 major
= XkbMajorVersion
;
5655 minor
= XkbMinorVersion
;
5656 if (!XkbLibraryVersion (&major
, &minor
))
5662 /* Check that the server supports XKB. */
5663 major
= XkbMajorVersion
;
5664 minor
= XkbMinorVersion
;
5665 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5671 /* In this code we check that the keyboard has physical keys with names
5672 that start with BKSP (Backspace) and DELE (Delete), and that they
5673 generate keysym XK_BackSpace and XK_Delete respectively.
5674 This function is used to test if normal-erase-is-backspace should be
5676 An alternative approach would be to just check if XK_BackSpace and
5677 XK_Delete are mapped to any key. But if any of those are mapped to
5678 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5679 user doesn't know about it, it is better to return false here.
5680 It is more obvious to the user what to do if she/he has two keys
5681 clearly marked with names/symbols and one key does something not
5682 expected (i.e. she/he then tries the other).
5683 The cases where Backspace/Delete is mapped to some other key combination
5684 are rare, and in those cases, normal-erase-is-backspace can be turned on
5688 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5691 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5693 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5695 for (i
= kb
->min_key_code
;
5696 (i
< kb
->max_key_code
5697 && (delete_keycode
== 0 || backspace_keycode
== 0));
5700 /* The XKB symbolic key names can be seen most easily in
5701 the PS file generated by `xkbprint -label name
5703 if (memcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5705 else if (memcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5706 backspace_keycode
= i
;
5709 XkbFreeNames (kb
, 0, True
);
5712 XkbFreeClientMap (kb
, 0, True
);
5715 && backspace_keycode
5716 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5717 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5722 #else /* not HAVE_XKBGETKEYBOARD */
5724 #endif /* not HAVE_XKBGETKEYBOARD */
5729 /***********************************************************************
5731 ***********************************************************************/
5733 /* Keep this list in the same order as frame_parms in frame.c.
5734 Use 0 for unsupported frame parameters. */
5736 frame_parm_handler x_frame_parm_handlers
[] =
5740 x_set_background_color
,
5746 x_set_foreground_color
,
5749 x_set_internal_border_width
,
5750 x_set_menu_bar_lines
,
5752 x_explicitly_set_name
,
5753 x_set_scroll_bar_width
,
5756 x_set_vertical_scroll_bars
,
5758 x_set_tool_bar_lines
,
5759 x_set_scroll_bar_foreground
,
5760 x_set_scroll_bar_background
,
5775 /* This is zero if not using X windows. */
5778 /* The section below is built by the lisp expression at the top of the file,
5779 just above where these variables are declared. */
5780 /*&&& init symbols here &&&*/
5781 Qnone
= intern_c_string ("none");
5783 Qsuppress_icon
= intern_c_string ("suppress-icon");
5784 staticpro (&Qsuppress_icon
);
5785 Qundefined_color
= intern_c_string ("undefined-color");
5786 staticpro (&Qundefined_color
);
5787 Qcompound_text
= intern_c_string ("compound-text");
5788 staticpro (&Qcompound_text
);
5789 Qcancel_timer
= intern_c_string ("cancel-timer");
5790 staticpro (&Qcancel_timer
);
5791 Qfont_param
= intern_c_string ("font-parameter");
5792 staticpro (&Qfont_param
);
5793 /* This is the end of symbol initialization. */
5795 /* Text property `display' should be nonsticky by default. */
5796 Vtext_property_default_nonsticky
5797 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5800 Fput (Qundefined_color
, Qerror_conditions
,
5801 pure_cons (Qundefined_color
, pure_cons (Qerror
, Qnil
)));
5802 Fput (Qundefined_color
, Qerror_message
,
5803 make_pure_c_string ("Undefined color"));
5805 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5806 doc
: /* The shape of the pointer when over text.
5807 Changing the value does not affect existing frames
5808 unless you set the mouse color. */);
5809 Vx_pointer_shape
= Qnil
;
5811 #if 0 /* This doesn't really do anything. */
5812 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5813 doc
: /* The shape of the pointer when not over text.
5814 This variable takes effect when you create a new frame
5815 or when you set the mouse color. */);
5817 Vx_nontext_pointer_shape
= Qnil
;
5819 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5820 doc
: /* The shape of the pointer when Emacs is busy.
5821 This variable takes effect when you create a new frame
5822 or when you set the mouse color. */);
5823 Vx_hourglass_pointer_shape
= Qnil
;
5825 #if 0 /* This doesn't really do anything. */
5826 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5827 doc
: /* The shape of the pointer when over the mode line.
5828 This variable takes effect when you create a new frame
5829 or when you set the mouse color. */);
5831 Vx_mode_pointer_shape
= Qnil
;
5833 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5834 &Vx_sensitive_text_pointer_shape
,
5835 doc
: /* The shape of the pointer when over mouse-sensitive text.
5836 This variable takes effect when you create a new frame
5837 or when you set the mouse color. */);
5838 Vx_sensitive_text_pointer_shape
= Qnil
;
5840 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5841 &Vx_window_horizontal_drag_shape
,
5842 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5843 This variable takes effect when you create a new frame
5844 or when you set the mouse color. */);
5845 Vx_window_horizontal_drag_shape
= Qnil
;
5847 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5848 doc
: /* A string indicating the foreground color of the cursor box. */);
5849 Vx_cursor_fore_pixel
= Qnil
;
5851 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5852 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5853 Text larger than this is clipped. */);
5854 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5856 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5857 doc
: /* Non-nil if no X window manager is in use.
5858 Emacs doesn't try to figure this out; this is always nil
5859 unless you set it to something else. */);
5860 /* We don't have any way to find this out, so set it to nil
5861 and maybe the user would like to set it to t. */
5862 Vx_no_window_manager
= Qnil
;
5864 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5865 &Vx_pixel_size_width_font_regexp
,
5866 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5868 Since Emacs gets width of a font matching with this regexp from
5869 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5870 such a font. This is especially effective for such large fonts as
5871 Chinese, Japanese, and Korean. */);
5872 Vx_pixel_size_width_font_regexp
= Qnil
;
5874 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5875 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", &x_gtk_use_old_file_dialog
,
5876 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5877 If nil or if the file selection dialog is not available, the new GTK file
5878 chooser is used instead. To turn off all file dialogs set the
5879 variable `use-file-dialog'. */);
5880 x_gtk_use_old_file_dialog
= 0;
5882 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5883 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5884 Note that this is just the default, there is a toggle button on the file
5885 chooser to show or not show hidden files on a case by case basis. */);
5886 x_gtk_show_hidden_files
= 0;
5888 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", &x_gtk_file_dialog_help_text
,
5889 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
5890 If more space for files in the file chooser dialog is wanted, set this to nil
5891 to turn the additional text off. */);
5892 x_gtk_file_dialog_help_text
= 1;
5894 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
5895 doc
: /* *If non-nil, a detached tool bar is shown in full.
5896 The default is to just show an arrow and pressing on that arrow shows
5897 the tool bar buttons. */);
5898 x_gtk_whole_detached_tool_bar
= 0;
5900 Fprovide (intern_c_string ("x"), Qnil
);
5902 #ifdef USE_X_TOOLKIT
5903 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5905 Fprovide (intern_c_string ("motif"), Qnil
);
5907 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5908 doc
: /* Version info for LessTif/Motif. */);
5909 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5910 #endif /* USE_MOTIF */
5911 #endif /* USE_X_TOOLKIT */
5914 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5915 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5916 But for a user it is a toolkit for X, and indeed, configure
5917 accepts --with-x-toolkit=gtk. */
5918 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5919 Fprovide (intern_c_string ("gtk"), Qnil
);
5921 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5922 doc
: /* Version info for GTK+. */);
5924 char gtk_version
[40];
5925 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5926 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5927 Vgtk_version_string
= make_pure_string (gtk_version
, strlen (gtk_version
), strlen (gtk_version
), 0);
5929 #endif /* USE_GTK */
5931 /* X window properties. */
5932 defsubr (&Sx_change_window_property
);
5933 defsubr (&Sx_delete_window_property
);
5934 defsubr (&Sx_window_property
);
5936 defsubr (&Sxw_display_color_p
);
5937 defsubr (&Sx_display_grayscale_p
);
5938 defsubr (&Sxw_color_defined_p
);
5939 defsubr (&Sxw_color_values
);
5940 defsubr (&Sx_server_max_request_size
);
5941 defsubr (&Sx_server_vendor
);
5942 defsubr (&Sx_server_version
);
5943 defsubr (&Sx_display_pixel_width
);
5944 defsubr (&Sx_display_pixel_height
);
5945 defsubr (&Sx_display_mm_width
);
5946 defsubr (&Sx_display_mm_height
);
5947 defsubr (&Sx_display_screens
);
5948 defsubr (&Sx_display_planes
);
5949 defsubr (&Sx_display_color_cells
);
5950 defsubr (&Sx_display_visual_class
);
5951 defsubr (&Sx_display_backing_store
);
5952 defsubr (&Sx_display_save_under
);
5953 defsubr (&Sx_wm_set_size_hint
);
5954 defsubr (&Sx_create_frame
);
5955 defsubr (&Sx_open_connection
);
5956 defsubr (&Sx_close_connection
);
5957 defsubr (&Sx_display_list
);
5958 defsubr (&Sx_synchronize
);
5959 defsubr (&Sx_focus_frame
);
5960 defsubr (&Sx_backspace_delete_keys_p
);
5962 /* Setting callback functions for fontset handler. */
5963 check_window_system_func
= check_x
;
5965 defsubr (&Sx_show_tip
);
5966 defsubr (&Sx_hide_tip
);
5968 staticpro (&tip_timer
);
5970 staticpro (&tip_frame
);
5972 last_show_tip_args
= Qnil
;
5973 staticpro (&last_show_tip_args
);
5975 defsubr (&Sx_uses_old_gtk_dialog
);
5976 #if defined (USE_MOTIF) || defined (USE_GTK)
5977 defsubr (&Sx_file_dialog
);
5980 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
5981 defsubr (&Sx_select_font
);
5982 x_last_font_name
= NULL
;
5986 #endif /* HAVE_X_WINDOWS */
5988 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
5989 (do not change this comment) */