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 */
86 #ifdef USG /* Pacify gcc -Wunused-macros. */
94 #include "../lwlib/lwlib.h"
98 #include <Xm/DialogS.h>
99 #include <Xm/FileSB.h>
101 #include <Xm/TextF.h>
105 #include "../lwlib/xlwmenu.h"
108 #if !defined(NO_EDITRES)
110 extern void _XEditResCheckMessages (Widget
, XtPointer
, XEvent
*, Boolean
*);
111 #endif /* not defined NO_EDITRES */
113 /* Unique id counter for widgets created by the Lucid Widget Library. */
115 extern LWLIB_ID widget_id_tick
;
119 #endif /* USE_MOTIF */
121 #endif /* USE_X_TOOLKIT */
127 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
129 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
130 it, and including `bitmaps/gray' more than once is a problem when
131 config.h defines `static' as an empty replacement string. */
133 int gray_bitmap_width
= gray_width
;
134 int gray_bitmap_height
= gray_height
;
135 char *gray_bitmap_bits
= gray_bits
;
137 /* Nonzero if using X. */
141 static Lisp_Object Qnone
;
142 static Lisp_Object Qsuppress_icon
;
143 static Lisp_Object Qundefined_color
;
144 static Lisp_Object Qcompound_text
, Qcancel_timer
;
145 Lisp_Object Qfont_param
;
148 int image_cache_refcount
, dpyinfo_refcount
;
151 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
152 static char *x_last_font_name
;
155 static struct x_display_info
*x_display_info_for_name (Lisp_Object
);
158 /* Error if we are not connected to X. */
164 error ("X windows are not in use or not initialized");
167 /* Nonzero if we can use mouse menus.
168 You should not call this unless HAVE_MENUS is defined. */
176 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
177 and checking validity for X. */
180 check_x_frame (Lisp_Object frame
)
185 frame
= selected_frame
;
186 CHECK_LIVE_FRAME (frame
);
189 error ("Non-X frame used");
193 /* Let the user specify an X display with a Lisp object.
194 OBJECT may be nil, a frame or a terminal object.
195 nil stands for the selected frame--or, if that is not an X frame,
196 the first X display on the list. */
198 struct x_display_info
*
199 check_x_display_info (Lisp_Object object
)
201 struct x_display_info
*dpyinfo
= NULL
;
205 struct frame
*sf
= XFRAME (selected_frame
);
207 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
208 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
209 else if (x_display_list
!= 0)
210 dpyinfo
= x_display_list
;
212 error ("X windows are not in use or not initialized");
214 else if (TERMINALP (object
))
216 struct terminal
*t
= get_terminal (object
, 1);
218 if (t
->type
!= output_x_window
)
219 error ("Terminal %"pI
"d is not an X display", XINT (object
));
221 dpyinfo
= t
->display_info
.x
;
223 else if (STRINGP (object
))
224 dpyinfo
= x_display_info_for_name (object
);
227 FRAME_PTR f
= check_x_frame (object
);
228 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
235 /* Return the Emacs frame-object corresponding to an X window.
236 It could be the frame's main window or an icon window. */
238 /* This function can be called during GC, so use GC_xxx type test macros. */
241 x_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
243 Lisp_Object tail
, frame
;
246 if (wdesc
== None
) return 0;
248 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
254 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
256 if (f
->output_data
.x
->hourglass_window
== wdesc
)
259 if ((f
->output_data
.x
->edit_widget
260 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
261 /* A tooltip frame? */
262 || (!f
->output_data
.x
->edit_widget
263 && FRAME_X_WINDOW (f
) == wdesc
)
264 || f
->output_data
.x
->icon_desc
== wdesc
)
266 #else /* not USE_X_TOOLKIT */
268 if (f
->output_data
.x
->edit_widget
)
270 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
271 struct x_output
*x
= f
->output_data
.x
;
272 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
276 if (FRAME_X_WINDOW (f
) == wdesc
277 || f
->output_data
.x
->icon_desc
== wdesc
)
279 #endif /* not USE_X_TOOLKIT */
284 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
285 /* Like x_window_to_frame but also compares the window with the widget's
289 x_any_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
291 Lisp_Object tail
, frame
;
292 struct frame
*f
, *found
;
295 if (wdesc
== None
) return NULL
;
298 for (tail
= Vframe_list
; CONSP (tail
) && !found
; tail
= XCDR (tail
))
305 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
307 /* This frame matches if the window is any of its widgets. */
308 x
= f
->output_data
.x
;
309 if (x
->hourglass_window
== wdesc
)
314 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
316 && gtk_widget_get_toplevel (gwdesc
) == x
->widget
)
319 if (wdesc
== XtWindow (x
->widget
)
320 || wdesc
== XtWindow (x
->column_widget
)
321 || wdesc
== XtWindow (x
->edit_widget
))
323 /* Match if the window is this frame's menubar. */
324 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
328 else if (FRAME_X_WINDOW (f
) == wdesc
)
329 /* A tooltip frame. */
337 /* Likewise, but consider only the menu bar widget. */
340 x_menubar_window_to_frame (struct x_display_info
*dpyinfo
, XEvent
*event
)
342 Window wdesc
= event
->xany
.window
;
343 Lisp_Object tail
, frame
;
347 if (wdesc
== None
) return 0;
349 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
355 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
357 x
= f
->output_data
.x
;
359 if (x
->menubar_widget
&& xg_event_is_for_menubar (f
, event
))
362 /* Match if the window is this frame's menubar. */
363 if (x
->menubar_widget
364 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
371 /* Return the frame whose principal (outermost) window is WDESC.
372 If WDESC is some other (smaller) window, we return 0. */
375 x_top_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
377 Lisp_Object tail
, frame
;
381 if (wdesc
== None
) return 0;
383 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
389 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
391 x
= f
->output_data
.x
;
395 /* This frame matches if the window is its topmost widget. */
397 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
398 if (gwdesc
== x
->widget
)
401 if (wdesc
== XtWindow (x
->widget
))
403 #if 0 /* I don't know why it did this,
404 but it seems logically wrong,
405 and it causes trouble for MapNotify events. */
406 /* Match if the window is this frame's menubar. */
407 if (x
->menubar_widget
408 && wdesc
== XtWindow (x
->menubar_widget
))
413 else if (FRAME_X_WINDOW (f
) == wdesc
)
419 #endif /* USE_X_TOOLKIT || USE_GTK */
423 /* Store the screen positions of frame F into XPTR and YPTR.
424 These are the positions of the containing window manager window,
425 not Emacs's own window. */
428 x_real_positions (FRAME_PTR f
, int *xptr
, int *yptr
)
430 int win_x
, win_y
, outer_x
IF_LINT (= 0), outer_y
IF_LINT (= 0);
431 int real_x
= 0, real_y
= 0;
433 Window win
= f
->output_data
.x
->parent_desc
;
435 unsigned long actual_size
, bytes_remaining
;
436 int rc
, actual_format
;
437 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
439 Display
*dpy
= FRAME_X_DISPLAY (f
);
440 unsigned char *tmp_data
= NULL
;
441 Atom target_type
= XA_CARDINAL
;
445 x_catch_errors (dpy
);
447 if (win
== dpyinfo
->root_window
)
448 win
= FRAME_OUTER_WINDOW (f
);
450 /* This loop traverses up the containment tree until we hit the root
451 window. Window managers may intersect many windows between our window
452 and the root window. The window we find just before the root window
453 should be the outer WM window. */
456 Window wm_window
, rootw
;
457 Window
*tmp_children
;
458 unsigned int tmp_nchildren
;
461 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
462 &wm_window
, &tmp_children
, &tmp_nchildren
);
464 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
466 /* Don't free tmp_children if XQueryTree failed. */
470 XFree ((char *) tmp_children
);
472 if (wm_window
== rootw
|| had_errors
)
483 /* Get the real coordinates for the WM window upper left corner */
484 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
485 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
487 /* Translate real coordinates to coordinates relative to our
488 window. For our window, the upper left corner is 0, 0.
489 Since the upper left corner of the WM window is outside
490 our window, win_x and win_y will be negative:
492 ------------------ ---> x
494 | ----------------- v y
497 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
499 /* From-window, to-window. */
500 FRAME_X_DISPLAY_INFO (f
)->root_window
,
503 /* From-position, to-position. */
504 real_x
, real_y
, &win_x
, &win_y
,
509 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
516 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
518 /* From-window, to-window. */
519 FRAME_X_DISPLAY_INFO (f
)->root_window
,
520 FRAME_OUTER_WINDOW (f
),
522 /* From-position, to-position. */
523 real_x
, real_y
, &outer_x
, &outer_y
,
529 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
533 if (dpyinfo
->root_window
== f
->output_data
.x
->parent_desc
)
535 /* Try _NET_FRAME_EXTENTS if our parent is the root window. */
536 rc
= XGetWindowProperty (dpy
, win
, dpyinfo
->Xatom_net_frame_extents
,
537 0, max_len
, False
, target_type
,
538 &actual_type
, &actual_format
, &actual_size
,
539 &bytes_remaining
, &tmp_data
);
541 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
542 && actual_size
== 4 && actual_format
== 32)
546 long *fe
= (long *)tmp_data
;
548 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
549 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
557 if (tmp_data
) XFree (tmp_data
);
563 if (had_errors
) return;
565 f
->x_pixels_diff
= -win_x
;
566 f
->y_pixels_diff
= -win_y
;
568 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
569 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
578 /* Gamma-correct COLOR on frame F. */
581 gamma_correct (struct frame
*f
, XColor
*color
)
585 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
586 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
587 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
592 /* Decide if color named COLOR_NAME is valid for use on frame F. If
593 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
594 allocate the color. Value is zero if COLOR_NAME is invalid, or
595 no color could be allocated. */
598 x_defined_color (struct frame
*f
, const char *color_name
,
599 XColor
*color
, int alloc_p
)
602 Display
*dpy
= FRAME_X_DISPLAY (f
);
603 Colormap cmap
= FRAME_X_COLORMAP (f
);
607 success_p
= xg_check_special_colors (f
, color_name
, color
);
610 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
611 if (success_p
&& alloc_p
)
612 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
619 /* Return the pixel color value for color COLOR_NAME on frame F. If F
620 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
621 Signal an error if color can't be allocated. */
624 x_decode_color (FRAME_PTR f
, Lisp_Object color_name
, int mono_color
)
628 CHECK_STRING (color_name
);
630 #if 0 /* Don't do this. It's wrong when we're not using the default
631 colormap, it makes freeing difficult, and it's probably not
632 an important optimization. */
633 if (strcmp (SDATA (color_name
), "black") == 0)
634 return BLACK_PIX_DEFAULT (f
);
635 else if (strcmp (SDATA (color_name
), "white") == 0)
636 return WHITE_PIX_DEFAULT (f
);
639 /* Return MONO_COLOR for monochrome frames. */
640 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
643 /* x_defined_color is responsible for coping with failures
644 by looking for a near-miss. */
645 if (x_defined_color (f
, SSDATA (color_name
), &cdef
, 1))
648 signal_error ("Undefined color", color_name
);
653 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
654 the previous value of that parameter, NEW_VALUE is the new value.
655 See also the comment of wait_for_wm in struct x_output. */
658 x_set_wait_for_wm (struct frame
*f
, Lisp_Object new_value
, Lisp_Object old_value
)
660 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
664 x_set_tool_bar_position (struct frame
*f
,
665 Lisp_Object new_value
,
666 Lisp_Object old_value
)
668 if (! EQ (new_value
, Qleft
) && ! EQ (new_value
, Qright
)
669 && ! EQ (new_value
, Qbottom
) && ! EQ (new_value
, Qtop
))
671 if (EQ (new_value
, old_value
)) return;
674 if (xg_change_toolbar_position (f
, new_value
))
675 f
->tool_bar_position
= new_value
;
681 /* Set icon from FILE for frame F. By using GTK functions the icon
682 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
685 xg_set_icon (FRAME_PTR f
, Lisp_Object file
)
690 found
= x_find_image_file (file
);
696 char *filename
= SSDATA (found
);
699 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
703 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
705 g_object_unref (pixbuf
);
719 xg_set_icon_from_xpm_data (FRAME_PTR f
, const char **data
)
721 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data (data
);
726 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
727 g_object_unref (pixbuf
);
733 /* Functions called only from `x_set_frame_param'
734 to set individual parameters.
736 If FRAME_X_WINDOW (f) is 0,
737 the frame is being created and its X-window does not exist yet.
738 In that case, just record the parameter's new value
739 in the standard place; do not attempt to change the window. */
742 x_set_foreground_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
744 struct x_output
*x
= f
->output_data
.x
;
745 unsigned long fg
, old_fg
;
747 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
748 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
749 FRAME_FOREGROUND_PIXEL (f
) = fg
;
751 if (FRAME_X_WINDOW (f
) != 0)
753 Display
*dpy
= FRAME_X_DISPLAY (f
);
756 XSetForeground (dpy
, x
->normal_gc
, fg
);
757 XSetBackground (dpy
, x
->reverse_gc
, fg
);
759 if (x
->cursor_pixel
== old_fg
)
761 unload_color (f
, x
->cursor_pixel
);
762 x
->cursor_pixel
= x_copy_color (f
, fg
);
763 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
768 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
770 if (FRAME_VISIBLE_P (f
))
774 unload_color (f
, old_fg
);
778 x_set_background_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
780 struct x_output
*x
= f
->output_data
.x
;
783 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
784 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
785 FRAME_BACKGROUND_PIXEL (f
) = bg
;
787 if (FRAME_X_WINDOW (f
) != 0)
789 Display
*dpy
= FRAME_X_DISPLAY (f
);
792 XSetBackground (dpy
, x
->normal_gc
, bg
);
793 XSetForeground (dpy
, x
->reverse_gc
, bg
);
794 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
795 XSetForeground (dpy
, x
->cursor_gc
, bg
);
798 xg_set_background_color (f
, bg
);
801 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
802 toolkit scroll bars. */
805 for (bar
= FRAME_SCROLL_BARS (f
);
807 bar
= XSCROLL_BAR (bar
)->next
)
809 Window window
= XSCROLL_BAR (bar
)->x_window
;
810 XSetWindowBackground (dpy
, window
, bg
);
813 #endif /* USE_TOOLKIT_SCROLL_BARS */
816 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
818 if (FRAME_VISIBLE_P (f
))
824 make_invisible_cursor (struct frame
*f
)
826 Display
*dpy
= FRAME_X_DISPLAY (f
);
827 static char const no_data
[] = { 0 };
832 x_catch_errors (dpy
);
833 pix
= XCreateBitmapFromData (dpy
, FRAME_X_DISPLAY_INFO (f
)->root_window
,
835 if (! x_had_errors_p (dpy
) && pix
!= None
)
839 col
.red
= col
.green
= col
.blue
= 0;
840 col
.flags
= DoRed
| DoGreen
| DoBlue
;
841 pixc
= XCreatePixmapCursor (dpy
, pix
, pix
, &col
, &col
, 0, 0);
842 if (! x_had_errors_p (dpy
) && pixc
!= None
)
844 XFreePixmap (dpy
, pix
);
853 x_set_mouse_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
855 struct x_output
*x
= f
->output_data
.x
;
856 Display
*dpy
= FRAME_X_DISPLAY (f
);
857 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
858 Cursor hourglass_cursor
, horizontal_drag_cursor
;
859 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
860 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
862 /* Don't let pointers be invisible. */
863 if (mask_color
== pixel
)
865 x_free_colors (f
, &pixel
, 1);
866 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
869 unload_color (f
, x
->mouse_pixel
);
870 x
->mouse_pixel
= pixel
;
874 /* It's not okay to crash if the user selects a screwy cursor. */
875 x_catch_errors (dpy
);
877 if (!NILP (Vx_pointer_shape
))
879 CHECK_NUMBER (Vx_pointer_shape
);
880 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
883 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
884 x_check_errors (dpy
, "bad text pointer cursor: %s");
886 if (!NILP (Vx_nontext_pointer_shape
))
888 CHECK_NUMBER (Vx_nontext_pointer_shape
);
890 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
893 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
894 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
896 if (!NILP (Vx_hourglass_pointer_shape
))
898 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
900 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
903 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
904 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
906 if (!NILP (Vx_mode_pointer_shape
))
908 CHECK_NUMBER (Vx_mode_pointer_shape
);
909 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
912 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
913 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
915 if (!NILP (Vx_sensitive_text_pointer_shape
))
917 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
919 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
922 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
924 if (!NILP (Vx_window_horizontal_drag_shape
))
926 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
927 horizontal_drag_cursor
928 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
931 horizontal_drag_cursor
932 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
934 /* Check and report errors with the above calls. */
935 x_check_errors (dpy
, "can't set cursor shape: %s");
939 XColor fore_color
, back_color
;
941 fore_color
.pixel
= x
->mouse_pixel
;
942 x_query_color (f
, &fore_color
);
943 back_color
.pixel
= mask_color
;
944 x_query_color (f
, &back_color
);
946 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
947 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
948 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
949 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
950 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
951 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
954 if (FRAME_X_WINDOW (f
) != 0)
955 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
956 f
->output_data
.x
->current_cursor
= cursor
);
958 if (FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
== 0)
959 FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
= make_invisible_cursor (f
);
961 if (cursor
!= x
->text_cursor
962 && x
->text_cursor
!= 0)
963 XFreeCursor (dpy
, x
->text_cursor
);
964 x
->text_cursor
= cursor
;
966 if (nontext_cursor
!= x
->nontext_cursor
967 && x
->nontext_cursor
!= 0)
968 XFreeCursor (dpy
, x
->nontext_cursor
);
969 x
->nontext_cursor
= nontext_cursor
;
971 if (hourglass_cursor
!= x
->hourglass_cursor
972 && x
->hourglass_cursor
!= 0)
973 XFreeCursor (dpy
, x
->hourglass_cursor
);
974 x
->hourglass_cursor
= hourglass_cursor
;
976 if (mode_cursor
!= x
->modeline_cursor
977 && x
->modeline_cursor
!= 0)
978 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
979 x
->modeline_cursor
= mode_cursor
;
981 if (hand_cursor
!= x
->hand_cursor
982 && x
->hand_cursor
!= 0)
983 XFreeCursor (dpy
, x
->hand_cursor
);
984 x
->hand_cursor
= hand_cursor
;
986 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
987 && x
->horizontal_drag_cursor
!= 0)
988 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
989 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
994 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
998 x_set_cursor_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1000 unsigned long fore_pixel
, pixel
;
1001 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1002 struct x_output
*x
= f
->output_data
.x
;
1004 if (!NILP (Vx_cursor_fore_pixel
))
1006 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1007 WHITE_PIX_DEFAULT (f
));
1008 fore_pixel_allocated_p
= 1;
1011 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1013 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1014 pixel_allocated_p
= 1;
1016 /* Make sure that the cursor color differs from the background color. */
1017 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1019 if (pixel_allocated_p
)
1021 x_free_colors (f
, &pixel
, 1);
1022 pixel_allocated_p
= 0;
1025 pixel
= x
->mouse_pixel
;
1026 if (pixel
== fore_pixel
)
1028 if (fore_pixel_allocated_p
)
1030 x_free_colors (f
, &fore_pixel
, 1);
1031 fore_pixel_allocated_p
= 0;
1033 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1037 unload_color (f
, x
->cursor_foreground_pixel
);
1038 if (!fore_pixel_allocated_p
)
1039 fore_pixel
= x_copy_color (f
, fore_pixel
);
1040 x
->cursor_foreground_pixel
= fore_pixel
;
1042 unload_color (f
, x
->cursor_pixel
);
1043 if (!pixel_allocated_p
)
1044 pixel
= x_copy_color (f
, pixel
);
1045 x
->cursor_pixel
= pixel
;
1047 if (FRAME_X_WINDOW (f
) != 0)
1050 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1051 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1054 if (FRAME_VISIBLE_P (f
))
1056 x_update_cursor (f
, 0);
1057 x_update_cursor (f
, 1);
1061 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1064 /* Set the border-color of frame F to pixel value PIX.
1065 Note that this does not fully take effect if done before
1066 F has an x-window. */
1069 x_set_border_pixel (struct frame
*f
, int pix
)
1071 unload_color (f
, f
->output_data
.x
->border_pixel
);
1072 f
->output_data
.x
->border_pixel
= pix
;
1074 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1077 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1078 (unsigned long)pix
);
1081 if (FRAME_VISIBLE_P (f
))
1086 /* Set the border-color of frame F to value described by ARG.
1087 ARG can be a string naming a color.
1088 The border-color is used for the border that is drawn by the X server.
1089 Note that this does not fully take effect if done before
1090 F has an x-window; it must be redone when the window is created.
1092 Note: this is done in two routines because of the way X10 works.
1094 Note: under X11, this is normally the province of the window manager,
1095 and so emacs' border colors may be overridden. */
1098 x_set_border_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1103 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1104 x_set_border_pixel (f
, pix
);
1105 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1110 x_set_cursor_type (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1112 set_frame_cursor_types (f
, arg
);
1114 /* Make sure the cursor gets redrawn. */
1115 cursor_type_changed
= 1;
1119 x_set_icon_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1125 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1128 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1133 result
= x_text_icon (f
,
1134 SSDATA ((!NILP (f
->icon_name
)
1138 result
= x_bitmap_icon (f
, arg
);
1143 error ("No icon window available");
1146 XFlush (FRAME_X_DISPLAY (f
));
1151 x_set_icon_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1157 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1160 else if (!NILP (arg
) || NILP (oldval
))
1165 if (f
->output_data
.x
->icon_bitmap
!= 0)
1170 result
= x_text_icon (f
,
1171 SSDATA ((!NILP (f
->icon_name
)
1180 error ("No icon window available");
1183 XFlush (FRAME_X_DISPLAY (f
));
1189 x_set_menu_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1192 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1193 int olines
= FRAME_MENU_BAR_LINES (f
);
1196 /* Right now, menu bars don't work properly in minibuf-only frames;
1197 most of the commands try to apply themselves to the minibuffer
1198 frame itself, and get an error because you can't switch buffers
1199 in or split the minibuffer window. */
1200 if (FRAME_MINIBUF_ONLY_P (f
))
1203 if (INTEGERP (value
))
1204 nlines
= XINT (value
);
1208 /* Make sure we redisplay all windows in this frame. */
1209 windows_or_buffers_changed
++;
1211 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1212 FRAME_MENU_BAR_LINES (f
) = 0;
1215 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1216 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1217 /* Make sure next redisplay shows the menu bar. */
1218 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1222 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1223 free_frame_menubar (f
);
1224 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1226 f
->output_data
.x
->menubar_widget
= 0;
1228 #else /* not USE_X_TOOLKIT && not USE_GTK */
1229 FRAME_MENU_BAR_LINES (f
) = nlines
;
1230 change_window_heights (f
->root_window
, nlines
- olines
);
1232 /* If the menu bar height gets changed, the internal border below
1233 the top margin has to be cleared. Also, if the menu bar gets
1234 larger, the area for the added lines has to be cleared except for
1235 the first menu bar line that is to be drawn later. */
1236 if (nlines
!= olines
)
1238 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1239 int width
= FRAME_PIXEL_WIDTH (f
);
1242 /* height can be zero here. */
1243 if (height
> 0 && width
> 0)
1245 y
= FRAME_TOP_MARGIN_HEIGHT (f
);
1248 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1249 0, y
, width
, height
, False
);
1253 if (nlines
> 1 && nlines
> olines
)
1255 y
= (olines
== 0 ? 1 : olines
) * FRAME_LINE_HEIGHT (f
);
1256 height
= nlines
* FRAME_LINE_HEIGHT (f
) - y
;
1259 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1260 0, y
, width
, height
, False
);
1264 if (nlines
== 0 && WINDOWP (f
->menu_bar_window
))
1265 clear_glyph_matrix (XWINDOW (f
->menu_bar_window
)->current_matrix
);
1267 #endif /* not USE_X_TOOLKIT && not USE_GTK */
1272 /* Set the number of lines used for the tool bar of frame F to VALUE.
1273 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1274 is the old number of tool bar lines. This function changes the
1275 height of all windows on frame F to match the new tool bar height.
1276 The frame's height doesn't change. */
1279 x_set_tool_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1281 int delta
, nlines
, root_height
;
1282 Lisp_Object root_window
;
1284 /* Treat tool bars like menu bars. */
1285 if (FRAME_MINIBUF_ONLY_P (f
))
1288 /* Use VALUE only if an integer >= 0. */
1289 if (INTEGERP (value
) && XINT (value
) >= 0)
1290 nlines
= XFASTINT (value
);
1295 FRAME_TOOL_BAR_LINES (f
) = 0;
1298 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1299 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1300 /* Make sure next redisplay shows the tool bar. */
1301 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1302 update_frame_tool_bar (f
);
1306 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1307 free_frame_tool_bar (f
);
1308 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1314 /* Make sure we redisplay all windows in this frame. */
1315 ++windows_or_buffers_changed
;
1317 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1319 /* Don't resize the tool-bar to more than we have room for. */
1320 root_window
= FRAME_ROOT_WINDOW (f
);
1321 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1322 if (root_height
- delta
< 1)
1324 delta
= root_height
- 1;
1325 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1328 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1329 change_window_heights (root_window
, delta
);
1332 /* We also have to make sure that the internal border at the top of
1333 the frame, below the menu bar or tool bar, is redrawn when the
1334 tool bar disappears. This is so because the internal border is
1335 below the tool bar if one is displayed, but is below the menu bar
1336 if there isn't a tool bar. The tool bar draws into the area
1337 below the menu bar. */
1338 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1341 clear_current_matrices (f
);
1344 /* If the tool bar gets smaller, the internal border below it
1345 has to be cleared. It was formerly part of the display
1346 of the larger tool bar, and updating windows won't clear it. */
1349 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1350 int width
= FRAME_PIXEL_WIDTH (f
);
1351 int y
= (FRAME_MENU_BAR_LINES (f
) + nlines
) * FRAME_LINE_HEIGHT (f
);
1353 /* height can be zero here. */
1354 if (height
> 0 && width
> 0)
1357 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1358 0, y
, width
, height
, False
);
1362 if (WINDOWP (f
->tool_bar_window
))
1363 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1368 /* Set the foreground color for scroll bars on frame F to VALUE.
1369 VALUE should be a string, a color name. If it isn't a string or
1370 isn't a valid color name, do nothing. OLDVAL is the old value of
1371 the frame parameter. */
1374 x_set_scroll_bar_foreground (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1376 unsigned long pixel
;
1378 if (STRINGP (value
))
1379 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1383 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1384 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1386 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1387 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1389 /* Remove all scroll bars because they have wrong colors. */
1390 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1391 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1392 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1393 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1395 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1401 /* Set the background color for scroll bars on frame F to VALUE VALUE
1402 should be a string, a color name. If it isn't a string or isn't a
1403 valid color name, do nothing. OLDVAL is the old value of the frame
1407 x_set_scroll_bar_background (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1409 unsigned long pixel
;
1411 if (STRINGP (value
))
1412 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1416 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1417 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1419 #ifdef USE_TOOLKIT_SCROLL_BARS
1420 /* Scrollbar shadow colors. */
1421 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1423 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1424 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1426 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1428 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1429 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1431 #endif /* USE_TOOLKIT_SCROLL_BARS */
1433 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1434 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1436 /* Remove all scroll bars because they have wrong colors. */
1437 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1438 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1439 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1440 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1442 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1448 /* Encode Lisp string STRING as a text in a format appropriate for
1449 XICCC (X Inter Client Communication Conventions).
1451 This can call Lisp code, so callers must GCPRO.
1453 If STRING contains only ASCII characters, do no conversion and
1454 return the string data of STRING. Otherwise, encode the text by
1455 CODING_SYSTEM, and return a newly allocated memory area which
1456 should be freed by `xfree' by a caller.
1458 SELECTIONP non-zero means the string is being encoded for an X
1459 selection, so it is safe to run pre-write conversions (which
1462 Store the byte length of resulting text in *TEXT_BYTES.
1464 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1465 which means that the `encoding' of the result can be `STRING'.
1466 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1467 the result should be `COMPOUND_TEXT'. */
1469 static unsigned char *
1470 x_encode_text (Lisp_Object string
, Lisp_Object coding_system
, int selectionp
, int *text_bytes
, int *stringp
, int *freep
)
1472 int result
= string_xstring_p (string
);
1473 struct coding_system coding
;
1477 /* No multibyte character in OBJ. We need not encode it. */
1478 *text_bytes
= SBYTES (string
);
1481 return SDATA (string
);
1484 setup_coding_system (coding_system
, &coding
);
1485 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1486 /* We suppress producing escape sequences for composition. */
1487 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1488 coding
.dst_bytes
= SCHARS (string
) * 2;
1489 coding
.destination
= (unsigned char *) xmalloc (coding
.dst_bytes
);
1490 encode_coding_object (&coding
, string
, 0, 0,
1491 SCHARS (string
), SBYTES (string
), Qnil
);
1492 *text_bytes
= coding
.produced
;
1493 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1495 return coding
.destination
;
1499 /* Set the WM name to NAME for frame F. Also set the icon name.
1500 If the frame already has an icon name, use that, otherwise set the
1501 icon name to NAME. */
1504 x_set_name_internal (FRAME_PTR f
, Lisp_Object name
)
1506 if (FRAME_X_WINDOW (f
))
1510 XTextProperty text
, icon
;
1512 int do_free_icon_value
= 0, do_free_text_value
= 0;
1513 Lisp_Object coding_system
;
1514 Lisp_Object encoded_name
;
1515 Lisp_Object encoded_icon_name
;
1516 struct gcpro gcpro1
;
1518 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1519 we use it before x_encode_text that may return string data. */
1521 encoded_name
= ENCODE_UTF_8 (name
);
1524 coding_system
= Qcompound_text
;
1525 /* Note: Encoding strategy
1527 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1528 text.encoding. But, there are non-internationalized window
1529 managers which don't support that encoding. So, if NAME
1530 contains only ASCII and 8859-1 characters, encode it by
1531 iso-latin-1, and use "STRING" in text.encoding hoping that
1532 such window managers at least analyze this format correctly,
1533 i.e. treat 8-bit bytes as 8859-1 characters.
1535 We may also be able to use "UTF8_STRING" in text.encoding
1536 in the future which can encode all Unicode characters.
1537 But, for the moment, there's no way to know that the
1538 current window manager supports it or not.
1540 Either way, we also set the _NET_WM_NAME and _NET_WM_ICON_NAME
1541 properties. Per the EWMH specification, those two properties
1542 are always UTF8_STRING. This matches what gtk_window_set_title()
1543 does in the USE_GTK case. */
1544 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1545 &do_free_text_value
);
1546 text
.encoding
= (stringp
? XA_STRING
1547 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1549 text
.nitems
= bytes
;
1551 if (!STRINGP (f
->icon_name
))
1554 encoded_icon_name
= encoded_name
;
1558 /* See the above comment "Note: Encoding strategy". */
1559 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1560 &bytes
, &stringp
, &do_free_icon_value
);
1561 icon
.encoding
= (stringp
? XA_STRING
1562 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1564 icon
.nitems
= bytes
;
1566 encoded_icon_name
= ENCODE_UTF_8 (f
->icon_name
);
1570 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1571 SSDATA (encoded_name
));
1572 #else /* not USE_GTK */
1573 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1574 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1575 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_name
,
1576 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1578 SDATA (encoded_name
),
1579 SBYTES (encoded_name
));
1580 #endif /* not USE_GTK */
1582 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1583 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1584 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_icon_name
,
1585 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1587 SDATA (encoded_icon_name
),
1588 SBYTES (encoded_icon_name
));
1590 if (do_free_icon_value
)
1592 if (do_free_text_value
)
1599 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1602 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1603 name; if NAME is a string, set F's name to NAME and set
1604 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1606 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1607 suggesting a new name, which lisp code should override; if
1608 F->explicit_name is set, ignore the new name; otherwise, set it. */
1611 x_set_name (struct frame
*f
, Lisp_Object name
, int explicit)
1613 /* Make sure that requests from lisp code override requests from
1614 Emacs redisplay code. */
1617 /* If we're switching from explicit to implicit, we had better
1618 update the mode lines and thereby update the title. */
1619 if (f
->explicit_name
&& NILP (name
))
1620 update_mode_lines
= 1;
1622 f
->explicit_name
= ! NILP (name
);
1624 else if (f
->explicit_name
)
1627 /* If NAME is nil, set the name to the x_id_name. */
1630 /* Check for no change needed in this very common case
1631 before we do any consing. */
1632 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1635 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1638 CHECK_STRING (name
);
1640 /* Don't change the name if it's already NAME. */
1641 if (! NILP (Fstring_equal (name
, f
->name
)))
1646 /* For setting the frame title, the title parameter should override
1647 the name parameter. */
1648 if (! NILP (f
->title
))
1651 x_set_name_internal (f
, name
);
1654 /* This function should be called when the user's lisp code has
1655 specified a name for the frame; the name will override any set by the
1658 x_explicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1660 x_set_name (f
, arg
, 1);
1663 /* This function should be called by Emacs redisplay code to set the
1664 name; names set this way will never override names set by the user's
1667 x_implicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1669 x_set_name (f
, arg
, 0);
1672 /* Change the title of frame F to NAME.
1673 If NAME is nil, use the frame name as the title. */
1676 x_set_title (struct frame
*f
, Lisp_Object name
, Lisp_Object old_name
)
1678 /* Don't change the title if it's already NAME. */
1679 if (EQ (name
, f
->title
))
1682 update_mode_lines
= 1;
1689 CHECK_STRING (name
);
1691 x_set_name_internal (f
, name
);
1695 x_set_scroll_bar_default_width (struct frame
*f
)
1697 int wid
= FRAME_COLUMN_WIDTH (f
);
1700 #ifdef USE_TOOLKIT_SCROLL_BARS
1702 minw
= xg_get_default_scrollbar_width (f
);
1704 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1705 width
= minw
+ 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1706 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1707 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1709 /* Make the actual width at least 14 pixels and a multiple of a
1711 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1713 /* Use all of that space (aside from required margins) for the
1715 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1720 /* Record in frame F the specified or default value according to ALIST
1721 of the parameter named PROP (a Lisp symbol). If no value is
1722 specified for PROP, look for an X default for XPROP on the frame
1723 named NAME. If that is not found either, use the value DEFLT. */
1726 x_default_scroll_bar_color_parameter (struct frame
*f
,
1727 Lisp_Object alist
, Lisp_Object prop
,
1728 const char *xprop
, const char *xclass
,
1731 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1734 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1735 if (EQ (tem
, Qunbound
))
1737 #ifdef USE_TOOLKIT_SCROLL_BARS
1739 /* See if an X resource for the scroll bar color has been
1741 tem
= display_x_get_resource (dpyinfo
,
1742 build_string (foreground_p
1745 empty_unibyte_string
,
1746 build_string ("verticalScrollBar"),
1747 empty_unibyte_string
);
1750 /* If nothing has been specified, scroll bars will use a
1751 toolkit-dependent default. Because these defaults are
1752 difficult to get at without actually creating a scroll
1753 bar, use nil to indicate that no color has been
1758 #else /* not USE_TOOLKIT_SCROLL_BARS */
1762 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1765 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1772 #ifdef USE_X_TOOLKIT
1774 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1775 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1776 already be present because of the toolkit (Motif adds some of them,
1777 for example, but Xt doesn't). */
1780 hack_wm_protocols (FRAME_PTR f
, Widget widget
)
1782 Display
*dpy
= XtDisplay (widget
);
1783 Window w
= XtWindow (widget
);
1784 int need_delete
= 1;
1791 unsigned char *catoms
;
1793 unsigned long nitems
= 0;
1794 unsigned long bytes_after
;
1796 if ((XGetWindowProperty (dpy
, w
,
1797 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1798 (long)0, (long)100, False
, XA_ATOM
,
1799 &type
, &format
, &nitems
, &bytes_after
,
1802 && format
== 32 && type
== XA_ATOM
)
1804 Atom
*atoms
= (Atom
*) catoms
;
1809 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1811 else if (atoms
[nitems
]
1812 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1814 else if (atoms
[nitems
]
1815 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1826 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1828 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1830 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1832 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1833 XA_ATOM
, 32, PropModeAppend
,
1834 (unsigned char *) props
, count
);
1842 /* Support routines for XIC (X Input Context). */
1846 static XFontSet
xic_create_xfontset (struct frame
*);
1847 static XIMStyle
best_xim_style (XIMStyles
*, XIMStyles
*);
1850 /* Supported XIM styles, ordered by preference. */
1852 static XIMStyle supported_xim_styles
[] =
1854 XIMPreeditPosition
| XIMStatusArea
,
1855 XIMPreeditPosition
| XIMStatusNothing
,
1856 XIMPreeditPosition
| XIMStatusNone
,
1857 XIMPreeditNothing
| XIMStatusArea
,
1858 XIMPreeditNothing
| XIMStatusNothing
,
1859 XIMPreeditNothing
| XIMStatusNone
,
1860 XIMPreeditNone
| XIMStatusArea
,
1861 XIMPreeditNone
| XIMStatusNothing
,
1862 XIMPreeditNone
| XIMStatusNone
,
1867 #if defined HAVE_X_WINDOWS && defined USE_X_TOOLKIT
1868 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1870 static const char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1872 /* Create an Xt fontset spec from the name of a base font.
1873 If `motif' is True use the Motif syntax. */
1875 xic_create_fontsetname (const char *base_fontname
, int motif
)
1877 const char *sep
= motif
? ";" : ",";
1880 /* Make a fontset name from the base font name. */
1881 if (xic_defaut_fontset
== base_fontname
)
1882 { /* There is no base font name, use the default. */
1883 int len
= strlen (base_fontname
) + 2;
1884 fontsetname
= xmalloc (len
);
1885 memset (fontsetname
, 0, len
);
1886 strcpy (fontsetname
, base_fontname
);
1890 /* Make a fontset name from the base font name.
1891 The font set will be made of the following elements:
1893 - the base font where the charset spec is replaced by -*-*.
1894 - the same but with the family also replaced with -*-*-. */
1895 const char *p
= base_fontname
;
1898 for (i
= 0; *p
; p
++)
1901 { /* As the font name doesn't conform to XLFD, we can't
1902 modify it to generalize it to allcs and allfamilies.
1903 Use the specified font plus the default. */
1904 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
1905 fontsetname
= xmalloc (len
);
1906 memset (fontsetname
, 0, len
);
1907 strcpy (fontsetname
, base_fontname
);
1908 strcat (fontsetname
, sep
);
1909 strcat (fontsetname
, xic_defaut_fontset
);
1914 const char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1915 char *font_allcs
= NULL
;
1916 char *font_allfamilies
= NULL
;
1917 char *font_all
= NULL
;
1918 const char *allcs
= "*-*-*-*-*-*-*";
1919 const char *allfamilies
= "-*-*-";
1920 const char *all
= "*-*-*-*-";
1923 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
1936 /* If base_fontname specifies ADSTYLE, make it a
1940 int diff
= (p2
- p3
) - 2;
1942 base
= alloca (strlen (base_fontname
) + 1);
1943 memcpy (base
, base_fontname
, p3
- base_fontname
);
1944 base
[p3
- base_fontname
] = '*';
1945 base
[(p3
- base_fontname
) + 1] = '-';
1946 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
1947 p
= base
+ (p
- base_fontname
) - diff
;
1948 p1
= base
+ (p1
- base_fontname
);
1949 p2
= base
+ (p2
- base_fontname
) - diff
;
1950 base_fontname
= base
;
1953 /* Build the font spec that matches all charsets. */
1954 len
= p
- base_fontname
+ strlen (allcs
) + 1;
1955 font_allcs
= (char *) alloca (len
);
1956 memset (font_allcs
, 0, len
);
1957 memcpy (font_allcs
, base_fontname
, p
- base_fontname
);
1958 strcat (font_allcs
, allcs
);
1960 /* Build the font spec that matches all families and
1962 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
1963 font_allfamilies
= (char *) alloca (len
);
1964 memset (font_allfamilies
, 0, len
);
1965 strcpy (font_allfamilies
, allfamilies
);
1966 memcpy (font_allfamilies
+ strlen (allfamilies
), p1
, p
- p1
);
1967 strcat (font_allfamilies
, allcs
);
1969 /* Build the font spec that matches all. */
1970 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
1971 font_all
= (char *) alloca (len
);
1972 memset (font_all
, 0, len
);
1973 strcpy (font_all
, allfamilies
);
1974 strcat (font_all
, all
);
1975 memcpy (font_all
+ strlen (all
) + strlen (allfamilies
), p2
, p
- p2
);
1976 strcat (font_all
, allcs
);
1978 /* Build the actual font set name. */
1979 len
= strlen (base_fontname
) + strlen (font_allcs
)
1980 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
1981 fontsetname
= xmalloc (len
);
1982 memset (fontsetname
, 0, len
);
1983 strcpy (fontsetname
, base_fontname
);
1984 strcat (fontsetname
, sep
);
1985 strcat (fontsetname
, font_allcs
);
1986 strcat (fontsetname
, sep
);
1987 strcat (fontsetname
, font_allfamilies
);
1988 strcat (fontsetname
, sep
);
1989 strcat (fontsetname
, font_all
);
1993 strcat (fontsetname
, ":");
1996 #endif /* HAVE_X_WINDOWS && USE_X_TOOLKIT */
1998 #ifdef DEBUG_XIC_FONTSET
2000 print_fontset_result (xfs
, name
, missing_list
, missing_count
)
2003 char **missing_list
;
2007 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
2010 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
2011 while (missing_count
-- > 0)
2013 fprintf (stderr
, " missing: %s\n", *missing_list
);
2022 xic_create_xfontset (struct frame
*f
)
2024 XFontSet xfs
= NULL
;
2025 struct font
*font
= FRAME_FONT (f
);
2026 int pixel_size
= font
->pixel_size
;
2027 Lisp_Object rest
, frame
;
2029 /* See if there is another frame already using same fontset. */
2030 FOR_EACH_FRAME (rest
, frame
)
2032 struct frame
*cf
= XFRAME (frame
);
2034 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2035 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2037 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
2039 xfs
= FRAME_XIC_FONTSET (cf
);
2047 char **missing_list
;
2050 const char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
2052 sprintf (buf
, xlfd_format
, pixel_size
);
2053 missing_list
= NULL
;
2054 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2055 &missing_list
, &missing_count
, &def_string
);
2056 #ifdef DEBUG_XIC_FONTSET
2057 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2060 XFreeStringList (missing_list
);
2063 /* List of pixel sizes most likely available. Find one that
2064 is closest to pixel_size. */
2065 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2066 int *smaller
, *larger
;
2068 for (smaller
= sizes
; smaller
[1]; smaller
++)
2069 if (smaller
[1] >= pixel_size
)
2071 larger
= smaller
+ 1;
2072 if (*larger
== pixel_size
)
2074 while (*smaller
|| *larger
)
2079 this_size
= *smaller
--;
2080 else if (! *smaller
)
2081 this_size
= *larger
++;
2082 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
2083 this_size
= *smaller
--;
2085 this_size
= *larger
++;
2086 sprintf (buf
, xlfd_format
, this_size
);
2087 missing_list
= NULL
;
2088 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2089 &missing_list
, &missing_count
, &def_string
);
2090 #ifdef DEBUG_XIC_FONTSET
2091 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2094 XFreeStringList (missing_list
);
2101 const char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
2103 missing_list
= NULL
;
2104 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
2105 &missing_list
, &missing_count
, &def_string
);
2106 #ifdef DEBUG_XIC_FONTSET
2107 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
2110 XFreeStringList (missing_list
);
2118 /* Free the X fontset of frame F if it is the last frame using it. */
2121 xic_free_xfontset (struct frame
*f
)
2123 Lisp_Object rest
, frame
;
2126 if (!FRAME_XIC_FONTSET (f
))
2129 /* See if there is another frame sharing the same fontset. */
2130 FOR_EACH_FRAME (rest
, frame
)
2132 struct frame
*cf
= XFRAME (frame
);
2133 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2134 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2135 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2143 /* The fontset is not used anymore. It is safe to free it. */
2144 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2146 if (FRAME_XIC_BASE_FONTNAME (f
))
2147 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2148 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2149 FRAME_XIC_FONTSET (f
) = NULL
;
2153 /* Value is the best input style, given user preferences USER (already
2154 checked to be supported by Emacs), and styles supported by the
2155 input method XIM. */
2158 best_xim_style (XIMStyles
*user
, XIMStyles
*xim
)
2162 for (i
= 0; i
< user
->count_styles
; ++i
)
2163 for (j
= 0; j
< xim
->count_styles
; ++j
)
2164 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2165 return user
->supported_styles
[i
];
2167 /* Return the default style. */
2168 return XIMPreeditNothing
| XIMStatusNothing
;
2171 /* Create XIC for frame F. */
2173 static XIMStyle xic_style
;
2176 create_frame_xic (struct frame
*f
)
2180 XFontSet xfs
= NULL
;
2185 /* Create X fontset. */
2186 xfs
= xic_create_xfontset (f
);
2187 xim
= FRAME_X_XIM (f
);
2192 XVaNestedList preedit_attr
;
2193 XVaNestedList status_attr
;
2195 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2196 spot
.x
= 0; spot
.y
= 1;
2198 /* Determine XIC style. */
2201 XIMStyles supported_list
;
2202 supported_list
.count_styles
= (sizeof supported_xim_styles
2203 / sizeof supported_xim_styles
[0]);
2204 supported_list
.supported_styles
= supported_xim_styles
;
2205 xic_style
= best_xim_style (&supported_list
,
2206 FRAME_X_XIM_STYLES (f
));
2209 preedit_attr
= XVaCreateNestedList (0,
2212 FRAME_FOREGROUND_PIXEL (f
),
2214 FRAME_BACKGROUND_PIXEL (f
),
2215 (xic_style
& XIMPreeditPosition
2220 status_attr
= XVaCreateNestedList (0,
2226 FRAME_FOREGROUND_PIXEL (f
),
2228 FRAME_BACKGROUND_PIXEL (f
),
2231 xic
= XCreateIC (xim
,
2232 XNInputStyle
, xic_style
,
2233 XNClientWindow
, FRAME_X_WINDOW (f
),
2234 XNFocusWindow
, FRAME_X_WINDOW (f
),
2235 XNStatusAttributes
, status_attr
,
2236 XNPreeditAttributes
, preedit_attr
,
2238 XFree (preedit_attr
);
2239 XFree (status_attr
);
2242 FRAME_XIC (f
) = xic
;
2243 FRAME_XIC_STYLE (f
) = xic_style
;
2244 FRAME_XIC_FONTSET (f
) = xfs
;
2248 /* Destroy XIC and free XIC fontset of frame F, if any. */
2251 free_frame_xic (struct frame
*f
)
2253 if (FRAME_XIC (f
) == NULL
)
2256 XDestroyIC (FRAME_XIC (f
));
2257 xic_free_xfontset (f
);
2259 FRAME_XIC (f
) = NULL
;
2263 /* Place preedit area for XIC of window W's frame to specified
2264 pixel position X/Y. X and Y are relative to window W. */
2267 xic_set_preeditarea (struct window
*w
, int x
, int y
)
2269 struct frame
*f
= XFRAME (w
->frame
);
2273 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2274 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2275 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2276 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2281 /* Place status area for XIC in bottom right corner of frame F.. */
2284 xic_set_statusarea (struct frame
*f
)
2286 XIC xic
= FRAME_XIC (f
);
2291 /* Negotiate geometry of status area. If input method has existing
2292 status area, use its current size. */
2293 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2294 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2295 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2298 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2299 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2302 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2304 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2305 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2309 area
.width
= needed
->width
;
2310 area
.height
= needed
->height
;
2311 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2312 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2313 - FRAME_MENUBAR_HEIGHT (f
)
2314 - FRAME_TOOLBAR_TOP_HEIGHT (f
)
2315 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2318 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2319 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2324 /* Set X fontset for XIC of frame F, using base font name
2325 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2328 xic_set_xfontset (struct frame
*f
, const char *base_fontname
)
2333 xic_free_xfontset (f
);
2335 xfs
= xic_create_xfontset (f
);
2337 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2338 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2339 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2340 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2341 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2344 FRAME_XIC_FONTSET (f
) = xfs
;
2347 #endif /* HAVE_X_I18N */
2351 #ifdef USE_X_TOOLKIT
2353 /* Create and set up the X widget for frame F. */
2356 x_window (struct frame
*f
, long window_prompting
, int minibuffer_only
)
2358 XClassHint class_hints
;
2359 XSetWindowAttributes attributes
;
2360 unsigned long attribute_mask
;
2361 Widget shell_widget
;
2363 Widget frame_widget
;
2369 /* Use the resource name as the top-level widget name
2370 for looking up resources. Make a non-Lisp copy
2371 for the window manager, so GC relocation won't bother it.
2373 Elsewhere we specify the window name for the window manager. */
2376 char *str
= SSDATA (Vx_resource_name
);
2377 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2378 strcpy (f
->namebuf
, str
);
2382 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2383 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2384 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2385 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2386 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2387 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2388 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2389 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2390 applicationShellWidgetClass
,
2391 FRAME_X_DISPLAY (f
), al
, ac
);
2393 f
->output_data
.x
->widget
= shell_widget
;
2394 /* maybe_set_screen_title_format (shell_widget); */
2396 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2397 (widget_value
*) NULL
,
2398 shell_widget
, False
,
2402 (lw_callback
) NULL
);
2405 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2406 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2407 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2408 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2409 XtSetValues (pane_widget
, al
, ac
);
2410 f
->output_data
.x
->column_widget
= pane_widget
;
2412 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2413 the emacs screen when changing menubar. This reduces flickering. */
2416 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2417 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2418 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2419 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2420 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2421 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2422 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2423 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2424 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2425 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2428 f
->output_data
.x
->edit_widget
= frame_widget
;
2430 XtManageChild (frame_widget
);
2432 /* Do some needed geometry management. */
2435 char *tem
, shell_position
[32];
2438 int extra_borders
= 0;
2440 = (f
->output_data
.x
->menubar_widget
2441 ? (f
->output_data
.x
->menubar_widget
->core
.height
2442 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2445 #if 0 /* Experimentally, we now get the right results
2446 for -geometry -0-0 without this. 24 Aug 96, rms. */
2447 if (FRAME_EXTERNAL_MENU_BAR (f
))
2450 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2451 menubar_size
+= ibw
;
2455 f
->output_data
.x
->menubar_height
= menubar_size
;
2458 /* Motif seems to need this amount added to the sizes
2459 specified for the shell widget. The Athena/Lucid widgets don't.
2460 Both conclusions reached experimentally. -- rms. */
2461 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2462 &extra_borders
, NULL
);
2466 /* Convert our geometry parameters into a geometry string
2468 Note that we do not specify here whether the position
2469 is a user-specified or program-specified one.
2470 We pass that information later, in x_wm_set_size_hints. */
2472 int left
= f
->left_pos
;
2473 int xneg
= window_prompting
& XNegative
;
2474 int top
= f
->top_pos
;
2475 int yneg
= window_prompting
& YNegative
;
2481 if (window_prompting
& USPosition
)
2482 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2483 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2484 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2485 (xneg
? '-' : '+'), left
,
2486 (yneg
? '-' : '+'), top
);
2489 sprintf (shell_position
, "=%dx%d",
2490 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2491 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2493 /* Setting x and y when the position is not specified in
2494 the geometry string will set program position in the WM hints.
2495 If Emacs had just one program position, we could set it in
2496 fallback resources, but since each make-frame call can specify
2497 different program positions, this is easier. */
2498 XtSetArg (gal
[gac
], XtNx
, left
); gac
++;
2499 XtSetArg (gal
[gac
], XtNy
, top
); gac
++;
2503 len
= strlen (shell_position
) + 1;
2504 /* We don't free this because we don't know whether
2505 it is safe to free it while the frame exists.
2506 It isn't worth the trouble of arranging to free it
2507 when the frame is deleted. */
2508 tem
= (char *) xmalloc (len
);
2509 strncpy (tem
, shell_position
, len
);
2510 XtSetArg (gal
[gac
], XtNgeometry
, tem
); gac
++;
2511 XtSetValues (shell_widget
, gal
, gac
);
2514 XtManageChild (pane_widget
);
2515 XtRealizeWidget (shell_widget
);
2517 if (FRAME_X_EMBEDDED_P (f
))
2518 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2519 f
->output_data
.x
->parent_desc
, 0, 0);
2521 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2523 validate_x_resource_name ();
2525 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2526 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2527 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2530 FRAME_XIC (f
) = NULL
;
2532 create_frame_xic (f
);
2535 f
->output_data
.x
->wm_hints
.input
= True
;
2536 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2537 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2538 &f
->output_data
.x
->wm_hints
);
2540 hack_wm_protocols (f
, shell_widget
);
2543 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2546 /* Do a stupid property change to force the server to generate a
2547 PropertyNotify event so that the event_stream server timestamp will
2548 be initialized to something relevant to the time we created the window.
2550 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2551 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2552 XA_ATOM
, 32, PropModeAppend
,
2553 (unsigned char*) NULL
, 0);
2555 /* Make all the standard events reach the Emacs frame. */
2556 attributes
.event_mask
= STANDARD_EVENT_SET
;
2561 /* XIM server might require some X events. */
2562 unsigned long fevent
= NoEventMask
;
2563 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2564 attributes
.event_mask
|= fevent
;
2566 #endif /* HAVE_X_I18N */
2568 attribute_mask
= CWEventMask
;
2569 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2570 attribute_mask
, &attributes
);
2572 XtMapWidget (frame_widget
);
2574 /* x_set_name normally ignores requests to set the name if the
2575 requested name is the same as the current name. This is the one
2576 place where that assumption isn't correct; f->name is set, but
2577 the X server hasn't been told. */
2580 int explicit = f
->explicit_name
;
2582 f
->explicit_name
= 0;
2585 x_set_name (f
, name
, explicit);
2588 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2589 f
->output_data
.x
->current_cursor
2590 = f
->output_data
.x
->text_cursor
);
2594 /* This is a no-op, except under Motif. Make sure main areas are
2595 set to something reasonable, in case we get an error later. */
2596 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2599 #else /* not USE_X_TOOLKIT */
2602 x_window (FRAME_PTR f
)
2604 if (! xg_create_frame_widgets (f
))
2605 error ("Unable to create window");
2608 FRAME_XIC (f
) = NULL
;
2612 create_frame_xic (f
);
2615 /* XIM server might require some X events. */
2616 unsigned long fevent
= NoEventMask
;
2617 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2619 if (fevent
!= NoEventMask
)
2621 XSetWindowAttributes attributes
;
2622 XWindowAttributes wattr
;
2623 unsigned long attribute_mask
;
2625 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2627 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2628 attribute_mask
= CWEventMask
;
2629 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2630 attribute_mask
, &attributes
);
2638 #else /*! USE_GTK */
2639 /* Create and set up the X window for frame F. */
2642 x_window (struct frame
*f
)
2644 XClassHint class_hints
;
2645 XSetWindowAttributes attributes
;
2646 unsigned long attribute_mask
;
2648 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2649 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2650 attributes
.bit_gravity
= StaticGravity
;
2651 attributes
.backing_store
= NotUseful
;
2652 attributes
.save_under
= True
;
2653 attributes
.event_mask
= STANDARD_EVENT_SET
;
2654 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2655 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2660 = XCreateWindow (FRAME_X_DISPLAY (f
),
2661 f
->output_data
.x
->parent_desc
,
2664 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2666 CopyFromParent
, /* depth */
2667 InputOutput
, /* class */
2669 attribute_mask
, &attributes
);
2674 create_frame_xic (f
);
2677 /* XIM server might require some X events. */
2678 unsigned long fevent
= NoEventMask
;
2679 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2680 attributes
.event_mask
|= fevent
;
2681 attribute_mask
= CWEventMask
;
2682 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2683 attribute_mask
, &attributes
);
2686 #endif /* HAVE_X_I18N */
2688 validate_x_resource_name ();
2690 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2691 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2692 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2694 /* The menubar is part of the ordinary display;
2695 it does not count in addition to the height of the window. */
2696 f
->output_data
.x
->menubar_height
= 0;
2698 /* This indicates that we use the "Passive Input" input model.
2699 Unless we do this, we don't get the Focus{In,Out} events that we
2700 need to draw the cursor correctly. Accursed bureaucrats.
2701 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2703 f
->output_data
.x
->wm_hints
.input
= True
;
2704 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2705 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2706 &f
->output_data
.x
->wm_hints
);
2707 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2709 /* Request "save yourself" and "delete window" commands from wm. */
2712 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2713 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2714 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2717 /* x_set_name normally ignores requests to set the name if the
2718 requested name is the same as the current name. This is the one
2719 place where that assumption isn't correct; f->name is set, but
2720 the X server hasn't been told. */
2723 int explicit = f
->explicit_name
;
2725 f
->explicit_name
= 0;
2728 x_set_name (f
, name
, explicit);
2731 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2732 f
->output_data
.x
->current_cursor
2733 = f
->output_data
.x
->text_cursor
);
2737 if (FRAME_X_WINDOW (f
) == 0)
2738 error ("Unable to create window");
2741 #endif /* not USE_GTK */
2742 #endif /* not USE_X_TOOLKIT */
2744 /* Verify that the icon position args for this window are valid. */
2747 x_icon_verify (struct frame
*f
, Lisp_Object parms
)
2749 Lisp_Object icon_x
, icon_y
;
2751 /* Set the position of the icon. Note that twm groups all
2752 icons in an icon window. */
2753 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2754 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2755 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2757 CHECK_NUMBER (icon_x
);
2758 CHECK_NUMBER (icon_y
);
2760 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2761 error ("Both left and top icon corners of icon must be specified");
2764 /* Handle the icon stuff for this window. Perhaps later we might
2765 want an x_set_icon_position which can be called interactively as
2769 x_icon (struct frame
*f
, Lisp_Object parms
)
2771 Lisp_Object icon_x
, icon_y
;
2773 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2776 /* Set the position of the icon. Note that twm groups all
2777 icons in an icon window. */
2778 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2779 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2780 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2782 CHECK_NUMBER (icon_x
);
2783 CHECK_NUMBER (icon_y
);
2785 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2786 error ("Both left and top icon corners of icon must be specified");
2790 if (! EQ (icon_x
, Qunbound
))
2791 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2793 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2794 but x_create_frame still needs it. */
2795 /* Start up iconic or window? */
2796 x_wm_set_window_state
2797 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2803 x_text_icon (f
, SSDATA ((!NILP (f
->icon_name
)
2810 /* Make the GCs needed for this window, setting the
2811 background, border and mouse colors; also create the
2812 mouse cursor and the gray border tile. */
2815 x_make_gc (struct frame
*f
)
2817 XGCValues gc_values
;
2821 /* Create the GCs of this frame.
2822 Note that many default values are used. */
2824 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2825 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2826 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2827 f
->output_data
.x
->normal_gc
2828 = XCreateGC (FRAME_X_DISPLAY (f
),
2830 GCLineWidth
| GCForeground
| GCBackground
,
2833 /* Reverse video style. */
2834 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2835 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2836 f
->output_data
.x
->reverse_gc
2837 = XCreateGC (FRAME_X_DISPLAY (f
),
2839 GCForeground
| GCBackground
| GCLineWidth
,
2842 /* Cursor has cursor-color background, background-color foreground. */
2843 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2844 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2845 gc_values
.fill_style
= FillOpaqueStippled
;
2846 f
->output_data
.x
->cursor_gc
2847 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2848 (GCForeground
| GCBackground
2849 | GCFillStyle
| GCLineWidth
),
2853 f
->output_data
.x
->white_relief
.gc
= 0;
2854 f
->output_data
.x
->black_relief
.gc
= 0;
2856 /* Create the gray border tile used when the pointer is not in
2857 the frame. Since this depends on the frame's pixel values,
2858 this must be done on a per-frame basis. */
2859 f
->output_data
.x
->border_tile
2860 = (XCreatePixmapFromBitmapData
2861 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2862 gray_bits
, gray_width
, gray_height
,
2863 FRAME_FOREGROUND_PIXEL (f
),
2864 FRAME_BACKGROUND_PIXEL (f
),
2865 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2871 /* Free what was allocated in x_make_gc. */
2874 x_free_gcs (struct frame
*f
)
2876 Display
*dpy
= FRAME_X_DISPLAY (f
);
2880 if (f
->output_data
.x
->normal_gc
)
2882 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2883 f
->output_data
.x
->normal_gc
= 0;
2886 if (f
->output_data
.x
->reverse_gc
)
2888 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2889 f
->output_data
.x
->reverse_gc
= 0;
2892 if (f
->output_data
.x
->cursor_gc
)
2894 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2895 f
->output_data
.x
->cursor_gc
= 0;
2898 if (f
->output_data
.x
->border_tile
)
2900 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2901 f
->output_data
.x
->border_tile
= 0;
2908 /* Handler for signals raised during x_create_frame and
2909 x_create_top_frame. FRAME is the frame which is partially
2913 unwind_create_frame (Lisp_Object frame
)
2915 struct frame
*f
= XFRAME (frame
);
2917 /* If frame is already dead, nothing to do. This can happen if the
2918 display is disconnected after the frame has become official, but
2919 before x_create_frame removes the unwind protect. */
2920 if (!FRAME_LIVE_P (f
))
2923 /* If frame is ``official'', nothing to do. */
2924 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2927 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2930 x_free_frame_resources (f
);
2933 /* Check that reference counts are indeed correct. */
2934 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2935 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
2945 x_default_font_parameter (struct frame
*f
, Lisp_Object parms
)
2947 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2948 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
2950 Lisp_Object font
= Qnil
;
2951 if (EQ (font_param
, Qunbound
))
2954 if (NILP (font_param
))
2956 /* System font should take precedendce over X resources. We suggest this
2957 regardless of font-use-system-font because .emacs may not have been
2959 const char *system_font
= xsettings_get_system_font ();
2962 char *name
= xstrdup (system_font
);
2963 font
= font_open_by_name (f
, name
);
2969 font
= !NILP (font_param
) ? font_param
2970 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
2972 if (! FONTP (font
) && ! STRINGP (font
))
2977 /* This will find the normal Xft font. */
2980 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
2981 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2982 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2983 /* This was formerly the first thing tried, but it finds
2984 too many fonts and takes too long. */
2985 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
2986 /* If those didn't work, look for something which will
2988 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
2993 for (i
= 0; names
[i
]; i
++)
2995 font
= font_open_by_name (f
, names
[i
]);
3000 error ("No suitable font was found");
3002 else if (!NILP (font_param
))
3004 /* Remember the explicit font parameter, so we can re-apply it after
3005 we've applied the `default' face settings. */
3006 x_set_frame_parameters (f
, Fcons (Fcons (Qfont_param
, font_param
), Qnil
));
3009 /* This call will make X resources override any system font setting. */
3010 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
3014 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
3016 doc
: /* Send the size hints for frame FRAME to the window manager.
3017 If FRAME is nil, use the selected frame. */)
3022 frame
= selected_frame
;
3026 x_wm_set_size_hint (f
, 0, 0);
3032 set_machine_and_pid_properties (struct frame
*f
)
3034 long pid
= (long) getpid ();
3036 /* This will set WM_CLIENT_MACHINE and WM_LOCALE_NAME. */
3037 XSetWMProperties (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), NULL
, NULL
,
3038 NULL
, 0, NULL
, NULL
, NULL
);
3039 XChangeProperty (FRAME_X_DISPLAY (f
),
3040 FRAME_OUTER_WINDOW (f
),
3041 XInternAtom (FRAME_X_DISPLAY (f
),
3044 XA_CARDINAL
, 32, PropModeReplace
,
3045 (unsigned char *) &pid
, 1);
3048 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3050 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3051 Return an Emacs frame object.
3052 PARMS is an alist of frame parameters.
3053 If the parameters specify that the frame should not have a minibuffer,
3054 and do not specify a specific minibuffer window to use,
3055 then `default-minibuffer-frame' must be a frame whose minibuffer can
3056 be shared by the new frame.
3058 This function is an internal primitive--use `make-frame' instead. */)
3062 Lisp_Object frame
, tem
;
3064 int minibuffer_only
= 0;
3065 long window_prompting
= 0;
3067 int count
= SPECPDL_INDEX ();
3068 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3069 Lisp_Object display
;
3070 struct x_display_info
*dpyinfo
= NULL
;
3074 parms
= Fcopy_alist (parms
);
3076 /* Use this general default value to start with
3077 until we know if this frame has a specified name. */
3078 Vx_resource_name
= Vinvocation_name
;
3080 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3081 if (EQ (display
, Qunbound
))
3082 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3083 if (EQ (display
, Qunbound
))
3085 dpyinfo
= check_x_display_info (display
);
3086 kb
= dpyinfo
->terminal
->kboard
;
3088 if (!dpyinfo
->terminal
->name
)
3089 error ("Terminal is not live, can't create new frames on it");
3091 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3093 && ! EQ (name
, Qunbound
)
3095 error ("Invalid frame name--not a string or nil");
3098 Vx_resource_name
= name
;
3100 /* See if parent window is specified. */
3101 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3102 if (EQ (parent
, Qunbound
))
3104 if (! NILP (parent
))
3105 CHECK_NUMBER (parent
);
3107 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3108 /* No need to protect DISPLAY because that's not used after passing
3109 it to make_frame_without_minibuffer. */
3111 GCPRO4 (parms
, parent
, name
, frame
);
3112 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3114 if (EQ (tem
, Qnone
) || NILP (tem
))
3115 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3116 else if (EQ (tem
, Qonly
))
3118 f
= make_minibuffer_frame ();
3119 minibuffer_only
= 1;
3121 else if (WINDOWP (tem
))
3122 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3126 XSETFRAME (frame
, f
);
3128 /* Note that X Windows does support scroll bars. */
3129 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3131 f
->terminal
= dpyinfo
->terminal
;
3132 f
->terminal
->reference_count
++;
3134 f
->output_method
= output_x_window
;
3135 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3136 memset (f
->output_data
.x
, 0, sizeof (struct x_output
));
3137 f
->output_data
.x
->icon_bitmap
= -1;
3138 FRAME_FONTSET (f
) = -1;
3139 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3140 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3141 #ifdef USE_TOOLKIT_SCROLL_BARS
3142 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3143 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3144 #endif /* USE_TOOLKIT_SCROLL_BARS */
3147 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3149 if (! STRINGP (f
->icon_name
))
3150 f
->icon_name
= Qnil
;
3152 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3154 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3155 record_unwind_protect (unwind_create_frame
, frame
);
3157 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
3158 dpyinfo_refcount
= dpyinfo
->reference_count
;
3159 #endif /* GLYPH_DEBUG */
3161 /* These colors will be set anyway later, but it's important
3162 to get the color reference counts right, so initialize them! */
3165 struct gcpro inner_gcpro1
;
3167 /* Function x_decode_color can signal an error. Make
3168 sure to initialize color slots so that we won't try
3169 to free colors we haven't allocated. */
3170 FRAME_FOREGROUND_PIXEL (f
) = -1;
3171 FRAME_BACKGROUND_PIXEL (f
) = -1;
3172 f
->output_data
.x
->cursor_pixel
= -1;
3173 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3174 f
->output_data
.x
->border_pixel
= -1;
3175 f
->output_data
.x
->mouse_pixel
= -1;
3177 black
= build_string ("black");
3178 GCPRO1_VAR (black
, inner_gcpro
);
3179 FRAME_FOREGROUND_PIXEL (f
)
3180 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3181 FRAME_BACKGROUND_PIXEL (f
)
3182 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3183 f
->output_data
.x
->cursor_pixel
3184 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3185 f
->output_data
.x
->cursor_foreground_pixel
3186 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3187 f
->output_data
.x
->border_pixel
3188 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3189 f
->output_data
.x
->mouse_pixel
3190 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3191 UNGCPRO_VAR (inner_gcpro
);
3194 /* Specify the parent under which to make this X window. */
3198 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3199 f
->output_data
.x
->explicit_parent
= 1;
3203 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3204 f
->output_data
.x
->explicit_parent
= 0;
3207 /* Set the name; the functions to which we pass f expect the name to
3209 if (EQ (name
, Qunbound
) || NILP (name
))
3211 f
->name
= build_string (dpyinfo
->x_id_name
);
3212 f
->explicit_name
= 0;
3217 f
->explicit_name
= 1;
3218 /* use the frame's title when getting resources for this frame. */
3219 specbind (Qx_resource_name
, name
);
3222 f
->resx
= dpyinfo
->resx
;
3223 f
->resy
= dpyinfo
->resy
;
3225 #ifdef HAVE_FREETYPE
3227 register_font_driver (&xftfont_driver
, f
);
3228 #else /* not HAVE_XFT */
3229 register_font_driver (&ftxfont_driver
, f
);
3230 #endif /* not HAVE_XFT */
3231 #endif /* HAVE_FREETYPE */
3232 register_font_driver (&xfont_driver
, f
);
3234 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3235 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3237 /* Extract the window parameters from the supplied values
3238 that are needed to determine window geometry. */
3239 x_default_font_parameter (f
, parms
);
3240 if (!FRAME_FONT (f
))
3242 delete_frame (frame
, Qnoelisp
);
3243 error ("Invalid frame font");
3246 /* Frame contents get displaced if an embedded X window has a border. */
3247 if (! FRAME_X_EMBEDDED_P (f
))
3248 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
3249 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3251 /* This defaults to 1 in order to match xterm. We recognize either
3252 internalBorderWidth or internalBorder (which is what xterm calls
3254 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3258 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3259 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3260 if (! EQ (value
, Qunbound
))
3261 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3264 x_default_parameter (f
, parms
, Qinternal_border_width
,
3265 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3270 "internalBorderWidth", "internalBorderWidth",
3272 x_default_parameter (f
, parms
, Qvertical_scroll_bars
,
3273 #if defined(USE_GTK) && defined(USE_TOOLKIT_SCROLL_BARS)
3278 "verticalScrollBars", "ScrollBars",
3281 /* Also do the stuff which must be set before the window exists. */
3282 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3283 "foreground", "Foreground", RES_TYPE_STRING
);
3284 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3285 "background", "Background", RES_TYPE_STRING
);
3286 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3287 "pointerColor", "Foreground", RES_TYPE_STRING
);
3288 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3289 "borderColor", "BorderColor", RES_TYPE_STRING
);
3290 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3291 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3292 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3293 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3294 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3295 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3296 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3297 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3299 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3300 "scrollBarForeground",
3301 "ScrollBarForeground", 1);
3302 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3303 "scrollBarBackground",
3304 "ScrollBarBackground", 0);
3306 /* Init faces before x_default_parameter is called for scroll-bar
3307 parameters because that function calls x_set_scroll_bar_width,
3308 which calls change_frame_size, which calls Fset_window_buffer,
3309 which runs hooks, which call Fvertical_motion. At the end, we
3310 end up in init_iterator with a null face cache, which should not
3312 init_frame_faces (f
);
3314 /* The X resources controlling the menu-bar and tool-bar are
3315 processed specially at startup, and reflected in the mode
3316 variables; ignore them here. */
3317 x_default_parameter (f
, parms
, Qmenu_bar_lines
,
3318 NILP (Vmenu_bar_mode
)
3319 ? make_number (0) : make_number (1),
3320 NULL
, NULL
, RES_TYPE_NUMBER
);
3321 x_default_parameter (f
, parms
, Qtool_bar_lines
,
3322 NILP (Vtool_bar_mode
)
3323 ? make_number (0) : make_number (1),
3324 NULL
, NULL
, RES_TYPE_NUMBER
);
3326 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3327 "bufferPredicate", "BufferPredicate",
3329 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3330 "title", "Title", RES_TYPE_STRING
);
3331 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3332 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3333 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3334 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3335 x_default_parameter (f
, parms
, Qtool_bar_position
,
3336 f
->tool_bar_position
, 0, 0, RES_TYPE_SYMBOL
);
3338 /* Compute the size of the X window. */
3339 window_prompting
= x_figure_window_size (f
, parms
, 1);
3341 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3342 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3344 x_icon_verify (f
, parms
);
3346 /* Create the X widget or window. */
3347 #ifdef USE_X_TOOLKIT
3348 x_window (f
, window_prompting
, minibuffer_only
);
3356 /* Now consider the frame official. */
3357 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3358 Vframe_list
= Fcons (frame
, Vframe_list
);
3360 /* We need to do this after creating the X window, so that the
3361 icon-creation functions can say whose icon they're describing. */
3362 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3363 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3365 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3366 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3367 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3368 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3369 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3370 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3371 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3372 "scrollBarWidth", "ScrollBarWidth",
3374 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3375 "alpha", "Alpha", RES_TYPE_NUMBER
);
3377 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3378 Change will not be effected unless different from the current
3380 width
= FRAME_COLS (f
);
3381 height
= FRAME_LINES (f
);
3383 SET_FRAME_COLS (f
, 0);
3384 FRAME_LINES (f
) = 0;
3385 change_frame_size (f
, height
, width
, 1, 0, 0);
3387 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3388 /* Create the menu bar. */
3389 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3391 /* If this signals an error, we haven't set size hints for the
3392 frame and we didn't make it visible. */
3393 initialize_frame_menubar (f
);
3396 /* This is a no-op, except under Motif where it arranges the
3397 main window for the widgets on it. */
3398 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3399 f
->output_data
.x
->menubar_widget
,
3400 f
->output_data
.x
->edit_widget
);
3401 #endif /* not USE_GTK */
3403 #endif /* USE_X_TOOLKIT || USE_GTK */
3405 /* Tell the server what size and position, etc, we want, and how
3406 badly we want them. This should be done after we have the menu
3407 bar so that its size can be taken into account. */
3409 x_wm_set_size_hint (f
, window_prompting
, 0);
3412 /* Make the window appear on the frame and enable display, unless
3413 the caller says not to. However, with explicit parent, Emacs
3414 cannot control visibility, so don't try. */
3415 if (! f
->output_data
.x
->explicit_parent
)
3417 Lisp_Object visibility
;
3419 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3421 if (EQ (visibility
, Qunbound
))
3424 if (EQ (visibility
, Qicon
))
3425 x_iconify_frame (f
);
3426 else if (! NILP (visibility
))
3427 x_make_frame_visible (f
);
3430 /* Must have been Qnil. */
3436 /* Set machine name and pid for the purpose of window managers. */
3437 set_machine_and_pid_properties(f
);
3439 /* Set the WM leader property. GTK does this itself, so this is not
3440 needed when using GTK. */
3441 if (dpyinfo
->client_leader_window
!= 0)
3443 XChangeProperty (FRAME_X_DISPLAY (f
),
3444 FRAME_OUTER_WINDOW (f
),
3445 dpyinfo
->Xatom_wm_client_leader
,
3446 XA_WINDOW
, 32, PropModeReplace
,
3447 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3452 /* Initialize `default-minibuffer-frame' in case this is the first
3453 frame on this terminal. */
3454 if (FRAME_HAS_MINIBUF_P (f
)
3455 && (!FRAMEP (KVAR (kb
, Vdefault_minibuffer_frame
))
3456 || !FRAME_LIVE_P (XFRAME (KVAR (kb
, Vdefault_minibuffer_frame
)))))
3457 KVAR (kb
, Vdefault_minibuffer_frame
) = frame
;
3459 /* All remaining specified parameters, which have not been "used"
3460 by x_get_arg and friends, now go in the misc. alist of the frame. */
3461 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3462 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3463 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3467 /* Make sure windows on this frame appear in calls to next-window
3468 and similar functions. */
3469 Vwindow_list
= Qnil
;
3471 return unbind_to (count
, frame
);
3475 /* FRAME is used only to get a handle on the X display. We don't pass the
3476 display info directly because we're called from frame.c, which doesn't
3477 know about that structure. */
3480 x_get_focus_frame (struct frame
*frame
)
3482 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3484 if (! dpyinfo
->x_focus_frame
)
3487 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3492 /* In certain situations, when the window manager follows a
3493 click-to-focus policy, there seems to be no way around calling
3494 XSetInputFocus to give another frame the input focus .
3496 In an ideal world, XSetInputFocus should generally be avoided so
3497 that applications don't interfere with the window manager's focus
3498 policy. But I think it's okay to use when it's clearly done
3499 following a user-command. */
3501 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3502 doc
: /* Set the input focus to FRAME.
3503 FRAME nil means use the selected frame. */)
3506 struct frame
*f
= check_x_frame (frame
);
3507 Display
*dpy
= FRAME_X_DISPLAY (f
);
3510 x_catch_errors (dpy
);
3511 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3512 RevertToParent
, CurrentTime
);
3513 x_ewmh_activate_frame (f
);
3514 x_uncatch_errors ();
3521 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3522 doc
: /* Internal function called by `color-defined-p', which see
3523 .\(Note that the Nextstep version of this function ignores FRAME.) */)
3524 (Lisp_Object color
, Lisp_Object frame
)
3527 FRAME_PTR f
= check_x_frame (frame
);
3529 CHECK_STRING (color
);
3531 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3537 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3538 doc
: /* Internal function called by `color-values', which see. */)
3539 (Lisp_Object color
, Lisp_Object frame
)
3542 FRAME_PTR f
= check_x_frame (frame
);
3544 CHECK_STRING (color
);
3546 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3547 return list3 (make_number (foo
.red
),
3548 make_number (foo
.green
),
3549 make_number (foo
.blue
));
3554 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3555 doc
: /* Internal function called by `display-color-p', which see. */)
3556 (Lisp_Object terminal
)
3558 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3560 if (dpyinfo
->n_planes
<= 2)
3563 switch (dpyinfo
->visual
->class)
3576 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3578 doc
: /* Return t if the X display supports shades of gray.
3579 Note that color displays do support shades of gray.
3580 The optional argument TERMINAL specifies which display to ask about.
3581 TERMINAL should be a terminal object, a frame or a display name (a string).
3582 If omitted or nil, that stands for the selected frame's display. */)
3583 (Lisp_Object terminal
)
3585 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3587 if (dpyinfo
->n_planes
<= 1)
3590 switch (dpyinfo
->visual
->class)
3605 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3607 doc
: /* Return the width in pixels of the X display TERMINAL.
3608 The optional argument TERMINAL specifies which display to ask about.
3609 TERMINAL should be a terminal object, a frame or a display name (a string).
3610 If omitted or nil, that stands for the selected frame's display. */)
3611 (Lisp_Object terminal
)
3613 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3615 return make_number (x_display_pixel_width (dpyinfo
));
3618 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3619 Sx_display_pixel_height
, 0, 1, 0,
3620 doc
: /* Return the height in pixels of the X display TERMINAL.
3621 The optional argument TERMINAL specifies which display to ask about.
3622 TERMINAL should be a terminal object, a frame or a display name (a string).
3623 If omitted or nil, that stands for the selected frame's display. */)
3624 (Lisp_Object terminal
)
3626 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3628 return make_number (x_display_pixel_height (dpyinfo
));
3631 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3633 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3634 The optional argument TERMINAL specifies which display to ask about.
3635 TERMINAL should be a terminal object, a frame or a display name (a string).
3636 If omitted or nil, that stands for the selected frame's display. */)
3637 (Lisp_Object terminal
)
3639 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3641 return make_number (dpyinfo
->n_planes
);
3644 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3646 doc
: /* Return the number of color cells of the X display TERMINAL.
3647 The optional argument TERMINAL specifies which display to ask about.
3648 TERMINAL should be a terminal object, a frame or a display name (a string).
3649 If omitted or nil, that stands for the selected frame's display. */)
3650 (Lisp_Object terminal
)
3652 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3654 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3655 XScreenNumberOfScreen (dpyinfo
->screen
));
3657 /* Truncate nr_planes to 24 to avoid integer overflow.
3658 Some displays says 32, but only 24 bits are actually significant.
3659 There are only very few and rare video cards that have more than
3660 24 significant bits. Also 24 bits is more than 16 million colors,
3661 it "should be enough for everyone". */
3662 if (nr_planes
> 24) nr_planes
= 24;
3664 return make_number (1 << nr_planes
);
3667 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3668 Sx_server_max_request_size
,
3670 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3671 The optional argument TERMINAL specifies which display to ask about.
3672 TERMINAL should be a terminal object, a frame or a display name (a string).
3673 If omitted or nil, that stands for the selected frame's display. */)
3674 (Lisp_Object terminal
)
3676 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3678 return make_number (MAXREQUEST (dpyinfo
->display
));
3681 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3682 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3683 \(Labelling every distributor as a "vendor" embodies the false assumption
3684 that operating systems cannot be developed and distributed noncommercially.)
3685 The optional argument TERMINAL specifies which display to ask about.
3686 TERMINAL should be a terminal object, a frame or a display name (a string).
3687 If omitted or nil, that stands for the selected frame's display. */)
3688 (Lisp_Object terminal
)
3690 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3691 const char *vendor
= ServerVendor (dpyinfo
->display
);
3693 if (! vendor
) vendor
= "";
3694 return build_string (vendor
);
3697 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3698 doc
: /* Return the version numbers of the X server of display TERMINAL.
3699 The value is a list of three integers: the major and minor
3700 version numbers of the X Protocol in use, and the distributor-specific release
3701 number. See also the function `x-server-vendor'.
3703 The optional argument TERMINAL specifies which display to ask about.
3704 TERMINAL should be a terminal object, a frame or a display name (a string).
3705 If omitted or nil, that stands for the selected frame's display. */)
3706 (Lisp_Object terminal
)
3708 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3709 Display
*dpy
= dpyinfo
->display
;
3711 return Fcons (make_number (ProtocolVersion (dpy
)),
3712 Fcons (make_number (ProtocolRevision (dpy
)),
3713 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3716 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3717 doc
: /* Return the number of screens on the X server of display TERMINAL.
3718 The optional argument TERMINAL specifies which display to ask about.
3719 TERMINAL should be a terminal object, a frame or a display name (a string).
3720 If omitted or nil, that stands for the selected frame's display. */)
3721 (Lisp_Object terminal
)
3723 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3725 return make_number (ScreenCount (dpyinfo
->display
));
3728 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3729 doc
: /* Return the height in millimeters of the X display TERMINAL.
3730 The optional argument TERMINAL specifies which display to ask about.
3731 TERMINAL should be a terminal object, a frame or a display name (a string).
3732 If omitted or nil, that stands for the selected frame's display. */)
3733 (Lisp_Object terminal
)
3735 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3737 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3740 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3741 doc
: /* Return the width in millimeters of the X display TERMINAL.
3742 The optional argument TERMINAL specifies which display to ask about.
3743 TERMINAL should be a terminal object, a frame or a display name (a string).
3744 If omitted or nil, that stands for the selected frame's display. */)
3745 (Lisp_Object terminal
)
3747 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3749 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3752 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3753 Sx_display_backing_store
, 0, 1, 0,
3754 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3755 The value may be `always', `when-mapped', or `not-useful'.
3756 The optional argument TERMINAL specifies which display to ask about.
3757 TERMINAL should be a terminal object, a frame or a display name (a string).
3758 If omitted or nil, that stands for the selected frame's display. */)
3759 (Lisp_Object terminal
)
3761 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3764 switch (DoesBackingStore (dpyinfo
->screen
))
3767 result
= intern ("always");
3771 result
= intern ("when-mapped");
3775 result
= intern ("not-useful");
3779 error ("Strange value for BackingStore parameter of screen");
3786 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3787 Sx_display_visual_class
, 0, 1, 0,
3788 doc
: /* Return the visual class of the X display TERMINAL.
3789 The value is one of the symbols `static-gray', `gray-scale',
3790 `static-color', `pseudo-color', `true-color', or `direct-color'.
3792 The optional argument TERMINAL specifies which display to ask about.
3793 TERMINAL should a terminal object, a frame or a display name (a string).
3794 If omitted or nil, that stands for the selected frame's display. */)
3795 (Lisp_Object terminal
)
3797 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3800 switch (dpyinfo
->visual
->class)
3803 result
= intern ("static-gray");
3806 result
= intern ("gray-scale");
3809 result
= intern ("static-color");
3812 result
= intern ("pseudo-color");
3815 result
= intern ("true-color");
3818 result
= intern ("direct-color");
3821 error ("Display has an unknown visual class");
3828 DEFUN ("x-display-save-under", Fx_display_save_under
,
3829 Sx_display_save_under
, 0, 1, 0,
3830 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3831 The optional argument TERMINAL specifies which display to ask about.
3832 TERMINAL should be a terminal object, a frame or a display name (a string).
3833 If omitted or nil, that stands for the selected frame's display. */)
3834 (Lisp_Object terminal
)
3836 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3838 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3845 x_pixel_width (register struct frame
*f
)
3847 return FRAME_PIXEL_WIDTH (f
);
3851 x_pixel_height (register struct frame
*f
)
3853 return FRAME_PIXEL_HEIGHT (f
);
3857 x_char_width (register struct frame
*f
)
3859 return FRAME_COLUMN_WIDTH (f
);
3863 x_char_height (register struct frame
*f
)
3865 return FRAME_LINE_HEIGHT (f
);
3870 /************************************************************************
3872 ************************************************************************/
3875 /* Mapping visual names to visuals. */
3877 static struct visual_class
3884 {"StaticGray", StaticGray
},
3885 {"GrayScale", GrayScale
},
3886 {"StaticColor", StaticColor
},
3887 {"PseudoColor", PseudoColor
},
3888 {"TrueColor", TrueColor
},
3889 {"DirectColor", DirectColor
},
3894 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3896 /* Value is the screen number of screen SCR. This is a substitute for
3897 the X function with the same name when that doesn't exist. */
3900 XScreenNumberOfScreen (scr
)
3901 register Screen
*scr
;
3903 Display
*dpy
= scr
->display
;
3906 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3907 if (scr
== dpy
->screens
+ i
)
3913 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3916 /* Select the visual that should be used on display DPYINFO. Set
3917 members of DPYINFO appropriately. Called from x_term_init. */
3920 select_visual (struct x_display_info
*dpyinfo
)
3922 Display
*dpy
= dpyinfo
->display
;
3923 Screen
*screen
= dpyinfo
->screen
;
3926 /* See if a visual is specified. */
3927 value
= display_x_get_resource (dpyinfo
,
3928 build_string ("visualClass"),
3929 build_string ("VisualClass"),
3931 if (STRINGP (value
))
3933 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3934 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3935 depth, a decimal number. NAME is compared with case ignored. */
3936 char *s
= (char *) alloca (SBYTES (value
) + 1);
3941 strcpy (s
, SSDATA (value
));
3942 dash
= strchr (s
, '-');
3945 dpyinfo
->n_planes
= atoi (dash
+ 1);
3949 /* We won't find a matching visual with depth 0, so that
3950 an error will be printed below. */
3951 dpyinfo
->n_planes
= 0;
3953 /* Determine the visual class. */
3954 for (i
= 0; visual_classes
[i
].name
; ++i
)
3955 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
3957 class = visual_classes
[i
].class;
3961 /* Look up a matching visual for the specified class. */
3963 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
3964 dpyinfo
->n_planes
, class, &vinfo
))
3965 fatal ("Invalid visual specification `%s'", SDATA (value
));
3967 dpyinfo
->visual
= vinfo
.visual
;
3972 XVisualInfo
*vinfo
, vinfo_template
;
3974 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
3976 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
3977 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
3978 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
3979 &vinfo_template
, &n_visuals
);
3981 fatal ("Can't get proper X visual info");
3983 dpyinfo
->n_planes
= vinfo
->depth
;
3984 XFree ((char *) vinfo
);
3989 /* Return the X display structure for the display named NAME.
3990 Open a new connection if necessary. */
3992 static struct x_display_info
*
3993 x_display_info_for_name (Lisp_Object name
)
3996 struct x_display_info
*dpyinfo
;
3998 CHECK_STRING (name
);
4001 if (! EQ (Vinitial_window_system
, intern ("x")))
4002 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4005 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4007 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4010 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4015 /* Use this general default value to start with. */
4016 Vx_resource_name
= Vinvocation_name
;
4018 validate_x_resource_name ();
4020 dpyinfo
= x_term_init (name
, (char *)0,
4021 SSDATA (Vx_resource_name
));
4024 error ("Cannot connect to X server %s", SDATA (name
));
4027 XSETFASTINT (Vwindow_system_version
, 11);
4033 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4035 doc
: /* Open a connection to a display server.
4036 DISPLAY is the name of the display to connect to.
4037 Optional second arg XRM-STRING is a string of resources in xrdb format.
4038 If the optional third arg MUST-SUCCEED is non-nil,
4039 terminate Emacs if we can't open the connection.
4040 \(In the Nextstep version, the last two arguments are currently ignored.) */)
4041 (Lisp_Object display
, Lisp_Object xrm_string
, Lisp_Object must_succeed
)
4044 struct x_display_info
*dpyinfo
;
4046 CHECK_STRING (display
);
4047 if (! NILP (xrm_string
))
4048 CHECK_STRING (xrm_string
);
4051 if (! EQ (Vinitial_window_system
, intern ("x")))
4052 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4055 if (! NILP (xrm_string
))
4056 xrm_option
= SSDATA (xrm_string
);
4058 xrm_option
= (char *) 0;
4060 validate_x_resource_name ();
4062 /* This is what opens the connection and sets x_current_display.
4063 This also initializes many symbols, such as those used for input. */
4064 dpyinfo
= x_term_init (display
, xrm_option
,
4065 SSDATA (Vx_resource_name
));
4069 if (!NILP (must_succeed
))
4070 fatal ("Cannot connect to X server %s.\n\
4071 Check the DISPLAY environment variable or use `-d'.\n\
4072 Also use the `xauth' program to verify that you have the proper\n\
4073 authorization information needed to connect the X server.\n\
4074 An insecure way to solve the problem may be to use `xhost'.\n",
4077 error ("Cannot connect to X server %s", SDATA (display
));
4082 XSETFASTINT (Vwindow_system_version
, 11);
4086 DEFUN ("x-close-connection", Fx_close_connection
,
4087 Sx_close_connection
, 1, 1, 0,
4088 doc
: /* Close the connection to TERMINAL's X server.
4089 For TERMINAL, specify a terminal object, a frame or a display name (a
4090 string). If TERMINAL is nil, that stands for the selected frame's
4092 (Lisp_Object terminal
)
4094 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4096 if (dpyinfo
->reference_count
> 0)
4097 error ("Display still has frames on it");
4099 x_delete_terminal (dpyinfo
->terminal
);
4104 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4105 doc
: /* Return the list of display names that Emacs has connections to. */)
4108 Lisp_Object tail
, result
;
4111 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4112 result
= Fcons (XCAR (XCAR (tail
)), result
);
4117 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4118 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4119 This function only has an effect on X Windows. With MS Windows, it is
4120 defined but does nothing.
4122 If ON is nil, allow buffering of requests.
4123 Turning on synchronization prohibits the Xlib routines from buffering
4124 requests and seriously degrades performance, but makes debugging much
4126 The optional second argument TERMINAL specifies which display to act on.
4127 TERMINAL should be a terminal object, a frame or a display name (a string).
4128 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4129 (Lisp_Object on
, Lisp_Object terminal
)
4131 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4133 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4138 /* Wait for responses to all X commands issued so far for frame F. */
4141 x_sync (FRAME_PTR f
)
4144 XSync (FRAME_X_DISPLAY (f
), False
);
4149 /***********************************************************************
4151 ***********************************************************************/
4153 DEFUN ("x-change-window-property", Fx_change_window_property
,
4154 Sx_change_window_property
, 2, 6, 0,
4155 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4156 PROP must be a string. VALUE may be a string or a list of conses,
4157 numbers and/or strings. If an element in the list is a string, it is
4158 converted to an atom and the value of the atom is used. If an element
4159 is a cons, it is converted to a 32 bit number where the car is the 16
4160 top bits and the cdr is the lower 16 bits.
4162 FRAME nil or omitted means use the selected frame.
4163 If TYPE is given and non-nil, it is the name of the type of VALUE.
4164 If TYPE is not given or nil, the type is STRING.
4165 FORMAT gives the size in bits of each element if VALUE is a list.
4166 It must be one of 8, 16 or 32.
4167 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4168 If OUTER_P is non-nil, the property is changed for the outer X window of
4169 FRAME. Default is to change on the edit X window. */)
4170 (Lisp_Object prop
, Lisp_Object value
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4172 struct frame
*f
= check_x_frame (frame
);
4174 Atom target_type
= XA_STRING
;
4175 int element_format
= 8;
4176 unsigned char *data
;
4180 CHECK_STRING (prop
);
4182 if (! NILP (format
))
4184 CHECK_NUMBER (format
);
4185 element_format
= XFASTINT (format
);
4187 if (element_format
!= 8 && element_format
!= 16
4188 && element_format
!= 32)
4189 error ("FORMAT must be one of 8, 16 or 32");
4194 nelements
= x_check_property_data (value
);
4195 if (nelements
== -1)
4196 error ("Bad data in VALUE, must be number, string or cons");
4198 if (element_format
== 8)
4199 data
= (unsigned char *) xmalloc (nelements
);
4200 else if (element_format
== 16)
4201 data
= (unsigned char *) xmalloc (nelements
*2);
4202 else /* format == 32 */
4203 /* The man page for XChangeProperty:
4204 "If the specified format is 32, the property data must be a
4206 This applies even if long is more than 64 bits. The X library
4207 converts to 32 bits before sending to the X server. */
4208 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4210 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4214 CHECK_STRING (value
);
4215 data
= SDATA (value
);
4216 nelements
= SCHARS (value
);
4220 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4223 CHECK_STRING (type
);
4224 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4227 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4228 else w
= FRAME_X_WINDOW (f
);
4230 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4231 prop_atom
, target_type
, element_format
, PropModeReplace
,
4234 if (CONSP (value
)) xfree (data
);
4236 /* Make sure the property is set when we return. */
4237 XFlush (FRAME_X_DISPLAY (f
));
4244 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4245 Sx_delete_window_property
, 1, 2, 0,
4246 doc
: /* Remove window property PROP from X window of FRAME.
4247 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4248 (Lisp_Object prop
, Lisp_Object frame
)
4250 struct frame
*f
= check_x_frame (frame
);
4253 CHECK_STRING (prop
);
4255 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4256 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4258 /* Make sure the property is removed when we return. */
4259 XFlush (FRAME_X_DISPLAY (f
));
4266 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4268 doc
: /* Value is the value of window property PROP on FRAME.
4269 If FRAME is nil or omitted, use the selected frame.
4271 On MS Windows, this function only accepts the PROP and FRAME arguments.
4273 On X Windows, the following optional arguments are also accepted:
4274 If TYPE is nil or omitted, get the property as a string.
4275 Otherwise TYPE is the name of the atom that denotes the type expected.
4276 If SOURCE is non-nil, get the property on that window instead of from
4277 FRAME. The number 0 denotes the root window.
4278 If DELETE_P is non-nil, delete the property after retreiving it.
4279 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4281 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4282 no value of TYPE (always string in the MS Windows case). */)
4283 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4285 struct frame
*f
= check_x_frame (frame
);
4288 Lisp_Object prop_value
= Qnil
;
4289 unsigned char *tmp_data
= NULL
;
4291 Atom target_type
= XA_STRING
;
4293 unsigned long actual_size
, bytes_remaining
;
4294 Window target_window
= FRAME_X_WINDOW (f
);
4295 struct gcpro gcpro1
;
4297 GCPRO1 (prop_value
);
4298 CHECK_STRING (prop
);
4300 if (! NILP (source
))
4302 if (NUMBERP (source
))
4304 if (FLOATP (source
))
4305 target_window
= (Window
) XFLOAT (source
);
4307 target_window
= XFASTINT (source
);
4309 if (target_window
== 0)
4310 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4312 else if (CONSP (source
))
4313 target_window
= cons_to_long (source
);
4319 if (strcmp ("AnyPropertyType", SSDATA (type
)) == 0)
4320 target_type
= AnyPropertyType
;
4322 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4325 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4326 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4327 prop_atom
, 0, 0, False
, target_type
,
4328 &actual_type
, &actual_format
, &actual_size
,
4329 &bytes_remaining
, &tmp_data
);
4332 int size
= bytes_remaining
;
4337 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4338 prop_atom
, 0, bytes_remaining
,
4339 ! NILP (delete_p
), target_type
,
4340 &actual_type
, &actual_format
,
4341 &actual_size
, &bytes_remaining
,
4343 if (rc
== Success
&& tmp_data
)
4345 /* The man page for XGetWindowProperty says:
4346 "If the returned format is 32, the returned data is represented
4347 as a long array and should be cast to that type to obtain the
4349 This applies even if long is more than 32 bits, the X library
4350 converts from 32 bit elements received from the X server to long
4351 and passes the long array to us. Thus, for that case memcpy can not
4352 be used. We convert to a 32 bit type here, because so much code
4355 The bytes and offsets passed to XGetWindowProperty refers to the
4356 property and those are indeed in 32 bit quantities if format is
4359 if (32 < BITS_PER_LONG
&& actual_format
== 32)
4362 int *idata
= (int *) tmp_data
;
4363 long *ldata
= (long *) tmp_data
;
4365 for (i
= 0; i
< actual_size
; ++i
)
4366 idata
[i
] = (int) ldata
[i
];
4369 if (NILP (vector_ret_p
))
4370 prop_value
= make_string ((char *) tmp_data
, size
);
4372 prop_value
= x_property_data_to_lisp (f
,
4379 if (tmp_data
) XFree (tmp_data
);
4389 /***********************************************************************
4391 ***********************************************************************/
4393 /* Timer function of hourglass_atimer. TIMER is equal to
4396 Display an hourglass pointer on all frames by mapping the frames'
4397 hourglass_window. Set the hourglass_p flag in the frames'
4398 output_data.x structure to indicate that an hourglass cursor is
4399 shown on the frames. */
4402 show_hourglass (struct atimer
*timer
)
4404 /* The timer implementation will cancel this timer automatically
4405 after this function has run. Set hourglass_atimer to null
4406 so that we know the timer doesn't have to be canceled. */
4407 hourglass_atimer
= NULL
;
4409 if (!hourglass_shown_p
)
4411 Lisp_Object rest
, frame
;
4415 FOR_EACH_FRAME (rest
, frame
)
4417 struct frame
*f
= XFRAME (frame
);
4419 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4421 Display
*dpy
= FRAME_X_DISPLAY (f
);
4423 #ifdef USE_X_TOOLKIT
4424 if (f
->output_data
.x
->widget
)
4426 if (FRAME_OUTER_WINDOW (f
))
4429 f
->output_data
.x
->hourglass_p
= 1;
4431 if (!f
->output_data
.x
->hourglass_window
)
4433 unsigned long mask
= CWCursor
;
4434 XSetWindowAttributes attrs
;
4436 Window parent
= FRAME_X_WINDOW (f
);
4438 Window parent
= FRAME_OUTER_WINDOW (f
);
4440 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4442 f
->output_data
.x
->hourglass_window
4443 = XCreateWindow (dpy
, parent
,
4444 0, 0, 32000, 32000, 0, 0,
4450 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4456 hourglass_shown_p
= 1;
4462 /* Hide the hourglass pointer on all frames, if it is currently
4466 hide_hourglass (void)
4468 if (hourglass_shown_p
)
4470 Lisp_Object rest
, frame
;
4473 FOR_EACH_FRAME (rest
, frame
)
4475 struct frame
*f
= XFRAME (frame
);
4478 /* Watch out for newly created frames. */
4479 && f
->output_data
.x
->hourglass_window
)
4481 XUnmapWindow (FRAME_X_DISPLAY (f
),
4482 f
->output_data
.x
->hourglass_window
);
4483 /* Sync here because XTread_socket looks at the
4484 hourglass_p flag that is reset to zero below. */
4485 XSync (FRAME_X_DISPLAY (f
), False
);
4486 f
->output_data
.x
->hourglass_p
= 0;
4490 hourglass_shown_p
= 0;
4497 /***********************************************************************
4499 ***********************************************************************/
4501 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4502 Lisp_Object
, Lisp_Object
);
4503 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4504 Lisp_Object
, int, int, int *, int *);
4506 /* The frame of a currently visible tooltip. */
4508 Lisp_Object tip_frame
;
4510 /* If non-nil, a timer started that hides the last tooltip when it
4513 static Lisp_Object tip_timer
;
4516 /* If non-nil, a vector of 3 elements containing the last args
4517 with which x-show-tip was called. See there. */
4519 static Lisp_Object last_show_tip_args
;
4523 unwind_create_tip_frame (Lisp_Object frame
)
4525 Lisp_Object deleted
;
4527 deleted
= unwind_create_frame (frame
);
4528 if (EQ (deleted
, Qt
))
4538 /* Create a frame for a tooltip on the display described by DPYINFO.
4539 PARMS is a list of frame parameters. TEXT is the string to
4540 display in the tip frame. Value is the frame.
4542 Note that functions called here, esp. x_default_parameter can
4543 signal errors, for instance when a specified color name is
4544 undefined. We have to make sure that we're in a consistent state
4545 when this happens. */
4548 x_create_tip_frame (struct x_display_info
*dpyinfo
,
4556 int count
= SPECPDL_INDEX ();
4557 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4558 int face_change_count_before
= face_change_count
;
4560 struct buffer
*old_buffer
;
4564 if (!dpyinfo
->terminal
->name
)
4565 error ("Terminal is not live, can't create new frames on it");
4567 parms
= Fcopy_alist (parms
);
4569 /* Get the name of the frame to use for resource lookup. */
4570 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4572 && !EQ (name
, Qunbound
)
4574 error ("Invalid frame name--not a string or nil");
4577 GCPRO3 (parms
, name
, frame
);
4579 XSETFRAME (frame
, f
);
4581 buffer
= Fget_buffer_create (build_string (" *tip*"));
4582 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4583 old_buffer
= current_buffer
;
4584 set_buffer_internal_1 (XBUFFER (buffer
));
4585 BVAR (current_buffer
, truncate_lines
) = Qnil
;
4586 specbind (Qinhibit_read_only
, Qt
);
4587 specbind (Qinhibit_modification_hooks
, Qt
);
4590 set_buffer_internal_1 (old_buffer
);
4592 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4593 record_unwind_protect (unwind_create_tip_frame
, frame
);
4595 f
->terminal
= dpyinfo
->terminal
;
4596 f
->terminal
->reference_count
++;
4598 /* By setting the output method, we're essentially saying that
4599 the frame is live, as per FRAME_LIVE_P. If we get a signal
4600 from this point on, x_destroy_window might screw up reference
4602 f
->output_method
= output_x_window
;
4603 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4604 memset (f
->output_data
.x
, 0, sizeof (struct x_output
));
4605 f
->output_data
.x
->icon_bitmap
= -1;
4606 FRAME_FONTSET (f
) = -1;
4607 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4608 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4609 #ifdef USE_TOOLKIT_SCROLL_BARS
4610 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4611 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4612 #endif /* USE_TOOLKIT_SCROLL_BARS */
4613 f
->icon_name
= Qnil
;
4614 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4616 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
4617 dpyinfo_refcount
= dpyinfo
->reference_count
;
4618 #endif /* GLYPH_DEBUG */
4619 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4620 f
->output_data
.x
->explicit_parent
= 0;
4622 /* These colors will be set anyway later, but it's important
4623 to get the color reference counts right, so initialize them! */
4626 struct gcpro inner_gcpro1
;
4628 /* Function x_decode_color can signal an error. Make
4629 sure to initialize color slots so that we won't try
4630 to free colors we haven't allocated. */
4631 FRAME_FOREGROUND_PIXEL (f
) = -1;
4632 FRAME_BACKGROUND_PIXEL (f
) = -1;
4633 f
->output_data
.x
->cursor_pixel
= -1;
4634 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4635 f
->output_data
.x
->border_pixel
= -1;
4636 f
->output_data
.x
->mouse_pixel
= -1;
4638 black
= build_string ("black");
4639 GCPRO1_VAR (black
, inner_gcpro
);
4640 FRAME_FOREGROUND_PIXEL (f
)
4641 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4642 FRAME_BACKGROUND_PIXEL (f
)
4643 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4644 f
->output_data
.x
->cursor_pixel
4645 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4646 f
->output_data
.x
->cursor_foreground_pixel
4647 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4648 f
->output_data
.x
->border_pixel
4649 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4650 f
->output_data
.x
->mouse_pixel
4651 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4652 UNGCPRO_VAR (inner_gcpro
);
4655 /* Set the name; the functions to which we pass f expect the name to
4657 if (EQ (name
, Qunbound
) || NILP (name
))
4659 f
->name
= build_string (dpyinfo
->x_id_name
);
4660 f
->explicit_name
= 0;
4665 f
->explicit_name
= 1;
4666 /* use the frame's title when getting resources for this frame. */
4667 specbind (Qx_resource_name
, name
);
4670 f
->resx
= dpyinfo
->resx
;
4671 f
->resy
= dpyinfo
->resy
;
4673 register_font_driver (&xfont_driver
, f
);
4674 #ifdef HAVE_FREETYPE
4676 register_font_driver (&xftfont_driver
, f
);
4677 #else /* not HAVE_XFT */
4678 register_font_driver (&ftxfont_driver
, f
);
4679 #endif /* not HAVE_XFT */
4680 #endif /* HAVE_FREETYPE */
4682 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4683 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4685 /* Extract the window parameters from the supplied values that are
4686 needed to determine window geometry. */
4687 x_default_font_parameter (f
, parms
);
4689 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
4690 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4692 /* This defaults to 2 in order to match xterm. We recognize either
4693 internalBorderWidth or internalBorder (which is what xterm calls
4695 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4699 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4700 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4701 if (! EQ (value
, Qunbound
))
4702 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4706 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4707 "internalBorderWidth", "internalBorderWidth",
4710 /* Also do the stuff which must be set before the window exists. */
4711 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4712 "foreground", "Foreground", RES_TYPE_STRING
);
4713 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4714 "background", "Background", RES_TYPE_STRING
);
4715 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4716 "pointerColor", "Foreground", RES_TYPE_STRING
);
4717 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4718 "cursorColor", "Foreground", RES_TYPE_STRING
);
4719 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4720 "borderColor", "BorderColor", RES_TYPE_STRING
);
4722 /* Init faces before x_default_parameter is called for scroll-bar
4723 parameters because that function calls x_set_scroll_bar_width,
4724 which calls change_frame_size, which calls Fset_window_buffer,
4725 which runs hooks, which call Fvertical_motion. At the end, we
4726 end up in init_iterator with a null face cache, which should not
4728 init_frame_faces (f
);
4730 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4732 x_figure_window_size (f
, parms
, 0);
4735 XSetWindowAttributes attrs
;
4737 Atom type
= FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
4740 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4741 if (DoesSaveUnders (dpyinfo
->screen
))
4742 mask
|= CWSaveUnder
;
4744 /* Window managers look at the override-redirect flag to determine
4745 whether or net to give windows a decoration (Xlib spec, chapter
4747 attrs
.override_redirect
= True
;
4748 attrs
.save_under
= True
;
4749 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4750 /* Arrange for getting MapNotify and UnmapNotify events. */
4751 attrs
.event_mask
= StructureNotifyMask
;
4753 = FRAME_X_WINDOW (f
)
4754 = XCreateWindow (FRAME_X_DISPLAY (f
),
4755 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4756 /* x, y, width, height */
4760 CopyFromParent
, InputOutput
, CopyFromParent
,
4762 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
4763 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type
,
4764 XA_ATOM
, 32, PropModeReplace
,
4765 (unsigned char *)&type
, 1);
4771 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4772 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4773 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4774 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4775 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4776 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4778 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4779 Change will not be effected unless different from the current
4781 width
= FRAME_COLS (f
);
4782 height
= FRAME_LINES (f
);
4783 SET_FRAME_COLS (f
, 0);
4784 FRAME_LINES (f
) = 0;
4785 change_frame_size (f
, height
, width
, 1, 0, 0);
4787 /* Add `tooltip' frame parameter's default value. */
4788 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
4789 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qtooltip
, Qt
), Qnil
));
4791 /* FIXME - can this be done in a similar way to normal frames?
4792 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
4794 /* Set the `display-type' frame parameter before setting up faces. */
4796 Lisp_Object disptype
;
4798 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4799 disptype
= intern ("mono");
4800 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
4801 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4802 disptype
= intern ("grayscale");
4804 disptype
= intern ("color");
4806 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4807 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4811 /* Set up faces after all frame parameters are known. This call
4812 also merges in face attributes specified for new frames.
4814 Frame parameters may be changed if .Xdefaults contains
4815 specifications for the default font. For example, if there is an
4816 `Emacs.default.attributeBackground: pink', the `background-color'
4817 attribute of the frame get's set, which let's the internal border
4818 of the tooltip frame appear in pink. Prevent this. */
4820 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4822 /* Set tip_frame here, so that */
4824 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
4826 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4827 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4835 /* It is now ok to make the frame official even if we get an error
4836 below. And the frame needs to be on Vframe_list or making it
4837 visible won't work. */
4838 Vframe_list
= Fcons (frame
, Vframe_list
);
4840 /* Now that the frame is official, it counts as a reference to
4842 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4844 /* Setting attributes of faces of the tooltip frame from resources
4845 and similar will increment face_change_count, which leads to the
4846 clearing of all current matrices. Since this isn't necessary
4847 here, avoid it by resetting face_change_count to the value it
4848 had before we created the tip frame. */
4849 face_change_count
= face_change_count_before
;
4851 /* Discard the unwind_protect. */
4852 return unbind_to (count
, frame
);
4856 /* Compute where to display tip frame F. PARMS is the list of frame
4857 parameters for F. DX and DY are specified offsets from the current
4858 location of the mouse. WIDTH and HEIGHT are the width and height
4859 of the tooltip. Return coordinates relative to the root window of
4860 the display in *ROOT_X, and *ROOT_Y. */
4863 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
)
4865 Lisp_Object left
, top
;
4870 /* User-specified position? */
4871 left
= Fcdr (Fassq (Qleft
, parms
));
4872 top
= Fcdr (Fassq (Qtop
, parms
));
4874 /* Move the tooltip window where the mouse pointer is. Resize and
4876 if (!INTEGERP (left
) || !INTEGERP (top
))
4879 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4880 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4885 *root_y
= XINT (top
);
4886 else if (*root_y
+ XINT (dy
) <= 0)
4887 *root_y
= 0; /* Can happen for negative dy */
4888 else if (*root_y
+ XINT (dy
) + height
4889 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
4890 /* It fits below the pointer */
4891 *root_y
+= XINT (dy
);
4892 else if (height
+ XINT (dy
) <= *root_y
)
4893 /* It fits above the pointer. */
4894 *root_y
-= height
+ XINT (dy
);
4896 /* Put it on the top. */
4899 if (INTEGERP (left
))
4900 *root_x
= XINT (left
);
4901 else if (*root_x
+ XINT (dx
) <= 0)
4902 *root_x
= 0; /* Can happen for negative dx */
4903 else if (*root_x
+ XINT (dx
) + width
4904 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
4905 /* It fits to the right of the pointer. */
4906 *root_x
+= XINT (dx
);
4907 else if (width
+ XINT (dx
) <= *root_x
)
4908 /* It fits to the left of the pointer. */
4909 *root_x
-= width
+ XINT (dx
);
4911 /* Put it left-justified on the screen--it ought to fit that way. */
4916 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4917 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4918 A tooltip window is a small X window displaying a string.
4920 This is an internal function; Lisp code should call `tooltip-show'.
4922 FRAME nil or omitted means use the selected frame.
4924 PARMS is an optional list of frame parameters which can be used to
4925 change the tooltip's appearance.
4927 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4928 means use the default timeout of 5 seconds.
4930 If the list of frame parameters PARMS contains a `left' parameters,
4931 the tooltip is displayed at that x-position. Otherwise it is
4932 displayed at the mouse position, with offset DX added (default is 5 if
4933 DX isn't specified). Likewise for the y-position; if a `top' frame
4934 parameter is specified, it determines the y-position of the tooltip
4935 window, otherwise it is displayed at the mouse position, with offset
4936 DY added (default is -10).
4938 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4939 Text larger than the specified size is clipped. */)
4940 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
4945 struct buffer
*old_buffer
;
4946 struct text_pos pos
;
4947 int i
, width
, height
, seen_reversed_p
;
4948 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
4949 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
4950 int count
= SPECPDL_INDEX ();
4952 specbind (Qinhibit_redisplay
, Qt
);
4954 GCPRO4 (string
, parms
, frame
, timeout
);
4956 CHECK_STRING (string
);
4957 if (SCHARS (string
) == 0)
4958 string
= make_unibyte_string (" ", 1);
4960 f
= check_x_frame (frame
);
4962 timeout
= make_number (5);
4964 CHECK_NATNUM (timeout
);
4967 dx
= make_number (5);
4972 dy
= make_number (-10);
4977 if (x_gtk_use_system_tooltips
)
4981 /* Hide a previous tip, if any. */
4985 if ((ok
= xg_prepare_tooltip (f
, string
, &width
, &height
)) != 0)
4987 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
4988 xg_show_tooltip (f
, root_x
, root_y
);
4989 /* This is used in Fx_hide_tip. */
4990 XSETFRAME (tip_frame
, f
);
4993 if (ok
) goto start_timer
;
4995 #endif /* USE_GTK */
4997 if (NILP (last_show_tip_args
))
4998 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5000 if (!NILP (tip_frame
))
5002 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5003 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5004 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5006 if (EQ (frame
, last_frame
)
5007 && !NILP (Fequal (last_string
, string
))
5008 && !NILP (Fequal (last_parms
, parms
)))
5010 struct frame
*tip_f
= XFRAME (tip_frame
);
5012 /* Only DX and DY have changed. */
5013 if (!NILP (tip_timer
))
5015 Lisp_Object timer
= tip_timer
;
5017 call1 (Qcancel_timer
, timer
);
5021 compute_tip_xy (tip_f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (tip_f
),
5022 FRAME_PIXEL_HEIGHT (tip_f
), &root_x
, &root_y
);
5023 XMoveWindow (FRAME_X_DISPLAY (tip_f
), FRAME_X_WINDOW (tip_f
),
5030 /* Hide a previous tip, if any. */
5033 ASET (last_show_tip_args
, 0, string
);
5034 ASET (last_show_tip_args
, 1, frame
);
5035 ASET (last_show_tip_args
, 2, parms
);
5037 /* Add default values to frame parameters. */
5038 if (NILP (Fassq (Qname
, parms
)))
5039 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5040 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5041 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5042 if (NILP (Fassq (Qborder_width
, parms
)))
5043 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5044 if (NILP (Fassq (Qborder_color
, parms
)))
5045 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5046 if (NILP (Fassq (Qbackground_color
, parms
)))
5047 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5050 /* Create a frame for the tooltip, and record it in the global
5051 variable tip_frame. */
5052 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5055 /* Set up the frame's root window. */
5056 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5057 w
->left_col
= w
->top_line
= make_number (0);
5059 if (CONSP (Vx_max_tooltip_size
)
5060 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5061 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5062 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5063 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5065 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5066 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5070 w
->total_cols
= make_number (80);
5071 w
->total_lines
= make_number (40);
5074 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5076 w
->pseudo_window_p
= 1;
5078 /* Display the tooltip text in a temporary buffer. */
5079 old_buffer
= current_buffer
;
5080 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5081 BVAR (current_buffer
, truncate_lines
) = Qnil
;
5082 clear_glyph_matrix (w
->desired_matrix
);
5083 clear_glyph_matrix (w
->current_matrix
);
5084 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5085 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5087 /* Compute width and height of the tooltip. */
5088 width
= height
= seen_reversed_p
= 0;
5089 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5091 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5095 /* Stop at the first empty row at the end. */
5096 if (!row
->enabled_p
|| !row
->displays_text_p
)
5099 /* Let the row go over the full width of the frame. */
5100 row
->full_width_p
= 1;
5102 row_width
= row
->pixel_width
;
5103 if (row
->used
[TEXT_AREA
])
5105 /* There's a glyph at the end of rows that is used to place
5106 the cursor there. Don't include the width of this glyph. */
5107 if (!row
->reversed_p
)
5109 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5110 if (INTEGERP (last
->object
))
5111 row_width
-= last
->pixel_width
;
5115 /* There could be a stretch glyph at the beginning of R2L
5116 rows that is produced by extend_face_to_end_of_line.
5117 Don't count that glyph. */
5118 struct glyph
*g
= row
->glyphs
[TEXT_AREA
];
5120 if (g
->type
== STRETCH_GLYPH
&& INTEGERP (g
->object
))
5122 row_width
-= g
->pixel_width
;
5123 seen_reversed_p
= 1;
5128 height
+= row
->height
;
5129 width
= max (width
, row_width
);
5132 /* If we've seen partial-length R2L rows, we need to re-adjust the
5133 tool-tip frame width and redisplay it again, to avoid over-wide
5134 tips due to the stretch glyph that extends R2L lines to full
5135 width of the frame. */
5136 if (seen_reversed_p
)
5138 /* w->total_cols and FRAME_TOTAL_COLS want the width in columns,
5140 width
/= WINDOW_FRAME_COLUMN_WIDTH (w
);
5141 w
->total_cols
= make_number (width
);
5142 FRAME_TOTAL_COLS (f
) = width
;
5144 clear_glyph_matrix (w
->desired_matrix
);
5145 clear_glyph_matrix (w
->current_matrix
);
5146 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5148 /* Recompute width and height of the tooltip. */
5149 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5151 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5155 if (!row
->enabled_p
|| !row
->displays_text_p
)
5157 row
->full_width_p
= 1;
5158 row_width
= row
->pixel_width
;
5159 if (row
->used
[TEXT_AREA
] && !row
->reversed_p
)
5161 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5162 if (INTEGERP (last
->object
))
5163 row_width
-= last
->pixel_width
;
5166 height
+= row
->height
;
5167 width
= max (width
, row_width
);
5171 /* Add the frame's internal border to the width and height the X
5172 window should have. */
5173 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5174 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5176 /* Move the tooltip window where the mouse pointer is. Resize and
5178 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5181 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5182 root_x
, root_y
, width
, height
);
5183 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5186 /* Draw into the window. */
5187 w
->must_be_updated_p
= 1;
5188 update_single_window (w
, 1);
5190 /* Restore original current buffer. */
5191 set_buffer_internal_1 (old_buffer
);
5192 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5195 /* Let the tip disappear after timeout seconds. */
5196 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5197 intern ("x-hide-tip"));
5200 return unbind_to (count
, Qnil
);
5204 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5205 doc
: /* Hide the current tooltip window, if there is any.
5206 Value is t if tooltip was open, nil otherwise. */)
5210 Lisp_Object deleted
, frame
, timer
;
5211 struct gcpro gcpro1
, gcpro2
;
5213 /* Return quickly if nothing to do. */
5214 if (NILP (tip_timer
) && NILP (tip_frame
))
5219 GCPRO2 (frame
, timer
);
5220 tip_frame
= tip_timer
= deleted
= Qnil
;
5222 count
= SPECPDL_INDEX ();
5223 specbind (Qinhibit_redisplay
, Qt
);
5224 specbind (Qinhibit_quit
, Qt
);
5227 call1 (Qcancel_timer
, timer
);
5231 /* When using system tooltip, tip_frame is the Emacs frame on which
5232 the tip is shown. */
5233 struct frame
*f
= XFRAME (frame
);
5234 if (FRAME_LIVE_P (f
) && xg_hide_tooltip (f
))
5241 delete_frame (frame
, Qnil
);
5245 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5246 redisplay procedure is not called when a tip frame over menu
5247 items is unmapped. Redisplay the menu manually... */
5250 struct frame
*f
= SELECTED_FRAME ();
5251 w
= f
->output_data
.x
->menubar_widget
;
5253 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5257 xlwmenu_redisplay (w
);
5261 #endif /* USE_LUCID */
5265 return unbind_to (count
, deleted
);
5270 /***********************************************************************
5271 File selection dialog
5272 ***********************************************************************/
5274 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5275 Sx_uses_old_gtk_dialog
,
5277 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5284 && xg_uses_old_file_dialog ())
5292 /* Callback for "OK" and "Cancel" on file selection dialog. */
5295 file_dialog_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5297 int *result
= (int *) client_data
;
5298 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5299 *result
= cb
->reason
;
5303 /* Callback for unmapping a file selection dialog. This is used to
5304 capture the case where a dialog is closed via a window manager's
5305 closer button, for example. Using a XmNdestroyCallback didn't work
5309 file_dialog_unmap_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5311 int *result
= (int *) client_data
;
5312 *result
= XmCR_CANCEL
;
5316 clean_up_file_dialog (Lisp_Object arg
)
5318 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5319 Widget dialog
= (Widget
) p
->pointer
;
5323 XtUnmanageChild (dialog
);
5324 XtDestroyWidget (dialog
);
5325 x_menu_set_in_use (0);
5332 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5333 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5334 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5335 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5336 or directory must exist.
5338 This function is only defined on MS Windows, and X Windows with the
5339 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5340 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5341 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5344 struct frame
*f
= SELECTED_FRAME ();
5345 Lisp_Object file
= Qnil
;
5346 Lisp_Object decoded_file
;
5347 Widget dialog
, text
, help
;
5350 XmString dir_xmstring
, pattern_xmstring
;
5351 int count
= SPECPDL_INDEX ();
5352 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5356 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5358 if (popup_activated ())
5359 error ("Trying to use a menu from within a menu-entry");
5361 CHECK_STRING (prompt
);
5364 /* Prevent redisplay. */
5365 specbind (Qinhibit_redisplay
, Qt
);
5369 /* Create the dialog with PROMPT as title, using DIR as initial
5370 directory and using "*" as pattern. */
5371 dir
= Fexpand_file_name (dir
, Qnil
);
5372 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5373 pattern_xmstring
= XmStringCreateLocalized ("*");
5375 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5376 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5377 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5378 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5379 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5380 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5382 XmStringFree (dir_xmstring
);
5383 XmStringFree (pattern_xmstring
);
5385 /* Add callbacks for OK and Cancel. */
5386 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5387 (XtPointer
) &result
);
5388 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5389 (XtPointer
) &result
);
5390 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5391 (XtPointer
) &result
);
5393 /* Remove the help button since we can't display help. */
5394 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5395 XtUnmanageChild (help
);
5397 /* Mark OK button as default. */
5398 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5399 XmNshowAsDefault
, True
, NULL
);
5401 /* If MUSTMATCH is non-nil, disable the file entry field of the
5402 dialog, so that the user must select a file from the files list
5403 box. We can't remove it because we wouldn't have a way to get at
5404 the result file name, then. */
5405 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5406 if (!NILP (mustmatch
))
5409 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5410 XtSetSensitive (text
, False
);
5411 XtSetSensitive (label
, False
);
5414 /* Manage the dialog, so that list boxes get filled. */
5415 XtManageChild (dialog
);
5417 if (STRINGP (default_filename
))
5419 XmString default_xmstring
;
5420 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5421 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5423 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5424 XmTextFieldReplace (wtext
, 0, last_pos
,
5425 (SDATA (Ffile_name_nondirectory (default_filename
))));
5427 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5428 must include the path for this to work. */
5430 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5432 if (XmListItemExists (list
, default_xmstring
))
5434 int item_pos
= XmListItemPos (list
, default_xmstring
);
5435 /* Select the item and scroll it into view. */
5436 XmListSelectPos (list
, item_pos
, True
);
5437 XmListSetPos (list
, item_pos
);
5440 XmStringFree (default_xmstring
);
5443 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5445 /* Process events until the user presses Cancel or OK. */
5446 x_menu_set_in_use (1);
5451 x_menu_wait_for_event (0);
5452 XtAppNextEvent (Xt_app_con
, &event
);
5453 if (event
.type
== KeyPress
5454 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5456 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5458 /* Pop down on C-g. */
5459 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5460 XtUnmanageChild (dialog
);
5463 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5466 /* Get the result. */
5467 if (result
== XmCR_OK
)
5469 XmString text_string
;
5472 XtVaGetValues (dialog
, XmNtextString
, &text_string
, NULL
);
5473 XmStringGetLtoR (text_string
, XmFONTLIST_DEFAULT_TAG
, &data
);
5474 XmStringFree (text_string
);
5475 file
= build_string (data
);
5484 /* Make "Cancel" equivalent to C-g. */
5486 Fsignal (Qquit
, Qnil
);
5488 decoded_file
= DECODE_FILE (file
);
5490 return unbind_to (count
, decoded_file
);
5493 #endif /* USE_MOTIF */
5498 clean_up_dialog (Lisp_Object arg
)
5500 x_menu_set_in_use (0);
5505 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5506 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5507 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5508 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5509 or directory must exist.
5511 This function is only defined on MS Windows, and X Windows with the
5512 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5513 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5514 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5516 FRAME_PTR f
= SELECTED_FRAME ();
5518 Lisp_Object file
= Qnil
;
5519 Lisp_Object decoded_file
;
5520 int count
= SPECPDL_INDEX ();
5521 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5526 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5528 if (popup_activated ())
5529 error ("Trying to use a menu from within a menu-entry");
5531 CHECK_STRING (prompt
);
5534 /* Prevent redisplay. */
5535 specbind (Qinhibit_redisplay
, Qt
);
5536 record_unwind_protect (clean_up_dialog
, Qnil
);
5540 if (STRINGP (default_filename
))
5541 cdef_file
= SSDATA (default_filename
);
5543 cdef_file
= SSDATA (dir
);
5545 fn
= xg_get_file_name (f
, SSDATA (prompt
), cdef_file
,
5547 ! NILP (only_dir_p
));
5551 file
= build_string (fn
);
5558 /* Make "Cancel" equivalent to C-g. */
5560 Fsignal (Qquit
, Qnil
);
5562 decoded_file
= DECODE_FILE (file
);
5564 return unbind_to (count
, decoded_file
);
5568 #ifdef HAVE_FREETYPE
5570 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5571 doc
: /* Read a font name using a GTK font selection dialog.
5572 Return a GTK-style font string corresponding to the selection.
5574 If FRAME is omitted or nil, it defaults to the selected frame. */)
5575 (Lisp_Object frame
, Lisp_Object ignored
)
5577 FRAME_PTR f
= check_x_frame (frame
);
5580 Lisp_Object font_param
;
5581 char *default_name
= NULL
;
5582 struct gcpro gcpro1
, gcpro2
;
5583 int count
= SPECPDL_INDEX ();
5587 if (popup_activated ())
5588 error ("Trying to use a menu from within a menu-entry");
5590 /* Prevent redisplay. */
5591 specbind (Qinhibit_redisplay
, Qt
);
5592 record_unwind_protect (clean_up_dialog
, Qnil
);
5596 GCPRO2(font_param
, font
);
5598 XSETFONT (font
, FRAME_FONT (f
));
5599 font_param
= Ffont_get (font
, intern (":name"));
5600 if (STRINGP (font_param
))
5601 default_name
= xstrdup (SSDATA (font_param
));
5604 font_param
= Fframe_parameter (frame
, Qfont_param
);
5605 if (STRINGP (font_param
))
5606 default_name
= xstrdup (SSDATA (font_param
));
5609 if (default_name
== NULL
&& x_last_font_name
!= NULL
)
5610 default_name
= xstrdup (x_last_font_name
);
5612 /* Convert fontconfig names to Gtk names, i.e. remove - before number */
5615 char *p
= strrchr (default_name
, '-');
5619 while (isdigit (*ep
))
5621 if (*ep
== '\0') *p
= ' ';
5625 name
= xg_get_font_name (f
, default_name
);
5626 xfree (default_name
);
5630 font
= build_string (name
);
5631 g_free (x_last_font_name
);
5632 x_last_font_name
= name
;
5638 Fsignal (Qquit
, Qnil
);
5640 return unbind_to (count
, font
);
5642 #endif /* HAVE_FREETYPE */
5644 #endif /* USE_GTK */
5647 /***********************************************************************
5649 ***********************************************************************/
5651 #ifdef HAVE_XKBGETKEYBOARD
5652 #include <X11/XKBlib.h>
5653 #include <X11/keysym.h>
5656 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5657 Sx_backspace_delete_keys_p
, 0, 1, 0,
5658 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5659 FRAME nil means use the selected frame.
5660 Value is t if we know that both keys are present, and are mapped to the
5661 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5662 present and mapped to the usual X keysyms. */)
5665 #ifdef HAVE_XKBGETKEYBOARD
5667 struct frame
*f
= check_x_frame (frame
);
5668 Display
*dpy
= FRAME_X_DISPLAY (f
);
5669 Lisp_Object have_keys
;
5670 int major
, minor
, op
, event
, error_code
;
5674 /* Check library version in case we're dynamically linked. */
5675 major
= XkbMajorVersion
;
5676 minor
= XkbMinorVersion
;
5677 if (!XkbLibraryVersion (&major
, &minor
))
5683 /* Check that the server supports XKB. */
5684 major
= XkbMajorVersion
;
5685 minor
= XkbMinorVersion
;
5686 if (!XkbQueryExtension (dpy
, &op
, &event
, &error_code
, &major
, &minor
))
5692 /* In this code we check that the keyboard has physical keys with names
5693 that start with BKSP (Backspace) and DELE (Delete), and that they
5694 generate keysym XK_BackSpace and XK_Delete respectively.
5695 This function is used to test if normal-erase-is-backspace should be
5697 An alternative approach would be to just check if XK_BackSpace and
5698 XK_Delete are mapped to any key. But if any of those are mapped to
5699 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5700 user doesn't know about it, it is better to return false here.
5701 It is more obvious to the user what to do if she/he has two keys
5702 clearly marked with names/symbols and one key does something not
5703 expected (i.e. she/he then tries the other).
5704 The cases where Backspace/Delete is mapped to some other key combination
5705 are rare, and in those cases, normal-erase-is-backspace can be turned on
5709 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5712 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5714 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5716 for (i
= kb
->min_key_code
;
5717 (i
< kb
->max_key_code
5718 && (delete_keycode
== 0 || backspace_keycode
== 0));
5721 /* The XKB symbolic key names can be seen most easily in
5722 the PS file generated by `xkbprint -label name
5724 if (memcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5726 else if (memcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5727 backspace_keycode
= i
;
5730 XkbFreeNames (kb
, 0, True
);
5733 XkbFreeClientMap (kb
, 0, True
);
5736 && backspace_keycode
5737 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5738 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5743 #else /* not HAVE_XKBGETKEYBOARD */
5745 #endif /* not HAVE_XKBGETKEYBOARD */
5750 /***********************************************************************
5752 ***********************************************************************/
5754 /* Keep this list in the same order as frame_parms in frame.c.
5755 Use 0 for unsupported frame parameters. */
5757 frame_parm_handler x_frame_parm_handlers
[] =
5761 x_set_background_color
,
5767 x_set_foreground_color
,
5770 x_set_internal_border_width
,
5771 x_set_menu_bar_lines
,
5773 x_explicitly_set_name
,
5774 x_set_scroll_bar_width
,
5777 x_set_vertical_scroll_bars
,
5779 x_set_tool_bar_lines
,
5780 x_set_scroll_bar_foreground
,
5781 x_set_scroll_bar_background
,
5791 x_set_tool_bar_position
,
5797 /* This is zero if not using X windows. */
5800 /* The section below is built by the lisp expression at the top of the file,
5801 just above where these variables are declared. */
5802 /*&&& init symbols here &&&*/
5803 Qnone
= intern_c_string ("none");
5805 Qsuppress_icon
= intern_c_string ("suppress-icon");
5806 staticpro (&Qsuppress_icon
);
5807 Qundefined_color
= intern_c_string ("undefined-color");
5808 staticpro (&Qundefined_color
);
5809 Qcompound_text
= intern_c_string ("compound-text");
5810 staticpro (&Qcompound_text
);
5811 Qcancel_timer
= intern_c_string ("cancel-timer");
5812 staticpro (&Qcancel_timer
);
5813 Qfont_param
= intern_c_string ("font-parameter");
5814 staticpro (&Qfont_param
);
5815 /* This is the end of symbol initialization. */
5817 /* Text property `display' should be nonsticky by default. */
5818 Vtext_property_default_nonsticky
5819 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5822 Fput (Qundefined_color
, Qerror_conditions
,
5823 pure_cons (Qundefined_color
, pure_cons (Qerror
, Qnil
)));
5824 Fput (Qundefined_color
, Qerror_message
,
5825 make_pure_c_string ("Undefined color"));
5827 DEFVAR_LISP ("x-pointer-shape", Vx_pointer_shape
,
5828 doc
: /* The shape of the pointer when over text.
5829 Changing the value does not affect existing frames
5830 unless you set the mouse color. */);
5831 Vx_pointer_shape
= Qnil
;
5833 #if 0 /* This doesn't really do anything. */
5834 DEFVAR_LISP ("x-nontext-pointer-shape", Vx_nontext_pointer_shape
,
5835 doc
: /* The shape of the pointer when not over text.
5836 This variable takes effect when you create a new frame
5837 or when you set the mouse color. */);
5839 Vx_nontext_pointer_shape
= Qnil
;
5841 DEFVAR_LISP ("x-hourglass-pointer-shape", Vx_hourglass_pointer_shape
,
5842 doc
: /* The shape of the pointer when Emacs is busy.
5843 This variable takes effect when you create a new frame
5844 or when you set the mouse color. */);
5845 Vx_hourglass_pointer_shape
= Qnil
;
5847 #if 0 /* This doesn't really do anything. */
5848 DEFVAR_LISP ("x-mode-pointer-shape", Vx_mode_pointer_shape
,
5849 doc
: /* The shape of the pointer when over the mode line.
5850 This variable takes effect when you create a new frame
5851 or when you set the mouse color. */);
5853 Vx_mode_pointer_shape
= Qnil
;
5855 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5856 Vx_sensitive_text_pointer_shape
,
5857 doc
: /* The shape of the pointer when over mouse-sensitive text.
5858 This variable takes effect when you create a new frame
5859 or when you set the mouse color. */);
5860 Vx_sensitive_text_pointer_shape
= Qnil
;
5862 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5863 Vx_window_horizontal_drag_shape
,
5864 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5865 This variable takes effect when you create a new frame
5866 or when you set the mouse color. */);
5867 Vx_window_horizontal_drag_shape
= Qnil
;
5869 DEFVAR_LISP ("x-cursor-fore-pixel", Vx_cursor_fore_pixel
,
5870 doc
: /* A string indicating the foreground color of the cursor box. */);
5871 Vx_cursor_fore_pixel
= Qnil
;
5873 DEFVAR_LISP ("x-max-tooltip-size", Vx_max_tooltip_size
,
5874 doc
: /* Maximum size for tooltips.
5875 Value is a pair (COLUMNS . ROWS). Text larger than this is clipped. */);
5876 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5878 DEFVAR_LISP ("x-no-window-manager", Vx_no_window_manager
,
5879 doc
: /* Non-nil if no X window manager is in use.
5880 Emacs doesn't try to figure this out; this is always nil
5881 unless you set it to something else. */);
5882 /* We don't have any way to find this out, so set it to nil
5883 and maybe the user would like to set it to t. */
5884 Vx_no_window_manager
= Qnil
;
5886 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5887 Vx_pixel_size_width_font_regexp
,
5888 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5890 Since Emacs gets width of a font matching with this regexp from
5891 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5892 such a font. This is especially effective for such large fonts as
5893 Chinese, Japanese, and Korean. */);
5894 Vx_pixel_size_width_font_regexp
= Qnil
;
5896 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5897 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", x_gtk_use_old_file_dialog
,
5898 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5899 If nil or if the file selection dialog is not available, the new GTK file
5900 chooser is used instead. To turn off all file dialogs set the
5901 variable `use-file-dialog'. */);
5902 x_gtk_use_old_file_dialog
= 0;
5904 DEFVAR_BOOL ("x-gtk-show-hidden-files", x_gtk_show_hidden_files
,
5905 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5906 Note that this is just the default, there is a toggle button on the file
5907 chooser to show or not show hidden files on a case by case basis. */);
5908 x_gtk_show_hidden_files
= 0;
5910 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", x_gtk_file_dialog_help_text
,
5911 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
5912 If more space for files in the file chooser dialog is wanted, set this to nil
5913 to turn the additional text off. */);
5914 x_gtk_file_dialog_help_text
= 1;
5916 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", x_gtk_whole_detached_tool_bar
,
5917 doc
: /* *If non-nil, a detached tool bar is shown in full.
5918 The default is to just show an arrow and pressing on that arrow shows
5919 the tool bar buttons. */);
5920 x_gtk_whole_detached_tool_bar
= 0;
5922 DEFVAR_BOOL ("x-gtk-use-system-tooltips", x_gtk_use_system_tooltips
,
5923 doc
: /* *If non-nil with a Gtk+ built Emacs, the Gtk+ toolip is used.
5924 Otherwise use Emacs own tooltip implementation.
5925 When using Gtk+ tooltips, the tooltip face is not used. */);
5926 x_gtk_use_system_tooltips
= 1;
5928 Fprovide (intern_c_string ("x"), Qnil
);
5930 #ifdef USE_X_TOOLKIT
5931 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5933 Fprovide (intern_c_string ("motif"), Qnil
);
5935 DEFVAR_LISP ("motif-version-string", Vmotif_version_string
,
5936 doc
: /* Version info for LessTif/Motif. */);
5937 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5938 #endif /* USE_MOTIF */
5939 #endif /* USE_X_TOOLKIT */
5942 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5943 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5944 But for a user it is a toolkit for X, and indeed, configure
5945 accepts --with-x-toolkit=gtk. */
5946 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5947 Fprovide (intern_c_string ("gtk"), Qnil
);
5948 Fprovide (intern_c_string ("move-toolbar"), Qnil
);
5950 DEFVAR_LISP ("gtk-version-string", Vgtk_version_string
,
5951 doc
: /* Version info for GTK+. */);
5953 char gtk_version
[40];
5954 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5955 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5956 Vgtk_version_string
= make_pure_string (gtk_version
, strlen (gtk_version
), strlen (gtk_version
), 0);
5958 #endif /* USE_GTK */
5960 /* X window properties. */
5961 defsubr (&Sx_change_window_property
);
5962 defsubr (&Sx_delete_window_property
);
5963 defsubr (&Sx_window_property
);
5965 defsubr (&Sxw_display_color_p
);
5966 defsubr (&Sx_display_grayscale_p
);
5967 defsubr (&Sxw_color_defined_p
);
5968 defsubr (&Sxw_color_values
);
5969 defsubr (&Sx_server_max_request_size
);
5970 defsubr (&Sx_server_vendor
);
5971 defsubr (&Sx_server_version
);
5972 defsubr (&Sx_display_pixel_width
);
5973 defsubr (&Sx_display_pixel_height
);
5974 defsubr (&Sx_display_mm_width
);
5975 defsubr (&Sx_display_mm_height
);
5976 defsubr (&Sx_display_screens
);
5977 defsubr (&Sx_display_planes
);
5978 defsubr (&Sx_display_color_cells
);
5979 defsubr (&Sx_display_visual_class
);
5980 defsubr (&Sx_display_backing_store
);
5981 defsubr (&Sx_display_save_under
);
5982 defsubr (&Sx_wm_set_size_hint
);
5983 defsubr (&Sx_create_frame
);
5984 defsubr (&Sx_open_connection
);
5985 defsubr (&Sx_close_connection
);
5986 defsubr (&Sx_display_list
);
5987 defsubr (&Sx_synchronize
);
5988 defsubr (&Sx_focus_frame
);
5989 defsubr (&Sx_backspace_delete_keys_p
);
5991 /* Setting callback functions for fontset handler. */
5992 check_window_system_func
= check_x
;
5994 defsubr (&Sx_show_tip
);
5995 defsubr (&Sx_hide_tip
);
5997 staticpro (&tip_timer
);
5999 staticpro (&tip_frame
);
6001 last_show_tip_args
= Qnil
;
6002 staticpro (&last_show_tip_args
);
6004 defsubr (&Sx_uses_old_gtk_dialog
);
6005 #if defined (USE_MOTIF) || defined (USE_GTK)
6006 defsubr (&Sx_file_dialog
);
6009 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
6010 defsubr (&Sx_select_font
);
6011 x_last_font_name
= NULL
;
6015 #endif /* HAVE_X_WINDOWS */