1 /* Functions for the X window system.
2 Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
3 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
4 Free Software Foundation, Inc.
6 This file is part of GNU Emacs.
8 GNU Emacs is free software: you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation, either version 3 of the License, or
11 (at your option) any later version.
13 GNU Emacs is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
31 /* This makes the fields of a Display accessible, in Xlib header files. */
33 #define XLIB_ILLEGAL_ACCESS
40 #include "intervals.h"
41 #include "dispextern.h"
43 #include "blockinput.h"
45 #include "character.h"
50 #include "termhooks.h"
58 #include <sys/types.h>
61 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
62 #include "bitmaps/gray.xbm"
64 #include <X11/bitmaps/gray>
67 #include "xsettings.h"
74 #include <X11/Shell.h>
78 #include <X11/Xaw3d/Paned.h>
79 #include <X11/Xaw3d/Label.h>
80 #else /* !HAVE_XAW3D */
81 #include <X11/Xaw/Paned.h>
82 #include <X11/Xaw/Label.h>
83 #endif /* HAVE_XAW3D */
84 #endif /* USE_MOTIF */
87 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
96 #include "../lwlib/lwlib.h"
100 #include <Xm/DialogS.h>
101 #include <Xm/FileSB.h>
104 #if !defined(NO_EDITRES)
106 extern void _XEditResCheckMessages ();
107 #endif /* not defined NO_EDITRES */
109 /* Unique id counter for widgets created by the Lucid Widget Library. */
111 extern LWLIB_ID widget_id_tick
;
113 extern void free_frame_menubar ();
114 extern double atof ();
118 /* LessTif/Motif version info. */
120 static Lisp_Object Vmotif_version_string
;
122 #endif /* USE_MOTIF */
124 #endif /* USE_X_TOOLKIT */
128 /* GTK+ version info */
130 static Lisp_Object Vgtk_version_string
;
134 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
136 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
137 it, and including `bitmaps/gray' more than once is a problem when
138 config.h defines `static' as an empty replacement string. */
140 int gray_bitmap_width
= gray_width
;
141 int gray_bitmap_height
= gray_height
;
142 char *gray_bitmap_bits
= gray_bits
;
144 /* Non-zero means prompt with the old GTK file selection dialog. */
146 int x_gtk_use_old_file_dialog
;
148 /* If non-zero, by default show hidden files in the GTK file chooser. */
150 int x_gtk_show_hidden_files
;
152 /* If non-zero, don't show additional help text in the GTK file chooser. */
154 int x_gtk_file_dialog_help_text
;
156 /* If non-zero, don't collapse to tool bar when it is detached. */
158 int x_gtk_whole_detached_tool_bar
;
160 /* The background and shape of the mouse pointer, and shape when not
161 over text or in the modeline. */
163 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
164 Lisp_Object Vx_hourglass_pointer_shape
;
166 /* The shape when over mouse-sensitive text. */
168 Lisp_Object Vx_sensitive_text_pointer_shape
;
170 /* If non-nil, the pointer shape to indicate that windows can be
171 dragged horizontally. */
173 Lisp_Object Vx_window_horizontal_drag_shape
;
175 /* Color of chars displayed in cursor box. */
177 Lisp_Object Vx_cursor_fore_pixel
;
179 /* Nonzero if using X. */
183 /* Non nil if no window manager is in use. */
185 Lisp_Object Vx_no_window_manager
;
187 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
189 Lisp_Object Vx_pixel_size_width_font_regexp
;
192 Lisp_Object Qsuppress_icon
;
193 Lisp_Object Qundefined_color
;
194 Lisp_Object Qcompound_text
, Qcancel_timer
;
195 Lisp_Object Qfont_param
;
199 extern Lisp_Object Vwindow_system_version
;
203 extern Lisp_Object Vsystem_name
;
205 /* The below are defined in frame.c. */
207 extern Lisp_Object Vmenu_bar_mode
, Vtool_bar_mode
;
210 int image_cache_refcount
, dpyinfo_refcount
;
213 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
214 char *x_last_font_name
;
218 /* Error if we are not connected to X. */
224 error ("X windows are not in use or not initialized");
227 /* Nonzero if we can use mouse menus.
228 You should not call this unless HAVE_MENUS is defined. */
236 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
237 and checking validity for X. */
240 check_x_frame (Lisp_Object frame
)
245 frame
= selected_frame
;
246 CHECK_LIVE_FRAME (frame
);
249 error ("Non-X frame used");
253 /* Let the user specify an X display with a Lisp object.
254 OBJECT may be nil, a frame or a terminal object.
255 nil stands for the selected frame--or, if that is not an X frame,
256 the first X display on the list. */
258 struct x_display_info
*
259 check_x_display_info (Lisp_Object object
)
261 struct x_display_info
*dpyinfo
= NULL
;
265 struct frame
*sf
= XFRAME (selected_frame
);
267 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
268 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
269 else if (x_display_list
!= 0)
270 dpyinfo
= x_display_list
;
272 error ("X windows are not in use or not initialized");
274 else if (TERMINALP (object
))
276 struct terminal
*t
= get_terminal (object
, 1);
278 if (t
->type
!= output_x_window
)
279 error ("Terminal %d is not an X display", XINT (object
));
281 dpyinfo
= t
->display_info
.x
;
283 else if (STRINGP (object
))
284 dpyinfo
= x_display_info_for_name (object
);
287 FRAME_PTR f
= check_x_frame (object
);
288 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
295 /* Return the Emacs frame-object corresponding to an X window.
296 It could be the frame's main window or an icon window. */
298 /* This function can be called during GC, so use GC_xxx type test macros. */
301 x_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
303 Lisp_Object tail
, frame
;
306 if (wdesc
== None
) return 0;
308 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
314 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
316 if (f
->output_data
.x
->hourglass_window
== wdesc
)
319 if ((f
->output_data
.x
->edit_widget
320 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
321 /* A tooltip frame? */
322 || (!f
->output_data
.x
->edit_widget
323 && FRAME_X_WINDOW (f
) == wdesc
)
324 || f
->output_data
.x
->icon_desc
== wdesc
)
326 #else /* not USE_X_TOOLKIT */
328 if (f
->output_data
.x
->edit_widget
)
330 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
331 struct x_output
*x
= f
->output_data
.x
;
332 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
336 if (FRAME_X_WINDOW (f
) == wdesc
337 || f
->output_data
.x
->icon_desc
== wdesc
)
339 #endif /* not USE_X_TOOLKIT */
344 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
345 /* Like x_window_to_frame but also compares the window with the widget's
349 x_any_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
351 Lisp_Object tail
, frame
;
352 struct frame
*f
, *found
;
355 if (wdesc
== None
) return NULL
;
358 for (tail
= Vframe_list
; CONSP (tail
) && !found
; tail
= XCDR (tail
))
365 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
367 /* This frame matches if the window is any of its widgets. */
368 x
= f
->output_data
.x
;
369 if (x
->hourglass_window
== wdesc
)
374 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
376 && gtk_widget_get_toplevel (gwdesc
) == x
->widget
)
379 if (wdesc
== XtWindow (x
->widget
)
380 || wdesc
== XtWindow (x
->column_widget
)
381 || wdesc
== XtWindow (x
->edit_widget
))
383 /* Match if the window is this frame's menubar. */
384 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
388 else if (FRAME_X_WINDOW (f
) == wdesc
)
389 /* A tooltip frame. */
397 /* Likewise, but consider only the menu bar widget. */
400 x_menubar_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
402 Lisp_Object tail
, frame
;
406 if (wdesc
== None
) return 0;
408 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
414 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
416 x
= f
->output_data
.x
;
417 /* Match if the window is this frame's menubar. */
419 if (x
->menubar_widget
)
421 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
423 /* This gives false positives, but the rectangle check in xterm.c
424 where this is called takes care of that. */
426 && (gwdesc
== x
->menubar_widget
427 || gtk_widget_is_ancestor (x
->menubar_widget
, gwdesc
)
428 || gtk_widget_is_ancestor (gwdesc
, x
->menubar_widget
)))
432 if (x
->menubar_widget
433 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
440 /* Return the frame whose principal (outermost) window is WDESC.
441 If WDESC is some other (smaller) window, we return 0. */
444 x_top_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
446 Lisp_Object tail
, frame
;
450 if (wdesc
== None
) return 0;
452 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
458 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
460 x
= f
->output_data
.x
;
464 /* This frame matches if the window is its topmost widget. */
466 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
467 if (gwdesc
== x
->widget
)
470 if (wdesc
== XtWindow (x
->widget
))
472 #if 0 /* I don't know why it did this,
473 but it seems logically wrong,
474 and it causes trouble for MapNotify events. */
475 /* Match if the window is this frame's menubar. */
476 if (x
->menubar_widget
477 && wdesc
== XtWindow (x
->menubar_widget
))
482 else if (FRAME_X_WINDOW (f
) == wdesc
)
488 #endif /* USE_X_TOOLKIT || USE_GTK */
492 static void x_default_font_parameter (struct frame
*, Lisp_Object
);
494 static Lisp_Object
unwind_create_frame (Lisp_Object
);
495 static Lisp_Object
unwind_create_tip_frame (Lisp_Object
);
497 void x_set_foreground_color (struct frame
*, Lisp_Object
, Lisp_Object
);
498 static void x_set_wait_for_wm (struct frame
*, Lisp_Object
, Lisp_Object
);
499 void x_set_background_color (struct frame
*, Lisp_Object
, Lisp_Object
);
500 void x_set_mouse_color (struct frame
*, Lisp_Object
, Lisp_Object
);
501 void x_set_cursor_color (struct frame
*, Lisp_Object
, Lisp_Object
);
502 void x_set_border_color (struct frame
*, Lisp_Object
, Lisp_Object
);
503 void x_set_cursor_type (struct frame
*, Lisp_Object
, Lisp_Object
);
504 void x_set_icon_type (struct frame
*, Lisp_Object
, Lisp_Object
);
505 void x_set_icon_name (struct frame
*, Lisp_Object
, Lisp_Object
);
506 void x_explicitly_set_name (struct frame
*, Lisp_Object
, Lisp_Object
);
507 void x_set_menu_bar_lines (struct frame
*, Lisp_Object
, Lisp_Object
);
508 void x_set_title (struct frame
*, Lisp_Object
, Lisp_Object
);
509 void x_set_tool_bar_lines (struct frame
*, Lisp_Object
, Lisp_Object
);
510 void x_set_scroll_bar_foreground (struct frame
*, Lisp_Object
,
512 void x_set_scroll_bar_background (struct frame
*, Lisp_Object
,
514 static Lisp_Object
x_default_scroll_bar_color_parameter (struct frame
*,
521 /* Store the screen positions of frame F into XPTR and YPTR.
522 These are the positions of the containing window manager window,
523 not Emacs's own window. */
526 x_real_positions (FRAME_PTR f
, int *xptr
, int *yptr
)
528 int win_x
, win_y
, outer_x
, outer_y
;
529 int real_x
= 0, real_y
= 0;
531 Window win
= f
->output_data
.x
->parent_desc
;
535 x_catch_errors (FRAME_X_DISPLAY (f
));
537 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
538 win
= FRAME_OUTER_WINDOW (f
);
540 /* This loop traverses up the containment tree until we hit the root
541 window. Window managers may intersect many windows between our window
542 and the root window. The window we find just before the root window
543 should be the outer WM window. */
546 Window wm_window
, rootw
;
547 Window
*tmp_children
;
548 unsigned int tmp_nchildren
;
551 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
552 &wm_window
, &tmp_children
, &tmp_nchildren
);
554 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
556 /* Don't free tmp_children if XQueryTree failed. */
560 XFree ((char *) tmp_children
);
562 if (wm_window
== rootw
|| had_errors
)
573 /* Get the real coordinates for the WM window upper left corner */
574 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
575 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
577 /* Translate real coordinates to coordinates relative to our
578 window. For our window, the upper left corner is 0, 0.
579 Since the upper left corner of the WM window is outside
580 our window, win_x and win_y will be negative:
582 ------------------ ---> x
584 | ----------------- v y
587 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
589 /* From-window, to-window. */
590 FRAME_X_DISPLAY_INFO (f
)->root_window
,
593 /* From-position, to-position. */
594 real_x
, real_y
, &win_x
, &win_y
,
599 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
606 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
608 /* From-window, to-window. */
609 FRAME_X_DISPLAY_INFO (f
)->root_window
,
610 FRAME_OUTER_WINDOW (f
),
612 /* From-position, to-position. */
613 real_x
, real_y
, &outer_x
, &outer_y
,
619 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
626 if (had_errors
) return;
628 f
->x_pixels_diff
= -win_x
;
629 f
->y_pixels_diff
= -win_y
;
631 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
632 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
641 /* Gamma-correct COLOR on frame F. */
644 gamma_correct (struct frame
*f
, XColor
*color
)
648 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
649 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
650 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
655 /* Decide if color named COLOR_NAME is valid for use on frame F. If
656 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
657 allocate the color. Value is zero if COLOR_NAME is invalid, or
658 no color could be allocated. */
661 x_defined_color (struct frame
*f
, char *color_name
, XColor
*color
, int alloc_p
)
664 Display
*dpy
= FRAME_X_DISPLAY (f
);
665 Colormap cmap
= FRAME_X_COLORMAP (f
);
668 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
669 if (success_p
&& alloc_p
)
670 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
677 /* Return the pixel color value for color COLOR_NAME on frame F. If F
678 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
679 Signal an error if color can't be allocated. */
682 x_decode_color (FRAME_PTR f
, Lisp_Object color_name
, int mono_color
)
686 CHECK_STRING (color_name
);
688 #if 0 /* Don't do this. It's wrong when we're not using the default
689 colormap, it makes freeing difficult, and it's probably not
690 an important optimization. */
691 if (strcmp (SDATA (color_name
), "black") == 0)
692 return BLACK_PIX_DEFAULT (f
);
693 else if (strcmp (SDATA (color_name
), "white") == 0)
694 return WHITE_PIX_DEFAULT (f
);
697 /* Return MONO_COLOR for monochrome frames. */
698 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
701 /* x_defined_color is responsible for coping with failures
702 by looking for a near-miss. */
703 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
706 signal_error ("Undefined color", color_name
);
711 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
712 the previous value of that parameter, NEW_VALUE is the new value.
713 See also the comment of wait_for_wm in struct x_output. */
716 x_set_wait_for_wm (struct frame
*f
, Lisp_Object new_value
, Lisp_Object old_value
)
718 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
723 /* Set icon from FILE for frame F. By using GTK functions the icon
724 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
727 xg_set_icon (FRAME_PTR f
, Lisp_Object file
)
732 found
= x_find_image_file (file
);
738 char *filename
= (char *) SDATA (found
);
741 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
745 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
747 g_object_unref (pixbuf
);
761 xg_set_icon_from_xpm_data (FRAME_PTR f
, char **data
)
764 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data ((const char **) data
);
769 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
770 g_object_unref (pixbuf
);
776 /* Functions called only from `x_set_frame_param'
777 to set individual parameters.
779 If FRAME_X_WINDOW (f) is 0,
780 the frame is being created and its X-window does not exist yet.
781 In that case, just record the parameter's new value
782 in the standard place; do not attempt to change the window. */
785 x_set_foreground_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
787 struct x_output
*x
= f
->output_data
.x
;
788 unsigned long fg
, old_fg
;
790 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
791 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
792 FRAME_FOREGROUND_PIXEL (f
) = fg
;
794 if (FRAME_X_WINDOW (f
) != 0)
796 Display
*dpy
= FRAME_X_DISPLAY (f
);
799 XSetForeground (dpy
, x
->normal_gc
, fg
);
800 XSetBackground (dpy
, x
->reverse_gc
, fg
);
802 if (x
->cursor_pixel
== old_fg
)
804 unload_color (f
, x
->cursor_pixel
);
805 x
->cursor_pixel
= x_copy_color (f
, fg
);
806 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
811 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
813 if (FRAME_VISIBLE_P (f
))
817 unload_color (f
, old_fg
);
821 x_set_background_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
823 struct x_output
*x
= f
->output_data
.x
;
826 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
827 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
828 FRAME_BACKGROUND_PIXEL (f
) = bg
;
830 if (FRAME_X_WINDOW (f
) != 0)
832 Display
*dpy
= FRAME_X_DISPLAY (f
);
835 XSetBackground (dpy
, x
->normal_gc
, bg
);
836 XSetForeground (dpy
, x
->reverse_gc
, bg
);
837 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
838 XSetForeground (dpy
, x
->cursor_gc
, bg
);
841 xg_set_background_color (f
, bg
);
844 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
845 toolkit scroll bars. */
848 for (bar
= FRAME_SCROLL_BARS (f
);
850 bar
= XSCROLL_BAR (bar
)->next
)
852 Window window
= XSCROLL_BAR (bar
)->x_window
;
853 XSetWindowBackground (dpy
, window
, bg
);
856 #endif /* USE_TOOLKIT_SCROLL_BARS */
859 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
861 if (FRAME_VISIBLE_P (f
))
867 make_invisible_cursor (struct frame
*f
)
869 Display
*dpy
= FRAME_X_DISPLAY (f
);
870 static char const no_data
[] = { 0 };
875 x_catch_errors (dpy
);
876 pix
= XCreateBitmapFromData (dpy
, FRAME_X_DISPLAY_INFO (f
)->root_window
,
878 if (! x_had_errors_p (dpy
) && pix
!= None
)
881 col
.red
= col
.green
= col
.blue
= 0;
882 col
.flags
= DoRed
| DoGreen
| DoBlue
;
883 c
= XCreatePixmapCursor (dpy
, pix
, pix
, &col
, &col
, 0, 0);
884 if (x_had_errors_p (dpy
) || c
== None
)
886 XFreePixmap (dpy
, pix
);
895 x_set_mouse_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
897 struct x_output
*x
= f
->output_data
.x
;
898 Display
*dpy
= FRAME_X_DISPLAY (f
);
899 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
900 Cursor hourglass_cursor
, horizontal_drag_cursor
;
901 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
902 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
904 /* Don't let pointers be invisible. */
905 if (mask_color
== pixel
)
907 x_free_colors (f
, &pixel
, 1);
908 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
911 unload_color (f
, x
->mouse_pixel
);
912 x
->mouse_pixel
= pixel
;
916 /* It's not okay to crash if the user selects a screwy cursor. */
917 x_catch_errors (dpy
);
919 if (!NILP (Vx_pointer_shape
))
921 CHECK_NUMBER (Vx_pointer_shape
);
922 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
925 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
926 x_check_errors (dpy
, "bad text pointer cursor: %s");
928 if (!NILP (Vx_nontext_pointer_shape
))
930 CHECK_NUMBER (Vx_nontext_pointer_shape
);
932 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
935 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
936 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
938 if (!NILP (Vx_hourglass_pointer_shape
))
940 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
942 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
945 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
946 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
948 if (!NILP (Vx_mode_pointer_shape
))
950 CHECK_NUMBER (Vx_mode_pointer_shape
);
951 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
954 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
955 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
957 if (!NILP (Vx_sensitive_text_pointer_shape
))
959 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
961 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
964 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
966 if (!NILP (Vx_window_horizontal_drag_shape
))
968 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
969 horizontal_drag_cursor
970 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
973 horizontal_drag_cursor
974 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
976 /* Check and report errors with the above calls. */
977 x_check_errors (dpy
, "can't set cursor shape: %s");
981 XColor fore_color
, back_color
;
983 fore_color
.pixel
= x
->mouse_pixel
;
984 x_query_color (f
, &fore_color
);
985 back_color
.pixel
= mask_color
;
986 x_query_color (f
, &back_color
);
988 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
989 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
990 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
991 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
992 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
993 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
996 if (FRAME_X_WINDOW (f
) != 0)
997 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
998 f
->output_data
.x
->current_cursor
= cursor
);
1000 if (FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
== 0)
1001 FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
= make_invisible_cursor (f
);
1003 if (cursor
!= x
->text_cursor
1004 && x
->text_cursor
!= 0)
1005 XFreeCursor (dpy
, x
->text_cursor
);
1006 x
->text_cursor
= cursor
;
1008 if (nontext_cursor
!= x
->nontext_cursor
1009 && x
->nontext_cursor
!= 0)
1010 XFreeCursor (dpy
, x
->nontext_cursor
);
1011 x
->nontext_cursor
= nontext_cursor
;
1013 if (hourglass_cursor
!= x
->hourglass_cursor
1014 && x
->hourglass_cursor
!= 0)
1015 XFreeCursor (dpy
, x
->hourglass_cursor
);
1016 x
->hourglass_cursor
= hourglass_cursor
;
1018 if (mode_cursor
!= x
->modeline_cursor
1019 && x
->modeline_cursor
!= 0)
1020 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1021 x
->modeline_cursor
= mode_cursor
;
1023 if (hand_cursor
!= x
->hand_cursor
1024 && x
->hand_cursor
!= 0)
1025 XFreeCursor (dpy
, x
->hand_cursor
);
1026 x
->hand_cursor
= hand_cursor
;
1028 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1029 && x
->horizontal_drag_cursor
!= 0)
1030 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1031 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1036 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1040 x_set_cursor_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1042 unsigned long fore_pixel
, pixel
;
1043 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1044 struct x_output
*x
= f
->output_data
.x
;
1046 if (!NILP (Vx_cursor_fore_pixel
))
1048 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1049 WHITE_PIX_DEFAULT (f
));
1050 fore_pixel_allocated_p
= 1;
1053 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1055 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1056 pixel_allocated_p
= 1;
1058 /* Make sure that the cursor color differs from the background color. */
1059 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1061 if (pixel_allocated_p
)
1063 x_free_colors (f
, &pixel
, 1);
1064 pixel_allocated_p
= 0;
1067 pixel
= x
->mouse_pixel
;
1068 if (pixel
== fore_pixel
)
1070 if (fore_pixel_allocated_p
)
1072 x_free_colors (f
, &fore_pixel
, 1);
1073 fore_pixel_allocated_p
= 0;
1075 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1079 unload_color (f
, x
->cursor_foreground_pixel
);
1080 if (!fore_pixel_allocated_p
)
1081 fore_pixel
= x_copy_color (f
, fore_pixel
);
1082 x
->cursor_foreground_pixel
= fore_pixel
;
1084 unload_color (f
, x
->cursor_pixel
);
1085 if (!pixel_allocated_p
)
1086 pixel
= x_copy_color (f
, pixel
);
1087 x
->cursor_pixel
= pixel
;
1089 if (FRAME_X_WINDOW (f
) != 0)
1092 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1093 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1096 if (FRAME_VISIBLE_P (f
))
1098 x_update_cursor (f
, 0);
1099 x_update_cursor (f
, 1);
1103 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1106 /* Set the border-color of frame F to pixel value PIX.
1107 Note that this does not fully take effect if done before
1108 F has an x-window. */
1111 x_set_border_pixel (struct frame
*f
, int pix
)
1113 unload_color (f
, f
->output_data
.x
->border_pixel
);
1114 f
->output_data
.x
->border_pixel
= pix
;
1116 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1119 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1120 (unsigned long)pix
);
1123 if (FRAME_VISIBLE_P (f
))
1128 /* Set the border-color of frame F to value described by ARG.
1129 ARG can be a string naming a color.
1130 The border-color is used for the border that is drawn by the X server.
1131 Note that this does not fully take effect if done before
1132 F has an x-window; it must be redone when the window is created.
1134 Note: this is done in two routines because of the way X10 works.
1136 Note: under X11, this is normally the province of the window manager,
1137 and so emacs' border colors may be overridden. */
1140 x_set_border_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1145 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1146 x_set_border_pixel (f
, pix
);
1147 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1152 x_set_cursor_type (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1154 set_frame_cursor_types (f
, arg
);
1156 /* Make sure the cursor gets redrawn. */
1157 cursor_type_changed
= 1;
1161 x_set_icon_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1167 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1170 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1175 result
= x_text_icon (f
,
1176 (char *) SDATA ((!NILP (f
->icon_name
)
1180 result
= x_bitmap_icon (f
, arg
);
1185 error ("No icon window available");
1188 XFlush (FRAME_X_DISPLAY (f
));
1193 x_set_icon_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1199 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1202 else if (!NILP (arg
) || NILP (oldval
))
1207 if (f
->output_data
.x
->icon_bitmap
!= 0)
1212 result
= x_text_icon (f
,
1213 (char *) SDATA ((!NILP (f
->icon_name
)
1222 error ("No icon window available");
1225 XFlush (FRAME_X_DISPLAY (f
));
1231 x_set_menu_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1234 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1235 int olines
= FRAME_MENU_BAR_LINES (f
);
1238 /* Right now, menu bars don't work properly in minibuf-only frames;
1239 most of the commands try to apply themselves to the minibuffer
1240 frame itself, and get an error because you can't switch buffers
1241 in or split the minibuffer window. */
1242 if (FRAME_MINIBUF_ONLY_P (f
))
1245 if (INTEGERP (value
))
1246 nlines
= XINT (value
);
1250 /* Make sure we redisplay all windows in this frame. */
1251 windows_or_buffers_changed
++;
1253 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1254 FRAME_MENU_BAR_LINES (f
) = 0;
1257 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1258 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1259 /* Make sure next redisplay shows the menu bar. */
1260 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1264 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1265 free_frame_menubar (f
);
1266 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1268 f
->output_data
.x
->menubar_widget
= 0;
1270 #else /* not USE_X_TOOLKIT && not USE_GTK */
1271 FRAME_MENU_BAR_LINES (f
) = nlines
;
1272 change_window_heights (f
->root_window
, nlines
- olines
);
1274 /* If the menu bar height gets changed, the internal border below
1275 the top margin has to be cleared. Also, if the menu bar gets
1276 larger, the area for the added lines has to be cleared except for
1277 the first menu bar line that is to be drawn later. */
1278 if (nlines
!= olines
)
1280 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1281 int width
= FRAME_PIXEL_WIDTH (f
);
1284 /* height can be zero here. */
1285 if (height
> 0 && width
> 0)
1287 y
= FRAME_TOP_MARGIN_HEIGHT (f
);
1290 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1291 0, y
, width
, height
, False
);
1295 if (nlines
> 1 && nlines
> olines
)
1297 y
= (olines
== 0 ? 1 : olines
) * FRAME_LINE_HEIGHT (f
);
1298 height
= nlines
* FRAME_LINE_HEIGHT (f
) - y
;
1301 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1302 0, y
, width
, height
, False
);
1306 if (nlines
== 0 && WINDOWP (f
->menu_bar_window
))
1307 clear_glyph_matrix (XWINDOW (f
->menu_bar_window
)->current_matrix
);
1309 #endif /* not USE_X_TOOLKIT && not USE_GTK */
1314 /* Set the number of lines used for the tool bar of frame F to VALUE.
1315 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1316 is the old number of tool bar lines. This function changes the
1317 height of all windows on frame F to match the new tool bar height.
1318 The frame's height doesn't change. */
1321 x_set_tool_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1323 int delta
, nlines
, root_height
;
1324 Lisp_Object root_window
;
1326 /* Treat tool bars like menu bars. */
1327 if (FRAME_MINIBUF_ONLY_P (f
))
1330 /* Use VALUE only if an integer >= 0. */
1331 if (INTEGERP (value
) && XINT (value
) >= 0)
1332 nlines
= XFASTINT (value
);
1337 FRAME_TOOL_BAR_LINES (f
) = 0;
1340 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1341 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1342 /* Make sure next redisplay shows the tool bar. */
1343 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1344 update_frame_tool_bar (f
);
1348 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1349 free_frame_tool_bar (f
);
1350 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1356 /* Make sure we redisplay all windows in this frame. */
1357 ++windows_or_buffers_changed
;
1359 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1361 /* Don't resize the tool-bar to more than we have room for. */
1362 root_window
= FRAME_ROOT_WINDOW (f
);
1363 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1364 if (root_height
- delta
< 1)
1366 delta
= root_height
- 1;
1367 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1370 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1371 change_window_heights (root_window
, delta
);
1374 /* We also have to make sure that the internal border at the top of
1375 the frame, below the menu bar or tool bar, is redrawn when the
1376 tool bar disappears. This is so because the internal border is
1377 below the tool bar if one is displayed, but is below the menu bar
1378 if there isn't a tool bar. The tool bar draws into the area
1379 below the menu bar. */
1380 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1383 clear_current_matrices (f
);
1386 /* If the tool bar gets smaller, the internal border below it
1387 has to be cleared. It was formerly part of the display
1388 of the larger tool bar, and updating windows won't clear it. */
1391 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1392 int width
= FRAME_PIXEL_WIDTH (f
);
1393 int y
= (FRAME_MENU_BAR_LINES (f
) + nlines
) * FRAME_LINE_HEIGHT (f
);
1395 /* height can be zero here. */
1396 if (height
> 0 && width
> 0)
1399 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1400 0, y
, width
, height
, False
);
1404 if (WINDOWP (f
->tool_bar_window
))
1405 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1410 /* Set the foreground color for scroll bars on frame F to VALUE.
1411 VALUE should be a string, a color name. If it isn't a string or
1412 isn't a valid color name, do nothing. OLDVAL is the old value of
1413 the frame parameter. */
1416 x_set_scroll_bar_foreground (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1418 unsigned long pixel
;
1420 if (STRINGP (value
))
1421 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1425 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1426 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1428 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1429 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1431 /* Remove all scroll bars because they have wrong colors. */
1432 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1433 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1434 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1435 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1437 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1443 /* Set the background color for scroll bars on frame F to VALUE VALUE
1444 should be a string, a color name. If it isn't a string or isn't a
1445 valid color name, do nothing. OLDVAL is the old value of the frame
1449 x_set_scroll_bar_background (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1451 unsigned long pixel
;
1453 if (STRINGP (value
))
1454 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1458 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1459 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1461 #ifdef USE_TOOLKIT_SCROLL_BARS
1462 /* Scrollbar shadow colors. */
1463 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1465 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1466 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1468 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1470 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1471 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1473 #endif /* USE_TOOLKIT_SCROLL_BARS */
1475 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1476 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1478 /* Remove all scroll bars because they have wrong colors. */
1479 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1480 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1481 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1482 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1484 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1490 /* Encode Lisp string STRING as a text in a format appropriate for
1491 XICCC (X Inter Client Communication Conventions).
1493 This can call Lisp code, so callers must GCPRO.
1495 If STRING contains only ASCII characters, do no conversion and
1496 return the string data of STRING. Otherwise, encode the text by
1497 CODING_SYSTEM, and return a newly allocated memory area which
1498 should be freed by `xfree' by a caller.
1500 SELECTIONP non-zero means the string is being encoded for an X
1501 selection, so it is safe to run pre-write conversions (which
1504 Store the byte length of resulting text in *TEXT_BYTES.
1506 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1507 which means that the `encoding' of the result can be `STRING'.
1508 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1509 the result should be `COMPOUND_TEXT'. */
1511 static unsigned char *
1512 x_encode_text (Lisp_Object string
, Lisp_Object coding_system
, int selectionp
, int *text_bytes
, int *stringp
, int *freep
)
1514 int result
= string_xstring_p (string
);
1515 struct coding_system coding
;
1519 /* No multibyte character in OBJ. We need not encode it. */
1520 *text_bytes
= SBYTES (string
);
1523 return SDATA (string
);
1526 setup_coding_system (coding_system
, &coding
);
1527 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1528 /* We suppress producing escape sequences for composition. */
1529 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1530 coding
.dst_bytes
= SCHARS (string
) * 2;
1531 coding
.destination
= (unsigned char *) xmalloc (coding
.dst_bytes
);
1532 encode_coding_object (&coding
, string
, 0, 0,
1533 SCHARS (string
), SBYTES (string
), Qnil
);
1534 *text_bytes
= coding
.produced
;
1535 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1537 return coding
.destination
;
1541 /* Set the WM name to NAME for frame F. Also set the icon name.
1542 If the frame already has an icon name, use that, otherwise set the
1543 icon name to NAME. */
1546 x_set_name_internal (FRAME_PTR f
, Lisp_Object name
)
1548 if (FRAME_X_WINDOW (f
))
1552 XTextProperty text
, icon
;
1554 int do_free_icon_value
= 0, do_free_text_value
= 0;
1555 Lisp_Object coding_system
;
1556 Lisp_Object encoded_name
;
1557 Lisp_Object encoded_icon_name
;
1558 struct gcpro gcpro1
;
1560 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1561 we use it before x_encode_text that may return string data. */
1563 encoded_name
= ENCODE_UTF_8 (name
);
1566 coding_system
= Qcompound_text
;
1567 /* Note: Encoding strategy
1569 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1570 text.encoding. But, there are non-internationalized window
1571 managers which don't support that encoding. So, if NAME
1572 contains only ASCII and 8859-1 characters, encode it by
1573 iso-latin-1, and use "STRING" in text.encoding hoping that
1574 such window managers at least analyze this format correctly,
1575 i.e. treat 8-bit bytes as 8859-1 characters.
1577 We may also be able to use "UTF8_STRING" in text.encoding
1578 in the future which can encode all Unicode characters.
1579 But, for the moment, there's no way to know that the
1580 current window manager supports it or not.
1582 Either way, we also set the _NET_WM_NAME and _NET_WM_ICON_NAME
1583 properties. Per the EWMH specification, those two properties
1584 are always UTF8_STRING. This matches what gtk_window_set_title()
1585 does in the USE_GTK case. */
1586 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1587 &do_free_text_value
);
1588 text
.encoding
= (stringp
? XA_STRING
1589 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1591 text
.nitems
= bytes
;
1593 if (!STRINGP (f
->icon_name
))
1596 encoded_icon_name
= encoded_name
;
1600 /* See the above comment "Note: Encoding strategy". */
1601 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1602 &bytes
, &stringp
, &do_free_icon_value
);
1603 icon
.encoding
= (stringp
? XA_STRING
1604 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1606 icon
.nitems
= bytes
;
1608 encoded_icon_name
= ENCODE_UTF_8 (f
->icon_name
);
1612 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1613 (char *) SDATA (encoded_name
));
1614 #else /* not USE_GTK */
1615 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1616 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1617 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_name
,
1618 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1620 (char *) SDATA (encoded_name
),
1621 SBYTES (encoded_name
));
1622 #endif /* not USE_GTK */
1624 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1625 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1626 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_icon_name
,
1627 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1629 (char *) SDATA (encoded_icon_name
),
1630 SBYTES (encoded_icon_name
));
1632 if (do_free_icon_value
)
1634 if (do_free_text_value
)
1641 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1644 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1645 name; if NAME is a string, set F's name to NAME and set
1646 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1648 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1649 suggesting a new name, which lisp code should override; if
1650 F->explicit_name is set, ignore the new name; otherwise, set it. */
1653 x_set_name (struct frame
*f
, Lisp_Object name
, int explicit)
1655 /* Make sure that requests from lisp code override requests from
1656 Emacs redisplay code. */
1659 /* If we're switching from explicit to implicit, we had better
1660 update the mode lines and thereby update the title. */
1661 if (f
->explicit_name
&& NILP (name
))
1662 update_mode_lines
= 1;
1664 f
->explicit_name
= ! NILP (name
);
1666 else if (f
->explicit_name
)
1669 /* If NAME is nil, set the name to the x_id_name. */
1672 /* Check for no change needed in this very common case
1673 before we do any consing. */
1674 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1677 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1680 CHECK_STRING (name
);
1682 /* Don't change the name if it's already NAME. */
1683 if (! NILP (Fstring_equal (name
, f
->name
)))
1688 /* For setting the frame title, the title parameter should override
1689 the name parameter. */
1690 if (! NILP (f
->title
))
1693 x_set_name_internal (f
, name
);
1696 /* This function should be called when the user's lisp code has
1697 specified a name for the frame; the name will override any set by the
1700 x_explicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1702 x_set_name (f
, arg
, 1);
1705 /* This function should be called by Emacs redisplay code to set the
1706 name; names set this way will never override names set by the user's
1709 x_implicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1711 x_set_name (f
, arg
, 0);
1714 /* Change the title of frame F to NAME.
1715 If NAME is nil, use the frame name as the title. */
1718 x_set_title (struct frame
*f
, Lisp_Object name
, Lisp_Object old_name
)
1720 /* Don't change the title if it's already NAME. */
1721 if (EQ (name
, f
->title
))
1724 update_mode_lines
= 1;
1731 CHECK_STRING (name
);
1733 x_set_name_internal (f
, name
);
1737 x_set_scroll_bar_default_width (struct frame
*f
)
1739 int wid
= FRAME_COLUMN_WIDTH (f
);
1741 #ifdef USE_TOOLKIT_SCROLL_BARS
1742 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1743 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1744 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1745 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1747 /* Make the actual width at least 14 pixels and a multiple of a
1749 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1751 /* Use all of that space (aside from required margins) for the
1753 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1758 /* Record in frame F the specified or default value according to ALIST
1759 of the parameter named PROP (a Lisp symbol). If no value is
1760 specified for PROP, look for an X default for XPROP on the frame
1761 named NAME. If that is not found either, use the value DEFLT. */
1764 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1773 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1776 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1777 if (EQ (tem
, Qunbound
))
1779 #ifdef USE_TOOLKIT_SCROLL_BARS
1781 /* See if an X resource for the scroll bar color has been
1783 tem
= display_x_get_resource (dpyinfo
,
1784 build_string (foreground_p
1787 empty_unibyte_string
,
1788 build_string ("verticalScrollBar"),
1789 empty_unibyte_string
);
1792 /* If nothing has been specified, scroll bars will use a
1793 toolkit-dependent default. Because these defaults are
1794 difficult to get at without actually creating a scroll
1795 bar, use nil to indicate that no color has been
1800 #else /* not USE_TOOLKIT_SCROLL_BARS */
1804 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1807 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1814 #ifdef USE_X_TOOLKIT
1816 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1817 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1818 already be present because of the toolkit (Motif adds some of them,
1819 for example, but Xt doesn't). */
1822 hack_wm_protocols (f
, widget
)
1826 Display
*dpy
= XtDisplay (widget
);
1827 Window w
= XtWindow (widget
);
1828 int need_delete
= 1;
1835 unsigned char *catoms
;
1837 unsigned long nitems
= 0;
1838 unsigned long bytes_after
;
1840 if ((XGetWindowProperty (dpy
, w
,
1841 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1842 (long)0, (long)100, False
, XA_ATOM
,
1843 &type
, &format
, &nitems
, &bytes_after
,
1846 && format
== 32 && type
== XA_ATOM
)
1848 Atom
*atoms
= (Atom
*) catoms
;
1853 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1855 else if (atoms
[nitems
]
1856 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1858 else if (atoms
[nitems
]
1859 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1870 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1872 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1874 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1876 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1877 XA_ATOM
, 32, PropModeAppend
,
1878 (unsigned char *) props
, count
);
1886 /* Support routines for XIC (X Input Context). */
1890 static XFontSet
xic_create_xfontset (struct frame
*);
1891 static XIMStyle
best_xim_style (XIMStyles
*, XIMStyles
*);
1894 /* Supported XIM styles, ordered by preference. */
1896 static XIMStyle supported_xim_styles
[] =
1898 XIMPreeditPosition
| XIMStatusArea
,
1899 XIMPreeditPosition
| XIMStatusNothing
,
1900 XIMPreeditPosition
| XIMStatusNone
,
1901 XIMPreeditNothing
| XIMStatusArea
,
1902 XIMPreeditNothing
| XIMStatusNothing
,
1903 XIMPreeditNothing
| XIMStatusNone
,
1904 XIMPreeditNone
| XIMStatusArea
,
1905 XIMPreeditNone
| XIMStatusNothing
,
1906 XIMPreeditNone
| XIMStatusNone
,
1911 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1913 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1915 /* Create an Xt fontset spec from the name of a base font.
1916 If `motif' is True use the Motif syntax. */
1918 xic_create_fontsetname (char *base_fontname
, int motif
)
1920 const char *sep
= motif
? ";" : ",";
1923 /* Make a fontset name from the base font name. */
1924 if (xic_defaut_fontset
== base_fontname
)
1925 { /* There is no base font name, use the default. */
1926 int len
= strlen (base_fontname
) + 2;
1927 fontsetname
= xmalloc (len
);
1928 memset (fontsetname
, 0, len
);
1929 strcpy (fontsetname
, base_fontname
);
1933 /* Make a fontset name from the base font name.
1934 The font set will be made of the following elements:
1936 - the base font where the charset spec is replaced by -*-*.
1937 - the same but with the family also replaced with -*-*-. */
1938 char *p
= base_fontname
;
1941 for (i
= 0; *p
; p
++)
1944 { /* As the font name doesn't conform to XLFD, we can't
1945 modify it to generalize it to allcs and allfamilies.
1946 Use the specified font plus the default. */
1947 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
1948 fontsetname
= xmalloc (len
);
1949 memset (fontsetname
, 0, len
);
1950 strcpy (fontsetname
, base_fontname
);
1951 strcat (fontsetname
, sep
);
1952 strcat (fontsetname
, xic_defaut_fontset
);
1957 char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1958 char *font_allcs
= NULL
;
1959 char *font_allfamilies
= NULL
;
1960 char *font_all
= NULL
;
1961 char *allcs
= "*-*-*-*-*-*-*";
1962 char *allfamilies
= "-*-*-";
1963 char *all
= "*-*-*-*-";
1966 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
1979 /* If base_fontname specifies ADSTYLE, make it a
1983 int diff
= (p2
- p3
) - 2;
1985 base
= alloca (strlen (base_fontname
) + 1);
1986 memcpy (base
, base_fontname
, p3
- base_fontname
);
1987 base
[p3
- base_fontname
] = '*';
1988 base
[(p3
- base_fontname
) + 1] = '-';
1989 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
1990 p
= base
+ (p
- base_fontname
) - diff
;
1991 p1
= base
+ (p1
- base_fontname
);
1992 p2
= base
+ (p2
- base_fontname
) - diff
;
1993 base_fontname
= base
;
1996 /* Build the font spec that matches all charsets. */
1997 len
= p
- base_fontname
+ strlen (allcs
) + 1;
1998 font_allcs
= (char *) alloca (len
);
1999 memset (font_allcs
, 0, len
);
2000 memcpy (font_allcs
, base_fontname
, p
- base_fontname
);
2001 strcat (font_allcs
, allcs
);
2003 /* Build the font spec that matches all families and
2005 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2006 font_allfamilies
= (char *) alloca (len
);
2007 memset (font_allfamilies
, 0, len
);
2008 strcpy (font_allfamilies
, allfamilies
);
2009 memcpy (font_allfamilies
+ strlen (allfamilies
), p1
, p
- p1
);
2010 strcat (font_allfamilies
, allcs
);
2012 /* Build the font spec that matches all. */
2013 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2014 font_all
= (char *) alloca (len
);
2015 memset (font_all
, 0, len
);
2016 strcpy (font_all
, allfamilies
);
2017 strcat (font_all
, all
);
2018 memcpy (font_all
+ strlen (all
) + strlen (allfamilies
), p2
, p
- p2
);
2019 strcat (font_all
, allcs
);
2021 /* Build the actual font set name. */
2022 len
= strlen (base_fontname
) + strlen (font_allcs
)
2023 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2024 fontsetname
= xmalloc (len
);
2025 memset (fontsetname
, 0, len
);
2026 strcpy (fontsetname
, base_fontname
);
2027 strcat (fontsetname
, sep
);
2028 strcat (fontsetname
, font_allcs
);
2029 strcat (fontsetname
, sep
);
2030 strcat (fontsetname
, font_allfamilies
);
2031 strcat (fontsetname
, sep
);
2032 strcat (fontsetname
, font_all
);
2036 strcat (fontsetname
, ":");
2040 #ifdef DEBUG_XIC_FONTSET
2042 print_fontset_result (xfs
, name
, missing_list
, missing_count
)
2045 char **missing_list
;
2049 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
2052 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
2053 while (missing_count
-- > 0)
2055 fprintf (stderr
, " missing: %s\n", *missing_list
);
2064 xic_create_xfontset (struct frame
*f
)
2066 XFontSet xfs
= NULL
;
2067 struct font
*font
= FRAME_FONT (f
);
2068 int pixel_size
= font
->pixel_size
;
2069 Lisp_Object rest
, frame
;
2071 /* See if there is another frame already using same fontset. */
2072 FOR_EACH_FRAME (rest
, frame
)
2074 struct frame
*cf
= XFRAME (frame
);
2076 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2077 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2079 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
2081 xfs
= FRAME_XIC_FONTSET (cf
);
2089 char **missing_list
;
2092 char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
2094 sprintf (buf
, xlfd_format
, pixel_size
);
2095 missing_list
= NULL
;
2096 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2097 &missing_list
, &missing_count
, &def_string
);
2098 #ifdef DEBUG_XIC_FONTSET
2099 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2102 XFreeStringList (missing_list
);
2105 /* List of pixel sizes most likely available. Find one that
2106 is closest to pixel_size. */
2107 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2108 int *smaller
, *larger
;
2110 for (smaller
= sizes
; smaller
[1]; smaller
++)
2111 if (smaller
[1] >= pixel_size
)
2113 larger
= smaller
+ 1;
2114 if (*larger
== pixel_size
)
2116 while (*smaller
|| *larger
)
2121 this_size
= *smaller
--;
2122 else if (! *smaller
)
2123 this_size
= *larger
++;
2124 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
2125 this_size
= *smaller
--;
2127 this_size
= *larger
++;
2128 sprintf (buf
, xlfd_format
, this_size
);
2129 missing_list
= NULL
;
2130 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2131 &missing_list
, &missing_count
, &def_string
);
2132 #ifdef DEBUG_XIC_FONTSET
2133 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2136 XFreeStringList (missing_list
);
2143 char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
2145 missing_list
= NULL
;
2146 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
2147 &missing_list
, &missing_count
, &def_string
);
2148 #ifdef DEBUG_XIC_FONTSET
2149 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
2152 XFreeStringList (missing_list
);
2160 /* Free the X fontset of frame F if it is the last frame using it. */
2163 xic_free_xfontset (struct frame
*f
)
2165 Lisp_Object rest
, frame
;
2168 if (!FRAME_XIC_FONTSET (f
))
2171 /* See if there is another frame sharing the same fontset. */
2172 FOR_EACH_FRAME (rest
, frame
)
2174 struct frame
*cf
= XFRAME (frame
);
2175 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2176 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2177 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2185 /* The fontset is not used anymore. It is safe to free it. */
2186 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2188 if (FRAME_XIC_BASE_FONTNAME (f
))
2189 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2190 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2191 FRAME_XIC_FONTSET (f
) = NULL
;
2195 /* Value is the best input style, given user preferences USER (already
2196 checked to be supported by Emacs), and styles supported by the
2197 input method XIM. */
2200 best_xim_style (XIMStyles
*user
, XIMStyles
*xim
)
2204 for (i
= 0; i
< user
->count_styles
; ++i
)
2205 for (j
= 0; j
< xim
->count_styles
; ++j
)
2206 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2207 return user
->supported_styles
[i
];
2209 /* Return the default style. */
2210 return XIMPreeditNothing
| XIMStatusNothing
;
2213 /* Create XIC for frame F. */
2215 static XIMStyle xic_style
;
2218 create_frame_xic (struct frame
*f
)
2222 XFontSet xfs
= NULL
;
2227 /* Create X fontset. */
2228 xfs
= xic_create_xfontset (f
);
2229 xim
= FRAME_X_XIM (f
);
2234 XVaNestedList preedit_attr
;
2235 XVaNestedList status_attr
;
2237 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2238 spot
.x
= 0; spot
.y
= 1;
2240 /* Determine XIC style. */
2243 XIMStyles supported_list
;
2244 supported_list
.count_styles
= (sizeof supported_xim_styles
2245 / sizeof supported_xim_styles
[0]);
2246 supported_list
.supported_styles
= supported_xim_styles
;
2247 xic_style
= best_xim_style (&supported_list
,
2248 FRAME_X_XIM_STYLES (f
));
2251 preedit_attr
= XVaCreateNestedList (0,
2254 FRAME_FOREGROUND_PIXEL (f
),
2256 FRAME_BACKGROUND_PIXEL (f
),
2257 (xic_style
& XIMPreeditPosition
2262 status_attr
= XVaCreateNestedList (0,
2268 FRAME_FOREGROUND_PIXEL (f
),
2270 FRAME_BACKGROUND_PIXEL (f
),
2273 xic
= XCreateIC (xim
,
2274 XNInputStyle
, xic_style
,
2275 XNClientWindow
, FRAME_X_WINDOW (f
),
2276 XNFocusWindow
, FRAME_X_WINDOW (f
),
2277 XNStatusAttributes
, status_attr
,
2278 XNPreeditAttributes
, preedit_attr
,
2280 XFree (preedit_attr
);
2281 XFree (status_attr
);
2284 FRAME_XIC (f
) = xic
;
2285 FRAME_XIC_STYLE (f
) = xic_style
;
2286 FRAME_XIC_FONTSET (f
) = xfs
;
2290 /* Destroy XIC and free XIC fontset of frame F, if any. */
2293 free_frame_xic (struct frame
*f
)
2295 if (FRAME_XIC (f
) == NULL
)
2298 XDestroyIC (FRAME_XIC (f
));
2299 xic_free_xfontset (f
);
2301 FRAME_XIC (f
) = NULL
;
2305 /* Place preedit area for XIC of window W's frame to specified
2306 pixel position X/Y. X and Y are relative to window W. */
2309 xic_set_preeditarea (struct window
*w
, int x
, int y
)
2311 struct frame
*f
= XFRAME (w
->frame
);
2315 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2316 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2317 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2318 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2323 /* Place status area for XIC in bottom right corner of frame F.. */
2326 xic_set_statusarea (struct frame
*f
)
2328 XIC xic
= FRAME_XIC (f
);
2333 /* Negotiate geometry of status area. If input method has existing
2334 status area, use its current size. */
2335 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2336 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2337 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2340 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2341 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2344 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2346 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2347 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2351 area
.width
= needed
->width
;
2352 area
.height
= needed
->height
;
2353 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2354 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2355 - FRAME_MENUBAR_HEIGHT (f
)
2356 - FRAME_TOOLBAR_HEIGHT (f
)
2357 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2360 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2361 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2366 /* Set X fontset for XIC of frame F, using base font name
2367 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2370 xic_set_xfontset (struct frame
*f
, char *base_fontname
)
2375 xic_free_xfontset (f
);
2377 xfs
= xic_create_xfontset (f
);
2379 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2380 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2381 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2382 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2383 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2386 FRAME_XIC_FONTSET (f
) = xfs
;
2389 #endif /* HAVE_X_I18N */
2393 #ifdef USE_X_TOOLKIT
2395 /* Create and set up the X widget for frame F. */
2398 x_window (f
, window_prompting
, minibuffer_only
)
2400 long window_prompting
;
2401 int minibuffer_only
;
2403 XClassHint class_hints
;
2404 XSetWindowAttributes attributes
;
2405 unsigned long attribute_mask
;
2406 Widget shell_widget
;
2408 Widget frame_widget
;
2414 /* Use the resource name as the top-level widget name
2415 for looking up resources. Make a non-Lisp copy
2416 for the window manager, so GC relocation won't bother it.
2418 Elsewhere we specify the window name for the window manager. */
2421 char *str
= (char *) SDATA (Vx_resource_name
);
2422 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2423 strcpy (f
->namebuf
, str
);
2427 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2428 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2429 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2430 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2431 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2432 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2433 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2434 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2435 applicationShellWidgetClass
,
2436 FRAME_X_DISPLAY (f
), al
, ac
);
2438 f
->output_data
.x
->widget
= shell_widget
;
2439 /* maybe_set_screen_title_format (shell_widget); */
2441 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2442 (widget_value
*) NULL
,
2443 shell_widget
, False
,
2447 (lw_callback
) NULL
);
2450 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2451 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2452 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2453 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2454 XtSetValues (pane_widget
, al
, ac
);
2455 f
->output_data
.x
->column_widget
= pane_widget
;
2457 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2458 the emacs screen when changing menubar. This reduces flickering. */
2461 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2462 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2463 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2464 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2465 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2466 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2467 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2468 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2469 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2470 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2473 f
->output_data
.x
->edit_widget
= frame_widget
;
2475 XtManageChild (frame_widget
);
2477 /* Do some needed geometry management. */
2480 char *tem
, shell_position
[32];
2483 int extra_borders
= 0;
2485 = (f
->output_data
.x
->menubar_widget
2486 ? (f
->output_data
.x
->menubar_widget
->core
.height
2487 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2490 #if 0 /* Experimentally, we now get the right results
2491 for -geometry -0-0 without this. 24 Aug 96, rms. */
2492 if (FRAME_EXTERNAL_MENU_BAR (f
))
2495 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2496 menubar_size
+= ibw
;
2500 f
->output_data
.x
->menubar_height
= menubar_size
;
2503 /* Motif seems to need this amount added to the sizes
2504 specified for the shell widget. The Athena/Lucid widgets don't.
2505 Both conclusions reached experimentally. -- rms. */
2506 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2507 &extra_borders
, NULL
);
2511 /* Convert our geometry parameters into a geometry string
2513 Note that we do not specify here whether the position
2514 is a user-specified or program-specified one.
2515 We pass that information later, in x_wm_set_size_hints. */
2517 int left
= f
->left_pos
;
2518 int xneg
= window_prompting
& XNegative
;
2519 int top
= f
->top_pos
;
2520 int yneg
= window_prompting
& YNegative
;
2526 if (window_prompting
& USPosition
)
2527 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2528 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2529 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2530 (xneg
? '-' : '+'), left
,
2531 (yneg
? '-' : '+'), top
);
2534 sprintf (shell_position
, "=%dx%d",
2535 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2536 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2538 /* Setting x and y when the position is not specified in
2539 the geometry string will set program position in the WM hints.
2540 If Emacs had just one program position, we could set it in
2541 fallback resources, but since each make-frame call can specify
2542 different program positions, this is easier. */
2543 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2544 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2548 len
= strlen (shell_position
) + 1;
2549 /* We don't free this because we don't know whether
2550 it is safe to free it while the frame exists.
2551 It isn't worth the trouble of arranging to free it
2552 when the frame is deleted. */
2553 tem
= (char *) xmalloc (len
);
2554 strncpy (tem
, shell_position
, len
);
2555 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2556 XtSetValues (shell_widget
, al
, ac
);
2559 XtManageChild (pane_widget
);
2560 XtRealizeWidget (shell_widget
);
2562 if (FRAME_X_EMBEDDED_P (f
))
2563 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2564 f
->output_data
.x
->parent_desc
, 0, 0);
2566 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2568 validate_x_resource_name ();
2570 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2571 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2572 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2575 FRAME_XIC (f
) = NULL
;
2577 create_frame_xic (f
);
2580 f
->output_data
.x
->wm_hints
.input
= True
;
2581 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2582 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2583 &f
->output_data
.x
->wm_hints
);
2585 hack_wm_protocols (f
, shell_widget
);
2588 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2591 /* Do a stupid property change to force the server to generate a
2592 PropertyNotify event so that the event_stream server timestamp will
2593 be initialized to something relevant to the time we created the window.
2595 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2596 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2597 XA_ATOM
, 32, PropModeAppend
,
2598 (unsigned char*) NULL
, 0);
2600 /* Make all the standard events reach the Emacs frame. */
2601 attributes
.event_mask
= STANDARD_EVENT_SET
;
2606 /* XIM server might require some X events. */
2607 unsigned long fevent
= NoEventMask
;
2608 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2609 attributes
.event_mask
|= fevent
;
2611 #endif /* HAVE_X_I18N */
2613 attribute_mask
= CWEventMask
;
2614 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2615 attribute_mask
, &attributes
);
2617 XtMapWidget (frame_widget
);
2619 /* x_set_name normally ignores requests to set the name if the
2620 requested name is the same as the current name. This is the one
2621 place where that assumption isn't correct; f->name is set, but
2622 the X server hasn't been told. */
2625 int explicit = f
->explicit_name
;
2627 f
->explicit_name
= 0;
2630 x_set_name (f
, name
, explicit);
2633 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2634 f
->output_data
.x
->current_cursor
2635 = f
->output_data
.x
->text_cursor
);
2639 /* This is a no-op, except under Motif. Make sure main areas are
2640 set to something reasonable, in case we get an error later. */
2641 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2644 #else /* not USE_X_TOOLKIT */
2647 x_window (FRAME_PTR f
)
2649 if (! xg_create_frame_widgets (f
))
2650 error ("Unable to create window");
2653 FRAME_XIC (f
) = NULL
;
2657 create_frame_xic (f
);
2660 /* XIM server might require some X events. */
2661 unsigned long fevent
= NoEventMask
;
2662 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2664 if (fevent
!= NoEventMask
)
2666 XSetWindowAttributes attributes
;
2667 XWindowAttributes wattr
;
2668 unsigned long attribute_mask
;
2670 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2672 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2673 attribute_mask
= CWEventMask
;
2674 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2675 attribute_mask
, &attributes
);
2683 #else /*! USE_GTK */
2684 /* Create and set up the X window for frame F. */
2691 XClassHint class_hints
;
2692 XSetWindowAttributes attributes
;
2693 unsigned long attribute_mask
;
2695 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2696 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2697 attributes
.bit_gravity
= StaticGravity
;
2698 attributes
.backing_store
= NotUseful
;
2699 attributes
.save_under
= True
;
2700 attributes
.event_mask
= STANDARD_EVENT_SET
;
2701 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2702 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2707 = XCreateWindow (FRAME_X_DISPLAY (f
),
2708 f
->output_data
.x
->parent_desc
,
2711 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2713 CopyFromParent
, /* depth */
2714 InputOutput
, /* class */
2716 attribute_mask
, &attributes
);
2721 create_frame_xic (f
);
2724 /* XIM server might require some X events. */
2725 unsigned long fevent
= NoEventMask
;
2726 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2727 attributes
.event_mask
|= fevent
;
2728 attribute_mask
= CWEventMask
;
2729 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2730 attribute_mask
, &attributes
);
2733 #endif /* HAVE_X_I18N */
2735 validate_x_resource_name ();
2737 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2738 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2739 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2741 /* The menubar is part of the ordinary display;
2742 it does not count in addition to the height of the window. */
2743 f
->output_data
.x
->menubar_height
= 0;
2745 /* This indicates that we use the "Passive Input" input model.
2746 Unless we do this, we don't get the Focus{In,Out} events that we
2747 need to draw the cursor correctly. Accursed bureaucrats.
2748 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2750 f
->output_data
.x
->wm_hints
.input
= True
;
2751 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2752 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2753 &f
->output_data
.x
->wm_hints
);
2754 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2756 /* Request "save yourself" and "delete window" commands from wm. */
2759 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2760 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2761 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2764 /* x_set_name normally ignores requests to set the name if the
2765 requested name is the same as the current name. This is the one
2766 place where that assumption isn't correct; f->name is set, but
2767 the X server hasn't been told. */
2770 int explicit = f
->explicit_name
;
2772 f
->explicit_name
= 0;
2775 x_set_name (f
, name
, explicit);
2778 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2779 f
->output_data
.x
->current_cursor
2780 = f
->output_data
.x
->text_cursor
);
2784 if (FRAME_X_WINDOW (f
) == 0)
2785 error ("Unable to create window");
2788 #endif /* not USE_GTK */
2789 #endif /* not USE_X_TOOLKIT */
2791 /* Verify that the icon position args for this window are valid. */
2794 x_icon_verify (struct frame
*f
, Lisp_Object parms
)
2796 Lisp_Object icon_x
, icon_y
;
2798 /* Set the position of the icon. Note that twm groups all
2799 icons in an icon window. */
2800 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2801 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2802 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2804 CHECK_NUMBER (icon_x
);
2805 CHECK_NUMBER (icon_y
);
2807 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2808 error ("Both left and top icon corners of icon must be specified");
2811 /* Handle the icon stuff for this window. Perhaps later we might
2812 want an x_set_icon_position which can be called interactively as
2816 x_icon (struct frame
*f
, Lisp_Object parms
)
2818 Lisp_Object icon_x
, icon_y
;
2820 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2823 /* Set the position of the icon. Note that twm groups all
2824 icons in an icon window. */
2825 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2826 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2827 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2829 CHECK_NUMBER (icon_x
);
2830 CHECK_NUMBER (icon_y
);
2832 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2833 error ("Both left and top icon corners of icon must be specified");
2837 if (! EQ (icon_x
, Qunbound
))
2838 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2840 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2841 but x_create_frame still needs it. */
2842 /* Start up iconic or window? */
2843 x_wm_set_window_state
2844 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2850 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2857 /* Make the GCs needed for this window, setting the
2858 background, border and mouse colors; also create the
2859 mouse cursor and the gray border tile. */
2862 x_make_gc (struct frame
*f
)
2864 XGCValues gc_values
;
2868 /* Create the GCs of this frame.
2869 Note that many default values are used. */
2871 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2872 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2873 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2874 f
->output_data
.x
->normal_gc
2875 = XCreateGC (FRAME_X_DISPLAY (f
),
2877 GCLineWidth
| GCForeground
| GCBackground
,
2880 /* Reverse video style. */
2881 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2882 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2883 f
->output_data
.x
->reverse_gc
2884 = XCreateGC (FRAME_X_DISPLAY (f
),
2886 GCForeground
| GCBackground
| GCLineWidth
,
2889 /* Cursor has cursor-color background, background-color foreground. */
2890 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2891 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2892 gc_values
.fill_style
= FillOpaqueStippled
;
2893 f
->output_data
.x
->cursor_gc
2894 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2895 (GCForeground
| GCBackground
2896 | GCFillStyle
| GCLineWidth
),
2900 f
->output_data
.x
->white_relief
.gc
= 0;
2901 f
->output_data
.x
->black_relief
.gc
= 0;
2903 /* Create the gray border tile used when the pointer is not in
2904 the frame. Since this depends on the frame's pixel values,
2905 this must be done on a per-frame basis. */
2906 f
->output_data
.x
->border_tile
2907 = (XCreatePixmapFromBitmapData
2908 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2909 gray_bits
, gray_width
, gray_height
,
2910 FRAME_FOREGROUND_PIXEL (f
),
2911 FRAME_BACKGROUND_PIXEL (f
),
2912 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2918 /* Free what was allocated in x_make_gc. */
2921 x_free_gcs (struct frame
*f
)
2923 Display
*dpy
= FRAME_X_DISPLAY (f
);
2927 if (f
->output_data
.x
->normal_gc
)
2929 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2930 f
->output_data
.x
->normal_gc
= 0;
2933 if (f
->output_data
.x
->reverse_gc
)
2935 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2936 f
->output_data
.x
->reverse_gc
= 0;
2939 if (f
->output_data
.x
->cursor_gc
)
2941 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2942 f
->output_data
.x
->cursor_gc
= 0;
2945 if (f
->output_data
.x
->border_tile
)
2947 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2948 f
->output_data
.x
->border_tile
= 0;
2955 /* Handler for signals raised during x_create_frame and
2956 x_create_top_frame. FRAME is the frame which is partially
2960 unwind_create_frame (Lisp_Object frame
)
2962 struct frame
*f
= XFRAME (frame
);
2964 /* If frame is already dead, nothing to do. This can happen if the
2965 display is disconnected after the frame has become official, but
2966 before x_create_frame removes the unwind protect. */
2967 if (!FRAME_LIVE_P (f
))
2970 /* If frame is ``official'', nothing to do. */
2971 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2974 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2977 x_free_frame_resources (f
);
2980 /* Check that reference counts are indeed correct. */
2981 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2982 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2992 x_default_font_parameter (struct frame
*f
, Lisp_Object parms
)
2994 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2995 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
2997 Lisp_Object font
= Qnil
;
2998 if (EQ (font_param
, Qunbound
))
3001 if (NILP (font_param
))
3003 /* System font should take precedendce over X resources. We suggest this
3004 regardless of font-use-system-font because .emacs may not have been
3006 const char *system_font
= xsettings_get_system_font ();
3009 char *name
= xstrdup (system_font
);
3010 font
= font_open_by_name (f
, name
);
3016 font
= !NILP (font_param
) ? font_param
3017 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3019 if (! FONTP (font
) && ! STRINGP (font
))
3024 /* This will find the normal Xft font. */
3027 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
3028 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3029 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3030 /* This was formerly the first thing tried, but it finds
3031 too many fonts and takes too long. */
3032 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
3033 /* If those didn't work, look for something which will
3035 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
3040 for (i
= 0; names
[i
]; i
++)
3042 font
= font_open_by_name (f
, names
[i
]);
3047 error ("No suitable font was found");
3049 else if (!NILP (font_param
))
3051 /* Remember the explicit font parameter, so we can re-apply it after
3052 we've applied the `default' face settings. */
3053 x_set_frame_parameters (f
, Fcons (Fcons (Qfont_param
, font_param
), Qnil
));
3056 /* This call will make X resources override any system font setting. */
3057 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
3061 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
3063 doc
: /* Send the size hints for frame FRAME to the window manager.
3064 If FRAME is nil, use the selected frame. */)
3069 frame
= selected_frame
;
3073 x_wm_set_size_hint (f
, 0, 0);
3079 set_machine_and_pid_properties (struct frame
*f
)
3081 /* See the above comment "Note: Encoding strategy". */
3084 int do_free_text_value
= 0;
3085 long pid
= (long) getpid ();
3087 text
.value
= x_encode_text (Vsystem_name
,
3088 Qcompound_text
, 0, &bytes
, &stringp
,
3089 &do_free_text_value
);
3090 text
.encoding
= (stringp
? XA_STRING
3091 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
3093 text
.nitems
= bytes
;
3094 XSetWMClientMachine (FRAME_X_DISPLAY (f
),
3095 FRAME_OUTER_WINDOW (f
),
3097 if (do_free_text_value
)
3100 XChangeProperty (FRAME_X_DISPLAY (f
),
3101 FRAME_OUTER_WINDOW (f
),
3102 XInternAtom (FRAME_X_DISPLAY (f
),
3105 XA_CARDINAL
, 32, PropModeReplace
,
3106 (unsigned char *) &pid
, 1);
3109 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3111 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3112 Return an Emacs frame object.
3113 PARMS is an alist of frame parameters.
3114 If the parameters specify that the frame should not have a minibuffer,
3115 and do not specify a specific minibuffer window to use,
3116 then `default-minibuffer-frame' must be a frame whose minibuffer can
3117 be shared by the new frame.
3119 This function is an internal primitive--use `make-frame' instead. */)
3123 Lisp_Object frame
, tem
;
3125 int minibuffer_only
= 0;
3126 long window_prompting
= 0;
3128 int count
= SPECPDL_INDEX ();
3129 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3130 Lisp_Object display
;
3131 struct x_display_info
*dpyinfo
= NULL
;
3135 parms
= Fcopy_alist (parms
);
3137 /* Use this general default value to start with
3138 until we know if this frame has a specified name. */
3139 Vx_resource_name
= Vinvocation_name
;
3141 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3142 if (EQ (display
, Qunbound
))
3143 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3144 if (EQ (display
, Qunbound
))
3146 dpyinfo
= check_x_display_info (display
);
3147 kb
= dpyinfo
->terminal
->kboard
;
3149 if (!dpyinfo
->terminal
->name
)
3150 error ("Terminal is not live, can't create new frames on it");
3152 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3154 && ! EQ (name
, Qunbound
)
3156 error ("Invalid frame name--not a string or nil");
3159 Vx_resource_name
= name
;
3161 /* See if parent window is specified. */
3162 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3163 if (EQ (parent
, Qunbound
))
3165 if (! NILP (parent
))
3166 CHECK_NUMBER (parent
);
3168 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3169 /* No need to protect DISPLAY because that's not used after passing
3170 it to make_frame_without_minibuffer. */
3172 GCPRO4 (parms
, parent
, name
, frame
);
3173 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3175 if (EQ (tem
, Qnone
) || NILP (tem
))
3176 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3177 else if (EQ (tem
, Qonly
))
3179 f
= make_minibuffer_frame ();
3180 minibuffer_only
= 1;
3182 else if (WINDOWP (tem
))
3183 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3187 XSETFRAME (frame
, f
);
3189 /* Note that X Windows does support scroll bars. */
3190 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3192 f
->terminal
= dpyinfo
->terminal
;
3193 f
->terminal
->reference_count
++;
3195 f
->output_method
= output_x_window
;
3196 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3197 memset (f
->output_data
.x
, 0, sizeof (struct x_output
));
3198 f
->output_data
.x
->icon_bitmap
= -1;
3199 FRAME_FONTSET (f
) = -1;
3200 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3201 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3202 #ifdef USE_TOOLKIT_SCROLL_BARS
3203 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3204 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3205 #endif /* USE_TOOLKIT_SCROLL_BARS */
3208 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3210 if (! STRINGP (f
->icon_name
))
3211 f
->icon_name
= Qnil
;
3213 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3215 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3216 record_unwind_protect (unwind_create_frame
, frame
);
3218 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
3219 dpyinfo_refcount
= dpyinfo
->reference_count
;
3220 #endif /* GLYPH_DEBUG */
3222 /* These colors will be set anyway later, but it's important
3223 to get the color reference counts right, so initialize them! */
3226 struct gcpro gcpro1
;
3228 /* Function x_decode_color can signal an error. Make
3229 sure to initialize color slots so that we won't try
3230 to free colors we haven't allocated. */
3231 FRAME_FOREGROUND_PIXEL (f
) = -1;
3232 FRAME_BACKGROUND_PIXEL (f
) = -1;
3233 f
->output_data
.x
->cursor_pixel
= -1;
3234 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3235 f
->output_data
.x
->border_pixel
= -1;
3236 f
->output_data
.x
->mouse_pixel
= -1;
3238 black
= build_string ("black");
3240 FRAME_FOREGROUND_PIXEL (f
)
3241 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3242 FRAME_BACKGROUND_PIXEL (f
)
3243 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3244 f
->output_data
.x
->cursor_pixel
3245 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3246 f
->output_data
.x
->cursor_foreground_pixel
3247 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3248 f
->output_data
.x
->border_pixel
3249 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3250 f
->output_data
.x
->mouse_pixel
3251 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3255 /* Specify the parent under which to make this X window. */
3259 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3260 f
->output_data
.x
->explicit_parent
= 1;
3264 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3265 f
->output_data
.x
->explicit_parent
= 0;
3268 /* Set the name; the functions to which we pass f expect the name to
3270 if (EQ (name
, Qunbound
) || NILP (name
))
3272 f
->name
= build_string (dpyinfo
->x_id_name
);
3273 f
->explicit_name
= 0;
3278 f
->explicit_name
= 1;
3279 /* use the frame's title when getting resources for this frame. */
3280 specbind (Qx_resource_name
, name
);
3283 f
->resx
= dpyinfo
->resx
;
3284 f
->resy
= dpyinfo
->resy
;
3286 #ifdef HAVE_FREETYPE
3288 register_font_driver (&xftfont_driver
, f
);
3289 #else /* not HAVE_XFT */
3290 register_font_driver (&ftxfont_driver
, f
);
3291 #endif /* not HAVE_XFT */
3292 #endif /* HAVE_FREETYPE */
3293 register_font_driver (&xfont_driver
, f
);
3295 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3296 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3298 /* Extract the window parameters from the supplied values
3299 that are needed to determine window geometry. */
3300 x_default_font_parameter (f
, parms
);
3301 if (!FRAME_FONT (f
))
3303 delete_frame (frame
, Qnoelisp
);
3304 error ("Invalid frame font");
3307 /* Frame contents get displaced if an embedded X window has a border. */
3308 if (! FRAME_X_EMBEDDED_P (f
))
3309 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
3310 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3312 /* This defaults to 1 in order to match xterm. We recognize either
3313 internalBorderWidth or internalBorder (which is what xterm calls
3315 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3319 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3320 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3321 if (! EQ (value
, Qunbound
))
3322 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3325 x_default_parameter (f
, parms
, Qinternal_border_width
,
3326 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3331 "internalBorderWidth", "internalBorderWidth",
3333 x_default_parameter (f
, parms
, Qvertical_scroll_bars
,
3334 #if defined(USE_GTK) && defined(USE_TOOLKIT_SCROLL_BARS)
3339 "verticalScrollBars", "ScrollBars",
3342 /* Also do the stuff which must be set before the window exists. */
3343 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3344 "foreground", "Foreground", RES_TYPE_STRING
);
3345 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3346 "background", "Background", RES_TYPE_STRING
);
3347 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3348 "pointerColor", "Foreground", RES_TYPE_STRING
);
3349 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3350 "cursorColor", "Foreground", RES_TYPE_STRING
);
3351 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3352 "borderColor", "BorderColor", RES_TYPE_STRING
);
3353 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3354 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3355 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3356 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3357 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3358 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3359 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3360 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3362 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3363 "scrollBarForeground",
3364 "ScrollBarForeground", 1);
3365 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3366 "scrollBarBackground",
3367 "ScrollBarBackground", 0);
3369 /* Init faces before x_default_parameter is called for scroll-bar
3370 parameters because that function calls x_set_scroll_bar_width,
3371 which calls change_frame_size, which calls Fset_window_buffer,
3372 which runs hooks, which call Fvertical_motion. At the end, we
3373 end up in init_iterator with a null face cache, which should not
3375 init_frame_faces (f
);
3377 /* The X resources controlling the menu-bar and tool-bar are
3378 processed specially at startup, and reflected in the mode
3379 variables; ignore them here. */
3380 x_default_parameter (f
, parms
, Qmenu_bar_lines
,
3381 NILP (Vmenu_bar_mode
)
3382 ? make_number (0) : make_number (1),
3383 NULL
, NULL
, RES_TYPE_NUMBER
);
3384 x_default_parameter (f
, parms
, Qtool_bar_lines
,
3385 NILP (Vtool_bar_mode
)
3386 ? make_number (0) : make_number (1),
3387 NULL
, NULL
, RES_TYPE_NUMBER
);
3389 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3390 "bufferPredicate", "BufferPredicate",
3392 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3393 "title", "Title", RES_TYPE_STRING
);
3394 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3395 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3396 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3397 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3399 /* Compute the size of the X window. */
3400 window_prompting
= x_figure_window_size (f
, parms
, 1);
3402 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3403 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3405 x_icon_verify (f
, parms
);
3407 /* Create the X widget or window. */
3408 #ifdef USE_X_TOOLKIT
3409 x_window (f
, window_prompting
, minibuffer_only
);
3417 /* Now consider the frame official. */
3418 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3419 Vframe_list
= Fcons (frame
, Vframe_list
);
3421 /* We need to do this after creating the X window, so that the
3422 icon-creation functions can say whose icon they're describing. */
3423 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3424 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3426 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3427 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3428 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3429 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3430 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3431 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3432 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3433 "scrollBarWidth", "ScrollBarWidth",
3435 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3436 "alpha", "Alpha", RES_TYPE_NUMBER
);
3438 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3439 Change will not be effected unless different from the current
3441 width
= FRAME_COLS (f
);
3442 height
= FRAME_LINES (f
);
3444 SET_FRAME_COLS (f
, 0);
3445 FRAME_LINES (f
) = 0;
3446 change_frame_size (f
, height
, width
, 1, 0, 0);
3448 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3449 /* Create the menu bar. */
3450 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3452 /* If this signals an error, we haven't set size hints for the
3453 frame and we didn't make it visible. */
3454 initialize_frame_menubar (f
);
3457 /* This is a no-op, except under Motif where it arranges the
3458 main window for the widgets on it. */
3459 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3460 f
->output_data
.x
->menubar_widget
,
3461 f
->output_data
.x
->edit_widget
);
3462 #endif /* not USE_GTK */
3464 #endif /* USE_X_TOOLKIT || USE_GTK */
3466 /* Tell the server what size and position, etc, we want, and how
3467 badly we want them. This should be done after we have the menu
3468 bar so that its size can be taken into account. */
3470 x_wm_set_size_hint (f
, window_prompting
, 0);
3473 /* Make the window appear on the frame and enable display, unless
3474 the caller says not to. However, with explicit parent, Emacs
3475 cannot control visibility, so don't try. */
3476 if (! f
->output_data
.x
->explicit_parent
)
3478 Lisp_Object visibility
;
3480 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3482 if (EQ (visibility
, Qunbound
))
3485 if (EQ (visibility
, Qicon
))
3486 x_iconify_frame (f
);
3487 else if (! NILP (visibility
))
3488 x_make_frame_visible (f
);
3490 /* Must have been Qnil. */
3496 /* Set machine name and pid for the purpose of window managers. */
3497 set_machine_and_pid_properties(f
);
3499 /* Set the WM leader property. GTK does this itself, so this is not
3500 needed when using GTK. */
3501 if (dpyinfo
->client_leader_window
!= 0)
3503 XChangeProperty (FRAME_X_DISPLAY (f
),
3504 FRAME_OUTER_WINDOW (f
),
3505 dpyinfo
->Xatom_wm_client_leader
,
3506 XA_WINDOW
, 32, PropModeReplace
,
3507 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3512 /* Initialize `default-minibuffer-frame' in case this is the first
3513 frame on this terminal. */
3514 if (FRAME_HAS_MINIBUF_P (f
)
3515 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3516 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3517 kb
->Vdefault_minibuffer_frame
= frame
;
3519 /* All remaining specified parameters, which have not been "used"
3520 by x_get_arg and friends, now go in the misc. alist of the frame. */
3521 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3522 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3523 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3527 /* Make sure windows on this frame appear in calls to next-window
3528 and similar functions. */
3529 Vwindow_list
= Qnil
;
3531 return unbind_to (count
, frame
);
3535 /* FRAME is used only to get a handle on the X display. We don't pass the
3536 display info directly because we're called from frame.c, which doesn't
3537 know about that structure. */
3540 x_get_focus_frame (struct frame
*frame
)
3542 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3544 if (! dpyinfo
->x_focus_frame
)
3547 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3552 /* In certain situations, when the window manager follows a
3553 click-to-focus policy, there seems to be no way around calling
3554 XSetInputFocus to give another frame the input focus .
3556 In an ideal world, XSetInputFocus should generally be avoided so
3557 that applications don't interfere with the window manager's focus
3558 policy. But I think it's okay to use when it's clearly done
3559 following a user-command. */
3561 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3562 doc
: /* Set the input focus to FRAME.
3563 FRAME nil means use the selected frame. */)
3566 struct frame
*f
= check_x_frame (frame
);
3567 Display
*dpy
= FRAME_X_DISPLAY (f
);
3570 x_catch_errors (dpy
);
3571 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3572 RevertToParent
, CurrentTime
);
3573 x_ewmh_activate_frame (f
);
3574 x_uncatch_errors ();
3581 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3582 doc
: /* Internal function called by `color-defined-p', which see. */)
3583 (Lisp_Object color
, Lisp_Object frame
)
3586 FRAME_PTR f
= check_x_frame (frame
);
3588 CHECK_STRING (color
);
3590 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3596 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3597 doc
: /* Internal function called by `color-values', which see. */)
3598 (Lisp_Object color
, Lisp_Object frame
)
3601 FRAME_PTR f
= check_x_frame (frame
);
3603 CHECK_STRING (color
);
3605 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3606 return list3 (make_number (foo
.red
),
3607 make_number (foo
.green
),
3608 make_number (foo
.blue
));
3613 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3614 doc
: /* Internal function called by `display-color-p', which see. */)
3615 (Lisp_Object terminal
)
3617 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3619 if (dpyinfo
->n_planes
<= 2)
3622 switch (dpyinfo
->visual
->class)
3635 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3637 doc
: /* Return t if the X display supports shades of gray.
3638 Note that color displays do support shades of gray.
3639 The optional argument TERMINAL specifies which display to ask about.
3640 TERMINAL should be a terminal object, a frame or a display name (a string).
3641 If omitted or nil, that stands for the selected frame's display. */)
3642 (Lisp_Object terminal
)
3644 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3646 if (dpyinfo
->n_planes
<= 1)
3649 switch (dpyinfo
->visual
->class)
3664 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3666 doc
: /* Return the width in pixels of the X display TERMINAL.
3667 The optional argument TERMINAL specifies which display to ask about.
3668 TERMINAL should be a terminal object, a frame or a display name (a string).
3669 If omitted or nil, that stands for the selected frame's display. */)
3670 (Lisp_Object terminal
)
3672 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3674 return make_number (x_display_pixel_width (dpyinfo
));
3677 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3678 Sx_display_pixel_height
, 0, 1, 0,
3679 doc
: /* Return the height in pixels of the X display TERMINAL.
3680 The optional argument TERMINAL specifies which display to ask about.
3681 TERMINAL should be a terminal object, a frame or a display name (a string).
3682 If omitted or nil, that stands for the selected frame's display. */)
3683 (Lisp_Object terminal
)
3685 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3687 return make_number (x_display_pixel_height (dpyinfo
));
3690 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3692 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3693 The optional argument TERMINAL specifies which display to ask about.
3694 TERMINAL should be a terminal object, a frame or a display name (a string).
3695 If omitted or nil, that stands for the selected frame's display. */)
3696 (Lisp_Object terminal
)
3698 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3700 return make_number (dpyinfo
->n_planes
);
3703 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3705 doc
: /* Return the number of color cells of the X display TERMINAL.
3706 The optional argument TERMINAL specifies which display to ask about.
3707 TERMINAL should be a terminal object, a frame or a display name (a string).
3708 If omitted or nil, that stands for the selected frame's display. */)
3709 (Lisp_Object terminal
)
3711 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3713 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3714 XScreenNumberOfScreen (dpyinfo
->screen
));
3716 /* Truncate nr_planes to 24 to avoid integer overflow.
3717 Some displays says 32, but only 24 bits are actually significant.
3718 There are only very few and rare video cards that have more than
3719 24 significant bits. Also 24 bits is more than 16 million colors,
3720 it "should be enough for everyone". */
3721 if (nr_planes
> 24) nr_planes
= 24;
3723 return make_number (1 << nr_planes
);
3726 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3727 Sx_server_max_request_size
,
3729 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3730 The optional argument TERMINAL specifies which display to ask about.
3731 TERMINAL should be a terminal object, a frame or a display name (a string).
3732 If omitted or nil, that stands for the selected frame's display. */)
3733 (Lisp_Object terminal
)
3735 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3737 return make_number (MAXREQUEST (dpyinfo
->display
));
3740 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3741 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3742 \(Labelling every distributor as a "vendor" embodies the false assumption
3743 that operating systems cannot be developed and distributed noncommercially.)
3744 The optional argument TERMINAL specifies which display to ask about.
3745 TERMINAL should be a terminal object, a frame or a display name (a string).
3746 If omitted or nil, that stands for the selected frame's display. */)
3747 (Lisp_Object terminal
)
3749 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3750 char *vendor
= ServerVendor (dpyinfo
->display
);
3752 if (! vendor
) vendor
= "";
3753 return build_string (vendor
);
3756 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3757 doc
: /* Return the version numbers of the X server of display TERMINAL.
3758 The value is a list of three integers: the major and minor
3759 version numbers of the X Protocol in use, and the distributor-specific release
3760 number. See also the function `x-server-vendor'.
3762 The optional argument TERMINAL specifies which display to ask about.
3763 TERMINAL should be a terminal object, a frame or a display name (a string).
3764 If omitted or nil, that stands for the selected frame's display. */)
3765 (Lisp_Object terminal
)
3767 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3768 Display
*dpy
= dpyinfo
->display
;
3770 return Fcons (make_number (ProtocolVersion (dpy
)),
3771 Fcons (make_number (ProtocolRevision (dpy
)),
3772 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3775 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3776 doc
: /* Return the number of screens on the X server of display TERMINAL.
3777 The optional argument TERMINAL specifies which display to ask about.
3778 TERMINAL should be a terminal object, a frame or a display name (a string).
3779 If omitted or nil, that stands for the selected frame's display. */)
3780 (Lisp_Object terminal
)
3782 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3784 return make_number (ScreenCount (dpyinfo
->display
));
3787 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3788 doc
: /* Return the height in millimeters of the X display TERMINAL.
3789 The optional argument TERMINAL specifies which display to ask about.
3790 TERMINAL should be a terminal object, a frame or a display name (a string).
3791 If omitted or nil, that stands for the selected frame's display. */)
3792 (Lisp_Object terminal
)
3794 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3796 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3799 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3800 doc
: /* Return the width in millimeters of the X display TERMINAL.
3801 The optional argument TERMINAL specifies which display to ask about.
3802 TERMINAL should be a terminal object, a frame or a display name (a string).
3803 If omitted or nil, that stands for the selected frame's display. */)
3804 (Lisp_Object terminal
)
3806 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3808 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3811 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3812 Sx_display_backing_store
, 0, 1, 0,
3813 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3814 The value may be `always', `when-mapped', or `not-useful'.
3815 The optional argument TERMINAL specifies which display to ask about.
3816 TERMINAL should be a terminal object, a frame or a display name (a string).
3817 If omitted or nil, that stands for the selected frame's display. */)
3818 (Lisp_Object terminal
)
3820 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3823 switch (DoesBackingStore (dpyinfo
->screen
))
3826 result
= intern ("always");
3830 result
= intern ("when-mapped");
3834 result
= intern ("not-useful");
3838 error ("Strange value for BackingStore parameter of screen");
3845 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3846 Sx_display_visual_class
, 0, 1, 0,
3847 doc
: /* Return the visual class of the X display TERMINAL.
3848 The value is one of the symbols `static-gray', `gray-scale',
3849 `static-color', `pseudo-color', `true-color', or `direct-color'.
3851 The optional argument TERMINAL specifies which display to ask about.
3852 TERMINAL should a terminal object, a frame or a display name (a string).
3853 If omitted or nil, that stands for the selected frame's display. */)
3854 (Lisp_Object terminal
)
3856 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3859 switch (dpyinfo
->visual
->class)
3862 result
= intern ("static-gray");
3865 result
= intern ("gray-scale");
3868 result
= intern ("static-color");
3871 result
= intern ("pseudo-color");
3874 result
= intern ("true-color");
3877 result
= intern ("direct-color");
3880 error ("Display has an unknown visual class");
3887 DEFUN ("x-display-save-under", Fx_display_save_under
,
3888 Sx_display_save_under
, 0, 1, 0,
3889 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3890 The optional argument TERMINAL specifies which display to ask about.
3891 TERMINAL should be a terminal object, a frame or a display name (a string).
3892 If omitted or nil, that stands for the selected frame's display. */)
3893 (Lisp_Object terminal
)
3895 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3897 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3904 x_pixel_width (register struct frame
*f
)
3906 return FRAME_PIXEL_WIDTH (f
);
3910 x_pixel_height (register struct frame
*f
)
3912 return FRAME_PIXEL_HEIGHT (f
);
3916 x_char_width (register struct frame
*f
)
3918 return FRAME_COLUMN_WIDTH (f
);
3922 x_char_height (register struct frame
*f
)
3924 return FRAME_LINE_HEIGHT (f
);
3928 x_screen_planes (register struct frame
*f
)
3930 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3935 /************************************************************************
3937 ************************************************************************/
3940 /* Mapping visual names to visuals. */
3942 static struct visual_class
3949 {"StaticGray", StaticGray
},
3950 {"GrayScale", GrayScale
},
3951 {"StaticColor", StaticColor
},
3952 {"PseudoColor", PseudoColor
},
3953 {"TrueColor", TrueColor
},
3954 {"DirectColor", DirectColor
},
3959 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3961 /* Value is the screen number of screen SCR. This is a substitute for
3962 the X function with the same name when that doesn't exist. */
3965 XScreenNumberOfScreen (scr
)
3966 register Screen
*scr
;
3968 Display
*dpy
= scr
->display
;
3971 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3972 if (scr
== dpy
->screens
+ i
)
3978 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3981 /* Select the visual that should be used on display DPYINFO. Set
3982 members of DPYINFO appropriately. Called from x_term_init. */
3985 select_visual (struct x_display_info
*dpyinfo
)
3987 Display
*dpy
= dpyinfo
->display
;
3988 Screen
*screen
= dpyinfo
->screen
;
3991 /* See if a visual is specified. */
3992 value
= display_x_get_resource (dpyinfo
,
3993 build_string ("visualClass"),
3994 build_string ("VisualClass"),
3996 if (STRINGP (value
))
3998 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3999 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4000 depth, a decimal number. NAME is compared with case ignored. */
4001 char *s
= (char *) alloca (SBYTES (value
) + 1);
4006 strcpy (s
, SDATA (value
));
4007 dash
= index (s
, '-');
4010 dpyinfo
->n_planes
= atoi (dash
+ 1);
4014 /* We won't find a matching visual with depth 0, so that
4015 an error will be printed below. */
4016 dpyinfo
->n_planes
= 0;
4018 /* Determine the visual class. */
4019 for (i
= 0; visual_classes
[i
].name
; ++i
)
4020 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4022 class = visual_classes
[i
].class;
4026 /* Look up a matching visual for the specified class. */
4028 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4029 dpyinfo
->n_planes
, class, &vinfo
))
4030 fatal ("Invalid visual specification `%s'", SDATA (value
));
4032 dpyinfo
->visual
= vinfo
.visual
;
4037 XVisualInfo
*vinfo
, vinfo_template
;
4039 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4041 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4042 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4043 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4044 &vinfo_template
, &n_visuals
);
4046 fatal ("Can't get proper X visual info");
4048 dpyinfo
->n_planes
= vinfo
->depth
;
4049 XFree ((char *) vinfo
);
4054 /* Return the X display structure for the display named NAME.
4055 Open a new connection if necessary. */
4057 struct x_display_info
*
4058 x_display_info_for_name (Lisp_Object name
)
4061 struct x_display_info
*dpyinfo
;
4063 CHECK_STRING (name
);
4066 if (! EQ (Vinitial_window_system
, intern ("x")))
4067 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4070 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4072 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4075 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4080 /* Use this general default value to start with. */
4081 Vx_resource_name
= Vinvocation_name
;
4083 validate_x_resource_name ();
4085 dpyinfo
= x_term_init (name
, (char *)0,
4086 (char *) SDATA (Vx_resource_name
));
4089 error ("Cannot connect to X server %s", SDATA (name
));
4092 XSETFASTINT (Vwindow_system_version
, 11);
4098 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4100 doc
: /* Open a connection to an X server.
4101 DISPLAY is the name of the display to connect to.
4102 Optional second arg XRM-STRING is a string of resources in xrdb format.
4103 If the optional third arg MUST-SUCCEED is non-nil,
4104 terminate Emacs if we can't open the connection. */)
4105 (Lisp_Object display
, Lisp_Object xrm_string
, Lisp_Object must_succeed
)
4107 unsigned char *xrm_option
;
4108 struct x_display_info
*dpyinfo
;
4110 CHECK_STRING (display
);
4111 if (! NILP (xrm_string
))
4112 CHECK_STRING (xrm_string
);
4115 if (! EQ (Vinitial_window_system
, intern ("x")))
4116 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4119 if (! NILP (xrm_string
))
4120 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4122 xrm_option
= (unsigned char *) 0;
4124 validate_x_resource_name ();
4126 /* This is what opens the connection and sets x_current_display.
4127 This also initializes many symbols, such as those used for input. */
4128 dpyinfo
= x_term_init (display
, xrm_option
,
4129 (char *) SDATA (Vx_resource_name
));
4133 if (!NILP (must_succeed
))
4134 fatal ("Cannot connect to X server %s.\n\
4135 Check the DISPLAY environment variable or use `-d'.\n\
4136 Also use the `xauth' program to verify that you have the proper\n\
4137 authorization information needed to connect the X server.\n\
4138 An insecure way to solve the problem may be to use `xhost'.\n",
4141 error ("Cannot connect to X server %s", SDATA (display
));
4146 XSETFASTINT (Vwindow_system_version
, 11);
4150 DEFUN ("x-close-connection", Fx_close_connection
,
4151 Sx_close_connection
, 1, 1, 0,
4152 doc
: /* Close the connection to TERMINAL's X server.
4153 For TERMINAL, specify a terminal object, a frame or a display name (a
4154 string). If TERMINAL is nil, that stands for the selected frame's
4156 (Lisp_Object terminal
)
4158 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4160 if (dpyinfo
->reference_count
> 0)
4161 error ("Display still has frames on it");
4163 x_delete_terminal (dpyinfo
->terminal
);
4168 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4169 doc
: /* Return the list of display names that Emacs has connections to. */)
4172 Lisp_Object tail
, result
;
4175 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4176 result
= Fcons (XCAR (XCAR (tail
)), result
);
4181 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4182 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4183 If ON is nil, allow buffering of requests.
4184 Turning on synchronization prohibits the Xlib routines from buffering
4185 requests and seriously degrades performance, but makes debugging much
4187 The optional second argument TERMINAL specifies which display to act on.
4188 TERMINAL should be a terminal object, a frame or a display name (a string).
4189 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4190 (Lisp_Object on
, Lisp_Object terminal
)
4192 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4194 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4199 /* Wait for responses to all X commands issued so far for frame F. */
4202 x_sync (FRAME_PTR f
)
4205 XSync (FRAME_X_DISPLAY (f
), False
);
4210 /***********************************************************************
4212 ***********************************************************************/
4214 DEFUN ("x-change-window-property", Fx_change_window_property
,
4215 Sx_change_window_property
, 2, 6, 0,
4216 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4217 PROP must be a string.
4218 VALUE may be a string or a list of conses, numbers and/or strings.
4219 If an element in the list is a string, it is converted to
4220 an Atom and the value of the Atom is used. If an element is a cons,
4221 it is converted to a 32 bit number where the car is the 16 top bits and the
4222 cdr is the lower 16 bits.
4223 FRAME nil or omitted means use the selected frame.
4224 If TYPE is given and non-nil, it is the name of the type of VALUE.
4225 If TYPE is not given or nil, the type is STRING.
4226 FORMAT gives the size in bits of each element if VALUE is a list.
4227 It must be one of 8, 16 or 32.
4228 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4229 If OUTER_P is non-nil, the property is changed for the outer X window of
4230 FRAME. Default is to change on the edit X window.
4233 (Lisp_Object prop
, Lisp_Object value
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4235 struct frame
*f
= check_x_frame (frame
);
4237 Atom target_type
= XA_STRING
;
4238 int element_format
= 8;
4239 unsigned char *data
;
4243 CHECK_STRING (prop
);
4245 if (! NILP (format
))
4247 CHECK_NUMBER (format
);
4248 element_format
= XFASTINT (format
);
4250 if (element_format
!= 8 && element_format
!= 16
4251 && element_format
!= 32)
4252 error ("FORMAT must be one of 8, 16 or 32");
4257 nelements
= x_check_property_data (value
);
4258 if (nelements
== -1)
4259 error ("Bad data in VALUE, must be number, string or cons");
4261 if (element_format
== 8)
4262 data
= (unsigned char *) xmalloc (nelements
);
4263 else if (element_format
== 16)
4264 data
= (unsigned char *) xmalloc (nelements
*2);
4265 else /* format == 32 */
4266 /* The man page for XChangeProperty:
4267 "If the specified format is 32, the property data must be a
4269 This applies even if long is more than 64 bits. The X library
4270 converts to 32 bits before sending to the X server. */
4271 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4273 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4277 CHECK_STRING (value
);
4278 data
= SDATA (value
);
4279 nelements
= SCHARS (value
);
4283 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4286 CHECK_STRING (type
);
4287 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4290 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4291 else w
= FRAME_X_WINDOW (f
);
4293 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4294 prop_atom
, target_type
, element_format
, PropModeReplace
,
4297 if (CONSP (value
)) xfree (data
);
4299 /* Make sure the property is set when we return. */
4300 XFlush (FRAME_X_DISPLAY (f
));
4307 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4308 Sx_delete_window_property
, 1, 2, 0,
4309 doc
: /* Remove window property PROP from X window of FRAME.
4310 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4311 (Lisp_Object prop
, Lisp_Object frame
)
4313 struct frame
*f
= check_x_frame (frame
);
4316 CHECK_STRING (prop
);
4318 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4319 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4321 /* Make sure the property is removed when we return. */
4322 XFlush (FRAME_X_DISPLAY (f
));
4329 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4331 doc
: /* Value is the value of window property PROP on FRAME.
4332 If FRAME is nil or omitted, use the selected frame.
4333 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4334 is the name of the Atom that denotes the type expected.
4335 If SOURCE is non-nil, get the property on that window instead of from
4336 FRAME. The number 0 denotes the root window.
4337 If DELETE_P is non-nil, delete the property after retreiving it.
4338 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4340 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4341 no value of TYPE. */)
4342 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4344 struct frame
*f
= check_x_frame (frame
);
4347 Lisp_Object prop_value
= Qnil
;
4348 unsigned char *tmp_data
= NULL
;
4350 Atom target_type
= XA_STRING
;
4352 unsigned long actual_size
, bytes_remaining
;
4353 Window target_window
= FRAME_X_WINDOW (f
);
4354 struct gcpro gcpro1
;
4356 GCPRO1 (prop_value
);
4357 CHECK_STRING (prop
);
4359 if (! NILP (source
))
4361 if (NUMBERP (source
))
4363 if (FLOATP (source
))
4364 target_window
= (Window
) XFLOAT (source
);
4366 target_window
= XFASTINT (source
);
4368 if (target_window
== 0)
4369 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4371 else if (CONSP (source
))
4372 target_window
= cons_to_long (source
);
4378 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4379 target_type
= AnyPropertyType
;
4381 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4384 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4385 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4386 prop_atom
, 0, 0, False
, target_type
,
4387 &actual_type
, &actual_format
, &actual_size
,
4388 &bytes_remaining
, &tmp_data
);
4391 int size
= bytes_remaining
;
4396 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4397 prop_atom
, 0, bytes_remaining
,
4398 ! NILP (delete_p
), target_type
,
4399 &actual_type
, &actual_format
,
4400 &actual_size
, &bytes_remaining
,
4402 if (rc
== Success
&& tmp_data
)
4404 /* The man page for XGetWindowProperty says:
4405 "If the returned format is 32, the returned data is represented
4406 as a long array and should be cast to that type to obtain the
4408 This applies even if long is more than 32 bits, the X library
4409 converts from 32 bit elements received from the X server to long
4410 and passes the long array to us. Thus, for that case memcpy can not
4411 be used. We convert to a 32 bit type here, because so much code
4414 The bytes and offsets passed to XGetWindowProperty refers to the
4415 property and those are indeed in 32 bit quantities if format is
4418 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4421 int *idata
= (int *) tmp_data
;
4422 long *ldata
= (long *) tmp_data
;
4424 for (i
= 0; i
< actual_size
; ++i
)
4425 idata
[i
] = (int) ldata
[i
];
4428 if (NILP (vector_ret_p
))
4429 prop_value
= make_string (tmp_data
, size
);
4431 prop_value
= x_property_data_to_lisp (f
,
4438 if (tmp_data
) XFree (tmp_data
);
4448 /***********************************************************************
4450 ***********************************************************************/
4452 /* Timer function of hourglass_atimer. TIMER is equal to
4455 Display an hourglass pointer on all frames by mapping the frames'
4456 hourglass_window. Set the hourglass_p flag in the frames'
4457 output_data.x structure to indicate that an hourglass cursor is
4458 shown on the frames. */
4461 show_hourglass (struct atimer
*timer
)
4463 /* The timer implementation will cancel this timer automatically
4464 after this function has run. Set hourglass_atimer to null
4465 so that we know the timer doesn't have to be canceled. */
4466 hourglass_atimer
= NULL
;
4468 if (!hourglass_shown_p
)
4470 Lisp_Object rest
, frame
;
4474 FOR_EACH_FRAME (rest
, frame
)
4476 struct frame
*f
= XFRAME (frame
);
4478 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4480 Display
*dpy
= FRAME_X_DISPLAY (f
);
4482 #ifdef USE_X_TOOLKIT
4483 if (f
->output_data
.x
->widget
)
4485 if (FRAME_OUTER_WINDOW (f
))
4488 f
->output_data
.x
->hourglass_p
= 1;
4490 if (!f
->output_data
.x
->hourglass_window
)
4492 unsigned long mask
= CWCursor
;
4493 XSetWindowAttributes attrs
;
4495 Window parent
= FRAME_X_WINDOW (f
);
4497 Window parent
= FRAME_OUTER_WINDOW (f
);
4499 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4501 f
->output_data
.x
->hourglass_window
4502 = XCreateWindow (dpy
, parent
,
4503 0, 0, 32000, 32000, 0, 0,
4509 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4515 hourglass_shown_p
= 1;
4521 /* Hide the hourglass pointer on all frames, if it is currently
4525 hide_hourglass (void)
4527 if (hourglass_shown_p
)
4529 Lisp_Object rest
, frame
;
4532 FOR_EACH_FRAME (rest
, frame
)
4534 struct frame
*f
= XFRAME (frame
);
4537 /* Watch out for newly created frames. */
4538 && f
->output_data
.x
->hourglass_window
)
4540 XUnmapWindow (FRAME_X_DISPLAY (f
),
4541 f
->output_data
.x
->hourglass_window
);
4542 /* Sync here because XTread_socket looks at the
4543 hourglass_p flag that is reset to zero below. */
4544 XSync (FRAME_X_DISPLAY (f
), False
);
4545 f
->output_data
.x
->hourglass_p
= 0;
4549 hourglass_shown_p
= 0;
4556 /***********************************************************************
4558 ***********************************************************************/
4560 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4561 Lisp_Object
, Lisp_Object
);
4562 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4563 Lisp_Object
, int, int, int *, int *);
4565 /* The frame of a currently visible tooltip. */
4567 Lisp_Object tip_frame
;
4569 /* If non-nil, a timer started that hides the last tooltip when it
4572 Lisp_Object tip_timer
;
4575 /* If non-nil, a vector of 3 elements containing the last args
4576 with which x-show-tip was called. See there. */
4578 Lisp_Object last_show_tip_args
;
4580 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4582 Lisp_Object Vx_max_tooltip_size
;
4586 unwind_create_tip_frame (Lisp_Object frame
)
4588 Lisp_Object deleted
;
4590 deleted
= unwind_create_frame (frame
);
4591 if (EQ (deleted
, Qt
))
4601 /* Create a frame for a tooltip on the display described by DPYINFO.
4602 PARMS is a list of frame parameters. TEXT is the string to
4603 display in the tip frame. Value is the frame.
4605 Note that functions called here, esp. x_default_parameter can
4606 signal errors, for instance when a specified color name is
4607 undefined. We have to make sure that we're in a consistent state
4608 when this happens. */
4611 x_create_tip_frame (struct x_display_info
*dpyinfo
, Lisp_Object parms
, Lisp_Object text
)
4614 Lisp_Object frame
, tem
;
4616 long window_prompting
= 0;
4618 int count
= SPECPDL_INDEX ();
4619 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4620 int face_change_count_before
= face_change_count
;
4622 struct buffer
*old_buffer
;
4626 if (!dpyinfo
->terminal
->name
)
4627 error ("Terminal is not live, can't create new frames on it");
4629 parms
= Fcopy_alist (parms
);
4631 /* Get the name of the frame to use for resource lookup. */
4632 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4634 && !EQ (name
, Qunbound
)
4636 error ("Invalid frame name--not a string or nil");
4639 GCPRO3 (parms
, name
, frame
);
4641 XSETFRAME (frame
, f
);
4643 buffer
= Fget_buffer_create (build_string (" *tip*"));
4644 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4645 old_buffer
= current_buffer
;
4646 set_buffer_internal_1 (XBUFFER (buffer
));
4647 current_buffer
->truncate_lines
= Qnil
;
4648 specbind (Qinhibit_read_only
, Qt
);
4649 specbind (Qinhibit_modification_hooks
, Qt
);
4652 set_buffer_internal_1 (old_buffer
);
4654 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4655 record_unwind_protect (unwind_create_tip_frame
, frame
);
4657 f
->terminal
= dpyinfo
->terminal
;
4658 f
->terminal
->reference_count
++;
4660 /* By setting the output method, we're essentially saying that
4661 the frame is live, as per FRAME_LIVE_P. If we get a signal
4662 from this point on, x_destroy_window might screw up reference
4664 f
->output_method
= output_x_window
;
4665 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4666 memset (f
->output_data
.x
, 0, sizeof (struct x_output
));
4667 f
->output_data
.x
->icon_bitmap
= -1;
4668 FRAME_FONTSET (f
) = -1;
4669 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4670 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4671 #ifdef USE_TOOLKIT_SCROLL_BARS
4672 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4673 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4674 #endif /* USE_TOOLKIT_SCROLL_BARS */
4675 f
->icon_name
= Qnil
;
4676 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4678 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
4679 dpyinfo_refcount
= dpyinfo
->reference_count
;
4680 #endif /* GLYPH_DEBUG */
4681 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4682 f
->output_data
.x
->explicit_parent
= 0;
4684 /* These colors will be set anyway later, but it's important
4685 to get the color reference counts right, so initialize them! */
4688 struct gcpro gcpro1
;
4690 /* Function x_decode_color can signal an error. Make
4691 sure to initialize color slots so that we won't try
4692 to free colors we haven't allocated. */
4693 FRAME_FOREGROUND_PIXEL (f
) = -1;
4694 FRAME_BACKGROUND_PIXEL (f
) = -1;
4695 f
->output_data
.x
->cursor_pixel
= -1;
4696 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4697 f
->output_data
.x
->border_pixel
= -1;
4698 f
->output_data
.x
->mouse_pixel
= -1;
4700 black
= build_string ("black");
4702 FRAME_FOREGROUND_PIXEL (f
)
4703 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4704 FRAME_BACKGROUND_PIXEL (f
)
4705 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4706 f
->output_data
.x
->cursor_pixel
4707 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4708 f
->output_data
.x
->cursor_foreground_pixel
4709 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4710 f
->output_data
.x
->border_pixel
4711 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4712 f
->output_data
.x
->mouse_pixel
4713 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4717 /* Set the name; the functions to which we pass f expect the name to
4719 if (EQ (name
, Qunbound
) || NILP (name
))
4721 f
->name
= build_string (dpyinfo
->x_id_name
);
4722 f
->explicit_name
= 0;
4727 f
->explicit_name
= 1;
4728 /* use the frame's title when getting resources for this frame. */
4729 specbind (Qx_resource_name
, name
);
4732 f
->resx
= dpyinfo
->resx
;
4733 f
->resy
= dpyinfo
->resy
;
4735 register_font_driver (&xfont_driver
, f
);
4736 #ifdef HAVE_FREETYPE
4738 register_font_driver (&xftfont_driver
, f
);
4739 #else /* not HAVE_XFT */
4740 register_font_driver (&ftxfont_driver
, f
);
4741 #endif /* not HAVE_XFT */
4742 #endif /* HAVE_FREETYPE */
4744 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4745 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4747 /* Extract the window parameters from the supplied values that are
4748 needed to determine window geometry. */
4749 x_default_font_parameter (f
, parms
);
4751 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
4752 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4754 /* This defaults to 2 in order to match xterm. We recognize either
4755 internalBorderWidth or internalBorder (which is what xterm calls
4757 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4761 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4762 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4763 if (! EQ (value
, Qunbound
))
4764 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4768 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4769 "internalBorderWidth", "internalBorderWidth",
4772 /* Also do the stuff which must be set before the window exists. */
4773 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4774 "foreground", "Foreground", RES_TYPE_STRING
);
4775 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4776 "background", "Background", RES_TYPE_STRING
);
4777 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4778 "pointerColor", "Foreground", RES_TYPE_STRING
);
4779 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4780 "cursorColor", "Foreground", RES_TYPE_STRING
);
4781 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4782 "borderColor", "BorderColor", RES_TYPE_STRING
);
4784 /* Init faces before x_default_parameter is called for scroll-bar
4785 parameters because that function calls x_set_scroll_bar_width,
4786 which calls change_frame_size, which calls Fset_window_buffer,
4787 which runs hooks, which call Fvertical_motion. At the end, we
4788 end up in init_iterator with a null face cache, which should not
4790 init_frame_faces (f
);
4792 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4794 window_prompting
= x_figure_window_size (f
, parms
, 0);
4797 XSetWindowAttributes attrs
;
4799 Atom type
= FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
4802 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4803 if (DoesSaveUnders (dpyinfo
->screen
))
4804 mask
|= CWSaveUnder
;
4806 /* Window managers look at the override-redirect flag to determine
4807 whether or net to give windows a decoration (Xlib spec, chapter
4809 attrs
.override_redirect
= True
;
4810 attrs
.save_under
= True
;
4811 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4812 /* Arrange for getting MapNotify and UnmapNotify events. */
4813 attrs
.event_mask
= StructureNotifyMask
;
4815 = FRAME_X_WINDOW (f
)
4816 = XCreateWindow (FRAME_X_DISPLAY (f
),
4817 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4818 /* x, y, width, height */
4822 CopyFromParent
, InputOutput
, CopyFromParent
,
4824 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
4825 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type
,
4826 XA_ATOM
, 32, PropModeReplace
,
4827 (unsigned char *)&type
, 1);
4833 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4834 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4835 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4836 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4837 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4838 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4840 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4841 Change will not be effected unless different from the current
4843 width
= FRAME_COLS (f
);
4844 height
= FRAME_LINES (f
);
4845 SET_FRAME_COLS (f
, 0);
4846 FRAME_LINES (f
) = 0;
4847 change_frame_size (f
, height
, width
, 1, 0, 0);
4849 /* Add `tooltip' frame parameter's default value. */
4850 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4851 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4854 /* FIXME - can this be done in a similar way to normal frames?
4855 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
4857 /* Set the `display-type' frame parameter before setting up faces. */
4859 Lisp_Object disptype
;
4861 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4862 disptype
= intern ("mono");
4863 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
4864 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4865 disptype
= intern ("grayscale");
4867 disptype
= intern ("color");
4869 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4870 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4874 /* Set up faces after all frame parameters are known. This call
4875 also merges in face attributes specified for new frames.
4877 Frame parameters may be changed if .Xdefaults contains
4878 specifications for the default font. For example, if there is an
4879 `Emacs.default.attributeBackground: pink', the `background-color'
4880 attribute of the frame get's set, which let's the internal border
4881 of the tooltip frame appear in pink. Prevent this. */
4883 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4885 /* Set tip_frame here, so that */
4887 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
4889 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4890 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4898 /* It is now ok to make the frame official even if we get an error
4899 below. And the frame needs to be on Vframe_list or making it
4900 visible won't work. */
4901 Vframe_list
= Fcons (frame
, Vframe_list
);
4903 /* Now that the frame is official, it counts as a reference to
4905 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4907 /* Setting attributes of faces of the tooltip frame from resources
4908 and similar will increment face_change_count, which leads to the
4909 clearing of all current matrices. Since this isn't necessary
4910 here, avoid it by resetting face_change_count to the value it
4911 had before we created the tip frame. */
4912 face_change_count
= face_change_count_before
;
4914 /* Discard the unwind_protect. */
4915 return unbind_to (count
, frame
);
4919 /* Compute where to display tip frame F. PARMS is the list of frame
4920 parameters for F. DX and DY are specified offsets from the current
4921 location of the mouse. WIDTH and HEIGHT are the width and height
4922 of the tooltip. Return coordinates relative to the root window of
4923 the display in *ROOT_X, and *ROOT_Y. */
4926 compute_tip_xy (struct frame
*f
, Lisp_Object parms
, Lisp_Object dx
, Lisp_Object dy
, int width
, int height
, int *root_x
, int *root_y
)
4928 Lisp_Object left
, top
;
4933 /* User-specified position? */
4934 left
= Fcdr (Fassq (Qleft
, parms
));
4935 top
= Fcdr (Fassq (Qtop
, parms
));
4937 /* Move the tooltip window where the mouse pointer is. Resize and
4939 if (!INTEGERP (left
) || !INTEGERP (top
))
4942 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4943 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4948 *root_y
= XINT (top
);
4949 else if (*root_y
+ XINT (dy
) <= 0)
4950 *root_y
= 0; /* Can happen for negative dy */
4951 else if (*root_y
+ XINT (dy
) + height
4952 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
4953 /* It fits below the pointer */
4954 *root_y
+= XINT (dy
);
4955 else if (height
+ XINT (dy
) <= *root_y
)
4956 /* It fits above the pointer. */
4957 *root_y
-= height
+ XINT (dy
);
4959 /* Put it on the top. */
4962 if (INTEGERP (left
))
4963 *root_x
= XINT (left
);
4964 else if (*root_x
+ XINT (dx
) <= 0)
4965 *root_x
= 0; /* Can happen for negative dx */
4966 else if (*root_x
+ XINT (dx
) + width
4967 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
4968 /* It fits to the right of the pointer. */
4969 *root_x
+= XINT (dx
);
4970 else if (width
+ XINT (dx
) <= *root_x
)
4971 /* It fits to the left of the pointer. */
4972 *root_x
-= width
+ XINT (dx
);
4974 /* Put it left-justified on the screen--it ought to fit that way. */
4979 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4980 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4981 A tooltip window is a small X window displaying a string.
4983 This is an internal function; Lisp code should call `tooltip-show'.
4985 FRAME nil or omitted means use the selected frame.
4987 PARMS is an optional list of frame parameters which can be used to
4988 change the tooltip's appearance.
4990 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4991 means use the default timeout of 5 seconds.
4993 If the list of frame parameters PARAMS contains a `left' parameters,
4994 the tooltip is displayed at that x-position. Otherwise it is
4995 displayed at the mouse position, with offset DX added (default is 5 if
4996 DX isn't specified). Likewise for the y-position; if a `top' frame
4997 parameter is specified, it determines the y-position of the tooltip
4998 window, otherwise it is displayed at the mouse position, with offset
4999 DY added (default is -10).
5001 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5002 Text larger than the specified size is clipped. */)
5003 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
5008 struct buffer
*old_buffer
;
5009 struct text_pos pos
;
5010 int i
, width
, height
;
5011 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5012 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5013 int count
= SPECPDL_INDEX ();
5015 specbind (Qinhibit_redisplay
, Qt
);
5017 GCPRO4 (string
, parms
, frame
, timeout
);
5019 CHECK_STRING (string
);
5020 if (SCHARS (string
) == 0)
5021 string
= make_unibyte_string (" ", 1);
5023 f
= check_x_frame (frame
);
5025 timeout
= make_number (5);
5027 CHECK_NATNUM (timeout
);
5030 dx
= make_number (5);
5035 dy
= make_number (-10);
5039 if (NILP (last_show_tip_args
))
5040 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5042 if (!NILP (tip_frame
))
5044 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5045 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5046 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5048 if (EQ (frame
, last_frame
)
5049 && !NILP (Fequal (last_string
, string
))
5050 && !NILP (Fequal (last_parms
, parms
)))
5052 struct frame
*f
= XFRAME (tip_frame
);
5054 /* Only DX and DY have changed. */
5055 if (!NILP (tip_timer
))
5057 Lisp_Object timer
= tip_timer
;
5059 call1 (Qcancel_timer
, timer
);
5063 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5064 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5065 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5072 /* Hide a previous tip, if any. */
5075 ASET (last_show_tip_args
, 0, string
);
5076 ASET (last_show_tip_args
, 1, frame
);
5077 ASET (last_show_tip_args
, 2, parms
);
5079 /* Add default values to frame parameters. */
5080 if (NILP (Fassq (Qname
, parms
)))
5081 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5082 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5083 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5084 if (NILP (Fassq (Qborder_width
, parms
)))
5085 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5086 if (NILP (Fassq (Qborder_color
, parms
)))
5087 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5088 if (NILP (Fassq (Qbackground_color
, parms
)))
5089 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5092 /* Create a frame for the tooltip, and record it in the global
5093 variable tip_frame. */
5094 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5097 /* Set up the frame's root window. */
5098 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5099 w
->left_col
= w
->top_line
= make_number (0);
5101 if (CONSP (Vx_max_tooltip_size
)
5102 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5103 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5104 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5105 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5107 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5108 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5112 w
->total_cols
= make_number (80);
5113 w
->total_lines
= make_number (40);
5116 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5118 w
->pseudo_window_p
= 1;
5120 /* Display the tooltip text in a temporary buffer. */
5121 old_buffer
= current_buffer
;
5122 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5123 current_buffer
->truncate_lines
= Qnil
;
5124 clear_glyph_matrix (w
->desired_matrix
);
5125 clear_glyph_matrix (w
->current_matrix
);
5126 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5127 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5129 /* Compute width and height of the tooltip. */
5131 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5133 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5137 /* Stop at the first empty row at the end. */
5138 if (!row
->enabled_p
|| !row
->displays_text_p
)
5141 /* Let the row go over the full width of the frame. */
5142 row
->full_width_p
= 1;
5144 row_width
= row
->pixel_width
;
5145 /* There's a glyph at the end of rows that is used to place
5146 the cursor there. Don't include the width of this glyph. */
5147 if (row
->used
[TEXT_AREA
])
5149 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5150 if (INTEGERP (last
->object
))
5151 row_width
-= last
->pixel_width
;
5154 height
+= row
->height
;
5155 width
= max (width
, row_width
);
5158 /* Add the frame's internal border to the width and height the X
5159 window should have. */
5160 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5161 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5163 /* Move the tooltip window where the mouse pointer is. Resize and
5165 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5168 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5169 root_x
, root_y
, width
, height
);
5170 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5173 /* Draw into the window. */
5174 w
->must_be_updated_p
= 1;
5175 update_single_window (w
, 1);
5177 /* Restore original current buffer. */
5178 set_buffer_internal_1 (old_buffer
);
5179 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5182 /* Let the tip disappear after timeout seconds. */
5183 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5184 intern ("x-hide-tip"));
5187 return unbind_to (count
, Qnil
);
5191 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5192 doc
: /* Hide the current tooltip window, if there is any.
5193 Value is t if tooltip was open, nil otherwise. */)
5197 Lisp_Object deleted
, frame
, timer
;
5198 struct gcpro gcpro1
, gcpro2
;
5200 /* Return quickly if nothing to do. */
5201 if (NILP (tip_timer
) && NILP (tip_frame
))
5206 GCPRO2 (frame
, timer
);
5207 tip_frame
= tip_timer
= deleted
= Qnil
;
5209 count
= SPECPDL_INDEX ();
5210 specbind (Qinhibit_redisplay
, Qt
);
5211 specbind (Qinhibit_quit
, Qt
);
5214 call1 (Qcancel_timer
, timer
);
5218 delete_frame (frame
, Qnil
);
5222 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5223 redisplay procedure is not called when a tip frame over menu
5224 items is unmapped. Redisplay the menu manually... */
5226 struct frame
*f
= SELECTED_FRAME ();
5227 Widget w
= f
->output_data
.x
->menubar_widget
;
5228 extern void xlwmenu_redisplay (Widget
);
5230 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5234 xlwmenu_redisplay (w
);
5238 #endif /* USE_LUCID */
5242 return unbind_to (count
, deleted
);
5247 /***********************************************************************
5248 File selection dialog
5249 ***********************************************************************/
5251 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5252 Sx_uses_old_gtk_dialog
,
5254 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5258 extern int use_dialog_box
;
5259 extern int use_file_dialog
;
5264 && xg_uses_old_file_dialog ())
5272 /* Callback for "OK" and "Cancel" on file selection dialog. */
5275 file_dialog_cb (widget
, client_data
, call_data
)
5277 XtPointer call_data
, client_data
;
5279 int *result
= (int *) client_data
;
5280 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5281 *result
= cb
->reason
;
5285 /* Callback for unmapping a file selection dialog. This is used to
5286 capture the case where a dialog is closed via a window manager's
5287 closer button, for example. Using a XmNdestroyCallback didn't work
5291 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5293 XtPointer call_data
, client_data
;
5295 int *result
= (int *) client_data
;
5296 *result
= XmCR_CANCEL
;
5300 clean_up_file_dialog (arg
)
5303 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5304 Widget dialog
= (Widget
) p
->pointer
;
5308 XtUnmanageChild (dialog
);
5309 XtDestroyWidget (dialog
);
5310 x_menu_set_in_use (0);
5317 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5318 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5319 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5320 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5321 or directory must exist. ONLY-DIR-P is ignored." */)
5322 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5325 struct frame
*f
= SELECTED_FRAME ();
5326 Lisp_Object file
= Qnil
;
5327 Lisp_Object decoded_file
;
5328 Widget dialog
, text
, help
;
5331 extern XtAppContext Xt_app_con
;
5332 XmString dir_xmstring
, pattern_xmstring
;
5333 int count
= SPECPDL_INDEX ();
5334 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5338 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5340 if (popup_activated ())
5341 error ("Trying to use a menu from within a menu-entry");
5343 CHECK_STRING (prompt
);
5346 /* Prevent redisplay. */
5347 specbind (Qinhibit_redisplay
, Qt
);
5351 /* Create the dialog with PROMPT as title, using DIR as initial
5352 directory and using "*" as pattern. */
5353 dir
= Fexpand_file_name (dir
, Qnil
);
5354 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5355 pattern_xmstring
= XmStringCreateLocalized ("*");
5357 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5358 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5359 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5360 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5361 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5362 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5364 XmStringFree (dir_xmstring
);
5365 XmStringFree (pattern_xmstring
);
5367 /* Add callbacks for OK and Cancel. */
5368 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5369 (XtPointer
) &result
);
5370 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5371 (XtPointer
) &result
);
5372 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5373 (XtPointer
) &result
);
5375 /* Remove the help button since we can't display help. */
5376 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5377 XtUnmanageChild (help
);
5379 /* Mark OK button as default. */
5380 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5381 XmNshowAsDefault
, True
, NULL
);
5383 /* If MUSTMATCH is non-nil, disable the file entry field of the
5384 dialog, so that the user must select a file from the files list
5385 box. We can't remove it because we wouldn't have a way to get at
5386 the result file name, then. */
5387 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5388 if (!NILP (mustmatch
))
5391 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5392 XtSetSensitive (text
, False
);
5393 XtSetSensitive (label
, False
);
5396 /* Manage the dialog, so that list boxes get filled. */
5397 XtManageChild (dialog
);
5399 if (STRINGP (default_filename
))
5401 XmString default_xmstring
;
5402 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5403 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5405 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5406 XmTextFieldReplace (wtext
, 0, last_pos
,
5407 (SDATA (Ffile_name_nondirectory (default_filename
))));
5409 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5410 must include the path for this to work. */
5412 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5414 if (XmListItemExists (list
, default_xmstring
))
5416 int item_pos
= XmListItemPos (list
, default_xmstring
);
5417 /* Select the item and scroll it into view. */
5418 XmListSelectPos (list
, item_pos
, True
);
5419 XmListSetPos (list
, item_pos
);
5422 XmStringFree (default_xmstring
);
5425 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5427 /* Process events until the user presses Cancel or OK. */
5428 x_menu_set_in_use (1);
5433 x_menu_wait_for_event (0);
5434 XtAppNextEvent (Xt_app_con
, &event
);
5435 if (event
.type
== KeyPress
5436 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5438 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5440 /* Pop down on C-g. */
5441 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5442 XtUnmanageChild (dialog
);
5445 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5448 /* Get the result. */
5449 if (result
== XmCR_OK
)
5454 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5455 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5456 XmStringFree (text
);
5457 file
= build_string (data
);
5466 /* Make "Cancel" equivalent to C-g. */
5468 Fsignal (Qquit
, Qnil
);
5470 decoded_file
= DECODE_FILE (file
);
5472 return unbind_to (count
, decoded_file
);
5475 #endif /* USE_MOTIF */
5480 clean_up_dialog (Lisp_Object arg
)
5482 x_menu_set_in_use (0);
5487 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5488 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5489 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5490 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5491 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5493 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5495 FRAME_PTR f
= SELECTED_FRAME ();
5497 Lisp_Object file
= Qnil
;
5498 Lisp_Object decoded_file
;
5499 int count
= SPECPDL_INDEX ();
5500 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5505 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5507 if (popup_activated ())
5508 error ("Trying to use a menu from within a menu-entry");
5510 CHECK_STRING (prompt
);
5513 /* Prevent redisplay. */
5514 specbind (Qinhibit_redisplay
, Qt
);
5515 record_unwind_protect (clean_up_dialog
, Qnil
);
5519 if (STRINGP (default_filename
))
5520 cdef_file
= SDATA (default_filename
);
5522 cdef_file
= SDATA (dir
);
5524 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5526 ! NILP (only_dir_p
));
5530 file
= build_string (fn
);
5537 /* Make "Cancel" equivalent to C-g. */
5539 Fsignal (Qquit
, Qnil
);
5541 decoded_file
= DECODE_FILE (file
);
5543 return unbind_to (count
, decoded_file
);
5547 #ifdef HAVE_FREETYPE
5549 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5550 doc
: /* Read a font name using a GTK font selection dialog.
5551 Return a GTK-style font string corresponding to the selection.
5553 If FRAME is omitted or nil, it defaults to the selected frame. */)
5554 (Lisp_Object frame
, Lisp_Object ignored
)
5556 FRAME_PTR f
= check_x_frame (frame
);
5559 Lisp_Object font_param
;
5560 char *default_name
= NULL
;
5561 struct gcpro gcpro1
, gcpro2
;
5562 int count
= SPECPDL_INDEX ();
5566 if (popup_activated ())
5567 error ("Trying to use a menu from within a menu-entry");
5569 /* Prevent redisplay. */
5570 specbind (Qinhibit_redisplay
, Qt
);
5571 record_unwind_protect (clean_up_dialog
, Qnil
);
5575 GCPRO2(font_param
, font
);
5577 XSETFONT (font
, FRAME_FONT (f
));
5578 font_param
= Ffont_get (font
, intern (":name"));
5579 if (STRINGP (font_param
))
5580 default_name
= xstrdup (SDATA (font_param
));
5583 font_param
= Fframe_parameter (frame
, Qfont_param
);
5584 if (STRINGP (font_param
))
5585 default_name
= xstrdup (SDATA (font_param
));
5588 if (default_name
== NULL
&& x_last_font_name
!= NULL
)
5589 default_name
= xstrdup (x_last_font_name
);
5591 /* Convert fontconfig names to Gtk names, i.e. remove - before number */
5594 char *p
= strrchr (default_name
, '-');
5598 while (isdigit (*ep
))
5600 if (*ep
== '\0') *p
= ' ';
5604 name
= xg_get_font_name (f
, default_name
);
5605 xfree (default_name
);
5609 font
= build_string (name
);
5610 g_free (x_last_font_name
);
5611 x_last_font_name
= name
;
5617 Fsignal (Qquit
, Qnil
);
5619 return unbind_to (count
, font
);
5621 #endif /* HAVE_FREETYPE */
5623 #endif /* USE_GTK */
5626 /***********************************************************************
5628 ***********************************************************************/
5630 #ifdef HAVE_XKBGETKEYBOARD
5631 #include <X11/XKBlib.h>
5632 #include <X11/keysym.h>
5635 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5636 Sx_backspace_delete_keys_p
, 0, 1, 0,
5637 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5638 FRAME nil means use the selected frame.
5639 Value is t if we know that both keys are present, and are mapped to the
5640 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5641 present and mapped to the usual X keysyms. */)
5644 #ifdef HAVE_XKBGETKEYBOARD
5646 struct frame
*f
= check_x_frame (frame
);
5647 Display
*dpy
= FRAME_X_DISPLAY (f
);
5648 Lisp_Object have_keys
;
5649 int major
, minor
, op
, event
, error
;
5653 /* Check library version in case we're dynamically linked. */
5654 major
= XkbMajorVersion
;
5655 minor
= XkbMinorVersion
;
5656 if (!XkbLibraryVersion (&major
, &minor
))
5662 /* Check that the server supports XKB. */
5663 major
= XkbMajorVersion
;
5664 minor
= XkbMinorVersion
;
5665 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5671 /* In this code we check that the keyboard has physical keys with names
5672 that start with BKSP (Backspace) and DELE (Delete), and that they
5673 generate keysym XK_BackSpace and XK_Delete respectively.
5674 This function is used to test if normal-erase-is-backspace should be
5676 An alternative approach would be to just check if XK_BackSpace and
5677 XK_Delete are mapped to any key. But if any of those are mapped to
5678 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5679 user doesn't know about it, it is better to return false here.
5680 It is more obvious to the user what to do if she/he has two keys
5681 clearly marked with names/symbols and one key does something not
5682 expected (i.e. she/he then tries the other).
5683 The cases where Backspace/Delete is mapped to some other key combination
5684 are rare, and in those cases, normal-erase-is-backspace can be turned on
5688 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5691 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5693 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5695 for (i
= kb
->min_key_code
;
5696 (i
< kb
->max_key_code
5697 && (delete_keycode
== 0 || backspace_keycode
== 0));
5700 /* The XKB symbolic key names can be seen most easily in
5701 the PS file generated by `xkbprint -label name
5703 if (memcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5705 else if (memcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5706 backspace_keycode
= i
;
5709 XkbFreeNames (kb
, 0, True
);
5712 XkbFreeClientMap (kb
, 0, True
);
5715 && backspace_keycode
5716 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5717 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5722 #else /* not HAVE_XKBGETKEYBOARD */
5724 #endif /* not HAVE_XKBGETKEYBOARD */
5729 /***********************************************************************
5731 ***********************************************************************/
5733 /* Keep this list in the same order as frame_parms in frame.c.
5734 Use 0 for unsupported frame parameters. */
5736 frame_parm_handler x_frame_parm_handlers
[] =
5740 x_set_background_color
,
5746 x_set_foreground_color
,
5749 x_set_internal_border_width
,
5750 x_set_menu_bar_lines
,
5752 x_explicitly_set_name
,
5753 x_set_scroll_bar_width
,
5756 x_set_vertical_scroll_bars
,
5758 x_set_tool_bar_lines
,
5759 x_set_scroll_bar_foreground
,
5760 x_set_scroll_bar_background
,
5775 /* This is zero if not using X windows. */
5778 /* The section below is built by the lisp expression at the top of the file,
5779 just above where these variables are declared. */
5780 /*&&& init symbols here &&&*/
5781 Qnone
= intern_c_string ("none");
5783 Qsuppress_icon
= intern_c_string ("suppress-icon");
5784 staticpro (&Qsuppress_icon
);
5785 Qundefined_color
= intern_c_string ("undefined-color");
5786 staticpro (&Qundefined_color
);
5787 Qcompound_text
= intern_c_string ("compound-text");
5788 staticpro (&Qcompound_text
);
5789 Qcancel_timer
= intern_c_string ("cancel-timer");
5790 staticpro (&Qcancel_timer
);
5791 Qfont_param
= intern_c_string ("font-parameter");
5792 staticpro (&Qfont_param
);
5793 /* This is the end of symbol initialization. */
5795 /* Text property `display' should be nonsticky by default. */
5796 Vtext_property_default_nonsticky
5797 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5800 Fput (Qundefined_color
, Qerror_conditions
,
5801 pure_cons (Qundefined_color
, pure_cons (Qerror
, Qnil
)));
5802 Fput (Qundefined_color
, Qerror_message
,
5803 make_pure_c_string ("Undefined color"));
5805 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5806 doc
: /* The shape of the pointer when over text.
5807 Changing the value does not affect existing frames
5808 unless you set the mouse color. */);
5809 Vx_pointer_shape
= Qnil
;
5811 #if 0 /* This doesn't really do anything. */
5812 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5813 doc
: /* The shape of the pointer when not over text.
5814 This variable takes effect when you create a new frame
5815 or when you set the mouse color. */);
5817 Vx_nontext_pointer_shape
= Qnil
;
5819 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5820 doc
: /* The shape of the pointer when Emacs is busy.
5821 This variable takes effect when you create a new frame
5822 or when you set the mouse color. */);
5823 Vx_hourglass_pointer_shape
= Qnil
;
5825 #if 0 /* This doesn't really do anything. */
5826 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5827 doc
: /* The shape of the pointer when over the mode line.
5828 This variable takes effect when you create a new frame
5829 or when you set the mouse color. */);
5831 Vx_mode_pointer_shape
= Qnil
;
5833 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5834 &Vx_sensitive_text_pointer_shape
,
5835 doc
: /* The shape of the pointer when over mouse-sensitive text.
5836 This variable takes effect when you create a new frame
5837 or when you set the mouse color. */);
5838 Vx_sensitive_text_pointer_shape
= Qnil
;
5840 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5841 &Vx_window_horizontal_drag_shape
,
5842 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5843 This variable takes effect when you create a new frame
5844 or when you set the mouse color. */);
5845 Vx_window_horizontal_drag_shape
= Qnil
;
5847 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5848 doc
: /* A string indicating the foreground color of the cursor box. */);
5849 Vx_cursor_fore_pixel
= Qnil
;
5851 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5852 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5853 Text larger than this is clipped. */);
5854 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5856 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5857 doc
: /* Non-nil if no X window manager is in use.
5858 Emacs doesn't try to figure this out; this is always nil
5859 unless you set it to something else. */);
5860 /* We don't have any way to find this out, so set it to nil
5861 and maybe the user would like to set it to t. */
5862 Vx_no_window_manager
= Qnil
;
5864 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5865 &Vx_pixel_size_width_font_regexp
,
5866 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5868 Since Emacs gets width of a font matching with this regexp from
5869 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5870 such a font. This is especially effective for such large fonts as
5871 Chinese, Japanese, and Korean. */);
5872 Vx_pixel_size_width_font_regexp
= Qnil
;
5874 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5875 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", &x_gtk_use_old_file_dialog
,
5876 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5877 If nil or if the file selection dialog is not available, the new GTK file
5878 chooser is used instead. To turn off all file dialogs set the
5879 variable `use-file-dialog'. */);
5880 x_gtk_use_old_file_dialog
= 0;
5882 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5883 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5884 Note that this is just the default, there is a toggle button on the file
5885 chooser to show or not show hidden files on a case by case basis. */);
5886 x_gtk_show_hidden_files
= 0;
5888 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", &x_gtk_file_dialog_help_text
,
5889 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
5890 If more space for files in the file chooser dialog is wanted, set this to nil
5891 to turn the additional text off. */);
5892 x_gtk_file_dialog_help_text
= 1;
5894 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
5895 doc
: /* *If non-nil, a detached tool bar is shown in full.
5896 The default is to just show an arrow and pressing on that arrow shows
5897 the tool bar buttons. */);
5898 x_gtk_whole_detached_tool_bar
= 0;
5900 Fprovide (intern_c_string ("x"), Qnil
);
5902 #ifdef USE_X_TOOLKIT
5903 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5905 Fprovide (intern_c_string ("motif"), Qnil
);
5907 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5908 doc
: /* Version info for LessTif/Motif. */);
5909 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5910 #endif /* USE_MOTIF */
5911 #endif /* USE_X_TOOLKIT */
5914 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5915 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5916 But for a user it is a toolkit for X, and indeed, configure
5917 accepts --with-x-toolkit=gtk. */
5918 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5919 Fprovide (intern_c_string ("gtk"), Qnil
);
5921 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5922 doc
: /* Version info for GTK+. */);
5924 char gtk_version
[40];
5925 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5926 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5927 Vgtk_version_string
= make_pure_string (gtk_version
, strlen (gtk_version
), strlen (gtk_version
), 0);
5929 #endif /* USE_GTK */
5931 /* X window properties. */
5932 defsubr (&Sx_change_window_property
);
5933 defsubr (&Sx_delete_window_property
);
5934 defsubr (&Sx_window_property
);
5936 defsubr (&Sxw_display_color_p
);
5937 defsubr (&Sx_display_grayscale_p
);
5938 defsubr (&Sxw_color_defined_p
);
5939 defsubr (&Sxw_color_values
);
5940 defsubr (&Sx_server_max_request_size
);
5941 defsubr (&Sx_server_vendor
);
5942 defsubr (&Sx_server_version
);
5943 defsubr (&Sx_display_pixel_width
);
5944 defsubr (&Sx_display_pixel_height
);
5945 defsubr (&Sx_display_mm_width
);
5946 defsubr (&Sx_display_mm_height
);
5947 defsubr (&Sx_display_screens
);
5948 defsubr (&Sx_display_planes
);
5949 defsubr (&Sx_display_color_cells
);
5950 defsubr (&Sx_display_visual_class
);
5951 defsubr (&Sx_display_backing_store
);
5952 defsubr (&Sx_display_save_under
);
5953 defsubr (&Sx_wm_set_size_hint
);
5954 defsubr (&Sx_create_frame
);
5955 defsubr (&Sx_open_connection
);
5956 defsubr (&Sx_close_connection
);
5957 defsubr (&Sx_display_list
);
5958 defsubr (&Sx_synchronize
);
5959 defsubr (&Sx_focus_frame
);
5960 defsubr (&Sx_backspace_delete_keys_p
);
5962 /* Setting callback functions for fontset handler. */
5963 check_window_system_func
= check_x
;
5965 defsubr (&Sx_show_tip
);
5966 defsubr (&Sx_hide_tip
);
5968 staticpro (&tip_timer
);
5970 staticpro (&tip_frame
);
5972 last_show_tip_args
= Qnil
;
5973 staticpro (&last_show_tip_args
);
5975 defsubr (&Sx_uses_old_gtk_dialog
);
5976 #if defined (USE_MOTIF) || defined (USE_GTK)
5977 defsubr (&Sx_file_dialog
);
5980 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
5981 defsubr (&Sx_select_font
);
5982 x_last_font_name
= NULL
;
5986 #endif /* HAVE_X_WINDOWS */
5988 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
5989 (do not change this comment) */