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 (struct frame
*f
,
1766 Lisp_Object alist
, Lisp_Object prop
,
1767 char *xprop
, char *xclass
,
1770 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1773 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1774 if (EQ (tem
, Qunbound
))
1776 #ifdef USE_TOOLKIT_SCROLL_BARS
1778 /* See if an X resource for the scroll bar color has been
1780 tem
= display_x_get_resource (dpyinfo
,
1781 build_string (foreground_p
1784 empty_unibyte_string
,
1785 build_string ("verticalScrollBar"),
1786 empty_unibyte_string
);
1789 /* If nothing has been specified, scroll bars will use a
1790 toolkit-dependent default. Because these defaults are
1791 difficult to get at without actually creating a scroll
1792 bar, use nil to indicate that no color has been
1797 #else /* not USE_TOOLKIT_SCROLL_BARS */
1801 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1804 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1811 #ifdef USE_X_TOOLKIT
1813 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1814 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1815 already be present because of the toolkit (Motif adds some of them,
1816 for example, but Xt doesn't). */
1819 hack_wm_protocols (f
, widget
)
1823 Display
*dpy
= XtDisplay (widget
);
1824 Window w
= XtWindow (widget
);
1825 int need_delete
= 1;
1832 unsigned char *catoms
;
1834 unsigned long nitems
= 0;
1835 unsigned long bytes_after
;
1837 if ((XGetWindowProperty (dpy
, w
,
1838 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1839 (long)0, (long)100, False
, XA_ATOM
,
1840 &type
, &format
, &nitems
, &bytes_after
,
1843 && format
== 32 && type
== XA_ATOM
)
1845 Atom
*atoms
= (Atom
*) catoms
;
1850 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1852 else if (atoms
[nitems
]
1853 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1855 else if (atoms
[nitems
]
1856 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1867 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1869 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1871 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1873 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1874 XA_ATOM
, 32, PropModeAppend
,
1875 (unsigned char *) props
, count
);
1883 /* Support routines for XIC (X Input Context). */
1887 static XFontSet
xic_create_xfontset (struct frame
*);
1888 static XIMStyle
best_xim_style (XIMStyles
*, XIMStyles
*);
1891 /* Supported XIM styles, ordered by preference. */
1893 static XIMStyle supported_xim_styles
[] =
1895 XIMPreeditPosition
| XIMStatusArea
,
1896 XIMPreeditPosition
| XIMStatusNothing
,
1897 XIMPreeditPosition
| XIMStatusNone
,
1898 XIMPreeditNothing
| XIMStatusArea
,
1899 XIMPreeditNothing
| XIMStatusNothing
,
1900 XIMPreeditNothing
| XIMStatusNone
,
1901 XIMPreeditNone
| XIMStatusArea
,
1902 XIMPreeditNone
| XIMStatusNothing
,
1903 XIMPreeditNone
| XIMStatusNone
,
1908 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1910 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1912 /* Create an Xt fontset spec from the name of a base font.
1913 If `motif' is True use the Motif syntax. */
1915 xic_create_fontsetname (char *base_fontname
, int motif
)
1917 const char *sep
= motif
? ";" : ",";
1920 /* Make a fontset name from the base font name. */
1921 if (xic_defaut_fontset
== base_fontname
)
1922 { /* There is no base font name, use the default. */
1923 int len
= strlen (base_fontname
) + 2;
1924 fontsetname
= xmalloc (len
);
1925 memset (fontsetname
, 0, len
);
1926 strcpy (fontsetname
, base_fontname
);
1930 /* Make a fontset name from the base font name.
1931 The font set will be made of the following elements:
1933 - the base font where the charset spec is replaced by -*-*.
1934 - the same but with the family also replaced with -*-*-. */
1935 char *p
= base_fontname
;
1938 for (i
= 0; *p
; p
++)
1941 { /* As the font name doesn't conform to XLFD, we can't
1942 modify it to generalize it to allcs and allfamilies.
1943 Use the specified font plus the default. */
1944 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
1945 fontsetname
= xmalloc (len
);
1946 memset (fontsetname
, 0, len
);
1947 strcpy (fontsetname
, base_fontname
);
1948 strcat (fontsetname
, sep
);
1949 strcat (fontsetname
, xic_defaut_fontset
);
1954 char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1955 char *font_allcs
= NULL
;
1956 char *font_allfamilies
= NULL
;
1957 char *font_all
= NULL
;
1958 char *allcs
= "*-*-*-*-*-*-*";
1959 char *allfamilies
= "-*-*-";
1960 char *all
= "*-*-*-*-";
1963 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
1976 /* If base_fontname specifies ADSTYLE, make it a
1980 int diff
= (p2
- p3
) - 2;
1982 base
= alloca (strlen (base_fontname
) + 1);
1983 memcpy (base
, base_fontname
, p3
- base_fontname
);
1984 base
[p3
- base_fontname
] = '*';
1985 base
[(p3
- base_fontname
) + 1] = '-';
1986 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
1987 p
= base
+ (p
- base_fontname
) - diff
;
1988 p1
= base
+ (p1
- base_fontname
);
1989 p2
= base
+ (p2
- base_fontname
) - diff
;
1990 base_fontname
= base
;
1993 /* Build the font spec that matches all charsets. */
1994 len
= p
- base_fontname
+ strlen (allcs
) + 1;
1995 font_allcs
= (char *) alloca (len
);
1996 memset (font_allcs
, 0, len
);
1997 memcpy (font_allcs
, base_fontname
, p
- base_fontname
);
1998 strcat (font_allcs
, allcs
);
2000 /* Build the font spec that matches all families and
2002 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2003 font_allfamilies
= (char *) alloca (len
);
2004 memset (font_allfamilies
, 0, len
);
2005 strcpy (font_allfamilies
, allfamilies
);
2006 memcpy (font_allfamilies
+ strlen (allfamilies
), p1
, p
- p1
);
2007 strcat (font_allfamilies
, allcs
);
2009 /* Build the font spec that matches all. */
2010 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2011 font_all
= (char *) alloca (len
);
2012 memset (font_all
, 0, len
);
2013 strcpy (font_all
, allfamilies
);
2014 strcat (font_all
, all
);
2015 memcpy (font_all
+ strlen (all
) + strlen (allfamilies
), p2
, p
- p2
);
2016 strcat (font_all
, allcs
);
2018 /* Build the actual font set name. */
2019 len
= strlen (base_fontname
) + strlen (font_allcs
)
2020 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2021 fontsetname
= xmalloc (len
);
2022 memset (fontsetname
, 0, len
);
2023 strcpy (fontsetname
, base_fontname
);
2024 strcat (fontsetname
, sep
);
2025 strcat (fontsetname
, font_allcs
);
2026 strcat (fontsetname
, sep
);
2027 strcat (fontsetname
, font_allfamilies
);
2028 strcat (fontsetname
, sep
);
2029 strcat (fontsetname
, font_all
);
2033 strcat (fontsetname
, ":");
2037 #ifdef DEBUG_XIC_FONTSET
2039 print_fontset_result (xfs
, name
, missing_list
, missing_count
)
2042 char **missing_list
;
2046 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
2049 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
2050 while (missing_count
-- > 0)
2052 fprintf (stderr
, " missing: %s\n", *missing_list
);
2061 xic_create_xfontset (struct frame
*f
)
2063 XFontSet xfs
= NULL
;
2064 struct font
*font
= FRAME_FONT (f
);
2065 int pixel_size
= font
->pixel_size
;
2066 Lisp_Object rest
, frame
;
2068 /* See if there is another frame already using same fontset. */
2069 FOR_EACH_FRAME (rest
, frame
)
2071 struct frame
*cf
= XFRAME (frame
);
2073 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2074 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2076 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
2078 xfs
= FRAME_XIC_FONTSET (cf
);
2086 char **missing_list
;
2089 char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
2091 sprintf (buf
, xlfd_format
, pixel_size
);
2092 missing_list
= NULL
;
2093 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2094 &missing_list
, &missing_count
, &def_string
);
2095 #ifdef DEBUG_XIC_FONTSET
2096 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2099 XFreeStringList (missing_list
);
2102 /* List of pixel sizes most likely available. Find one that
2103 is closest to pixel_size. */
2104 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2105 int *smaller
, *larger
;
2107 for (smaller
= sizes
; smaller
[1]; smaller
++)
2108 if (smaller
[1] >= pixel_size
)
2110 larger
= smaller
+ 1;
2111 if (*larger
== pixel_size
)
2113 while (*smaller
|| *larger
)
2118 this_size
= *smaller
--;
2119 else if (! *smaller
)
2120 this_size
= *larger
++;
2121 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
2122 this_size
= *smaller
--;
2124 this_size
= *larger
++;
2125 sprintf (buf
, xlfd_format
, this_size
);
2126 missing_list
= NULL
;
2127 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2128 &missing_list
, &missing_count
, &def_string
);
2129 #ifdef DEBUG_XIC_FONTSET
2130 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2133 XFreeStringList (missing_list
);
2140 char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
2142 missing_list
= NULL
;
2143 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
2144 &missing_list
, &missing_count
, &def_string
);
2145 #ifdef DEBUG_XIC_FONTSET
2146 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
2149 XFreeStringList (missing_list
);
2157 /* Free the X fontset of frame F if it is the last frame using it. */
2160 xic_free_xfontset (struct frame
*f
)
2162 Lisp_Object rest
, frame
;
2165 if (!FRAME_XIC_FONTSET (f
))
2168 /* See if there is another frame sharing the same fontset. */
2169 FOR_EACH_FRAME (rest
, frame
)
2171 struct frame
*cf
= XFRAME (frame
);
2172 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2173 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2174 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2182 /* The fontset is not used anymore. It is safe to free it. */
2183 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2185 if (FRAME_XIC_BASE_FONTNAME (f
))
2186 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2187 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2188 FRAME_XIC_FONTSET (f
) = NULL
;
2192 /* Value is the best input style, given user preferences USER (already
2193 checked to be supported by Emacs), and styles supported by the
2194 input method XIM. */
2197 best_xim_style (XIMStyles
*user
, XIMStyles
*xim
)
2201 for (i
= 0; i
< user
->count_styles
; ++i
)
2202 for (j
= 0; j
< xim
->count_styles
; ++j
)
2203 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2204 return user
->supported_styles
[i
];
2206 /* Return the default style. */
2207 return XIMPreeditNothing
| XIMStatusNothing
;
2210 /* Create XIC for frame F. */
2212 static XIMStyle xic_style
;
2215 create_frame_xic (struct frame
*f
)
2219 XFontSet xfs
= NULL
;
2224 /* Create X fontset. */
2225 xfs
= xic_create_xfontset (f
);
2226 xim
= FRAME_X_XIM (f
);
2231 XVaNestedList preedit_attr
;
2232 XVaNestedList status_attr
;
2234 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2235 spot
.x
= 0; spot
.y
= 1;
2237 /* Determine XIC style. */
2240 XIMStyles supported_list
;
2241 supported_list
.count_styles
= (sizeof supported_xim_styles
2242 / sizeof supported_xim_styles
[0]);
2243 supported_list
.supported_styles
= supported_xim_styles
;
2244 xic_style
= best_xim_style (&supported_list
,
2245 FRAME_X_XIM_STYLES (f
));
2248 preedit_attr
= XVaCreateNestedList (0,
2251 FRAME_FOREGROUND_PIXEL (f
),
2253 FRAME_BACKGROUND_PIXEL (f
),
2254 (xic_style
& XIMPreeditPosition
2259 status_attr
= XVaCreateNestedList (0,
2265 FRAME_FOREGROUND_PIXEL (f
),
2267 FRAME_BACKGROUND_PIXEL (f
),
2270 xic
= XCreateIC (xim
,
2271 XNInputStyle
, xic_style
,
2272 XNClientWindow
, FRAME_X_WINDOW (f
),
2273 XNFocusWindow
, FRAME_X_WINDOW (f
),
2274 XNStatusAttributes
, status_attr
,
2275 XNPreeditAttributes
, preedit_attr
,
2277 XFree (preedit_attr
);
2278 XFree (status_attr
);
2281 FRAME_XIC (f
) = xic
;
2282 FRAME_XIC_STYLE (f
) = xic_style
;
2283 FRAME_XIC_FONTSET (f
) = xfs
;
2287 /* Destroy XIC and free XIC fontset of frame F, if any. */
2290 free_frame_xic (struct frame
*f
)
2292 if (FRAME_XIC (f
) == NULL
)
2295 XDestroyIC (FRAME_XIC (f
));
2296 xic_free_xfontset (f
);
2298 FRAME_XIC (f
) = NULL
;
2302 /* Place preedit area for XIC of window W's frame to specified
2303 pixel position X/Y. X and Y are relative to window W. */
2306 xic_set_preeditarea (struct window
*w
, int x
, int y
)
2308 struct frame
*f
= XFRAME (w
->frame
);
2312 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2313 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2314 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2315 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2320 /* Place status area for XIC in bottom right corner of frame F.. */
2323 xic_set_statusarea (struct frame
*f
)
2325 XIC xic
= FRAME_XIC (f
);
2330 /* Negotiate geometry of status area. If input method has existing
2331 status area, use its current size. */
2332 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2333 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2334 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2337 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2338 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2341 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2343 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2344 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2348 area
.width
= needed
->width
;
2349 area
.height
= needed
->height
;
2350 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2351 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2352 - FRAME_MENUBAR_HEIGHT (f
)
2353 - FRAME_TOOLBAR_HEIGHT (f
)
2354 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2357 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2358 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2363 /* Set X fontset for XIC of frame F, using base font name
2364 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2367 xic_set_xfontset (struct frame
*f
, char *base_fontname
)
2372 xic_free_xfontset (f
);
2374 xfs
= xic_create_xfontset (f
);
2376 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2377 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2378 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2379 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2380 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2383 FRAME_XIC_FONTSET (f
) = xfs
;
2386 #endif /* HAVE_X_I18N */
2390 #ifdef USE_X_TOOLKIT
2392 /* Create and set up the X widget for frame F. */
2395 x_window (f
, window_prompting
, minibuffer_only
)
2397 long window_prompting
;
2398 int minibuffer_only
;
2400 XClassHint class_hints
;
2401 XSetWindowAttributes attributes
;
2402 unsigned long attribute_mask
;
2403 Widget shell_widget
;
2405 Widget frame_widget
;
2411 /* Use the resource name as the top-level widget name
2412 for looking up resources. Make a non-Lisp copy
2413 for the window manager, so GC relocation won't bother it.
2415 Elsewhere we specify the window name for the window manager. */
2418 char *str
= (char *) SDATA (Vx_resource_name
);
2419 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2420 strcpy (f
->namebuf
, str
);
2424 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2425 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2426 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2427 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2428 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2429 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2430 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2431 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2432 applicationShellWidgetClass
,
2433 FRAME_X_DISPLAY (f
), al
, ac
);
2435 f
->output_data
.x
->widget
= shell_widget
;
2436 /* maybe_set_screen_title_format (shell_widget); */
2438 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2439 (widget_value
*) NULL
,
2440 shell_widget
, False
,
2444 (lw_callback
) NULL
);
2447 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2448 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2449 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2450 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2451 XtSetValues (pane_widget
, al
, ac
);
2452 f
->output_data
.x
->column_widget
= pane_widget
;
2454 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2455 the emacs screen when changing menubar. This reduces flickering. */
2458 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2459 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2460 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2461 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2462 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2463 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2464 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2465 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2466 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2467 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2470 f
->output_data
.x
->edit_widget
= frame_widget
;
2472 XtManageChild (frame_widget
);
2474 /* Do some needed geometry management. */
2477 char *tem
, shell_position
[32];
2480 int extra_borders
= 0;
2482 = (f
->output_data
.x
->menubar_widget
2483 ? (f
->output_data
.x
->menubar_widget
->core
.height
2484 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2487 #if 0 /* Experimentally, we now get the right results
2488 for -geometry -0-0 without this. 24 Aug 96, rms. */
2489 if (FRAME_EXTERNAL_MENU_BAR (f
))
2492 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2493 menubar_size
+= ibw
;
2497 f
->output_data
.x
->menubar_height
= menubar_size
;
2500 /* Motif seems to need this amount added to the sizes
2501 specified for the shell widget. The Athena/Lucid widgets don't.
2502 Both conclusions reached experimentally. -- rms. */
2503 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2504 &extra_borders
, NULL
);
2508 /* Convert our geometry parameters into a geometry string
2510 Note that we do not specify here whether the position
2511 is a user-specified or program-specified one.
2512 We pass that information later, in x_wm_set_size_hints. */
2514 int left
= f
->left_pos
;
2515 int xneg
= window_prompting
& XNegative
;
2516 int top
= f
->top_pos
;
2517 int yneg
= window_prompting
& YNegative
;
2523 if (window_prompting
& USPosition
)
2524 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2525 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2526 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2527 (xneg
? '-' : '+'), left
,
2528 (yneg
? '-' : '+'), top
);
2531 sprintf (shell_position
, "=%dx%d",
2532 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2533 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2535 /* Setting x and y when the position is not specified in
2536 the geometry string will set program position in the WM hints.
2537 If Emacs had just one program position, we could set it in
2538 fallback resources, but since each make-frame call can specify
2539 different program positions, this is easier. */
2540 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2541 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2545 len
= strlen (shell_position
) + 1;
2546 /* We don't free this because we don't know whether
2547 it is safe to free it while the frame exists.
2548 It isn't worth the trouble of arranging to free it
2549 when the frame is deleted. */
2550 tem
= (char *) xmalloc (len
);
2551 strncpy (tem
, shell_position
, len
);
2552 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2553 XtSetValues (shell_widget
, al
, ac
);
2556 XtManageChild (pane_widget
);
2557 XtRealizeWidget (shell_widget
);
2559 if (FRAME_X_EMBEDDED_P (f
))
2560 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2561 f
->output_data
.x
->parent_desc
, 0, 0);
2563 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2565 validate_x_resource_name ();
2567 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2568 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2569 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2572 FRAME_XIC (f
) = NULL
;
2574 create_frame_xic (f
);
2577 f
->output_data
.x
->wm_hints
.input
= True
;
2578 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2579 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2580 &f
->output_data
.x
->wm_hints
);
2582 hack_wm_protocols (f
, shell_widget
);
2585 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2588 /* Do a stupid property change to force the server to generate a
2589 PropertyNotify event so that the event_stream server timestamp will
2590 be initialized to something relevant to the time we created the window.
2592 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2593 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2594 XA_ATOM
, 32, PropModeAppend
,
2595 (unsigned char*) NULL
, 0);
2597 /* Make all the standard events reach the Emacs frame. */
2598 attributes
.event_mask
= STANDARD_EVENT_SET
;
2603 /* XIM server might require some X events. */
2604 unsigned long fevent
= NoEventMask
;
2605 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2606 attributes
.event_mask
|= fevent
;
2608 #endif /* HAVE_X_I18N */
2610 attribute_mask
= CWEventMask
;
2611 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2612 attribute_mask
, &attributes
);
2614 XtMapWidget (frame_widget
);
2616 /* x_set_name normally ignores requests to set the name if the
2617 requested name is the same as the current name. This is the one
2618 place where that assumption isn't correct; f->name is set, but
2619 the X server hasn't been told. */
2622 int explicit = f
->explicit_name
;
2624 f
->explicit_name
= 0;
2627 x_set_name (f
, name
, explicit);
2630 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2631 f
->output_data
.x
->current_cursor
2632 = f
->output_data
.x
->text_cursor
);
2636 /* This is a no-op, except under Motif. Make sure main areas are
2637 set to something reasonable, in case we get an error later. */
2638 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2641 #else /* not USE_X_TOOLKIT */
2644 x_window (FRAME_PTR f
)
2646 if (! xg_create_frame_widgets (f
))
2647 error ("Unable to create window");
2650 FRAME_XIC (f
) = NULL
;
2654 create_frame_xic (f
);
2657 /* XIM server might require some X events. */
2658 unsigned long fevent
= NoEventMask
;
2659 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2661 if (fevent
!= NoEventMask
)
2663 XSetWindowAttributes attributes
;
2664 XWindowAttributes wattr
;
2665 unsigned long attribute_mask
;
2667 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2669 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2670 attribute_mask
= CWEventMask
;
2671 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2672 attribute_mask
, &attributes
);
2680 #else /*! USE_GTK */
2681 /* Create and set up the X window for frame F. */
2688 XClassHint class_hints
;
2689 XSetWindowAttributes attributes
;
2690 unsigned long attribute_mask
;
2692 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2693 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2694 attributes
.bit_gravity
= StaticGravity
;
2695 attributes
.backing_store
= NotUseful
;
2696 attributes
.save_under
= True
;
2697 attributes
.event_mask
= STANDARD_EVENT_SET
;
2698 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2699 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2704 = XCreateWindow (FRAME_X_DISPLAY (f
),
2705 f
->output_data
.x
->parent_desc
,
2708 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2710 CopyFromParent
, /* depth */
2711 InputOutput
, /* class */
2713 attribute_mask
, &attributes
);
2718 create_frame_xic (f
);
2721 /* XIM server might require some X events. */
2722 unsigned long fevent
= NoEventMask
;
2723 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2724 attributes
.event_mask
|= fevent
;
2725 attribute_mask
= CWEventMask
;
2726 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2727 attribute_mask
, &attributes
);
2730 #endif /* HAVE_X_I18N */
2732 validate_x_resource_name ();
2734 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2735 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2736 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2738 /* The menubar is part of the ordinary display;
2739 it does not count in addition to the height of the window. */
2740 f
->output_data
.x
->menubar_height
= 0;
2742 /* This indicates that we use the "Passive Input" input model.
2743 Unless we do this, we don't get the Focus{In,Out} events that we
2744 need to draw the cursor correctly. Accursed bureaucrats.
2745 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2747 f
->output_data
.x
->wm_hints
.input
= True
;
2748 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2749 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2750 &f
->output_data
.x
->wm_hints
);
2751 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2753 /* Request "save yourself" and "delete window" commands from wm. */
2756 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2757 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2758 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2761 /* x_set_name normally ignores requests to set the name if the
2762 requested name is the same as the current name. This is the one
2763 place where that assumption isn't correct; f->name is set, but
2764 the X server hasn't been told. */
2767 int explicit = f
->explicit_name
;
2769 f
->explicit_name
= 0;
2772 x_set_name (f
, name
, explicit);
2775 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2776 f
->output_data
.x
->current_cursor
2777 = f
->output_data
.x
->text_cursor
);
2781 if (FRAME_X_WINDOW (f
) == 0)
2782 error ("Unable to create window");
2785 #endif /* not USE_GTK */
2786 #endif /* not USE_X_TOOLKIT */
2788 /* Verify that the icon position args for this window are valid. */
2791 x_icon_verify (struct frame
*f
, Lisp_Object parms
)
2793 Lisp_Object icon_x
, icon_y
;
2795 /* Set the position of the icon. Note that twm groups all
2796 icons in an icon window. */
2797 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2798 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2799 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2801 CHECK_NUMBER (icon_x
);
2802 CHECK_NUMBER (icon_y
);
2804 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2805 error ("Both left and top icon corners of icon must be specified");
2808 /* Handle the icon stuff for this window. Perhaps later we might
2809 want an x_set_icon_position which can be called interactively as
2813 x_icon (struct frame
*f
, Lisp_Object parms
)
2815 Lisp_Object icon_x
, icon_y
;
2817 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2820 /* Set the position of the icon. Note that twm groups all
2821 icons in an icon window. */
2822 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2823 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2824 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2826 CHECK_NUMBER (icon_x
);
2827 CHECK_NUMBER (icon_y
);
2829 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2830 error ("Both left and top icon corners of icon must be specified");
2834 if (! EQ (icon_x
, Qunbound
))
2835 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2837 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2838 but x_create_frame still needs it. */
2839 /* Start up iconic or window? */
2840 x_wm_set_window_state
2841 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2847 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2854 /* Make the GCs needed for this window, setting the
2855 background, border and mouse colors; also create the
2856 mouse cursor and the gray border tile. */
2859 x_make_gc (struct frame
*f
)
2861 XGCValues gc_values
;
2865 /* Create the GCs of this frame.
2866 Note that many default values are used. */
2868 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2869 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2870 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2871 f
->output_data
.x
->normal_gc
2872 = XCreateGC (FRAME_X_DISPLAY (f
),
2874 GCLineWidth
| GCForeground
| GCBackground
,
2877 /* Reverse video style. */
2878 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2879 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2880 f
->output_data
.x
->reverse_gc
2881 = XCreateGC (FRAME_X_DISPLAY (f
),
2883 GCForeground
| GCBackground
| GCLineWidth
,
2886 /* Cursor has cursor-color background, background-color foreground. */
2887 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2888 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2889 gc_values
.fill_style
= FillOpaqueStippled
;
2890 f
->output_data
.x
->cursor_gc
2891 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2892 (GCForeground
| GCBackground
2893 | GCFillStyle
| GCLineWidth
),
2897 f
->output_data
.x
->white_relief
.gc
= 0;
2898 f
->output_data
.x
->black_relief
.gc
= 0;
2900 /* Create the gray border tile used when the pointer is not in
2901 the frame. Since this depends on the frame's pixel values,
2902 this must be done on a per-frame basis. */
2903 f
->output_data
.x
->border_tile
2904 = (XCreatePixmapFromBitmapData
2905 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2906 gray_bits
, gray_width
, gray_height
,
2907 FRAME_FOREGROUND_PIXEL (f
),
2908 FRAME_BACKGROUND_PIXEL (f
),
2909 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2915 /* Free what was allocated in x_make_gc. */
2918 x_free_gcs (struct frame
*f
)
2920 Display
*dpy
= FRAME_X_DISPLAY (f
);
2924 if (f
->output_data
.x
->normal_gc
)
2926 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2927 f
->output_data
.x
->normal_gc
= 0;
2930 if (f
->output_data
.x
->reverse_gc
)
2932 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2933 f
->output_data
.x
->reverse_gc
= 0;
2936 if (f
->output_data
.x
->cursor_gc
)
2938 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2939 f
->output_data
.x
->cursor_gc
= 0;
2942 if (f
->output_data
.x
->border_tile
)
2944 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2945 f
->output_data
.x
->border_tile
= 0;
2952 /* Handler for signals raised during x_create_frame and
2953 x_create_top_frame. FRAME is the frame which is partially
2957 unwind_create_frame (Lisp_Object frame
)
2959 struct frame
*f
= XFRAME (frame
);
2961 /* If frame is already dead, nothing to do. This can happen if the
2962 display is disconnected after the frame has become official, but
2963 before x_create_frame removes the unwind protect. */
2964 if (!FRAME_LIVE_P (f
))
2967 /* If frame is ``official'', nothing to do. */
2968 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2971 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2974 x_free_frame_resources (f
);
2977 /* Check that reference counts are indeed correct. */
2978 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2979 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2989 x_default_font_parameter (struct frame
*f
, Lisp_Object parms
)
2991 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2992 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
2994 Lisp_Object font
= Qnil
;
2995 if (EQ (font_param
, Qunbound
))
2998 if (NILP (font_param
))
3000 /* System font should take precedendce over X resources. We suggest this
3001 regardless of font-use-system-font because .emacs may not have been
3003 const char *system_font
= xsettings_get_system_font ();
3006 char *name
= xstrdup (system_font
);
3007 font
= font_open_by_name (f
, name
);
3013 font
= !NILP (font_param
) ? font_param
3014 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3016 if (! FONTP (font
) && ! STRINGP (font
))
3021 /* This will find the normal Xft font. */
3024 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
3025 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3026 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3027 /* This was formerly the first thing tried, but it finds
3028 too many fonts and takes too long. */
3029 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
3030 /* If those didn't work, look for something which will
3032 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
3037 for (i
= 0; names
[i
]; i
++)
3039 font
= font_open_by_name (f
, names
[i
]);
3044 error ("No suitable font was found");
3046 else if (!NILP (font_param
))
3048 /* Remember the explicit font parameter, so we can re-apply it after
3049 we've applied the `default' face settings. */
3050 x_set_frame_parameters (f
, Fcons (Fcons (Qfont_param
, font_param
), Qnil
));
3053 /* This call will make X resources override any system font setting. */
3054 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
3058 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
3060 doc
: /* Send the size hints for frame FRAME to the window manager.
3061 If FRAME is nil, use the selected frame. */)
3066 frame
= selected_frame
;
3070 x_wm_set_size_hint (f
, 0, 0);
3076 set_machine_and_pid_properties (struct frame
*f
)
3078 /* See the above comment "Note: Encoding strategy". */
3081 int do_free_text_value
= 0;
3082 long pid
= (long) getpid ();
3084 text
.value
= x_encode_text (Vsystem_name
,
3085 Qcompound_text
, 0, &bytes
, &stringp
,
3086 &do_free_text_value
);
3087 text
.encoding
= (stringp
? XA_STRING
3088 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
3090 text
.nitems
= bytes
;
3091 XSetWMClientMachine (FRAME_X_DISPLAY (f
),
3092 FRAME_OUTER_WINDOW (f
),
3094 if (do_free_text_value
)
3097 XChangeProperty (FRAME_X_DISPLAY (f
),
3098 FRAME_OUTER_WINDOW (f
),
3099 XInternAtom (FRAME_X_DISPLAY (f
),
3102 XA_CARDINAL
, 32, PropModeReplace
,
3103 (unsigned char *) &pid
, 1);
3106 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3108 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3109 Return an Emacs frame object.
3110 PARMS is an alist of frame parameters.
3111 If the parameters specify that the frame should not have a minibuffer,
3112 and do not specify a specific minibuffer window to use,
3113 then `default-minibuffer-frame' must be a frame whose minibuffer can
3114 be shared by the new frame.
3116 This function is an internal primitive--use `make-frame' instead. */)
3120 Lisp_Object frame
, tem
;
3122 int minibuffer_only
= 0;
3123 long window_prompting
= 0;
3125 int count
= SPECPDL_INDEX ();
3126 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3127 Lisp_Object display
;
3128 struct x_display_info
*dpyinfo
= NULL
;
3132 parms
= Fcopy_alist (parms
);
3134 /* Use this general default value to start with
3135 until we know if this frame has a specified name. */
3136 Vx_resource_name
= Vinvocation_name
;
3138 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3139 if (EQ (display
, Qunbound
))
3140 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3141 if (EQ (display
, Qunbound
))
3143 dpyinfo
= check_x_display_info (display
);
3144 kb
= dpyinfo
->terminal
->kboard
;
3146 if (!dpyinfo
->terminal
->name
)
3147 error ("Terminal is not live, can't create new frames on it");
3149 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3151 && ! EQ (name
, Qunbound
)
3153 error ("Invalid frame name--not a string or nil");
3156 Vx_resource_name
= name
;
3158 /* See if parent window is specified. */
3159 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3160 if (EQ (parent
, Qunbound
))
3162 if (! NILP (parent
))
3163 CHECK_NUMBER (parent
);
3165 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3166 /* No need to protect DISPLAY because that's not used after passing
3167 it to make_frame_without_minibuffer. */
3169 GCPRO4 (parms
, parent
, name
, frame
);
3170 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3172 if (EQ (tem
, Qnone
) || NILP (tem
))
3173 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3174 else if (EQ (tem
, Qonly
))
3176 f
= make_minibuffer_frame ();
3177 minibuffer_only
= 1;
3179 else if (WINDOWP (tem
))
3180 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3184 XSETFRAME (frame
, f
);
3186 /* Note that X Windows does support scroll bars. */
3187 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3189 f
->terminal
= dpyinfo
->terminal
;
3190 f
->terminal
->reference_count
++;
3192 f
->output_method
= output_x_window
;
3193 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3194 memset (f
->output_data
.x
, 0, sizeof (struct x_output
));
3195 f
->output_data
.x
->icon_bitmap
= -1;
3196 FRAME_FONTSET (f
) = -1;
3197 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3198 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3199 #ifdef USE_TOOLKIT_SCROLL_BARS
3200 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3201 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3202 #endif /* USE_TOOLKIT_SCROLL_BARS */
3205 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3207 if (! STRINGP (f
->icon_name
))
3208 f
->icon_name
= Qnil
;
3210 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3212 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3213 record_unwind_protect (unwind_create_frame
, frame
);
3215 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
3216 dpyinfo_refcount
= dpyinfo
->reference_count
;
3217 #endif /* GLYPH_DEBUG */
3219 /* These colors will be set anyway later, but it's important
3220 to get the color reference counts right, so initialize them! */
3223 struct gcpro gcpro1
;
3225 /* Function x_decode_color can signal an error. Make
3226 sure to initialize color slots so that we won't try
3227 to free colors we haven't allocated. */
3228 FRAME_FOREGROUND_PIXEL (f
) = -1;
3229 FRAME_BACKGROUND_PIXEL (f
) = -1;
3230 f
->output_data
.x
->cursor_pixel
= -1;
3231 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3232 f
->output_data
.x
->border_pixel
= -1;
3233 f
->output_data
.x
->mouse_pixel
= -1;
3235 black
= build_string ("black");
3237 FRAME_FOREGROUND_PIXEL (f
)
3238 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3239 FRAME_BACKGROUND_PIXEL (f
)
3240 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3241 f
->output_data
.x
->cursor_pixel
3242 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3243 f
->output_data
.x
->cursor_foreground_pixel
3244 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3245 f
->output_data
.x
->border_pixel
3246 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3247 f
->output_data
.x
->mouse_pixel
3248 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3252 /* Specify the parent under which to make this X window. */
3256 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3257 f
->output_data
.x
->explicit_parent
= 1;
3261 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3262 f
->output_data
.x
->explicit_parent
= 0;
3265 /* Set the name; the functions to which we pass f expect the name to
3267 if (EQ (name
, Qunbound
) || NILP (name
))
3269 f
->name
= build_string (dpyinfo
->x_id_name
);
3270 f
->explicit_name
= 0;
3275 f
->explicit_name
= 1;
3276 /* use the frame's title when getting resources for this frame. */
3277 specbind (Qx_resource_name
, name
);
3280 f
->resx
= dpyinfo
->resx
;
3281 f
->resy
= dpyinfo
->resy
;
3283 #ifdef HAVE_FREETYPE
3285 register_font_driver (&xftfont_driver
, f
);
3286 #else /* not HAVE_XFT */
3287 register_font_driver (&ftxfont_driver
, f
);
3288 #endif /* not HAVE_XFT */
3289 #endif /* HAVE_FREETYPE */
3290 register_font_driver (&xfont_driver
, f
);
3292 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3293 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3295 /* Extract the window parameters from the supplied values
3296 that are needed to determine window geometry. */
3297 x_default_font_parameter (f
, parms
);
3298 if (!FRAME_FONT (f
))
3300 delete_frame (frame
, Qnoelisp
);
3301 error ("Invalid frame font");
3304 /* Frame contents get displaced if an embedded X window has a border. */
3305 if (! FRAME_X_EMBEDDED_P (f
))
3306 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
3307 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3309 /* This defaults to 1 in order to match xterm. We recognize either
3310 internalBorderWidth or internalBorder (which is what xterm calls
3312 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3316 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3317 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3318 if (! EQ (value
, Qunbound
))
3319 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3322 x_default_parameter (f
, parms
, Qinternal_border_width
,
3323 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3328 "internalBorderWidth", "internalBorderWidth",
3330 x_default_parameter (f
, parms
, Qvertical_scroll_bars
,
3331 #if defined(USE_GTK) && defined(USE_TOOLKIT_SCROLL_BARS)
3336 "verticalScrollBars", "ScrollBars",
3339 /* Also do the stuff which must be set before the window exists. */
3340 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3341 "foreground", "Foreground", RES_TYPE_STRING
);
3342 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3343 "background", "Background", RES_TYPE_STRING
);
3344 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3345 "pointerColor", "Foreground", RES_TYPE_STRING
);
3346 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3347 "cursorColor", "Foreground", RES_TYPE_STRING
);
3348 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3349 "borderColor", "BorderColor", RES_TYPE_STRING
);
3350 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3351 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3352 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3353 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3354 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3355 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3356 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3357 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3359 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3360 "scrollBarForeground",
3361 "ScrollBarForeground", 1);
3362 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3363 "scrollBarBackground",
3364 "ScrollBarBackground", 0);
3366 /* Init faces before x_default_parameter is called for scroll-bar
3367 parameters because that function calls x_set_scroll_bar_width,
3368 which calls change_frame_size, which calls Fset_window_buffer,
3369 which runs hooks, which call Fvertical_motion. At the end, we
3370 end up in init_iterator with a null face cache, which should not
3372 init_frame_faces (f
);
3374 /* The X resources controlling the menu-bar and tool-bar are
3375 processed specially at startup, and reflected in the mode
3376 variables; ignore them here. */
3377 x_default_parameter (f
, parms
, Qmenu_bar_lines
,
3378 NILP (Vmenu_bar_mode
)
3379 ? make_number (0) : make_number (1),
3380 NULL
, NULL
, RES_TYPE_NUMBER
);
3381 x_default_parameter (f
, parms
, Qtool_bar_lines
,
3382 NILP (Vtool_bar_mode
)
3383 ? make_number (0) : make_number (1),
3384 NULL
, NULL
, RES_TYPE_NUMBER
);
3386 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3387 "bufferPredicate", "BufferPredicate",
3389 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3390 "title", "Title", RES_TYPE_STRING
);
3391 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3392 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3393 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3394 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3396 /* Compute the size of the X window. */
3397 window_prompting
= x_figure_window_size (f
, parms
, 1);
3399 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3400 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3402 x_icon_verify (f
, parms
);
3404 /* Create the X widget or window. */
3405 #ifdef USE_X_TOOLKIT
3406 x_window (f
, window_prompting
, minibuffer_only
);
3414 /* Now consider the frame official. */
3415 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3416 Vframe_list
= Fcons (frame
, Vframe_list
);
3418 /* We need to do this after creating the X window, so that the
3419 icon-creation functions can say whose icon they're describing. */
3420 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3421 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3423 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3424 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3425 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3426 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3427 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3428 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3429 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3430 "scrollBarWidth", "ScrollBarWidth",
3432 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3433 "alpha", "Alpha", RES_TYPE_NUMBER
);
3435 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3436 Change will not be effected unless different from the current
3438 width
= FRAME_COLS (f
);
3439 height
= FRAME_LINES (f
);
3441 SET_FRAME_COLS (f
, 0);
3442 FRAME_LINES (f
) = 0;
3443 change_frame_size (f
, height
, width
, 1, 0, 0);
3445 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3446 /* Create the menu bar. */
3447 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3449 /* If this signals an error, we haven't set size hints for the
3450 frame and we didn't make it visible. */
3451 initialize_frame_menubar (f
);
3454 /* This is a no-op, except under Motif where it arranges the
3455 main window for the widgets on it. */
3456 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3457 f
->output_data
.x
->menubar_widget
,
3458 f
->output_data
.x
->edit_widget
);
3459 #endif /* not USE_GTK */
3461 #endif /* USE_X_TOOLKIT || USE_GTK */
3463 /* Tell the server what size and position, etc, we want, and how
3464 badly we want them. This should be done after we have the menu
3465 bar so that its size can be taken into account. */
3467 x_wm_set_size_hint (f
, window_prompting
, 0);
3470 /* Make the window appear on the frame and enable display, unless
3471 the caller says not to. However, with explicit parent, Emacs
3472 cannot control visibility, so don't try. */
3473 if (! f
->output_data
.x
->explicit_parent
)
3475 Lisp_Object visibility
;
3477 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3479 if (EQ (visibility
, Qunbound
))
3482 if (EQ (visibility
, Qicon
))
3483 x_iconify_frame (f
);
3484 else if (! NILP (visibility
))
3485 x_make_frame_visible (f
);
3487 /* Must have been Qnil. */
3493 /* Set machine name and pid for the purpose of window managers. */
3494 set_machine_and_pid_properties(f
);
3496 /* Set the WM leader property. GTK does this itself, so this is not
3497 needed when using GTK. */
3498 if (dpyinfo
->client_leader_window
!= 0)
3500 XChangeProperty (FRAME_X_DISPLAY (f
),
3501 FRAME_OUTER_WINDOW (f
),
3502 dpyinfo
->Xatom_wm_client_leader
,
3503 XA_WINDOW
, 32, PropModeReplace
,
3504 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3509 /* Initialize `default-minibuffer-frame' in case this is the first
3510 frame on this terminal. */
3511 if (FRAME_HAS_MINIBUF_P (f
)
3512 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3513 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3514 kb
->Vdefault_minibuffer_frame
= frame
;
3516 /* All remaining specified parameters, which have not been "used"
3517 by x_get_arg and friends, now go in the misc. alist of the frame. */
3518 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3519 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3520 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3524 /* Make sure windows on this frame appear in calls to next-window
3525 and similar functions. */
3526 Vwindow_list
= Qnil
;
3528 return unbind_to (count
, frame
);
3532 /* FRAME is used only to get a handle on the X display. We don't pass the
3533 display info directly because we're called from frame.c, which doesn't
3534 know about that structure. */
3537 x_get_focus_frame (struct frame
*frame
)
3539 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3541 if (! dpyinfo
->x_focus_frame
)
3544 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3549 /* In certain situations, when the window manager follows a
3550 click-to-focus policy, there seems to be no way around calling
3551 XSetInputFocus to give another frame the input focus .
3553 In an ideal world, XSetInputFocus should generally be avoided so
3554 that applications don't interfere with the window manager's focus
3555 policy. But I think it's okay to use when it's clearly done
3556 following a user-command. */
3558 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3559 doc
: /* Set the input focus to FRAME.
3560 FRAME nil means use the selected frame. */)
3563 struct frame
*f
= check_x_frame (frame
);
3564 Display
*dpy
= FRAME_X_DISPLAY (f
);
3567 x_catch_errors (dpy
);
3568 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3569 RevertToParent
, CurrentTime
);
3570 x_ewmh_activate_frame (f
);
3571 x_uncatch_errors ();
3578 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3579 doc
: /* Internal function called by `color-defined-p', which see. */)
3580 (Lisp_Object color
, Lisp_Object frame
)
3583 FRAME_PTR f
= check_x_frame (frame
);
3585 CHECK_STRING (color
);
3587 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3593 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3594 doc
: /* Internal function called by `color-values', which see. */)
3595 (Lisp_Object color
, Lisp_Object frame
)
3598 FRAME_PTR f
= check_x_frame (frame
);
3600 CHECK_STRING (color
);
3602 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3603 return list3 (make_number (foo
.red
),
3604 make_number (foo
.green
),
3605 make_number (foo
.blue
));
3610 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3611 doc
: /* Internal function called by `display-color-p', which see. */)
3612 (Lisp_Object terminal
)
3614 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3616 if (dpyinfo
->n_planes
<= 2)
3619 switch (dpyinfo
->visual
->class)
3632 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3634 doc
: /* Return t if the X display supports shades of gray.
3635 Note that color displays do support shades of gray.
3636 The optional argument TERMINAL specifies which display to ask about.
3637 TERMINAL should be a terminal object, a frame or a display name (a string).
3638 If omitted or nil, that stands for the selected frame's display. */)
3639 (Lisp_Object terminal
)
3641 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3643 if (dpyinfo
->n_planes
<= 1)
3646 switch (dpyinfo
->visual
->class)
3661 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3663 doc
: /* Return the width in pixels of the X display TERMINAL.
3664 The optional argument TERMINAL specifies which display to ask about.
3665 TERMINAL should be a terminal object, a frame or a display name (a string).
3666 If omitted or nil, that stands for the selected frame's display. */)
3667 (Lisp_Object terminal
)
3669 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3671 return make_number (x_display_pixel_width (dpyinfo
));
3674 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3675 Sx_display_pixel_height
, 0, 1, 0,
3676 doc
: /* Return the height in pixels of the X display TERMINAL.
3677 The optional argument TERMINAL specifies which display to ask about.
3678 TERMINAL should be a terminal object, a frame or a display name (a string).
3679 If omitted or nil, that stands for the selected frame's display. */)
3680 (Lisp_Object terminal
)
3682 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3684 return make_number (x_display_pixel_height (dpyinfo
));
3687 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3689 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3690 The optional argument TERMINAL specifies which display to ask about.
3691 TERMINAL should be a terminal object, a frame or a display name (a string).
3692 If omitted or nil, that stands for the selected frame's display. */)
3693 (Lisp_Object terminal
)
3695 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3697 return make_number (dpyinfo
->n_planes
);
3700 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3702 doc
: /* Return the number of color cells of the X display TERMINAL.
3703 The optional argument TERMINAL specifies which display to ask about.
3704 TERMINAL should be a terminal object, a frame or a display name (a string).
3705 If omitted or nil, that stands for the selected frame's display. */)
3706 (Lisp_Object terminal
)
3708 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3710 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3711 XScreenNumberOfScreen (dpyinfo
->screen
));
3713 /* Truncate nr_planes to 24 to avoid integer overflow.
3714 Some displays says 32, but only 24 bits are actually significant.
3715 There are only very few and rare video cards that have more than
3716 24 significant bits. Also 24 bits is more than 16 million colors,
3717 it "should be enough for everyone". */
3718 if (nr_planes
> 24) nr_planes
= 24;
3720 return make_number (1 << nr_planes
);
3723 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3724 Sx_server_max_request_size
,
3726 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3727 The optional argument TERMINAL specifies which display to ask about.
3728 TERMINAL should be a terminal object, a frame or a display name (a string).
3729 If omitted or nil, that stands for the selected frame's display. */)
3730 (Lisp_Object terminal
)
3732 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3734 return make_number (MAXREQUEST (dpyinfo
->display
));
3737 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3738 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3739 \(Labelling every distributor as a "vendor" embodies the false assumption
3740 that operating systems cannot be developed and distributed noncommercially.)
3741 The optional argument TERMINAL specifies which display to ask about.
3742 TERMINAL should be a terminal object, a frame or a display name (a string).
3743 If omitted or nil, that stands for the selected frame's display. */)
3744 (Lisp_Object terminal
)
3746 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3747 char *vendor
= ServerVendor (dpyinfo
->display
);
3749 if (! vendor
) vendor
= "";
3750 return build_string (vendor
);
3753 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3754 doc
: /* Return the version numbers of the X server of display TERMINAL.
3755 The value is a list of three integers: the major and minor
3756 version numbers of the X Protocol in use, and the distributor-specific release
3757 number. See also the function `x-server-vendor'.
3759 The optional argument TERMINAL specifies which display to ask about.
3760 TERMINAL should be a terminal object, a frame or a display name (a string).
3761 If omitted or nil, that stands for the selected frame's display. */)
3762 (Lisp_Object terminal
)
3764 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3765 Display
*dpy
= dpyinfo
->display
;
3767 return Fcons (make_number (ProtocolVersion (dpy
)),
3768 Fcons (make_number (ProtocolRevision (dpy
)),
3769 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3772 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3773 doc
: /* Return the number of screens on the X server of display TERMINAL.
3774 The optional argument TERMINAL specifies which display to ask about.
3775 TERMINAL should be a terminal object, a frame or a display name (a string).
3776 If omitted or nil, that stands for the selected frame's display. */)
3777 (Lisp_Object terminal
)
3779 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3781 return make_number (ScreenCount (dpyinfo
->display
));
3784 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3785 doc
: /* Return the height in millimeters of the X display TERMINAL.
3786 The optional argument TERMINAL specifies which display to ask about.
3787 TERMINAL should be a terminal object, a frame or a display name (a string).
3788 If omitted or nil, that stands for the selected frame's display. */)
3789 (Lisp_Object terminal
)
3791 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3793 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3796 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3797 doc
: /* Return the width in millimeters of the X display TERMINAL.
3798 The optional argument TERMINAL specifies which display to ask about.
3799 TERMINAL should be a terminal object, a frame or a display name (a string).
3800 If omitted or nil, that stands for the selected frame's display. */)
3801 (Lisp_Object terminal
)
3803 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3805 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3808 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3809 Sx_display_backing_store
, 0, 1, 0,
3810 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3811 The value may be `always', `when-mapped', or `not-useful'.
3812 The optional argument TERMINAL specifies which display to ask about.
3813 TERMINAL should be a terminal object, a frame or a display name (a string).
3814 If omitted or nil, that stands for the selected frame's display. */)
3815 (Lisp_Object terminal
)
3817 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3820 switch (DoesBackingStore (dpyinfo
->screen
))
3823 result
= intern ("always");
3827 result
= intern ("when-mapped");
3831 result
= intern ("not-useful");
3835 error ("Strange value for BackingStore parameter of screen");
3842 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3843 Sx_display_visual_class
, 0, 1, 0,
3844 doc
: /* Return the visual class of the X display TERMINAL.
3845 The value is one of the symbols `static-gray', `gray-scale',
3846 `static-color', `pseudo-color', `true-color', or `direct-color'.
3848 The optional argument TERMINAL specifies which display to ask about.
3849 TERMINAL should a terminal object, a frame or a display name (a string).
3850 If omitted or nil, that stands for the selected frame's display. */)
3851 (Lisp_Object terminal
)
3853 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3856 switch (dpyinfo
->visual
->class)
3859 result
= intern ("static-gray");
3862 result
= intern ("gray-scale");
3865 result
= intern ("static-color");
3868 result
= intern ("pseudo-color");
3871 result
= intern ("true-color");
3874 result
= intern ("direct-color");
3877 error ("Display has an unknown visual class");
3884 DEFUN ("x-display-save-under", Fx_display_save_under
,
3885 Sx_display_save_under
, 0, 1, 0,
3886 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3887 The optional argument TERMINAL specifies which display to ask about.
3888 TERMINAL should be a terminal object, a frame or a display name (a string).
3889 If omitted or nil, that stands for the selected frame's display. */)
3890 (Lisp_Object terminal
)
3892 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3894 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3901 x_pixel_width (register struct frame
*f
)
3903 return FRAME_PIXEL_WIDTH (f
);
3907 x_pixel_height (register struct frame
*f
)
3909 return FRAME_PIXEL_HEIGHT (f
);
3913 x_char_width (register struct frame
*f
)
3915 return FRAME_COLUMN_WIDTH (f
);
3919 x_char_height (register struct frame
*f
)
3921 return FRAME_LINE_HEIGHT (f
);
3925 x_screen_planes (register struct frame
*f
)
3927 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3932 /************************************************************************
3934 ************************************************************************/
3937 /* Mapping visual names to visuals. */
3939 static struct visual_class
3946 {"StaticGray", StaticGray
},
3947 {"GrayScale", GrayScale
},
3948 {"StaticColor", StaticColor
},
3949 {"PseudoColor", PseudoColor
},
3950 {"TrueColor", TrueColor
},
3951 {"DirectColor", DirectColor
},
3956 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3958 /* Value is the screen number of screen SCR. This is a substitute for
3959 the X function with the same name when that doesn't exist. */
3962 XScreenNumberOfScreen (scr
)
3963 register Screen
*scr
;
3965 Display
*dpy
= scr
->display
;
3968 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3969 if (scr
== dpy
->screens
+ i
)
3975 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3978 /* Select the visual that should be used on display DPYINFO. Set
3979 members of DPYINFO appropriately. Called from x_term_init. */
3982 select_visual (struct x_display_info
*dpyinfo
)
3984 Display
*dpy
= dpyinfo
->display
;
3985 Screen
*screen
= dpyinfo
->screen
;
3988 /* See if a visual is specified. */
3989 value
= display_x_get_resource (dpyinfo
,
3990 build_string ("visualClass"),
3991 build_string ("VisualClass"),
3993 if (STRINGP (value
))
3995 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3996 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3997 depth, a decimal number. NAME is compared with case ignored. */
3998 char *s
= (char *) alloca (SBYTES (value
) + 1);
4003 strcpy (s
, SDATA (value
));
4004 dash
= strchr (s
, '-');
4007 dpyinfo
->n_planes
= atoi (dash
+ 1);
4011 /* We won't find a matching visual with depth 0, so that
4012 an error will be printed below. */
4013 dpyinfo
->n_planes
= 0;
4015 /* Determine the visual class. */
4016 for (i
= 0; visual_classes
[i
].name
; ++i
)
4017 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4019 class = visual_classes
[i
].class;
4023 /* Look up a matching visual for the specified class. */
4025 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4026 dpyinfo
->n_planes
, class, &vinfo
))
4027 fatal ("Invalid visual specification `%s'", SDATA (value
));
4029 dpyinfo
->visual
= vinfo
.visual
;
4034 XVisualInfo
*vinfo
, vinfo_template
;
4036 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4038 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4039 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4040 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4041 &vinfo_template
, &n_visuals
);
4043 fatal ("Can't get proper X visual info");
4045 dpyinfo
->n_planes
= vinfo
->depth
;
4046 XFree ((char *) vinfo
);
4051 /* Return the X display structure for the display named NAME.
4052 Open a new connection if necessary. */
4054 struct x_display_info
*
4055 x_display_info_for_name (Lisp_Object name
)
4058 struct x_display_info
*dpyinfo
;
4060 CHECK_STRING (name
);
4063 if (! EQ (Vinitial_window_system
, intern ("x")))
4064 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4067 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4069 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4072 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4077 /* Use this general default value to start with. */
4078 Vx_resource_name
= Vinvocation_name
;
4080 validate_x_resource_name ();
4082 dpyinfo
= x_term_init (name
, (char *)0,
4083 (char *) SDATA (Vx_resource_name
));
4086 error ("Cannot connect to X server %s", SDATA (name
));
4089 XSETFASTINT (Vwindow_system_version
, 11);
4095 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4097 doc
: /* Open a connection to an X server.
4098 DISPLAY is the name of the display to connect to.
4099 Optional second arg XRM-STRING is a string of resources in xrdb format.
4100 If the optional third arg MUST-SUCCEED is non-nil,
4101 terminate Emacs if we can't open the connection. */)
4102 (Lisp_Object display
, Lisp_Object xrm_string
, Lisp_Object must_succeed
)
4104 unsigned char *xrm_option
;
4105 struct x_display_info
*dpyinfo
;
4107 CHECK_STRING (display
);
4108 if (! NILP (xrm_string
))
4109 CHECK_STRING (xrm_string
);
4112 if (! EQ (Vinitial_window_system
, intern ("x")))
4113 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4116 if (! NILP (xrm_string
))
4117 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4119 xrm_option
= (unsigned char *) 0;
4121 validate_x_resource_name ();
4123 /* This is what opens the connection and sets x_current_display.
4124 This also initializes many symbols, such as those used for input. */
4125 dpyinfo
= x_term_init (display
, xrm_option
,
4126 (char *) SDATA (Vx_resource_name
));
4130 if (!NILP (must_succeed
))
4131 fatal ("Cannot connect to X server %s.\n\
4132 Check the DISPLAY environment variable or use `-d'.\n\
4133 Also use the `xauth' program to verify that you have the proper\n\
4134 authorization information needed to connect the X server.\n\
4135 An insecure way to solve the problem may be to use `xhost'.\n",
4138 error ("Cannot connect to X server %s", SDATA (display
));
4143 XSETFASTINT (Vwindow_system_version
, 11);
4147 DEFUN ("x-close-connection", Fx_close_connection
,
4148 Sx_close_connection
, 1, 1, 0,
4149 doc
: /* Close the connection to TERMINAL's X server.
4150 For TERMINAL, specify a terminal object, a frame or a display name (a
4151 string). If TERMINAL is nil, that stands for the selected frame's
4153 (Lisp_Object terminal
)
4155 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4157 if (dpyinfo
->reference_count
> 0)
4158 error ("Display still has frames on it");
4160 x_delete_terminal (dpyinfo
->terminal
);
4165 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4166 doc
: /* Return the list of display names that Emacs has connections to. */)
4169 Lisp_Object tail
, result
;
4172 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4173 result
= Fcons (XCAR (XCAR (tail
)), result
);
4178 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4179 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4180 If ON is nil, allow buffering of requests.
4181 Turning on synchronization prohibits the Xlib routines from buffering
4182 requests and seriously degrades performance, but makes debugging much
4184 The optional second argument TERMINAL specifies which display to act on.
4185 TERMINAL should be a terminal object, a frame or a display name (a string).
4186 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4187 (Lisp_Object on
, Lisp_Object terminal
)
4189 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4191 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4196 /* Wait for responses to all X commands issued so far for frame F. */
4199 x_sync (FRAME_PTR f
)
4202 XSync (FRAME_X_DISPLAY (f
), False
);
4207 /***********************************************************************
4209 ***********************************************************************/
4211 DEFUN ("x-change-window-property", Fx_change_window_property
,
4212 Sx_change_window_property
, 2, 6, 0,
4213 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4214 PROP must be a string.
4215 VALUE may be a string or a list of conses, numbers and/or strings.
4216 If an element in the list is a string, it is converted to
4217 an Atom and the value of the Atom is used. If an element is a cons,
4218 it is converted to a 32 bit number where the car is the 16 top bits and the
4219 cdr is the lower 16 bits.
4220 FRAME nil or omitted means use the selected frame.
4221 If TYPE is given and non-nil, it is the name of the type of VALUE.
4222 If TYPE is not given or nil, the type is STRING.
4223 FORMAT gives the size in bits of each element if VALUE is a list.
4224 It must be one of 8, 16 or 32.
4225 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4226 If OUTER_P is non-nil, the property is changed for the outer X window of
4227 FRAME. Default is to change on the edit X window.
4230 (Lisp_Object prop
, Lisp_Object value
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4232 struct frame
*f
= check_x_frame (frame
);
4234 Atom target_type
= XA_STRING
;
4235 int element_format
= 8;
4236 unsigned char *data
;
4240 CHECK_STRING (prop
);
4242 if (! NILP (format
))
4244 CHECK_NUMBER (format
);
4245 element_format
= XFASTINT (format
);
4247 if (element_format
!= 8 && element_format
!= 16
4248 && element_format
!= 32)
4249 error ("FORMAT must be one of 8, 16 or 32");
4254 nelements
= x_check_property_data (value
);
4255 if (nelements
== -1)
4256 error ("Bad data in VALUE, must be number, string or cons");
4258 if (element_format
== 8)
4259 data
= (unsigned char *) xmalloc (nelements
);
4260 else if (element_format
== 16)
4261 data
= (unsigned char *) xmalloc (nelements
*2);
4262 else /* format == 32 */
4263 /* The man page for XChangeProperty:
4264 "If the specified format is 32, the property data must be a
4266 This applies even if long is more than 64 bits. The X library
4267 converts to 32 bits before sending to the X server. */
4268 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4270 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4274 CHECK_STRING (value
);
4275 data
= SDATA (value
);
4276 nelements
= SCHARS (value
);
4280 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4283 CHECK_STRING (type
);
4284 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4287 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4288 else w
= FRAME_X_WINDOW (f
);
4290 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4291 prop_atom
, target_type
, element_format
, PropModeReplace
,
4294 if (CONSP (value
)) xfree (data
);
4296 /* Make sure the property is set when we return. */
4297 XFlush (FRAME_X_DISPLAY (f
));
4304 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4305 Sx_delete_window_property
, 1, 2, 0,
4306 doc
: /* Remove window property PROP from X window of FRAME.
4307 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4308 (Lisp_Object prop
, Lisp_Object frame
)
4310 struct frame
*f
= check_x_frame (frame
);
4313 CHECK_STRING (prop
);
4315 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4316 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4318 /* Make sure the property is removed when we return. */
4319 XFlush (FRAME_X_DISPLAY (f
));
4326 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4328 doc
: /* Value is the value of window property PROP on FRAME.
4329 If FRAME is nil or omitted, use the selected frame.
4330 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4331 is the name of the Atom that denotes the type expected.
4332 If SOURCE is non-nil, get the property on that window instead of from
4333 FRAME. The number 0 denotes the root window.
4334 If DELETE_P is non-nil, delete the property after retreiving it.
4335 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4337 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4338 no value of TYPE. */)
4339 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4341 struct frame
*f
= check_x_frame (frame
);
4344 Lisp_Object prop_value
= Qnil
;
4345 unsigned char *tmp_data
= NULL
;
4347 Atom target_type
= XA_STRING
;
4349 unsigned long actual_size
, bytes_remaining
;
4350 Window target_window
= FRAME_X_WINDOW (f
);
4351 struct gcpro gcpro1
;
4353 GCPRO1 (prop_value
);
4354 CHECK_STRING (prop
);
4356 if (! NILP (source
))
4358 if (NUMBERP (source
))
4360 if (FLOATP (source
))
4361 target_window
= (Window
) XFLOAT (source
);
4363 target_window
= XFASTINT (source
);
4365 if (target_window
== 0)
4366 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4368 else if (CONSP (source
))
4369 target_window
= cons_to_long (source
);
4375 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4376 target_type
= AnyPropertyType
;
4378 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4381 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4382 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4383 prop_atom
, 0, 0, False
, target_type
,
4384 &actual_type
, &actual_format
, &actual_size
,
4385 &bytes_remaining
, &tmp_data
);
4388 int size
= bytes_remaining
;
4393 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4394 prop_atom
, 0, bytes_remaining
,
4395 ! NILP (delete_p
), target_type
,
4396 &actual_type
, &actual_format
,
4397 &actual_size
, &bytes_remaining
,
4399 if (rc
== Success
&& tmp_data
)
4401 /* The man page for XGetWindowProperty says:
4402 "If the returned format is 32, the returned data is represented
4403 as a long array and should be cast to that type to obtain the
4405 This applies even if long is more than 32 bits, the X library
4406 converts from 32 bit elements received from the X server to long
4407 and passes the long array to us. Thus, for that case memcpy can not
4408 be used. We convert to a 32 bit type here, because so much code
4411 The bytes and offsets passed to XGetWindowProperty refers to the
4412 property and those are indeed in 32 bit quantities if format is
4415 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4418 int *idata
= (int *) tmp_data
;
4419 long *ldata
= (long *) tmp_data
;
4421 for (i
= 0; i
< actual_size
; ++i
)
4422 idata
[i
] = (int) ldata
[i
];
4425 if (NILP (vector_ret_p
))
4426 prop_value
= make_string (tmp_data
, size
);
4428 prop_value
= x_property_data_to_lisp (f
,
4435 if (tmp_data
) XFree (tmp_data
);
4445 /***********************************************************************
4447 ***********************************************************************/
4449 /* Timer function of hourglass_atimer. TIMER is equal to
4452 Display an hourglass pointer on all frames by mapping the frames'
4453 hourglass_window. Set the hourglass_p flag in the frames'
4454 output_data.x structure to indicate that an hourglass cursor is
4455 shown on the frames. */
4458 show_hourglass (struct atimer
*timer
)
4460 /* The timer implementation will cancel this timer automatically
4461 after this function has run. Set hourglass_atimer to null
4462 so that we know the timer doesn't have to be canceled. */
4463 hourglass_atimer
= NULL
;
4465 if (!hourglass_shown_p
)
4467 Lisp_Object rest
, frame
;
4471 FOR_EACH_FRAME (rest
, frame
)
4473 struct frame
*f
= XFRAME (frame
);
4475 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4477 Display
*dpy
= FRAME_X_DISPLAY (f
);
4479 #ifdef USE_X_TOOLKIT
4480 if (f
->output_data
.x
->widget
)
4482 if (FRAME_OUTER_WINDOW (f
))
4485 f
->output_data
.x
->hourglass_p
= 1;
4487 if (!f
->output_data
.x
->hourglass_window
)
4489 unsigned long mask
= CWCursor
;
4490 XSetWindowAttributes attrs
;
4492 Window parent
= FRAME_X_WINDOW (f
);
4494 Window parent
= FRAME_OUTER_WINDOW (f
);
4496 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4498 f
->output_data
.x
->hourglass_window
4499 = XCreateWindow (dpy
, parent
,
4500 0, 0, 32000, 32000, 0, 0,
4506 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4512 hourglass_shown_p
= 1;
4518 /* Hide the hourglass pointer on all frames, if it is currently
4522 hide_hourglass (void)
4524 if (hourglass_shown_p
)
4526 Lisp_Object rest
, frame
;
4529 FOR_EACH_FRAME (rest
, frame
)
4531 struct frame
*f
= XFRAME (frame
);
4534 /* Watch out for newly created frames. */
4535 && f
->output_data
.x
->hourglass_window
)
4537 XUnmapWindow (FRAME_X_DISPLAY (f
),
4538 f
->output_data
.x
->hourglass_window
);
4539 /* Sync here because XTread_socket looks at the
4540 hourglass_p flag that is reset to zero below. */
4541 XSync (FRAME_X_DISPLAY (f
), False
);
4542 f
->output_data
.x
->hourglass_p
= 0;
4546 hourglass_shown_p
= 0;
4553 /***********************************************************************
4555 ***********************************************************************/
4557 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4558 Lisp_Object
, Lisp_Object
);
4559 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4560 Lisp_Object
, int, int, int *, int *);
4562 /* The frame of a currently visible tooltip. */
4564 Lisp_Object tip_frame
;
4566 /* If non-nil, a timer started that hides the last tooltip when it
4569 Lisp_Object tip_timer
;
4572 /* If non-nil, a vector of 3 elements containing the last args
4573 with which x-show-tip was called. See there. */
4575 Lisp_Object last_show_tip_args
;
4577 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4579 Lisp_Object Vx_max_tooltip_size
;
4583 unwind_create_tip_frame (Lisp_Object frame
)
4585 Lisp_Object deleted
;
4587 deleted
= unwind_create_frame (frame
);
4588 if (EQ (deleted
, Qt
))
4598 /* Create a frame for a tooltip on the display described by DPYINFO.
4599 PARMS is a list of frame parameters. TEXT is the string to
4600 display in the tip frame. Value is the frame.
4602 Note that functions called here, esp. x_default_parameter can
4603 signal errors, for instance when a specified color name is
4604 undefined. We have to make sure that we're in a consistent state
4605 when this happens. */
4608 x_create_tip_frame (struct x_display_info
*dpyinfo
, Lisp_Object parms
, Lisp_Object text
)
4611 Lisp_Object frame
, tem
;
4613 long window_prompting
= 0;
4615 int count
= SPECPDL_INDEX ();
4616 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4617 int face_change_count_before
= face_change_count
;
4619 struct buffer
*old_buffer
;
4623 if (!dpyinfo
->terminal
->name
)
4624 error ("Terminal is not live, can't create new frames on it");
4626 parms
= Fcopy_alist (parms
);
4628 /* Get the name of the frame to use for resource lookup. */
4629 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4631 && !EQ (name
, Qunbound
)
4633 error ("Invalid frame name--not a string or nil");
4636 GCPRO3 (parms
, name
, frame
);
4638 XSETFRAME (frame
, f
);
4640 buffer
= Fget_buffer_create (build_string (" *tip*"));
4641 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4642 old_buffer
= current_buffer
;
4643 set_buffer_internal_1 (XBUFFER (buffer
));
4644 current_buffer
->truncate_lines
= Qnil
;
4645 specbind (Qinhibit_read_only
, Qt
);
4646 specbind (Qinhibit_modification_hooks
, Qt
);
4649 set_buffer_internal_1 (old_buffer
);
4651 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4652 record_unwind_protect (unwind_create_tip_frame
, frame
);
4654 f
->terminal
= dpyinfo
->terminal
;
4655 f
->terminal
->reference_count
++;
4657 /* By setting the output method, we're essentially saying that
4658 the frame is live, as per FRAME_LIVE_P. If we get a signal
4659 from this point on, x_destroy_window might screw up reference
4661 f
->output_method
= output_x_window
;
4662 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4663 memset (f
->output_data
.x
, 0, sizeof (struct x_output
));
4664 f
->output_data
.x
->icon_bitmap
= -1;
4665 FRAME_FONTSET (f
) = -1;
4666 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4667 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4668 #ifdef USE_TOOLKIT_SCROLL_BARS
4669 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4670 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4671 #endif /* USE_TOOLKIT_SCROLL_BARS */
4672 f
->icon_name
= Qnil
;
4673 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4675 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
4676 dpyinfo_refcount
= dpyinfo
->reference_count
;
4677 #endif /* GLYPH_DEBUG */
4678 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4679 f
->output_data
.x
->explicit_parent
= 0;
4681 /* These colors will be set anyway later, but it's important
4682 to get the color reference counts right, so initialize them! */
4685 struct gcpro gcpro1
;
4687 /* Function x_decode_color can signal an error. Make
4688 sure to initialize color slots so that we won't try
4689 to free colors we haven't allocated. */
4690 FRAME_FOREGROUND_PIXEL (f
) = -1;
4691 FRAME_BACKGROUND_PIXEL (f
) = -1;
4692 f
->output_data
.x
->cursor_pixel
= -1;
4693 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4694 f
->output_data
.x
->border_pixel
= -1;
4695 f
->output_data
.x
->mouse_pixel
= -1;
4697 black
= build_string ("black");
4699 FRAME_FOREGROUND_PIXEL (f
)
4700 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4701 FRAME_BACKGROUND_PIXEL (f
)
4702 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4703 f
->output_data
.x
->cursor_pixel
4704 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4705 f
->output_data
.x
->cursor_foreground_pixel
4706 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4707 f
->output_data
.x
->border_pixel
4708 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4709 f
->output_data
.x
->mouse_pixel
4710 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4714 /* Set the name; the functions to which we pass f expect the name to
4716 if (EQ (name
, Qunbound
) || NILP (name
))
4718 f
->name
= build_string (dpyinfo
->x_id_name
);
4719 f
->explicit_name
= 0;
4724 f
->explicit_name
= 1;
4725 /* use the frame's title when getting resources for this frame. */
4726 specbind (Qx_resource_name
, name
);
4729 f
->resx
= dpyinfo
->resx
;
4730 f
->resy
= dpyinfo
->resy
;
4732 register_font_driver (&xfont_driver
, f
);
4733 #ifdef HAVE_FREETYPE
4735 register_font_driver (&xftfont_driver
, f
);
4736 #else /* not HAVE_XFT */
4737 register_font_driver (&ftxfont_driver
, f
);
4738 #endif /* not HAVE_XFT */
4739 #endif /* HAVE_FREETYPE */
4741 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4742 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4744 /* Extract the window parameters from the supplied values that are
4745 needed to determine window geometry. */
4746 x_default_font_parameter (f
, parms
);
4748 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
4749 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4751 /* This defaults to 2 in order to match xterm. We recognize either
4752 internalBorderWidth or internalBorder (which is what xterm calls
4754 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4758 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4759 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4760 if (! EQ (value
, Qunbound
))
4761 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4765 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4766 "internalBorderWidth", "internalBorderWidth",
4769 /* Also do the stuff which must be set before the window exists. */
4770 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4771 "foreground", "Foreground", RES_TYPE_STRING
);
4772 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4773 "background", "Background", RES_TYPE_STRING
);
4774 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4775 "pointerColor", "Foreground", RES_TYPE_STRING
);
4776 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4777 "cursorColor", "Foreground", RES_TYPE_STRING
);
4778 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4779 "borderColor", "BorderColor", RES_TYPE_STRING
);
4781 /* Init faces before x_default_parameter is called for scroll-bar
4782 parameters because that function calls x_set_scroll_bar_width,
4783 which calls change_frame_size, which calls Fset_window_buffer,
4784 which runs hooks, which call Fvertical_motion. At the end, we
4785 end up in init_iterator with a null face cache, which should not
4787 init_frame_faces (f
);
4789 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4791 window_prompting
= x_figure_window_size (f
, parms
, 0);
4794 XSetWindowAttributes attrs
;
4796 Atom type
= FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
4799 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4800 if (DoesSaveUnders (dpyinfo
->screen
))
4801 mask
|= CWSaveUnder
;
4803 /* Window managers look at the override-redirect flag to determine
4804 whether or net to give windows a decoration (Xlib spec, chapter
4806 attrs
.override_redirect
= True
;
4807 attrs
.save_under
= True
;
4808 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4809 /* Arrange for getting MapNotify and UnmapNotify events. */
4810 attrs
.event_mask
= StructureNotifyMask
;
4812 = FRAME_X_WINDOW (f
)
4813 = XCreateWindow (FRAME_X_DISPLAY (f
),
4814 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4815 /* x, y, width, height */
4819 CopyFromParent
, InputOutput
, CopyFromParent
,
4821 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
4822 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type
,
4823 XA_ATOM
, 32, PropModeReplace
,
4824 (unsigned char *)&type
, 1);
4830 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4831 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4832 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4833 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4834 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4835 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4837 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4838 Change will not be effected unless different from the current
4840 width
= FRAME_COLS (f
);
4841 height
= FRAME_LINES (f
);
4842 SET_FRAME_COLS (f
, 0);
4843 FRAME_LINES (f
) = 0;
4844 change_frame_size (f
, height
, width
, 1, 0, 0);
4846 /* Add `tooltip' frame parameter's default value. */
4847 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
4848 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qtooltip
, Qt
), Qnil
));
4850 /* FIXME - can this be done in a similar way to normal frames?
4851 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
4853 /* Set the `display-type' frame parameter before setting up faces. */
4855 Lisp_Object disptype
;
4857 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4858 disptype
= intern ("mono");
4859 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
4860 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4861 disptype
= intern ("grayscale");
4863 disptype
= intern ("color");
4865 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4866 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4870 /* Set up faces after all frame parameters are known. This call
4871 also merges in face attributes specified for new frames.
4873 Frame parameters may be changed if .Xdefaults contains
4874 specifications for the default font. For example, if there is an
4875 `Emacs.default.attributeBackground: pink', the `background-color'
4876 attribute of the frame get's set, which let's the internal border
4877 of the tooltip frame appear in pink. Prevent this. */
4879 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4881 /* Set tip_frame here, so that */
4883 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
4885 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4886 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4894 /* It is now ok to make the frame official even if we get an error
4895 below. And the frame needs to be on Vframe_list or making it
4896 visible won't work. */
4897 Vframe_list
= Fcons (frame
, Vframe_list
);
4899 /* Now that the frame is official, it counts as a reference to
4901 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4903 /* Setting attributes of faces of the tooltip frame from resources
4904 and similar will increment face_change_count, which leads to the
4905 clearing of all current matrices. Since this isn't necessary
4906 here, avoid it by resetting face_change_count to the value it
4907 had before we created the tip frame. */
4908 face_change_count
= face_change_count_before
;
4910 /* Discard the unwind_protect. */
4911 return unbind_to (count
, frame
);
4915 /* Compute where to display tip frame F. PARMS is the list of frame
4916 parameters for F. DX and DY are specified offsets from the current
4917 location of the mouse. WIDTH and HEIGHT are the width and height
4918 of the tooltip. Return coordinates relative to the root window of
4919 the display in *ROOT_X, and *ROOT_Y. */
4922 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
)
4924 Lisp_Object left
, top
;
4929 /* User-specified position? */
4930 left
= Fcdr (Fassq (Qleft
, parms
));
4931 top
= Fcdr (Fassq (Qtop
, parms
));
4933 /* Move the tooltip window where the mouse pointer is. Resize and
4935 if (!INTEGERP (left
) || !INTEGERP (top
))
4938 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4939 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4944 *root_y
= XINT (top
);
4945 else if (*root_y
+ XINT (dy
) <= 0)
4946 *root_y
= 0; /* Can happen for negative dy */
4947 else if (*root_y
+ XINT (dy
) + height
4948 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
4949 /* It fits below the pointer */
4950 *root_y
+= XINT (dy
);
4951 else if (height
+ XINT (dy
) <= *root_y
)
4952 /* It fits above the pointer. */
4953 *root_y
-= height
+ XINT (dy
);
4955 /* Put it on the top. */
4958 if (INTEGERP (left
))
4959 *root_x
= XINT (left
);
4960 else if (*root_x
+ XINT (dx
) <= 0)
4961 *root_x
= 0; /* Can happen for negative dx */
4962 else if (*root_x
+ XINT (dx
) + width
4963 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
4964 /* It fits to the right of the pointer. */
4965 *root_x
+= XINT (dx
);
4966 else if (width
+ XINT (dx
) <= *root_x
)
4967 /* It fits to the left of the pointer. */
4968 *root_x
-= width
+ XINT (dx
);
4970 /* Put it left-justified on the screen--it ought to fit that way. */
4975 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4976 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4977 A tooltip window is a small X window displaying a string.
4979 This is an internal function; Lisp code should call `tooltip-show'.
4981 FRAME nil or omitted means use the selected frame.
4983 PARMS is an optional list of frame parameters which can be used to
4984 change the tooltip's appearance.
4986 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4987 means use the default timeout of 5 seconds.
4989 If the list of frame parameters PARAMS contains a `left' parameters,
4990 the tooltip is displayed at that x-position. Otherwise it is
4991 displayed at the mouse position, with offset DX added (default is 5 if
4992 DX isn't specified). Likewise for the y-position; if a `top' frame
4993 parameter is specified, it determines the y-position of the tooltip
4994 window, otherwise it is displayed at the mouse position, with offset
4995 DY added (default is -10).
4997 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4998 Text larger than the specified size is clipped. */)
4999 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
5004 struct buffer
*old_buffer
;
5005 struct text_pos pos
;
5006 int i
, width
, height
;
5007 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5008 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5009 int count
= SPECPDL_INDEX ();
5011 specbind (Qinhibit_redisplay
, Qt
);
5013 GCPRO4 (string
, parms
, frame
, timeout
);
5015 CHECK_STRING (string
);
5016 if (SCHARS (string
) == 0)
5017 string
= make_unibyte_string (" ", 1);
5019 f
= check_x_frame (frame
);
5021 timeout
= make_number (5);
5023 CHECK_NATNUM (timeout
);
5026 dx
= make_number (5);
5031 dy
= make_number (-10);
5035 if (NILP (last_show_tip_args
))
5036 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5038 if (!NILP (tip_frame
))
5040 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5041 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5042 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5044 if (EQ (frame
, last_frame
)
5045 && !NILP (Fequal (last_string
, string
))
5046 && !NILP (Fequal (last_parms
, parms
)))
5048 struct frame
*f
= XFRAME (tip_frame
);
5050 /* Only DX and DY have changed. */
5051 if (!NILP (tip_timer
))
5053 Lisp_Object timer
= tip_timer
;
5055 call1 (Qcancel_timer
, timer
);
5059 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5060 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5061 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5068 /* Hide a previous tip, if any. */
5071 ASET (last_show_tip_args
, 0, string
);
5072 ASET (last_show_tip_args
, 1, frame
);
5073 ASET (last_show_tip_args
, 2, parms
);
5075 /* Add default values to frame parameters. */
5076 if (NILP (Fassq (Qname
, parms
)))
5077 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5078 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5079 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5080 if (NILP (Fassq (Qborder_width
, parms
)))
5081 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5082 if (NILP (Fassq (Qborder_color
, parms
)))
5083 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5084 if (NILP (Fassq (Qbackground_color
, parms
)))
5085 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5088 /* Create a frame for the tooltip, and record it in the global
5089 variable tip_frame. */
5090 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5093 /* Set up the frame's root window. */
5094 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5095 w
->left_col
= w
->top_line
= make_number (0);
5097 if (CONSP (Vx_max_tooltip_size
)
5098 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5099 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5100 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5101 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5103 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5104 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5108 w
->total_cols
= make_number (80);
5109 w
->total_lines
= make_number (40);
5112 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5114 w
->pseudo_window_p
= 1;
5116 /* Display the tooltip text in a temporary buffer. */
5117 old_buffer
= current_buffer
;
5118 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5119 current_buffer
->truncate_lines
= Qnil
;
5120 clear_glyph_matrix (w
->desired_matrix
);
5121 clear_glyph_matrix (w
->current_matrix
);
5122 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5123 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5125 /* Compute width and height of the tooltip. */
5127 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5129 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5133 /* Stop at the first empty row at the end. */
5134 if (!row
->enabled_p
|| !row
->displays_text_p
)
5137 /* Let the row go over the full width of the frame. */
5138 row
->full_width_p
= 1;
5140 row_width
= row
->pixel_width
;
5141 /* There's a glyph at the end of rows that is used to place
5142 the cursor there. Don't include the width of this glyph. */
5143 if (row
->used
[TEXT_AREA
])
5145 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5146 if (INTEGERP (last
->object
))
5147 row_width
-= last
->pixel_width
;
5150 height
+= row
->height
;
5151 width
= max (width
, row_width
);
5154 /* Add the frame's internal border to the width and height the X
5155 window should have. */
5156 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5157 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5159 /* Move the tooltip window where the mouse pointer is. Resize and
5161 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5164 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5165 root_x
, root_y
, width
, height
);
5166 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5169 /* Draw into the window. */
5170 w
->must_be_updated_p
= 1;
5171 update_single_window (w
, 1);
5173 /* Restore original current buffer. */
5174 set_buffer_internal_1 (old_buffer
);
5175 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5178 /* Let the tip disappear after timeout seconds. */
5179 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5180 intern ("x-hide-tip"));
5183 return unbind_to (count
, Qnil
);
5187 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5188 doc
: /* Hide the current tooltip window, if there is any.
5189 Value is t if tooltip was open, nil otherwise. */)
5193 Lisp_Object deleted
, frame
, timer
;
5194 struct gcpro gcpro1
, gcpro2
;
5196 /* Return quickly if nothing to do. */
5197 if (NILP (tip_timer
) && NILP (tip_frame
))
5202 GCPRO2 (frame
, timer
);
5203 tip_frame
= tip_timer
= deleted
= Qnil
;
5205 count
= SPECPDL_INDEX ();
5206 specbind (Qinhibit_redisplay
, Qt
);
5207 specbind (Qinhibit_quit
, Qt
);
5210 call1 (Qcancel_timer
, timer
);
5214 delete_frame (frame
, Qnil
);
5218 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5219 redisplay procedure is not called when a tip frame over menu
5220 items is unmapped. Redisplay the menu manually... */
5222 struct frame
*f
= SELECTED_FRAME ();
5223 Widget w
= f
->output_data
.x
->menubar_widget
;
5224 extern void xlwmenu_redisplay (Widget
);
5226 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5230 xlwmenu_redisplay (w
);
5234 #endif /* USE_LUCID */
5238 return unbind_to (count
, deleted
);
5243 /***********************************************************************
5244 File selection dialog
5245 ***********************************************************************/
5247 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5248 Sx_uses_old_gtk_dialog
,
5250 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5254 extern int use_dialog_box
;
5255 extern int use_file_dialog
;
5260 && xg_uses_old_file_dialog ())
5268 /* Callback for "OK" and "Cancel" on file selection dialog. */
5271 file_dialog_cb (widget
, client_data
, call_data
)
5273 XtPointer call_data
, client_data
;
5275 int *result
= (int *) client_data
;
5276 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5277 *result
= cb
->reason
;
5281 /* Callback for unmapping a file selection dialog. This is used to
5282 capture the case where a dialog is closed via a window manager's
5283 closer button, for example. Using a XmNdestroyCallback didn't work
5287 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5289 XtPointer call_data
, client_data
;
5291 int *result
= (int *) client_data
;
5292 *result
= XmCR_CANCEL
;
5296 clean_up_file_dialog (arg
)
5299 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5300 Widget dialog
= (Widget
) p
->pointer
;
5304 XtUnmanageChild (dialog
);
5305 XtDestroyWidget (dialog
);
5306 x_menu_set_in_use (0);
5313 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5314 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5315 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5316 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5317 or directory must exist. ONLY-DIR-P is ignored." */)
5318 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5321 struct frame
*f
= SELECTED_FRAME ();
5322 Lisp_Object file
= Qnil
;
5323 Lisp_Object decoded_file
;
5324 Widget dialog
, text
, help
;
5327 extern XtAppContext Xt_app_con
;
5328 XmString dir_xmstring
, pattern_xmstring
;
5329 int count
= SPECPDL_INDEX ();
5330 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5334 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5336 if (popup_activated ())
5337 error ("Trying to use a menu from within a menu-entry");
5339 CHECK_STRING (prompt
);
5342 /* Prevent redisplay. */
5343 specbind (Qinhibit_redisplay
, Qt
);
5347 /* Create the dialog with PROMPT as title, using DIR as initial
5348 directory and using "*" as pattern. */
5349 dir
= Fexpand_file_name (dir
, Qnil
);
5350 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5351 pattern_xmstring
= XmStringCreateLocalized ("*");
5353 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5354 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5355 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5356 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5357 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5358 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5360 XmStringFree (dir_xmstring
);
5361 XmStringFree (pattern_xmstring
);
5363 /* Add callbacks for OK and Cancel. */
5364 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5365 (XtPointer
) &result
);
5366 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5367 (XtPointer
) &result
);
5368 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5369 (XtPointer
) &result
);
5371 /* Remove the help button since we can't display help. */
5372 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5373 XtUnmanageChild (help
);
5375 /* Mark OK button as default. */
5376 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5377 XmNshowAsDefault
, True
, NULL
);
5379 /* If MUSTMATCH is non-nil, disable the file entry field of the
5380 dialog, so that the user must select a file from the files list
5381 box. We can't remove it because we wouldn't have a way to get at
5382 the result file name, then. */
5383 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5384 if (!NILP (mustmatch
))
5387 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5388 XtSetSensitive (text
, False
);
5389 XtSetSensitive (label
, False
);
5392 /* Manage the dialog, so that list boxes get filled. */
5393 XtManageChild (dialog
);
5395 if (STRINGP (default_filename
))
5397 XmString default_xmstring
;
5398 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5399 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5401 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5402 XmTextFieldReplace (wtext
, 0, last_pos
,
5403 (SDATA (Ffile_name_nondirectory (default_filename
))));
5405 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5406 must include the path for this to work. */
5408 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5410 if (XmListItemExists (list
, default_xmstring
))
5412 int item_pos
= XmListItemPos (list
, default_xmstring
);
5413 /* Select the item and scroll it into view. */
5414 XmListSelectPos (list
, item_pos
, True
);
5415 XmListSetPos (list
, item_pos
);
5418 XmStringFree (default_xmstring
);
5421 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5423 /* Process events until the user presses Cancel or OK. */
5424 x_menu_set_in_use (1);
5429 x_menu_wait_for_event (0);
5430 XtAppNextEvent (Xt_app_con
, &event
);
5431 if (event
.type
== KeyPress
5432 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5434 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5436 /* Pop down on C-g. */
5437 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5438 XtUnmanageChild (dialog
);
5441 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5444 /* Get the result. */
5445 if (result
== XmCR_OK
)
5450 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5451 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5452 XmStringFree (text
);
5453 file
= build_string (data
);
5462 /* Make "Cancel" equivalent to C-g. */
5464 Fsignal (Qquit
, Qnil
);
5466 decoded_file
= DECODE_FILE (file
);
5468 return unbind_to (count
, decoded_file
);
5471 #endif /* USE_MOTIF */
5476 clean_up_dialog (Lisp_Object arg
)
5478 x_menu_set_in_use (0);
5483 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5484 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5485 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5486 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5487 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5489 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5491 FRAME_PTR f
= SELECTED_FRAME ();
5493 Lisp_Object file
= Qnil
;
5494 Lisp_Object decoded_file
;
5495 int count
= SPECPDL_INDEX ();
5496 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5501 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5503 if (popup_activated ())
5504 error ("Trying to use a menu from within a menu-entry");
5506 CHECK_STRING (prompt
);
5509 /* Prevent redisplay. */
5510 specbind (Qinhibit_redisplay
, Qt
);
5511 record_unwind_protect (clean_up_dialog
, Qnil
);
5515 if (STRINGP (default_filename
))
5516 cdef_file
= SDATA (default_filename
);
5518 cdef_file
= SDATA (dir
);
5520 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5522 ! NILP (only_dir_p
));
5526 file
= build_string (fn
);
5533 /* Make "Cancel" equivalent to C-g. */
5535 Fsignal (Qquit
, Qnil
);
5537 decoded_file
= DECODE_FILE (file
);
5539 return unbind_to (count
, decoded_file
);
5543 #ifdef HAVE_FREETYPE
5545 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5546 doc
: /* Read a font name using a GTK font selection dialog.
5547 Return a GTK-style font string corresponding to the selection.
5549 If FRAME is omitted or nil, it defaults to the selected frame. */)
5550 (Lisp_Object frame
, Lisp_Object ignored
)
5552 FRAME_PTR f
= check_x_frame (frame
);
5555 Lisp_Object font_param
;
5556 char *default_name
= NULL
;
5557 struct gcpro gcpro1
, gcpro2
;
5558 int count
= SPECPDL_INDEX ();
5562 if (popup_activated ())
5563 error ("Trying to use a menu from within a menu-entry");
5565 /* Prevent redisplay. */
5566 specbind (Qinhibit_redisplay
, Qt
);
5567 record_unwind_protect (clean_up_dialog
, Qnil
);
5571 GCPRO2(font_param
, font
);
5573 XSETFONT (font
, FRAME_FONT (f
));
5574 font_param
= Ffont_get (font
, intern (":name"));
5575 if (STRINGP (font_param
))
5576 default_name
= xstrdup (SDATA (font_param
));
5579 font_param
= Fframe_parameter (frame
, Qfont_param
);
5580 if (STRINGP (font_param
))
5581 default_name
= xstrdup (SDATA (font_param
));
5584 if (default_name
== NULL
&& x_last_font_name
!= NULL
)
5585 default_name
= xstrdup (x_last_font_name
);
5587 /* Convert fontconfig names to Gtk names, i.e. remove - before number */
5590 char *p
= strrchr (default_name
, '-');
5594 while (isdigit (*ep
))
5596 if (*ep
== '\0') *p
= ' ';
5600 name
= xg_get_font_name (f
, default_name
);
5601 xfree (default_name
);
5605 font
= build_string (name
);
5606 g_free (x_last_font_name
);
5607 x_last_font_name
= name
;
5613 Fsignal (Qquit
, Qnil
);
5615 return unbind_to (count
, font
);
5617 #endif /* HAVE_FREETYPE */
5619 #endif /* USE_GTK */
5622 /***********************************************************************
5624 ***********************************************************************/
5626 #ifdef HAVE_XKBGETKEYBOARD
5627 #include <X11/XKBlib.h>
5628 #include <X11/keysym.h>
5631 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5632 Sx_backspace_delete_keys_p
, 0, 1, 0,
5633 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5634 FRAME nil means use the selected frame.
5635 Value is t if we know that both keys are present, and are mapped to the
5636 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5637 present and mapped to the usual X keysyms. */)
5640 #ifdef HAVE_XKBGETKEYBOARD
5642 struct frame
*f
= check_x_frame (frame
);
5643 Display
*dpy
= FRAME_X_DISPLAY (f
);
5644 Lisp_Object have_keys
;
5645 int major
, minor
, op
, event
, error
;
5649 /* Check library version in case we're dynamically linked. */
5650 major
= XkbMajorVersion
;
5651 minor
= XkbMinorVersion
;
5652 if (!XkbLibraryVersion (&major
, &minor
))
5658 /* Check that the server supports XKB. */
5659 major
= XkbMajorVersion
;
5660 minor
= XkbMinorVersion
;
5661 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5667 /* In this code we check that the keyboard has physical keys with names
5668 that start with BKSP (Backspace) and DELE (Delete), and that they
5669 generate keysym XK_BackSpace and XK_Delete respectively.
5670 This function is used to test if normal-erase-is-backspace should be
5672 An alternative approach would be to just check if XK_BackSpace and
5673 XK_Delete are mapped to any key. But if any of those are mapped to
5674 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5675 user doesn't know about it, it is better to return false here.
5676 It is more obvious to the user what to do if she/he has two keys
5677 clearly marked with names/symbols and one key does something not
5678 expected (i.e. she/he then tries the other).
5679 The cases where Backspace/Delete is mapped to some other key combination
5680 are rare, and in those cases, normal-erase-is-backspace can be turned on
5684 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5687 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5689 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5691 for (i
= kb
->min_key_code
;
5692 (i
< kb
->max_key_code
5693 && (delete_keycode
== 0 || backspace_keycode
== 0));
5696 /* The XKB symbolic key names can be seen most easily in
5697 the PS file generated by `xkbprint -label name
5699 if (memcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5701 else if (memcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5702 backspace_keycode
= i
;
5705 XkbFreeNames (kb
, 0, True
);
5708 XkbFreeClientMap (kb
, 0, True
);
5711 && backspace_keycode
5712 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5713 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5718 #else /* not HAVE_XKBGETKEYBOARD */
5720 #endif /* not HAVE_XKBGETKEYBOARD */
5725 /***********************************************************************
5727 ***********************************************************************/
5729 /* Keep this list in the same order as frame_parms in frame.c.
5730 Use 0 for unsupported frame parameters. */
5732 frame_parm_handler x_frame_parm_handlers
[] =
5736 x_set_background_color
,
5742 x_set_foreground_color
,
5745 x_set_internal_border_width
,
5746 x_set_menu_bar_lines
,
5748 x_explicitly_set_name
,
5749 x_set_scroll_bar_width
,
5752 x_set_vertical_scroll_bars
,
5754 x_set_tool_bar_lines
,
5755 x_set_scroll_bar_foreground
,
5756 x_set_scroll_bar_background
,
5771 /* This is zero if not using X windows. */
5774 /* The section below is built by the lisp expression at the top of the file,
5775 just above where these variables are declared. */
5776 /*&&& init symbols here &&&*/
5777 Qnone
= intern_c_string ("none");
5779 Qsuppress_icon
= intern_c_string ("suppress-icon");
5780 staticpro (&Qsuppress_icon
);
5781 Qundefined_color
= intern_c_string ("undefined-color");
5782 staticpro (&Qundefined_color
);
5783 Qcompound_text
= intern_c_string ("compound-text");
5784 staticpro (&Qcompound_text
);
5785 Qcancel_timer
= intern_c_string ("cancel-timer");
5786 staticpro (&Qcancel_timer
);
5787 Qfont_param
= intern_c_string ("font-parameter");
5788 staticpro (&Qfont_param
);
5789 /* This is the end of symbol initialization. */
5791 /* Text property `display' should be nonsticky by default. */
5792 Vtext_property_default_nonsticky
5793 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5796 Fput (Qundefined_color
, Qerror_conditions
,
5797 pure_cons (Qundefined_color
, pure_cons (Qerror
, Qnil
)));
5798 Fput (Qundefined_color
, Qerror_message
,
5799 make_pure_c_string ("Undefined color"));
5801 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5802 doc
: /* The shape of the pointer when over text.
5803 Changing the value does not affect existing frames
5804 unless you set the mouse color. */);
5805 Vx_pointer_shape
= Qnil
;
5807 #if 0 /* This doesn't really do anything. */
5808 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5809 doc
: /* The shape of the pointer when not over text.
5810 This variable takes effect when you create a new frame
5811 or when you set the mouse color. */);
5813 Vx_nontext_pointer_shape
= Qnil
;
5815 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5816 doc
: /* The shape of the pointer when Emacs is busy.
5817 This variable takes effect when you create a new frame
5818 or when you set the mouse color. */);
5819 Vx_hourglass_pointer_shape
= Qnil
;
5821 #if 0 /* This doesn't really do anything. */
5822 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5823 doc
: /* The shape of the pointer when over the mode line.
5824 This variable takes effect when you create a new frame
5825 or when you set the mouse color. */);
5827 Vx_mode_pointer_shape
= Qnil
;
5829 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5830 &Vx_sensitive_text_pointer_shape
,
5831 doc
: /* The shape of the pointer when over mouse-sensitive text.
5832 This variable takes effect when you create a new frame
5833 or when you set the mouse color. */);
5834 Vx_sensitive_text_pointer_shape
= Qnil
;
5836 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5837 &Vx_window_horizontal_drag_shape
,
5838 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5839 This variable takes effect when you create a new frame
5840 or when you set the mouse color. */);
5841 Vx_window_horizontal_drag_shape
= Qnil
;
5843 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5844 doc
: /* A string indicating the foreground color of the cursor box. */);
5845 Vx_cursor_fore_pixel
= Qnil
;
5847 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5848 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5849 Text larger than this is clipped. */);
5850 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5852 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5853 doc
: /* Non-nil if no X window manager is in use.
5854 Emacs doesn't try to figure this out; this is always nil
5855 unless you set it to something else. */);
5856 /* We don't have any way to find this out, so set it to nil
5857 and maybe the user would like to set it to t. */
5858 Vx_no_window_manager
= Qnil
;
5860 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5861 &Vx_pixel_size_width_font_regexp
,
5862 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5864 Since Emacs gets width of a font matching with this regexp from
5865 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5866 such a font. This is especially effective for such large fonts as
5867 Chinese, Japanese, and Korean. */);
5868 Vx_pixel_size_width_font_regexp
= Qnil
;
5870 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5871 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", &x_gtk_use_old_file_dialog
,
5872 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5873 If nil or if the file selection dialog is not available, the new GTK file
5874 chooser is used instead. To turn off all file dialogs set the
5875 variable `use-file-dialog'. */);
5876 x_gtk_use_old_file_dialog
= 0;
5878 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5879 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5880 Note that this is just the default, there is a toggle button on the file
5881 chooser to show or not show hidden files on a case by case basis. */);
5882 x_gtk_show_hidden_files
= 0;
5884 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", &x_gtk_file_dialog_help_text
,
5885 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
5886 If more space for files in the file chooser dialog is wanted, set this to nil
5887 to turn the additional text off. */);
5888 x_gtk_file_dialog_help_text
= 1;
5890 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
5891 doc
: /* *If non-nil, a detached tool bar is shown in full.
5892 The default is to just show an arrow and pressing on that arrow shows
5893 the tool bar buttons. */);
5894 x_gtk_whole_detached_tool_bar
= 0;
5896 Fprovide (intern_c_string ("x"), Qnil
);
5898 #ifdef USE_X_TOOLKIT
5899 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5901 Fprovide (intern_c_string ("motif"), Qnil
);
5903 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5904 doc
: /* Version info for LessTif/Motif. */);
5905 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5906 #endif /* USE_MOTIF */
5907 #endif /* USE_X_TOOLKIT */
5910 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5911 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5912 But for a user it is a toolkit for X, and indeed, configure
5913 accepts --with-x-toolkit=gtk. */
5914 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5915 Fprovide (intern_c_string ("gtk"), Qnil
);
5917 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5918 doc
: /* Version info for GTK+. */);
5920 char gtk_version
[40];
5921 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5922 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5923 Vgtk_version_string
= make_pure_string (gtk_version
, strlen (gtk_version
), strlen (gtk_version
), 0);
5925 #endif /* USE_GTK */
5927 /* X window properties. */
5928 defsubr (&Sx_change_window_property
);
5929 defsubr (&Sx_delete_window_property
);
5930 defsubr (&Sx_window_property
);
5932 defsubr (&Sxw_display_color_p
);
5933 defsubr (&Sx_display_grayscale_p
);
5934 defsubr (&Sxw_color_defined_p
);
5935 defsubr (&Sxw_color_values
);
5936 defsubr (&Sx_server_max_request_size
);
5937 defsubr (&Sx_server_vendor
);
5938 defsubr (&Sx_server_version
);
5939 defsubr (&Sx_display_pixel_width
);
5940 defsubr (&Sx_display_pixel_height
);
5941 defsubr (&Sx_display_mm_width
);
5942 defsubr (&Sx_display_mm_height
);
5943 defsubr (&Sx_display_screens
);
5944 defsubr (&Sx_display_planes
);
5945 defsubr (&Sx_display_color_cells
);
5946 defsubr (&Sx_display_visual_class
);
5947 defsubr (&Sx_display_backing_store
);
5948 defsubr (&Sx_display_save_under
);
5949 defsubr (&Sx_wm_set_size_hint
);
5950 defsubr (&Sx_create_frame
);
5951 defsubr (&Sx_open_connection
);
5952 defsubr (&Sx_close_connection
);
5953 defsubr (&Sx_display_list
);
5954 defsubr (&Sx_synchronize
);
5955 defsubr (&Sx_focus_frame
);
5956 defsubr (&Sx_backspace_delete_keys_p
);
5958 /* Setting callback functions for fontset handler. */
5959 check_window_system_func
= check_x
;
5961 defsubr (&Sx_show_tip
);
5962 defsubr (&Sx_hide_tip
);
5964 staticpro (&tip_timer
);
5966 staticpro (&tip_frame
);
5968 last_show_tip_args
= Qnil
;
5969 staticpro (&last_show_tip_args
);
5971 defsubr (&Sx_uses_old_gtk_dialog
);
5972 #if defined (USE_MOTIF) || defined (USE_GTK)
5973 defsubr (&Sx_file_dialog
);
5976 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
5977 defsubr (&Sx_select_font
);
5978 x_last_font_name
= NULL
;
5982 #endif /* HAVE_X_WINDOWS */
5984 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
5985 (do not change this comment) */