1 /* Functions for the X window system.
3 Copyright (C) 1989, 1992-2011 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
27 /* This makes the fields of a Display accessible, in Xlib header files. */
29 #define XLIB_ILLEGAL_ACCESS
36 #include "intervals.h"
37 #include "dispextern.h"
39 #include "blockinput.h"
41 #include "character.h"
46 #include "termhooks.h"
54 #include <sys/types.h>
57 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
58 #include "bitmaps/gray.xbm"
60 #include <X11/bitmaps/gray>
63 #include "xsettings.h"
70 #include <X11/Shell.h>
74 #include <X11/Xaw3d/Paned.h>
75 #include <X11/Xaw3d/Label.h>
76 #else /* !HAVE_XAW3D */
77 #include <X11/Xaw/Paned.h>
78 #include <X11/Xaw/Label.h>
79 #endif /* HAVE_XAW3D */
80 #endif /* USE_MOTIF */
83 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
92 #include "../lwlib/lwlib.h"
96 #include <Xm/DialogS.h>
97 #include <Xm/FileSB.h>
103 #include "../lwlib/xlwmenu.h"
106 #if !defined(NO_EDITRES)
108 extern void _XEditResCheckMessages ();
109 #endif /* not defined NO_EDITRES */
111 /* Unique id counter for widgets created by the Lucid Widget Library. */
113 extern LWLIB_ID widget_id_tick
;
115 extern void free_frame_menubar ();
116 extern double atof ();
120 #endif /* USE_MOTIF */
122 #endif /* USE_X_TOOLKIT */
128 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
130 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
131 it, and including `bitmaps/gray' more than once is a problem when
132 config.h defines `static' as an empty replacement string. */
134 int gray_bitmap_width
= gray_width
;
135 int gray_bitmap_height
= gray_height
;
136 char *gray_bitmap_bits
= gray_bits
;
138 /* Nonzero if using X. */
143 Lisp_Object Qsuppress_icon
;
144 Lisp_Object Qundefined_color
;
145 Lisp_Object Qcompound_text
, Qcancel_timer
;
146 Lisp_Object Qfont_param
;
149 int image_cache_refcount
, dpyinfo_refcount
;
152 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
153 char *x_last_font_name
;
157 /* Error if we are not connected to X. */
163 error ("X windows are not in use or not initialized");
166 /* Nonzero if we can use mouse menus.
167 You should not call this unless HAVE_MENUS is defined. */
175 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
176 and checking validity for X. */
179 check_x_frame (Lisp_Object frame
)
184 frame
= selected_frame
;
185 CHECK_LIVE_FRAME (frame
);
188 error ("Non-X frame used");
192 /* Let the user specify an X display with a Lisp object.
193 OBJECT may be nil, a frame or a terminal object.
194 nil stands for the selected frame--or, if that is not an X frame,
195 the first X display on the list. */
197 struct x_display_info
*
198 check_x_display_info (Lisp_Object object
)
200 struct x_display_info
*dpyinfo
= NULL
;
204 struct frame
*sf
= XFRAME (selected_frame
);
206 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
207 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
208 else if (x_display_list
!= 0)
209 dpyinfo
= x_display_list
;
211 error ("X windows are not in use or not initialized");
213 else if (TERMINALP (object
))
215 struct terminal
*t
= get_terminal (object
, 1);
217 if (t
->type
!= output_x_window
)
218 error ("Terminal %"pEd
" is not an X display", XINT (object
));
220 dpyinfo
= t
->display_info
.x
;
222 else if (STRINGP (object
))
223 dpyinfo
= x_display_info_for_name (object
);
226 FRAME_PTR f
= check_x_frame (object
);
227 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
234 /* Return the Emacs frame-object corresponding to an X window.
235 It could be the frame's main window or an icon window. */
237 /* This function can be called during GC, so use GC_xxx type test macros. */
240 x_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
242 Lisp_Object tail
, frame
;
245 if (wdesc
== None
) return 0;
247 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
253 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
255 if (f
->output_data
.x
->hourglass_window
== wdesc
)
258 if ((f
->output_data
.x
->edit_widget
259 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
260 /* A tooltip frame? */
261 || (!f
->output_data
.x
->edit_widget
262 && FRAME_X_WINDOW (f
) == wdesc
)
263 || f
->output_data
.x
->icon_desc
== wdesc
)
265 #else /* not USE_X_TOOLKIT */
267 if (f
->output_data
.x
->edit_widget
)
269 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
270 struct x_output
*x
= f
->output_data
.x
;
271 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
275 if (FRAME_X_WINDOW (f
) == wdesc
276 || f
->output_data
.x
->icon_desc
== wdesc
)
278 #endif /* not USE_X_TOOLKIT */
283 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
284 /* Like x_window_to_frame but also compares the window with the widget's
288 x_any_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
290 Lisp_Object tail
, frame
;
291 struct frame
*f
, *found
;
294 if (wdesc
== None
) return NULL
;
297 for (tail
= Vframe_list
; CONSP (tail
) && !found
; tail
= XCDR (tail
))
304 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
306 /* This frame matches if the window is any of its widgets. */
307 x
= f
->output_data
.x
;
308 if (x
->hourglass_window
== wdesc
)
313 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
315 && gtk_widget_get_toplevel (gwdesc
) == x
->widget
)
318 if (wdesc
== XtWindow (x
->widget
)
319 || wdesc
== XtWindow (x
->column_widget
)
320 || wdesc
== XtWindow (x
->edit_widget
))
322 /* Match if the window is this frame's menubar. */
323 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
327 else if (FRAME_X_WINDOW (f
) == wdesc
)
328 /* A tooltip frame. */
336 /* Likewise, but consider only the menu bar widget. */
339 x_menubar_window_to_frame (struct x_display_info
*dpyinfo
, XEvent
*event
)
341 Window wdesc
= event
->xany
.window
;
342 Lisp_Object tail
, frame
;
346 if (wdesc
== None
) return 0;
348 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
354 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
356 x
= f
->output_data
.x
;
358 if (x
->menubar_widget
&& xg_event_is_for_menubar (f
, event
))
361 /* Match if the window is this frame's menubar. */
362 if (x
->menubar_widget
363 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
370 /* Return the frame whose principal (outermost) window is WDESC.
371 If WDESC is some other (smaller) window, we return 0. */
374 x_top_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
376 Lisp_Object tail
, frame
;
380 if (wdesc
== None
) return 0;
382 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
388 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
390 x
= f
->output_data
.x
;
394 /* This frame matches if the window is its topmost widget. */
396 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
397 if (gwdesc
== x
->widget
)
400 if (wdesc
== XtWindow (x
->widget
))
402 #if 0 /* I don't know why it did this,
403 but it seems logically wrong,
404 and it causes trouble for MapNotify events. */
405 /* Match if the window is this frame's menubar. */
406 if (x
->menubar_widget
407 && wdesc
== XtWindow (x
->menubar_widget
))
412 else if (FRAME_X_WINDOW (f
) == wdesc
)
418 #endif /* USE_X_TOOLKIT || USE_GTK */
422 static void x_default_font_parameter (struct frame
*, Lisp_Object
);
424 static Lisp_Object
unwind_create_frame (Lisp_Object
);
425 static Lisp_Object
unwind_create_tip_frame (Lisp_Object
);
427 void x_set_foreground_color (struct frame
*, Lisp_Object
, Lisp_Object
);
428 static void x_set_wait_for_wm (struct frame
*, Lisp_Object
, Lisp_Object
);
429 void x_set_background_color (struct frame
*, Lisp_Object
, Lisp_Object
);
430 void x_set_mouse_color (struct frame
*, Lisp_Object
, Lisp_Object
);
431 void x_set_cursor_color (struct frame
*, Lisp_Object
, Lisp_Object
);
432 void x_set_border_color (struct frame
*, Lisp_Object
, Lisp_Object
);
433 void x_set_cursor_type (struct frame
*, Lisp_Object
, Lisp_Object
);
434 void x_set_icon_type (struct frame
*, Lisp_Object
, Lisp_Object
);
435 void x_set_icon_name (struct frame
*, Lisp_Object
, Lisp_Object
);
436 void x_explicitly_set_name (struct frame
*, Lisp_Object
, Lisp_Object
);
437 void x_set_menu_bar_lines (struct frame
*, Lisp_Object
, Lisp_Object
);
438 void x_set_title (struct frame
*, Lisp_Object
, Lisp_Object
);
439 void x_set_tool_bar_lines (struct frame
*, Lisp_Object
, Lisp_Object
);
440 void x_set_scroll_bar_foreground (struct frame
*, Lisp_Object
,
442 void x_set_scroll_bar_background (struct frame
*, Lisp_Object
,
444 static Lisp_Object
x_default_scroll_bar_color_parameter (struct frame
*,
447 const char *, const char *,
451 /* Store the screen positions of frame F into XPTR and YPTR.
452 These are the positions of the containing window manager window,
453 not Emacs's own window. */
456 x_real_positions (FRAME_PTR f
, int *xptr
, int *yptr
)
458 int win_x
, win_y
, outer_x
, outer_y
;
459 int real_x
= 0, real_y
= 0;
461 Window win
= f
->output_data
.x
->parent_desc
;
463 unsigned long actual_size
, bytes_remaining
;
464 int rc
, actual_format
;
465 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
467 Display
*dpy
= FRAME_X_DISPLAY (f
);
468 unsigned char *tmp_data
= NULL
;
469 Atom target_type
= XA_CARDINAL
;
473 x_catch_errors (dpy
);
475 if (win
== dpyinfo
->root_window
)
476 win
= FRAME_OUTER_WINDOW (f
);
478 /* This loop traverses up the containment tree until we hit the root
479 window. Window managers may intersect many windows between our window
480 and the root window. The window we find just before the root window
481 should be the outer WM window. */
484 Window wm_window
, rootw
;
485 Window
*tmp_children
;
486 unsigned int tmp_nchildren
;
489 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
490 &wm_window
, &tmp_children
, &tmp_nchildren
);
492 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
494 /* Don't free tmp_children if XQueryTree failed. */
498 XFree ((char *) tmp_children
);
500 if (wm_window
== rootw
|| had_errors
)
511 /* Get the real coordinates for the WM window upper left corner */
512 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
513 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
515 /* Translate real coordinates to coordinates relative to our
516 window. For our window, the upper left corner is 0, 0.
517 Since the upper left corner of the WM window is outside
518 our window, win_x and win_y will be negative:
520 ------------------ ---> x
522 | ----------------- v y
525 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
527 /* From-window, to-window. */
528 FRAME_X_DISPLAY_INFO (f
)->root_window
,
531 /* From-position, to-position. */
532 real_x
, real_y
, &win_x
, &win_y
,
537 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
544 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
546 /* From-window, to-window. */
547 FRAME_X_DISPLAY_INFO (f
)->root_window
,
548 FRAME_OUTER_WINDOW (f
),
550 /* From-position, to-position. */
551 real_x
, real_y
, &outer_x
, &outer_y
,
557 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
561 if (dpyinfo
->root_window
== f
->output_data
.x
->parent_desc
)
563 /* Try _NET_FRAME_EXTENTS if our parent is the root window. */
564 rc
= XGetWindowProperty (dpy
, win
, dpyinfo
->Xatom_net_frame_extents
,
565 0, max_len
, False
, target_type
,
566 &actual_type
, &actual_format
, &actual_size
,
567 &bytes_remaining
, &tmp_data
);
569 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
570 && actual_size
== 4 && actual_format
== 32)
574 long *fe
= (long *)tmp_data
;
576 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
577 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
585 if (tmp_data
) XFree (tmp_data
);
591 if (had_errors
) return;
593 f
->x_pixels_diff
= -win_x
;
594 f
->y_pixels_diff
= -win_y
;
596 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
597 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
606 /* Gamma-correct COLOR on frame F. */
609 gamma_correct (struct frame
*f
, XColor
*color
)
613 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
614 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
615 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
620 /* Decide if color named COLOR_NAME is valid for use on frame F. If
621 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
622 allocate the color. Value is zero if COLOR_NAME is invalid, or
623 no color could be allocated. */
626 x_defined_color (struct frame
*f
, const char *color_name
,
627 XColor
*color
, int alloc_p
)
630 Display
*dpy
= FRAME_X_DISPLAY (f
);
631 Colormap cmap
= FRAME_X_COLORMAP (f
);
635 success_p
= xg_check_special_colors (f
, color_name
, color
);
638 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
639 if (success_p
&& alloc_p
)
640 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
647 /* Return the pixel color value for color COLOR_NAME on frame F. If F
648 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
649 Signal an error if color can't be allocated. */
652 x_decode_color (FRAME_PTR f
, Lisp_Object color_name
, int mono_color
)
656 CHECK_STRING (color_name
);
658 #if 0 /* Don't do this. It's wrong when we're not using the default
659 colormap, it makes freeing difficult, and it's probably not
660 an important optimization. */
661 if (strcmp (SDATA (color_name
), "black") == 0)
662 return BLACK_PIX_DEFAULT (f
);
663 else if (strcmp (SDATA (color_name
), "white") == 0)
664 return WHITE_PIX_DEFAULT (f
);
667 /* Return MONO_COLOR for monochrome frames. */
668 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
671 /* x_defined_color is responsible for coping with failures
672 by looking for a near-miss. */
673 if (x_defined_color (f
, SSDATA (color_name
), &cdef
, 1))
676 signal_error ("Undefined color", color_name
);
681 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
682 the previous value of that parameter, NEW_VALUE is the new value.
683 See also the comment of wait_for_wm in struct x_output. */
686 x_set_wait_for_wm (struct frame
*f
, Lisp_Object new_value
, Lisp_Object old_value
)
688 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
692 x_set_tool_bar_position (struct frame
*f
,
693 Lisp_Object new_value
,
694 Lisp_Object old_value
)
696 if (! EQ (new_value
, Qleft
) && ! EQ (new_value
, Qright
)
697 && ! EQ (new_value
, Qbottom
) && ! EQ (new_value
, Qtop
))
699 if (EQ (new_value
, old_value
)) return;
702 if (xg_change_toolbar_position (f
, new_value
))
703 f
->tool_bar_position
= new_value
;
709 /* Set icon from FILE for frame F. By using GTK functions the icon
710 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
713 xg_set_icon (FRAME_PTR f
, Lisp_Object file
)
718 found
= x_find_image_file (file
);
724 char *filename
= SSDATA (found
);
727 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
731 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
733 g_object_unref (pixbuf
);
747 xg_set_icon_from_xpm_data (FRAME_PTR f
, const char **data
)
749 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data (data
);
754 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
755 g_object_unref (pixbuf
);
761 /* Functions called only from `x_set_frame_param'
762 to set individual parameters.
764 If FRAME_X_WINDOW (f) is 0,
765 the frame is being created and its X-window does not exist yet.
766 In that case, just record the parameter's new value
767 in the standard place; do not attempt to change the window. */
770 x_set_foreground_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
772 struct x_output
*x
= f
->output_data
.x
;
773 unsigned long fg
, old_fg
;
775 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
776 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
777 FRAME_FOREGROUND_PIXEL (f
) = fg
;
779 if (FRAME_X_WINDOW (f
) != 0)
781 Display
*dpy
= FRAME_X_DISPLAY (f
);
784 XSetForeground (dpy
, x
->normal_gc
, fg
);
785 XSetBackground (dpy
, x
->reverse_gc
, fg
);
787 if (x
->cursor_pixel
== old_fg
)
789 unload_color (f
, x
->cursor_pixel
);
790 x
->cursor_pixel
= x_copy_color (f
, fg
);
791 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
796 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
798 if (FRAME_VISIBLE_P (f
))
802 unload_color (f
, old_fg
);
806 x_set_background_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
808 struct x_output
*x
= f
->output_data
.x
;
811 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
812 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
813 FRAME_BACKGROUND_PIXEL (f
) = bg
;
815 if (FRAME_X_WINDOW (f
) != 0)
817 Display
*dpy
= FRAME_X_DISPLAY (f
);
820 XSetBackground (dpy
, x
->normal_gc
, bg
);
821 XSetForeground (dpy
, x
->reverse_gc
, bg
);
822 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
823 XSetForeground (dpy
, x
->cursor_gc
, bg
);
826 xg_set_background_color (f
, bg
);
829 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
830 toolkit scroll bars. */
833 for (bar
= FRAME_SCROLL_BARS (f
);
835 bar
= XSCROLL_BAR (bar
)->next
)
837 Window window
= XSCROLL_BAR (bar
)->x_window
;
838 XSetWindowBackground (dpy
, window
, bg
);
841 #endif /* USE_TOOLKIT_SCROLL_BARS */
844 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
846 if (FRAME_VISIBLE_P (f
))
852 make_invisible_cursor (struct frame
*f
)
854 Display
*dpy
= FRAME_X_DISPLAY (f
);
855 static char const no_data
[] = { 0 };
860 x_catch_errors (dpy
);
861 pix
= XCreateBitmapFromData (dpy
, FRAME_X_DISPLAY_INFO (f
)->root_window
,
863 if (! x_had_errors_p (dpy
) && pix
!= None
)
867 col
.red
= col
.green
= col
.blue
= 0;
868 col
.flags
= DoRed
| DoGreen
| DoBlue
;
869 pixc
= XCreatePixmapCursor (dpy
, pix
, pix
, &col
, &col
, 0, 0);
870 if (! x_had_errors_p (dpy
) && pixc
!= None
)
872 XFreePixmap (dpy
, pix
);
881 x_set_mouse_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
883 struct x_output
*x
= f
->output_data
.x
;
884 Display
*dpy
= FRAME_X_DISPLAY (f
);
885 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
886 Cursor hourglass_cursor
, horizontal_drag_cursor
;
887 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
888 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
890 /* Don't let pointers be invisible. */
891 if (mask_color
== pixel
)
893 x_free_colors (f
, &pixel
, 1);
894 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
897 unload_color (f
, x
->mouse_pixel
);
898 x
->mouse_pixel
= pixel
;
902 /* It's not okay to crash if the user selects a screwy cursor. */
903 x_catch_errors (dpy
);
905 if (!NILP (Vx_pointer_shape
))
907 CHECK_NUMBER (Vx_pointer_shape
);
908 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
911 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
912 x_check_errors (dpy
, "bad text pointer cursor: %s");
914 if (!NILP (Vx_nontext_pointer_shape
))
916 CHECK_NUMBER (Vx_nontext_pointer_shape
);
918 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
921 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
922 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
924 if (!NILP (Vx_hourglass_pointer_shape
))
926 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
928 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
931 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
932 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
934 if (!NILP (Vx_mode_pointer_shape
))
936 CHECK_NUMBER (Vx_mode_pointer_shape
);
937 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
940 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
941 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
943 if (!NILP (Vx_sensitive_text_pointer_shape
))
945 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
947 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
950 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
952 if (!NILP (Vx_window_horizontal_drag_shape
))
954 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
955 horizontal_drag_cursor
956 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
959 horizontal_drag_cursor
960 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
962 /* Check and report errors with the above calls. */
963 x_check_errors (dpy
, "can't set cursor shape: %s");
967 XColor fore_color
, back_color
;
969 fore_color
.pixel
= x
->mouse_pixel
;
970 x_query_color (f
, &fore_color
);
971 back_color
.pixel
= mask_color
;
972 x_query_color (f
, &back_color
);
974 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
975 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
976 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
977 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
978 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
979 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
982 if (FRAME_X_WINDOW (f
) != 0)
983 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
984 f
->output_data
.x
->current_cursor
= cursor
);
986 if (FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
== 0)
987 FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
= make_invisible_cursor (f
);
989 if (cursor
!= x
->text_cursor
990 && x
->text_cursor
!= 0)
991 XFreeCursor (dpy
, x
->text_cursor
);
992 x
->text_cursor
= cursor
;
994 if (nontext_cursor
!= x
->nontext_cursor
995 && x
->nontext_cursor
!= 0)
996 XFreeCursor (dpy
, x
->nontext_cursor
);
997 x
->nontext_cursor
= nontext_cursor
;
999 if (hourglass_cursor
!= x
->hourglass_cursor
1000 && x
->hourglass_cursor
!= 0)
1001 XFreeCursor (dpy
, x
->hourglass_cursor
);
1002 x
->hourglass_cursor
= hourglass_cursor
;
1004 if (mode_cursor
!= x
->modeline_cursor
1005 && x
->modeline_cursor
!= 0)
1006 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1007 x
->modeline_cursor
= mode_cursor
;
1009 if (hand_cursor
!= x
->hand_cursor
1010 && x
->hand_cursor
!= 0)
1011 XFreeCursor (dpy
, x
->hand_cursor
);
1012 x
->hand_cursor
= hand_cursor
;
1014 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1015 && x
->horizontal_drag_cursor
!= 0)
1016 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1017 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1022 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1026 x_set_cursor_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1028 unsigned long fore_pixel
, pixel
;
1029 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1030 struct x_output
*x
= f
->output_data
.x
;
1032 if (!NILP (Vx_cursor_fore_pixel
))
1034 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1035 WHITE_PIX_DEFAULT (f
));
1036 fore_pixel_allocated_p
= 1;
1039 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1041 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1042 pixel_allocated_p
= 1;
1044 /* Make sure that the cursor color differs from the background color. */
1045 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1047 if (pixel_allocated_p
)
1049 x_free_colors (f
, &pixel
, 1);
1050 pixel_allocated_p
= 0;
1053 pixel
= x
->mouse_pixel
;
1054 if (pixel
== fore_pixel
)
1056 if (fore_pixel_allocated_p
)
1058 x_free_colors (f
, &fore_pixel
, 1);
1059 fore_pixel_allocated_p
= 0;
1061 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1065 unload_color (f
, x
->cursor_foreground_pixel
);
1066 if (!fore_pixel_allocated_p
)
1067 fore_pixel
= x_copy_color (f
, fore_pixel
);
1068 x
->cursor_foreground_pixel
= fore_pixel
;
1070 unload_color (f
, x
->cursor_pixel
);
1071 if (!pixel_allocated_p
)
1072 pixel
= x_copy_color (f
, pixel
);
1073 x
->cursor_pixel
= pixel
;
1075 if (FRAME_X_WINDOW (f
) != 0)
1078 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1079 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1082 if (FRAME_VISIBLE_P (f
))
1084 x_update_cursor (f
, 0);
1085 x_update_cursor (f
, 1);
1089 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1092 /* Set the border-color of frame F to pixel value PIX.
1093 Note that this does not fully take effect if done before
1094 F has an x-window. */
1097 x_set_border_pixel (struct frame
*f
, int pix
)
1099 unload_color (f
, f
->output_data
.x
->border_pixel
);
1100 f
->output_data
.x
->border_pixel
= pix
;
1102 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1105 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1106 (unsigned long)pix
);
1109 if (FRAME_VISIBLE_P (f
))
1114 /* Set the border-color of frame F to value described by ARG.
1115 ARG can be a string naming a color.
1116 The border-color is used for the border that is drawn by the X server.
1117 Note that this does not fully take effect if done before
1118 F has an x-window; it must be redone when the window is created.
1120 Note: this is done in two routines because of the way X10 works.
1122 Note: under X11, this is normally the province of the window manager,
1123 and so emacs' border colors may be overridden. */
1126 x_set_border_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1131 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1132 x_set_border_pixel (f
, pix
);
1133 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1138 x_set_cursor_type (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1140 set_frame_cursor_types (f
, arg
);
1142 /* Make sure the cursor gets redrawn. */
1143 cursor_type_changed
= 1;
1147 x_set_icon_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1153 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1156 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1161 result
= x_text_icon (f
,
1162 SSDATA ((!NILP (f
->icon_name
)
1166 result
= x_bitmap_icon (f
, arg
);
1171 error ("No icon window available");
1174 XFlush (FRAME_X_DISPLAY (f
));
1179 x_set_icon_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1185 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1188 else if (!NILP (arg
) || NILP (oldval
))
1193 if (f
->output_data
.x
->icon_bitmap
!= 0)
1198 result
= x_text_icon (f
,
1199 SSDATA ((!NILP (f
->icon_name
)
1208 error ("No icon window available");
1211 XFlush (FRAME_X_DISPLAY (f
));
1217 x_set_menu_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1220 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1221 int olines
= FRAME_MENU_BAR_LINES (f
);
1224 /* Right now, menu bars don't work properly in minibuf-only frames;
1225 most of the commands try to apply themselves to the minibuffer
1226 frame itself, and get an error because you can't switch buffers
1227 in or split the minibuffer window. */
1228 if (FRAME_MINIBUF_ONLY_P (f
))
1231 if (INTEGERP (value
))
1232 nlines
= XINT (value
);
1236 /* Make sure we redisplay all windows in this frame. */
1237 windows_or_buffers_changed
++;
1239 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1240 FRAME_MENU_BAR_LINES (f
) = 0;
1243 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1244 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1245 /* Make sure next redisplay shows the menu bar. */
1246 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1250 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1251 free_frame_menubar (f
);
1252 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1254 f
->output_data
.x
->menubar_widget
= 0;
1256 #else /* not USE_X_TOOLKIT && not USE_GTK */
1257 FRAME_MENU_BAR_LINES (f
) = nlines
;
1258 change_window_heights (f
->root_window
, nlines
- olines
);
1260 /* If the menu bar height gets changed, the internal border below
1261 the top margin has to be cleared. Also, if the menu bar gets
1262 larger, the area for the added lines has to be cleared except for
1263 the first menu bar line that is to be drawn later. */
1264 if (nlines
!= olines
)
1266 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1267 int width
= FRAME_PIXEL_WIDTH (f
);
1270 /* height can be zero here. */
1271 if (height
> 0 && width
> 0)
1273 y
= FRAME_TOP_MARGIN_HEIGHT (f
);
1276 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1277 0, y
, width
, height
, False
);
1281 if (nlines
> 1 && nlines
> olines
)
1283 y
= (olines
== 0 ? 1 : olines
) * FRAME_LINE_HEIGHT (f
);
1284 height
= nlines
* FRAME_LINE_HEIGHT (f
) - y
;
1287 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1288 0, y
, width
, height
, False
);
1292 if (nlines
== 0 && WINDOWP (f
->menu_bar_window
))
1293 clear_glyph_matrix (XWINDOW (f
->menu_bar_window
)->current_matrix
);
1295 #endif /* not USE_X_TOOLKIT && not USE_GTK */
1300 /* Set the number of lines used for the tool bar of frame F to VALUE.
1301 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1302 is the old number of tool bar lines. This function changes the
1303 height of all windows on frame F to match the new tool bar height.
1304 The frame's height doesn't change. */
1307 x_set_tool_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1309 int delta
, nlines
, root_height
;
1310 Lisp_Object root_window
;
1312 /* Treat tool bars like menu bars. */
1313 if (FRAME_MINIBUF_ONLY_P (f
))
1316 /* Use VALUE only if an integer >= 0. */
1317 if (INTEGERP (value
) && XINT (value
) >= 0)
1318 nlines
= XFASTINT (value
);
1323 FRAME_TOOL_BAR_LINES (f
) = 0;
1326 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1327 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1328 /* Make sure next redisplay shows the tool bar. */
1329 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1330 update_frame_tool_bar (f
);
1334 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1335 free_frame_tool_bar (f
);
1336 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1342 /* Make sure we redisplay all windows in this frame. */
1343 ++windows_or_buffers_changed
;
1345 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1347 /* Don't resize the tool-bar to more than we have room for. */
1348 root_window
= FRAME_ROOT_WINDOW (f
);
1349 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1350 if (root_height
- delta
< 1)
1352 delta
= root_height
- 1;
1353 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1356 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1357 change_window_heights (root_window
, delta
);
1360 /* We also have to make sure that the internal border at the top of
1361 the frame, below the menu bar or tool bar, is redrawn when the
1362 tool bar disappears. This is so because the internal border is
1363 below the tool bar if one is displayed, but is below the menu bar
1364 if there isn't a tool bar. The tool bar draws into the area
1365 below the menu bar. */
1366 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1369 clear_current_matrices (f
);
1372 /* If the tool bar gets smaller, the internal border below it
1373 has to be cleared. It was formerly part of the display
1374 of the larger tool bar, and updating windows won't clear it. */
1377 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1378 int width
= FRAME_PIXEL_WIDTH (f
);
1379 int y
= (FRAME_MENU_BAR_LINES (f
) + nlines
) * FRAME_LINE_HEIGHT (f
);
1381 /* height can be zero here. */
1382 if (height
> 0 && width
> 0)
1385 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1386 0, y
, width
, height
, False
);
1390 if (WINDOWP (f
->tool_bar_window
))
1391 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1396 /* Set the foreground color for scroll bars on frame F to VALUE.
1397 VALUE should be a string, a color name. If it isn't a string or
1398 isn't a valid color name, do nothing. OLDVAL is the old value of
1399 the frame parameter. */
1402 x_set_scroll_bar_foreground (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1404 unsigned long pixel
;
1406 if (STRINGP (value
))
1407 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1411 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1412 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1414 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1415 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1417 /* Remove all scroll bars because they have wrong colors. */
1418 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1419 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1420 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1421 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1423 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1429 /* Set the background color for scroll bars on frame F to VALUE VALUE
1430 should be a string, a color name. If it isn't a string or isn't a
1431 valid color name, do nothing. OLDVAL is the old value of the frame
1435 x_set_scroll_bar_background (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1437 unsigned long pixel
;
1439 if (STRINGP (value
))
1440 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1444 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1445 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1447 #ifdef USE_TOOLKIT_SCROLL_BARS
1448 /* Scrollbar shadow colors. */
1449 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1451 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1452 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1454 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1456 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1457 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1459 #endif /* USE_TOOLKIT_SCROLL_BARS */
1461 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1462 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1464 /* Remove all scroll bars because they have wrong colors. */
1465 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1466 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1467 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1468 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1470 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1476 /* Encode Lisp string STRING as a text in a format appropriate for
1477 XICCC (X Inter Client Communication Conventions).
1479 This can call Lisp code, so callers must GCPRO.
1481 If STRING contains only ASCII characters, do no conversion and
1482 return the string data of STRING. Otherwise, encode the text by
1483 CODING_SYSTEM, and return a newly allocated memory area which
1484 should be freed by `xfree' by a caller.
1486 SELECTIONP non-zero means the string is being encoded for an X
1487 selection, so it is safe to run pre-write conversions (which
1490 Store the byte length of resulting text in *TEXT_BYTES.
1492 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1493 which means that the `encoding' of the result can be `STRING'.
1494 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1495 the result should be `COMPOUND_TEXT'. */
1497 static unsigned char *
1498 x_encode_text (Lisp_Object string
, Lisp_Object coding_system
, int selectionp
, int *text_bytes
, int *stringp
, int *freep
)
1500 int result
= string_xstring_p (string
);
1501 struct coding_system coding
;
1505 /* No multibyte character in OBJ. We need not encode it. */
1506 *text_bytes
= SBYTES (string
);
1509 return SDATA (string
);
1512 setup_coding_system (coding_system
, &coding
);
1513 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1514 /* We suppress producing escape sequences for composition. */
1515 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1516 coding
.dst_bytes
= SCHARS (string
) * 2;
1517 coding
.destination
= (unsigned char *) xmalloc (coding
.dst_bytes
);
1518 encode_coding_object (&coding
, string
, 0, 0,
1519 SCHARS (string
), SBYTES (string
), Qnil
);
1520 *text_bytes
= coding
.produced
;
1521 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1523 return coding
.destination
;
1527 /* Set the WM name to NAME for frame F. Also set the icon name.
1528 If the frame already has an icon name, use that, otherwise set the
1529 icon name to NAME. */
1532 x_set_name_internal (FRAME_PTR f
, Lisp_Object name
)
1534 if (FRAME_X_WINDOW (f
))
1538 XTextProperty text
, icon
;
1540 int do_free_icon_value
= 0, do_free_text_value
= 0;
1541 Lisp_Object coding_system
;
1542 Lisp_Object encoded_name
;
1543 Lisp_Object encoded_icon_name
;
1544 struct gcpro gcpro1
;
1546 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1547 we use it before x_encode_text that may return string data. */
1549 encoded_name
= ENCODE_UTF_8 (name
);
1552 coding_system
= Qcompound_text
;
1553 /* Note: Encoding strategy
1555 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1556 text.encoding. But, there are non-internationalized window
1557 managers which don't support that encoding. So, if NAME
1558 contains only ASCII and 8859-1 characters, encode it by
1559 iso-latin-1, and use "STRING" in text.encoding hoping that
1560 such window managers at least analyze this format correctly,
1561 i.e. treat 8-bit bytes as 8859-1 characters.
1563 We may also be able to use "UTF8_STRING" in text.encoding
1564 in the future which can encode all Unicode characters.
1565 But, for the moment, there's no way to know that the
1566 current window manager supports it or not.
1568 Either way, we also set the _NET_WM_NAME and _NET_WM_ICON_NAME
1569 properties. Per the EWMH specification, those two properties
1570 are always UTF8_STRING. This matches what gtk_window_set_title()
1571 does in the USE_GTK case. */
1572 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1573 &do_free_text_value
);
1574 text
.encoding
= (stringp
? XA_STRING
1575 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1577 text
.nitems
= bytes
;
1579 if (!STRINGP (f
->icon_name
))
1582 encoded_icon_name
= encoded_name
;
1586 /* See the above comment "Note: Encoding strategy". */
1587 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1588 &bytes
, &stringp
, &do_free_icon_value
);
1589 icon
.encoding
= (stringp
? XA_STRING
1590 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1592 icon
.nitems
= bytes
;
1594 encoded_icon_name
= ENCODE_UTF_8 (f
->icon_name
);
1598 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1599 SSDATA (encoded_name
));
1600 #else /* not USE_GTK */
1601 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1602 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1603 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_name
,
1604 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1606 SDATA (encoded_name
),
1607 SBYTES (encoded_name
));
1608 #endif /* not USE_GTK */
1610 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1611 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1612 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_icon_name
,
1613 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1615 SDATA (encoded_icon_name
),
1616 SBYTES (encoded_icon_name
));
1618 if (do_free_icon_value
)
1620 if (do_free_text_value
)
1627 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1630 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1631 name; if NAME is a string, set F's name to NAME and set
1632 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1634 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1635 suggesting a new name, which lisp code should override; if
1636 F->explicit_name is set, ignore the new name; otherwise, set it. */
1639 x_set_name (struct frame
*f
, Lisp_Object name
, int explicit)
1641 /* Make sure that requests from lisp code override requests from
1642 Emacs redisplay code. */
1645 /* If we're switching from explicit to implicit, we had better
1646 update the mode lines and thereby update the title. */
1647 if (f
->explicit_name
&& NILP (name
))
1648 update_mode_lines
= 1;
1650 f
->explicit_name
= ! NILP (name
);
1652 else if (f
->explicit_name
)
1655 /* If NAME is nil, set the name to the x_id_name. */
1658 /* Check for no change needed in this very common case
1659 before we do any consing. */
1660 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1663 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1666 CHECK_STRING (name
);
1668 /* Don't change the name if it's already NAME. */
1669 if (! NILP (Fstring_equal (name
, f
->name
)))
1674 /* For setting the frame title, the title parameter should override
1675 the name parameter. */
1676 if (! NILP (f
->title
))
1679 x_set_name_internal (f
, name
);
1682 /* This function should be called when the user's lisp code has
1683 specified a name for the frame; the name will override any set by the
1686 x_explicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1688 x_set_name (f
, arg
, 1);
1691 /* This function should be called by Emacs redisplay code to set the
1692 name; names set this way will never override names set by the user's
1695 x_implicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1697 x_set_name (f
, arg
, 0);
1700 /* Change the title of frame F to NAME.
1701 If NAME is nil, use the frame name as the title. */
1704 x_set_title (struct frame
*f
, Lisp_Object name
, Lisp_Object old_name
)
1706 /* Don't change the title if it's already NAME. */
1707 if (EQ (name
, f
->title
))
1710 update_mode_lines
= 1;
1717 CHECK_STRING (name
);
1719 x_set_name_internal (f
, name
);
1723 x_set_scroll_bar_default_width (struct frame
*f
)
1725 int wid
= FRAME_COLUMN_WIDTH (f
);
1727 #ifdef USE_TOOLKIT_SCROLL_BARS
1728 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1729 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1730 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1731 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1733 /* Make the actual width at least 14 pixels and a multiple of a
1735 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1737 /* Use all of that space (aside from required margins) for the
1739 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1744 /* Record in frame F the specified or default value according to ALIST
1745 of the parameter named PROP (a Lisp symbol). If no value is
1746 specified for PROP, look for an X default for XPROP on the frame
1747 named NAME. If that is not found either, use the value DEFLT. */
1750 x_default_scroll_bar_color_parameter (struct frame
*f
,
1751 Lisp_Object alist
, Lisp_Object prop
,
1752 const char *xprop
, const char *xclass
,
1755 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1758 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1759 if (EQ (tem
, Qunbound
))
1761 #ifdef USE_TOOLKIT_SCROLL_BARS
1763 /* See if an X resource for the scroll bar color has been
1765 tem
= display_x_get_resource (dpyinfo
,
1766 build_string (foreground_p
1769 empty_unibyte_string
,
1770 build_string ("verticalScrollBar"),
1771 empty_unibyte_string
);
1774 /* If nothing has been specified, scroll bars will use a
1775 toolkit-dependent default. Because these defaults are
1776 difficult to get at without actually creating a scroll
1777 bar, use nil to indicate that no color has been
1782 #else /* not USE_TOOLKIT_SCROLL_BARS */
1786 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1789 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1796 #ifdef USE_X_TOOLKIT
1798 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1799 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1800 already be present because of the toolkit (Motif adds some of them,
1801 for example, but Xt doesn't). */
1804 hack_wm_protocols (FRAME_PTR f
, Widget widget
)
1806 Display
*dpy
= XtDisplay (widget
);
1807 Window w
= XtWindow (widget
);
1808 int need_delete
= 1;
1815 unsigned char *catoms
;
1817 unsigned long nitems
= 0;
1818 unsigned long bytes_after
;
1820 if ((XGetWindowProperty (dpy
, w
,
1821 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1822 (long)0, (long)100, False
, XA_ATOM
,
1823 &type
, &format
, &nitems
, &bytes_after
,
1826 && format
== 32 && type
== XA_ATOM
)
1828 Atom
*atoms
= (Atom
*) catoms
;
1833 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1835 else if (atoms
[nitems
]
1836 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1838 else if (atoms
[nitems
]
1839 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1850 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1852 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1854 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1856 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1857 XA_ATOM
, 32, PropModeAppend
,
1858 (unsigned char *) props
, count
);
1866 /* Support routines for XIC (X Input Context). */
1870 static XFontSet
xic_create_xfontset (struct frame
*);
1871 static XIMStyle
best_xim_style (XIMStyles
*, XIMStyles
*);
1874 /* Supported XIM styles, ordered by preference. */
1876 static XIMStyle supported_xim_styles
[] =
1878 XIMPreeditPosition
| XIMStatusArea
,
1879 XIMPreeditPosition
| XIMStatusNothing
,
1880 XIMPreeditPosition
| XIMStatusNone
,
1881 XIMPreeditNothing
| XIMStatusArea
,
1882 XIMPreeditNothing
| XIMStatusNothing
,
1883 XIMPreeditNothing
| XIMStatusNone
,
1884 XIMPreeditNone
| XIMStatusArea
,
1885 XIMPreeditNone
| XIMStatusNothing
,
1886 XIMPreeditNone
| XIMStatusNone
,
1891 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1893 const char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1895 /* Create an Xt fontset spec from the name of a base font.
1896 If `motif' is True use the Motif syntax. */
1898 xic_create_fontsetname (const char *base_fontname
, int motif
)
1900 const char *sep
= motif
? ";" : ",";
1903 /* Make a fontset name from the base font name. */
1904 if (xic_defaut_fontset
== base_fontname
)
1905 { /* There is no base font name, use the default. */
1906 int len
= strlen (base_fontname
) + 2;
1907 fontsetname
= xmalloc (len
);
1908 memset (fontsetname
, 0, len
);
1909 strcpy (fontsetname
, base_fontname
);
1913 /* Make a fontset name from the base font name.
1914 The font set will be made of the following elements:
1916 - the base font where the charset spec is replaced by -*-*.
1917 - the same but with the family also replaced with -*-*-. */
1918 const char *p
= base_fontname
;
1921 for (i
= 0; *p
; p
++)
1924 { /* As the font name doesn't conform to XLFD, we can't
1925 modify it to generalize it to allcs and allfamilies.
1926 Use the specified font plus the default. */
1927 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
1928 fontsetname
= xmalloc (len
);
1929 memset (fontsetname
, 0, len
);
1930 strcpy (fontsetname
, base_fontname
);
1931 strcat (fontsetname
, sep
);
1932 strcat (fontsetname
, xic_defaut_fontset
);
1937 const char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1938 char *font_allcs
= NULL
;
1939 char *font_allfamilies
= NULL
;
1940 char *font_all
= NULL
;
1941 const char *allcs
= "*-*-*-*-*-*-*";
1942 const char *allfamilies
= "-*-*-";
1943 const char *all
= "*-*-*-*-";
1946 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
1959 /* If base_fontname specifies ADSTYLE, make it a
1963 int diff
= (p2
- p3
) - 2;
1965 base
= alloca (strlen (base_fontname
) + 1);
1966 memcpy (base
, base_fontname
, p3
- base_fontname
);
1967 base
[p3
- base_fontname
] = '*';
1968 base
[(p3
- base_fontname
) + 1] = '-';
1969 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
1970 p
= base
+ (p
- base_fontname
) - diff
;
1971 p1
= base
+ (p1
- base_fontname
);
1972 p2
= base
+ (p2
- base_fontname
) - diff
;
1973 base_fontname
= base
;
1976 /* Build the font spec that matches all charsets. */
1977 len
= p
- base_fontname
+ strlen (allcs
) + 1;
1978 font_allcs
= (char *) alloca (len
);
1979 memset (font_allcs
, 0, len
);
1980 memcpy (font_allcs
, base_fontname
, p
- base_fontname
);
1981 strcat (font_allcs
, allcs
);
1983 /* Build the font spec that matches all families and
1985 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
1986 font_allfamilies
= (char *) alloca (len
);
1987 memset (font_allfamilies
, 0, len
);
1988 strcpy (font_allfamilies
, allfamilies
);
1989 memcpy (font_allfamilies
+ strlen (allfamilies
), p1
, p
- p1
);
1990 strcat (font_allfamilies
, allcs
);
1992 /* Build the font spec that matches all. */
1993 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
1994 font_all
= (char *) alloca (len
);
1995 memset (font_all
, 0, len
);
1996 strcpy (font_all
, allfamilies
);
1997 strcat (font_all
, all
);
1998 memcpy (font_all
+ strlen (all
) + strlen (allfamilies
), p2
, p
- p2
);
1999 strcat (font_all
, allcs
);
2001 /* Build the actual font set name. */
2002 len
= strlen (base_fontname
) + strlen (font_allcs
)
2003 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2004 fontsetname
= xmalloc (len
);
2005 memset (fontsetname
, 0, len
);
2006 strcpy (fontsetname
, base_fontname
);
2007 strcat (fontsetname
, sep
);
2008 strcat (fontsetname
, font_allcs
);
2009 strcat (fontsetname
, sep
);
2010 strcat (fontsetname
, font_allfamilies
);
2011 strcat (fontsetname
, sep
);
2012 strcat (fontsetname
, font_all
);
2016 strcat (fontsetname
, ":");
2020 #ifdef DEBUG_XIC_FONTSET
2022 print_fontset_result (xfs
, name
, missing_list
, missing_count
)
2025 char **missing_list
;
2029 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
2032 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
2033 while (missing_count
-- > 0)
2035 fprintf (stderr
, " missing: %s\n", *missing_list
);
2044 xic_create_xfontset (struct frame
*f
)
2046 XFontSet xfs
= NULL
;
2047 struct font
*font
= FRAME_FONT (f
);
2048 int pixel_size
= font
->pixel_size
;
2049 Lisp_Object rest
, frame
;
2051 /* See if there is another frame already using same fontset. */
2052 FOR_EACH_FRAME (rest
, frame
)
2054 struct frame
*cf
= XFRAME (frame
);
2056 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2057 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2059 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
2061 xfs
= FRAME_XIC_FONTSET (cf
);
2069 char **missing_list
;
2072 const char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
2074 sprintf (buf
, xlfd_format
, pixel_size
);
2075 missing_list
= NULL
;
2076 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2077 &missing_list
, &missing_count
, &def_string
);
2078 #ifdef DEBUG_XIC_FONTSET
2079 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2082 XFreeStringList (missing_list
);
2085 /* List of pixel sizes most likely available. Find one that
2086 is closest to pixel_size. */
2087 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2088 int *smaller
, *larger
;
2090 for (smaller
= sizes
; smaller
[1]; smaller
++)
2091 if (smaller
[1] >= pixel_size
)
2093 larger
= smaller
+ 1;
2094 if (*larger
== pixel_size
)
2096 while (*smaller
|| *larger
)
2101 this_size
= *smaller
--;
2102 else if (! *smaller
)
2103 this_size
= *larger
++;
2104 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
2105 this_size
= *smaller
--;
2107 this_size
= *larger
++;
2108 sprintf (buf
, xlfd_format
, this_size
);
2109 missing_list
= NULL
;
2110 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2111 &missing_list
, &missing_count
, &def_string
);
2112 #ifdef DEBUG_XIC_FONTSET
2113 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2116 XFreeStringList (missing_list
);
2123 const char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
2125 missing_list
= NULL
;
2126 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
2127 &missing_list
, &missing_count
, &def_string
);
2128 #ifdef DEBUG_XIC_FONTSET
2129 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
2132 XFreeStringList (missing_list
);
2140 /* Free the X fontset of frame F if it is the last frame using it. */
2143 xic_free_xfontset (struct frame
*f
)
2145 Lisp_Object rest
, frame
;
2148 if (!FRAME_XIC_FONTSET (f
))
2151 /* See if there is another frame sharing the same fontset. */
2152 FOR_EACH_FRAME (rest
, frame
)
2154 struct frame
*cf
= XFRAME (frame
);
2155 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2156 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2157 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2165 /* The fontset is not used anymore. It is safe to free it. */
2166 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2168 if (FRAME_XIC_BASE_FONTNAME (f
))
2169 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2170 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2171 FRAME_XIC_FONTSET (f
) = NULL
;
2175 /* Value is the best input style, given user preferences USER (already
2176 checked to be supported by Emacs), and styles supported by the
2177 input method XIM. */
2180 best_xim_style (XIMStyles
*user
, XIMStyles
*xim
)
2184 for (i
= 0; i
< user
->count_styles
; ++i
)
2185 for (j
= 0; j
< xim
->count_styles
; ++j
)
2186 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2187 return user
->supported_styles
[i
];
2189 /* Return the default style. */
2190 return XIMPreeditNothing
| XIMStatusNothing
;
2193 /* Create XIC for frame F. */
2195 static XIMStyle xic_style
;
2198 create_frame_xic (struct frame
*f
)
2202 XFontSet xfs
= NULL
;
2207 /* Create X fontset. */
2208 xfs
= xic_create_xfontset (f
);
2209 xim
= FRAME_X_XIM (f
);
2214 XVaNestedList preedit_attr
;
2215 XVaNestedList status_attr
;
2217 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2218 spot
.x
= 0; spot
.y
= 1;
2220 /* Determine XIC style. */
2223 XIMStyles supported_list
;
2224 supported_list
.count_styles
= (sizeof supported_xim_styles
2225 / sizeof supported_xim_styles
[0]);
2226 supported_list
.supported_styles
= supported_xim_styles
;
2227 xic_style
= best_xim_style (&supported_list
,
2228 FRAME_X_XIM_STYLES (f
));
2231 preedit_attr
= XVaCreateNestedList (0,
2234 FRAME_FOREGROUND_PIXEL (f
),
2236 FRAME_BACKGROUND_PIXEL (f
),
2237 (xic_style
& XIMPreeditPosition
2242 status_attr
= XVaCreateNestedList (0,
2248 FRAME_FOREGROUND_PIXEL (f
),
2250 FRAME_BACKGROUND_PIXEL (f
),
2253 xic
= XCreateIC (xim
,
2254 XNInputStyle
, xic_style
,
2255 XNClientWindow
, FRAME_X_WINDOW (f
),
2256 XNFocusWindow
, FRAME_X_WINDOW (f
),
2257 XNStatusAttributes
, status_attr
,
2258 XNPreeditAttributes
, preedit_attr
,
2260 XFree (preedit_attr
);
2261 XFree (status_attr
);
2264 FRAME_XIC (f
) = xic
;
2265 FRAME_XIC_STYLE (f
) = xic_style
;
2266 FRAME_XIC_FONTSET (f
) = xfs
;
2270 /* Destroy XIC and free XIC fontset of frame F, if any. */
2273 free_frame_xic (struct frame
*f
)
2275 if (FRAME_XIC (f
) == NULL
)
2278 XDestroyIC (FRAME_XIC (f
));
2279 xic_free_xfontset (f
);
2281 FRAME_XIC (f
) = NULL
;
2285 /* Place preedit area for XIC of window W's frame to specified
2286 pixel position X/Y. X and Y are relative to window W. */
2289 xic_set_preeditarea (struct window
*w
, int x
, int y
)
2291 struct frame
*f
= XFRAME (w
->frame
);
2295 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2296 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2297 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2298 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2303 /* Place status area for XIC in bottom right corner of frame F.. */
2306 xic_set_statusarea (struct frame
*f
)
2308 XIC xic
= FRAME_XIC (f
);
2313 /* Negotiate geometry of status area. If input method has existing
2314 status area, use its current size. */
2315 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2316 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2317 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2320 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2321 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2324 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2326 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2327 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2331 area
.width
= needed
->width
;
2332 area
.height
= needed
->height
;
2333 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2334 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2335 - FRAME_MENUBAR_HEIGHT (f
)
2336 - FRAME_TOOLBAR_TOP_HEIGHT (f
)
2337 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2340 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2341 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2346 /* Set X fontset for XIC of frame F, using base font name
2347 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2350 xic_set_xfontset (struct frame
*f
, const char *base_fontname
)
2355 xic_free_xfontset (f
);
2357 xfs
= xic_create_xfontset (f
);
2359 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2360 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2361 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2362 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2363 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2366 FRAME_XIC_FONTSET (f
) = xfs
;
2369 #endif /* HAVE_X_I18N */
2373 #ifdef USE_X_TOOLKIT
2375 /* Create and set up the X widget for frame F. */
2378 x_window (struct frame
*f
, long window_prompting
, int minibuffer_only
)
2380 XClassHint class_hints
;
2381 XSetWindowAttributes attributes
;
2382 unsigned long attribute_mask
;
2383 Widget shell_widget
;
2385 Widget frame_widget
;
2391 /* Use the resource name as the top-level widget name
2392 for looking up resources. Make a non-Lisp copy
2393 for the window manager, so GC relocation won't bother it.
2395 Elsewhere we specify the window name for the window manager. */
2398 char *str
= SSDATA (Vx_resource_name
);
2399 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2400 strcpy (f
->namebuf
, str
);
2404 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2405 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2406 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2407 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2408 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2409 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2410 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2411 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2412 applicationShellWidgetClass
,
2413 FRAME_X_DISPLAY (f
), al
, ac
);
2415 f
->output_data
.x
->widget
= shell_widget
;
2416 /* maybe_set_screen_title_format (shell_widget); */
2418 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2419 (widget_value
*) NULL
,
2420 shell_widget
, False
,
2424 (lw_callback
) NULL
);
2427 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2428 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2429 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2430 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2431 XtSetValues (pane_widget
, al
, ac
);
2432 f
->output_data
.x
->column_widget
= pane_widget
;
2434 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2435 the emacs screen when changing menubar. This reduces flickering. */
2438 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2439 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2440 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2441 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2442 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2443 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2444 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2445 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2446 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2447 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2450 f
->output_data
.x
->edit_widget
= frame_widget
;
2452 XtManageChild (frame_widget
);
2454 /* Do some needed geometry management. */
2457 char *tem
, shell_position
[32];
2460 int extra_borders
= 0;
2462 = (f
->output_data
.x
->menubar_widget
2463 ? (f
->output_data
.x
->menubar_widget
->core
.height
2464 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2467 #if 0 /* Experimentally, we now get the right results
2468 for -geometry -0-0 without this. 24 Aug 96, rms. */
2469 if (FRAME_EXTERNAL_MENU_BAR (f
))
2472 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2473 menubar_size
+= ibw
;
2477 f
->output_data
.x
->menubar_height
= menubar_size
;
2480 /* Motif seems to need this amount added to the sizes
2481 specified for the shell widget. The Athena/Lucid widgets don't.
2482 Both conclusions reached experimentally. -- rms. */
2483 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2484 &extra_borders
, NULL
);
2488 /* Convert our geometry parameters into a geometry string
2490 Note that we do not specify here whether the position
2491 is a user-specified or program-specified one.
2492 We pass that information later, in x_wm_set_size_hints. */
2494 int left
= f
->left_pos
;
2495 int xneg
= window_prompting
& XNegative
;
2496 int top
= f
->top_pos
;
2497 int yneg
= window_prompting
& YNegative
;
2503 if (window_prompting
& USPosition
)
2504 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2505 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2506 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2507 (xneg
? '-' : '+'), left
,
2508 (yneg
? '-' : '+'), top
);
2511 sprintf (shell_position
, "=%dx%d",
2512 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2513 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2515 /* Setting x and y when the position is not specified in
2516 the geometry string will set program position in the WM hints.
2517 If Emacs had just one program position, we could set it in
2518 fallback resources, but since each make-frame call can specify
2519 different program positions, this is easier. */
2520 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2521 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2525 len
= strlen (shell_position
) + 1;
2526 /* We don't free this because we don't know whether
2527 it is safe to free it while the frame exists.
2528 It isn't worth the trouble of arranging to free it
2529 when the frame is deleted. */
2530 tem
= (char *) xmalloc (len
);
2531 strncpy (tem
, shell_position
, len
);
2532 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2533 XtSetValues (shell_widget
, al
, ac
);
2536 XtManageChild (pane_widget
);
2537 XtRealizeWidget (shell_widget
);
2539 if (FRAME_X_EMBEDDED_P (f
))
2540 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2541 f
->output_data
.x
->parent_desc
, 0, 0);
2543 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2545 validate_x_resource_name ();
2547 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2548 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2549 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2552 FRAME_XIC (f
) = NULL
;
2554 create_frame_xic (f
);
2557 f
->output_data
.x
->wm_hints
.input
= True
;
2558 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2559 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2560 &f
->output_data
.x
->wm_hints
);
2562 hack_wm_protocols (f
, shell_widget
);
2565 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2568 /* Do a stupid property change to force the server to generate a
2569 PropertyNotify event so that the event_stream server timestamp will
2570 be initialized to something relevant to the time we created the window.
2572 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2573 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2574 XA_ATOM
, 32, PropModeAppend
,
2575 (unsigned char*) NULL
, 0);
2577 /* Make all the standard events reach the Emacs frame. */
2578 attributes
.event_mask
= STANDARD_EVENT_SET
;
2583 /* XIM server might require some X events. */
2584 unsigned long fevent
= NoEventMask
;
2585 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2586 attributes
.event_mask
|= fevent
;
2588 #endif /* HAVE_X_I18N */
2590 attribute_mask
= CWEventMask
;
2591 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2592 attribute_mask
, &attributes
);
2594 XtMapWidget (frame_widget
);
2596 /* x_set_name normally ignores requests to set the name if the
2597 requested name is the same as the current name. This is the one
2598 place where that assumption isn't correct; f->name is set, but
2599 the X server hasn't been told. */
2602 int explicit = f
->explicit_name
;
2604 f
->explicit_name
= 0;
2607 x_set_name (f
, name
, explicit);
2610 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2611 f
->output_data
.x
->current_cursor
2612 = f
->output_data
.x
->text_cursor
);
2616 /* This is a no-op, except under Motif. Make sure main areas are
2617 set to something reasonable, in case we get an error later. */
2618 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2621 #else /* not USE_X_TOOLKIT */
2624 x_window (FRAME_PTR f
)
2626 if (! xg_create_frame_widgets (f
))
2627 error ("Unable to create window");
2630 FRAME_XIC (f
) = NULL
;
2634 create_frame_xic (f
);
2637 /* XIM server might require some X events. */
2638 unsigned long fevent
= NoEventMask
;
2639 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2641 if (fevent
!= NoEventMask
)
2643 XSetWindowAttributes attributes
;
2644 XWindowAttributes wattr
;
2645 unsigned long attribute_mask
;
2647 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2649 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2650 attribute_mask
= CWEventMask
;
2651 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2652 attribute_mask
, &attributes
);
2660 #else /*! USE_GTK */
2661 /* Create and set up the X window for frame F. */
2664 x_window (struct frame
*f
)
2666 XClassHint class_hints
;
2667 XSetWindowAttributes attributes
;
2668 unsigned long attribute_mask
;
2670 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2671 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2672 attributes
.bit_gravity
= StaticGravity
;
2673 attributes
.backing_store
= NotUseful
;
2674 attributes
.save_under
= True
;
2675 attributes
.event_mask
= STANDARD_EVENT_SET
;
2676 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2677 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2682 = XCreateWindow (FRAME_X_DISPLAY (f
),
2683 f
->output_data
.x
->parent_desc
,
2686 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2688 CopyFromParent
, /* depth */
2689 InputOutput
, /* class */
2691 attribute_mask
, &attributes
);
2696 create_frame_xic (f
);
2699 /* XIM server might require some X events. */
2700 unsigned long fevent
= NoEventMask
;
2701 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2702 attributes
.event_mask
|= fevent
;
2703 attribute_mask
= CWEventMask
;
2704 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2705 attribute_mask
, &attributes
);
2708 #endif /* HAVE_X_I18N */
2710 validate_x_resource_name ();
2712 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2713 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2714 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2716 /* The menubar is part of the ordinary display;
2717 it does not count in addition to the height of the window. */
2718 f
->output_data
.x
->menubar_height
= 0;
2720 /* This indicates that we use the "Passive Input" input model.
2721 Unless we do this, we don't get the Focus{In,Out} events that we
2722 need to draw the cursor correctly. Accursed bureaucrats.
2723 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2725 f
->output_data
.x
->wm_hints
.input
= True
;
2726 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2727 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2728 &f
->output_data
.x
->wm_hints
);
2729 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2731 /* Request "save yourself" and "delete window" commands from wm. */
2734 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2735 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2736 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2739 /* x_set_name normally ignores requests to set the name if the
2740 requested name is the same as the current name. This is the one
2741 place where that assumption isn't correct; f->name is set, but
2742 the X server hasn't been told. */
2745 int explicit = f
->explicit_name
;
2747 f
->explicit_name
= 0;
2750 x_set_name (f
, name
, explicit);
2753 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2754 f
->output_data
.x
->current_cursor
2755 = f
->output_data
.x
->text_cursor
);
2759 if (FRAME_X_WINDOW (f
) == 0)
2760 error ("Unable to create window");
2763 #endif /* not USE_GTK */
2764 #endif /* not USE_X_TOOLKIT */
2766 /* Verify that the icon position args for this window are valid. */
2769 x_icon_verify (struct frame
*f
, Lisp_Object parms
)
2771 Lisp_Object icon_x
, icon_y
;
2773 /* Set the position of the icon. Note that twm groups all
2774 icons in an icon window. */
2775 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2776 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2777 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2779 CHECK_NUMBER (icon_x
);
2780 CHECK_NUMBER (icon_y
);
2782 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2783 error ("Both left and top icon corners of icon must be specified");
2786 /* Handle the icon stuff for this window. Perhaps later we might
2787 want an x_set_icon_position which can be called interactively as
2791 x_icon (struct frame
*f
, Lisp_Object parms
)
2793 Lisp_Object icon_x
, icon_y
;
2795 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
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");
2812 if (! EQ (icon_x
, Qunbound
))
2813 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2815 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2816 but x_create_frame still needs it. */
2817 /* Start up iconic or window? */
2818 x_wm_set_window_state
2819 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2825 x_text_icon (f
, SSDATA ((!NILP (f
->icon_name
)
2832 /* Make the GCs needed for this window, setting the
2833 background, border and mouse colors; also create the
2834 mouse cursor and the gray border tile. */
2837 x_make_gc (struct frame
*f
)
2839 XGCValues gc_values
;
2843 /* Create the GCs of this frame.
2844 Note that many default values are used. */
2846 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2847 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2848 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2849 f
->output_data
.x
->normal_gc
2850 = XCreateGC (FRAME_X_DISPLAY (f
),
2852 GCLineWidth
| GCForeground
| GCBackground
,
2855 /* Reverse video style. */
2856 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2857 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2858 f
->output_data
.x
->reverse_gc
2859 = XCreateGC (FRAME_X_DISPLAY (f
),
2861 GCForeground
| GCBackground
| GCLineWidth
,
2864 /* Cursor has cursor-color background, background-color foreground. */
2865 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2866 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2867 gc_values
.fill_style
= FillOpaqueStippled
;
2868 f
->output_data
.x
->cursor_gc
2869 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2870 (GCForeground
| GCBackground
2871 | GCFillStyle
| GCLineWidth
),
2875 f
->output_data
.x
->white_relief
.gc
= 0;
2876 f
->output_data
.x
->black_relief
.gc
= 0;
2878 /* Create the gray border tile used when the pointer is not in
2879 the frame. Since this depends on the frame's pixel values,
2880 this must be done on a per-frame basis. */
2881 f
->output_data
.x
->border_tile
2882 = (XCreatePixmapFromBitmapData
2883 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2884 gray_bits
, gray_width
, gray_height
,
2885 FRAME_FOREGROUND_PIXEL (f
),
2886 FRAME_BACKGROUND_PIXEL (f
),
2887 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2893 /* Free what was allocated in x_make_gc. */
2896 x_free_gcs (struct frame
*f
)
2898 Display
*dpy
= FRAME_X_DISPLAY (f
);
2902 if (f
->output_data
.x
->normal_gc
)
2904 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2905 f
->output_data
.x
->normal_gc
= 0;
2908 if (f
->output_data
.x
->reverse_gc
)
2910 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2911 f
->output_data
.x
->reverse_gc
= 0;
2914 if (f
->output_data
.x
->cursor_gc
)
2916 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2917 f
->output_data
.x
->cursor_gc
= 0;
2920 if (f
->output_data
.x
->border_tile
)
2922 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2923 f
->output_data
.x
->border_tile
= 0;
2930 /* Handler for signals raised during x_create_frame and
2931 x_create_top_frame. FRAME is the frame which is partially
2935 unwind_create_frame (Lisp_Object frame
)
2937 struct frame
*f
= XFRAME (frame
);
2939 /* If frame is already dead, nothing to do. This can happen if the
2940 display is disconnected after the frame has become official, but
2941 before x_create_frame removes the unwind protect. */
2942 if (!FRAME_LIVE_P (f
))
2945 /* If frame is ``official'', nothing to do. */
2946 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2949 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2952 x_free_frame_resources (f
);
2955 /* Check that reference counts are indeed correct. */
2956 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2957 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2967 x_default_font_parameter (struct frame
*f
, Lisp_Object parms
)
2969 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2970 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
2972 Lisp_Object font
= Qnil
;
2973 if (EQ (font_param
, Qunbound
))
2976 if (NILP (font_param
))
2978 /* System font should take precedendce over X resources. We suggest this
2979 regardless of font-use-system-font because .emacs may not have been
2981 const char *system_font
= xsettings_get_system_font ();
2984 char *name
= xstrdup (system_font
);
2985 font
= font_open_by_name (f
, name
);
2991 font
= !NILP (font_param
) ? font_param
2992 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
2994 if (! FONTP (font
) && ! STRINGP (font
))
2999 /* This will find the normal Xft font. */
3002 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
3003 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3004 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3005 /* This was formerly the first thing tried, but it finds
3006 too many fonts and takes too long. */
3007 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
3008 /* If those didn't work, look for something which will
3010 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
3015 for (i
= 0; names
[i
]; i
++)
3017 font
= font_open_by_name (f
, names
[i
]);
3022 error ("No suitable font was found");
3024 else if (!NILP (font_param
))
3026 /* Remember the explicit font parameter, so we can re-apply it after
3027 we've applied the `default' face settings. */
3028 x_set_frame_parameters (f
, Fcons (Fcons (Qfont_param
, font_param
), Qnil
));
3031 /* This call will make X resources override any system font setting. */
3032 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
3036 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
3038 doc
: /* Send the size hints for frame FRAME to the window manager.
3039 If FRAME is nil, use the selected frame. */)
3044 frame
= selected_frame
;
3048 x_wm_set_size_hint (f
, 0, 0);
3054 set_machine_and_pid_properties (struct frame
*f
)
3056 long pid
= (long) getpid ();
3058 /* This will set WM_CLIENT_MACHINE and WM_LOCALE_NAME. */
3059 XSetWMProperties (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), NULL
, NULL
,
3060 NULL
, 0, NULL
, NULL
, NULL
);
3061 XChangeProperty (FRAME_X_DISPLAY (f
),
3062 FRAME_OUTER_WINDOW (f
),
3063 XInternAtom (FRAME_X_DISPLAY (f
),
3066 XA_CARDINAL
, 32, PropModeReplace
,
3067 (unsigned char *) &pid
, 1);
3070 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3072 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3073 Return an Emacs frame object.
3074 PARMS is an alist of frame parameters.
3075 If the parameters specify that the frame should not have a minibuffer,
3076 and do not specify a specific minibuffer window to use,
3077 then `default-minibuffer-frame' must be a frame whose minibuffer can
3078 be shared by the new frame.
3080 This function is an internal primitive--use `make-frame' instead. */)
3084 Lisp_Object frame
, tem
;
3086 int minibuffer_only
= 0;
3087 long window_prompting
= 0;
3089 int count
= SPECPDL_INDEX ();
3090 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3091 Lisp_Object display
;
3092 struct x_display_info
*dpyinfo
= NULL
;
3096 parms
= Fcopy_alist (parms
);
3098 /* Use this general default value to start with
3099 until we know if this frame has a specified name. */
3100 Vx_resource_name
= Vinvocation_name
;
3102 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3103 if (EQ (display
, Qunbound
))
3104 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3105 if (EQ (display
, Qunbound
))
3107 dpyinfo
= check_x_display_info (display
);
3108 kb
= dpyinfo
->terminal
->kboard
;
3110 if (!dpyinfo
->terminal
->name
)
3111 error ("Terminal is not live, can't create new frames on it");
3113 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3115 && ! EQ (name
, Qunbound
)
3117 error ("Invalid frame name--not a string or nil");
3120 Vx_resource_name
= name
;
3122 /* See if parent window is specified. */
3123 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3124 if (EQ (parent
, Qunbound
))
3126 if (! NILP (parent
))
3127 CHECK_NUMBER (parent
);
3129 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3130 /* No need to protect DISPLAY because that's not used after passing
3131 it to make_frame_without_minibuffer. */
3133 GCPRO4 (parms
, parent
, name
, frame
);
3134 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3136 if (EQ (tem
, Qnone
) || NILP (tem
))
3137 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3138 else if (EQ (tem
, Qonly
))
3140 f
= make_minibuffer_frame ();
3141 minibuffer_only
= 1;
3143 else if (WINDOWP (tem
))
3144 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3148 XSETFRAME (frame
, f
);
3150 /* Note that X Windows does support scroll bars. */
3151 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3153 f
->terminal
= dpyinfo
->terminal
;
3154 f
->terminal
->reference_count
++;
3156 f
->output_method
= output_x_window
;
3157 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3158 memset (f
->output_data
.x
, 0, sizeof (struct x_output
));
3159 f
->output_data
.x
->icon_bitmap
= -1;
3160 FRAME_FONTSET (f
) = -1;
3161 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3162 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3163 #ifdef USE_TOOLKIT_SCROLL_BARS
3164 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3165 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3166 #endif /* USE_TOOLKIT_SCROLL_BARS */
3169 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3171 if (! STRINGP (f
->icon_name
))
3172 f
->icon_name
= Qnil
;
3174 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3176 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3177 record_unwind_protect (unwind_create_frame
, frame
);
3179 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
3180 dpyinfo_refcount
= dpyinfo
->reference_count
;
3181 #endif /* GLYPH_DEBUG */
3183 /* These colors will be set anyway later, but it's important
3184 to get the color reference counts right, so initialize them! */
3187 struct gcpro inner_gcpro1
;
3189 /* Function x_decode_color can signal an error. Make
3190 sure to initialize color slots so that we won't try
3191 to free colors we haven't allocated. */
3192 FRAME_FOREGROUND_PIXEL (f
) = -1;
3193 FRAME_BACKGROUND_PIXEL (f
) = -1;
3194 f
->output_data
.x
->cursor_pixel
= -1;
3195 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3196 f
->output_data
.x
->border_pixel
= -1;
3197 f
->output_data
.x
->mouse_pixel
= -1;
3199 black
= build_string ("black");
3200 GCPRO1_VAR (black
, inner_gcpro
);
3201 FRAME_FOREGROUND_PIXEL (f
)
3202 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3203 FRAME_BACKGROUND_PIXEL (f
)
3204 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3205 f
->output_data
.x
->cursor_pixel
3206 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3207 f
->output_data
.x
->cursor_foreground_pixel
3208 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3209 f
->output_data
.x
->border_pixel
3210 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3211 f
->output_data
.x
->mouse_pixel
3212 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3213 UNGCPRO_VAR (inner_gcpro
);
3216 /* Specify the parent under which to make this X window. */
3220 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3221 f
->output_data
.x
->explicit_parent
= 1;
3225 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3226 f
->output_data
.x
->explicit_parent
= 0;
3229 /* Set the name; the functions to which we pass f expect the name to
3231 if (EQ (name
, Qunbound
) || NILP (name
))
3233 f
->name
= build_string (dpyinfo
->x_id_name
);
3234 f
->explicit_name
= 0;
3239 f
->explicit_name
= 1;
3240 /* use the frame's title when getting resources for this frame. */
3241 specbind (Qx_resource_name
, name
);
3244 f
->resx
= dpyinfo
->resx
;
3245 f
->resy
= dpyinfo
->resy
;
3247 #ifdef HAVE_FREETYPE
3249 register_font_driver (&xftfont_driver
, f
);
3250 #else /* not HAVE_XFT */
3251 register_font_driver (&ftxfont_driver
, f
);
3252 #endif /* not HAVE_XFT */
3253 #endif /* HAVE_FREETYPE */
3254 register_font_driver (&xfont_driver
, f
);
3256 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3257 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3259 /* Extract the window parameters from the supplied values
3260 that are needed to determine window geometry. */
3261 x_default_font_parameter (f
, parms
);
3262 if (!FRAME_FONT (f
))
3264 delete_frame (frame
, Qnoelisp
);
3265 error ("Invalid frame font");
3268 /* Frame contents get displaced if an embedded X window has a border. */
3269 if (! FRAME_X_EMBEDDED_P (f
))
3270 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
3271 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3273 /* This defaults to 1 in order to match xterm. We recognize either
3274 internalBorderWidth or internalBorder (which is what xterm calls
3276 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3280 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3281 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3282 if (! EQ (value
, Qunbound
))
3283 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3286 x_default_parameter (f
, parms
, Qinternal_border_width
,
3287 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3292 "internalBorderWidth", "internalBorderWidth",
3294 x_default_parameter (f
, parms
, Qvertical_scroll_bars
,
3295 #if defined(USE_GTK) && defined(USE_TOOLKIT_SCROLL_BARS)
3300 "verticalScrollBars", "ScrollBars",
3303 /* Also do the stuff which must be set before the window exists. */
3304 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3305 "foreground", "Foreground", RES_TYPE_STRING
);
3306 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3307 "background", "Background", RES_TYPE_STRING
);
3308 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3309 "pointerColor", "Foreground", RES_TYPE_STRING
);
3310 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3311 "borderColor", "BorderColor", RES_TYPE_STRING
);
3312 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3313 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3314 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3315 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3316 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3317 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3318 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3319 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3321 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3322 "scrollBarForeground",
3323 "ScrollBarForeground", 1);
3324 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3325 "scrollBarBackground",
3326 "ScrollBarBackground", 0);
3328 /* Init faces before x_default_parameter is called for scroll-bar
3329 parameters because that function calls x_set_scroll_bar_width,
3330 which calls change_frame_size, which calls Fset_window_buffer,
3331 which runs hooks, which call Fvertical_motion. At the end, we
3332 end up in init_iterator with a null face cache, which should not
3334 init_frame_faces (f
);
3336 /* The X resources controlling the menu-bar and tool-bar are
3337 processed specially at startup, and reflected in the mode
3338 variables; ignore them here. */
3339 x_default_parameter (f
, parms
, Qmenu_bar_lines
,
3340 NILP (Vmenu_bar_mode
)
3341 ? make_number (0) : make_number (1),
3342 NULL
, NULL
, RES_TYPE_NUMBER
);
3343 x_default_parameter (f
, parms
, Qtool_bar_lines
,
3344 NILP (Vtool_bar_mode
)
3345 ? make_number (0) : make_number (1),
3346 NULL
, NULL
, RES_TYPE_NUMBER
);
3348 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3349 "bufferPredicate", "BufferPredicate",
3351 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3352 "title", "Title", RES_TYPE_STRING
);
3353 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3354 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3355 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3356 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3357 x_default_parameter (f
, parms
, Qtool_bar_position
,
3358 f
->tool_bar_position
, 0, 0, RES_TYPE_SYMBOL
);
3360 /* Compute the size of the X window. */
3361 window_prompting
= x_figure_window_size (f
, parms
, 1);
3363 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3364 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3366 x_icon_verify (f
, parms
);
3368 /* Create the X widget or window. */
3369 #ifdef USE_X_TOOLKIT
3370 x_window (f
, window_prompting
, minibuffer_only
);
3378 /* Now consider the frame official. */
3379 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3380 Vframe_list
= Fcons (frame
, Vframe_list
);
3382 /* We need to do this after creating the X window, so that the
3383 icon-creation functions can say whose icon they're describing. */
3384 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3385 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3387 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3388 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3389 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3390 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3391 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3392 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3393 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3394 "scrollBarWidth", "ScrollBarWidth",
3396 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3397 "alpha", "Alpha", RES_TYPE_NUMBER
);
3399 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3400 Change will not be effected unless different from the current
3402 width
= FRAME_COLS (f
);
3403 height
= FRAME_LINES (f
);
3405 SET_FRAME_COLS (f
, 0);
3406 FRAME_LINES (f
) = 0;
3407 change_frame_size (f
, height
, width
, 1, 0, 0);
3409 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3410 /* Create the menu bar. */
3411 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3413 /* If this signals an error, we haven't set size hints for the
3414 frame and we didn't make it visible. */
3415 initialize_frame_menubar (f
);
3418 /* This is a no-op, except under Motif where it arranges the
3419 main window for the widgets on it. */
3420 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3421 f
->output_data
.x
->menubar_widget
,
3422 f
->output_data
.x
->edit_widget
);
3423 #endif /* not USE_GTK */
3425 #endif /* USE_X_TOOLKIT || USE_GTK */
3427 /* Tell the server what size and position, etc, we want, and how
3428 badly we want them. This should be done after we have the menu
3429 bar so that its size can be taken into account. */
3431 x_wm_set_size_hint (f
, window_prompting
, 0);
3434 /* Make the window appear on the frame and enable display, unless
3435 the caller says not to. However, with explicit parent, Emacs
3436 cannot control visibility, so don't try. */
3437 if (! f
->output_data
.x
->explicit_parent
)
3439 Lisp_Object visibility
;
3441 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3443 if (EQ (visibility
, Qunbound
))
3446 if (EQ (visibility
, Qicon
))
3447 x_iconify_frame (f
);
3448 else if (! NILP (visibility
))
3449 x_make_frame_visible (f
);
3452 /* Must have been Qnil. */
3458 /* Set machine name and pid for the purpose of window managers. */
3459 set_machine_and_pid_properties(f
);
3461 /* Set the WM leader property. GTK does this itself, so this is not
3462 needed when using GTK. */
3463 if (dpyinfo
->client_leader_window
!= 0)
3465 XChangeProperty (FRAME_X_DISPLAY (f
),
3466 FRAME_OUTER_WINDOW (f
),
3467 dpyinfo
->Xatom_wm_client_leader
,
3468 XA_WINDOW
, 32, PropModeReplace
,
3469 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3474 /* Initialize `default-minibuffer-frame' in case this is the first
3475 frame on this terminal. */
3476 if (FRAME_HAS_MINIBUF_P (f
)
3477 && (!FRAMEP (KVAR (kb
, Vdefault_minibuffer_frame
))
3478 || !FRAME_LIVE_P (XFRAME (KVAR (kb
, Vdefault_minibuffer_frame
)))))
3479 KVAR (kb
, Vdefault_minibuffer_frame
) = frame
;
3481 /* All remaining specified parameters, which have not been "used"
3482 by x_get_arg and friends, now go in the misc. alist of the frame. */
3483 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3484 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3485 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3489 /* Make sure windows on this frame appear in calls to next-window
3490 and similar functions. */
3491 Vwindow_list
= Qnil
;
3493 return unbind_to (count
, frame
);
3497 /* FRAME is used only to get a handle on the X display. We don't pass the
3498 display info directly because we're called from frame.c, which doesn't
3499 know about that structure. */
3502 x_get_focus_frame (struct frame
*frame
)
3504 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3506 if (! dpyinfo
->x_focus_frame
)
3509 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3514 /* In certain situations, when the window manager follows a
3515 click-to-focus policy, there seems to be no way around calling
3516 XSetInputFocus to give another frame the input focus .
3518 In an ideal world, XSetInputFocus should generally be avoided so
3519 that applications don't interfere with the window manager's focus
3520 policy. But I think it's okay to use when it's clearly done
3521 following a user-command. */
3523 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3524 doc
: /* Set the input focus to FRAME.
3525 FRAME nil means use the selected frame. */)
3528 struct frame
*f
= check_x_frame (frame
);
3529 Display
*dpy
= FRAME_X_DISPLAY (f
);
3532 x_catch_errors (dpy
);
3533 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3534 RevertToParent
, CurrentTime
);
3535 x_ewmh_activate_frame (f
);
3536 x_uncatch_errors ();
3543 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3544 doc
: /* Internal function called by `color-defined-p', which see
3545 .\(Note that the Nextstep version of this function ignores FRAME.) */)
3546 (Lisp_Object color
, Lisp_Object frame
)
3549 FRAME_PTR f
= check_x_frame (frame
);
3551 CHECK_STRING (color
);
3553 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3559 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3560 doc
: /* Internal function called by `color-values', which see. */)
3561 (Lisp_Object color
, Lisp_Object frame
)
3564 FRAME_PTR f
= check_x_frame (frame
);
3566 CHECK_STRING (color
);
3568 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3569 return list3 (make_number (foo
.red
),
3570 make_number (foo
.green
),
3571 make_number (foo
.blue
));
3576 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3577 doc
: /* Internal function called by `display-color-p', which see. */)
3578 (Lisp_Object terminal
)
3580 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3582 if (dpyinfo
->n_planes
<= 2)
3585 switch (dpyinfo
->visual
->class)
3598 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3600 doc
: /* Return t if the X display supports shades of gray.
3601 Note that color displays do support shades of gray.
3602 The optional argument TERMINAL specifies which display to ask about.
3603 TERMINAL should be a terminal object, a frame or a display name (a string).
3604 If omitted or nil, that stands for the selected frame's display. */)
3605 (Lisp_Object terminal
)
3607 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3609 if (dpyinfo
->n_planes
<= 1)
3612 switch (dpyinfo
->visual
->class)
3627 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3629 doc
: /* Return the width in pixels of the X display TERMINAL.
3630 The optional argument TERMINAL specifies which display to ask about.
3631 TERMINAL should be a terminal object, a frame or a display name (a string).
3632 If omitted or nil, that stands for the selected frame's display. */)
3633 (Lisp_Object terminal
)
3635 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3637 return make_number (x_display_pixel_width (dpyinfo
));
3640 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3641 Sx_display_pixel_height
, 0, 1, 0,
3642 doc
: /* Return the height in pixels of the X display TERMINAL.
3643 The optional argument TERMINAL specifies which display to ask about.
3644 TERMINAL should be a terminal object, a frame or a display name (a string).
3645 If omitted or nil, that stands for the selected frame's display. */)
3646 (Lisp_Object terminal
)
3648 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3650 return make_number (x_display_pixel_height (dpyinfo
));
3653 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3655 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3656 The optional argument TERMINAL specifies which display to ask about.
3657 TERMINAL should be a terminal object, a frame or a display name (a string).
3658 If omitted or nil, that stands for the selected frame's display. */)
3659 (Lisp_Object terminal
)
3661 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3663 return make_number (dpyinfo
->n_planes
);
3666 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3668 doc
: /* Return the number of color cells of the X display TERMINAL.
3669 The optional argument TERMINAL specifies which display to ask about.
3670 TERMINAL should be a terminal object, a frame or a display name (a string).
3671 If omitted or nil, that stands for the selected frame's display. */)
3672 (Lisp_Object terminal
)
3674 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3676 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3677 XScreenNumberOfScreen (dpyinfo
->screen
));
3679 /* Truncate nr_planes to 24 to avoid integer overflow.
3680 Some displays says 32, but only 24 bits are actually significant.
3681 There are only very few and rare video cards that have more than
3682 24 significant bits. Also 24 bits is more than 16 million colors,
3683 it "should be enough for everyone". */
3684 if (nr_planes
> 24) nr_planes
= 24;
3686 return make_number (1 << nr_planes
);
3689 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3690 Sx_server_max_request_size
,
3692 doc
: /* Return the maximum request size of the X server of 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 (MAXREQUEST (dpyinfo
->display
));
3703 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3704 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3705 \(Labelling every distributor as a "vendor" embodies the false assumption
3706 that operating systems cannot be developed and distributed noncommercially.)
3707 The optional argument TERMINAL specifies which display to ask about.
3708 TERMINAL should be a terminal object, a frame or a display name (a string).
3709 If omitted or nil, that stands for the selected frame's display. */)
3710 (Lisp_Object terminal
)
3712 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3713 const char *vendor
= ServerVendor (dpyinfo
->display
);
3715 if (! vendor
) vendor
= "";
3716 return build_string (vendor
);
3719 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3720 doc
: /* Return the version numbers of the X server of display TERMINAL.
3721 The value is a list of three integers: the major and minor
3722 version numbers of the X Protocol in use, and the distributor-specific release
3723 number. See also the function `x-server-vendor'.
3725 The optional argument TERMINAL specifies which display to ask about.
3726 TERMINAL should be a terminal object, a frame or a display name (a string).
3727 If omitted or nil, that stands for the selected frame's display. */)
3728 (Lisp_Object terminal
)
3730 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3731 Display
*dpy
= dpyinfo
->display
;
3733 return Fcons (make_number (ProtocolVersion (dpy
)),
3734 Fcons (make_number (ProtocolRevision (dpy
)),
3735 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3738 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3739 doc
: /* Return the number of screens on the X server of display TERMINAL.
3740 The optional argument TERMINAL specifies which display to ask about.
3741 TERMINAL should be a terminal object, a frame or a display name (a string).
3742 If omitted or nil, that stands for the selected frame's display. */)
3743 (Lisp_Object terminal
)
3745 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3747 return make_number (ScreenCount (dpyinfo
->display
));
3750 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3751 doc
: /* Return the height in millimeters of the X display TERMINAL.
3752 The optional argument TERMINAL specifies which display to ask about.
3753 TERMINAL should be a terminal object, a frame or a display name (a string).
3754 If omitted or nil, that stands for the selected frame's display. */)
3755 (Lisp_Object terminal
)
3757 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3759 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3762 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3763 doc
: /* Return the width in millimeters of the X display TERMINAL.
3764 The optional argument TERMINAL specifies which display to ask about.
3765 TERMINAL should be a terminal object, a frame or a display name (a string).
3766 If omitted or nil, that stands for the selected frame's display. */)
3767 (Lisp_Object terminal
)
3769 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3771 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3774 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3775 Sx_display_backing_store
, 0, 1, 0,
3776 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3777 The value may be `always', `when-mapped', or `not-useful'.
3778 The optional argument TERMINAL specifies which display to ask about.
3779 TERMINAL should be a terminal object, a frame or a display name (a string).
3780 If omitted or nil, that stands for the selected frame's display. */)
3781 (Lisp_Object terminal
)
3783 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3786 switch (DoesBackingStore (dpyinfo
->screen
))
3789 result
= intern ("always");
3793 result
= intern ("when-mapped");
3797 result
= intern ("not-useful");
3801 error ("Strange value for BackingStore parameter of screen");
3808 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3809 Sx_display_visual_class
, 0, 1, 0,
3810 doc
: /* Return the visual class of the X display TERMINAL.
3811 The value is one of the symbols `static-gray', `gray-scale',
3812 `static-color', `pseudo-color', `true-color', or `direct-color'.
3814 The optional argument TERMINAL specifies which display to ask about.
3815 TERMINAL should a terminal object, a frame or a display name (a string).
3816 If omitted or nil, that stands for the selected frame's display. */)
3817 (Lisp_Object terminal
)
3819 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3822 switch (dpyinfo
->visual
->class)
3825 result
= intern ("static-gray");
3828 result
= intern ("gray-scale");
3831 result
= intern ("static-color");
3834 result
= intern ("pseudo-color");
3837 result
= intern ("true-color");
3840 result
= intern ("direct-color");
3843 error ("Display has an unknown visual class");
3850 DEFUN ("x-display-save-under", Fx_display_save_under
,
3851 Sx_display_save_under
, 0, 1, 0,
3852 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3853 The optional argument TERMINAL specifies which display to ask about.
3854 TERMINAL should be a terminal object, a frame or a display name (a string).
3855 If omitted or nil, that stands for the selected frame's display. */)
3856 (Lisp_Object terminal
)
3858 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3860 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3867 x_pixel_width (register struct frame
*f
)
3869 return FRAME_PIXEL_WIDTH (f
);
3873 x_pixel_height (register struct frame
*f
)
3875 return FRAME_PIXEL_HEIGHT (f
);
3879 x_char_width (register struct frame
*f
)
3881 return FRAME_COLUMN_WIDTH (f
);
3885 x_char_height (register struct frame
*f
)
3887 return FRAME_LINE_HEIGHT (f
);
3891 x_screen_planes (register struct frame
*f
)
3893 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3898 /************************************************************************
3900 ************************************************************************/
3903 /* Mapping visual names to visuals. */
3905 static struct visual_class
3912 {"StaticGray", StaticGray
},
3913 {"GrayScale", GrayScale
},
3914 {"StaticColor", StaticColor
},
3915 {"PseudoColor", PseudoColor
},
3916 {"TrueColor", TrueColor
},
3917 {"DirectColor", DirectColor
},
3922 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3924 /* Value is the screen number of screen SCR. This is a substitute for
3925 the X function with the same name when that doesn't exist. */
3928 XScreenNumberOfScreen (scr
)
3929 register Screen
*scr
;
3931 Display
*dpy
= scr
->display
;
3934 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3935 if (scr
== dpy
->screens
+ i
)
3941 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3944 /* Select the visual that should be used on display DPYINFO. Set
3945 members of DPYINFO appropriately. Called from x_term_init. */
3948 select_visual (struct x_display_info
*dpyinfo
)
3950 Display
*dpy
= dpyinfo
->display
;
3951 Screen
*screen
= dpyinfo
->screen
;
3954 /* See if a visual is specified. */
3955 value
= display_x_get_resource (dpyinfo
,
3956 build_string ("visualClass"),
3957 build_string ("VisualClass"),
3959 if (STRINGP (value
))
3961 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3962 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3963 depth, a decimal number. NAME is compared with case ignored. */
3964 char *s
= (char *) alloca (SBYTES (value
) + 1);
3969 strcpy (s
, SSDATA (value
));
3970 dash
= strchr (s
, '-');
3973 dpyinfo
->n_planes
= atoi (dash
+ 1);
3977 /* We won't find a matching visual with depth 0, so that
3978 an error will be printed below. */
3979 dpyinfo
->n_planes
= 0;
3981 /* Determine the visual class. */
3982 for (i
= 0; visual_classes
[i
].name
; ++i
)
3983 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
3985 class = visual_classes
[i
].class;
3989 /* Look up a matching visual for the specified class. */
3991 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
3992 dpyinfo
->n_planes
, class, &vinfo
))
3993 fatal ("Invalid visual specification `%s'", SDATA (value
));
3995 dpyinfo
->visual
= vinfo
.visual
;
4000 XVisualInfo
*vinfo
, vinfo_template
;
4002 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4004 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4005 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4006 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4007 &vinfo_template
, &n_visuals
);
4009 fatal ("Can't get proper X visual info");
4011 dpyinfo
->n_planes
= vinfo
->depth
;
4012 XFree ((char *) vinfo
);
4017 /* Return the X display structure for the display named NAME.
4018 Open a new connection if necessary. */
4020 struct x_display_info
*
4021 x_display_info_for_name (Lisp_Object name
)
4024 struct x_display_info
*dpyinfo
;
4026 CHECK_STRING (name
);
4029 if (! EQ (Vinitial_window_system
, intern ("x")))
4030 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4033 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4035 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4038 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4043 /* Use this general default value to start with. */
4044 Vx_resource_name
= Vinvocation_name
;
4046 validate_x_resource_name ();
4048 dpyinfo
= x_term_init (name
, (char *)0,
4049 SSDATA (Vx_resource_name
));
4052 error ("Cannot connect to X server %s", SDATA (name
));
4055 XSETFASTINT (Vwindow_system_version
, 11);
4061 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4063 doc
: /* Open a connection to a display server.
4064 DISPLAY is the name of the display to connect to.
4065 Optional second arg XRM-STRING is a string of resources in xrdb format.
4066 If the optional third arg MUST-SUCCEED is non-nil,
4067 terminate Emacs if we can't open the connection.
4068 \(In the Nextstep version, the last two arguments are currently ignored.) */)
4069 (Lisp_Object display
, Lisp_Object xrm_string
, Lisp_Object must_succeed
)
4072 struct x_display_info
*dpyinfo
;
4074 CHECK_STRING (display
);
4075 if (! NILP (xrm_string
))
4076 CHECK_STRING (xrm_string
);
4079 if (! EQ (Vinitial_window_system
, intern ("x")))
4080 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4083 if (! NILP (xrm_string
))
4084 xrm_option
= SSDATA (xrm_string
);
4086 xrm_option
= (char *) 0;
4088 validate_x_resource_name ();
4090 /* This is what opens the connection and sets x_current_display.
4091 This also initializes many symbols, such as those used for input. */
4092 dpyinfo
= x_term_init (display
, xrm_option
,
4093 SSDATA (Vx_resource_name
));
4097 if (!NILP (must_succeed
))
4098 fatal ("Cannot connect to X server %s.\n\
4099 Check the DISPLAY environment variable or use `-d'.\n\
4100 Also use the `xauth' program to verify that you have the proper\n\
4101 authorization information needed to connect the X server.\n\
4102 An insecure way to solve the problem may be to use `xhost'.\n",
4105 error ("Cannot connect to X server %s", SDATA (display
));
4110 XSETFASTINT (Vwindow_system_version
, 11);
4114 DEFUN ("x-close-connection", Fx_close_connection
,
4115 Sx_close_connection
, 1, 1, 0,
4116 doc
: /* Close the connection to TERMINAL's X server.
4117 For TERMINAL, specify a terminal object, a frame or a display name (a
4118 string). If TERMINAL is nil, that stands for the selected frame's
4120 (Lisp_Object terminal
)
4122 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4124 if (dpyinfo
->reference_count
> 0)
4125 error ("Display still has frames on it");
4127 x_delete_terminal (dpyinfo
->terminal
);
4132 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4133 doc
: /* Return the list of display names that Emacs has connections to. */)
4136 Lisp_Object tail
, result
;
4139 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4140 result
= Fcons (XCAR (XCAR (tail
)), result
);
4145 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4146 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4147 This function only has an effect on X Windows. With MS Windows, it is
4148 defined but does nothing.
4150 If ON is nil, allow buffering of requests.
4151 Turning on synchronization prohibits the Xlib routines from buffering
4152 requests and seriously degrades performance, but makes debugging much
4154 The optional second argument TERMINAL specifies which display to act on.
4155 TERMINAL should be a terminal object, a frame or a display name (a string).
4156 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4157 (Lisp_Object on
, Lisp_Object terminal
)
4159 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4161 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4166 /* Wait for responses to all X commands issued so far for frame F. */
4169 x_sync (FRAME_PTR f
)
4172 XSync (FRAME_X_DISPLAY (f
), False
);
4177 /***********************************************************************
4179 ***********************************************************************/
4181 DEFUN ("x-change-window-property", Fx_change_window_property
,
4182 Sx_change_window_property
, 2, 6, 0,
4183 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4184 PROP must be a string. VALUE may be a string or a list of conses,
4185 numbers and/or strings. If an element in the list is a string, it is
4186 converted to an atom and the value of the atom is used. If an element
4187 is a cons, it is converted to a 32 bit number where the car is the 16
4188 top bits and the cdr is the lower 16 bits.
4190 FRAME nil or omitted means use the selected frame.
4191 If TYPE is given and non-nil, it is the name of the type of VALUE.
4192 If TYPE is not given or nil, the type is STRING.
4193 FORMAT gives the size in bits of each element if VALUE is a list.
4194 It must be one of 8, 16 or 32.
4195 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4196 If OUTER_P is non-nil, the property is changed for the outer X window of
4197 FRAME. Default is to change on the edit X window. */)
4198 (Lisp_Object prop
, Lisp_Object value
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4200 struct frame
*f
= check_x_frame (frame
);
4202 Atom target_type
= XA_STRING
;
4203 int element_format
= 8;
4204 unsigned char *data
;
4208 CHECK_STRING (prop
);
4210 if (! NILP (format
))
4212 CHECK_NUMBER (format
);
4213 element_format
= XFASTINT (format
);
4215 if (element_format
!= 8 && element_format
!= 16
4216 && element_format
!= 32)
4217 error ("FORMAT must be one of 8, 16 or 32");
4222 nelements
= x_check_property_data (value
);
4223 if (nelements
== -1)
4224 error ("Bad data in VALUE, must be number, string or cons");
4226 if (element_format
== 8)
4227 data
= (unsigned char *) xmalloc (nelements
);
4228 else if (element_format
== 16)
4229 data
= (unsigned char *) xmalloc (nelements
*2);
4230 else /* format == 32 */
4231 /* The man page for XChangeProperty:
4232 "If the specified format is 32, the property data must be a
4234 This applies even if long is more than 64 bits. The X library
4235 converts to 32 bits before sending to the X server. */
4236 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4238 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4242 CHECK_STRING (value
);
4243 data
= SDATA (value
);
4244 nelements
= SCHARS (value
);
4248 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4251 CHECK_STRING (type
);
4252 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4255 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4256 else w
= FRAME_X_WINDOW (f
);
4258 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4259 prop_atom
, target_type
, element_format
, PropModeReplace
,
4262 if (CONSP (value
)) xfree (data
);
4264 /* Make sure the property is set when we return. */
4265 XFlush (FRAME_X_DISPLAY (f
));
4272 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4273 Sx_delete_window_property
, 1, 2, 0,
4274 doc
: /* Remove window property PROP from X window of FRAME.
4275 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4276 (Lisp_Object prop
, Lisp_Object frame
)
4278 struct frame
*f
= check_x_frame (frame
);
4281 CHECK_STRING (prop
);
4283 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4284 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4286 /* Make sure the property is removed when we return. */
4287 XFlush (FRAME_X_DISPLAY (f
));
4294 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4296 doc
: /* Value is the value of window property PROP on FRAME.
4297 If FRAME is nil or omitted, use the selected frame.
4299 On MS Windows, this function only accepts the PROP and FRAME arguments.
4301 On X Windows, the following optional arguments are also accepted:
4302 If TYPE is nil or omitted, get the property as a string.
4303 Otherwise TYPE is the name of the atom that denotes the type expected.
4304 If SOURCE is non-nil, get the property on that window instead of from
4305 FRAME. The number 0 denotes the root window.
4306 If DELETE_P is non-nil, delete the property after retreiving it.
4307 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4309 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4310 no value of TYPE (always string in the MS Windows case). */)
4311 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4313 struct frame
*f
= check_x_frame (frame
);
4316 Lisp_Object prop_value
= Qnil
;
4317 unsigned char *tmp_data
= NULL
;
4319 Atom target_type
= XA_STRING
;
4321 unsigned long actual_size
, bytes_remaining
;
4322 Window target_window
= FRAME_X_WINDOW (f
);
4323 struct gcpro gcpro1
;
4325 GCPRO1 (prop_value
);
4326 CHECK_STRING (prop
);
4328 if (! NILP (source
))
4330 if (NUMBERP (source
))
4332 if (FLOATP (source
))
4333 target_window
= (Window
) XFLOAT (source
);
4335 target_window
= XFASTINT (source
);
4337 if (target_window
== 0)
4338 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4340 else if (CONSP (source
))
4341 target_window
= cons_to_long (source
);
4347 if (strcmp ("AnyPropertyType", SSDATA (type
)) == 0)
4348 target_type
= AnyPropertyType
;
4350 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4353 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4354 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4355 prop_atom
, 0, 0, False
, target_type
,
4356 &actual_type
, &actual_format
, &actual_size
,
4357 &bytes_remaining
, &tmp_data
);
4360 int size
= bytes_remaining
;
4365 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4366 prop_atom
, 0, bytes_remaining
,
4367 ! NILP (delete_p
), target_type
,
4368 &actual_type
, &actual_format
,
4369 &actual_size
, &bytes_remaining
,
4371 if (rc
== Success
&& tmp_data
)
4373 /* The man page for XGetWindowProperty says:
4374 "If the returned format is 32, the returned data is represented
4375 as a long array and should be cast to that type to obtain the
4377 This applies even if long is more than 32 bits, the X library
4378 converts from 32 bit elements received from the X server to long
4379 and passes the long array to us. Thus, for that case memcpy can not
4380 be used. We convert to a 32 bit type here, because so much code
4383 The bytes and offsets passed to XGetWindowProperty refers to the
4384 property and those are indeed in 32 bit quantities if format is
4387 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4390 int *idata
= (int *) tmp_data
;
4391 long *ldata
= (long *) tmp_data
;
4393 for (i
= 0; i
< actual_size
; ++i
)
4394 idata
[i
] = (int) ldata
[i
];
4397 if (NILP (vector_ret_p
))
4398 prop_value
= make_string ((char *) tmp_data
, size
);
4400 prop_value
= x_property_data_to_lisp (f
,
4407 if (tmp_data
) XFree (tmp_data
);
4417 /***********************************************************************
4419 ***********************************************************************/
4421 /* Timer function of hourglass_atimer. TIMER is equal to
4424 Display an hourglass pointer on all frames by mapping the frames'
4425 hourglass_window. Set the hourglass_p flag in the frames'
4426 output_data.x structure to indicate that an hourglass cursor is
4427 shown on the frames. */
4430 show_hourglass (struct atimer
*timer
)
4432 /* The timer implementation will cancel this timer automatically
4433 after this function has run. Set hourglass_atimer to null
4434 so that we know the timer doesn't have to be canceled. */
4435 hourglass_atimer
= NULL
;
4437 if (!hourglass_shown_p
)
4439 Lisp_Object rest
, frame
;
4443 FOR_EACH_FRAME (rest
, frame
)
4445 struct frame
*f
= XFRAME (frame
);
4447 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4449 Display
*dpy
= FRAME_X_DISPLAY (f
);
4451 #ifdef USE_X_TOOLKIT
4452 if (f
->output_data
.x
->widget
)
4454 if (FRAME_OUTER_WINDOW (f
))
4457 f
->output_data
.x
->hourglass_p
= 1;
4459 if (!f
->output_data
.x
->hourglass_window
)
4461 unsigned long mask
= CWCursor
;
4462 XSetWindowAttributes attrs
;
4464 Window parent
= FRAME_X_WINDOW (f
);
4466 Window parent
= FRAME_OUTER_WINDOW (f
);
4468 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4470 f
->output_data
.x
->hourglass_window
4471 = XCreateWindow (dpy
, parent
,
4472 0, 0, 32000, 32000, 0, 0,
4478 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4484 hourglass_shown_p
= 1;
4490 /* Hide the hourglass pointer on all frames, if it is currently
4494 hide_hourglass (void)
4496 if (hourglass_shown_p
)
4498 Lisp_Object rest
, frame
;
4501 FOR_EACH_FRAME (rest
, frame
)
4503 struct frame
*f
= XFRAME (frame
);
4506 /* Watch out for newly created frames. */
4507 && f
->output_data
.x
->hourglass_window
)
4509 XUnmapWindow (FRAME_X_DISPLAY (f
),
4510 f
->output_data
.x
->hourglass_window
);
4511 /* Sync here because XTread_socket looks at the
4512 hourglass_p flag that is reset to zero below. */
4513 XSync (FRAME_X_DISPLAY (f
), False
);
4514 f
->output_data
.x
->hourglass_p
= 0;
4518 hourglass_shown_p
= 0;
4525 /***********************************************************************
4527 ***********************************************************************/
4529 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4530 Lisp_Object
, Lisp_Object
);
4531 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4532 Lisp_Object
, int, int, int *, int *);
4534 /* The frame of a currently visible tooltip. */
4536 Lisp_Object tip_frame
;
4538 /* If non-nil, a timer started that hides the last tooltip when it
4541 Lisp_Object tip_timer
;
4544 /* If non-nil, a vector of 3 elements containing the last args
4545 with which x-show-tip was called. See there. */
4547 Lisp_Object last_show_tip_args
;
4551 unwind_create_tip_frame (Lisp_Object frame
)
4553 Lisp_Object deleted
;
4555 deleted
= unwind_create_frame (frame
);
4556 if (EQ (deleted
, Qt
))
4566 /* Create a frame for a tooltip on the display described by DPYINFO.
4567 PARMS is a list of frame parameters. TEXT is the string to
4568 display in the tip frame. Value is the frame.
4570 Note that functions called here, esp. x_default_parameter can
4571 signal errors, for instance when a specified color name is
4572 undefined. We have to make sure that we're in a consistent state
4573 when this happens. */
4576 x_create_tip_frame (struct x_display_info
*dpyinfo
,
4584 int count
= SPECPDL_INDEX ();
4585 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4586 int face_change_count_before
= face_change_count
;
4588 struct buffer
*old_buffer
;
4592 if (!dpyinfo
->terminal
->name
)
4593 error ("Terminal is not live, can't create new frames on it");
4595 parms
= Fcopy_alist (parms
);
4597 /* Get the name of the frame to use for resource lookup. */
4598 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4600 && !EQ (name
, Qunbound
)
4602 error ("Invalid frame name--not a string or nil");
4605 GCPRO3 (parms
, name
, frame
);
4607 XSETFRAME (frame
, f
);
4609 buffer
= Fget_buffer_create (build_string (" *tip*"));
4610 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4611 old_buffer
= current_buffer
;
4612 set_buffer_internal_1 (XBUFFER (buffer
));
4613 BVAR (current_buffer
, truncate_lines
) = Qnil
;
4614 specbind (Qinhibit_read_only
, Qt
);
4615 specbind (Qinhibit_modification_hooks
, Qt
);
4618 set_buffer_internal_1 (old_buffer
);
4620 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4621 record_unwind_protect (unwind_create_tip_frame
, frame
);
4623 f
->terminal
= dpyinfo
->terminal
;
4624 f
->terminal
->reference_count
++;
4626 /* By setting the output method, we're essentially saying that
4627 the frame is live, as per FRAME_LIVE_P. If we get a signal
4628 from this point on, x_destroy_window might screw up reference
4630 f
->output_method
= output_x_window
;
4631 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4632 memset (f
->output_data
.x
, 0, sizeof (struct x_output
));
4633 f
->output_data
.x
->icon_bitmap
= -1;
4634 FRAME_FONTSET (f
) = -1;
4635 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4636 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4637 #ifdef USE_TOOLKIT_SCROLL_BARS
4638 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4639 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4640 #endif /* USE_TOOLKIT_SCROLL_BARS */
4641 f
->icon_name
= Qnil
;
4642 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4644 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
4645 dpyinfo_refcount
= dpyinfo
->reference_count
;
4646 #endif /* GLYPH_DEBUG */
4647 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4648 f
->output_data
.x
->explicit_parent
= 0;
4650 /* These colors will be set anyway later, but it's important
4651 to get the color reference counts right, so initialize them! */
4654 struct gcpro inner_gcpro1
;
4656 /* Function x_decode_color can signal an error. Make
4657 sure to initialize color slots so that we won't try
4658 to free colors we haven't allocated. */
4659 FRAME_FOREGROUND_PIXEL (f
) = -1;
4660 FRAME_BACKGROUND_PIXEL (f
) = -1;
4661 f
->output_data
.x
->cursor_pixel
= -1;
4662 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4663 f
->output_data
.x
->border_pixel
= -1;
4664 f
->output_data
.x
->mouse_pixel
= -1;
4666 black
= build_string ("black");
4667 GCPRO1_VAR (black
, inner_gcpro
);
4668 FRAME_FOREGROUND_PIXEL (f
)
4669 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4670 FRAME_BACKGROUND_PIXEL (f
)
4671 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4672 f
->output_data
.x
->cursor_pixel
4673 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4674 f
->output_data
.x
->cursor_foreground_pixel
4675 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4676 f
->output_data
.x
->border_pixel
4677 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4678 f
->output_data
.x
->mouse_pixel
4679 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4680 UNGCPRO_VAR (inner_gcpro
);
4683 /* Set the name; the functions to which we pass f expect the name to
4685 if (EQ (name
, Qunbound
) || NILP (name
))
4687 f
->name
= build_string (dpyinfo
->x_id_name
);
4688 f
->explicit_name
= 0;
4693 f
->explicit_name
= 1;
4694 /* use the frame's title when getting resources for this frame. */
4695 specbind (Qx_resource_name
, name
);
4698 f
->resx
= dpyinfo
->resx
;
4699 f
->resy
= dpyinfo
->resy
;
4701 register_font_driver (&xfont_driver
, f
);
4702 #ifdef HAVE_FREETYPE
4704 register_font_driver (&xftfont_driver
, f
);
4705 #else /* not HAVE_XFT */
4706 register_font_driver (&ftxfont_driver
, f
);
4707 #endif /* not HAVE_XFT */
4708 #endif /* HAVE_FREETYPE */
4710 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4711 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4713 /* Extract the window parameters from the supplied values that are
4714 needed to determine window geometry. */
4715 x_default_font_parameter (f
, parms
);
4717 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
4718 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4720 /* This defaults to 2 in order to match xterm. We recognize either
4721 internalBorderWidth or internalBorder (which is what xterm calls
4723 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4727 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4728 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4729 if (! EQ (value
, Qunbound
))
4730 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4734 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4735 "internalBorderWidth", "internalBorderWidth",
4738 /* Also do the stuff which must be set before the window exists. */
4739 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4740 "foreground", "Foreground", RES_TYPE_STRING
);
4741 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4742 "background", "Background", RES_TYPE_STRING
);
4743 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4744 "pointerColor", "Foreground", RES_TYPE_STRING
);
4745 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4746 "cursorColor", "Foreground", RES_TYPE_STRING
);
4747 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4748 "borderColor", "BorderColor", RES_TYPE_STRING
);
4750 /* Init faces before x_default_parameter is called for scroll-bar
4751 parameters because that function calls x_set_scroll_bar_width,
4752 which calls change_frame_size, which calls Fset_window_buffer,
4753 which runs hooks, which call Fvertical_motion. At the end, we
4754 end up in init_iterator with a null face cache, which should not
4756 init_frame_faces (f
);
4758 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4760 x_figure_window_size (f
, parms
, 0);
4763 XSetWindowAttributes attrs
;
4765 Atom type
= FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
4768 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4769 if (DoesSaveUnders (dpyinfo
->screen
))
4770 mask
|= CWSaveUnder
;
4772 /* Window managers look at the override-redirect flag to determine
4773 whether or net to give windows a decoration (Xlib spec, chapter
4775 attrs
.override_redirect
= True
;
4776 attrs
.save_under
= True
;
4777 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4778 /* Arrange for getting MapNotify and UnmapNotify events. */
4779 attrs
.event_mask
= StructureNotifyMask
;
4781 = FRAME_X_WINDOW (f
)
4782 = XCreateWindow (FRAME_X_DISPLAY (f
),
4783 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4784 /* x, y, width, height */
4788 CopyFromParent
, InputOutput
, CopyFromParent
,
4790 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
4791 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type
,
4792 XA_ATOM
, 32, PropModeReplace
,
4793 (unsigned char *)&type
, 1);
4799 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4800 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4801 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4802 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4803 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4804 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4806 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4807 Change will not be effected unless different from the current
4809 width
= FRAME_COLS (f
);
4810 height
= FRAME_LINES (f
);
4811 SET_FRAME_COLS (f
, 0);
4812 FRAME_LINES (f
) = 0;
4813 change_frame_size (f
, height
, width
, 1, 0, 0);
4815 /* Add `tooltip' frame parameter's default value. */
4816 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
4817 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qtooltip
, Qt
), Qnil
));
4819 /* FIXME - can this be done in a similar way to normal frames?
4820 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
4822 /* Set the `display-type' frame parameter before setting up faces. */
4824 Lisp_Object disptype
;
4826 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4827 disptype
= intern ("mono");
4828 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
4829 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4830 disptype
= intern ("grayscale");
4832 disptype
= intern ("color");
4834 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4835 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4839 /* Set up faces after all frame parameters are known. This call
4840 also merges in face attributes specified for new frames.
4842 Frame parameters may be changed if .Xdefaults contains
4843 specifications for the default font. For example, if there is an
4844 `Emacs.default.attributeBackground: pink', the `background-color'
4845 attribute of the frame get's set, which let's the internal border
4846 of the tooltip frame appear in pink. Prevent this. */
4848 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4850 /* Set tip_frame here, so that */
4852 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
4854 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4855 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4863 /* It is now ok to make the frame official even if we get an error
4864 below. And the frame needs to be on Vframe_list or making it
4865 visible won't work. */
4866 Vframe_list
= Fcons (frame
, Vframe_list
);
4868 /* Now that the frame is official, it counts as a reference to
4870 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4872 /* Setting attributes of faces of the tooltip frame from resources
4873 and similar will increment face_change_count, which leads to the
4874 clearing of all current matrices. Since this isn't necessary
4875 here, avoid it by resetting face_change_count to the value it
4876 had before we created the tip frame. */
4877 face_change_count
= face_change_count_before
;
4879 /* Discard the unwind_protect. */
4880 return unbind_to (count
, frame
);
4884 /* Compute where to display tip frame F. PARMS is the list of frame
4885 parameters for F. DX and DY are specified offsets from the current
4886 location of the mouse. WIDTH and HEIGHT are the width and height
4887 of the tooltip. Return coordinates relative to the root window of
4888 the display in *ROOT_X, and *ROOT_Y. */
4891 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
)
4893 Lisp_Object left
, top
;
4898 /* User-specified position? */
4899 left
= Fcdr (Fassq (Qleft
, parms
));
4900 top
= Fcdr (Fassq (Qtop
, parms
));
4902 /* Move the tooltip window where the mouse pointer is. Resize and
4904 if (!INTEGERP (left
) || !INTEGERP (top
))
4907 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4908 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4913 *root_y
= XINT (top
);
4914 else if (*root_y
+ XINT (dy
) <= 0)
4915 *root_y
= 0; /* Can happen for negative dy */
4916 else if (*root_y
+ XINT (dy
) + height
4917 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
4918 /* It fits below the pointer */
4919 *root_y
+= XINT (dy
);
4920 else if (height
+ XINT (dy
) <= *root_y
)
4921 /* It fits above the pointer. */
4922 *root_y
-= height
+ XINT (dy
);
4924 /* Put it on the top. */
4927 if (INTEGERP (left
))
4928 *root_x
= XINT (left
);
4929 else if (*root_x
+ XINT (dx
) <= 0)
4930 *root_x
= 0; /* Can happen for negative dx */
4931 else if (*root_x
+ XINT (dx
) + width
4932 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
4933 /* It fits to the right of the pointer. */
4934 *root_x
+= XINT (dx
);
4935 else if (width
+ XINT (dx
) <= *root_x
)
4936 /* It fits to the left of the pointer. */
4937 *root_x
-= width
+ XINT (dx
);
4939 /* Put it left-justified on the screen--it ought to fit that way. */
4944 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4945 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4946 A tooltip window is a small X window displaying a string.
4948 This is an internal function; Lisp code should call `tooltip-show'.
4950 FRAME nil or omitted means use the selected frame.
4952 PARMS is an optional list of frame parameters which can be used to
4953 change the tooltip's appearance.
4955 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4956 means use the default timeout of 5 seconds.
4958 If the list of frame parameters PARMS contains a `left' parameters,
4959 the tooltip is displayed at that x-position. Otherwise it is
4960 displayed at the mouse position, with offset DX added (default is 5 if
4961 DX isn't specified). Likewise for the y-position; if a `top' frame
4962 parameter is specified, it determines the y-position of the tooltip
4963 window, otherwise it is displayed at the mouse position, with offset
4964 DY added (default is -10).
4966 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4967 Text larger than the specified size is clipped. */)
4968 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
4973 struct buffer
*old_buffer
;
4974 struct text_pos pos
;
4975 int i
, width
, height
, seen_reversed_p
;
4976 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
4977 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
4978 int count
= SPECPDL_INDEX ();
4980 specbind (Qinhibit_redisplay
, Qt
);
4982 GCPRO4 (string
, parms
, frame
, timeout
);
4984 CHECK_STRING (string
);
4985 if (SCHARS (string
) == 0)
4986 string
= make_unibyte_string (" ", 1);
4988 f
= check_x_frame (frame
);
4990 timeout
= make_number (5);
4992 CHECK_NATNUM (timeout
);
4995 dx
= make_number (5);
5000 dy
= make_number (-10);
5005 if (x_gtk_use_system_tooltips
)
5009 /* Hide a previous tip, if any. */
5013 if ((ok
= xg_prepare_tooltip (f
, string
, &width
, &height
)) != 0)
5015 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5016 xg_show_tooltip (f
, root_x
, root_y
);
5017 /* This is used in Fx_hide_tip. */
5018 XSETFRAME (tip_frame
, f
);
5021 if (ok
) goto start_timer
;
5023 #endif /* USE_GTK */
5025 if (NILP (last_show_tip_args
))
5026 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5028 if (!NILP (tip_frame
))
5030 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5031 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5032 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5034 if (EQ (frame
, last_frame
)
5035 && !NILP (Fequal (last_string
, string
))
5036 && !NILP (Fequal (last_parms
, parms
)))
5038 struct frame
*tip_f
= XFRAME (tip_frame
);
5040 /* Only DX and DY have changed. */
5041 if (!NILP (tip_timer
))
5043 Lisp_Object timer
= tip_timer
;
5045 call1 (Qcancel_timer
, timer
);
5049 compute_tip_xy (tip_f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (tip_f
),
5050 FRAME_PIXEL_HEIGHT (tip_f
), &root_x
, &root_y
);
5051 XMoveWindow (FRAME_X_DISPLAY (tip_f
), FRAME_X_WINDOW (tip_f
),
5058 /* Hide a previous tip, if any. */
5061 ASET (last_show_tip_args
, 0, string
);
5062 ASET (last_show_tip_args
, 1, frame
);
5063 ASET (last_show_tip_args
, 2, parms
);
5065 /* Add default values to frame parameters. */
5066 if (NILP (Fassq (Qname
, parms
)))
5067 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5068 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5069 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5070 if (NILP (Fassq (Qborder_width
, parms
)))
5071 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5072 if (NILP (Fassq (Qborder_color
, parms
)))
5073 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5074 if (NILP (Fassq (Qbackground_color
, parms
)))
5075 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5078 /* Create a frame for the tooltip, and record it in the global
5079 variable tip_frame. */
5080 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5083 /* Set up the frame's root window. */
5084 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5085 w
->left_col
= w
->top_line
= make_number (0);
5087 if (CONSP (Vx_max_tooltip_size
)
5088 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5089 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5090 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5091 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5093 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5094 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5098 w
->total_cols
= make_number (80);
5099 w
->total_lines
= make_number (40);
5102 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5104 w
->pseudo_window_p
= 1;
5106 /* Display the tooltip text in a temporary buffer. */
5107 old_buffer
= current_buffer
;
5108 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5109 BVAR (current_buffer
, truncate_lines
) = Qnil
;
5110 clear_glyph_matrix (w
->desired_matrix
);
5111 clear_glyph_matrix (w
->current_matrix
);
5112 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5113 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5115 /* Compute width and height of the tooltip. */
5116 width
= height
= seen_reversed_p
= 0;
5117 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5119 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5123 /* Stop at the first empty row at the end. */
5124 if (!row
->enabled_p
|| !row
->displays_text_p
)
5127 /* Let the row go over the full width of the frame. */
5128 row
->full_width_p
= 1;
5130 row_width
= row
->pixel_width
;
5131 if (row
->used
[TEXT_AREA
])
5133 /* There's a glyph at the end of rows that is used to place
5134 the cursor there. Don't include the width of this glyph. */
5135 if (!row
->reversed_p
)
5137 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5138 if (INTEGERP (last
->object
))
5139 row_width
-= last
->pixel_width
;
5143 /* There could be a stretch glyph at the beginning of R2L
5144 rows that is produced by extend_face_to_end_of_line.
5145 Don't count that glyph. */
5146 struct glyph
*g
= row
->glyphs
[TEXT_AREA
];
5148 if (g
->type
== STRETCH_GLYPH
&& INTEGERP (g
->object
))
5150 row_width
-= g
->pixel_width
;
5151 seen_reversed_p
= 1;
5156 height
+= row
->height
;
5157 width
= max (width
, row_width
);
5160 /* If we've seen partial-length R2L rows, we need to re-adjust the
5161 tool-tip frame width and redisplay it again, to avoid over-wide
5162 tips due to the stretch glyph that extends R2L lines to full
5163 width of the frame. */
5164 if (seen_reversed_p
)
5166 /* w->total_cols and FRAME_TOTAL_COLS want the width in columns,
5168 width
/= WINDOW_FRAME_COLUMN_WIDTH (w
);
5169 w
->total_cols
= make_number (width
);
5170 FRAME_TOTAL_COLS (f
) = width
;
5172 clear_glyph_matrix (w
->desired_matrix
);
5173 clear_glyph_matrix (w
->current_matrix
);
5174 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5176 /* Recompute width and height of the tooltip. */
5177 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5179 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5183 if (!row
->enabled_p
|| !row
->displays_text_p
)
5185 row
->full_width_p
= 1;
5186 row_width
= row
->pixel_width
;
5187 if (row
->used
[TEXT_AREA
] && !row
->reversed_p
)
5189 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5190 if (INTEGERP (last
->object
))
5191 row_width
-= last
->pixel_width
;
5194 height
+= row
->height
;
5195 width
= max (width
, row_width
);
5199 /* Add the frame's internal border to the width and height the X
5200 window should have. */
5201 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5202 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5204 /* Move the tooltip window where the mouse pointer is. Resize and
5206 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5209 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5210 root_x
, root_y
, width
, height
);
5211 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5214 /* Draw into the window. */
5215 w
->must_be_updated_p
= 1;
5216 update_single_window (w
, 1);
5218 /* Restore original current buffer. */
5219 set_buffer_internal_1 (old_buffer
);
5220 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5223 /* Let the tip disappear after timeout seconds. */
5224 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5225 intern ("x-hide-tip"));
5228 return unbind_to (count
, Qnil
);
5232 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5233 doc
: /* Hide the current tooltip window, if there is any.
5234 Value is t if tooltip was open, nil otherwise. */)
5238 Lisp_Object deleted
, frame
, timer
;
5239 struct gcpro gcpro1
, gcpro2
;
5242 /* Return quickly if nothing to do. */
5243 if (NILP (tip_timer
) && NILP (tip_frame
))
5248 GCPRO2 (frame
, timer
);
5249 tip_frame
= tip_timer
= deleted
= Qnil
;
5251 count
= SPECPDL_INDEX ();
5252 specbind (Qinhibit_redisplay
, Qt
);
5253 specbind (Qinhibit_quit
, Qt
);
5256 call1 (Qcancel_timer
, timer
);
5259 /* When using system tooltip, tip_frame is the Emacs frame on which
5260 the tip is shown. */
5262 if (FRAME_LIVE_P (f
) && xg_hide_tooltip (f
))
5268 delete_frame (frame
, Qnil
);
5272 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5273 redisplay procedure is not called when a tip frame over menu
5274 items is unmapped. Redisplay the menu manually... */
5277 f
= SELECTED_FRAME ();
5278 w
= f
->output_data
.x
->menubar_widget
;
5280 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5284 xlwmenu_redisplay (w
);
5288 #endif /* USE_LUCID */
5292 return unbind_to (count
, deleted
);
5297 /***********************************************************************
5298 File selection dialog
5299 ***********************************************************************/
5301 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5302 Sx_uses_old_gtk_dialog
,
5304 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5311 && xg_uses_old_file_dialog ())
5319 /* Callback for "OK" and "Cancel" on file selection dialog. */
5322 file_dialog_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5324 int *result
= (int *) client_data
;
5325 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5326 *result
= cb
->reason
;
5330 /* Callback for unmapping a file selection dialog. This is used to
5331 capture the case where a dialog is closed via a window manager's
5332 closer button, for example. Using a XmNdestroyCallback didn't work
5336 file_dialog_unmap_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5338 int *result
= (int *) client_data
;
5339 *result
= XmCR_CANCEL
;
5343 clean_up_file_dialog (Lisp_Object arg
)
5345 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5346 Widget dialog
= (Widget
) p
->pointer
;
5350 XtUnmanageChild (dialog
);
5351 XtDestroyWidget (dialog
);
5352 x_menu_set_in_use (0);
5359 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5360 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5361 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5362 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5363 or directory must exist.
5365 This function is only defined on MS Windows, and X Windows with the
5366 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5367 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5368 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5371 struct frame
*f
= SELECTED_FRAME ();
5372 Lisp_Object file
= Qnil
;
5373 Lisp_Object decoded_file
;
5374 Widget dialog
, text
, help
;
5377 XmString dir_xmstring
, pattern_xmstring
;
5378 int count
= SPECPDL_INDEX ();
5379 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5383 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5385 if (popup_activated ())
5386 error ("Trying to use a menu from within a menu-entry");
5388 CHECK_STRING (prompt
);
5391 /* Prevent redisplay. */
5392 specbind (Qinhibit_redisplay
, Qt
);
5396 /* Create the dialog with PROMPT as title, using DIR as initial
5397 directory and using "*" as pattern. */
5398 dir
= Fexpand_file_name (dir
, Qnil
);
5399 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5400 pattern_xmstring
= XmStringCreateLocalized ("*");
5402 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5403 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5404 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5405 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5406 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5407 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5409 XmStringFree (dir_xmstring
);
5410 XmStringFree (pattern_xmstring
);
5412 /* Add callbacks for OK and Cancel. */
5413 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5414 (XtPointer
) &result
);
5415 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5416 (XtPointer
) &result
);
5417 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5418 (XtPointer
) &result
);
5420 /* Remove the help button since we can't display help. */
5421 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5422 XtUnmanageChild (help
);
5424 /* Mark OK button as default. */
5425 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5426 XmNshowAsDefault
, True
, NULL
);
5428 /* If MUSTMATCH is non-nil, disable the file entry field of the
5429 dialog, so that the user must select a file from the files list
5430 box. We can't remove it because we wouldn't have a way to get at
5431 the result file name, then. */
5432 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5433 if (!NILP (mustmatch
))
5436 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5437 XtSetSensitive (text
, False
);
5438 XtSetSensitive (label
, False
);
5441 /* Manage the dialog, so that list boxes get filled. */
5442 XtManageChild (dialog
);
5444 if (STRINGP (default_filename
))
5446 XmString default_xmstring
;
5447 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5448 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5450 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5451 XmTextFieldReplace (wtext
, 0, last_pos
,
5452 (SDATA (Ffile_name_nondirectory (default_filename
))));
5454 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5455 must include the path for this to work. */
5457 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5459 if (XmListItemExists (list
, default_xmstring
))
5461 int item_pos
= XmListItemPos (list
, default_xmstring
);
5462 /* Select the item and scroll it into view. */
5463 XmListSelectPos (list
, item_pos
, True
);
5464 XmListSetPos (list
, item_pos
);
5467 XmStringFree (default_xmstring
);
5470 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5472 /* Process events until the user presses Cancel or OK. */
5473 x_menu_set_in_use (1);
5478 x_menu_wait_for_event (0);
5479 XtAppNextEvent (Xt_app_con
, &event
);
5480 if (event
.type
== KeyPress
5481 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5483 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5485 /* Pop down on C-g. */
5486 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5487 XtUnmanageChild (dialog
);
5490 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5493 /* Get the result. */
5494 if (result
== XmCR_OK
)
5499 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5500 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5501 XmStringFree (text
);
5502 file
= build_string (data
);
5511 /* Make "Cancel" equivalent to C-g. */
5513 Fsignal (Qquit
, Qnil
);
5515 decoded_file
= DECODE_FILE (file
);
5517 return unbind_to (count
, decoded_file
);
5520 #endif /* USE_MOTIF */
5525 clean_up_dialog (Lisp_Object arg
)
5527 x_menu_set_in_use (0);
5532 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5533 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5534 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5535 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5536 or directory must exist.
5538 This function is only defined on MS Windows, and X Windows with the
5539 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5540 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5541 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5543 FRAME_PTR f
= SELECTED_FRAME ();
5545 Lisp_Object file
= Qnil
;
5546 Lisp_Object decoded_file
;
5547 int count
= SPECPDL_INDEX ();
5548 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5553 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5555 if (popup_activated ())
5556 error ("Trying to use a menu from within a menu-entry");
5558 CHECK_STRING (prompt
);
5561 /* Prevent redisplay. */
5562 specbind (Qinhibit_redisplay
, Qt
);
5563 record_unwind_protect (clean_up_dialog
, Qnil
);
5567 if (STRINGP (default_filename
))
5568 cdef_file
= SSDATA (default_filename
);
5570 cdef_file
= SSDATA (dir
);
5572 fn
= xg_get_file_name (f
, SSDATA (prompt
), cdef_file
,
5574 ! NILP (only_dir_p
));
5578 file
= build_string (fn
);
5585 /* Make "Cancel" equivalent to C-g. */
5587 Fsignal (Qquit
, Qnil
);
5589 decoded_file
= DECODE_FILE (file
);
5591 return unbind_to (count
, decoded_file
);
5595 #ifdef HAVE_FREETYPE
5597 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5598 doc
: /* Read a font name using a GTK font selection dialog.
5599 Return a GTK-style font string corresponding to the selection.
5601 If FRAME is omitted or nil, it defaults to the selected frame. */)
5602 (Lisp_Object frame
, Lisp_Object ignored
)
5604 FRAME_PTR f
= check_x_frame (frame
);
5607 Lisp_Object font_param
;
5608 char *default_name
= NULL
;
5609 struct gcpro gcpro1
, gcpro2
;
5610 int count
= SPECPDL_INDEX ();
5614 if (popup_activated ())
5615 error ("Trying to use a menu from within a menu-entry");
5617 /* Prevent redisplay. */
5618 specbind (Qinhibit_redisplay
, Qt
);
5619 record_unwind_protect (clean_up_dialog
, Qnil
);
5623 GCPRO2(font_param
, font
);
5625 XSETFONT (font
, FRAME_FONT (f
));
5626 font_param
= Ffont_get (font
, intern (":name"));
5627 if (STRINGP (font_param
))
5628 default_name
= xstrdup (SSDATA (font_param
));
5631 font_param
= Fframe_parameter (frame
, Qfont_param
);
5632 if (STRINGP (font_param
))
5633 default_name
= xstrdup (SSDATA (font_param
));
5636 if (default_name
== NULL
&& x_last_font_name
!= NULL
)
5637 default_name
= xstrdup (x_last_font_name
);
5639 /* Convert fontconfig names to Gtk names, i.e. remove - before number */
5642 char *p
= strrchr (default_name
, '-');
5646 while (isdigit (*ep
))
5648 if (*ep
== '\0') *p
= ' ';
5652 name
= xg_get_font_name (f
, default_name
);
5653 xfree (default_name
);
5657 font
= build_string (name
);
5658 g_free (x_last_font_name
);
5659 x_last_font_name
= name
;
5665 Fsignal (Qquit
, Qnil
);
5667 return unbind_to (count
, font
);
5669 #endif /* HAVE_FREETYPE */
5671 #endif /* USE_GTK */
5674 /***********************************************************************
5676 ***********************************************************************/
5678 #ifdef HAVE_XKBGETKEYBOARD
5679 #include <X11/XKBlib.h>
5680 #include <X11/keysym.h>
5683 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5684 Sx_backspace_delete_keys_p
, 0, 1, 0,
5685 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5686 FRAME nil means use the selected frame.
5687 Value is t if we know that both keys are present, and are mapped to the
5688 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5689 present and mapped to the usual X keysyms. */)
5692 #ifdef HAVE_XKBGETKEYBOARD
5694 struct frame
*f
= check_x_frame (frame
);
5695 Display
*dpy
= FRAME_X_DISPLAY (f
);
5696 Lisp_Object have_keys
;
5697 int major
, minor
, op
, event
, error_code
;
5701 /* Check library version in case we're dynamically linked. */
5702 major
= XkbMajorVersion
;
5703 minor
= XkbMinorVersion
;
5704 if (!XkbLibraryVersion (&major
, &minor
))
5710 /* Check that the server supports XKB. */
5711 major
= XkbMajorVersion
;
5712 minor
= XkbMinorVersion
;
5713 if (!XkbQueryExtension (dpy
, &op
, &event
, &error_code
, &major
, &minor
))
5719 /* In this code we check that the keyboard has physical keys with names
5720 that start with BKSP (Backspace) and DELE (Delete), and that they
5721 generate keysym XK_BackSpace and XK_Delete respectively.
5722 This function is used to test if normal-erase-is-backspace should be
5724 An alternative approach would be to just check if XK_BackSpace and
5725 XK_Delete are mapped to any key. But if any of those are mapped to
5726 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5727 user doesn't know about it, it is better to return false here.
5728 It is more obvious to the user what to do if she/he has two keys
5729 clearly marked with names/symbols and one key does something not
5730 expected (i.e. she/he then tries the other).
5731 The cases where Backspace/Delete is mapped to some other key combination
5732 are rare, and in those cases, normal-erase-is-backspace can be turned on
5736 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5739 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5741 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5743 for (i
= kb
->min_key_code
;
5744 (i
< kb
->max_key_code
5745 && (delete_keycode
== 0 || backspace_keycode
== 0));
5748 /* The XKB symbolic key names can be seen most easily in
5749 the PS file generated by `xkbprint -label name
5751 if (memcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5753 else if (memcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5754 backspace_keycode
= i
;
5757 XkbFreeNames (kb
, 0, True
);
5760 XkbFreeClientMap (kb
, 0, True
);
5763 && backspace_keycode
5764 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5765 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5770 #else /* not HAVE_XKBGETKEYBOARD */
5772 #endif /* not HAVE_XKBGETKEYBOARD */
5777 /***********************************************************************
5779 ***********************************************************************/
5781 /* Keep this list in the same order as frame_parms in frame.c.
5782 Use 0 for unsupported frame parameters. */
5784 frame_parm_handler x_frame_parm_handlers
[] =
5788 x_set_background_color
,
5794 x_set_foreground_color
,
5797 x_set_internal_border_width
,
5798 x_set_menu_bar_lines
,
5800 x_explicitly_set_name
,
5801 x_set_scroll_bar_width
,
5804 x_set_vertical_scroll_bars
,
5806 x_set_tool_bar_lines
,
5807 x_set_scroll_bar_foreground
,
5808 x_set_scroll_bar_background
,
5818 x_set_tool_bar_position
,
5824 /* This is zero if not using X windows. */
5827 /* The section below is built by the lisp expression at the top of the file,
5828 just above where these variables are declared. */
5829 /*&&& init symbols here &&&*/
5830 Qnone
= intern_c_string ("none");
5832 Qsuppress_icon
= intern_c_string ("suppress-icon");
5833 staticpro (&Qsuppress_icon
);
5834 Qundefined_color
= intern_c_string ("undefined-color");
5835 staticpro (&Qundefined_color
);
5836 Qcompound_text
= intern_c_string ("compound-text");
5837 staticpro (&Qcompound_text
);
5838 Qcancel_timer
= intern_c_string ("cancel-timer");
5839 staticpro (&Qcancel_timer
);
5840 Qfont_param
= intern_c_string ("font-parameter");
5841 staticpro (&Qfont_param
);
5842 /* This is the end of symbol initialization. */
5844 /* Text property `display' should be nonsticky by default. */
5845 Vtext_property_default_nonsticky
5846 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5849 Fput (Qundefined_color
, Qerror_conditions
,
5850 pure_cons (Qundefined_color
, pure_cons (Qerror
, Qnil
)));
5851 Fput (Qundefined_color
, Qerror_message
,
5852 make_pure_c_string ("Undefined color"));
5854 DEFVAR_LISP ("x-pointer-shape", Vx_pointer_shape
,
5855 doc
: /* The shape of the pointer when over text.
5856 Changing the value does not affect existing frames
5857 unless you set the mouse color. */);
5858 Vx_pointer_shape
= Qnil
;
5860 #if 0 /* This doesn't really do anything. */
5861 DEFVAR_LISP ("x-nontext-pointer-shape", Vx_nontext_pointer_shape
,
5862 doc
: /* The shape of the pointer when not over text.
5863 This variable takes effect when you create a new frame
5864 or when you set the mouse color. */);
5866 Vx_nontext_pointer_shape
= Qnil
;
5868 DEFVAR_LISP ("x-hourglass-pointer-shape", Vx_hourglass_pointer_shape
,
5869 doc
: /* The shape of the pointer when Emacs is busy.
5870 This variable takes effect when you create a new frame
5871 or when you set the mouse color. */);
5872 Vx_hourglass_pointer_shape
= Qnil
;
5874 #if 0 /* This doesn't really do anything. */
5875 DEFVAR_LISP ("x-mode-pointer-shape", Vx_mode_pointer_shape
,
5876 doc
: /* The shape of the pointer when over the mode line.
5877 This variable takes effect when you create a new frame
5878 or when you set the mouse color. */);
5880 Vx_mode_pointer_shape
= Qnil
;
5882 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5883 Vx_sensitive_text_pointer_shape
,
5884 doc
: /* The shape of the pointer when over mouse-sensitive text.
5885 This variable takes effect when you create a new frame
5886 or when you set the mouse color. */);
5887 Vx_sensitive_text_pointer_shape
= Qnil
;
5889 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5890 Vx_window_horizontal_drag_shape
,
5891 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5892 This variable takes effect when you create a new frame
5893 or when you set the mouse color. */);
5894 Vx_window_horizontal_drag_shape
= Qnil
;
5896 DEFVAR_LISP ("x-cursor-fore-pixel", Vx_cursor_fore_pixel
,
5897 doc
: /* A string indicating the foreground color of the cursor box. */);
5898 Vx_cursor_fore_pixel
= Qnil
;
5900 DEFVAR_LISP ("x-max-tooltip-size", Vx_max_tooltip_size
,
5901 doc
: /* Maximum size for tooltips.
5902 Value is a pair (COLUMNS . ROWS). Text larger than this is clipped. */);
5903 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5905 DEFVAR_LISP ("x-no-window-manager", Vx_no_window_manager
,
5906 doc
: /* Non-nil if no X window manager is in use.
5907 Emacs doesn't try to figure this out; this is always nil
5908 unless you set it to something else. */);
5909 /* We don't have any way to find this out, so set it to nil
5910 and maybe the user would like to set it to t. */
5911 Vx_no_window_manager
= Qnil
;
5913 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5914 Vx_pixel_size_width_font_regexp
,
5915 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5917 Since Emacs gets width of a font matching with this regexp from
5918 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5919 such a font. This is especially effective for such large fonts as
5920 Chinese, Japanese, and Korean. */);
5921 Vx_pixel_size_width_font_regexp
= Qnil
;
5923 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5924 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", x_gtk_use_old_file_dialog
,
5925 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5926 If nil or if the file selection dialog is not available, the new GTK file
5927 chooser is used instead. To turn off all file dialogs set the
5928 variable `use-file-dialog'. */);
5929 x_gtk_use_old_file_dialog
= 0;
5931 DEFVAR_BOOL ("x-gtk-show-hidden-files", x_gtk_show_hidden_files
,
5932 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5933 Note that this is just the default, there is a toggle button on the file
5934 chooser to show or not show hidden files on a case by case basis. */);
5935 x_gtk_show_hidden_files
= 0;
5937 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", x_gtk_file_dialog_help_text
,
5938 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
5939 If more space for files in the file chooser dialog is wanted, set this to nil
5940 to turn the additional text off. */);
5941 x_gtk_file_dialog_help_text
= 1;
5943 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", x_gtk_whole_detached_tool_bar
,
5944 doc
: /* *If non-nil, a detached tool bar is shown in full.
5945 The default is to just show an arrow and pressing on that arrow shows
5946 the tool bar buttons. */);
5947 x_gtk_whole_detached_tool_bar
= 0;
5949 DEFVAR_BOOL ("x-gtk-use-system-tooltips", x_gtk_use_system_tooltips
,
5950 doc
: /* *If non-nil with a Gtk+ built Emacs, the Gtk+ toolip is used.
5951 Otherwise use Emacs own tooltip implementation.
5952 When using Gtk+ tooltips, the tooltip face is not used. */);
5953 x_gtk_use_system_tooltips
= 1;
5955 Fprovide (intern_c_string ("x"), Qnil
);
5957 #ifdef USE_X_TOOLKIT
5958 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5960 Fprovide (intern_c_string ("motif"), Qnil
);
5962 DEFVAR_LISP ("motif-version-string", Vmotif_version_string
,
5963 doc
: /* Version info for LessTif/Motif. */);
5964 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5965 #endif /* USE_MOTIF */
5966 #endif /* USE_X_TOOLKIT */
5969 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5970 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5971 But for a user it is a toolkit for X, and indeed, configure
5972 accepts --with-x-toolkit=gtk. */
5973 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5974 Fprovide (intern_c_string ("gtk"), Qnil
);
5975 Fprovide (intern_c_string ("move-toolbar"), Qnil
);
5977 DEFVAR_LISP ("gtk-version-string", Vgtk_version_string
,
5978 doc
: /* Version info for GTK+. */);
5980 char gtk_version
[40];
5981 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5982 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5983 Vgtk_version_string
= make_pure_string (gtk_version
, strlen (gtk_version
), strlen (gtk_version
), 0);
5985 #endif /* USE_GTK */
5987 /* X window properties. */
5988 defsubr (&Sx_change_window_property
);
5989 defsubr (&Sx_delete_window_property
);
5990 defsubr (&Sx_window_property
);
5992 defsubr (&Sxw_display_color_p
);
5993 defsubr (&Sx_display_grayscale_p
);
5994 defsubr (&Sxw_color_defined_p
);
5995 defsubr (&Sxw_color_values
);
5996 defsubr (&Sx_server_max_request_size
);
5997 defsubr (&Sx_server_vendor
);
5998 defsubr (&Sx_server_version
);
5999 defsubr (&Sx_display_pixel_width
);
6000 defsubr (&Sx_display_pixel_height
);
6001 defsubr (&Sx_display_mm_width
);
6002 defsubr (&Sx_display_mm_height
);
6003 defsubr (&Sx_display_screens
);
6004 defsubr (&Sx_display_planes
);
6005 defsubr (&Sx_display_color_cells
);
6006 defsubr (&Sx_display_visual_class
);
6007 defsubr (&Sx_display_backing_store
);
6008 defsubr (&Sx_display_save_under
);
6009 defsubr (&Sx_wm_set_size_hint
);
6010 defsubr (&Sx_create_frame
);
6011 defsubr (&Sx_open_connection
);
6012 defsubr (&Sx_close_connection
);
6013 defsubr (&Sx_display_list
);
6014 defsubr (&Sx_synchronize
);
6015 defsubr (&Sx_focus_frame
);
6016 defsubr (&Sx_backspace_delete_keys_p
);
6018 /* Setting callback functions for fontset handler. */
6019 check_window_system_func
= check_x
;
6021 defsubr (&Sx_show_tip
);
6022 defsubr (&Sx_hide_tip
);
6024 staticpro (&tip_timer
);
6026 staticpro (&tip_frame
);
6028 last_show_tip_args
= Qnil
;
6029 staticpro (&last_show_tip_args
);
6031 defsubr (&Sx_uses_old_gtk_dialog
);
6032 #if defined (USE_MOTIF) || defined (USE_GTK)
6033 defsubr (&Sx_file_dialog
);
6036 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
6037 defsubr (&Sx_select_font
);
6038 x_last_font_name
= NULL
;
6042 #endif /* HAVE_X_WINDOWS */