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>
105 #include "../lwlib/xlwmenu.h"
108 #if !defined(NO_EDITRES)
110 extern void _XEditResCheckMessages ();
111 #endif /* not defined NO_EDITRES */
113 /* Unique id counter for widgets created by the Lucid Widget Library. */
115 extern LWLIB_ID widget_id_tick
;
117 extern void free_frame_menubar ();
118 extern double atof ();
122 /* LessTif/Motif version info. */
124 static Lisp_Object Vmotif_version_string
;
126 #endif /* USE_MOTIF */
128 #endif /* USE_X_TOOLKIT */
132 /* GTK+ version info */
134 static Lisp_Object Vgtk_version_string
;
138 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
140 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
141 it, and including `bitmaps/gray' more than once is a problem when
142 config.h defines `static' as an empty replacement string. */
144 int gray_bitmap_width
= gray_width
;
145 int gray_bitmap_height
= gray_height
;
146 char *gray_bitmap_bits
= gray_bits
;
148 /* Non-zero means prompt with the old GTK file selection dialog. */
150 int x_gtk_use_old_file_dialog
;
152 /* If non-zero, by default show hidden files in the GTK file chooser. */
154 int x_gtk_show_hidden_files
;
156 /* If non-zero, don't show additional help text in the GTK file chooser. */
158 int x_gtk_file_dialog_help_text
;
160 /* If non-zero, don't collapse to tool bar when it is detached. */
162 int x_gtk_whole_detached_tool_bar
;
164 /* The background and shape of the mouse pointer, and shape when not
165 over text or in the modeline. */
167 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
168 Lisp_Object Vx_hourglass_pointer_shape
;
170 /* The shape when over mouse-sensitive text. */
172 Lisp_Object Vx_sensitive_text_pointer_shape
;
174 /* If non-nil, the pointer shape to indicate that windows can be
175 dragged horizontally. */
177 Lisp_Object Vx_window_horizontal_drag_shape
;
179 /* Color of chars displayed in cursor box. */
181 Lisp_Object Vx_cursor_fore_pixel
;
183 /* Nonzero if using X. */
187 /* Non nil if no window manager is in use. */
189 Lisp_Object Vx_no_window_manager
;
191 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
193 Lisp_Object Vx_pixel_size_width_font_regexp
;
196 Lisp_Object Qsuppress_icon
;
197 Lisp_Object Qundefined_color
;
198 Lisp_Object Qcompound_text
, Qcancel_timer
;
199 Lisp_Object Qfont_param
;
203 extern Lisp_Object Vwindow_system_version
;
207 extern Lisp_Object Vsystem_name
;
209 /* The below are defined in frame.c. */
211 extern Lisp_Object Vmenu_bar_mode
, Vtool_bar_mode
;
212 extern Lisp_Object Qtooltip
;
215 int image_cache_refcount
, dpyinfo_refcount
;
218 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
219 char *x_last_font_name
;
223 /* Error if we are not connected to X. */
229 error ("X windows are not in use or not initialized");
232 /* Nonzero if we can use mouse menus.
233 You should not call this unless HAVE_MENUS is defined. */
241 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
242 and checking validity for X. */
245 check_x_frame (Lisp_Object frame
)
250 frame
= selected_frame
;
251 CHECK_LIVE_FRAME (frame
);
254 error ("Non-X frame used");
258 /* Let the user specify an X display with a Lisp object.
259 OBJECT may be nil, a frame or a terminal object.
260 nil stands for the selected frame--or, if that is not an X frame,
261 the first X display on the list. */
263 struct x_display_info
*
264 check_x_display_info (Lisp_Object object
)
266 struct x_display_info
*dpyinfo
= NULL
;
270 struct frame
*sf
= XFRAME (selected_frame
);
272 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
273 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
274 else if (x_display_list
!= 0)
275 dpyinfo
= x_display_list
;
277 error ("X windows are not in use or not initialized");
279 else if (TERMINALP (object
))
281 struct terminal
*t
= get_terminal (object
, 1);
283 if (t
->type
!= output_x_window
)
284 error ("Terminal %d is not an X display", XINT (object
));
286 dpyinfo
= t
->display_info
.x
;
288 else if (STRINGP (object
))
289 dpyinfo
= x_display_info_for_name (object
);
292 FRAME_PTR f
= check_x_frame (object
);
293 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
300 /* Return the Emacs frame-object corresponding to an X window.
301 It could be the frame's main window or an icon window. */
303 /* This function can be called during GC, so use GC_xxx type test macros. */
306 x_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
308 Lisp_Object tail
, frame
;
311 if (wdesc
== None
) return 0;
313 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
319 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
321 if (f
->output_data
.x
->hourglass_window
== wdesc
)
324 if ((f
->output_data
.x
->edit_widget
325 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
326 /* A tooltip frame? */
327 || (!f
->output_data
.x
->edit_widget
328 && FRAME_X_WINDOW (f
) == wdesc
)
329 || f
->output_data
.x
->icon_desc
== wdesc
)
331 #else /* not USE_X_TOOLKIT */
333 if (f
->output_data
.x
->edit_widget
)
335 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
336 struct x_output
*x
= f
->output_data
.x
;
337 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
341 if (FRAME_X_WINDOW (f
) == wdesc
342 || f
->output_data
.x
->icon_desc
== wdesc
)
344 #endif /* not USE_X_TOOLKIT */
349 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
350 /* Like x_window_to_frame but also compares the window with the widget's
354 x_any_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
356 Lisp_Object tail
, frame
;
357 struct frame
*f
, *found
;
360 if (wdesc
== None
) return NULL
;
363 for (tail
= Vframe_list
; CONSP (tail
) && !found
; tail
= XCDR (tail
))
370 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
372 /* This frame matches if the window is any of its widgets. */
373 x
= f
->output_data
.x
;
374 if (x
->hourglass_window
== wdesc
)
379 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
381 && gtk_widget_get_toplevel (gwdesc
) == x
->widget
)
384 if (wdesc
== XtWindow (x
->widget
)
385 || wdesc
== XtWindow (x
->column_widget
)
386 || wdesc
== XtWindow (x
->edit_widget
))
388 /* Match if the window is this frame's menubar. */
389 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
393 else if (FRAME_X_WINDOW (f
) == wdesc
)
394 /* A tooltip frame. */
402 /* Likewise, but consider only the menu bar widget. */
405 x_menubar_window_to_frame (struct x_display_info
*dpyinfo
, XEvent
*event
)
407 Window wdesc
= event
->xany
.window
;
408 Lisp_Object tail
, frame
;
412 if (wdesc
== None
) return 0;
414 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
420 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
422 x
= f
->output_data
.x
;
424 if (x
->menubar_widget
&& xg_event_is_for_menubar (f
, event
))
427 /* Match if the window is this frame's menubar. */
428 if (x
->menubar_widget
429 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
436 /* Return the frame whose principal (outermost) window is WDESC.
437 If WDESC is some other (smaller) window, we return 0. */
440 x_top_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
442 Lisp_Object tail
, frame
;
446 if (wdesc
== None
) return 0;
448 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
454 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
456 x
= f
->output_data
.x
;
460 /* This frame matches if the window is its topmost widget. */
462 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
463 if (gwdesc
== x
->widget
)
466 if (wdesc
== XtWindow (x
->widget
))
468 #if 0 /* I don't know why it did this,
469 but it seems logically wrong,
470 and it causes trouble for MapNotify events. */
471 /* Match if the window is this frame's menubar. */
472 if (x
->menubar_widget
473 && wdesc
== XtWindow (x
->menubar_widget
))
478 else if (FRAME_X_WINDOW (f
) == wdesc
)
484 #endif /* USE_X_TOOLKIT || USE_GTK */
488 static void x_default_font_parameter (struct frame
*, Lisp_Object
);
490 static Lisp_Object
unwind_create_frame (Lisp_Object
);
491 static Lisp_Object
unwind_create_tip_frame (Lisp_Object
);
493 void x_set_foreground_color (struct frame
*, Lisp_Object
, Lisp_Object
);
494 static void x_set_wait_for_wm (struct frame
*, Lisp_Object
, Lisp_Object
);
495 void x_set_background_color (struct frame
*, Lisp_Object
, Lisp_Object
);
496 void x_set_mouse_color (struct frame
*, Lisp_Object
, Lisp_Object
);
497 void x_set_cursor_color (struct frame
*, Lisp_Object
, Lisp_Object
);
498 void x_set_border_color (struct frame
*, Lisp_Object
, Lisp_Object
);
499 void x_set_cursor_type (struct frame
*, Lisp_Object
, Lisp_Object
);
500 void x_set_icon_type (struct frame
*, Lisp_Object
, Lisp_Object
);
501 void x_set_icon_name (struct frame
*, Lisp_Object
, Lisp_Object
);
502 void x_explicitly_set_name (struct frame
*, Lisp_Object
, Lisp_Object
);
503 void x_set_menu_bar_lines (struct frame
*, Lisp_Object
, Lisp_Object
);
504 void x_set_title (struct frame
*, Lisp_Object
, Lisp_Object
);
505 void x_set_tool_bar_lines (struct frame
*, Lisp_Object
, Lisp_Object
);
506 void x_set_scroll_bar_foreground (struct frame
*, Lisp_Object
,
508 void x_set_scroll_bar_background (struct frame
*, Lisp_Object
,
510 static Lisp_Object
x_default_scroll_bar_color_parameter (struct frame
*,
517 /* Store the screen positions of frame F into XPTR and YPTR.
518 These are the positions of the containing window manager window,
519 not Emacs's own window. */
522 x_real_positions (FRAME_PTR f
, int *xptr
, int *yptr
)
524 int win_x
, win_y
, outer_x
, outer_y
;
525 int real_x
= 0, real_y
= 0;
527 Window win
= f
->output_data
.x
->parent_desc
;
531 x_catch_errors (FRAME_X_DISPLAY (f
));
533 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
534 win
= FRAME_OUTER_WINDOW (f
);
536 /* This loop traverses up the containment tree until we hit the root
537 window. Window managers may intersect many windows between our window
538 and the root window. The window we find just before the root window
539 should be the outer WM window. */
542 Window wm_window
, rootw
;
543 Window
*tmp_children
;
544 unsigned int tmp_nchildren
;
547 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
548 &wm_window
, &tmp_children
, &tmp_nchildren
);
550 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
552 /* Don't free tmp_children if XQueryTree failed. */
556 XFree ((char *) tmp_children
);
558 if (wm_window
== rootw
|| had_errors
)
569 /* Get the real coordinates for the WM window upper left corner */
570 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
571 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
573 /* Translate real coordinates to coordinates relative to our
574 window. For our window, the upper left corner is 0, 0.
575 Since the upper left corner of the WM window is outside
576 our window, win_x and win_y will be negative:
578 ------------------ ---> x
580 | ----------------- v y
583 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
585 /* From-window, to-window. */
586 FRAME_X_DISPLAY_INFO (f
)->root_window
,
589 /* From-position, to-position. */
590 real_x
, real_y
, &win_x
, &win_y
,
595 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
602 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
604 /* From-window, to-window. */
605 FRAME_X_DISPLAY_INFO (f
)->root_window
,
606 FRAME_OUTER_WINDOW (f
),
608 /* From-position, to-position. */
609 real_x
, real_y
, &outer_x
, &outer_y
,
615 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
622 if (had_errors
) return;
624 f
->x_pixels_diff
= -win_x
;
625 f
->y_pixels_diff
= -win_y
;
627 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
628 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
637 /* Gamma-correct COLOR on frame F. */
640 gamma_correct (struct frame
*f
, XColor
*color
)
644 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
645 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
646 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
651 /* Decide if color named COLOR_NAME is valid for use on frame F. If
652 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
653 allocate the color. Value is zero if COLOR_NAME is invalid, or
654 no color could be allocated. */
657 x_defined_color (struct frame
*f
, const char *color_name
,
658 XColor
*color
, int alloc_p
)
661 Display
*dpy
= FRAME_X_DISPLAY (f
);
662 Colormap cmap
= FRAME_X_COLORMAP (f
);
665 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
666 if (success_p
&& alloc_p
)
667 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
674 /* Return the pixel color value for color COLOR_NAME on frame F. If F
675 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
676 Signal an error if color can't be allocated. */
679 x_decode_color (FRAME_PTR f
, Lisp_Object color_name
, int mono_color
)
683 CHECK_STRING (color_name
);
685 #if 0 /* Don't do this. It's wrong when we're not using the default
686 colormap, it makes freeing difficult, and it's probably not
687 an important optimization. */
688 if (strcmp (SDATA (color_name
), "black") == 0)
689 return BLACK_PIX_DEFAULT (f
);
690 else if (strcmp (SDATA (color_name
), "white") == 0)
691 return WHITE_PIX_DEFAULT (f
);
694 /* Return MONO_COLOR for monochrome frames. */
695 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
698 /* x_defined_color is responsible for coping with failures
699 by looking for a near-miss. */
700 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
703 signal_error ("Undefined color", color_name
);
708 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
709 the previous value of that parameter, NEW_VALUE is the new value.
710 See also the comment of wait_for_wm in struct x_output. */
713 x_set_wait_for_wm (struct frame
*f
, Lisp_Object new_value
, Lisp_Object old_value
)
715 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
719 x_set_tool_bar_position (struct frame
*f
,
720 Lisp_Object new_value
,
721 Lisp_Object old_value
)
723 if (! EQ (new_value
, Qleft
) && ! EQ (new_value
, Qright
)
724 && ! EQ (new_value
, Qbottom
) && ! EQ (new_value
, Qtop
))
726 if (EQ (new_value
, old_value
)) return;
729 if (xg_change_toolbar_position (f
, new_value
))
730 f
->tool_bar_position
= new_value
;
736 /* Set icon from FILE for frame F. By using GTK functions the icon
737 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
740 xg_set_icon (FRAME_PTR f
, Lisp_Object file
)
745 found
= x_find_image_file (file
);
751 char *filename
= (char *) SDATA (found
);
754 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
758 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
760 g_object_unref (pixbuf
);
774 xg_set_icon_from_xpm_data (FRAME_PTR f
, char **data
)
777 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data ((const char **) data
);
782 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
783 g_object_unref (pixbuf
);
789 /* Functions called only from `x_set_frame_param'
790 to set individual parameters.
792 If FRAME_X_WINDOW (f) is 0,
793 the frame is being created and its X-window does not exist yet.
794 In that case, just record the parameter's new value
795 in the standard place; do not attempt to change the window. */
798 x_set_foreground_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
800 struct x_output
*x
= f
->output_data
.x
;
801 unsigned long fg
, old_fg
;
803 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
804 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
805 FRAME_FOREGROUND_PIXEL (f
) = fg
;
807 if (FRAME_X_WINDOW (f
) != 0)
809 Display
*dpy
= FRAME_X_DISPLAY (f
);
812 XSetForeground (dpy
, x
->normal_gc
, fg
);
813 XSetBackground (dpy
, x
->reverse_gc
, fg
);
815 if (x
->cursor_pixel
== old_fg
)
817 unload_color (f
, x
->cursor_pixel
);
818 x
->cursor_pixel
= x_copy_color (f
, fg
);
819 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
824 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
826 if (FRAME_VISIBLE_P (f
))
830 unload_color (f
, old_fg
);
834 x_set_background_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
836 struct x_output
*x
= f
->output_data
.x
;
839 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
840 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
841 FRAME_BACKGROUND_PIXEL (f
) = bg
;
843 if (FRAME_X_WINDOW (f
) != 0)
845 Display
*dpy
= FRAME_X_DISPLAY (f
);
848 XSetBackground (dpy
, x
->normal_gc
, bg
);
849 XSetForeground (dpy
, x
->reverse_gc
, bg
);
850 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
851 XSetForeground (dpy
, x
->cursor_gc
, bg
);
854 xg_set_background_color (f
, bg
);
857 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
858 toolkit scroll bars. */
861 for (bar
= FRAME_SCROLL_BARS (f
);
863 bar
= XSCROLL_BAR (bar
)->next
)
865 Window window
= XSCROLL_BAR (bar
)->x_window
;
866 XSetWindowBackground (dpy
, window
, bg
);
869 #endif /* USE_TOOLKIT_SCROLL_BARS */
872 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
874 if (FRAME_VISIBLE_P (f
))
880 make_invisible_cursor (struct frame
*f
)
882 Display
*dpy
= FRAME_X_DISPLAY (f
);
883 static char const no_data
[] = { 0 };
888 x_catch_errors (dpy
);
889 pix
= XCreateBitmapFromData (dpy
, FRAME_X_DISPLAY_INFO (f
)->root_window
,
891 if (! x_had_errors_p (dpy
) && pix
!= None
)
894 col
.red
= col
.green
= col
.blue
= 0;
895 col
.flags
= DoRed
| DoGreen
| DoBlue
;
896 c
= XCreatePixmapCursor (dpy
, pix
, pix
, &col
, &col
, 0, 0);
897 if (x_had_errors_p (dpy
) || c
== None
)
899 XFreePixmap (dpy
, pix
);
908 x_set_mouse_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
910 struct x_output
*x
= f
->output_data
.x
;
911 Display
*dpy
= FRAME_X_DISPLAY (f
);
912 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
913 Cursor hourglass_cursor
, horizontal_drag_cursor
;
914 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
915 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
917 /* Don't let pointers be invisible. */
918 if (mask_color
== pixel
)
920 x_free_colors (f
, &pixel
, 1);
921 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
924 unload_color (f
, x
->mouse_pixel
);
925 x
->mouse_pixel
= pixel
;
929 /* It's not okay to crash if the user selects a screwy cursor. */
930 x_catch_errors (dpy
);
932 if (!NILP (Vx_pointer_shape
))
934 CHECK_NUMBER (Vx_pointer_shape
);
935 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
938 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
939 x_check_errors (dpy
, "bad text pointer cursor: %s");
941 if (!NILP (Vx_nontext_pointer_shape
))
943 CHECK_NUMBER (Vx_nontext_pointer_shape
);
945 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
948 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
949 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
951 if (!NILP (Vx_hourglass_pointer_shape
))
953 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
955 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
958 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
959 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
961 if (!NILP (Vx_mode_pointer_shape
))
963 CHECK_NUMBER (Vx_mode_pointer_shape
);
964 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
967 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
968 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
970 if (!NILP (Vx_sensitive_text_pointer_shape
))
972 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
974 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
977 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
979 if (!NILP (Vx_window_horizontal_drag_shape
))
981 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
982 horizontal_drag_cursor
983 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
986 horizontal_drag_cursor
987 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
989 /* Check and report errors with the above calls. */
990 x_check_errors (dpy
, "can't set cursor shape: %s");
994 XColor fore_color
, back_color
;
996 fore_color
.pixel
= x
->mouse_pixel
;
997 x_query_color (f
, &fore_color
);
998 back_color
.pixel
= mask_color
;
999 x_query_color (f
, &back_color
);
1001 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1002 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1003 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1004 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1005 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1006 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1009 if (FRAME_X_WINDOW (f
) != 0)
1010 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
1011 f
->output_data
.x
->current_cursor
= cursor
);
1013 if (FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
== 0)
1014 FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
= make_invisible_cursor (f
);
1016 if (cursor
!= x
->text_cursor
1017 && x
->text_cursor
!= 0)
1018 XFreeCursor (dpy
, x
->text_cursor
);
1019 x
->text_cursor
= cursor
;
1021 if (nontext_cursor
!= x
->nontext_cursor
1022 && x
->nontext_cursor
!= 0)
1023 XFreeCursor (dpy
, x
->nontext_cursor
);
1024 x
->nontext_cursor
= nontext_cursor
;
1026 if (hourglass_cursor
!= x
->hourglass_cursor
1027 && x
->hourglass_cursor
!= 0)
1028 XFreeCursor (dpy
, x
->hourglass_cursor
);
1029 x
->hourglass_cursor
= hourglass_cursor
;
1031 if (mode_cursor
!= x
->modeline_cursor
1032 && x
->modeline_cursor
!= 0)
1033 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1034 x
->modeline_cursor
= mode_cursor
;
1036 if (hand_cursor
!= x
->hand_cursor
1037 && x
->hand_cursor
!= 0)
1038 XFreeCursor (dpy
, x
->hand_cursor
);
1039 x
->hand_cursor
= hand_cursor
;
1041 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1042 && x
->horizontal_drag_cursor
!= 0)
1043 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1044 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1049 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1053 x_set_cursor_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1055 unsigned long fore_pixel
, pixel
;
1056 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1057 struct x_output
*x
= f
->output_data
.x
;
1059 if (!NILP (Vx_cursor_fore_pixel
))
1061 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1062 WHITE_PIX_DEFAULT (f
));
1063 fore_pixel_allocated_p
= 1;
1066 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1068 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1069 pixel_allocated_p
= 1;
1071 /* Make sure that the cursor color differs from the background color. */
1072 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1074 if (pixel_allocated_p
)
1076 x_free_colors (f
, &pixel
, 1);
1077 pixel_allocated_p
= 0;
1080 pixel
= x
->mouse_pixel
;
1081 if (pixel
== fore_pixel
)
1083 if (fore_pixel_allocated_p
)
1085 x_free_colors (f
, &fore_pixel
, 1);
1086 fore_pixel_allocated_p
= 0;
1088 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1092 unload_color (f
, x
->cursor_foreground_pixel
);
1093 if (!fore_pixel_allocated_p
)
1094 fore_pixel
= x_copy_color (f
, fore_pixel
);
1095 x
->cursor_foreground_pixel
= fore_pixel
;
1097 unload_color (f
, x
->cursor_pixel
);
1098 if (!pixel_allocated_p
)
1099 pixel
= x_copy_color (f
, pixel
);
1100 x
->cursor_pixel
= pixel
;
1102 if (FRAME_X_WINDOW (f
) != 0)
1105 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1106 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1109 if (FRAME_VISIBLE_P (f
))
1111 x_update_cursor (f
, 0);
1112 x_update_cursor (f
, 1);
1116 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1119 /* Set the border-color of frame F to pixel value PIX.
1120 Note that this does not fully take effect if done before
1121 F has an x-window. */
1124 x_set_border_pixel (struct frame
*f
, int pix
)
1126 unload_color (f
, f
->output_data
.x
->border_pixel
);
1127 f
->output_data
.x
->border_pixel
= pix
;
1129 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1132 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1133 (unsigned long)pix
);
1136 if (FRAME_VISIBLE_P (f
))
1141 /* Set the border-color of frame F to value described by ARG.
1142 ARG can be a string naming a color.
1143 The border-color is used for the border that is drawn by the X server.
1144 Note that this does not fully take effect if done before
1145 F has an x-window; it must be redone when the window is created.
1147 Note: this is done in two routines because of the way X10 works.
1149 Note: under X11, this is normally the province of the window manager,
1150 and so emacs' border colors may be overridden. */
1153 x_set_border_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1158 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1159 x_set_border_pixel (f
, pix
);
1160 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1165 x_set_cursor_type (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1167 set_frame_cursor_types (f
, arg
);
1169 /* Make sure the cursor gets redrawn. */
1170 cursor_type_changed
= 1;
1174 x_set_icon_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1180 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1183 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1188 result
= x_text_icon (f
,
1189 (char *) SDATA ((!NILP (f
->icon_name
)
1193 result
= x_bitmap_icon (f
, arg
);
1198 error ("No icon window available");
1201 XFlush (FRAME_X_DISPLAY (f
));
1206 x_set_icon_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1212 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1215 else if (!NILP (arg
) || NILP (oldval
))
1220 if (f
->output_data
.x
->icon_bitmap
!= 0)
1225 result
= x_text_icon (f
,
1226 (char *) SDATA ((!NILP (f
->icon_name
)
1235 error ("No icon window available");
1238 XFlush (FRAME_X_DISPLAY (f
));
1244 x_set_menu_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1247 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1248 int olines
= FRAME_MENU_BAR_LINES (f
);
1251 /* Right now, menu bars don't work properly in minibuf-only frames;
1252 most of the commands try to apply themselves to the minibuffer
1253 frame itself, and get an error because you can't switch buffers
1254 in or split the minibuffer window. */
1255 if (FRAME_MINIBUF_ONLY_P (f
))
1258 if (INTEGERP (value
))
1259 nlines
= XINT (value
);
1263 /* Make sure we redisplay all windows in this frame. */
1264 windows_or_buffers_changed
++;
1266 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1267 FRAME_MENU_BAR_LINES (f
) = 0;
1270 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1271 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1272 /* Make sure next redisplay shows the menu bar. */
1273 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1277 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1278 free_frame_menubar (f
);
1279 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1281 f
->output_data
.x
->menubar_widget
= 0;
1283 #else /* not USE_X_TOOLKIT && not USE_GTK */
1284 FRAME_MENU_BAR_LINES (f
) = nlines
;
1285 change_window_heights (f
->root_window
, nlines
- olines
);
1287 /* If the menu bar height gets changed, the internal border below
1288 the top margin has to be cleared. Also, if the menu bar gets
1289 larger, the area for the added lines has to be cleared except for
1290 the first menu bar line that is to be drawn later. */
1291 if (nlines
!= olines
)
1293 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1294 int width
= FRAME_PIXEL_WIDTH (f
);
1297 /* height can be zero here. */
1298 if (height
> 0 && width
> 0)
1300 y
= FRAME_TOP_MARGIN_HEIGHT (f
);
1303 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1304 0, y
, width
, height
, False
);
1308 if (nlines
> 1 && nlines
> olines
)
1310 y
= (olines
== 0 ? 1 : olines
) * FRAME_LINE_HEIGHT (f
);
1311 height
= nlines
* FRAME_LINE_HEIGHT (f
) - y
;
1314 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1315 0, y
, width
, height
, False
);
1319 if (nlines
== 0 && WINDOWP (f
->menu_bar_window
))
1320 clear_glyph_matrix (XWINDOW (f
->menu_bar_window
)->current_matrix
);
1322 #endif /* not USE_X_TOOLKIT && not USE_GTK */
1327 /* Set the number of lines used for the tool bar of frame F to VALUE.
1328 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1329 is the old number of tool bar lines. This function changes the
1330 height of all windows on frame F to match the new tool bar height.
1331 The frame's height doesn't change. */
1334 x_set_tool_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1336 int delta
, nlines
, root_height
;
1337 Lisp_Object root_window
;
1339 /* Treat tool bars like menu bars. */
1340 if (FRAME_MINIBUF_ONLY_P (f
))
1343 /* Use VALUE only if an integer >= 0. */
1344 if (INTEGERP (value
) && XINT (value
) >= 0)
1345 nlines
= XFASTINT (value
);
1350 FRAME_TOOL_BAR_LINES (f
) = 0;
1353 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1354 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1355 /* Make sure next redisplay shows the tool bar. */
1356 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1357 update_frame_tool_bar (f
);
1361 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1362 free_frame_tool_bar (f
);
1363 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1369 /* Make sure we redisplay all windows in this frame. */
1370 ++windows_or_buffers_changed
;
1372 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1374 /* Don't resize the tool-bar to more than we have room for. */
1375 root_window
= FRAME_ROOT_WINDOW (f
);
1376 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1377 if (root_height
- delta
< 1)
1379 delta
= root_height
- 1;
1380 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1383 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1384 change_window_heights (root_window
, delta
);
1387 /* We also have to make sure that the internal border at the top of
1388 the frame, below the menu bar or tool bar, is redrawn when the
1389 tool bar disappears. This is so because the internal border is
1390 below the tool bar if one is displayed, but is below the menu bar
1391 if there isn't a tool bar. The tool bar draws into the area
1392 below the menu bar. */
1393 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1396 clear_current_matrices (f
);
1399 /* If the tool bar gets smaller, the internal border below it
1400 has to be cleared. It was formerly part of the display
1401 of the larger tool bar, and updating windows won't clear it. */
1404 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1405 int width
= FRAME_PIXEL_WIDTH (f
);
1406 int y
= (FRAME_MENU_BAR_LINES (f
) + nlines
) * FRAME_LINE_HEIGHT (f
);
1408 /* height can be zero here. */
1409 if (height
> 0 && width
> 0)
1412 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1413 0, y
, width
, height
, False
);
1417 if (WINDOWP (f
->tool_bar_window
))
1418 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1423 /* Set the foreground color for scroll bars on frame F to VALUE.
1424 VALUE should be a string, a color name. If it isn't a string or
1425 isn't a valid color name, do nothing. OLDVAL is the old value of
1426 the frame parameter. */
1429 x_set_scroll_bar_foreground (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1431 unsigned long pixel
;
1433 if (STRINGP (value
))
1434 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1438 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1439 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1441 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1442 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1444 /* Remove all scroll bars because they have wrong colors. */
1445 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1446 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1447 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1448 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1450 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1456 /* Set the background color for scroll bars on frame F to VALUE VALUE
1457 should be a string, a color name. If it isn't a string or isn't a
1458 valid color name, do nothing. OLDVAL is the old value of the frame
1462 x_set_scroll_bar_background (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1464 unsigned long pixel
;
1466 if (STRINGP (value
))
1467 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1471 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1472 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1474 #ifdef USE_TOOLKIT_SCROLL_BARS
1475 /* Scrollbar shadow colors. */
1476 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1478 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1479 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1481 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1483 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1484 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1486 #endif /* USE_TOOLKIT_SCROLL_BARS */
1488 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1489 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1491 /* Remove all scroll bars because they have wrong colors. */
1492 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1493 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1494 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1495 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1497 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1503 /* Encode Lisp string STRING as a text in a format appropriate for
1504 XICCC (X Inter Client Communication Conventions).
1506 This can call Lisp code, so callers must GCPRO.
1508 If STRING contains only ASCII characters, do no conversion and
1509 return the string data of STRING. Otherwise, encode the text by
1510 CODING_SYSTEM, and return a newly allocated memory area which
1511 should be freed by `xfree' by a caller.
1513 SELECTIONP non-zero means the string is being encoded for an X
1514 selection, so it is safe to run pre-write conversions (which
1517 Store the byte length of resulting text in *TEXT_BYTES.
1519 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1520 which means that the `encoding' of the result can be `STRING'.
1521 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1522 the result should be `COMPOUND_TEXT'. */
1524 static unsigned char *
1525 x_encode_text (Lisp_Object string
, Lisp_Object coding_system
, int selectionp
, int *text_bytes
, int *stringp
, int *freep
)
1527 int result
= string_xstring_p (string
);
1528 struct coding_system coding
;
1532 /* No multibyte character in OBJ. We need not encode it. */
1533 *text_bytes
= SBYTES (string
);
1536 return SDATA (string
);
1539 setup_coding_system (coding_system
, &coding
);
1540 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1541 /* We suppress producing escape sequences for composition. */
1542 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1543 coding
.dst_bytes
= SCHARS (string
) * 2;
1544 coding
.destination
= (unsigned char *) xmalloc (coding
.dst_bytes
);
1545 encode_coding_object (&coding
, string
, 0, 0,
1546 SCHARS (string
), SBYTES (string
), Qnil
);
1547 *text_bytes
= coding
.produced
;
1548 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1550 return coding
.destination
;
1554 /* Set the WM name to NAME for frame F. Also set the icon name.
1555 If the frame already has an icon name, use that, otherwise set the
1556 icon name to NAME. */
1559 x_set_name_internal (FRAME_PTR f
, Lisp_Object name
)
1561 if (FRAME_X_WINDOW (f
))
1565 XTextProperty text
, icon
;
1567 int do_free_icon_value
= 0, do_free_text_value
= 0;
1568 Lisp_Object coding_system
;
1569 Lisp_Object encoded_name
;
1570 Lisp_Object encoded_icon_name
;
1571 struct gcpro gcpro1
;
1573 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1574 we use it before x_encode_text that may return string data. */
1576 encoded_name
= ENCODE_UTF_8 (name
);
1579 coding_system
= Qcompound_text
;
1580 /* Note: Encoding strategy
1582 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1583 text.encoding. But, there are non-internationalized window
1584 managers which don't support that encoding. So, if NAME
1585 contains only ASCII and 8859-1 characters, encode it by
1586 iso-latin-1, and use "STRING" in text.encoding hoping that
1587 such window managers at least analyze this format correctly,
1588 i.e. treat 8-bit bytes as 8859-1 characters.
1590 We may also be able to use "UTF8_STRING" in text.encoding
1591 in the future which can encode all Unicode characters.
1592 But, for the moment, there's no way to know that the
1593 current window manager supports it or not.
1595 Either way, we also set the _NET_WM_NAME and _NET_WM_ICON_NAME
1596 properties. Per the EWMH specification, those two properties
1597 are always UTF8_STRING. This matches what gtk_window_set_title()
1598 does in the USE_GTK case. */
1599 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1600 &do_free_text_value
);
1601 text
.encoding
= (stringp
? XA_STRING
1602 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1604 text
.nitems
= bytes
;
1606 if (!STRINGP (f
->icon_name
))
1609 encoded_icon_name
= encoded_name
;
1613 /* See the above comment "Note: Encoding strategy". */
1614 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1615 &bytes
, &stringp
, &do_free_icon_value
);
1616 icon
.encoding
= (stringp
? XA_STRING
1617 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1619 icon
.nitems
= bytes
;
1621 encoded_icon_name
= ENCODE_UTF_8 (f
->icon_name
);
1625 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1626 (char *) SDATA (encoded_name
));
1627 #else /* not USE_GTK */
1628 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1629 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1630 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_name
,
1631 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1633 (char *) SDATA (encoded_name
),
1634 SBYTES (encoded_name
));
1635 #endif /* not USE_GTK */
1637 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1638 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1639 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_icon_name
,
1640 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1642 (char *) SDATA (encoded_icon_name
),
1643 SBYTES (encoded_icon_name
));
1645 if (do_free_icon_value
)
1647 if (do_free_text_value
)
1654 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1657 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1658 name; if NAME is a string, set F's name to NAME and set
1659 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1661 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1662 suggesting a new name, which lisp code should override; if
1663 F->explicit_name is set, ignore the new name; otherwise, set it. */
1666 x_set_name (struct frame
*f
, Lisp_Object name
, int explicit)
1668 /* Make sure that requests from lisp code override requests from
1669 Emacs redisplay code. */
1672 /* If we're switching from explicit to implicit, we had better
1673 update the mode lines and thereby update the title. */
1674 if (f
->explicit_name
&& NILP (name
))
1675 update_mode_lines
= 1;
1677 f
->explicit_name
= ! NILP (name
);
1679 else if (f
->explicit_name
)
1682 /* If NAME is nil, set the name to the x_id_name. */
1685 /* Check for no change needed in this very common case
1686 before we do any consing. */
1687 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1690 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1693 CHECK_STRING (name
);
1695 /* Don't change the name if it's already NAME. */
1696 if (! NILP (Fstring_equal (name
, f
->name
)))
1701 /* For setting the frame title, the title parameter should override
1702 the name parameter. */
1703 if (! NILP (f
->title
))
1706 x_set_name_internal (f
, name
);
1709 /* This function should be called when the user's lisp code has
1710 specified a name for the frame; the name will override any set by the
1713 x_explicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1715 x_set_name (f
, arg
, 1);
1718 /* This function should be called by Emacs redisplay code to set the
1719 name; names set this way will never override names set by the user's
1722 x_implicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1724 x_set_name (f
, arg
, 0);
1727 /* Change the title of frame F to NAME.
1728 If NAME is nil, use the frame name as the title. */
1731 x_set_title (struct frame
*f
, Lisp_Object name
, Lisp_Object old_name
)
1733 /* Don't change the title if it's already NAME. */
1734 if (EQ (name
, f
->title
))
1737 update_mode_lines
= 1;
1744 CHECK_STRING (name
);
1746 x_set_name_internal (f
, name
);
1750 x_set_scroll_bar_default_width (struct frame
*f
)
1752 int wid
= FRAME_COLUMN_WIDTH (f
);
1754 #ifdef USE_TOOLKIT_SCROLL_BARS
1755 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1756 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1757 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1758 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1760 /* Make the actual width at least 14 pixels and a multiple of a
1762 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1764 /* Use all of that space (aside from required margins) for the
1766 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1771 /* Record in frame F the specified or default value according to ALIST
1772 of the parameter named PROP (a Lisp symbol). If no value is
1773 specified for PROP, look for an X default for XPROP on the frame
1774 named NAME. If that is not found either, use the value DEFLT. */
1777 x_default_scroll_bar_color_parameter (struct frame
*f
,
1778 Lisp_Object alist
, Lisp_Object prop
,
1779 char *xprop
, char *xclass
,
1782 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1785 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1786 if (EQ (tem
, Qunbound
))
1788 #ifdef USE_TOOLKIT_SCROLL_BARS
1790 /* See if an X resource for the scroll bar color has been
1792 tem
= display_x_get_resource (dpyinfo
,
1793 build_string (foreground_p
1796 empty_unibyte_string
,
1797 build_string ("verticalScrollBar"),
1798 empty_unibyte_string
);
1801 /* If nothing has been specified, scroll bars will use a
1802 toolkit-dependent default. Because these defaults are
1803 difficult to get at without actually creating a scroll
1804 bar, use nil to indicate that no color has been
1809 #else /* not USE_TOOLKIT_SCROLL_BARS */
1813 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1816 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1823 #ifdef USE_X_TOOLKIT
1825 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1826 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1827 already be present because of the toolkit (Motif adds some of them,
1828 for example, but Xt doesn't). */
1831 hack_wm_protocols (FRAME_PTR f
, Widget widget
)
1833 Display
*dpy
= XtDisplay (widget
);
1834 Window w
= XtWindow (widget
);
1835 int need_delete
= 1;
1842 unsigned char *catoms
;
1844 unsigned long nitems
= 0;
1845 unsigned long bytes_after
;
1847 if ((XGetWindowProperty (dpy
, w
,
1848 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1849 (long)0, (long)100, False
, XA_ATOM
,
1850 &type
, &format
, &nitems
, &bytes_after
,
1853 && format
== 32 && type
== XA_ATOM
)
1855 Atom
*atoms
= (Atom
*) catoms
;
1860 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1862 else if (atoms
[nitems
]
1863 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1865 else if (atoms
[nitems
]
1866 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1877 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1879 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1881 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1883 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1884 XA_ATOM
, 32, PropModeAppend
,
1885 (unsigned char *) props
, count
);
1893 /* Support routines for XIC (X Input Context). */
1897 static XFontSet
xic_create_xfontset (struct frame
*);
1898 static XIMStyle
best_xim_style (XIMStyles
*, XIMStyles
*);
1901 /* Supported XIM styles, ordered by preference. */
1903 static XIMStyle supported_xim_styles
[] =
1905 XIMPreeditPosition
| XIMStatusArea
,
1906 XIMPreeditPosition
| XIMStatusNothing
,
1907 XIMPreeditPosition
| XIMStatusNone
,
1908 XIMPreeditNothing
| XIMStatusArea
,
1909 XIMPreeditNothing
| XIMStatusNothing
,
1910 XIMPreeditNothing
| XIMStatusNone
,
1911 XIMPreeditNone
| XIMStatusArea
,
1912 XIMPreeditNone
| XIMStatusNothing
,
1913 XIMPreeditNone
| XIMStatusNone
,
1918 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1920 const char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1922 /* Create an Xt fontset spec from the name of a base font.
1923 If `motif' is True use the Motif syntax. */
1925 xic_create_fontsetname (const char *base_fontname
, int motif
)
1927 const char *sep
= motif
? ";" : ",";
1930 /* Make a fontset name from the base font name. */
1931 if (xic_defaut_fontset
== base_fontname
)
1932 { /* There is no base font name, use the default. */
1933 int len
= strlen (base_fontname
) + 2;
1934 fontsetname
= xmalloc (len
);
1935 memset (fontsetname
, 0, len
);
1936 strcpy (fontsetname
, base_fontname
);
1940 /* Make a fontset name from the base font name.
1941 The font set will be made of the following elements:
1943 - the base font where the charset spec is replaced by -*-*.
1944 - the same but with the family also replaced with -*-*-. */
1945 const char *p
= base_fontname
;
1948 for (i
= 0; *p
; p
++)
1951 { /* As the font name doesn't conform to XLFD, we can't
1952 modify it to generalize it to allcs and allfamilies.
1953 Use the specified font plus the default. */
1954 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
1955 fontsetname
= xmalloc (len
);
1956 memset (fontsetname
, 0, len
);
1957 strcpy (fontsetname
, base_fontname
);
1958 strcat (fontsetname
, sep
);
1959 strcat (fontsetname
, xic_defaut_fontset
);
1964 const char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1965 char *font_allcs
= NULL
;
1966 char *font_allfamilies
= NULL
;
1967 char *font_all
= NULL
;
1968 const char *allcs
= "*-*-*-*-*-*-*";
1969 const char *allfamilies
= "-*-*-";
1970 const char *all
= "*-*-*-*-";
1973 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
1986 /* If base_fontname specifies ADSTYLE, make it a
1990 int diff
= (p2
- p3
) - 2;
1992 base
= alloca (strlen (base_fontname
) + 1);
1993 memcpy (base
, base_fontname
, p3
- base_fontname
);
1994 base
[p3
- base_fontname
] = '*';
1995 base
[(p3
- base_fontname
) + 1] = '-';
1996 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
1997 p
= base
+ (p
- base_fontname
) - diff
;
1998 p1
= base
+ (p1
- base_fontname
);
1999 p2
= base
+ (p2
- base_fontname
) - diff
;
2000 base_fontname
= base
;
2003 /* Build the font spec that matches all charsets. */
2004 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2005 font_allcs
= (char *) alloca (len
);
2006 memset (font_allcs
, 0, len
);
2007 memcpy (font_allcs
, base_fontname
, p
- base_fontname
);
2008 strcat (font_allcs
, allcs
);
2010 /* Build the font spec that matches all families and
2012 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2013 font_allfamilies
= (char *) alloca (len
);
2014 memset (font_allfamilies
, 0, len
);
2015 strcpy (font_allfamilies
, allfamilies
);
2016 memcpy (font_allfamilies
+ strlen (allfamilies
), p1
, p
- p1
);
2017 strcat (font_allfamilies
, allcs
);
2019 /* Build the font spec that matches all. */
2020 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2021 font_all
= (char *) alloca (len
);
2022 memset (font_all
, 0, len
);
2023 strcpy (font_all
, allfamilies
);
2024 strcat (font_all
, all
);
2025 memcpy (font_all
+ strlen (all
) + strlen (allfamilies
), p2
, p
- p2
);
2026 strcat (font_all
, allcs
);
2028 /* Build the actual font set name. */
2029 len
= strlen (base_fontname
) + strlen (font_allcs
)
2030 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2031 fontsetname
= xmalloc (len
);
2032 memset (fontsetname
, 0, len
);
2033 strcpy (fontsetname
, base_fontname
);
2034 strcat (fontsetname
, sep
);
2035 strcat (fontsetname
, font_allcs
);
2036 strcat (fontsetname
, sep
);
2037 strcat (fontsetname
, font_allfamilies
);
2038 strcat (fontsetname
, sep
);
2039 strcat (fontsetname
, font_all
);
2043 strcat (fontsetname
, ":");
2047 #ifdef DEBUG_XIC_FONTSET
2049 print_fontset_result (xfs
, name
, missing_list
, missing_count
)
2052 char **missing_list
;
2056 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
2059 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
2060 while (missing_count
-- > 0)
2062 fprintf (stderr
, " missing: %s\n", *missing_list
);
2071 xic_create_xfontset (struct frame
*f
)
2073 XFontSet xfs
= NULL
;
2074 struct font
*font
= FRAME_FONT (f
);
2075 int pixel_size
= font
->pixel_size
;
2076 Lisp_Object rest
, frame
;
2078 /* See if there is another frame already using same fontset. */
2079 FOR_EACH_FRAME (rest
, frame
)
2081 struct frame
*cf
= XFRAME (frame
);
2083 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2084 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2086 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
2088 xfs
= FRAME_XIC_FONTSET (cf
);
2096 char **missing_list
;
2099 const char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
2101 sprintf (buf
, xlfd_format
, pixel_size
);
2102 missing_list
= NULL
;
2103 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2104 &missing_list
, &missing_count
, &def_string
);
2105 #ifdef DEBUG_XIC_FONTSET
2106 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2109 XFreeStringList (missing_list
);
2112 /* List of pixel sizes most likely available. Find one that
2113 is closest to pixel_size. */
2114 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2115 int *smaller
, *larger
;
2117 for (smaller
= sizes
; smaller
[1]; smaller
++)
2118 if (smaller
[1] >= pixel_size
)
2120 larger
= smaller
+ 1;
2121 if (*larger
== pixel_size
)
2123 while (*smaller
|| *larger
)
2128 this_size
= *smaller
--;
2129 else if (! *smaller
)
2130 this_size
= *larger
++;
2131 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
2132 this_size
= *smaller
--;
2134 this_size
= *larger
++;
2135 sprintf (buf
, xlfd_format
, this_size
);
2136 missing_list
= NULL
;
2137 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2138 &missing_list
, &missing_count
, &def_string
);
2139 #ifdef DEBUG_XIC_FONTSET
2140 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2143 XFreeStringList (missing_list
);
2150 char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
2152 missing_list
= NULL
;
2153 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
2154 &missing_list
, &missing_count
, &def_string
);
2155 #ifdef DEBUG_XIC_FONTSET
2156 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
2159 XFreeStringList (missing_list
);
2167 /* Free the X fontset of frame F if it is the last frame using it. */
2170 xic_free_xfontset (struct frame
*f
)
2172 Lisp_Object rest
, frame
;
2175 if (!FRAME_XIC_FONTSET (f
))
2178 /* See if there is another frame sharing the same fontset. */
2179 FOR_EACH_FRAME (rest
, frame
)
2181 struct frame
*cf
= XFRAME (frame
);
2182 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2183 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2184 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2192 /* The fontset is not used anymore. It is safe to free it. */
2193 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2195 if (FRAME_XIC_BASE_FONTNAME (f
))
2196 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2197 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2198 FRAME_XIC_FONTSET (f
) = NULL
;
2202 /* Value is the best input style, given user preferences USER (already
2203 checked to be supported by Emacs), and styles supported by the
2204 input method XIM. */
2207 best_xim_style (XIMStyles
*user
, XIMStyles
*xim
)
2211 for (i
= 0; i
< user
->count_styles
; ++i
)
2212 for (j
= 0; j
< xim
->count_styles
; ++j
)
2213 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2214 return user
->supported_styles
[i
];
2216 /* Return the default style. */
2217 return XIMPreeditNothing
| XIMStatusNothing
;
2220 /* Create XIC for frame F. */
2222 static XIMStyle xic_style
;
2225 create_frame_xic (struct frame
*f
)
2229 XFontSet xfs
= NULL
;
2234 /* Create X fontset. */
2235 xfs
= xic_create_xfontset (f
);
2236 xim
= FRAME_X_XIM (f
);
2241 XVaNestedList preedit_attr
;
2242 XVaNestedList status_attr
;
2244 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2245 spot
.x
= 0; spot
.y
= 1;
2247 /* Determine XIC style. */
2250 XIMStyles supported_list
;
2251 supported_list
.count_styles
= (sizeof supported_xim_styles
2252 / sizeof supported_xim_styles
[0]);
2253 supported_list
.supported_styles
= supported_xim_styles
;
2254 xic_style
= best_xim_style (&supported_list
,
2255 FRAME_X_XIM_STYLES (f
));
2258 preedit_attr
= XVaCreateNestedList (0,
2261 FRAME_FOREGROUND_PIXEL (f
),
2263 FRAME_BACKGROUND_PIXEL (f
),
2264 (xic_style
& XIMPreeditPosition
2269 status_attr
= XVaCreateNestedList (0,
2275 FRAME_FOREGROUND_PIXEL (f
),
2277 FRAME_BACKGROUND_PIXEL (f
),
2280 xic
= XCreateIC (xim
,
2281 XNInputStyle
, xic_style
,
2282 XNClientWindow
, FRAME_X_WINDOW (f
),
2283 XNFocusWindow
, FRAME_X_WINDOW (f
),
2284 XNStatusAttributes
, status_attr
,
2285 XNPreeditAttributes
, preedit_attr
,
2287 XFree (preedit_attr
);
2288 XFree (status_attr
);
2291 FRAME_XIC (f
) = xic
;
2292 FRAME_XIC_STYLE (f
) = xic_style
;
2293 FRAME_XIC_FONTSET (f
) = xfs
;
2297 /* Destroy XIC and free XIC fontset of frame F, if any. */
2300 free_frame_xic (struct frame
*f
)
2302 if (FRAME_XIC (f
) == NULL
)
2305 XDestroyIC (FRAME_XIC (f
));
2306 xic_free_xfontset (f
);
2308 FRAME_XIC (f
) = NULL
;
2312 /* Place preedit area for XIC of window W's frame to specified
2313 pixel position X/Y. X and Y are relative to window W. */
2316 xic_set_preeditarea (struct window
*w
, int x
, int y
)
2318 struct frame
*f
= XFRAME (w
->frame
);
2322 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2323 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2324 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2325 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2330 /* Place status area for XIC in bottom right corner of frame F.. */
2333 xic_set_statusarea (struct frame
*f
)
2335 XIC xic
= FRAME_XIC (f
);
2340 /* Negotiate geometry of status area. If input method has existing
2341 status area, use its current size. */
2342 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2343 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2344 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2347 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2348 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2351 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2353 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2354 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2358 area
.width
= needed
->width
;
2359 area
.height
= needed
->height
;
2360 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2361 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2362 - FRAME_MENUBAR_HEIGHT (f
)
2363 - FRAME_TOOLBAR_TOP_HEIGHT (f
)
2364 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2367 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2368 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2373 /* Set X fontset for XIC of frame F, using base font name
2374 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2377 xic_set_xfontset (struct frame
*f
, const char *base_fontname
)
2382 xic_free_xfontset (f
);
2384 xfs
= xic_create_xfontset (f
);
2386 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2387 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2388 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2389 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2390 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2393 FRAME_XIC_FONTSET (f
) = xfs
;
2396 #endif /* HAVE_X_I18N */
2400 #ifdef USE_X_TOOLKIT
2402 /* Create and set up the X widget for frame F. */
2405 x_window (struct frame
*f
, long window_prompting
, int minibuffer_only
)
2407 XClassHint class_hints
;
2408 XSetWindowAttributes attributes
;
2409 unsigned long attribute_mask
;
2410 Widget shell_widget
;
2412 Widget frame_widget
;
2418 /* Use the resource name as the top-level widget name
2419 for looking up resources. Make a non-Lisp copy
2420 for the window manager, so GC relocation won't bother it.
2422 Elsewhere we specify the window name for the window manager. */
2425 char *str
= (char *) SDATA (Vx_resource_name
);
2426 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2427 strcpy (f
->namebuf
, str
);
2431 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2432 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2433 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2434 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2435 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2436 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2437 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2438 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2439 applicationShellWidgetClass
,
2440 FRAME_X_DISPLAY (f
), al
, ac
);
2442 f
->output_data
.x
->widget
= shell_widget
;
2443 /* maybe_set_screen_title_format (shell_widget); */
2445 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2446 (widget_value
*) NULL
,
2447 shell_widget
, False
,
2451 (lw_callback
) NULL
);
2454 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2455 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2456 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2457 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2458 XtSetValues (pane_widget
, al
, ac
);
2459 f
->output_data
.x
->column_widget
= pane_widget
;
2461 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2462 the emacs screen when changing menubar. This reduces flickering. */
2465 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2466 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2467 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2468 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2469 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2470 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2471 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2472 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2473 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2474 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2477 f
->output_data
.x
->edit_widget
= frame_widget
;
2479 XtManageChild (frame_widget
);
2481 /* Do some needed geometry management. */
2484 char *tem
, shell_position
[32];
2487 int extra_borders
= 0;
2489 = (f
->output_data
.x
->menubar_widget
2490 ? (f
->output_data
.x
->menubar_widget
->core
.height
2491 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2494 #if 0 /* Experimentally, we now get the right results
2495 for -geometry -0-0 without this. 24 Aug 96, rms. */
2496 if (FRAME_EXTERNAL_MENU_BAR (f
))
2499 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2500 menubar_size
+= ibw
;
2504 f
->output_data
.x
->menubar_height
= menubar_size
;
2507 /* Motif seems to need this amount added to the sizes
2508 specified for the shell widget. The Athena/Lucid widgets don't.
2509 Both conclusions reached experimentally. -- rms. */
2510 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2511 &extra_borders
, NULL
);
2515 /* Convert our geometry parameters into a geometry string
2517 Note that we do not specify here whether the position
2518 is a user-specified or program-specified one.
2519 We pass that information later, in x_wm_set_size_hints. */
2521 int left
= f
->left_pos
;
2522 int xneg
= window_prompting
& XNegative
;
2523 int top
= f
->top_pos
;
2524 int yneg
= window_prompting
& YNegative
;
2530 if (window_prompting
& USPosition
)
2531 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2532 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2533 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2534 (xneg
? '-' : '+'), left
,
2535 (yneg
? '-' : '+'), top
);
2538 sprintf (shell_position
, "=%dx%d",
2539 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2540 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2542 /* Setting x and y when the position is not specified in
2543 the geometry string will set program position in the WM hints.
2544 If Emacs had just one program position, we could set it in
2545 fallback resources, but since each make-frame call can specify
2546 different program positions, this is easier. */
2547 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2548 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2552 len
= strlen (shell_position
) + 1;
2553 /* We don't free this because we don't know whether
2554 it is safe to free it while the frame exists.
2555 It isn't worth the trouble of arranging to free it
2556 when the frame is deleted. */
2557 tem
= (char *) xmalloc (len
);
2558 strncpy (tem
, shell_position
, len
);
2559 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2560 XtSetValues (shell_widget
, al
, ac
);
2563 XtManageChild (pane_widget
);
2564 XtRealizeWidget (shell_widget
);
2566 if (FRAME_X_EMBEDDED_P (f
))
2567 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2568 f
->output_data
.x
->parent_desc
, 0, 0);
2570 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2572 validate_x_resource_name ();
2574 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2575 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2576 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2579 FRAME_XIC (f
) = NULL
;
2581 create_frame_xic (f
);
2584 f
->output_data
.x
->wm_hints
.input
= True
;
2585 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2586 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2587 &f
->output_data
.x
->wm_hints
);
2589 hack_wm_protocols (f
, shell_widget
);
2592 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2595 /* Do a stupid property change to force the server to generate a
2596 PropertyNotify event so that the event_stream server timestamp will
2597 be initialized to something relevant to the time we created the window.
2599 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2600 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2601 XA_ATOM
, 32, PropModeAppend
,
2602 (unsigned char*) NULL
, 0);
2604 /* Make all the standard events reach the Emacs frame. */
2605 attributes
.event_mask
= STANDARD_EVENT_SET
;
2610 /* XIM server might require some X events. */
2611 unsigned long fevent
= NoEventMask
;
2612 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2613 attributes
.event_mask
|= fevent
;
2615 #endif /* HAVE_X_I18N */
2617 attribute_mask
= CWEventMask
;
2618 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2619 attribute_mask
, &attributes
);
2621 XtMapWidget (frame_widget
);
2623 /* x_set_name normally ignores requests to set the name if the
2624 requested name is the same as the current name. This is the one
2625 place where that assumption isn't correct; f->name is set, but
2626 the X server hasn't been told. */
2629 int explicit = f
->explicit_name
;
2631 f
->explicit_name
= 0;
2634 x_set_name (f
, name
, explicit);
2637 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2638 f
->output_data
.x
->current_cursor
2639 = f
->output_data
.x
->text_cursor
);
2643 /* This is a no-op, except under Motif. Make sure main areas are
2644 set to something reasonable, in case we get an error later. */
2645 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2648 #else /* not USE_X_TOOLKIT */
2651 x_window (FRAME_PTR f
)
2653 if (! xg_create_frame_widgets (f
))
2654 error ("Unable to create window");
2657 FRAME_XIC (f
) = NULL
;
2661 create_frame_xic (f
);
2664 /* XIM server might require some X events. */
2665 unsigned long fevent
= NoEventMask
;
2666 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2668 if (fevent
!= NoEventMask
)
2670 XSetWindowAttributes attributes
;
2671 XWindowAttributes wattr
;
2672 unsigned long attribute_mask
;
2674 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2676 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2677 attribute_mask
= CWEventMask
;
2678 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2679 attribute_mask
, &attributes
);
2687 #else /*! USE_GTK */
2688 /* Create and set up the X window for frame F. */
2691 x_window (struct frame
*f
)
2693 XClassHint class_hints
;
2694 XSetWindowAttributes attributes
;
2695 unsigned long attribute_mask
;
2697 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2698 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2699 attributes
.bit_gravity
= StaticGravity
;
2700 attributes
.backing_store
= NotUseful
;
2701 attributes
.save_under
= True
;
2702 attributes
.event_mask
= STANDARD_EVENT_SET
;
2703 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2704 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2709 = XCreateWindow (FRAME_X_DISPLAY (f
),
2710 f
->output_data
.x
->parent_desc
,
2713 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2715 CopyFromParent
, /* depth */
2716 InputOutput
, /* class */
2718 attribute_mask
, &attributes
);
2723 create_frame_xic (f
);
2726 /* XIM server might require some X events. */
2727 unsigned long fevent
= NoEventMask
;
2728 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2729 attributes
.event_mask
|= fevent
;
2730 attribute_mask
= CWEventMask
;
2731 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2732 attribute_mask
, &attributes
);
2735 #endif /* HAVE_X_I18N */
2737 validate_x_resource_name ();
2739 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2740 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2741 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2743 /* The menubar is part of the ordinary display;
2744 it does not count in addition to the height of the window. */
2745 f
->output_data
.x
->menubar_height
= 0;
2747 /* This indicates that we use the "Passive Input" input model.
2748 Unless we do this, we don't get the Focus{In,Out} events that we
2749 need to draw the cursor correctly. Accursed bureaucrats.
2750 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2752 f
->output_data
.x
->wm_hints
.input
= True
;
2753 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2754 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2755 &f
->output_data
.x
->wm_hints
);
2756 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2758 /* Request "save yourself" and "delete window" commands from wm. */
2761 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2762 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2763 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2766 /* x_set_name normally ignores requests to set the name if the
2767 requested name is the same as the current name. This is the one
2768 place where that assumption isn't correct; f->name is set, but
2769 the X server hasn't been told. */
2772 int explicit = f
->explicit_name
;
2774 f
->explicit_name
= 0;
2777 x_set_name (f
, name
, explicit);
2780 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2781 f
->output_data
.x
->current_cursor
2782 = f
->output_data
.x
->text_cursor
);
2786 if (FRAME_X_WINDOW (f
) == 0)
2787 error ("Unable to create window");
2790 #endif /* not USE_GTK */
2791 #endif /* not USE_X_TOOLKIT */
2793 /* Verify that the icon position args for this window are valid. */
2796 x_icon_verify (struct frame
*f
, Lisp_Object parms
)
2798 Lisp_Object icon_x
, icon_y
;
2800 /* Set the position of the icon. Note that twm groups all
2801 icons in an icon window. */
2802 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2803 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2804 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2806 CHECK_NUMBER (icon_x
);
2807 CHECK_NUMBER (icon_y
);
2809 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2810 error ("Both left and top icon corners of icon must be specified");
2813 /* Handle the icon stuff for this window. Perhaps later we might
2814 want an x_set_icon_position which can be called interactively as
2818 x_icon (struct frame
*f
, Lisp_Object parms
)
2820 Lisp_Object icon_x
, icon_y
;
2822 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2825 /* Set the position of the icon. Note that twm groups all
2826 icons in an icon window. */
2827 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2828 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2829 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2831 CHECK_NUMBER (icon_x
);
2832 CHECK_NUMBER (icon_y
);
2834 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2835 error ("Both left and top icon corners of icon must be specified");
2839 if (! EQ (icon_x
, Qunbound
))
2840 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2842 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2843 but x_create_frame still needs it. */
2844 /* Start up iconic or window? */
2845 x_wm_set_window_state
2846 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2852 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2859 /* Make the GCs needed for this window, setting the
2860 background, border and mouse colors; also create the
2861 mouse cursor and the gray border tile. */
2864 x_make_gc (struct frame
*f
)
2866 XGCValues gc_values
;
2870 /* Create the GCs of this frame.
2871 Note that many default values are used. */
2873 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2874 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2875 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2876 f
->output_data
.x
->normal_gc
2877 = XCreateGC (FRAME_X_DISPLAY (f
),
2879 GCLineWidth
| GCForeground
| GCBackground
,
2882 /* Reverse video style. */
2883 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2884 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2885 f
->output_data
.x
->reverse_gc
2886 = XCreateGC (FRAME_X_DISPLAY (f
),
2888 GCForeground
| GCBackground
| GCLineWidth
,
2891 /* Cursor has cursor-color background, background-color foreground. */
2892 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2893 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2894 gc_values
.fill_style
= FillOpaqueStippled
;
2895 f
->output_data
.x
->cursor_gc
2896 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2897 (GCForeground
| GCBackground
2898 | GCFillStyle
| GCLineWidth
),
2902 f
->output_data
.x
->white_relief
.gc
= 0;
2903 f
->output_data
.x
->black_relief
.gc
= 0;
2905 /* Create the gray border tile used when the pointer is not in
2906 the frame. Since this depends on the frame's pixel values,
2907 this must be done on a per-frame basis. */
2908 f
->output_data
.x
->border_tile
2909 = (XCreatePixmapFromBitmapData
2910 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2911 gray_bits
, gray_width
, gray_height
,
2912 FRAME_FOREGROUND_PIXEL (f
),
2913 FRAME_BACKGROUND_PIXEL (f
),
2914 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2920 /* Free what was allocated in x_make_gc. */
2923 x_free_gcs (struct frame
*f
)
2925 Display
*dpy
= FRAME_X_DISPLAY (f
);
2929 if (f
->output_data
.x
->normal_gc
)
2931 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2932 f
->output_data
.x
->normal_gc
= 0;
2935 if (f
->output_data
.x
->reverse_gc
)
2937 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2938 f
->output_data
.x
->reverse_gc
= 0;
2941 if (f
->output_data
.x
->cursor_gc
)
2943 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2944 f
->output_data
.x
->cursor_gc
= 0;
2947 if (f
->output_data
.x
->border_tile
)
2949 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2950 f
->output_data
.x
->border_tile
= 0;
2957 /* Handler for signals raised during x_create_frame and
2958 x_create_top_frame. FRAME is the frame which is partially
2962 unwind_create_frame (Lisp_Object frame
)
2964 struct frame
*f
= XFRAME (frame
);
2966 /* If frame is already dead, nothing to do. This can happen if the
2967 display is disconnected after the frame has become official, but
2968 before x_create_frame removes the unwind protect. */
2969 if (!FRAME_LIVE_P (f
))
2972 /* If frame is ``official'', nothing to do. */
2973 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2976 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2979 x_free_frame_resources (f
);
2982 /* Check that reference counts are indeed correct. */
2983 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2984 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2994 x_default_font_parameter (struct frame
*f
, Lisp_Object parms
)
2996 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2997 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
2999 Lisp_Object font
= Qnil
;
3000 if (EQ (font_param
, Qunbound
))
3003 if (NILP (font_param
))
3005 /* System font should take precedendce over X resources. We suggest this
3006 regardless of font-use-system-font because .emacs may not have been
3008 const char *system_font
= xsettings_get_system_font ();
3011 char *name
= xstrdup (system_font
);
3012 font
= font_open_by_name (f
, name
);
3018 font
= !NILP (font_param
) ? font_param
3019 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3021 if (! FONTP (font
) && ! STRINGP (font
))
3026 /* This will find the normal Xft font. */
3029 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
3030 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3031 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3032 /* This was formerly the first thing tried, but it finds
3033 too many fonts and takes too long. */
3034 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
3035 /* If those didn't work, look for something which will
3037 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
3042 for (i
= 0; names
[i
]; i
++)
3044 font
= font_open_by_name (f
, names
[i
]);
3049 error ("No suitable font was found");
3051 else if (!NILP (font_param
))
3053 /* Remember the explicit font parameter, so we can re-apply it after
3054 we've applied the `default' face settings. */
3055 x_set_frame_parameters (f
, Fcons (Fcons (Qfont_param
, font_param
), Qnil
));
3058 /* This call will make X resources override any system font setting. */
3059 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
3063 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
3065 doc
: /* Send the size hints for frame FRAME to the window manager.
3066 If FRAME is nil, use the selected frame. */)
3071 frame
= selected_frame
;
3075 x_wm_set_size_hint (f
, 0, 0);
3081 set_machine_and_pid_properties (struct frame
*f
)
3083 /* See the above comment "Note: Encoding strategy". */
3086 int do_free_text_value
= 0;
3087 long pid
= (long) getpid ();
3089 text
.value
= x_encode_text (Vsystem_name
,
3090 Qcompound_text
, 0, &bytes
, &stringp
,
3091 &do_free_text_value
);
3092 text
.encoding
= (stringp
? XA_STRING
3093 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
3095 text
.nitems
= bytes
;
3096 XSetWMClientMachine (FRAME_X_DISPLAY (f
),
3097 FRAME_OUTER_WINDOW (f
),
3099 if (do_free_text_value
)
3102 XChangeProperty (FRAME_X_DISPLAY (f
),
3103 FRAME_OUTER_WINDOW (f
),
3104 XInternAtom (FRAME_X_DISPLAY (f
),
3107 XA_CARDINAL
, 32, PropModeReplace
,
3108 (unsigned char *) &pid
, 1);
3111 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3113 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3114 Return an Emacs frame object.
3115 PARMS is an alist of frame parameters.
3116 If the parameters specify that the frame should not have a minibuffer,
3117 and do not specify a specific minibuffer window to use,
3118 then `default-minibuffer-frame' must be a frame whose minibuffer can
3119 be shared by the new frame.
3121 This function is an internal primitive--use `make-frame' instead. */)
3125 Lisp_Object frame
, tem
;
3127 int minibuffer_only
= 0;
3128 long window_prompting
= 0;
3130 int count
= SPECPDL_INDEX ();
3131 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3132 Lisp_Object display
;
3133 struct x_display_info
*dpyinfo
= NULL
;
3137 parms
= Fcopy_alist (parms
);
3139 /* Use this general default value to start with
3140 until we know if this frame has a specified name. */
3141 Vx_resource_name
= Vinvocation_name
;
3143 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3144 if (EQ (display
, Qunbound
))
3145 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3146 if (EQ (display
, Qunbound
))
3148 dpyinfo
= check_x_display_info (display
);
3149 kb
= dpyinfo
->terminal
->kboard
;
3151 if (!dpyinfo
->terminal
->name
)
3152 error ("Terminal is not live, can't create new frames on it");
3154 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3156 && ! EQ (name
, Qunbound
)
3158 error ("Invalid frame name--not a string or nil");
3161 Vx_resource_name
= name
;
3163 /* See if parent window is specified. */
3164 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3165 if (EQ (parent
, Qunbound
))
3167 if (! NILP (parent
))
3168 CHECK_NUMBER (parent
);
3170 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3171 /* No need to protect DISPLAY because that's not used after passing
3172 it to make_frame_without_minibuffer. */
3174 GCPRO4 (parms
, parent
, name
, frame
);
3175 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3177 if (EQ (tem
, Qnone
) || NILP (tem
))
3178 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3179 else if (EQ (tem
, Qonly
))
3181 f
= make_minibuffer_frame ();
3182 minibuffer_only
= 1;
3184 else if (WINDOWP (tem
))
3185 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3189 XSETFRAME (frame
, f
);
3191 /* Note that X Windows does support scroll bars. */
3192 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3194 f
->terminal
= dpyinfo
->terminal
;
3195 f
->terminal
->reference_count
++;
3197 f
->output_method
= output_x_window
;
3198 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3199 memset (f
->output_data
.x
, 0, sizeof (struct x_output
));
3200 f
->output_data
.x
->icon_bitmap
= -1;
3201 FRAME_FONTSET (f
) = -1;
3202 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3203 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3204 #ifdef USE_TOOLKIT_SCROLL_BARS
3205 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3206 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3207 #endif /* USE_TOOLKIT_SCROLL_BARS */
3210 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3212 if (! STRINGP (f
->icon_name
))
3213 f
->icon_name
= Qnil
;
3215 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3217 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3218 record_unwind_protect (unwind_create_frame
, frame
);
3220 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
3221 dpyinfo_refcount
= dpyinfo
->reference_count
;
3222 #endif /* GLYPH_DEBUG */
3224 /* These colors will be set anyway later, but it's important
3225 to get the color reference counts right, so initialize them! */
3228 struct gcpro gcpro1
;
3230 /* Function x_decode_color can signal an error. Make
3231 sure to initialize color slots so that we won't try
3232 to free colors we haven't allocated. */
3233 FRAME_FOREGROUND_PIXEL (f
) = -1;
3234 FRAME_BACKGROUND_PIXEL (f
) = -1;
3235 f
->output_data
.x
->cursor_pixel
= -1;
3236 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3237 f
->output_data
.x
->border_pixel
= -1;
3238 f
->output_data
.x
->mouse_pixel
= -1;
3240 black
= build_string ("black");
3242 FRAME_FOREGROUND_PIXEL (f
)
3243 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3244 FRAME_BACKGROUND_PIXEL (f
)
3245 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3246 f
->output_data
.x
->cursor_pixel
3247 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3248 f
->output_data
.x
->cursor_foreground_pixel
3249 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3250 f
->output_data
.x
->border_pixel
3251 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3252 f
->output_data
.x
->mouse_pixel
3253 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3257 /* Specify the parent under which to make this X window. */
3261 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3262 f
->output_data
.x
->explicit_parent
= 1;
3266 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3267 f
->output_data
.x
->explicit_parent
= 0;
3270 /* Set the name; the functions to which we pass f expect the name to
3272 if (EQ (name
, Qunbound
) || NILP (name
))
3274 f
->name
= build_string (dpyinfo
->x_id_name
);
3275 f
->explicit_name
= 0;
3280 f
->explicit_name
= 1;
3281 /* use the frame's title when getting resources for this frame. */
3282 specbind (Qx_resource_name
, name
);
3285 f
->resx
= dpyinfo
->resx
;
3286 f
->resy
= dpyinfo
->resy
;
3288 #ifdef HAVE_FREETYPE
3290 register_font_driver (&xftfont_driver
, f
);
3291 #else /* not HAVE_XFT */
3292 register_font_driver (&ftxfont_driver
, f
);
3293 #endif /* not HAVE_XFT */
3294 #endif /* HAVE_FREETYPE */
3295 register_font_driver (&xfont_driver
, f
);
3297 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3298 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3300 /* Extract the window parameters from the supplied values
3301 that are needed to determine window geometry. */
3302 x_default_font_parameter (f
, parms
);
3303 if (!FRAME_FONT (f
))
3305 delete_frame (frame
, Qnoelisp
);
3306 error ("Invalid frame font");
3309 /* Frame contents get displaced if an embedded X window has a border. */
3310 if (! FRAME_X_EMBEDDED_P (f
))
3311 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
3312 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3314 /* This defaults to 1 in order to match xterm. We recognize either
3315 internalBorderWidth or internalBorder (which is what xterm calls
3317 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3321 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3322 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3323 if (! EQ (value
, Qunbound
))
3324 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3327 x_default_parameter (f
, parms
, Qinternal_border_width
,
3328 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3333 "internalBorderWidth", "internalBorderWidth",
3335 x_default_parameter (f
, parms
, Qvertical_scroll_bars
,
3336 #if defined(USE_GTK) && defined(USE_TOOLKIT_SCROLL_BARS)
3341 "verticalScrollBars", "ScrollBars",
3344 /* Also do the stuff which must be set before the window exists. */
3345 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3346 "foreground", "Foreground", RES_TYPE_STRING
);
3347 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3348 "background", "Background", RES_TYPE_STRING
);
3349 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3350 "pointerColor", "Foreground", RES_TYPE_STRING
);
3351 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3352 "cursorColor", "Foreground", RES_TYPE_STRING
);
3353 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3354 "borderColor", "BorderColor", RES_TYPE_STRING
);
3355 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3356 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3357 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3358 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3359 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3360 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3361 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3362 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3364 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3365 "scrollBarForeground",
3366 "ScrollBarForeground", 1);
3367 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3368 "scrollBarBackground",
3369 "ScrollBarBackground", 0);
3371 /* Init faces before x_default_parameter is called for scroll-bar
3372 parameters because that function calls x_set_scroll_bar_width,
3373 which calls change_frame_size, which calls Fset_window_buffer,
3374 which runs hooks, which call Fvertical_motion. At the end, we
3375 end up in init_iterator with a null face cache, which should not
3377 init_frame_faces (f
);
3379 /* The X resources controlling the menu-bar and tool-bar are
3380 processed specially at startup, and reflected in the mode
3381 variables; ignore them here. */
3382 x_default_parameter (f
, parms
, Qmenu_bar_lines
,
3383 NILP (Vmenu_bar_mode
)
3384 ? make_number (0) : make_number (1),
3385 NULL
, NULL
, RES_TYPE_NUMBER
);
3386 x_default_parameter (f
, parms
, Qtool_bar_lines
,
3387 NILP (Vtool_bar_mode
)
3388 ? make_number (0) : make_number (1),
3389 NULL
, NULL
, RES_TYPE_NUMBER
);
3391 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3392 "bufferPredicate", "BufferPredicate",
3394 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3395 "title", "Title", RES_TYPE_STRING
);
3396 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3397 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3398 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3399 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3401 /* Compute the size of the X window. */
3402 window_prompting
= x_figure_window_size (f
, parms
, 1);
3404 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3405 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3407 x_icon_verify (f
, parms
);
3409 /* Create the X widget or window. */
3410 #ifdef USE_X_TOOLKIT
3411 x_window (f
, window_prompting
, minibuffer_only
);
3419 /* Now consider the frame official. */
3420 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3421 Vframe_list
= Fcons (frame
, Vframe_list
);
3423 /* We need to do this after creating the X window, so that the
3424 icon-creation functions can say whose icon they're describing. */
3425 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3426 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3428 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3429 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3430 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3431 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3432 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3433 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3434 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3435 "scrollBarWidth", "ScrollBarWidth",
3437 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3438 "alpha", "Alpha", RES_TYPE_NUMBER
);
3440 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3441 Change will not be effected unless different from the current
3443 width
= FRAME_COLS (f
);
3444 height
= FRAME_LINES (f
);
3446 SET_FRAME_COLS (f
, 0);
3447 FRAME_LINES (f
) = 0;
3448 change_frame_size (f
, height
, width
, 1, 0, 0);
3450 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3451 /* Create the menu bar. */
3452 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3454 /* If this signals an error, we haven't set size hints for the
3455 frame and we didn't make it visible. */
3456 initialize_frame_menubar (f
);
3459 /* This is a no-op, except under Motif where it arranges the
3460 main window for the widgets on it. */
3461 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3462 f
->output_data
.x
->menubar_widget
,
3463 f
->output_data
.x
->edit_widget
);
3464 #endif /* not USE_GTK */
3466 #endif /* USE_X_TOOLKIT || USE_GTK */
3468 /* Tell the server what size and position, etc, we want, and how
3469 badly we want them. This should be done after we have the menu
3470 bar so that its size can be taken into account. */
3472 x_wm_set_size_hint (f
, window_prompting
, 0);
3475 /* Make the window appear on the frame and enable display, unless
3476 the caller says not to. However, with explicit parent, Emacs
3477 cannot control visibility, so don't try. */
3478 if (! f
->output_data
.x
->explicit_parent
)
3480 Lisp_Object visibility
;
3482 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3484 if (EQ (visibility
, Qunbound
))
3487 if (EQ (visibility
, Qicon
))
3488 x_iconify_frame (f
);
3489 else if (! NILP (visibility
))
3490 x_make_frame_visible (f
);
3492 /* Must have been Qnil. */
3498 /* Set machine name and pid for the purpose of window managers. */
3499 set_machine_and_pid_properties(f
);
3501 /* Set the WM leader property. GTK does this itself, so this is not
3502 needed when using GTK. */
3503 if (dpyinfo
->client_leader_window
!= 0)
3505 XChangeProperty (FRAME_X_DISPLAY (f
),
3506 FRAME_OUTER_WINDOW (f
),
3507 dpyinfo
->Xatom_wm_client_leader
,
3508 XA_WINDOW
, 32, PropModeReplace
,
3509 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3514 /* Initialize `default-minibuffer-frame' in case this is the first
3515 frame on this terminal. */
3516 if (FRAME_HAS_MINIBUF_P (f
)
3517 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3518 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3519 kb
->Vdefault_minibuffer_frame
= frame
;
3521 /* All remaining specified parameters, which have not been "used"
3522 by x_get_arg and friends, now go in the misc. alist of the frame. */
3523 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3524 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3525 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3529 /* Make sure windows on this frame appear in calls to next-window
3530 and similar functions. */
3531 Vwindow_list
= Qnil
;
3533 return unbind_to (count
, frame
);
3537 /* FRAME is used only to get a handle on the X display. We don't pass the
3538 display info directly because we're called from frame.c, which doesn't
3539 know about that structure. */
3542 x_get_focus_frame (struct frame
*frame
)
3544 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3546 if (! dpyinfo
->x_focus_frame
)
3549 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3554 /* In certain situations, when the window manager follows a
3555 click-to-focus policy, there seems to be no way around calling
3556 XSetInputFocus to give another frame the input focus .
3558 In an ideal world, XSetInputFocus should generally be avoided so
3559 that applications don't interfere with the window manager's focus
3560 policy. But I think it's okay to use when it's clearly done
3561 following a user-command. */
3563 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3564 doc
: /* Set the input focus to FRAME.
3565 FRAME nil means use the selected frame. */)
3568 struct frame
*f
= check_x_frame (frame
);
3569 Display
*dpy
= FRAME_X_DISPLAY (f
);
3572 x_catch_errors (dpy
);
3573 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3574 RevertToParent
, CurrentTime
);
3575 x_ewmh_activate_frame (f
);
3576 x_uncatch_errors ();
3583 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3584 doc
: /* Internal function called by `color-defined-p', which see. */)
3585 (Lisp_Object color
, Lisp_Object frame
)
3588 FRAME_PTR f
= check_x_frame (frame
);
3590 CHECK_STRING (color
);
3592 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3598 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3599 doc
: /* Internal function called by `color-values', which see. */)
3600 (Lisp_Object color
, Lisp_Object frame
)
3603 FRAME_PTR f
= check_x_frame (frame
);
3605 CHECK_STRING (color
);
3607 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3608 return list3 (make_number (foo
.red
),
3609 make_number (foo
.green
),
3610 make_number (foo
.blue
));
3615 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3616 doc
: /* Internal function called by `display-color-p', which see. */)
3617 (Lisp_Object terminal
)
3619 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3621 if (dpyinfo
->n_planes
<= 2)
3624 switch (dpyinfo
->visual
->class)
3637 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3639 doc
: /* Return t if the X display supports shades of gray.
3640 Note that color displays do support shades of gray.
3641 The optional argument TERMINAL specifies which display to ask about.
3642 TERMINAL should be a terminal object, a frame or a display name (a string).
3643 If omitted or nil, that stands for the selected frame's display. */)
3644 (Lisp_Object terminal
)
3646 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3648 if (dpyinfo
->n_planes
<= 1)
3651 switch (dpyinfo
->visual
->class)
3666 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3668 doc
: /* Return the width in pixels of the X display TERMINAL.
3669 The optional argument TERMINAL specifies which display to ask about.
3670 TERMINAL should be a terminal object, a frame or a display name (a string).
3671 If omitted or nil, that stands for the selected frame's display. */)
3672 (Lisp_Object terminal
)
3674 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3676 return make_number (x_display_pixel_width (dpyinfo
));
3679 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3680 Sx_display_pixel_height
, 0, 1, 0,
3681 doc
: /* Return the height in pixels of the X display TERMINAL.
3682 The optional argument TERMINAL specifies which display to ask about.
3683 TERMINAL should be a terminal object, a frame or a display name (a string).
3684 If omitted or nil, that stands for the selected frame's display. */)
3685 (Lisp_Object terminal
)
3687 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3689 return make_number (x_display_pixel_height (dpyinfo
));
3692 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3694 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3695 The optional argument TERMINAL specifies which display to ask about.
3696 TERMINAL should be a terminal object, a frame or a display name (a string).
3697 If omitted or nil, that stands for the selected frame's display. */)
3698 (Lisp_Object terminal
)
3700 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3702 return make_number (dpyinfo
->n_planes
);
3705 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3707 doc
: /* Return the number of color cells of the X display TERMINAL.
3708 The optional argument TERMINAL specifies which display to ask about.
3709 TERMINAL should be a terminal object, a frame or a display name (a string).
3710 If omitted or nil, that stands for the selected frame's display. */)
3711 (Lisp_Object terminal
)
3713 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3715 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3716 XScreenNumberOfScreen (dpyinfo
->screen
));
3718 /* Truncate nr_planes to 24 to avoid integer overflow.
3719 Some displays says 32, but only 24 bits are actually significant.
3720 There are only very few and rare video cards that have more than
3721 24 significant bits. Also 24 bits is more than 16 million colors,
3722 it "should be enough for everyone". */
3723 if (nr_planes
> 24) nr_planes
= 24;
3725 return make_number (1 << nr_planes
);
3728 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3729 Sx_server_max_request_size
,
3731 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3732 The optional argument TERMINAL specifies which display to ask about.
3733 TERMINAL should be a terminal object, a frame or a display name (a string).
3734 If omitted or nil, that stands for the selected frame's display. */)
3735 (Lisp_Object terminal
)
3737 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3739 return make_number (MAXREQUEST (dpyinfo
->display
));
3742 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3743 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3744 \(Labelling every distributor as a "vendor" embodies the false assumption
3745 that operating systems cannot be developed and distributed noncommercially.)
3746 The optional argument TERMINAL specifies which display to ask about.
3747 TERMINAL should be a terminal object, a frame or a display name (a string).
3748 If omitted or nil, that stands for the selected frame's display. */)
3749 (Lisp_Object terminal
)
3751 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3752 char *vendor
= ServerVendor (dpyinfo
->display
);
3754 if (! vendor
) vendor
= "";
3755 return build_string (vendor
);
3758 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3759 doc
: /* Return the version numbers of the X server of display TERMINAL.
3760 The value is a list of three integers: the major and minor
3761 version numbers of the X Protocol in use, and the distributor-specific release
3762 number. See also the function `x-server-vendor'.
3764 The optional argument TERMINAL specifies which display to ask about.
3765 TERMINAL should be a terminal object, a frame or a display name (a string).
3766 If omitted or nil, that stands for the selected frame's display. */)
3767 (Lisp_Object terminal
)
3769 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3770 Display
*dpy
= dpyinfo
->display
;
3772 return Fcons (make_number (ProtocolVersion (dpy
)),
3773 Fcons (make_number (ProtocolRevision (dpy
)),
3774 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3777 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3778 doc
: /* Return the number of screens on the X server of display TERMINAL.
3779 The optional argument TERMINAL specifies which display to ask about.
3780 TERMINAL should be a terminal object, a frame or a display name (a string).
3781 If omitted or nil, that stands for the selected frame's display. */)
3782 (Lisp_Object terminal
)
3784 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3786 return make_number (ScreenCount (dpyinfo
->display
));
3789 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3790 doc
: /* Return the height in millimeters of the X display TERMINAL.
3791 The optional argument TERMINAL specifies which display to ask about.
3792 TERMINAL should be a terminal object, a frame or a display name (a string).
3793 If omitted or nil, that stands for the selected frame's display. */)
3794 (Lisp_Object terminal
)
3796 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3798 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3801 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3802 doc
: /* Return the width in millimeters of the X display TERMINAL.
3803 The optional argument TERMINAL specifies which display to ask about.
3804 TERMINAL should be a terminal object, a frame or a display name (a string).
3805 If omitted or nil, that stands for the selected frame's display. */)
3806 (Lisp_Object terminal
)
3808 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3810 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3813 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3814 Sx_display_backing_store
, 0, 1, 0,
3815 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3816 The value may be `always', `when-mapped', or `not-useful'.
3817 The optional argument TERMINAL specifies which display to ask about.
3818 TERMINAL should be a terminal object, a frame or a display name (a string).
3819 If omitted or nil, that stands for the selected frame's display. */)
3820 (Lisp_Object terminal
)
3822 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3825 switch (DoesBackingStore (dpyinfo
->screen
))
3828 result
= intern ("always");
3832 result
= intern ("when-mapped");
3836 result
= intern ("not-useful");
3840 error ("Strange value for BackingStore parameter of screen");
3847 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3848 Sx_display_visual_class
, 0, 1, 0,
3849 doc
: /* Return the visual class of the X display TERMINAL.
3850 The value is one of the symbols `static-gray', `gray-scale',
3851 `static-color', `pseudo-color', `true-color', or `direct-color'.
3853 The optional argument TERMINAL specifies which display to ask about.
3854 TERMINAL should a terminal object, a frame or a display name (a string).
3855 If omitted or nil, that stands for the selected frame's display. */)
3856 (Lisp_Object terminal
)
3858 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3861 switch (dpyinfo
->visual
->class)
3864 result
= intern ("static-gray");
3867 result
= intern ("gray-scale");
3870 result
= intern ("static-color");
3873 result
= intern ("pseudo-color");
3876 result
= intern ("true-color");
3879 result
= intern ("direct-color");
3882 error ("Display has an unknown visual class");
3889 DEFUN ("x-display-save-under", Fx_display_save_under
,
3890 Sx_display_save_under
, 0, 1, 0,
3891 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3892 The optional argument TERMINAL specifies which display to ask about.
3893 TERMINAL should be a terminal object, a frame or a display name (a string).
3894 If omitted or nil, that stands for the selected frame's display. */)
3895 (Lisp_Object terminal
)
3897 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3899 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3906 x_pixel_width (register struct frame
*f
)
3908 return FRAME_PIXEL_WIDTH (f
);
3912 x_pixel_height (register struct frame
*f
)
3914 return FRAME_PIXEL_HEIGHT (f
);
3918 x_char_width (register struct frame
*f
)
3920 return FRAME_COLUMN_WIDTH (f
);
3924 x_char_height (register struct frame
*f
)
3926 return FRAME_LINE_HEIGHT (f
);
3930 x_screen_planes (register struct frame
*f
)
3932 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3937 /************************************************************************
3939 ************************************************************************/
3942 /* Mapping visual names to visuals. */
3944 static struct visual_class
3951 {"StaticGray", StaticGray
},
3952 {"GrayScale", GrayScale
},
3953 {"StaticColor", StaticColor
},
3954 {"PseudoColor", PseudoColor
},
3955 {"TrueColor", TrueColor
},
3956 {"DirectColor", DirectColor
},
3961 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3963 /* Value is the screen number of screen SCR. This is a substitute for
3964 the X function with the same name when that doesn't exist. */
3967 XScreenNumberOfScreen (scr
)
3968 register Screen
*scr
;
3970 Display
*dpy
= scr
->display
;
3973 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3974 if (scr
== dpy
->screens
+ i
)
3980 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3983 /* Select the visual that should be used on display DPYINFO. Set
3984 members of DPYINFO appropriately. Called from x_term_init. */
3987 select_visual (struct x_display_info
*dpyinfo
)
3989 Display
*dpy
= dpyinfo
->display
;
3990 Screen
*screen
= dpyinfo
->screen
;
3993 /* See if a visual is specified. */
3994 value
= display_x_get_resource (dpyinfo
,
3995 build_string ("visualClass"),
3996 build_string ("VisualClass"),
3998 if (STRINGP (value
))
4000 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
4001 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4002 depth, a decimal number. NAME is compared with case ignored. */
4003 char *s
= (char *) alloca (SBYTES (value
) + 1);
4008 strcpy (s
, SDATA (value
));
4009 dash
= strchr (s
, '-');
4012 dpyinfo
->n_planes
= atoi (dash
+ 1);
4016 /* We won't find a matching visual with depth 0, so that
4017 an error will be printed below. */
4018 dpyinfo
->n_planes
= 0;
4020 /* Determine the visual class. */
4021 for (i
= 0; visual_classes
[i
].name
; ++i
)
4022 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4024 class = visual_classes
[i
].class;
4028 /* Look up a matching visual for the specified class. */
4030 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4031 dpyinfo
->n_planes
, class, &vinfo
))
4032 fatal ("Invalid visual specification `%s'", SDATA (value
));
4034 dpyinfo
->visual
= vinfo
.visual
;
4039 XVisualInfo
*vinfo
, vinfo_template
;
4041 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4043 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4044 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4045 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4046 &vinfo_template
, &n_visuals
);
4048 fatal ("Can't get proper X visual info");
4050 dpyinfo
->n_planes
= vinfo
->depth
;
4051 XFree ((char *) vinfo
);
4056 /* Return the X display structure for the display named NAME.
4057 Open a new connection if necessary. */
4059 struct x_display_info
*
4060 x_display_info_for_name (Lisp_Object name
)
4063 struct x_display_info
*dpyinfo
;
4065 CHECK_STRING (name
);
4068 if (! EQ (Vinitial_window_system
, intern ("x")))
4069 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4072 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4074 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4077 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4082 /* Use this general default value to start with. */
4083 Vx_resource_name
= Vinvocation_name
;
4085 validate_x_resource_name ();
4087 dpyinfo
= x_term_init (name
, (char *)0,
4088 (char *) SDATA (Vx_resource_name
));
4091 error ("Cannot connect to X server %s", SDATA (name
));
4094 XSETFASTINT (Vwindow_system_version
, 11);
4100 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4102 doc
: /* Open a connection to an X server.
4103 DISPLAY is the name of the display to connect to.
4104 Optional second arg XRM-STRING is a string of resources in xrdb format.
4105 If the optional third arg MUST-SUCCEED is non-nil,
4106 terminate Emacs if we can't open the connection. */)
4107 (Lisp_Object display
, Lisp_Object xrm_string
, Lisp_Object must_succeed
)
4109 unsigned char *xrm_option
;
4110 struct x_display_info
*dpyinfo
;
4112 CHECK_STRING (display
);
4113 if (! NILP (xrm_string
))
4114 CHECK_STRING (xrm_string
);
4117 if (! EQ (Vinitial_window_system
, intern ("x")))
4118 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4121 if (! NILP (xrm_string
))
4122 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4124 xrm_option
= (unsigned char *) 0;
4126 validate_x_resource_name ();
4128 /* This is what opens the connection and sets x_current_display.
4129 This also initializes many symbols, such as those used for input. */
4130 dpyinfo
= x_term_init (display
, xrm_option
,
4131 (char *) SDATA (Vx_resource_name
));
4135 if (!NILP (must_succeed
))
4136 fatal ("Cannot connect to X server %s.\n\
4137 Check the DISPLAY environment variable or use `-d'.\n\
4138 Also use the `xauth' program to verify that you have the proper\n\
4139 authorization information needed to connect the X server.\n\
4140 An insecure way to solve the problem may be to use `xhost'.\n",
4143 error ("Cannot connect to X server %s", SDATA (display
));
4148 XSETFASTINT (Vwindow_system_version
, 11);
4152 DEFUN ("x-close-connection", Fx_close_connection
,
4153 Sx_close_connection
, 1, 1, 0,
4154 doc
: /* Close the connection to TERMINAL's X server.
4155 For TERMINAL, specify a terminal object, a frame or a display name (a
4156 string). If TERMINAL is nil, that stands for the selected frame's
4158 (Lisp_Object terminal
)
4160 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4162 if (dpyinfo
->reference_count
> 0)
4163 error ("Display still has frames on it");
4165 x_delete_terminal (dpyinfo
->terminal
);
4170 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4171 doc
: /* Return the list of display names that Emacs has connections to. */)
4174 Lisp_Object tail
, result
;
4177 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4178 result
= Fcons (XCAR (XCAR (tail
)), result
);
4183 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4184 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4185 If ON is nil, allow buffering of requests.
4186 Turning on synchronization prohibits the Xlib routines from buffering
4187 requests and seriously degrades performance, but makes debugging much
4189 The optional second argument TERMINAL specifies which display to act on.
4190 TERMINAL should be a terminal object, a frame or a display name (a string).
4191 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4192 (Lisp_Object on
, Lisp_Object terminal
)
4194 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4196 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4201 /* Wait for responses to all X commands issued so far for frame F. */
4204 x_sync (FRAME_PTR f
)
4207 XSync (FRAME_X_DISPLAY (f
), False
);
4212 /***********************************************************************
4214 ***********************************************************************/
4216 DEFUN ("x-change-window-property", Fx_change_window_property
,
4217 Sx_change_window_property
, 2, 6, 0,
4218 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4219 PROP must be a string.
4220 VALUE may be a string or a list of conses, numbers and/or strings.
4221 If an element in the list is a string, it is converted to
4222 an Atom and the value of the Atom is used. If an element is a cons,
4223 it is converted to a 32 bit number where the car is the 16 top bits and the
4224 cdr is the lower 16 bits.
4225 FRAME nil or omitted means use the selected frame.
4226 If TYPE is given and non-nil, it is the name of the type of VALUE.
4227 If TYPE is not given or nil, the type is STRING.
4228 FORMAT gives the size in bits of each element if VALUE is a list.
4229 It must be one of 8, 16 or 32.
4230 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4231 If OUTER_P is non-nil, the property is changed for the outer X window of
4232 FRAME. Default is to change on the edit X window.
4235 (Lisp_Object prop
, Lisp_Object value
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4237 struct frame
*f
= check_x_frame (frame
);
4239 Atom target_type
= XA_STRING
;
4240 int element_format
= 8;
4241 unsigned char *data
;
4245 CHECK_STRING (prop
);
4247 if (! NILP (format
))
4249 CHECK_NUMBER (format
);
4250 element_format
= XFASTINT (format
);
4252 if (element_format
!= 8 && element_format
!= 16
4253 && element_format
!= 32)
4254 error ("FORMAT must be one of 8, 16 or 32");
4259 nelements
= x_check_property_data (value
);
4260 if (nelements
== -1)
4261 error ("Bad data in VALUE, must be number, string or cons");
4263 if (element_format
== 8)
4264 data
= (unsigned char *) xmalloc (nelements
);
4265 else if (element_format
== 16)
4266 data
= (unsigned char *) xmalloc (nelements
*2);
4267 else /* format == 32 */
4268 /* The man page for XChangeProperty:
4269 "If the specified format is 32, the property data must be a
4271 This applies even if long is more than 64 bits. The X library
4272 converts to 32 bits before sending to the X server. */
4273 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4275 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4279 CHECK_STRING (value
);
4280 data
= SDATA (value
);
4281 nelements
= SCHARS (value
);
4285 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4288 CHECK_STRING (type
);
4289 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4292 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4293 else w
= FRAME_X_WINDOW (f
);
4295 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4296 prop_atom
, target_type
, element_format
, PropModeReplace
,
4299 if (CONSP (value
)) xfree (data
);
4301 /* Make sure the property is set when we return. */
4302 XFlush (FRAME_X_DISPLAY (f
));
4309 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4310 Sx_delete_window_property
, 1, 2, 0,
4311 doc
: /* Remove window property PROP from X window of FRAME.
4312 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4313 (Lisp_Object prop
, Lisp_Object frame
)
4315 struct frame
*f
= check_x_frame (frame
);
4318 CHECK_STRING (prop
);
4320 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4321 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4323 /* Make sure the property is removed when we return. */
4324 XFlush (FRAME_X_DISPLAY (f
));
4331 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4333 doc
: /* Value is the value of window property PROP on FRAME.
4334 If FRAME is nil or omitted, use the selected frame.
4335 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4336 is the name of the Atom that denotes the type expected.
4337 If SOURCE is non-nil, get the property on that window instead of from
4338 FRAME. The number 0 denotes the root window.
4339 If DELETE_P is non-nil, delete the property after retreiving it.
4340 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4342 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4343 no value of TYPE. */)
4344 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4346 struct frame
*f
= check_x_frame (frame
);
4349 Lisp_Object prop_value
= Qnil
;
4350 unsigned char *tmp_data
= NULL
;
4352 Atom target_type
= XA_STRING
;
4354 unsigned long actual_size
, bytes_remaining
;
4355 Window target_window
= FRAME_X_WINDOW (f
);
4356 struct gcpro gcpro1
;
4358 GCPRO1 (prop_value
);
4359 CHECK_STRING (prop
);
4361 if (! NILP (source
))
4363 if (NUMBERP (source
))
4365 if (FLOATP (source
))
4366 target_window
= (Window
) XFLOAT (source
);
4368 target_window
= XFASTINT (source
);
4370 if (target_window
== 0)
4371 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4373 else if (CONSP (source
))
4374 target_window
= cons_to_long (source
);
4380 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4381 target_type
= AnyPropertyType
;
4383 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4386 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4387 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4388 prop_atom
, 0, 0, False
, target_type
,
4389 &actual_type
, &actual_format
, &actual_size
,
4390 &bytes_remaining
, &tmp_data
);
4393 int size
= bytes_remaining
;
4398 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4399 prop_atom
, 0, bytes_remaining
,
4400 ! NILP (delete_p
), target_type
,
4401 &actual_type
, &actual_format
,
4402 &actual_size
, &bytes_remaining
,
4404 if (rc
== Success
&& tmp_data
)
4406 /* The man page for XGetWindowProperty says:
4407 "If the returned format is 32, the returned data is represented
4408 as a long array and should be cast to that type to obtain the
4410 This applies even if long is more than 32 bits, the X library
4411 converts from 32 bit elements received from the X server to long
4412 and passes the long array to us. Thus, for that case memcpy can not
4413 be used. We convert to a 32 bit type here, because so much code
4416 The bytes and offsets passed to XGetWindowProperty refers to the
4417 property and those are indeed in 32 bit quantities if format is
4420 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4423 int *idata
= (int *) tmp_data
;
4424 long *ldata
= (long *) tmp_data
;
4426 for (i
= 0; i
< actual_size
; ++i
)
4427 idata
[i
] = (int) ldata
[i
];
4430 if (NILP (vector_ret_p
))
4431 prop_value
= make_string (tmp_data
, size
);
4433 prop_value
= x_property_data_to_lisp (f
,
4440 if (tmp_data
) XFree (tmp_data
);
4450 /***********************************************************************
4452 ***********************************************************************/
4454 /* Timer function of hourglass_atimer. TIMER is equal to
4457 Display an hourglass pointer on all frames by mapping the frames'
4458 hourglass_window. Set the hourglass_p flag in the frames'
4459 output_data.x structure to indicate that an hourglass cursor is
4460 shown on the frames. */
4463 show_hourglass (struct atimer
*timer
)
4465 /* The timer implementation will cancel this timer automatically
4466 after this function has run. Set hourglass_atimer to null
4467 so that we know the timer doesn't have to be canceled. */
4468 hourglass_atimer
= NULL
;
4470 if (!hourglass_shown_p
)
4472 Lisp_Object rest
, frame
;
4476 FOR_EACH_FRAME (rest
, frame
)
4478 struct frame
*f
= XFRAME (frame
);
4480 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4482 Display
*dpy
= FRAME_X_DISPLAY (f
);
4484 #ifdef USE_X_TOOLKIT
4485 if (f
->output_data
.x
->widget
)
4487 if (FRAME_OUTER_WINDOW (f
))
4490 f
->output_data
.x
->hourglass_p
= 1;
4492 if (!f
->output_data
.x
->hourglass_window
)
4494 unsigned long mask
= CWCursor
;
4495 XSetWindowAttributes attrs
;
4497 Window parent
= FRAME_X_WINDOW (f
);
4499 Window parent
= FRAME_OUTER_WINDOW (f
);
4501 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4503 f
->output_data
.x
->hourglass_window
4504 = XCreateWindow (dpy
, parent
,
4505 0, 0, 32000, 32000, 0, 0,
4511 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4517 hourglass_shown_p
= 1;
4523 /* Hide the hourglass pointer on all frames, if it is currently
4527 hide_hourglass (void)
4529 if (hourglass_shown_p
)
4531 Lisp_Object rest
, frame
;
4534 FOR_EACH_FRAME (rest
, frame
)
4536 struct frame
*f
= XFRAME (frame
);
4539 /* Watch out for newly created frames. */
4540 && f
->output_data
.x
->hourglass_window
)
4542 XUnmapWindow (FRAME_X_DISPLAY (f
),
4543 f
->output_data
.x
->hourglass_window
);
4544 /* Sync here because XTread_socket looks at the
4545 hourglass_p flag that is reset to zero below. */
4546 XSync (FRAME_X_DISPLAY (f
), False
);
4547 f
->output_data
.x
->hourglass_p
= 0;
4551 hourglass_shown_p
= 0;
4558 /***********************************************************************
4560 ***********************************************************************/
4562 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4563 Lisp_Object
, Lisp_Object
);
4564 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4565 Lisp_Object
, int, int, int *, int *);
4567 /* The frame of a currently visible tooltip. */
4569 Lisp_Object tip_frame
;
4571 /* If non-nil, a timer started that hides the last tooltip when it
4574 Lisp_Object tip_timer
;
4577 /* If non-nil, a vector of 3 elements containing the last args
4578 with which x-show-tip was called. See there. */
4580 Lisp_Object last_show_tip_args
;
4582 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4584 Lisp_Object Vx_max_tooltip_size
;
4588 unwind_create_tip_frame (Lisp_Object frame
)
4590 Lisp_Object deleted
;
4592 deleted
= unwind_create_frame (frame
);
4593 if (EQ (deleted
, Qt
))
4603 /* Create a frame for a tooltip on the display described by DPYINFO.
4604 PARMS is a list of frame parameters. TEXT is the string to
4605 display in the tip frame. Value is the frame.
4607 Note that functions called here, esp. x_default_parameter can
4608 signal errors, for instance when a specified color name is
4609 undefined. We have to make sure that we're in a consistent state
4610 when this happens. */
4613 x_create_tip_frame (struct x_display_info
*dpyinfo
, Lisp_Object parms
, Lisp_Object text
)
4616 Lisp_Object frame
, tem
;
4618 long window_prompting
= 0;
4620 int count
= SPECPDL_INDEX ();
4621 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4622 int face_change_count_before
= face_change_count
;
4624 struct buffer
*old_buffer
;
4628 if (!dpyinfo
->terminal
->name
)
4629 error ("Terminal is not live, can't create new frames on it");
4631 parms
= Fcopy_alist (parms
);
4633 /* Get the name of the frame to use for resource lookup. */
4634 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4636 && !EQ (name
, Qunbound
)
4638 error ("Invalid frame name--not a string or nil");
4641 GCPRO3 (parms
, name
, frame
);
4643 XSETFRAME (frame
, f
);
4645 buffer
= Fget_buffer_create (build_string (" *tip*"));
4646 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4647 old_buffer
= current_buffer
;
4648 set_buffer_internal_1 (XBUFFER (buffer
));
4649 current_buffer
->truncate_lines
= Qnil
;
4650 specbind (Qinhibit_read_only
, Qt
);
4651 specbind (Qinhibit_modification_hooks
, Qt
);
4654 set_buffer_internal_1 (old_buffer
);
4656 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4657 record_unwind_protect (unwind_create_tip_frame
, frame
);
4659 f
->terminal
= dpyinfo
->terminal
;
4660 f
->terminal
->reference_count
++;
4662 /* By setting the output method, we're essentially saying that
4663 the frame is live, as per FRAME_LIVE_P. If we get a signal
4664 from this point on, x_destroy_window might screw up reference
4666 f
->output_method
= output_x_window
;
4667 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4668 memset (f
->output_data
.x
, 0, sizeof (struct x_output
));
4669 f
->output_data
.x
->icon_bitmap
= -1;
4670 FRAME_FONTSET (f
) = -1;
4671 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4672 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4673 #ifdef USE_TOOLKIT_SCROLL_BARS
4674 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4675 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4676 #endif /* USE_TOOLKIT_SCROLL_BARS */
4677 f
->icon_name
= Qnil
;
4678 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4680 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
4681 dpyinfo_refcount
= dpyinfo
->reference_count
;
4682 #endif /* GLYPH_DEBUG */
4683 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4684 f
->output_data
.x
->explicit_parent
= 0;
4686 /* These colors will be set anyway later, but it's important
4687 to get the color reference counts right, so initialize them! */
4690 struct gcpro gcpro1
;
4692 /* Function x_decode_color can signal an error. Make
4693 sure to initialize color slots so that we won't try
4694 to free colors we haven't allocated. */
4695 FRAME_FOREGROUND_PIXEL (f
) = -1;
4696 FRAME_BACKGROUND_PIXEL (f
) = -1;
4697 f
->output_data
.x
->cursor_pixel
= -1;
4698 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4699 f
->output_data
.x
->border_pixel
= -1;
4700 f
->output_data
.x
->mouse_pixel
= -1;
4702 black
= build_string ("black");
4704 FRAME_FOREGROUND_PIXEL (f
)
4705 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4706 FRAME_BACKGROUND_PIXEL (f
)
4707 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4708 f
->output_data
.x
->cursor_pixel
4709 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4710 f
->output_data
.x
->cursor_foreground_pixel
4711 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4712 f
->output_data
.x
->border_pixel
4713 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4714 f
->output_data
.x
->mouse_pixel
4715 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4719 /* Set the name; the functions to which we pass f expect the name to
4721 if (EQ (name
, Qunbound
) || NILP (name
))
4723 f
->name
= build_string (dpyinfo
->x_id_name
);
4724 f
->explicit_name
= 0;
4729 f
->explicit_name
= 1;
4730 /* use the frame's title when getting resources for this frame. */
4731 specbind (Qx_resource_name
, name
);
4734 f
->resx
= dpyinfo
->resx
;
4735 f
->resy
= dpyinfo
->resy
;
4737 register_font_driver (&xfont_driver
, f
);
4738 #ifdef HAVE_FREETYPE
4740 register_font_driver (&xftfont_driver
, f
);
4741 #else /* not HAVE_XFT */
4742 register_font_driver (&ftxfont_driver
, f
);
4743 #endif /* not HAVE_XFT */
4744 #endif /* HAVE_FREETYPE */
4746 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4747 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4749 /* Extract the window parameters from the supplied values that are
4750 needed to determine window geometry. */
4751 x_default_font_parameter (f
, parms
);
4753 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
4754 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4756 /* This defaults to 2 in order to match xterm. We recognize either
4757 internalBorderWidth or internalBorder (which is what xterm calls
4759 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4763 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4764 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4765 if (! EQ (value
, Qunbound
))
4766 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4770 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4771 "internalBorderWidth", "internalBorderWidth",
4774 /* Also do the stuff which must be set before the window exists. */
4775 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4776 "foreground", "Foreground", RES_TYPE_STRING
);
4777 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4778 "background", "Background", RES_TYPE_STRING
);
4779 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4780 "pointerColor", "Foreground", RES_TYPE_STRING
);
4781 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4782 "cursorColor", "Foreground", RES_TYPE_STRING
);
4783 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4784 "borderColor", "BorderColor", RES_TYPE_STRING
);
4786 /* Init faces before x_default_parameter is called for scroll-bar
4787 parameters because that function calls x_set_scroll_bar_width,
4788 which calls change_frame_size, which calls Fset_window_buffer,
4789 which runs hooks, which call Fvertical_motion. At the end, we
4790 end up in init_iterator with a null face cache, which should not
4792 init_frame_faces (f
);
4794 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4796 window_prompting
= x_figure_window_size (f
, parms
, 0);
4799 XSetWindowAttributes attrs
;
4801 Atom type
= FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
4804 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4805 if (DoesSaveUnders (dpyinfo
->screen
))
4806 mask
|= CWSaveUnder
;
4808 /* Window managers look at the override-redirect flag to determine
4809 whether or net to give windows a decoration (Xlib spec, chapter
4811 attrs
.override_redirect
= True
;
4812 attrs
.save_under
= True
;
4813 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4814 /* Arrange for getting MapNotify and UnmapNotify events. */
4815 attrs
.event_mask
= StructureNotifyMask
;
4817 = FRAME_X_WINDOW (f
)
4818 = XCreateWindow (FRAME_X_DISPLAY (f
),
4819 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4820 /* x, y, width, height */
4824 CopyFromParent
, InputOutput
, CopyFromParent
,
4826 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
4827 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type
,
4828 XA_ATOM
, 32, PropModeReplace
,
4829 (unsigned char *)&type
, 1);
4835 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4836 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4837 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4838 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4839 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4840 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4842 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4843 Change will not be effected unless different from the current
4845 width
= FRAME_COLS (f
);
4846 height
= FRAME_LINES (f
);
4847 SET_FRAME_COLS (f
, 0);
4848 FRAME_LINES (f
) = 0;
4849 change_frame_size (f
, height
, width
, 1, 0, 0);
4851 /* Add `tooltip' frame parameter's default value. */
4852 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
4853 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qtooltip
, Qt
), Qnil
));
4855 /* FIXME - can this be done in a similar way to normal frames?
4856 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
4858 /* Set the `display-type' frame parameter before setting up faces. */
4860 Lisp_Object disptype
;
4862 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4863 disptype
= intern ("mono");
4864 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
4865 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4866 disptype
= intern ("grayscale");
4868 disptype
= intern ("color");
4870 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4871 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4875 /* Set up faces after all frame parameters are known. This call
4876 also merges in face attributes specified for new frames.
4878 Frame parameters may be changed if .Xdefaults contains
4879 specifications for the default font. For example, if there is an
4880 `Emacs.default.attributeBackground: pink', the `background-color'
4881 attribute of the frame get's set, which let's the internal border
4882 of the tooltip frame appear in pink. Prevent this. */
4884 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4886 /* Set tip_frame here, so that */
4888 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
4890 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4891 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4899 /* It is now ok to make the frame official even if we get an error
4900 below. And the frame needs to be on Vframe_list or making it
4901 visible won't work. */
4902 Vframe_list
= Fcons (frame
, Vframe_list
);
4904 /* Now that the frame is official, it counts as a reference to
4906 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4908 /* Setting attributes of faces of the tooltip frame from resources
4909 and similar will increment face_change_count, which leads to the
4910 clearing of all current matrices. Since this isn't necessary
4911 here, avoid it by resetting face_change_count to the value it
4912 had before we created the tip frame. */
4913 face_change_count
= face_change_count_before
;
4915 /* Discard the unwind_protect. */
4916 return unbind_to (count
, frame
);
4920 /* Compute where to display tip frame F. PARMS is the list of frame
4921 parameters for F. DX and DY are specified offsets from the current
4922 location of the mouse. WIDTH and HEIGHT are the width and height
4923 of the tooltip. Return coordinates relative to the root window of
4924 the display in *ROOT_X, and *ROOT_Y. */
4927 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
)
4929 Lisp_Object left
, top
;
4934 /* User-specified position? */
4935 left
= Fcdr (Fassq (Qleft
, parms
));
4936 top
= Fcdr (Fassq (Qtop
, parms
));
4938 /* Move the tooltip window where the mouse pointer is. Resize and
4940 if (!INTEGERP (left
) || !INTEGERP (top
))
4943 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4944 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4949 *root_y
= XINT (top
);
4950 else if (*root_y
+ XINT (dy
) <= 0)
4951 *root_y
= 0; /* Can happen for negative dy */
4952 else if (*root_y
+ XINT (dy
) + height
4953 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
4954 /* It fits below the pointer */
4955 *root_y
+= XINT (dy
);
4956 else if (height
+ XINT (dy
) <= *root_y
)
4957 /* It fits above the pointer. */
4958 *root_y
-= height
+ XINT (dy
);
4960 /* Put it on the top. */
4963 if (INTEGERP (left
))
4964 *root_x
= XINT (left
);
4965 else if (*root_x
+ XINT (dx
) <= 0)
4966 *root_x
= 0; /* Can happen for negative dx */
4967 else if (*root_x
+ XINT (dx
) + width
4968 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
4969 /* It fits to the right of the pointer. */
4970 *root_x
+= XINT (dx
);
4971 else if (width
+ XINT (dx
) <= *root_x
)
4972 /* It fits to the left of the pointer. */
4973 *root_x
-= width
+ XINT (dx
);
4975 /* Put it left-justified on the screen--it ought to fit that way. */
4980 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4981 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4982 A tooltip window is a small X window displaying a string.
4984 This is an internal function; Lisp code should call `tooltip-show'.
4986 FRAME nil or omitted means use the selected frame.
4988 PARMS is an optional list of frame parameters which can be used to
4989 change the tooltip's appearance.
4991 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4992 means use the default timeout of 5 seconds.
4994 If the list of frame parameters PARAMS contains a `left' parameters,
4995 the tooltip is displayed at that x-position. Otherwise it is
4996 displayed at the mouse position, with offset DX added (default is 5 if
4997 DX isn't specified). Likewise for the y-position; if a `top' frame
4998 parameter is specified, it determines the y-position of the tooltip
4999 window, otherwise it is displayed at the mouse position, with offset
5000 DY added (default is -10).
5002 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5003 Text larger than the specified size is clipped. */)
5004 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
5009 struct buffer
*old_buffer
;
5010 struct text_pos pos
;
5011 int i
, width
, height
;
5012 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5013 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5014 int count
= SPECPDL_INDEX ();
5016 specbind (Qinhibit_redisplay
, Qt
);
5018 GCPRO4 (string
, parms
, frame
, timeout
);
5020 CHECK_STRING (string
);
5021 if (SCHARS (string
) == 0)
5022 string
= make_unibyte_string (" ", 1);
5024 f
= check_x_frame (frame
);
5026 timeout
= make_number (5);
5028 CHECK_NATNUM (timeout
);
5031 dx
= make_number (5);
5036 dy
= make_number (-10);
5040 if (NILP (last_show_tip_args
))
5041 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5043 if (!NILP (tip_frame
))
5045 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5046 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5047 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5049 if (EQ (frame
, last_frame
)
5050 && !NILP (Fequal (last_string
, string
))
5051 && !NILP (Fequal (last_parms
, parms
)))
5053 struct frame
*f
= XFRAME (tip_frame
);
5055 /* Only DX and DY have changed. */
5056 if (!NILP (tip_timer
))
5058 Lisp_Object timer
= tip_timer
;
5060 call1 (Qcancel_timer
, timer
);
5064 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5065 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5066 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5073 /* Hide a previous tip, if any. */
5076 ASET (last_show_tip_args
, 0, string
);
5077 ASET (last_show_tip_args
, 1, frame
);
5078 ASET (last_show_tip_args
, 2, parms
);
5080 /* Add default values to frame parameters. */
5081 if (NILP (Fassq (Qname
, parms
)))
5082 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5083 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5084 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5085 if (NILP (Fassq (Qborder_width
, parms
)))
5086 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5087 if (NILP (Fassq (Qborder_color
, parms
)))
5088 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5089 if (NILP (Fassq (Qbackground_color
, parms
)))
5090 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5093 /* Create a frame for the tooltip, and record it in the global
5094 variable tip_frame. */
5095 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5098 /* Set up the frame's root window. */
5099 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5100 w
->left_col
= w
->top_line
= make_number (0);
5102 if (CONSP (Vx_max_tooltip_size
)
5103 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5104 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5105 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5106 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5108 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5109 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5113 w
->total_cols
= make_number (80);
5114 w
->total_lines
= make_number (40);
5117 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5119 w
->pseudo_window_p
= 1;
5121 /* Display the tooltip text in a temporary buffer. */
5122 old_buffer
= current_buffer
;
5123 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5124 current_buffer
->truncate_lines
= Qnil
;
5125 clear_glyph_matrix (w
->desired_matrix
);
5126 clear_glyph_matrix (w
->current_matrix
);
5127 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5128 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5130 /* Compute width and height of the tooltip. */
5132 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5134 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5138 /* Stop at the first empty row at the end. */
5139 if (!row
->enabled_p
|| !row
->displays_text_p
)
5142 /* Let the row go over the full width of the frame. */
5143 row
->full_width_p
= 1;
5145 row_width
= row
->pixel_width
;
5146 /* There's a glyph at the end of rows that is used to place
5147 the cursor there. Don't include the width of this glyph. */
5148 if (row
->used
[TEXT_AREA
])
5150 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5151 if (INTEGERP (last
->object
))
5152 row_width
-= last
->pixel_width
;
5155 height
+= row
->height
;
5156 width
= max (width
, row_width
);
5159 /* Add the frame's internal border to the width and height the X
5160 window should have. */
5161 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5162 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5164 /* Move the tooltip window where the mouse pointer is. Resize and
5166 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5169 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5170 root_x
, root_y
, width
, height
);
5171 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5174 /* Draw into the window. */
5175 w
->must_be_updated_p
= 1;
5176 update_single_window (w
, 1);
5178 /* Restore original current buffer. */
5179 set_buffer_internal_1 (old_buffer
);
5180 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5183 /* Let the tip disappear after timeout seconds. */
5184 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5185 intern ("x-hide-tip"));
5188 return unbind_to (count
, Qnil
);
5192 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5193 doc
: /* Hide the current tooltip window, if there is any.
5194 Value is t if tooltip was open, nil otherwise. */)
5198 Lisp_Object deleted
, frame
, timer
;
5199 struct gcpro gcpro1
, gcpro2
;
5201 /* Return quickly if nothing to do. */
5202 if (NILP (tip_timer
) && NILP (tip_frame
))
5207 GCPRO2 (frame
, timer
);
5208 tip_frame
= tip_timer
= deleted
= Qnil
;
5210 count
= SPECPDL_INDEX ();
5211 specbind (Qinhibit_redisplay
, Qt
);
5212 specbind (Qinhibit_quit
, Qt
);
5215 call1 (Qcancel_timer
, timer
);
5219 delete_frame (frame
, Qnil
);
5223 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5224 redisplay procedure is not called when a tip frame over menu
5225 items is unmapped. Redisplay the menu manually... */
5227 struct frame
*f
= SELECTED_FRAME ();
5228 Widget w
= f
->output_data
.x
->menubar_widget
;
5230 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5234 xlwmenu_redisplay (w
);
5238 #endif /* USE_LUCID */
5242 return unbind_to (count
, deleted
);
5247 /***********************************************************************
5248 File selection dialog
5249 ***********************************************************************/
5251 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5252 Sx_uses_old_gtk_dialog
,
5254 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5261 && xg_uses_old_file_dialog ())
5269 /* Callback for "OK" and "Cancel" on file selection dialog. */
5272 file_dialog_cb (widget
, client_data
, call_data
)
5274 XtPointer call_data
, client_data
;
5276 int *result
= (int *) client_data
;
5277 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5278 *result
= cb
->reason
;
5282 /* Callback for unmapping a file selection dialog. This is used to
5283 capture the case where a dialog is closed via a window manager's
5284 closer button, for example. Using a XmNdestroyCallback didn't work
5288 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5290 XtPointer call_data
, client_data
;
5292 int *result
= (int *) client_data
;
5293 *result
= XmCR_CANCEL
;
5297 clean_up_file_dialog (arg
)
5300 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5301 Widget dialog
= (Widget
) p
->pointer
;
5305 XtUnmanageChild (dialog
);
5306 XtDestroyWidget (dialog
);
5307 x_menu_set_in_use (0);
5314 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5315 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5316 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5317 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5318 or directory must exist. ONLY-DIR-P is ignored." */)
5319 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5322 struct frame
*f
= SELECTED_FRAME ();
5323 Lisp_Object file
= Qnil
;
5324 Lisp_Object decoded_file
;
5325 Widget dialog
, text
, help
;
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
,
5766 x_set_tool_bar_position
,
5772 /* This is zero if not using X windows. */
5775 /* The section below is built by the lisp expression at the top of the file,
5776 just above where these variables are declared. */
5777 /*&&& init symbols here &&&*/
5778 Qnone
= intern_c_string ("none");
5780 Qsuppress_icon
= intern_c_string ("suppress-icon");
5781 staticpro (&Qsuppress_icon
);
5782 Qundefined_color
= intern_c_string ("undefined-color");
5783 staticpro (&Qundefined_color
);
5784 Qcompound_text
= intern_c_string ("compound-text");
5785 staticpro (&Qcompound_text
);
5786 Qcancel_timer
= intern_c_string ("cancel-timer");
5787 staticpro (&Qcancel_timer
);
5788 Qfont_param
= intern_c_string ("font-parameter");
5789 staticpro (&Qfont_param
);
5790 /* This is the end of symbol initialization. */
5792 /* Text property `display' should be nonsticky by default. */
5793 Vtext_property_default_nonsticky
5794 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5797 Fput (Qundefined_color
, Qerror_conditions
,
5798 pure_cons (Qundefined_color
, pure_cons (Qerror
, Qnil
)));
5799 Fput (Qundefined_color
, Qerror_message
,
5800 make_pure_c_string ("Undefined color"));
5802 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5803 doc
: /* The shape of the pointer when over text.
5804 Changing the value does not affect existing frames
5805 unless you set the mouse color. */);
5806 Vx_pointer_shape
= Qnil
;
5808 #if 0 /* This doesn't really do anything. */
5809 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5810 doc
: /* The shape of the pointer when not over text.
5811 This variable takes effect when you create a new frame
5812 or when you set the mouse color. */);
5814 Vx_nontext_pointer_shape
= Qnil
;
5816 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5817 doc
: /* The shape of the pointer when Emacs is busy.
5818 This variable takes effect when you create a new frame
5819 or when you set the mouse color. */);
5820 Vx_hourglass_pointer_shape
= Qnil
;
5822 #if 0 /* This doesn't really do anything. */
5823 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5824 doc
: /* The shape of the pointer when over the mode line.
5825 This variable takes effect when you create a new frame
5826 or when you set the mouse color. */);
5828 Vx_mode_pointer_shape
= Qnil
;
5830 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5831 &Vx_sensitive_text_pointer_shape
,
5832 doc
: /* The shape of the pointer when over mouse-sensitive text.
5833 This variable takes effect when you create a new frame
5834 or when you set the mouse color. */);
5835 Vx_sensitive_text_pointer_shape
= Qnil
;
5837 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5838 &Vx_window_horizontal_drag_shape
,
5839 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5840 This variable takes effect when you create a new frame
5841 or when you set the mouse color. */);
5842 Vx_window_horizontal_drag_shape
= Qnil
;
5844 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5845 doc
: /* A string indicating the foreground color of the cursor box. */);
5846 Vx_cursor_fore_pixel
= Qnil
;
5848 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5849 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5850 Text larger than this is clipped. */);
5851 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5853 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5854 doc
: /* Non-nil if no X window manager is in use.
5855 Emacs doesn't try to figure this out; this is always nil
5856 unless you set it to something else. */);
5857 /* We don't have any way to find this out, so set it to nil
5858 and maybe the user would like to set it to t. */
5859 Vx_no_window_manager
= Qnil
;
5861 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5862 &Vx_pixel_size_width_font_regexp
,
5863 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5865 Since Emacs gets width of a font matching with this regexp from
5866 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5867 such a font. This is especially effective for such large fonts as
5868 Chinese, Japanese, and Korean. */);
5869 Vx_pixel_size_width_font_regexp
= Qnil
;
5871 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5872 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", &x_gtk_use_old_file_dialog
,
5873 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5874 If nil or if the file selection dialog is not available, the new GTK file
5875 chooser is used instead. To turn off all file dialogs set the
5876 variable `use-file-dialog'. */);
5877 x_gtk_use_old_file_dialog
= 0;
5879 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5880 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5881 Note that this is just the default, there is a toggle button on the file
5882 chooser to show or not show hidden files on a case by case basis. */);
5883 x_gtk_show_hidden_files
= 0;
5885 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", &x_gtk_file_dialog_help_text
,
5886 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
5887 If more space for files in the file chooser dialog is wanted, set this to nil
5888 to turn the additional text off. */);
5889 x_gtk_file_dialog_help_text
= 1;
5891 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
5892 doc
: /* *If non-nil, a detached tool bar is shown in full.
5893 The default is to just show an arrow and pressing on that arrow shows
5894 the tool bar buttons. */);
5895 x_gtk_whole_detached_tool_bar
= 0;
5897 Fprovide (intern_c_string ("x"), Qnil
);
5899 #ifdef USE_X_TOOLKIT
5900 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5902 Fprovide (intern_c_string ("motif"), Qnil
);
5904 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5905 doc
: /* Version info for LessTif/Motif. */);
5906 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5907 #endif /* USE_MOTIF */
5908 #endif /* USE_X_TOOLKIT */
5911 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5912 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5913 But for a user it is a toolkit for X, and indeed, configure
5914 accepts --with-x-toolkit=gtk. */
5915 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5916 Fprovide (intern_c_string ("gtk"), Qnil
);
5917 Fprovide (intern_c_string ("move-toolbar"), Qnil
);
5919 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5920 doc
: /* Version info for GTK+. */);
5922 char gtk_version
[40];
5923 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5924 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5925 Vgtk_version_string
= make_pure_string (gtk_version
, strlen (gtk_version
), strlen (gtk_version
), 0);
5927 #endif /* USE_GTK */
5929 /* X window properties. */
5930 defsubr (&Sx_change_window_property
);
5931 defsubr (&Sx_delete_window_property
);
5932 defsubr (&Sx_window_property
);
5934 defsubr (&Sxw_display_color_p
);
5935 defsubr (&Sx_display_grayscale_p
);
5936 defsubr (&Sxw_color_defined_p
);
5937 defsubr (&Sxw_color_values
);
5938 defsubr (&Sx_server_max_request_size
);
5939 defsubr (&Sx_server_vendor
);
5940 defsubr (&Sx_server_version
);
5941 defsubr (&Sx_display_pixel_width
);
5942 defsubr (&Sx_display_pixel_height
);
5943 defsubr (&Sx_display_mm_width
);
5944 defsubr (&Sx_display_mm_height
);
5945 defsubr (&Sx_display_screens
);
5946 defsubr (&Sx_display_planes
);
5947 defsubr (&Sx_display_color_cells
);
5948 defsubr (&Sx_display_visual_class
);
5949 defsubr (&Sx_display_backing_store
);
5950 defsubr (&Sx_display_save_under
);
5951 defsubr (&Sx_wm_set_size_hint
);
5952 defsubr (&Sx_create_frame
);
5953 defsubr (&Sx_open_connection
);
5954 defsubr (&Sx_close_connection
);
5955 defsubr (&Sx_display_list
);
5956 defsubr (&Sx_synchronize
);
5957 defsubr (&Sx_focus_frame
);
5958 defsubr (&Sx_backspace_delete_keys_p
);
5960 /* Setting callback functions for fontset handler. */
5961 check_window_system_func
= check_x
;
5963 defsubr (&Sx_show_tip
);
5964 defsubr (&Sx_hide_tip
);
5966 staticpro (&tip_timer
);
5968 staticpro (&tip_frame
);
5970 last_show_tip_args
= Qnil
;
5971 staticpro (&last_show_tip_args
);
5973 defsubr (&Sx_uses_old_gtk_dialog
);
5974 #if defined (USE_MOTIF) || defined (USE_GTK)
5975 defsubr (&Sx_file_dialog
);
5978 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
5979 defsubr (&Sx_select_font
);
5980 x_last_font_name
= NULL
;
5984 #endif /* HAVE_X_WINDOWS */
5986 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
5987 (do not change this comment) */