1 /* Functions for the X window system.
3 Copyright (C) 1989, 1992-2012 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
35 #include "character.h"
37 #include "intervals.h"
38 #include "dispextern.h"
40 #include "blockinput.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 /* Nonzero if using X. */
133 static Lisp_Object Qnone
;
134 static Lisp_Object Qsuppress_icon
;
135 static Lisp_Object Qundefined_color
;
136 static Lisp_Object Qcompound_text
, Qcancel_timer
;
137 Lisp_Object Qfont_param
;
140 static ptrdiff_t image_cache_refcount
;
141 static int dpyinfo_refcount
;
144 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
145 static char *x_last_font_name
;
148 static struct x_display_info
*x_display_info_for_name (Lisp_Object
);
151 /* Error if we are not connected to X. */
157 error ("X windows are not in use or not initialized");
160 /* Nonzero if we can use mouse menus.
161 You should not call this unless HAVE_MENUS is defined. */
169 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
170 and checking validity for X. */
173 check_x_frame (Lisp_Object frame
)
178 frame
= selected_frame
;
179 CHECK_LIVE_FRAME (frame
);
182 error ("Non-X frame used");
186 /* Let the user specify an X display with a Lisp object.
187 OBJECT may be nil, a frame or a terminal object.
188 nil stands for the selected frame--or, if that is not an X frame,
189 the first X display on the list. */
191 struct x_display_info
*
192 check_x_display_info (Lisp_Object object
)
194 struct x_display_info
*dpyinfo
= NULL
;
198 struct frame
*sf
= XFRAME (selected_frame
);
200 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
201 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
202 else if (x_display_list
!= 0)
203 dpyinfo
= x_display_list
;
205 error ("X windows are not in use or not initialized");
207 else if (TERMINALP (object
))
209 struct terminal
*t
= get_terminal (object
, 1);
211 if (t
->type
!= output_x_window
)
212 error ("Terminal %"pI
"d is not an X display", XINT (object
));
214 dpyinfo
= t
->display_info
.x
;
216 else if (STRINGP (object
))
217 dpyinfo
= x_display_info_for_name (object
);
220 FRAME_PTR f
= check_x_frame (object
);
221 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
228 /* Return the Emacs frame-object corresponding to an X window.
229 It could be the frame's main window or an icon window. */
231 /* This function can be called during GC, so use GC_xxx type test macros. */
234 x_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
236 Lisp_Object tail
, frame
;
239 if (wdesc
== None
) return 0;
241 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
247 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
249 if (f
->output_data
.x
->hourglass_window
== wdesc
)
252 if ((f
->output_data
.x
->edit_widget
253 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
254 /* A tooltip frame? */
255 || (!f
->output_data
.x
->edit_widget
256 && FRAME_X_WINDOW (f
) == wdesc
)
257 || f
->output_data
.x
->icon_desc
== wdesc
)
259 #else /* not USE_X_TOOLKIT */
261 if (f
->output_data
.x
->edit_widget
)
263 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
264 struct x_output
*x
= f
->output_data
.x
;
265 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
269 if (FRAME_X_WINDOW (f
) == wdesc
270 || f
->output_data
.x
->icon_desc
== wdesc
)
272 #endif /* not USE_X_TOOLKIT */
277 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
278 /* Like x_window_to_frame but also compares the window with the widget's
282 x_any_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
284 Lisp_Object tail
, frame
;
285 struct frame
*f
, *found
;
288 if (wdesc
== None
) return NULL
;
291 for (tail
= Vframe_list
; CONSP (tail
) && !found
; tail
= XCDR (tail
))
298 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
300 /* This frame matches if the window is any of its widgets. */
301 x
= f
->output_data
.x
;
302 if (x
->hourglass_window
== wdesc
)
307 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
309 && gtk_widget_get_toplevel (gwdesc
) == x
->widget
)
312 if (wdesc
== XtWindow (x
->widget
)
313 || wdesc
== XtWindow (x
->column_widget
)
314 || wdesc
== XtWindow (x
->edit_widget
))
316 /* Match if the window is this frame's menubar. */
317 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
321 else if (FRAME_X_WINDOW (f
) == wdesc
)
322 /* A tooltip frame. */
330 /* Likewise, but consider only the menu bar widget. */
333 x_menubar_window_to_frame (struct x_display_info
*dpyinfo
, XEvent
*event
)
335 Window wdesc
= event
->xany
.window
;
336 Lisp_Object tail
, frame
;
340 if (wdesc
== None
) return 0;
342 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
348 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
350 x
= f
->output_data
.x
;
352 if (x
->menubar_widget
&& xg_event_is_for_menubar (f
, event
))
355 /* Match if the window is this frame's menubar. */
356 if (x
->menubar_widget
357 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
364 /* Return the frame whose principal (outermost) window is WDESC.
365 If WDESC is some other (smaller) window, we return 0. */
368 x_top_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
370 Lisp_Object tail
, frame
;
374 if (wdesc
== None
) return 0;
376 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
382 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
384 x
= f
->output_data
.x
;
388 /* This frame matches if the window is its topmost widget. */
390 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
391 if (gwdesc
== x
->widget
)
394 if (wdesc
== XtWindow (x
->widget
))
396 #if 0 /* I don't know why it did this,
397 but it seems logically wrong,
398 and it causes trouble for MapNotify events. */
399 /* Match if the window is this frame's menubar. */
400 if (x
->menubar_widget
401 && wdesc
== XtWindow (x
->menubar_widget
))
406 else if (FRAME_X_WINDOW (f
) == wdesc
)
412 #endif /* USE_X_TOOLKIT || USE_GTK */
416 /* Store the screen positions of frame F into XPTR and YPTR.
417 These are the positions of the containing window manager window,
418 not Emacs's own window. */
421 x_real_positions (FRAME_PTR f
, int *xptr
, int *yptr
)
423 int win_x
, win_y
, outer_x
IF_LINT (= 0), outer_y
IF_LINT (= 0);
424 int real_x
= 0, real_y
= 0;
426 Window win
= f
->output_data
.x
->parent_desc
;
428 unsigned long actual_size
, bytes_remaining
;
429 int rc
, actual_format
;
430 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
432 Display
*dpy
= FRAME_X_DISPLAY (f
);
433 unsigned char *tmp_data
= NULL
;
434 Atom target_type
= XA_CARDINAL
;
438 x_catch_errors (dpy
);
440 if (win
== dpyinfo
->root_window
)
441 win
= FRAME_OUTER_WINDOW (f
);
443 /* This loop traverses up the containment tree until we hit the root
444 window. Window managers may intersect many windows between our window
445 and the root window. The window we find just before the root window
446 should be the outer WM window. */
449 Window wm_window
, rootw
;
450 Window
*tmp_children
;
451 unsigned int tmp_nchildren
;
454 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
455 &wm_window
, &tmp_children
, &tmp_nchildren
);
457 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
459 /* Don't free tmp_children if XQueryTree failed. */
463 XFree ((char *) tmp_children
);
465 if (wm_window
== rootw
|| had_errors
)
476 /* Get the real coordinates for the WM window upper left corner */
477 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
478 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
480 /* Translate real coordinates to coordinates relative to our
481 window. For our window, the upper left corner is 0, 0.
482 Since the upper left corner of the WM window is outside
483 our window, win_x and win_y will be negative:
485 ------------------ ---> x
487 | ----------------- v y
490 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
492 /* From-window, to-window. */
493 FRAME_X_DISPLAY_INFO (f
)->root_window
,
496 /* From-position, to-position. */
497 real_x
, real_y
, &win_x
, &win_y
,
502 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
509 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
511 /* From-window, to-window. */
512 FRAME_X_DISPLAY_INFO (f
)->root_window
,
513 FRAME_OUTER_WINDOW (f
),
515 /* From-position, to-position. */
516 real_x
, real_y
, &outer_x
, &outer_y
,
522 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
526 if (dpyinfo
->root_window
== f
->output_data
.x
->parent_desc
)
528 /* Try _NET_FRAME_EXTENTS if our parent is the root window. */
529 rc
= XGetWindowProperty (dpy
, win
, dpyinfo
->Xatom_net_frame_extents
,
530 0, max_len
, False
, target_type
,
531 &actual_type
, &actual_format
, &actual_size
,
532 &bytes_remaining
, &tmp_data
);
534 if (rc
== Success
&& actual_type
== target_type
&& !x_had_errors_p (dpy
)
535 && actual_size
== 4 && actual_format
== 32)
539 long *fe
= (long *)tmp_data
;
541 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
542 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
550 if (tmp_data
) XFree (tmp_data
);
556 if (had_errors
) return;
558 f
->x_pixels_diff
= -win_x
;
559 f
->y_pixels_diff
= -win_y
;
561 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
562 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
571 /* Gamma-correct COLOR on frame F. */
574 gamma_correct (struct frame
*f
, XColor
*color
)
578 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
579 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
580 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
585 /* Decide if color named COLOR_NAME is valid for use on frame F. If
586 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
587 allocate the color. Value is zero if COLOR_NAME is invalid, or
588 no color could be allocated. */
591 x_defined_color (struct frame
*f
, const char *color_name
,
592 XColor
*color
, int alloc_p
)
595 Display
*dpy
= FRAME_X_DISPLAY (f
);
596 Colormap cmap
= FRAME_X_COLORMAP (f
);
600 success_p
= xg_check_special_colors (f
, color_name
, color
);
603 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
604 if (success_p
&& alloc_p
)
605 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
612 /* Return the pixel color value for color COLOR_NAME on frame F. If F
613 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
614 Signal an error if color can't be allocated. */
617 x_decode_color (FRAME_PTR f
, Lisp_Object color_name
, int mono_color
)
621 CHECK_STRING (color_name
);
623 #if 0 /* Don't do this. It's wrong when we're not using the default
624 colormap, it makes freeing difficult, and it's probably not
625 an important optimization. */
626 if (strcmp (SDATA (color_name
), "black") == 0)
627 return BLACK_PIX_DEFAULT (f
);
628 else if (strcmp (SDATA (color_name
), "white") == 0)
629 return WHITE_PIX_DEFAULT (f
);
632 /* Return MONO_COLOR for monochrome frames. */
633 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
636 /* x_defined_color is responsible for coping with failures
637 by looking for a near-miss. */
638 if (x_defined_color (f
, SSDATA (color_name
), &cdef
, 1))
641 signal_error ("Undefined color", color_name
);
646 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
647 the previous value of that parameter, NEW_VALUE is the new value.
648 See also the comment of wait_for_wm in struct x_output. */
651 x_set_wait_for_wm (struct frame
*f
, Lisp_Object new_value
, Lisp_Object old_value
)
653 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
657 x_set_tool_bar_position (struct frame
*f
,
658 Lisp_Object new_value
,
659 Lisp_Object old_value
)
661 if (! EQ (new_value
, Qleft
) && ! EQ (new_value
, Qright
)
662 && ! EQ (new_value
, Qbottom
) && ! EQ (new_value
, Qtop
))
664 if (EQ (new_value
, old_value
)) return;
667 if (xg_change_toolbar_position (f
, new_value
))
668 f
->tool_bar_position
= new_value
;
674 /* Set icon from FILE for frame F. By using GTK functions the icon
675 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
678 xg_set_icon (FRAME_PTR f
, Lisp_Object file
)
683 found
= x_find_image_file (file
);
689 char *filename
= SSDATA (found
);
692 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
696 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
698 g_object_unref (pixbuf
);
712 xg_set_icon_from_xpm_data (FRAME_PTR f
, const char **data
)
714 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data (data
);
719 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
720 g_object_unref (pixbuf
);
726 /* Functions called only from `x_set_frame_param'
727 to set individual parameters.
729 If FRAME_X_WINDOW (f) is 0,
730 the frame is being created and its X-window does not exist yet.
731 In that case, just record the parameter's new value
732 in the standard place; do not attempt to change the window. */
735 x_set_foreground_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
737 struct x_output
*x
= f
->output_data
.x
;
738 unsigned long fg
, old_fg
;
740 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
741 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
742 FRAME_FOREGROUND_PIXEL (f
) = fg
;
744 if (FRAME_X_WINDOW (f
) != 0)
746 Display
*dpy
= FRAME_X_DISPLAY (f
);
749 XSetForeground (dpy
, x
->normal_gc
, fg
);
750 XSetBackground (dpy
, x
->reverse_gc
, fg
);
752 if (x
->cursor_pixel
== old_fg
)
754 unload_color (f
, x
->cursor_pixel
);
755 x
->cursor_pixel
= x_copy_color (f
, fg
);
756 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
761 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
763 if (FRAME_VISIBLE_P (f
))
767 unload_color (f
, old_fg
);
771 x_set_background_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
773 struct x_output
*x
= f
->output_data
.x
;
776 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
777 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
778 FRAME_BACKGROUND_PIXEL (f
) = bg
;
780 if (FRAME_X_WINDOW (f
) != 0)
782 Display
*dpy
= FRAME_X_DISPLAY (f
);
785 XSetBackground (dpy
, x
->normal_gc
, bg
);
786 XSetForeground (dpy
, x
->reverse_gc
, bg
);
787 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
788 XSetForeground (dpy
, x
->cursor_gc
, bg
);
791 xg_set_background_color (f
, bg
);
794 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
795 toolkit scroll bars. */
798 for (bar
= FRAME_SCROLL_BARS (f
);
800 bar
= XSCROLL_BAR (bar
)->next
)
802 Window window
= XSCROLL_BAR (bar
)->x_window
;
803 XSetWindowBackground (dpy
, window
, bg
);
806 #endif /* USE_TOOLKIT_SCROLL_BARS */
809 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
811 if (FRAME_VISIBLE_P (f
))
817 make_invisible_cursor (struct frame
*f
)
819 Display
*dpy
= FRAME_X_DISPLAY (f
);
820 static char const no_data
[] = { 0 };
825 x_catch_errors (dpy
);
826 pix
= XCreateBitmapFromData (dpy
, FRAME_X_DISPLAY_INFO (f
)->root_window
,
828 if (! x_had_errors_p (dpy
) && pix
!= None
)
832 col
.red
= col
.green
= col
.blue
= 0;
833 col
.flags
= DoRed
| DoGreen
| DoBlue
;
834 pixc
= XCreatePixmapCursor (dpy
, pix
, pix
, &col
, &col
, 0, 0);
835 if (! x_had_errors_p (dpy
) && pixc
!= None
)
837 XFreePixmap (dpy
, pix
);
846 x_set_mouse_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
848 struct x_output
*x
= f
->output_data
.x
;
849 Display
*dpy
= FRAME_X_DISPLAY (f
);
850 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
851 Cursor hourglass_cursor
, horizontal_drag_cursor
;
852 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
853 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
855 /* Don't let pointers be invisible. */
856 if (mask_color
== pixel
)
858 x_free_colors (f
, &pixel
, 1);
859 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
862 unload_color (f
, x
->mouse_pixel
);
863 x
->mouse_pixel
= pixel
;
867 /* It's not okay to crash if the user selects a screwy cursor. */
868 x_catch_errors (dpy
);
870 if (!NILP (Vx_pointer_shape
))
872 CHECK_NUMBER (Vx_pointer_shape
);
873 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
876 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
877 x_check_errors (dpy
, "bad text pointer cursor: %s");
879 if (!NILP (Vx_nontext_pointer_shape
))
881 CHECK_NUMBER (Vx_nontext_pointer_shape
);
883 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
886 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
887 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
889 if (!NILP (Vx_hourglass_pointer_shape
))
891 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
893 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
896 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
897 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
899 if (!NILP (Vx_mode_pointer_shape
))
901 CHECK_NUMBER (Vx_mode_pointer_shape
);
902 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
905 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
906 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
908 if (!NILP (Vx_sensitive_text_pointer_shape
))
910 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
912 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
915 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
917 if (!NILP (Vx_window_horizontal_drag_shape
))
919 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
920 horizontal_drag_cursor
921 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
924 horizontal_drag_cursor
925 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
927 /* Check and report errors with the above calls. */
928 x_check_errors (dpy
, "can't set cursor shape: %s");
932 XColor fore_color
, back_color
;
934 fore_color
.pixel
= x
->mouse_pixel
;
935 x_query_color (f
, &fore_color
);
936 back_color
.pixel
= mask_color
;
937 x_query_color (f
, &back_color
);
939 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
940 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
941 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
942 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
943 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
944 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
947 if (FRAME_X_WINDOW (f
) != 0)
948 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
949 f
->output_data
.x
->current_cursor
= cursor
);
951 if (FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
== 0)
952 FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
= make_invisible_cursor (f
);
954 if (cursor
!= x
->text_cursor
955 && x
->text_cursor
!= 0)
956 XFreeCursor (dpy
, x
->text_cursor
);
957 x
->text_cursor
= cursor
;
959 if (nontext_cursor
!= x
->nontext_cursor
960 && x
->nontext_cursor
!= 0)
961 XFreeCursor (dpy
, x
->nontext_cursor
);
962 x
->nontext_cursor
= nontext_cursor
;
964 if (hourglass_cursor
!= x
->hourglass_cursor
965 && x
->hourglass_cursor
!= 0)
966 XFreeCursor (dpy
, x
->hourglass_cursor
);
967 x
->hourglass_cursor
= hourglass_cursor
;
969 if (mode_cursor
!= x
->modeline_cursor
970 && x
->modeline_cursor
!= 0)
971 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
972 x
->modeline_cursor
= mode_cursor
;
974 if (hand_cursor
!= x
->hand_cursor
975 && x
->hand_cursor
!= 0)
976 XFreeCursor (dpy
, x
->hand_cursor
);
977 x
->hand_cursor
= hand_cursor
;
979 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
980 && x
->horizontal_drag_cursor
!= 0)
981 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
982 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
987 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
991 x_set_cursor_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
993 unsigned long fore_pixel
, pixel
;
994 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
995 struct x_output
*x
= f
->output_data
.x
;
997 if (!NILP (Vx_cursor_fore_pixel
))
999 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1000 WHITE_PIX_DEFAULT (f
));
1001 fore_pixel_allocated_p
= 1;
1004 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1006 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1007 pixel_allocated_p
= 1;
1009 /* Make sure that the cursor color differs from the background color. */
1010 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1012 if (pixel_allocated_p
)
1014 x_free_colors (f
, &pixel
, 1);
1015 pixel_allocated_p
= 0;
1018 pixel
= x
->mouse_pixel
;
1019 if (pixel
== fore_pixel
)
1021 if (fore_pixel_allocated_p
)
1023 x_free_colors (f
, &fore_pixel
, 1);
1024 fore_pixel_allocated_p
= 0;
1026 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1030 unload_color (f
, x
->cursor_foreground_pixel
);
1031 if (!fore_pixel_allocated_p
)
1032 fore_pixel
= x_copy_color (f
, fore_pixel
);
1033 x
->cursor_foreground_pixel
= fore_pixel
;
1035 unload_color (f
, x
->cursor_pixel
);
1036 if (!pixel_allocated_p
)
1037 pixel
= x_copy_color (f
, pixel
);
1038 x
->cursor_pixel
= pixel
;
1040 if (FRAME_X_WINDOW (f
) != 0)
1043 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1044 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1047 if (FRAME_VISIBLE_P (f
))
1049 x_update_cursor (f
, 0);
1050 x_update_cursor (f
, 1);
1054 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1057 /* Set the border-color of frame F to pixel value PIX.
1058 Note that this does not fully take effect if done before
1059 F has an x-window. */
1062 x_set_border_pixel (struct frame
*f
, int pix
)
1064 unload_color (f
, f
->output_data
.x
->border_pixel
);
1065 f
->output_data
.x
->border_pixel
= pix
;
1067 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1070 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), pix
);
1073 if (FRAME_VISIBLE_P (f
))
1078 /* Set the border-color of frame F to value described by ARG.
1079 ARG can be a string naming a color.
1080 The border-color is used for the border that is drawn by the X server.
1081 Note that this does not fully take effect if done before
1082 F has an x-window; it must be redone when the window is created.
1084 Note: this is done in two routines because of the way X10 works.
1086 Note: under X11, this is normally the province of the window manager,
1087 and so emacs' border colors may be overridden. */
1090 x_set_border_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1095 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1096 x_set_border_pixel (f
, pix
);
1097 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1102 x_set_cursor_type (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1104 set_frame_cursor_types (f
, arg
);
1106 /* Make sure the cursor gets redrawn. */
1107 cursor_type_changed
= 1;
1111 x_set_icon_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1117 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1120 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1125 result
= x_text_icon (f
,
1126 SSDATA ((!NILP (f
->icon_name
)
1130 result
= x_bitmap_icon (f
, arg
);
1135 error ("No icon window available");
1138 XFlush (FRAME_X_DISPLAY (f
));
1143 x_set_icon_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1149 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1152 else if (!NILP (arg
) || NILP (oldval
))
1157 if (f
->output_data
.x
->icon_bitmap
!= 0)
1162 result
= x_text_icon (f
,
1163 SSDATA ((!NILP (f
->icon_name
)
1172 error ("No icon window available");
1175 XFlush (FRAME_X_DISPLAY (f
));
1181 x_set_menu_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1184 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1185 int olines
= FRAME_MENU_BAR_LINES (f
);
1188 /* Right now, menu bars don't work properly in minibuf-only frames;
1189 most of the commands try to apply themselves to the minibuffer
1190 frame itself, and get an error because you can't switch buffers
1191 in or split the minibuffer window. */
1192 if (FRAME_MINIBUF_ONLY_P (f
))
1195 if (TYPE_RANGED_INTEGERP (int, value
))
1196 nlines
= XINT (value
);
1200 /* Make sure we redisplay all windows in this frame. */
1201 windows_or_buffers_changed
++;
1203 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1204 FRAME_MENU_BAR_LINES (f
) = 0;
1207 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1208 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1209 /* Make sure next redisplay shows the menu bar. */
1210 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= 1;
1214 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1215 free_frame_menubar (f
);
1216 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1218 f
->output_data
.x
->menubar_widget
= 0;
1220 #else /* not USE_X_TOOLKIT && not USE_GTK */
1221 FRAME_MENU_BAR_LINES (f
) = nlines
;
1222 resize_frame_windows (f
, FRAME_LINES (f
), 0);
1224 /* If the menu bar height gets changed, the internal border below
1225 the top margin has to be cleared. Also, if the menu bar gets
1226 larger, the area for the added lines has to be cleared except for
1227 the first menu bar line that is to be drawn later. */
1228 if (nlines
!= olines
)
1230 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1231 int width
= FRAME_PIXEL_WIDTH (f
);
1234 /* height can be zero here. */
1235 if (height
> 0 && width
> 0)
1237 y
= FRAME_TOP_MARGIN_HEIGHT (f
);
1240 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1241 0, y
, width
, height
, False
);
1245 if (nlines
> 1 && nlines
> olines
)
1247 y
= (olines
== 0 ? 1 : olines
) * FRAME_LINE_HEIGHT (f
);
1248 height
= nlines
* FRAME_LINE_HEIGHT (f
) - y
;
1251 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1252 0, y
, width
, height
, False
);
1256 if (nlines
== 0 && WINDOWP (f
->menu_bar_window
))
1257 clear_glyph_matrix (XWINDOW (f
->menu_bar_window
)->current_matrix
);
1259 #endif /* not USE_X_TOOLKIT && not USE_GTK */
1261 run_window_configuration_change_hook (f
);
1265 /* Set the number of lines used for the tool bar of frame F to VALUE.
1266 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1267 is the old number of tool bar lines. This function changes the
1268 height of all windows on frame F to match the new tool bar height.
1269 The frame's height doesn't change. */
1272 x_set_tool_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1274 int delta
, nlines
, root_height
;
1275 Lisp_Object root_window
;
1277 /* Treat tool bars like menu bars. */
1278 if (FRAME_MINIBUF_ONLY_P (f
))
1281 /* Use VALUE only if an int >= 0. */
1282 if (RANGED_INTEGERP (0, value
, INT_MAX
))
1283 nlines
= XFASTINT (value
);
1288 FRAME_TOOL_BAR_LINES (f
) = 0;
1291 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1292 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1293 /* Make sure next redisplay shows the tool bar. */
1294 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= 1;
1295 update_frame_tool_bar (f
);
1299 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1300 free_frame_tool_bar (f
);
1301 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1307 /* Make sure we redisplay all windows in this frame. */
1308 ++windows_or_buffers_changed
;
1310 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1312 /* Don't resize the tool-bar to more than we have room for. */
1313 root_window
= FRAME_ROOT_WINDOW (f
);
1314 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1315 if (root_height
- delta
< 1)
1317 delta
= root_height
- 1;
1318 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1321 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1322 resize_frame_windows (f
, FRAME_LINES (f
), 0);
1325 /* We also have to make sure that the internal border at the top of
1326 the frame, below the menu bar or tool bar, is redrawn when the
1327 tool bar disappears. This is so because the internal border is
1328 below the tool bar if one is displayed, but is below the menu bar
1329 if there isn't a tool bar. The tool bar draws into the area
1330 below the menu bar. */
1331 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1334 clear_current_matrices (f
);
1337 /* If the tool bar gets smaller, the internal border below it
1338 has to be cleared. It was formerly part of the display
1339 of the larger tool bar, and updating windows won't clear it. */
1342 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1343 int width
= FRAME_PIXEL_WIDTH (f
);
1344 int y
= (FRAME_MENU_BAR_LINES (f
) + nlines
) * FRAME_LINE_HEIGHT (f
);
1346 /* height can be zero here. */
1347 if (height
> 0 && width
> 0)
1350 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1351 0, y
, width
, height
, False
);
1355 if (WINDOWP (f
->tool_bar_window
))
1356 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1359 run_window_configuration_change_hook (f
);
1364 /* Set the foreground color for scroll bars on frame F to VALUE.
1365 VALUE should be a string, a color name. If it isn't a string or
1366 isn't a valid color name, do nothing. OLDVAL is the old value of
1367 the frame parameter. */
1370 x_set_scroll_bar_foreground (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1372 unsigned long pixel
;
1374 if (STRINGP (value
))
1375 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1379 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1380 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1382 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1383 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1385 /* Remove all scroll bars because they have wrong colors. */
1386 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1387 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1388 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1389 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1391 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1397 /* Set the background color for scroll bars on frame F to VALUE VALUE
1398 should be a string, a color name. If it isn't a string or isn't a
1399 valid color name, do nothing. OLDVAL is the old value of the frame
1403 x_set_scroll_bar_background (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1405 unsigned long pixel
;
1407 if (STRINGP (value
))
1408 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1412 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1413 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1415 #ifdef USE_TOOLKIT_SCROLL_BARS
1416 /* Scrollbar shadow colors. */
1417 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1419 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1420 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1422 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1424 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1425 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1427 #endif /* USE_TOOLKIT_SCROLL_BARS */
1429 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1430 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1432 /* Remove all scroll bars because they have wrong colors. */
1433 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1434 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1435 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1436 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1438 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1444 /* Encode Lisp string STRING as a text in a format appropriate for
1445 XICCC (X Inter Client Communication Conventions).
1447 This can call Lisp code, so callers must GCPRO.
1449 If STRING contains only ASCII characters, do no conversion and
1450 return the string data of STRING. Otherwise, encode the text by
1451 CODING_SYSTEM, and return a newly allocated memory area which
1452 should be freed by `xfree' by a caller.
1454 SELECTIONP non-zero means the string is being encoded for an X
1455 selection, so it is safe to run pre-write conversions (which
1458 Store the byte length of resulting text in *TEXT_BYTES.
1460 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1461 which means that the `encoding' of the result can be `STRING'.
1462 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1463 the result should be `COMPOUND_TEXT'. */
1465 static unsigned char *
1466 x_encode_text (Lisp_Object string
, Lisp_Object coding_system
, int selectionp
,
1467 ptrdiff_t *text_bytes
, int *stringp
, int *freep
)
1469 int result
= string_xstring_p (string
);
1470 struct coding_system coding
;
1474 /* No multibyte character in OBJ. We need not encode it. */
1475 *text_bytes
= SBYTES (string
);
1478 return SDATA (string
);
1481 setup_coding_system (coding_system
, &coding
);
1482 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1483 /* We suppress producing escape sequences for composition. */
1484 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1485 coding
.destination
= xnmalloc (SCHARS (string
), 2);
1486 coding
.dst_bytes
= SCHARS (string
) * 2;
1487 encode_coding_object (&coding
, string
, 0, 0,
1488 SCHARS (string
), SBYTES (string
), Qnil
);
1489 *text_bytes
= coding
.produced
;
1490 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1492 return coding
.destination
;
1496 /* Set the WM name to NAME for frame F. Also set the icon name.
1497 If the frame already has an icon name, use that, otherwise set the
1498 icon name to NAME. */
1501 x_set_name_internal (FRAME_PTR f
, Lisp_Object name
)
1503 if (FRAME_X_WINDOW (f
))
1507 XTextProperty text
, icon
;
1510 int do_free_icon_value
= 0, do_free_text_value
= 0;
1511 Lisp_Object coding_system
;
1512 Lisp_Object encoded_name
;
1513 Lisp_Object encoded_icon_name
;
1514 struct gcpro gcpro1
;
1516 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1517 we use it before x_encode_text that may return string data. */
1519 encoded_name
= ENCODE_UTF_8 (name
);
1522 coding_system
= Qcompound_text
;
1523 /* Note: Encoding strategy
1525 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1526 text.encoding. But, there are non-internationalized window
1527 managers which don't support that encoding. So, if NAME
1528 contains only ASCII and 8859-1 characters, encode it by
1529 iso-latin-1, and use "STRING" in text.encoding hoping that
1530 such window managers at least analyze this format correctly,
1531 i.e. treat 8-bit bytes as 8859-1 characters.
1533 We may also be able to use "UTF8_STRING" in text.encoding
1534 in the future which can encode all Unicode characters.
1535 But, for the moment, there's no way to know that the
1536 current window manager supports it or not.
1538 Either way, we also set the _NET_WM_NAME and _NET_WM_ICON_NAME
1539 properties. Per the EWMH specification, those two properties
1540 are always UTF8_STRING. This matches what gtk_window_set_title()
1541 does in the USE_GTK case. */
1542 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1543 &do_free_text_value
);
1544 text
.encoding
= (stringp
? XA_STRING
1545 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1547 text
.nitems
= bytes
;
1548 if (text
.nitems
!= bytes
)
1549 error ("Window name too large");
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
;
1565 if (icon
.nitems
!= bytes
)
1566 error ("Icon name too large");
1568 encoded_icon_name
= ENCODE_UTF_8 (f
->icon_name
);
1572 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1573 SSDATA (encoded_name
));
1574 #else /* not USE_GTK */
1575 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1576 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1577 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_name
,
1578 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1580 SDATA (encoded_name
),
1581 SBYTES (encoded_name
));
1582 #endif /* not USE_GTK */
1584 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1585 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1586 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_icon_name
,
1587 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1589 SDATA (encoded_icon_name
),
1590 SBYTES (encoded_icon_name
));
1592 if (do_free_icon_value
)
1594 if (do_free_text_value
)
1601 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1604 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1605 name; if NAME is a string, set F's name to NAME and set
1606 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1608 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1609 suggesting a new name, which lisp code should override; if
1610 F->explicit_name is set, ignore the new name; otherwise, set it. */
1613 x_set_name (struct frame
*f
, Lisp_Object name
, int explicit)
1615 /* Make sure that requests from lisp code override requests from
1616 Emacs redisplay code. */
1619 /* If we're switching from explicit to implicit, we had better
1620 update the mode lines and thereby update the title. */
1621 if (f
->explicit_name
&& NILP (name
))
1622 update_mode_lines
= 1;
1624 f
->explicit_name
= ! NILP (name
);
1626 else if (f
->explicit_name
)
1629 /* If NAME is nil, set the name to the x_id_name. */
1632 /* Check for no change needed in this very common case
1633 before we do any consing. */
1634 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1637 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1640 CHECK_STRING (name
);
1642 /* Don't change the name if it's already NAME. */
1643 if (! NILP (Fstring_equal (name
, f
->name
)))
1648 /* For setting the frame title, the title parameter should override
1649 the name parameter. */
1650 if (! NILP (f
->title
))
1653 x_set_name_internal (f
, name
);
1656 /* This function should be called when the user's lisp code has
1657 specified a name for the frame; the name will override any set by the
1660 x_explicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1662 x_set_name (f
, arg
, 1);
1665 /* This function should be called by Emacs redisplay code to set the
1666 name; names set this way will never override names set by the user's
1669 x_implicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1671 x_set_name (f
, arg
, 0);
1674 /* Change the title of frame F to NAME.
1675 If NAME is nil, use the frame name as the title. */
1678 x_set_title (struct frame
*f
, Lisp_Object name
, Lisp_Object old_name
)
1680 /* Don't change the title if it's already NAME. */
1681 if (EQ (name
, f
->title
))
1684 update_mode_lines
= 1;
1691 CHECK_STRING (name
);
1693 x_set_name_internal (f
, name
);
1697 x_set_scroll_bar_default_width (struct frame
*f
)
1699 int wid
= FRAME_COLUMN_WIDTH (f
);
1700 #ifdef USE_TOOLKIT_SCROLL_BARS
1702 int minw
= xg_get_default_scrollbar_width ();
1706 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1707 int width
= minw
+ 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1708 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1709 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1711 /* Make the actual width at least 14 pixels and a multiple of a
1713 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1715 /* Use all of that space (aside from required margins) for the
1717 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1722 /* Record in frame F the specified or default value according to ALIST
1723 of the parameter named PROP (a Lisp symbol). If no value is
1724 specified for PROP, look for an X default for XPROP on the frame
1725 named NAME. If that is not found either, use the value DEFLT. */
1728 x_default_scroll_bar_color_parameter (struct frame
*f
,
1729 Lisp_Object alist
, Lisp_Object prop
,
1730 const char *xprop
, const char *xclass
,
1733 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1736 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1737 if (EQ (tem
, Qunbound
))
1739 #ifdef USE_TOOLKIT_SCROLL_BARS
1741 /* See if an X resource for the scroll bar color has been
1743 tem
= display_x_get_resource (dpyinfo
,
1744 build_string (foreground_p
1747 empty_unibyte_string
,
1748 build_string ("verticalScrollBar"),
1749 empty_unibyte_string
);
1752 /* If nothing has been specified, scroll bars will use a
1753 toolkit-dependent default. Because these defaults are
1754 difficult to get at without actually creating a scroll
1755 bar, use nil to indicate that no color has been
1760 #else /* not USE_TOOLKIT_SCROLL_BARS */
1764 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1767 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1774 #ifdef USE_X_TOOLKIT
1776 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1777 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1778 already be present because of the toolkit (Motif adds some of them,
1779 for example, but Xt doesn't). */
1782 hack_wm_protocols (FRAME_PTR f
, Widget widget
)
1784 Display
*dpy
= XtDisplay (widget
);
1785 Window w
= XtWindow (widget
);
1786 int need_delete
= 1;
1793 unsigned char *catoms
;
1795 unsigned long nitems
= 0;
1796 unsigned long bytes_after
;
1798 if ((XGetWindowProperty (dpy
, w
,
1799 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1800 (long)0, (long)100, False
, XA_ATOM
,
1801 &type
, &format
, &nitems
, &bytes_after
,
1804 && format
== 32 && type
== XA_ATOM
)
1806 Atom
*atoms
= (Atom
*) catoms
;
1811 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1813 else if (atoms
[nitems
]
1814 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1816 else if (atoms
[nitems
]
1817 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1828 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1830 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1832 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1834 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1835 XA_ATOM
, 32, PropModeAppend
,
1836 (unsigned char *) props
, count
);
1844 /* Support routines for XIC (X Input Context). */
1848 static XFontSet
xic_create_xfontset (struct frame
*);
1849 static XIMStyle
best_xim_style (XIMStyles
*, XIMStyles
*);
1852 /* Supported XIM styles, ordered by preference. */
1854 static XIMStyle supported_xim_styles
[] =
1856 XIMPreeditPosition
| XIMStatusArea
,
1857 XIMPreeditPosition
| XIMStatusNothing
,
1858 XIMPreeditPosition
| XIMStatusNone
,
1859 XIMPreeditNothing
| XIMStatusArea
,
1860 XIMPreeditNothing
| XIMStatusNothing
,
1861 XIMPreeditNothing
| XIMStatusNone
,
1862 XIMPreeditNone
| XIMStatusArea
,
1863 XIMPreeditNone
| XIMStatusNothing
,
1864 XIMPreeditNone
| XIMStatusNone
,
1869 #if defined HAVE_X_WINDOWS && defined USE_X_TOOLKIT
1870 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1872 static const char xic_default_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1874 /* Create an Xt fontset spec from the name of a base font.
1875 If `motif' is True use the Motif syntax. */
1877 xic_create_fontsetname (const char *base_fontname
, int motif
)
1879 const char *sep
= motif
? ";" : ",";
1882 /* Make a fontset name from the base font name. */
1883 if (xic_default_fontset
== base_fontname
)
1885 /* There is no base font name, use the default. */
1886 fontsetname
= xmalloc (strlen (base_fontname
) + 2);
1887 strcpy (fontsetname
, base_fontname
);
1891 /* Make a fontset name from the base font name.
1892 The font set will be made of the following elements:
1894 - the base font where the charset spec is replaced by -*-*.
1895 - the same but with the family also replaced with -*-*-. */
1896 const char *p
= base_fontname
;
1899 for (i
= 0; *p
; p
++)
1903 /* As the font name doesn't conform to XLFD, we can't
1904 modify it to generalize it to allcs and allfamilies.
1905 Use the specified font plus the default. */
1906 fontsetname
= xmalloc (strlen (base_fontname
)
1907 + strlen (xic_default_fontset
) + 3);
1908 strcpy (fontsetname
, base_fontname
);
1909 strcat (fontsetname
, sep
);
1910 strcat (fontsetname
, xic_default_fontset
);
1915 const char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1916 char *font_allcs
= NULL
;
1917 char *font_allfamilies
= NULL
;
1918 char *font_all
= NULL
;
1919 const char *allcs
= "*-*-*-*-*-*-*";
1920 const char *allfamilies
= "-*-*-";
1921 const char *all
= "*-*-*-*-";
1924 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
1937 /* If base_fontname specifies ADSTYLE, make it a
1941 ptrdiff_t diff
= (p2
- p3
) - 2;
1943 base
= alloca (strlen (base_fontname
) + 1);
1944 memcpy (base
, base_fontname
, p3
- base_fontname
);
1945 base
[p3
- base_fontname
] = '*';
1946 base
[(p3
- base_fontname
) + 1] = '-';
1947 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
1948 p
= base
+ (p
- base_fontname
) - diff
;
1949 p1
= base
+ (p1
- base_fontname
);
1950 p2
= base
+ (p2
- base_fontname
) - diff
;
1951 base_fontname
= base
;
1954 /* Build the font spec that matches all charsets. */
1955 len
= p
- base_fontname
+ strlen (allcs
) + 1;
1956 font_allcs
= alloca (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
= alloca (len
);
1964 strcpy (font_allfamilies
, allfamilies
);
1965 memcpy (font_allfamilies
+ strlen (allfamilies
), p1
, p
- p1
);
1966 strcat (font_allfamilies
, allcs
);
1968 /* Build the font spec that matches all. */
1969 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
1970 font_all
= alloca (len
);
1971 strcpy (font_all
, allfamilies
);
1972 strcat (font_all
, all
);
1973 memcpy (font_all
+ strlen (all
) + strlen (allfamilies
), p2
, p
- p2
);
1974 strcat (font_all
, allcs
);
1976 /* Build the actual font set name. */
1977 len
= strlen (base_fontname
) + strlen (font_allcs
)
1978 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
1979 fontsetname
= xmalloc (len
);
1980 strcpy (fontsetname
, base_fontname
);
1981 strcat (fontsetname
, sep
);
1982 strcat (fontsetname
, font_allcs
);
1983 strcat (fontsetname
, sep
);
1984 strcat (fontsetname
, font_allfamilies
);
1985 strcat (fontsetname
, sep
);
1986 strcat (fontsetname
, font_all
);
1990 strcat (fontsetname
, ":");
1993 #endif /* HAVE_X_WINDOWS && USE_X_TOOLKIT */
1995 #ifdef DEBUG_XIC_FONTSET
1997 print_fontset_result (XFontSet xfs
, char *name
, char **missing_list
,
2001 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
2004 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
2005 while (missing_count
-- > 0)
2007 fprintf (stderr
, " missing: %s\n", *missing_list
);
2016 xic_create_xfontset (struct frame
*f
)
2018 XFontSet xfs
= NULL
;
2019 struct font
*font
= FRAME_FONT (f
);
2020 int pixel_size
= font
->pixel_size
;
2021 Lisp_Object rest
, frame
;
2023 /* See if there is another frame already using same fontset. */
2024 FOR_EACH_FRAME (rest
, frame
)
2026 struct frame
*cf
= XFRAME (frame
);
2028 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2029 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2031 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
2033 xfs
= FRAME_XIC_FONTSET (cf
);
2041 char **missing_list
;
2044 const char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
2046 sprintf (buf
, xlfd_format
, pixel_size
);
2047 missing_list
= NULL
;
2048 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2049 &missing_list
, &missing_count
, &def_string
);
2050 #ifdef DEBUG_XIC_FONTSET
2051 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2054 XFreeStringList (missing_list
);
2057 /* List of pixel sizes most likely available. Find one that
2058 is closest to pixel_size. */
2059 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2060 int *smaller
, *larger
;
2062 for (smaller
= sizes
; smaller
[1]; smaller
++)
2063 if (smaller
[1] >= pixel_size
)
2065 larger
= smaller
+ 1;
2066 if (*larger
== pixel_size
)
2068 while (*smaller
|| *larger
)
2073 this_size
= *smaller
--;
2074 else if (! *smaller
)
2075 this_size
= *larger
++;
2076 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
2077 this_size
= *smaller
--;
2079 this_size
= *larger
++;
2080 sprintf (buf
, xlfd_format
, this_size
);
2081 missing_list
= NULL
;
2082 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2083 &missing_list
, &missing_count
, &def_string
);
2084 #ifdef DEBUG_XIC_FONTSET
2085 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2088 XFreeStringList (missing_list
);
2095 const char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
2097 missing_list
= NULL
;
2098 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
2099 &missing_list
, &missing_count
, &def_string
);
2100 #ifdef DEBUG_XIC_FONTSET
2101 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
2104 XFreeStringList (missing_list
);
2112 /* Free the X fontset of frame F if it is the last frame using it. */
2115 xic_free_xfontset (struct frame
*f
)
2117 Lisp_Object rest
, frame
;
2120 if (!FRAME_XIC_FONTSET (f
))
2123 /* See if there is another frame sharing the same fontset. */
2124 FOR_EACH_FRAME (rest
, frame
)
2126 struct frame
*cf
= XFRAME (frame
);
2127 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2128 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2129 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2137 /* The fontset is not used anymore. It is safe to free it. */
2138 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2140 if (FRAME_XIC_BASE_FONTNAME (f
))
2141 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2142 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2143 FRAME_XIC_FONTSET (f
) = NULL
;
2147 /* Value is the best input style, given user preferences USER (already
2148 checked to be supported by Emacs), and styles supported by the
2149 input method XIM. */
2152 best_xim_style (XIMStyles
*user
, XIMStyles
*xim
)
2156 for (i
= 0; i
< user
->count_styles
; ++i
)
2157 for (j
= 0; j
< xim
->count_styles
; ++j
)
2158 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2159 return user
->supported_styles
[i
];
2161 /* Return the default style. */
2162 return XIMPreeditNothing
| XIMStatusNothing
;
2165 /* Create XIC for frame F. */
2167 static XIMStyle xic_style
;
2170 create_frame_xic (struct frame
*f
)
2174 XFontSet xfs
= NULL
;
2179 /* Create X fontset. */
2180 xfs
= xic_create_xfontset (f
);
2181 xim
= FRAME_X_XIM (f
);
2186 XVaNestedList preedit_attr
;
2187 XVaNestedList status_attr
;
2189 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2190 spot
.x
= 0; spot
.y
= 1;
2192 /* Determine XIC style. */
2195 XIMStyles supported_list
;
2196 supported_list
.count_styles
= (sizeof supported_xim_styles
2197 / sizeof supported_xim_styles
[0]);
2198 supported_list
.supported_styles
= supported_xim_styles
;
2199 xic_style
= best_xim_style (&supported_list
,
2200 FRAME_X_XIM_STYLES (f
));
2203 preedit_attr
= XVaCreateNestedList (0,
2206 FRAME_FOREGROUND_PIXEL (f
),
2208 FRAME_BACKGROUND_PIXEL (f
),
2209 (xic_style
& XIMPreeditPosition
2214 status_attr
= XVaCreateNestedList (0,
2220 FRAME_FOREGROUND_PIXEL (f
),
2222 FRAME_BACKGROUND_PIXEL (f
),
2225 xic
= XCreateIC (xim
,
2226 XNInputStyle
, xic_style
,
2227 XNClientWindow
, FRAME_X_WINDOW (f
),
2228 XNFocusWindow
, FRAME_X_WINDOW (f
),
2229 XNStatusAttributes
, status_attr
,
2230 XNPreeditAttributes
, preedit_attr
,
2232 XFree (preedit_attr
);
2233 XFree (status_attr
);
2236 FRAME_XIC (f
) = xic
;
2237 FRAME_XIC_STYLE (f
) = xic_style
;
2238 FRAME_XIC_FONTSET (f
) = xfs
;
2242 /* Destroy XIC and free XIC fontset of frame F, if any. */
2245 free_frame_xic (struct frame
*f
)
2247 if (FRAME_XIC (f
) == NULL
)
2250 XDestroyIC (FRAME_XIC (f
));
2251 xic_free_xfontset (f
);
2253 FRAME_XIC (f
) = NULL
;
2257 /* Place preedit area for XIC of window W's frame to specified
2258 pixel position X/Y. X and Y are relative to window W. */
2261 xic_set_preeditarea (struct window
*w
, int x
, int y
)
2263 struct frame
*f
= XFRAME (w
->frame
);
2267 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2268 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2269 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2270 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2275 /* Place status area for XIC in bottom right corner of frame F.. */
2278 xic_set_statusarea (struct frame
*f
)
2280 XIC xic
= FRAME_XIC (f
);
2285 /* Negotiate geometry of status area. If input method has existing
2286 status area, use its current size. */
2287 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2288 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2289 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2292 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2293 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2296 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2298 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2299 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2303 area
.width
= needed
->width
;
2304 area
.height
= needed
->height
;
2305 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2306 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2307 - FRAME_MENUBAR_HEIGHT (f
)
2308 - FRAME_TOOLBAR_TOP_HEIGHT (f
)
2309 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2312 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2313 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2318 /* Set X fontset for XIC of frame F, using base font name
2319 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2322 xic_set_xfontset (struct frame
*f
, const char *base_fontname
)
2327 xic_free_xfontset (f
);
2329 xfs
= xic_create_xfontset (f
);
2331 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2332 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2333 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2334 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2335 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2338 FRAME_XIC_FONTSET (f
) = xfs
;
2341 #endif /* HAVE_X_I18N */
2345 #ifdef USE_X_TOOLKIT
2347 /* Create and set up the X widget for frame F. */
2350 x_window (struct frame
*f
, long window_prompting
, int minibuffer_only
)
2352 XClassHint class_hints
;
2353 XSetWindowAttributes attributes
;
2354 unsigned long attribute_mask
;
2355 Widget shell_widget
;
2357 Widget frame_widget
;
2363 /* Use the resource name as the top-level widget name
2364 for looking up resources. Make a non-Lisp copy
2365 for the window manager, so GC relocation won't bother it.
2367 Elsewhere we specify the window name for the window manager. */
2370 char *str
= SSDATA (Vx_resource_name
);
2371 f
->namebuf
= xmalloc (strlen (str
) + 1);
2372 strcpy (f
->namebuf
, str
);
2376 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2377 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2378 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2379 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2380 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2381 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2382 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2383 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2384 applicationShellWidgetClass
,
2385 FRAME_X_DISPLAY (f
), al
, ac
);
2387 f
->output_data
.x
->widget
= shell_widget
;
2388 /* maybe_set_screen_title_format (shell_widget); */
2390 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2391 (widget_value
*) NULL
,
2392 shell_widget
, False
,
2396 (lw_callback
) NULL
);
2399 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2400 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2401 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2402 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2403 XtSetValues (pane_widget
, al
, ac
);
2404 f
->output_data
.x
->column_widget
= pane_widget
;
2406 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2407 the emacs screen when changing menubar. This reduces flickering. */
2410 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2411 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2412 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2413 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2414 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2415 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2416 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2417 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2418 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2419 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2422 f
->output_data
.x
->edit_widget
= frame_widget
;
2424 XtManageChild (frame_widget
);
2426 /* Do some needed geometry management. */
2428 char *tem
, shell_position
[sizeof "=x++" + 4 * INT_STRLEN_BOUND (int)];
2431 int extra_borders
= 0;
2433 = (f
->output_data
.x
->menubar_widget
2434 ? (f
->output_data
.x
->menubar_widget
->core
.height
2435 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2438 #if 0 /* Experimentally, we now get the right results
2439 for -geometry -0-0 without this. 24 Aug 96, rms. */
2440 if (FRAME_EXTERNAL_MENU_BAR (f
))
2443 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2444 menubar_size
+= ibw
;
2448 f
->output_data
.x
->menubar_height
= menubar_size
;
2451 /* Motif seems to need this amount added to the sizes
2452 specified for the shell widget. The Athena/Lucid widgets don't.
2453 Both conclusions reached experimentally. -- rms. */
2454 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2455 &extra_borders
, NULL
);
2459 /* Convert our geometry parameters into a geometry string
2461 Note that we do not specify here whether the position
2462 is a user-specified or program-specified one.
2463 We pass that information later, in x_wm_set_size_hints. */
2465 int left
= f
->left_pos
;
2466 int xneg
= window_prompting
& XNegative
;
2467 int top
= f
->top_pos
;
2468 int yneg
= window_prompting
& YNegative
;
2474 if (window_prompting
& USPosition
)
2475 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2476 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2477 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2478 (xneg
? '-' : '+'), left
,
2479 (yneg
? '-' : '+'), top
);
2482 sprintf (shell_position
, "=%dx%d",
2483 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2484 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2486 /* Setting x and y when the position is not specified in
2487 the geometry string will set program position in the WM hints.
2488 If Emacs had just one program position, we could set it in
2489 fallback resources, but since each make-frame call can specify
2490 different program positions, this is easier. */
2491 XtSetArg (gal
[gac
], XtNx
, left
); gac
++;
2492 XtSetArg (gal
[gac
], XtNy
, top
); gac
++;
2496 /* We don't free this because we don't know whether
2497 it is safe to free it while the frame exists.
2498 It isn't worth the trouble of arranging to free it
2499 when the frame is deleted. */
2500 tem
= xstrdup (shell_position
);
2501 XtSetArg (gal
[gac
], XtNgeometry
, tem
); gac
++;
2502 XtSetValues (shell_widget
, gal
, gac
);
2505 XtManageChild (pane_widget
);
2506 XtRealizeWidget (shell_widget
);
2508 if (FRAME_X_EMBEDDED_P (f
))
2509 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2510 f
->output_data
.x
->parent_desc
, 0, 0);
2512 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2514 validate_x_resource_name ();
2516 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2517 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2518 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2521 FRAME_XIC (f
) = NULL
;
2523 create_frame_xic (f
);
2526 f
->output_data
.x
->wm_hints
.input
= True
;
2527 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2528 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2529 &f
->output_data
.x
->wm_hints
);
2531 hack_wm_protocols (f
, shell_widget
);
2534 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2537 /* Do a stupid property change to force the server to generate a
2538 PropertyNotify event so that the event_stream server timestamp will
2539 be initialized to something relevant to the time we created the window.
2541 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2542 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2543 XA_ATOM
, 32, PropModeAppend
,
2544 (unsigned char*) NULL
, 0);
2546 /* Make all the standard events reach the Emacs frame. */
2547 attributes
.event_mask
= STANDARD_EVENT_SET
;
2552 /* XIM server might require some X events. */
2553 unsigned long fevent
= NoEventMask
;
2554 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2555 attributes
.event_mask
|= fevent
;
2557 #endif /* HAVE_X_I18N */
2559 attribute_mask
= CWEventMask
;
2560 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2561 attribute_mask
, &attributes
);
2563 XtMapWidget (frame_widget
);
2565 /* x_set_name normally ignores requests to set the name if the
2566 requested name is the same as the current name. This is the one
2567 place where that assumption isn't correct; f->name is set, but
2568 the X server hasn't been told. */
2571 int explicit = f
->explicit_name
;
2573 f
->explicit_name
= 0;
2576 x_set_name (f
, name
, explicit);
2579 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2580 f
->output_data
.x
->current_cursor
2581 = f
->output_data
.x
->text_cursor
);
2585 /* This is a no-op, except under Motif. Make sure main areas are
2586 set to something reasonable, in case we get an error later. */
2587 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2590 #else /* not USE_X_TOOLKIT */
2593 x_window (FRAME_PTR f
)
2595 if (! xg_create_frame_widgets (f
))
2596 error ("Unable to create window");
2599 FRAME_XIC (f
) = NULL
;
2603 create_frame_xic (f
);
2606 /* XIM server might require some X events. */
2607 unsigned long fevent
= NoEventMask
;
2608 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2610 if (fevent
!= NoEventMask
)
2612 XSetWindowAttributes attributes
;
2613 XWindowAttributes wattr
;
2614 unsigned long attribute_mask
;
2616 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2618 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2619 attribute_mask
= CWEventMask
;
2620 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2621 attribute_mask
, &attributes
);
2629 #else /*! USE_GTK */
2630 /* Create and set up the X window for frame F. */
2633 x_window (struct frame
*f
)
2635 XClassHint class_hints
;
2636 XSetWindowAttributes attributes
;
2637 unsigned long attribute_mask
;
2639 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2640 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2641 attributes
.bit_gravity
= StaticGravity
;
2642 attributes
.backing_store
= NotUseful
;
2643 attributes
.save_under
= True
;
2644 attributes
.event_mask
= STANDARD_EVENT_SET
;
2645 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2646 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2651 = XCreateWindow (FRAME_X_DISPLAY (f
),
2652 f
->output_data
.x
->parent_desc
,
2655 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2657 CopyFromParent
, /* depth */
2658 InputOutput
, /* class */
2660 attribute_mask
, &attributes
);
2665 create_frame_xic (f
);
2668 /* XIM server might require some X events. */
2669 unsigned long fevent
= NoEventMask
;
2670 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2671 attributes
.event_mask
|= fevent
;
2672 attribute_mask
= CWEventMask
;
2673 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2674 attribute_mask
, &attributes
);
2677 #endif /* HAVE_X_I18N */
2679 validate_x_resource_name ();
2681 class_hints
.res_name
= SSDATA (Vx_resource_name
);
2682 class_hints
.res_class
= SSDATA (Vx_resource_class
);
2683 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2685 /* The menubar is part of the ordinary display;
2686 it does not count in addition to the height of the window. */
2687 f
->output_data
.x
->menubar_height
= 0;
2689 /* This indicates that we use the "Passive Input" input model.
2690 Unless we do this, we don't get the Focus{In,Out} events that we
2691 need to draw the cursor correctly. Accursed bureaucrats.
2692 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2694 f
->output_data
.x
->wm_hints
.input
= True
;
2695 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2696 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2697 &f
->output_data
.x
->wm_hints
);
2698 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2700 /* Request "save yourself" and "delete window" commands from wm. */
2703 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2704 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2705 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2708 /* x_set_name normally ignores requests to set the name if the
2709 requested name is the same as the current name. This is the one
2710 place where that assumption isn't correct; f->name is set, but
2711 the X server hasn't been told. */
2714 int explicit = f
->explicit_name
;
2716 f
->explicit_name
= 0;
2719 x_set_name (f
, name
, explicit);
2722 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2723 f
->output_data
.x
->current_cursor
2724 = f
->output_data
.x
->text_cursor
);
2728 if (FRAME_X_WINDOW (f
) == 0)
2729 error ("Unable to create window");
2732 #endif /* not USE_GTK */
2733 #endif /* not USE_X_TOOLKIT */
2735 /* Verify that the icon position args for this window are valid. */
2738 x_icon_verify (struct frame
*f
, Lisp_Object parms
)
2740 Lisp_Object icon_x
, icon_y
;
2742 /* Set the position of the icon. Note that twm groups all
2743 icons in an icon window. */
2744 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2745 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2746 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2748 CHECK_NUMBER (icon_x
);
2749 CHECK_NUMBER (icon_y
);
2751 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2752 error ("Both left and top icon corners of icon must be specified");
2755 /* Handle the icon stuff for this window. Perhaps later we might
2756 want an x_set_icon_position which can be called interactively as
2760 x_icon (struct frame
*f
, Lisp_Object parms
)
2762 Lisp_Object icon_x
, icon_y
;
2764 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2767 /* Set the position of the icon. Note that twm groups all
2768 icons in an icon window. */
2769 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2770 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2771 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2773 CHECK_TYPE_RANGED_INTEGER (int, icon_x
);
2774 CHECK_TYPE_RANGED_INTEGER (int, icon_y
);
2776 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2777 error ("Both left and top icon corners of icon must be specified");
2781 if (! EQ (icon_x
, Qunbound
))
2782 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2784 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2785 but x_create_frame still needs it. */
2786 /* Start up iconic or window? */
2787 x_wm_set_window_state
2788 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2794 x_text_icon (f
, SSDATA ((!NILP (f
->icon_name
)
2801 /* Make the GCs needed for this window, setting the
2802 background, border and mouse colors; also create the
2803 mouse cursor and the gray border tile. */
2806 x_make_gc (struct frame
*f
)
2808 XGCValues gc_values
;
2812 /* Create the GCs of this frame.
2813 Note that many default values are used. */
2815 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2816 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2817 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2818 f
->output_data
.x
->normal_gc
2819 = XCreateGC (FRAME_X_DISPLAY (f
),
2821 GCLineWidth
| GCForeground
| GCBackground
,
2824 /* Reverse video style. */
2825 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2826 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2827 f
->output_data
.x
->reverse_gc
2828 = XCreateGC (FRAME_X_DISPLAY (f
),
2830 GCForeground
| GCBackground
| GCLineWidth
,
2833 /* Cursor has cursor-color background, background-color foreground. */
2834 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2835 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2836 gc_values
.fill_style
= FillOpaqueStippled
;
2837 f
->output_data
.x
->cursor_gc
2838 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2839 (GCForeground
| GCBackground
2840 | GCFillStyle
| GCLineWidth
),
2844 f
->output_data
.x
->white_relief
.gc
= 0;
2845 f
->output_data
.x
->black_relief
.gc
= 0;
2847 /* Create the gray border tile used when the pointer is not in
2848 the frame. Since this depends on the frame's pixel values,
2849 this must be done on a per-frame basis. */
2850 f
->output_data
.x
->border_tile
2851 = (XCreatePixmapFromBitmapData
2852 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2853 gray_bits
, gray_width
, gray_height
,
2854 FRAME_FOREGROUND_PIXEL (f
),
2855 FRAME_BACKGROUND_PIXEL (f
),
2856 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2862 /* Free what was allocated in x_make_gc. */
2865 x_free_gcs (struct frame
*f
)
2867 Display
*dpy
= FRAME_X_DISPLAY (f
);
2871 if (f
->output_data
.x
->normal_gc
)
2873 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2874 f
->output_data
.x
->normal_gc
= 0;
2877 if (f
->output_data
.x
->reverse_gc
)
2879 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2880 f
->output_data
.x
->reverse_gc
= 0;
2883 if (f
->output_data
.x
->cursor_gc
)
2885 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2886 f
->output_data
.x
->cursor_gc
= 0;
2889 if (f
->output_data
.x
->border_tile
)
2891 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2892 f
->output_data
.x
->border_tile
= 0;
2899 /* Handler for signals raised during x_create_frame and
2900 x_create_tip_frame. FRAME is the frame which is partially
2904 unwind_create_frame (Lisp_Object frame
)
2906 struct frame
*f
= XFRAME (frame
);
2908 /* If frame is already dead, nothing to do. This can happen if the
2909 display is disconnected after the frame has become official, but
2910 before x_create_frame removes the unwind protect. */
2911 if (!FRAME_LIVE_P (f
))
2914 /* If frame is ``official'', nothing to do. */
2915 if (NILP (Fmemq (frame
, Vframe_list
)))
2917 #if defined GLYPH_DEBUG && defined ENABLE_CHECKING
2918 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2921 x_free_frame_resources (f
);
2924 #if defined GLYPH_DEBUG && defined ENABLE_CHECKING
2925 /* Check that reference counts are indeed correct. */
2926 eassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2927 eassert (dpyinfo
->terminal
->image_cache
->refcount
== image_cache_refcount
);
2936 unwind_create_frame_1 (Lisp_Object val
)
2938 inhibit_lisp_code
= val
;
2943 x_default_font_parameter (struct frame
*f
, Lisp_Object parms
)
2945 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2946 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
2948 Lisp_Object font
= Qnil
;
2949 if (EQ (font_param
, Qunbound
))
2952 if (NILP (font_param
))
2954 /* System font should take precedence over X resources. We suggest this
2955 regardless of font-use-system-font because .emacs may not have been
2957 const char *system_font
= xsettings_get_system_font ();
2960 char *name
= xstrdup (system_font
);
2961 font
= font_open_by_name (f
, name
);
2967 font
= !NILP (font_param
) ? font_param
2968 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
2970 if (! FONTP (font
) && ! STRINGP (font
))
2975 /* This will find the normal Xft font. */
2978 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
2979 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2980 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
2981 /* This was formerly the first thing tried, but it finds
2982 too many fonts and takes too long. */
2983 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
2984 /* If those didn't work, look for something which will
2986 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
2991 for (i
= 0; names
[i
]; i
++)
2993 font
= font_open_by_name (f
, names
[i
]);
2998 error ("No suitable font was found");
3000 else if (!NILP (font_param
))
3002 /* Remember the explicit font parameter, so we can re-apply it after
3003 we've applied the `default' face settings. */
3004 x_set_frame_parameters (f
, Fcons (Fcons (Qfont_param
, font_param
), Qnil
));
3007 /* This call will make X resources override any system font setting. */
3008 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
3012 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
3014 doc
: /* Send the size hints for frame FRAME to the window manager.
3015 If FRAME is nil, use the selected frame. */)
3020 frame
= selected_frame
;
3024 x_wm_set_size_hint (f
, 0, 0);
3030 set_machine_and_pid_properties (struct frame
*f
)
3032 long pid
= (long) getpid ();
3034 /* This will set WM_CLIENT_MACHINE and WM_LOCALE_NAME. */
3035 XSetWMProperties (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), NULL
, NULL
,
3036 NULL
, 0, NULL
, NULL
, NULL
);
3037 XChangeProperty (FRAME_X_DISPLAY (f
),
3038 FRAME_OUTER_WINDOW (f
),
3039 XInternAtom (FRAME_X_DISPLAY (f
),
3042 XA_CARDINAL
, 32, PropModeReplace
,
3043 (unsigned char *) &pid
, 1);
3046 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3048 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3049 Return an Emacs frame object.
3050 PARMS is an alist of frame parameters.
3051 If the parameters specify that the frame should not have a minibuffer,
3052 and do not specify a specific minibuffer window to use,
3053 then `default-minibuffer-frame' must be a frame whose minibuffer can
3054 be shared by the new frame.
3056 This function is an internal primitive--use `make-frame' instead. */)
3060 Lisp_Object frame
, tem
;
3062 int minibuffer_only
= 0;
3063 long window_prompting
= 0;
3065 ptrdiff_t count
= SPECPDL_INDEX ();
3066 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3067 Lisp_Object display
;
3068 struct x_display_info
*dpyinfo
= NULL
;
3072 parms
= Fcopy_alist (parms
);
3074 /* Use this general default value to start with
3075 until we know if this frame has a specified name. */
3076 Vx_resource_name
= Vinvocation_name
;
3078 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3079 if (EQ (display
, Qunbound
))
3080 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3081 if (EQ (display
, Qunbound
))
3083 dpyinfo
= check_x_display_info (display
);
3084 kb
= dpyinfo
->terminal
->kboard
;
3086 if (!dpyinfo
->terminal
->name
)
3087 error ("Terminal is not live, can't create new frames on it");
3089 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3091 && ! EQ (name
, Qunbound
)
3093 error ("Invalid frame name--not a string or nil");
3096 Vx_resource_name
= name
;
3098 /* See if parent window is specified. */
3099 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3100 if (EQ (parent
, Qunbound
))
3102 if (! NILP (parent
))
3103 CHECK_NUMBER (parent
);
3105 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3106 /* No need to protect DISPLAY because that's not used after passing
3107 it to make_frame_without_minibuffer. */
3109 GCPRO4 (parms
, parent
, name
, frame
);
3110 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3112 if (EQ (tem
, Qnone
) || NILP (tem
))
3113 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3114 else if (EQ (tem
, Qonly
))
3116 f
= make_minibuffer_frame ();
3117 minibuffer_only
= 1;
3119 else if (WINDOWP (tem
))
3120 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3124 XSETFRAME (frame
, f
);
3126 /* Note that X Windows does support scroll bars. */
3127 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3129 f
->terminal
= dpyinfo
->terminal
;
3131 f
->output_method
= output_x_window
;
3132 f
->output_data
.x
= xzalloc (sizeof *f
->output_data
.x
);
3133 f
->output_data
.x
->icon_bitmap
= -1;
3134 FRAME_FONTSET (f
) = -1;
3135 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3136 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3137 #ifdef USE_TOOLKIT_SCROLL_BARS
3138 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3139 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3140 #endif /* USE_TOOLKIT_SCROLL_BARS */
3143 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3145 if (! STRINGP (f
->icon_name
))
3146 f
->icon_name
= Qnil
;
3148 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3150 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3151 record_unwind_protect (unwind_create_frame
, frame
);
3153 /* These colors will be set anyway later, but it's important
3154 to get the color reference counts right, so initialize them! */
3157 struct gcpro gcpro1
;
3159 /* Function x_decode_color can signal an error. Make
3160 sure to initialize color slots so that we won't try
3161 to free colors we haven't allocated. */
3162 FRAME_FOREGROUND_PIXEL (f
) = -1;
3163 FRAME_BACKGROUND_PIXEL (f
) = -1;
3164 f
->output_data
.x
->cursor_pixel
= -1;
3165 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3166 f
->output_data
.x
->border_pixel
= -1;
3167 f
->output_data
.x
->mouse_pixel
= -1;
3169 black
= build_string ("black");
3171 FRAME_FOREGROUND_PIXEL (f
)
3172 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3173 FRAME_BACKGROUND_PIXEL (f
)
3174 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3175 f
->output_data
.x
->cursor_pixel
3176 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3177 f
->output_data
.x
->cursor_foreground_pixel
3178 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3179 f
->output_data
.x
->border_pixel
3180 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3181 f
->output_data
.x
->mouse_pixel
3182 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3186 /* Specify the parent under which to make this X window. */
3190 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3191 f
->output_data
.x
->explicit_parent
= 1;
3195 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3196 f
->output_data
.x
->explicit_parent
= 0;
3199 /* Set the name; the functions to which we pass f expect the name to
3201 if (EQ (name
, Qunbound
) || NILP (name
))
3203 f
->name
= build_string (dpyinfo
->x_id_name
);
3204 f
->explicit_name
= 0;
3209 f
->explicit_name
= 1;
3210 /* use the frame's title when getting resources for this frame. */
3211 specbind (Qx_resource_name
, name
);
3214 f
->resx
= dpyinfo
->resx
;
3215 f
->resy
= dpyinfo
->resy
;
3217 #ifdef HAVE_FREETYPE
3219 register_font_driver (&xftfont_driver
, f
);
3220 #else /* not HAVE_XFT */
3221 register_font_driver (&ftxfont_driver
, f
);
3222 #endif /* not HAVE_XFT */
3223 #endif /* HAVE_FREETYPE */
3224 register_font_driver (&xfont_driver
, f
);
3226 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3227 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3229 /* Extract the window parameters from the supplied values
3230 that are needed to determine window geometry. */
3231 x_default_font_parameter (f
, parms
);
3232 if (!FRAME_FONT (f
))
3234 delete_frame (frame
, Qnoelisp
);
3235 error ("Invalid frame font");
3238 /* Frame contents get displaced if an embedded X window has a border. */
3239 if (! FRAME_X_EMBEDDED_P (f
))
3240 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
3241 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3243 /* This defaults to 1 in order to match xterm. We recognize either
3244 internalBorderWidth or internalBorder (which is what xterm calls
3246 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3250 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3251 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3252 if (! EQ (value
, Qunbound
))
3253 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3256 x_default_parameter (f
, parms
, Qinternal_border_width
,
3257 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3262 "internalBorderWidth", "internalBorderWidth",
3264 x_default_parameter (f
, parms
, Qvertical_scroll_bars
,
3265 #if defined (USE_GTK) && defined (USE_TOOLKIT_SCROLL_BARS)
3270 "verticalScrollBars", "ScrollBars",
3273 /* Also do the stuff which must be set before the window exists. */
3274 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3275 "foreground", "Foreground", RES_TYPE_STRING
);
3276 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3277 "background", "Background", RES_TYPE_STRING
);
3278 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3279 "pointerColor", "Foreground", RES_TYPE_STRING
);
3280 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3281 "borderColor", "BorderColor", RES_TYPE_STRING
);
3282 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3283 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3284 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3285 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3286 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3287 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3288 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3289 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3291 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3292 "scrollBarForeground",
3293 "ScrollBarForeground", 1);
3294 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3295 "scrollBarBackground",
3296 "ScrollBarBackground", 0);
3299 image_cache_refcount
=
3300 FRAME_IMAGE_CACHE (f
) ? FRAME_IMAGE_CACHE (f
)->refcount
: 0;
3301 dpyinfo_refcount
= dpyinfo
->reference_count
;
3302 #endif /* GLYPH_DEBUG */
3304 /* Init faces before x_default_parameter is called for scroll-bar
3305 parameters because that function calls x_set_scroll_bar_width,
3306 which calls change_frame_size, which calls Fset_window_buffer,
3307 which runs hooks, which call Fvertical_motion. At the end, we
3308 end up in init_iterator with a null face cache, which should not
3310 init_frame_faces (f
);
3312 /* Set the menu-bar-lines and tool-bar-lines parameters. We don't
3313 look up the X resources controlling the menu-bar and tool-bar
3314 here; they are processed specially at startup, and reflected in
3315 the values of the mode variables.
3317 Avoid calling window-configuration-change-hook; otherwise we
3318 could get an infloop in next_frame since the frame is not yet in
3321 ptrdiff_t count2
= SPECPDL_INDEX ();
3322 record_unwind_protect (unwind_create_frame_1
, inhibit_lisp_code
);
3323 inhibit_lisp_code
= Qt
;
3325 x_default_parameter (f
, parms
, Qmenu_bar_lines
,
3326 NILP (Vmenu_bar_mode
)
3327 ? make_number (0) : make_number (1),
3328 NULL
, NULL
, RES_TYPE_NUMBER
);
3329 x_default_parameter (f
, parms
, Qtool_bar_lines
,
3330 NILP (Vtool_bar_mode
)
3331 ? make_number (0) : make_number (1),
3332 NULL
, NULL
, RES_TYPE_NUMBER
);
3334 unbind_to (count2
, Qnil
);
3337 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3338 "bufferPredicate", "BufferPredicate",
3340 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3341 "title", "Title", RES_TYPE_STRING
);
3342 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3343 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3344 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3345 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3346 x_default_parameter (f
, parms
, Qtool_bar_position
,
3347 f
->tool_bar_position
, 0, 0, RES_TYPE_SYMBOL
);
3349 /* Compute the size of the X window. */
3350 window_prompting
= x_figure_window_size (f
, parms
, 1);
3352 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3353 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3355 x_icon_verify (f
, parms
);
3357 /* Create the X widget or window. */
3358 #ifdef USE_X_TOOLKIT
3359 x_window (f
, window_prompting
, minibuffer_only
);
3367 /* Now consider the frame official. */
3368 f
->terminal
->reference_count
++;
3369 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3370 Vframe_list
= Fcons (frame
, Vframe_list
);
3372 /* We need to do this after creating the X window, so that the
3373 icon-creation functions can say whose icon they're describing. */
3374 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3375 "bitmapIcon", "BitmapIcon", RES_TYPE_BOOLEAN
);
3377 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3378 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3379 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3380 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3381 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3382 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3383 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3384 "scrollBarWidth", "ScrollBarWidth",
3386 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3387 "alpha", "Alpha", RES_TYPE_NUMBER
);
3389 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3390 Change will not be effected unless different from the current
3392 width
= FRAME_COLS (f
);
3393 height
= FRAME_LINES (f
);
3395 SET_FRAME_COLS (f
, 0);
3396 FRAME_LINES (f
) = 0;
3397 change_frame_size (f
, height
, width
, 1, 0, 0);
3399 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3400 /* Create the menu bar. */
3401 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3403 /* If this signals an error, we haven't set size hints for the
3404 frame and we didn't make it visible. */
3405 initialize_frame_menubar (f
);
3408 /* This is a no-op, except under Motif where it arranges the
3409 main window for the widgets on it. */
3410 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3411 f
->output_data
.x
->menubar_widget
,
3412 f
->output_data
.x
->edit_widget
);
3413 #endif /* not USE_GTK */
3415 #endif /* USE_X_TOOLKIT || USE_GTK */
3417 /* Tell the server what size and position, etc, we want, and how
3418 badly we want them. This should be done after we have the menu
3419 bar so that its size can be taken into account. */
3421 x_wm_set_size_hint (f
, window_prompting
, 0);
3424 /* Make the window appear on the frame and enable display, unless
3425 the caller says not to. However, with explicit parent, Emacs
3426 cannot control visibility, so don't try. */
3427 if (! f
->output_data
.x
->explicit_parent
)
3429 Lisp_Object visibility
;
3431 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3433 if (EQ (visibility
, Qunbound
))
3436 if (EQ (visibility
, Qicon
))
3437 x_iconify_frame (f
);
3438 else if (! NILP (visibility
))
3439 x_make_frame_visible (f
);
3442 /* Must have been Qnil. */
3448 /* Set machine name and pid for the purpose of window managers. */
3449 set_machine_and_pid_properties (f
);
3451 /* Set the WM leader property. GTK does this itself, so this is not
3452 needed when using GTK. */
3453 if (dpyinfo
->client_leader_window
!= 0)
3455 XChangeProperty (FRAME_X_DISPLAY (f
),
3456 FRAME_OUTER_WINDOW (f
),
3457 dpyinfo
->Xatom_wm_client_leader
,
3458 XA_WINDOW
, 32, PropModeReplace
,
3459 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3464 /* Initialize `default-minibuffer-frame' in case this is the first
3465 frame on this terminal. */
3466 if (FRAME_HAS_MINIBUF_P (f
)
3467 && (!FRAMEP (KVAR (kb
, Vdefault_minibuffer_frame
))
3468 || !FRAME_LIVE_P (XFRAME (KVAR (kb
, Vdefault_minibuffer_frame
)))))
3469 KVAR (kb
, Vdefault_minibuffer_frame
) = frame
;
3471 /* All remaining specified parameters, which have not been "used"
3472 by x_get_arg and friends, now go in the misc. alist of the frame. */
3473 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3474 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3475 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3479 /* Make sure windows on this frame appear in calls to next-window
3480 and similar functions. */
3481 Vwindow_list
= Qnil
;
3483 return unbind_to (count
, frame
);
3487 /* FRAME is used only to get a handle on the X display. We don't pass the
3488 display info directly because we're called from frame.c, which doesn't
3489 know about that structure. */
3492 x_get_focus_frame (struct frame
*frame
)
3494 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3496 if (! dpyinfo
->x_focus_frame
)
3499 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3504 /* In certain situations, when the window manager follows a
3505 click-to-focus policy, there seems to be no way around calling
3506 XSetInputFocus to give another frame the input focus .
3508 In an ideal world, XSetInputFocus should generally be avoided so
3509 that applications don't interfere with the window manager's focus
3510 policy. But I think it's okay to use when it's clearly done
3511 following a user-command. */
3513 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3514 doc
: /* Set the input focus to FRAME.
3515 FRAME nil means use the selected frame. */)
3518 struct frame
*f
= check_x_frame (frame
);
3519 Display
*dpy
= FRAME_X_DISPLAY (f
);
3522 x_catch_errors (dpy
);
3524 if (FRAME_X_EMBEDDED_P (f
))
3526 /* For Xembedded frames, normally the embedder forwards key
3527 events. See XEmbed Protocol Specification at
3528 http://freedesktop.org/wiki/Specifications/xembed-spec */
3529 xembed_request_focus (f
);
3533 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3534 RevertToParent
, CurrentTime
);
3535 x_ewmh_activate_frame (f
);
3538 x_uncatch_errors ();
3545 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3546 doc
: /* Internal function called by `color-defined-p', which see
3547 .\(Note that the Nextstep version of this function ignores FRAME.) */)
3548 (Lisp_Object color
, Lisp_Object frame
)
3551 FRAME_PTR f
= check_x_frame (frame
);
3553 CHECK_STRING (color
);
3555 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3561 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3562 doc
: /* Internal function called by `color-values', which see. */)
3563 (Lisp_Object color
, Lisp_Object frame
)
3566 FRAME_PTR f
= check_x_frame (frame
);
3568 CHECK_STRING (color
);
3570 if (x_defined_color (f
, SSDATA (color
), &foo
, 0))
3571 return list3 (make_number (foo
.red
),
3572 make_number (foo
.green
),
3573 make_number (foo
.blue
));
3578 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3579 doc
: /* Internal function called by `display-color-p', which see. */)
3580 (Lisp_Object terminal
)
3582 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3584 if (dpyinfo
->n_planes
<= 2)
3587 switch (dpyinfo
->visual
->class)
3600 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3602 doc
: /* Return t if the X display supports shades of gray.
3603 Note that color displays do support shades of gray.
3604 The optional argument TERMINAL specifies which display to ask about.
3605 TERMINAL should be a terminal object, a frame or a display name (a string).
3606 If omitted or nil, that stands for the selected frame's display. */)
3607 (Lisp_Object terminal
)
3609 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3611 if (dpyinfo
->n_planes
<= 1)
3614 switch (dpyinfo
->visual
->class)
3629 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3631 doc
: /* Return the width in pixels of the X display TERMINAL.
3632 The optional argument TERMINAL specifies which display to ask about.
3633 TERMINAL should be a terminal object, a frame or a display name (a string).
3634 If omitted or nil, that stands for the selected frame's display. */)
3635 (Lisp_Object terminal
)
3637 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3639 return make_number (x_display_pixel_width (dpyinfo
));
3642 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3643 Sx_display_pixel_height
, 0, 1, 0,
3644 doc
: /* Return the height in pixels of the X display TERMINAL.
3645 The optional argument TERMINAL specifies which display to ask about.
3646 TERMINAL should be a terminal object, a frame or a display name (a string).
3647 If omitted or nil, that stands for the selected frame's display. */)
3648 (Lisp_Object terminal
)
3650 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3652 return make_number (x_display_pixel_height (dpyinfo
));
3655 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3657 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3658 The optional argument TERMINAL specifies which display to ask about.
3659 TERMINAL should be a terminal object, a frame or a display name (a string).
3660 If omitted or nil, that stands for the selected frame's display. */)
3661 (Lisp_Object terminal
)
3663 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3665 return make_number (dpyinfo
->n_planes
);
3668 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3670 doc
: /* Return the number of color cells of the X 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 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3679 XScreenNumberOfScreen (dpyinfo
->screen
));
3681 /* Truncate nr_planes to 24 to avoid integer overflow.
3682 Some displays says 32, but only 24 bits are actually significant.
3683 There are only very few and rare video cards that have more than
3684 24 significant bits. Also 24 bits is more than 16 million colors,
3685 it "should be enough for everyone". */
3686 if (nr_planes
> 24) nr_planes
= 24;
3688 return make_number (1 << nr_planes
);
3691 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3692 Sx_server_max_request_size
,
3694 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3695 The optional argument TERMINAL specifies which display to ask about.
3696 TERMINAL should be a terminal object, a frame or a display name (a string).
3697 If omitted or nil, that stands for the selected frame's display. */)
3698 (Lisp_Object terminal
)
3700 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3702 return make_number (MAXREQUEST (dpyinfo
->display
));
3705 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3706 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3707 \(Labeling every distributor as a "vendor" embodies the false assumption
3708 that operating systems cannot be developed and distributed noncommercially.)
3709 The optional argument TERMINAL specifies which display to ask about.
3710 TERMINAL should be a terminal object, a frame or a display name (a string).
3711 If omitted or nil, that stands for the selected frame's display. */)
3712 (Lisp_Object terminal
)
3714 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3715 const char *vendor
= ServerVendor (dpyinfo
->display
);
3717 if (! vendor
) vendor
= "";
3718 return build_string (vendor
);
3721 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3722 doc
: /* Return the version numbers of the X server of display TERMINAL.
3723 The value is a list of three integers: the major and minor
3724 version numbers of the X Protocol in use, and the distributor-specific release
3725 number. See also the function `x-server-vendor'.
3727 The optional argument TERMINAL specifies which display to ask about.
3728 TERMINAL should be a terminal object, a frame or a display name (a string).
3729 If omitted or nil, that stands for the selected frame's display. */)
3730 (Lisp_Object terminal
)
3732 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3733 Display
*dpy
= dpyinfo
->display
;
3735 return Fcons (make_number (ProtocolVersion (dpy
)),
3736 Fcons (make_number (ProtocolRevision (dpy
)),
3737 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3740 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3741 doc
: /* Return the number of screens on the X server of 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 (ScreenCount (dpyinfo
->display
));
3752 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3753 doc
: /* Return the height in millimeters of the X display TERMINAL.
3754 The optional argument TERMINAL specifies which display to ask about.
3755 TERMINAL should be a terminal object, a frame or a display name (a string).
3756 If omitted or nil, that stands for the selected frame's display. */)
3757 (Lisp_Object terminal
)
3759 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3761 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3764 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3765 doc
: /* Return the width in millimeters of the X display TERMINAL.
3766 The optional argument TERMINAL specifies which display to ask about.
3767 TERMINAL should be a terminal object, a frame or a display name (a string).
3768 If omitted or nil, that stands for the selected frame's display. */)
3769 (Lisp_Object terminal
)
3771 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3773 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3776 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3777 Sx_display_backing_store
, 0, 1, 0,
3778 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3779 The value may be `always', `when-mapped', or `not-useful'.
3780 The optional argument TERMINAL specifies which display to ask about.
3781 TERMINAL should be a terminal object, a frame or a display name (a string).
3782 If omitted or nil, that stands for the selected frame's display. */)
3783 (Lisp_Object terminal
)
3785 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3788 switch (DoesBackingStore (dpyinfo
->screen
))
3791 result
= intern ("always");
3795 result
= intern ("when-mapped");
3799 result
= intern ("not-useful");
3803 error ("Strange value for BackingStore parameter of screen");
3810 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3811 Sx_display_visual_class
, 0, 1, 0,
3812 doc
: /* Return the visual class of the X display TERMINAL.
3813 The value is one of the symbols `static-gray', `gray-scale',
3814 `static-color', `pseudo-color', `true-color', or `direct-color'.
3816 The optional argument TERMINAL specifies which display to ask about.
3817 TERMINAL should a terminal object, a frame or a display name (a string).
3818 If omitted or nil, that stands for the selected frame's display. */)
3819 (Lisp_Object terminal
)
3821 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3824 switch (dpyinfo
->visual
->class)
3827 result
= intern ("static-gray");
3830 result
= intern ("gray-scale");
3833 result
= intern ("static-color");
3836 result
= intern ("pseudo-color");
3839 result
= intern ("true-color");
3842 result
= intern ("direct-color");
3845 error ("Display has an unknown visual class");
3852 DEFUN ("x-display-save-under", Fx_display_save_under
,
3853 Sx_display_save_under
, 0, 1, 0,
3854 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3855 The optional argument TERMINAL specifies which display to ask about.
3856 TERMINAL should be a terminal object, a frame or a display name (a string).
3857 If omitted or nil, that stands for the selected frame's display. */)
3858 (Lisp_Object terminal
)
3860 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3862 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3869 x_pixel_width (register struct frame
*f
)
3871 return FRAME_PIXEL_WIDTH (f
);
3875 x_pixel_height (register struct frame
*f
)
3877 return FRAME_PIXEL_HEIGHT (f
);
3881 x_char_width (register struct frame
*f
)
3883 return FRAME_COLUMN_WIDTH (f
);
3887 x_char_height (register struct frame
*f
)
3889 return FRAME_LINE_HEIGHT (f
);
3894 /************************************************************************
3896 ************************************************************************/
3899 /* Mapping visual names to visuals. */
3901 static struct visual_class
3908 {"StaticGray", StaticGray
},
3909 {"GrayScale", GrayScale
},
3910 {"StaticColor", StaticColor
},
3911 {"PseudoColor", PseudoColor
},
3912 {"TrueColor", TrueColor
},
3913 {"DirectColor", DirectColor
},
3918 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3920 /* Value is the screen number of screen SCR. This is a substitute for
3921 the X function with the same name when that doesn't exist. */
3924 XScreenNumberOfScreen (scr
)
3925 register Screen
*scr
;
3927 Display
*dpy
= scr
->display
;
3930 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3931 if (scr
== dpy
->screens
+ i
)
3937 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3940 /* Select the visual that should be used on display DPYINFO. Set
3941 members of DPYINFO appropriately. Called from x_term_init. */
3944 select_visual (struct x_display_info
*dpyinfo
)
3946 Display
*dpy
= dpyinfo
->display
;
3947 Screen
*screen
= dpyinfo
->screen
;
3950 /* See if a visual is specified. */
3951 value
= display_x_get_resource (dpyinfo
,
3952 build_string ("visualClass"),
3953 build_string ("VisualClass"),
3955 if (STRINGP (value
))
3957 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3958 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3959 depth, a decimal number. NAME is compared with case ignored. */
3960 char *s
= alloca (SBYTES (value
) + 1);
3965 strcpy (s
, SSDATA (value
));
3966 dash
= strchr (s
, '-');
3969 dpyinfo
->n_planes
= atoi (dash
+ 1);
3973 /* We won't find a matching visual with depth 0, so that
3974 an error will be printed below. */
3975 dpyinfo
->n_planes
= 0;
3977 /* Determine the visual class. */
3978 for (i
= 0; visual_classes
[i
].name
; ++i
)
3979 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
3981 class = visual_classes
[i
].class;
3985 /* Look up a matching visual for the specified class. */
3987 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
3988 dpyinfo
->n_planes
, class, &vinfo
))
3989 fatal ("Invalid visual specification `%s'", SDATA (value
));
3991 dpyinfo
->visual
= vinfo
.visual
;
3996 XVisualInfo
*vinfo
, vinfo_template
;
3998 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4000 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4001 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4002 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4003 &vinfo_template
, &n_visuals
);
4005 fatal ("Can't get proper X visual info");
4007 dpyinfo
->n_planes
= vinfo
->depth
;
4008 XFree ((char *) vinfo
);
4013 /* Return the X display structure for the display named NAME.
4014 Open a new connection if necessary. */
4016 static struct x_display_info
*
4017 x_display_info_for_name (Lisp_Object name
)
4020 struct x_display_info
*dpyinfo
;
4022 CHECK_STRING (name
);
4025 if (! EQ (Vinitial_window_system
, intern ("x")))
4026 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4029 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4031 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4034 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4039 /* Use this general default value to start with. */
4040 Vx_resource_name
= Vinvocation_name
;
4042 validate_x_resource_name ();
4044 dpyinfo
= x_term_init (name
, (char *)0,
4045 SSDATA (Vx_resource_name
));
4048 error ("Cannot connect to X server %s", SDATA (name
));
4051 XSETFASTINT (Vwindow_system_version
, 11);
4057 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4059 doc
: /* Open a connection to a display server.
4060 DISPLAY is the name of the display to connect to.
4061 Optional second arg XRM-STRING is a string of resources in xrdb format.
4062 If the optional third arg MUST-SUCCEED is non-nil,
4063 terminate Emacs if we can't open the connection.
4064 \(In the Nextstep version, the last two arguments are currently ignored.) */)
4065 (Lisp_Object display
, Lisp_Object xrm_string
, Lisp_Object must_succeed
)
4068 struct x_display_info
*dpyinfo
;
4070 CHECK_STRING (display
);
4071 if (! NILP (xrm_string
))
4072 CHECK_STRING (xrm_string
);
4075 if (! EQ (Vinitial_window_system
, intern ("x")))
4076 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4079 if (! NILP (xrm_string
))
4080 xrm_option
= SSDATA (xrm_string
);
4082 xrm_option
= (char *) 0;
4084 validate_x_resource_name ();
4086 /* This is what opens the connection and sets x_current_display.
4087 This also initializes many symbols, such as those used for input. */
4088 dpyinfo
= x_term_init (display
, xrm_option
,
4089 SSDATA (Vx_resource_name
));
4093 if (!NILP (must_succeed
))
4094 fatal ("Cannot connect to X server %s.\n\
4095 Check the DISPLAY environment variable or use `-d'.\n\
4096 Also use the `xauth' program to verify that you have the proper\n\
4097 authorization information needed to connect the X server.\n\
4098 An insecure way to solve the problem may be to use `xhost'.\n",
4101 error ("Cannot connect to X server %s", SDATA (display
));
4106 XSETFASTINT (Vwindow_system_version
, 11);
4110 DEFUN ("x-close-connection", Fx_close_connection
,
4111 Sx_close_connection
, 1, 1, 0,
4112 doc
: /* Close the connection to TERMINAL's X server.
4113 For TERMINAL, specify a terminal object, a frame or a display name (a
4114 string). If TERMINAL is nil, that stands for the selected frame's
4116 (Lisp_Object terminal
)
4118 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4120 if (dpyinfo
->reference_count
> 0)
4121 error ("Display still has frames on it");
4123 x_delete_terminal (dpyinfo
->terminal
);
4128 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4129 doc
: /* Return the list of display names that Emacs has connections to. */)
4132 Lisp_Object tail
, result
;
4135 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4136 result
= Fcons (XCAR (XCAR (tail
)), result
);
4141 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4142 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4143 This function only has an effect on X Windows. With MS Windows, it is
4144 defined but does nothing.
4146 If ON is nil, allow buffering of requests.
4147 Turning on synchronization prohibits the Xlib routines from buffering
4148 requests and seriously degrades performance, but makes debugging much
4150 The optional second argument TERMINAL specifies which display to act on.
4151 TERMINAL should be a terminal object, a frame or a display name (a string).
4152 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4153 (Lisp_Object on
, Lisp_Object terminal
)
4155 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4157 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4162 /* Wait for responses to all X commands issued so far for frame F. */
4165 x_sync (FRAME_PTR f
)
4168 XSync (FRAME_X_DISPLAY (f
), False
);
4173 /***********************************************************************
4175 ***********************************************************************/
4177 DEFUN ("x-change-window-property", Fx_change_window_property
,
4178 Sx_change_window_property
, 2, 6, 0,
4179 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4180 PROP must be a string. VALUE may be a string or a list of conses,
4181 numbers and/or strings. If an element in the list is a string, it is
4182 converted to an atom and the value of the atom is used. If an element
4183 is a cons, it is converted to a 32 bit number where the car is the 16
4184 top bits and the cdr is the lower 16 bits.
4186 FRAME nil or omitted means use the selected frame.
4187 If TYPE is given and non-nil, it is the name of the type of VALUE.
4188 If TYPE is not given or nil, the type is STRING.
4189 FORMAT gives the size in bits of each element if VALUE is a list.
4190 It must be one of 8, 16 or 32.
4191 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4192 If OUTER_P is non-nil, the property is changed for the outer X window of
4193 FRAME. Default is to change on the edit X window. */)
4194 (Lisp_Object prop
, Lisp_Object value
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4196 struct frame
*f
= check_x_frame (frame
);
4198 Atom target_type
= XA_STRING
;
4199 int element_format
= 8;
4200 unsigned char *data
;
4204 CHECK_STRING (prop
);
4206 if (! NILP (format
))
4208 CHECK_NUMBER (format
);
4210 if (XINT (format
) != 8 && XINT (format
) != 16
4211 && XINT (format
) != 32)
4212 error ("FORMAT must be one of 8, 16 or 32");
4213 element_format
= XINT (format
);
4220 nelements
= x_check_property_data (value
);
4221 if (nelements
== -1)
4222 error ("Bad data in VALUE, must be number, string or cons");
4224 /* The man page for XChangeProperty:
4225 "If the specified format is 32, the property data must be a
4227 This applies even if long is more than 32 bits. The X library
4228 converts to 32 bits before sending to the X server. */
4229 elsize
= element_format
== 32 ? sizeof (long) : element_format
>> 3;
4230 data
= xnmalloc (nelements
, elsize
);
4232 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4236 CHECK_STRING (value
);
4237 data
= SDATA (value
);
4238 if (INT_MAX
< SBYTES (value
))
4239 error ("VALUE too long");
4240 nelements
= SBYTES (value
);
4244 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4247 CHECK_STRING (type
);
4248 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4251 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4252 else w
= FRAME_X_WINDOW (f
);
4254 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4255 prop_atom
, target_type
, element_format
, PropModeReplace
,
4258 if (CONSP (value
)) xfree (data
);
4260 /* Make sure the property is set when we return. */
4261 XFlush (FRAME_X_DISPLAY (f
));
4268 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4269 Sx_delete_window_property
, 1, 2, 0,
4270 doc
: /* Remove window property PROP from X window of FRAME.
4271 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4272 (Lisp_Object prop
, Lisp_Object frame
)
4274 struct frame
*f
= check_x_frame (frame
);
4277 CHECK_STRING (prop
);
4279 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4280 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4282 /* Make sure the property is removed when we return. */
4283 XFlush (FRAME_X_DISPLAY (f
));
4290 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4292 doc
: /* Value is the value of window property PROP on FRAME.
4293 If FRAME is nil or omitted, use the selected frame.
4295 On X Windows, the following optional arguments are also accepted:
4296 If TYPE is nil or omitted, get the property as a string.
4297 Otherwise TYPE is the name of the atom that denotes the type expected.
4298 If SOURCE is non-nil, get the property on that window instead of from
4299 FRAME. The number 0 denotes the root window.
4300 If DELETE-P is non-nil, delete the property after retrieving it.
4301 If VECTOR-RET-P is non-nil, don't return a string but a vector of values.
4303 On MS Windows, this function accepts but ignores those optional arguments.
4305 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4306 no value of TYPE (always string in the MS Windows case). */)
4307 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
,
4308 Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4310 struct frame
*f
= check_x_frame (frame
);
4313 Lisp_Object prop_value
= Qnil
;
4314 unsigned char *tmp_data
= NULL
;
4316 Atom target_type
= XA_STRING
;
4318 unsigned long actual_size
, bytes_remaining
;
4319 Window target_window
= FRAME_X_WINDOW (f
);
4320 struct gcpro gcpro1
;
4322 GCPRO1 (prop_value
);
4323 CHECK_STRING (prop
);
4325 if (! NILP (source
))
4327 CONS_TO_INTEGER (source
, Window
, target_window
);
4328 if (! target_window
)
4329 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4335 if (strcmp ("AnyPropertyType", SSDATA (type
)) == 0)
4336 target_type
= AnyPropertyType
;
4338 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4341 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4342 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4343 prop_atom
, 0, 0, False
, target_type
,
4344 &actual_type
, &actual_format
, &actual_size
,
4345 &bytes_remaining
, &tmp_data
);
4348 int size
= bytes_remaining
;
4353 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4354 prop_atom
, 0, bytes_remaining
,
4355 ! NILP (delete_p
), target_type
,
4356 &actual_type
, &actual_format
,
4357 &actual_size
, &bytes_remaining
,
4359 if (rc
== Success
&& tmp_data
)
4361 /* The man page for XGetWindowProperty says:
4362 "If the returned format is 32, the returned data is represented
4363 as a long array and should be cast to that type to obtain the
4365 This applies even if long is more than 32 bits, the X library
4366 converts from 32 bit elements received from the X server to long
4367 and passes the long array to us. Thus, for that case memcpy can not
4368 be used. We convert to a 32 bit type here, because so much code
4371 The bytes and offsets passed to XGetWindowProperty refers to the
4372 property and those are indeed in 32 bit quantities if format is
4375 if (32 < BITS_PER_LONG
&& actual_format
== 32)
4378 int *idata
= (int *) tmp_data
;
4379 long *ldata
= (long *) tmp_data
;
4381 for (i
= 0; i
< actual_size
; ++i
)
4382 idata
[i
] = (int) ldata
[i
];
4385 if (NILP (vector_ret_p
))
4386 prop_value
= make_string ((char *) tmp_data
, size
);
4388 prop_value
= x_property_data_to_lisp (f
,
4395 if (tmp_data
) XFree (tmp_data
);
4405 /***********************************************************************
4407 ***********************************************************************/
4409 /* Timer function of hourglass_atimer. TIMER is equal to
4412 Display an hourglass pointer on all frames by mapping the frames'
4413 hourglass_window. Set the hourglass_p flag in the frames'
4414 output_data.x structure to indicate that an hourglass cursor is
4415 shown on the frames. */
4418 show_hourglass (struct atimer
*timer
)
4420 /* The timer implementation will cancel this timer automatically
4421 after this function has run. Set hourglass_atimer to null
4422 so that we know the timer doesn't have to be canceled. */
4423 hourglass_atimer
= NULL
;
4425 if (!hourglass_shown_p
)
4427 Lisp_Object rest
, frame
;
4431 FOR_EACH_FRAME (rest
, frame
)
4433 struct frame
*f
= XFRAME (frame
);
4435 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4437 Display
*dpy
= FRAME_X_DISPLAY (f
);
4439 #ifdef USE_X_TOOLKIT
4440 if (f
->output_data
.x
->widget
)
4442 if (FRAME_OUTER_WINDOW (f
))
4445 f
->output_data
.x
->hourglass_p
= 1;
4447 if (!f
->output_data
.x
->hourglass_window
)
4449 unsigned long mask
= CWCursor
;
4450 XSetWindowAttributes attrs
;
4452 Window parent
= FRAME_X_WINDOW (f
);
4454 Window parent
= FRAME_OUTER_WINDOW (f
);
4456 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4458 f
->output_data
.x
->hourglass_window
4459 = XCreateWindow (dpy
, parent
,
4460 0, 0, 32000, 32000, 0, 0,
4466 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4472 hourglass_shown_p
= 1;
4478 /* Hide the hourglass pointer on all frames, if it is currently
4482 hide_hourglass (void)
4484 if (hourglass_shown_p
)
4486 Lisp_Object rest
, frame
;
4489 FOR_EACH_FRAME (rest
, frame
)
4491 struct frame
*f
= XFRAME (frame
);
4494 /* Watch out for newly created frames. */
4495 && f
->output_data
.x
->hourglass_window
)
4497 XUnmapWindow (FRAME_X_DISPLAY (f
),
4498 f
->output_data
.x
->hourglass_window
);
4499 /* Sync here because XTread_socket looks at the
4500 hourglass_p flag that is reset to zero below. */
4501 XSync (FRAME_X_DISPLAY (f
), False
);
4502 f
->output_data
.x
->hourglass_p
= 0;
4506 hourglass_shown_p
= 0;
4513 /***********************************************************************
4515 ***********************************************************************/
4517 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4518 Lisp_Object
, Lisp_Object
);
4519 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4520 Lisp_Object
, int, int, int *, int *);
4522 /* The frame of a currently visible tooltip. */
4524 Lisp_Object tip_frame
;
4526 /* If non-nil, a timer started that hides the last tooltip when it
4529 static Lisp_Object tip_timer
;
4532 /* If non-nil, a vector of 3 elements containing the last args
4533 with which x-show-tip was called. See there. */
4535 static Lisp_Object last_show_tip_args
;
4539 unwind_create_tip_frame (Lisp_Object frame
)
4541 Lisp_Object deleted
;
4543 deleted
= unwind_create_frame (frame
);
4544 if (EQ (deleted
, Qt
))
4554 /* Create a frame for a tooltip on the display described by DPYINFO.
4555 PARMS is a list of frame parameters. TEXT is the string to
4556 display in the tip frame. Value is the frame.
4558 Note that functions called here, esp. x_default_parameter can
4559 signal errors, for instance when a specified color name is
4560 undefined. We have to make sure that we're in a consistent state
4561 when this happens. */
4564 x_create_tip_frame (struct x_display_info
*dpyinfo
,
4572 ptrdiff_t count
= SPECPDL_INDEX ();
4573 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4574 int face_change_count_before
= face_change_count
;
4576 struct buffer
*old_buffer
;
4580 if (!dpyinfo
->terminal
->name
)
4581 error ("Terminal is not live, can't create new frames on it");
4583 parms
= Fcopy_alist (parms
);
4585 /* Get the name of the frame to use for resource lookup. */
4586 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4588 && !EQ (name
, Qunbound
)
4590 error ("Invalid frame name--not a string or nil");
4593 GCPRO3 (parms
, name
, frame
);
4595 XSETFRAME (frame
, f
);
4597 buffer
= Fget_buffer_create (build_string (" *tip*"));
4598 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4599 old_buffer
= current_buffer
;
4600 set_buffer_internal_1 (XBUFFER (buffer
));
4601 BVAR (current_buffer
, truncate_lines
) = Qnil
;
4602 specbind (Qinhibit_read_only
, Qt
);
4603 specbind (Qinhibit_modification_hooks
, Qt
);
4606 set_buffer_internal_1 (old_buffer
);
4608 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4609 record_unwind_protect (unwind_create_tip_frame
, frame
);
4611 f
->terminal
= dpyinfo
->terminal
;
4613 /* By setting the output method, we're essentially saying that
4614 the frame is live, as per FRAME_LIVE_P. If we get a signal
4615 from this point on, x_destroy_window might screw up reference
4617 f
->output_method
= output_x_window
;
4618 f
->output_data
.x
= xzalloc (sizeof *f
->output_data
.x
);
4619 f
->output_data
.x
->icon_bitmap
= -1;
4620 FRAME_FONTSET (f
) = -1;
4621 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4622 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4623 #ifdef USE_TOOLKIT_SCROLL_BARS
4624 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4625 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4626 #endif /* USE_TOOLKIT_SCROLL_BARS */
4627 f
->icon_name
= Qnil
;
4628 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4629 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4630 f
->output_data
.x
->explicit_parent
= 0;
4632 /* These colors will be set anyway later, but it's important
4633 to get the color reference counts right, so initialize them! */
4636 struct gcpro gcpro1
;
4638 /* Function x_decode_color can signal an error. Make
4639 sure to initialize color slots so that we won't try
4640 to free colors we haven't allocated. */
4641 FRAME_FOREGROUND_PIXEL (f
) = -1;
4642 FRAME_BACKGROUND_PIXEL (f
) = -1;
4643 f
->output_data
.x
->cursor_pixel
= -1;
4644 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4645 f
->output_data
.x
->border_pixel
= -1;
4646 f
->output_data
.x
->mouse_pixel
= -1;
4648 black
= build_string ("black");
4650 FRAME_FOREGROUND_PIXEL (f
)
4651 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4652 FRAME_BACKGROUND_PIXEL (f
)
4653 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4654 f
->output_data
.x
->cursor_pixel
4655 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4656 f
->output_data
.x
->cursor_foreground_pixel
4657 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4658 f
->output_data
.x
->border_pixel
4659 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4660 f
->output_data
.x
->mouse_pixel
4661 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4665 /* Set the name; the functions to which we pass f expect the name to
4667 if (EQ (name
, Qunbound
) || NILP (name
))
4669 f
->name
= build_string (dpyinfo
->x_id_name
);
4670 f
->explicit_name
= 0;
4675 f
->explicit_name
= 1;
4676 /* use the frame's title when getting resources for this frame. */
4677 specbind (Qx_resource_name
, name
);
4680 f
->resx
= dpyinfo
->resx
;
4681 f
->resy
= dpyinfo
->resy
;
4683 register_font_driver (&xfont_driver
, f
);
4684 #ifdef HAVE_FREETYPE
4686 register_font_driver (&xftfont_driver
, f
);
4687 #else /* not HAVE_XFT */
4688 register_font_driver (&ftxfont_driver
, f
);
4689 #endif /* not HAVE_XFT */
4690 #endif /* HAVE_FREETYPE */
4692 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4693 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4695 /* Extract the window parameters from the supplied values that are
4696 needed to determine window geometry. */
4697 x_default_font_parameter (f
, parms
);
4699 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
4700 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4702 /* This defaults to 2 in order to match xterm. We recognize either
4703 internalBorderWidth or internalBorder (which is what xterm calls
4705 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4709 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4710 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4711 if (! EQ (value
, Qunbound
))
4712 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4716 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4717 "internalBorderWidth", "internalBorderWidth",
4720 /* Also do the stuff which must be set before the window exists. */
4721 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4722 "foreground", "Foreground", RES_TYPE_STRING
);
4723 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4724 "background", "Background", RES_TYPE_STRING
);
4725 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4726 "pointerColor", "Foreground", RES_TYPE_STRING
);
4727 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4728 "cursorColor", "Foreground", RES_TYPE_STRING
);
4729 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4730 "borderColor", "BorderColor", RES_TYPE_STRING
);
4733 image_cache_refcount
=
4734 FRAME_IMAGE_CACHE (f
) ? FRAME_IMAGE_CACHE (f
)->refcount
: 0;
4735 dpyinfo_refcount
= dpyinfo
->reference_count
;
4736 #endif /* GLYPH_DEBUG */
4738 /* Init faces before x_default_parameter is called for scroll-bar
4739 parameters because that function calls x_set_scroll_bar_width,
4740 which calls change_frame_size, which calls Fset_window_buffer,
4741 which runs hooks, which call Fvertical_motion. At the end, we
4742 end up in init_iterator with a null face cache, which should not
4744 init_frame_faces (f
);
4746 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4748 x_figure_window_size (f
, parms
, 0);
4751 XSetWindowAttributes attrs
;
4753 Atom type
= FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
4756 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4757 if (DoesSaveUnders (dpyinfo
->screen
))
4758 mask
|= CWSaveUnder
;
4760 /* Window managers look at the override-redirect flag to determine
4761 whether or net to give windows a decoration (Xlib spec, chapter
4763 attrs
.override_redirect
= True
;
4764 attrs
.save_under
= True
;
4765 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4766 /* Arrange for getting MapNotify and UnmapNotify events. */
4767 attrs
.event_mask
= StructureNotifyMask
;
4769 = FRAME_X_WINDOW (f
)
4770 = XCreateWindow (FRAME_X_DISPLAY (f
),
4771 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4772 /* x, y, width, height */
4776 CopyFromParent
, InputOutput
, CopyFromParent
,
4778 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
4779 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type
,
4780 XA_ATOM
, 32, PropModeReplace
,
4781 (unsigned char *)&type
, 1);
4787 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4788 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4789 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4790 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4791 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4792 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4794 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4795 Change will not be effected unless different from the current
4797 width
= FRAME_COLS (f
);
4798 height
= FRAME_LINES (f
);
4799 SET_FRAME_COLS (f
, 0);
4800 FRAME_LINES (f
) = 0;
4801 change_frame_size (f
, height
, width
, 1, 0, 0);
4803 /* Add `tooltip' frame parameter's default value. */
4804 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
4805 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qtooltip
, Qt
), Qnil
));
4807 /* FIXME - can this be done in a similar way to normal frames?
4808 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
4810 /* Set the `display-type' frame parameter before setting up faces. */
4812 Lisp_Object disptype
;
4814 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4815 disptype
= intern ("mono");
4816 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
4817 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4818 disptype
= intern ("grayscale");
4820 disptype
= intern ("color");
4822 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4823 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4827 /* Set up faces after all frame parameters are known. This call
4828 also merges in face attributes specified for new frames.
4830 Frame parameters may be changed if .Xdefaults contains
4831 specifications for the default font. For example, if there is an
4832 `Emacs.default.attributeBackground: pink', the `background-color'
4833 attribute of the frame get's set, which let's the internal border
4834 of the tooltip frame appear in pink. Prevent this. */
4836 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4838 /* Set tip_frame here, so that */
4840 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
4842 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4843 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4851 /* Now that the frame will be official, it counts as a reference to
4852 its display and terminal. */
4853 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4854 f
->terminal
->reference_count
++;
4856 /* It is now ok to make the frame official even if we get an error
4857 below. And the frame needs to be on Vframe_list or making it
4858 visible won't work. */
4859 Vframe_list
= Fcons (frame
, Vframe_list
);
4862 /* Setting attributes of faces of the tooltip frame from resources
4863 and similar will increment face_change_count, which leads to the
4864 clearing of all current matrices. Since this isn't necessary
4865 here, avoid it by resetting face_change_count to the value it
4866 had before we created the tip frame. */
4867 face_change_count
= face_change_count_before
;
4869 /* Discard the unwind_protect. */
4870 return unbind_to (count
, frame
);
4874 /* Compute where to display tip frame F. PARMS is the list of frame
4875 parameters for F. DX and DY are specified offsets from the current
4876 location of the mouse. WIDTH and HEIGHT are the width and height
4877 of the tooltip. Return coordinates relative to the root window of
4878 the display in *ROOT_X, and *ROOT_Y. */
4881 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
)
4883 Lisp_Object left
, top
;
4888 /* User-specified position? */
4889 left
= Fcdr (Fassq (Qleft
, parms
));
4890 top
= Fcdr (Fassq (Qtop
, parms
));
4892 /* Move the tooltip window where the mouse pointer is. Resize and
4894 if (!INTEGERP (left
) || !INTEGERP (top
))
4897 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4898 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4903 *root_y
= XINT (top
);
4904 else if (*root_y
+ XINT (dy
) <= 0)
4905 *root_y
= 0; /* Can happen for negative dy */
4906 else if (*root_y
+ XINT (dy
) + height
4907 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
4908 /* It fits below the pointer */
4909 *root_y
+= XINT (dy
);
4910 else if (height
+ XINT (dy
) <= *root_y
)
4911 /* It fits above the pointer. */
4912 *root_y
-= height
+ XINT (dy
);
4914 /* Put it on the top. */
4917 if (INTEGERP (left
))
4918 *root_x
= XINT (left
);
4919 else if (*root_x
+ XINT (dx
) <= 0)
4920 *root_x
= 0; /* Can happen for negative dx */
4921 else if (*root_x
+ XINT (dx
) + width
4922 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
4923 /* It fits to the right of the pointer. */
4924 *root_x
+= XINT (dx
);
4925 else if (width
+ XINT (dx
) <= *root_x
)
4926 /* It fits to the left of the pointer. */
4927 *root_x
-= width
+ XINT (dx
);
4929 /* Put it left-justified on the screen--it ought to fit that way. */
4934 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4935 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4936 A tooltip window is a small X window displaying a string.
4938 This is an internal function; Lisp code should call `tooltip-show'.
4940 FRAME nil or omitted means use the selected frame.
4942 PARMS is an optional list of frame parameters which can be used to
4943 change the tooltip's appearance.
4945 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4946 means use the default timeout of 5 seconds.
4948 If the list of frame parameters PARMS contains a `left' parameters,
4949 the tooltip is displayed at that x-position. Otherwise it is
4950 displayed at the mouse position, with offset DX added (default is 5 if
4951 DX isn't specified). Likewise for the y-position; if a `top' frame
4952 parameter is specified, it determines the y-position of the tooltip
4953 window, otherwise it is displayed at the mouse position, with offset
4954 DY added (default is -10).
4956 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4957 Text larger than the specified size is clipped. */)
4958 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
4963 struct buffer
*old_buffer
;
4964 struct text_pos pos
;
4965 int i
, width
, height
, seen_reversed_p
;
4966 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
4967 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
4968 ptrdiff_t count
= SPECPDL_INDEX ();
4970 specbind (Qinhibit_redisplay
, Qt
);
4972 GCPRO4 (string
, parms
, frame
, timeout
);
4974 CHECK_STRING (string
);
4975 if (SCHARS (string
) == 0)
4976 string
= make_unibyte_string (" ", 1);
4978 f
= check_x_frame (frame
);
4980 timeout
= make_number (5);
4982 CHECK_NATNUM (timeout
);
4985 dx
= make_number (5);
4990 dy
= make_number (-10);
4995 if (x_gtk_use_system_tooltips
)
4999 /* Hide a previous tip, if any. */
5003 if ((ok
= xg_prepare_tooltip (f
, string
, &width
, &height
)) != 0)
5005 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5006 xg_show_tooltip (f
, root_x
, root_y
);
5007 /* This is used in Fx_hide_tip. */
5008 XSETFRAME (tip_frame
, f
);
5011 if (ok
) goto start_timer
;
5013 #endif /* USE_GTK */
5015 if (NILP (last_show_tip_args
))
5016 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5018 if (!NILP (tip_frame
))
5020 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5021 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5022 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5024 if (EQ (frame
, last_frame
)
5025 && !NILP (Fequal (last_string
, string
))
5026 && !NILP (Fequal (last_parms
, parms
)))
5028 struct frame
*tip_f
= XFRAME (tip_frame
);
5030 /* Only DX and DY have changed. */
5031 if (!NILP (tip_timer
))
5033 Lisp_Object timer
= tip_timer
;
5035 call1 (Qcancel_timer
, timer
);
5039 compute_tip_xy (tip_f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (tip_f
),
5040 FRAME_PIXEL_HEIGHT (tip_f
), &root_x
, &root_y
);
5041 XMoveWindow (FRAME_X_DISPLAY (tip_f
), FRAME_X_WINDOW (tip_f
),
5048 /* Hide a previous tip, if any. */
5051 ASET (last_show_tip_args
, 0, string
);
5052 ASET (last_show_tip_args
, 1, frame
);
5053 ASET (last_show_tip_args
, 2, parms
);
5055 /* Add default values to frame parameters. */
5056 if (NILP (Fassq (Qname
, parms
)))
5057 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5058 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5059 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5060 if (NILP (Fassq (Qborder_width
, parms
)))
5061 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5062 if (NILP (Fassq (Qborder_color
, parms
)))
5063 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5064 if (NILP (Fassq (Qbackground_color
, parms
)))
5065 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5068 /* Create a frame for the tooltip, and record it in the global
5069 variable tip_frame. */
5070 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5073 /* Set up the frame's root window. */
5074 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5075 w
->left_col
= w
->top_line
= make_number (0);
5077 if (CONSP (Vx_max_tooltip_size
)
5078 && RANGED_INTEGERP (1, XCAR (Vx_max_tooltip_size
), INT_MAX
)
5079 && RANGED_INTEGERP (1, XCDR (Vx_max_tooltip_size
), INT_MAX
))
5081 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5082 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5086 w
->total_cols
= make_number (80);
5087 w
->total_lines
= make_number (40);
5090 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5092 w
->pseudo_window_p
= 1;
5094 /* Display the tooltip text in a temporary buffer. */
5095 old_buffer
= current_buffer
;
5096 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5097 BVAR (current_buffer
, truncate_lines
) = Qnil
;
5098 clear_glyph_matrix (w
->desired_matrix
);
5099 clear_glyph_matrix (w
->current_matrix
);
5100 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5101 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5103 /* Compute width and height of the tooltip. */
5104 width
= height
= seen_reversed_p
= 0;
5105 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5107 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5111 /* Stop at the first empty row at the end. */
5112 if (!row
->enabled_p
|| !row
->displays_text_p
)
5115 /* Let the row go over the full width of the frame. */
5116 row
->full_width_p
= 1;
5118 row_width
= row
->pixel_width
;
5119 if (row
->used
[TEXT_AREA
])
5121 /* There's a glyph at the end of rows that is used to place
5122 the cursor there. Don't include the width of this glyph. */
5123 if (!row
->reversed_p
)
5125 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5126 if (INTEGERP (last
->object
))
5127 row_width
-= last
->pixel_width
;
5131 /* There could be a stretch glyph at the beginning of R2L
5132 rows that is produced by extend_face_to_end_of_line.
5133 Don't count that glyph. */
5134 struct glyph
*g
= row
->glyphs
[TEXT_AREA
];
5136 if (g
->type
== STRETCH_GLYPH
&& INTEGERP (g
->object
))
5138 row_width
-= g
->pixel_width
;
5139 seen_reversed_p
= 1;
5144 height
+= row
->height
;
5145 width
= max (width
, row_width
);
5148 /* If we've seen partial-length R2L rows, we need to re-adjust the
5149 tool-tip frame width and redisplay it again, to avoid over-wide
5150 tips due to the stretch glyph that extends R2L lines to full
5151 width of the frame. */
5152 if (seen_reversed_p
)
5154 /* w->total_cols and FRAME_TOTAL_COLS want the width in columns,
5156 width
/= WINDOW_FRAME_COLUMN_WIDTH (w
);
5157 w
->total_cols
= make_number (width
);
5158 FRAME_TOTAL_COLS (f
) = width
;
5160 clear_glyph_matrix (w
->desired_matrix
);
5161 clear_glyph_matrix (w
->current_matrix
);
5162 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5164 /* Recompute width and height of the tooltip. */
5165 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5167 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5171 if (!row
->enabled_p
|| !row
->displays_text_p
)
5173 row
->full_width_p
= 1;
5174 row_width
= row
->pixel_width
;
5175 if (row
->used
[TEXT_AREA
] && !row
->reversed_p
)
5177 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5178 if (INTEGERP (last
->object
))
5179 row_width
-= last
->pixel_width
;
5182 height
+= row
->height
;
5183 width
= max (width
, row_width
);
5187 /* Add the frame's internal border to the width and height the X
5188 window should have. */
5189 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5190 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5192 /* Move the tooltip window where the mouse pointer is. Resize and
5194 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5197 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5198 root_x
, root_y
, width
, height
);
5199 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5202 /* Draw into the window. */
5203 w
->must_be_updated_p
= 1;
5204 update_single_window (w
, 1);
5206 /* Restore original current buffer. */
5207 set_buffer_internal_1 (old_buffer
);
5208 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5211 /* Let the tip disappear after timeout seconds. */
5212 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5213 intern ("x-hide-tip"));
5216 return unbind_to (count
, Qnil
);
5220 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5221 doc
: /* Hide the current tooltip window, if there is any.
5222 Value is t if tooltip was open, nil otherwise. */)
5226 Lisp_Object deleted
, frame
, timer
;
5227 struct gcpro gcpro1
, gcpro2
;
5229 /* Return quickly if nothing to do. */
5230 if (NILP (tip_timer
) && NILP (tip_frame
))
5235 GCPRO2 (frame
, timer
);
5236 tip_frame
= tip_timer
= deleted
= Qnil
;
5238 count
= SPECPDL_INDEX ();
5239 specbind (Qinhibit_redisplay
, Qt
);
5240 specbind (Qinhibit_quit
, Qt
);
5243 call1 (Qcancel_timer
, timer
);
5247 /* When using system tooltip, tip_frame is the Emacs frame on which
5248 the tip is shown. */
5249 struct frame
*f
= XFRAME (frame
);
5250 if (FRAME_LIVE_P (f
) && xg_hide_tooltip (f
))
5257 delete_frame (frame
, Qnil
);
5261 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5262 redisplay procedure is not called when a tip frame over menu
5263 items is unmapped. Redisplay the menu manually... */
5266 struct frame
*f
= SELECTED_FRAME ();
5267 w
= f
->output_data
.x
->menubar_widget
;
5269 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5273 xlwmenu_redisplay (w
);
5277 #endif /* USE_LUCID */
5281 return unbind_to (count
, deleted
);
5286 /***********************************************************************
5287 File selection dialog
5288 ***********************************************************************/
5290 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5291 Sx_uses_old_gtk_dialog
,
5293 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5300 && xg_uses_old_file_dialog ())
5308 /* Callback for "OK" and "Cancel" on file selection dialog. */
5311 file_dialog_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5313 int *result
= (int *) client_data
;
5314 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5315 *result
= cb
->reason
;
5319 /* Callback for unmapping a file selection dialog. This is used to
5320 capture the case where a dialog is closed via a window manager's
5321 closer button, for example. Using a XmNdestroyCallback didn't work
5325 file_dialog_unmap_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5327 int *result
= (int *) client_data
;
5328 *result
= XmCR_CANCEL
;
5332 clean_up_file_dialog (Lisp_Object arg
)
5334 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5335 Widget dialog
= (Widget
) p
->pointer
;
5339 XtUnmanageChild (dialog
);
5340 XtDestroyWidget (dialog
);
5341 x_menu_set_in_use (0);
5348 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5349 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5350 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5351 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5352 or directory must exist.
5354 This function is only defined on MS Windows, and X Windows with the
5355 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5356 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5357 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5360 struct frame
*f
= SELECTED_FRAME ();
5361 Lisp_Object file
= Qnil
;
5362 Lisp_Object decoded_file
;
5363 Widget dialog
, text
, help
;
5366 XmString dir_xmstring
, pattern_xmstring
;
5367 ptrdiff_t count
= SPECPDL_INDEX ();
5368 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5372 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5374 if (popup_activated ())
5375 error ("Trying to use a menu from within a menu-entry");
5377 CHECK_STRING (prompt
);
5380 /* Prevent redisplay. */
5381 specbind (Qinhibit_redisplay
, Qt
);
5385 /* Create the dialog with PROMPT as title, using DIR as initial
5386 directory and using "*" as pattern. */
5387 dir
= Fexpand_file_name (dir
, Qnil
);
5388 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5389 pattern_xmstring
= XmStringCreateLocalized ("*");
5391 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5392 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5393 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5394 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5395 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5396 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5398 XmStringFree (dir_xmstring
);
5399 XmStringFree (pattern_xmstring
);
5401 /* Add callbacks for OK and Cancel. */
5402 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5403 (XtPointer
) &result
);
5404 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5405 (XtPointer
) &result
);
5406 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5407 (XtPointer
) &result
);
5409 /* Remove the help button since we can't display help. */
5410 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5411 XtUnmanageChild (help
);
5413 /* Mark OK button as default. */
5414 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5415 XmNshowAsDefault
, True
, NULL
);
5417 /* If MUSTMATCH is non-nil, disable the file entry field of the
5418 dialog, so that the user must select a file from the files list
5419 box. We can't remove it because we wouldn't have a way to get at
5420 the result file name, then. */
5421 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5422 if (!NILP (mustmatch
))
5425 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5426 XtSetSensitive (text
, False
);
5427 XtSetSensitive (label
, False
);
5430 /* Manage the dialog, so that list boxes get filled. */
5431 XtManageChild (dialog
);
5433 if (STRINGP (default_filename
))
5435 XmString default_xmstring
;
5436 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5437 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5439 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5440 XmTextFieldReplace (wtext
, 0, last_pos
,
5441 (SDATA (Ffile_name_nondirectory (default_filename
))));
5443 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5444 must include the path for this to work. */
5446 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5448 if (XmListItemExists (list
, default_xmstring
))
5450 int item_pos
= XmListItemPos (list
, default_xmstring
);
5451 /* Select the item and scroll it into view. */
5452 XmListSelectPos (list
, item_pos
, True
);
5453 XmListSetPos (list
, item_pos
);
5456 XmStringFree (default_xmstring
);
5459 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5461 /* Process events until the user presses Cancel or OK. */
5462 x_menu_set_in_use (1);
5467 x_menu_wait_for_event (0);
5468 XtAppNextEvent (Xt_app_con
, &event
);
5469 if (event
.type
== KeyPress
5470 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5472 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5474 /* Pop down on C-g. */
5475 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5476 XtUnmanageChild (dialog
);
5479 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5482 /* Get the result. */
5483 if (result
== XmCR_OK
)
5485 XmString text_string
;
5488 XtVaGetValues (dialog
, XmNtextString
, &text_string
, NULL
);
5489 XmStringGetLtoR (text_string
, XmFONTLIST_DEFAULT_TAG
, &data
);
5490 XmStringFree (text_string
);
5491 file
= build_string (data
);
5500 /* Make "Cancel" equivalent to C-g. */
5502 Fsignal (Qquit
, Qnil
);
5504 decoded_file
= DECODE_FILE (file
);
5506 return unbind_to (count
, decoded_file
);
5509 #endif /* USE_MOTIF */
5514 clean_up_dialog (Lisp_Object arg
)
5516 x_menu_set_in_use (0);
5521 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5522 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5523 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5524 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5525 or directory must exist.
5527 This function is only defined on MS Windows, and X Windows with the
5528 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5529 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5530 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5532 FRAME_PTR f
= SELECTED_FRAME ();
5534 Lisp_Object file
= Qnil
;
5535 Lisp_Object decoded_file
;
5536 ptrdiff_t count
= SPECPDL_INDEX ();
5537 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5542 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5544 if (popup_activated ())
5545 error ("Trying to use a menu from within a menu-entry");
5547 CHECK_STRING (prompt
);
5550 /* Prevent redisplay. */
5551 specbind (Qinhibit_redisplay
, Qt
);
5552 record_unwind_protect (clean_up_dialog
, Qnil
);
5556 if (STRINGP (default_filename
))
5557 cdef_file
= SSDATA (default_filename
);
5559 cdef_file
= SSDATA (dir
);
5561 fn
= xg_get_file_name (f
, SSDATA (prompt
), cdef_file
,
5563 ! NILP (only_dir_p
));
5567 file
= build_string (fn
);
5574 /* Make "Cancel" equivalent to C-g. */
5576 Fsignal (Qquit
, Qnil
);
5578 decoded_file
= DECODE_FILE (file
);
5580 return unbind_to (count
, decoded_file
);
5584 #ifdef HAVE_FREETYPE
5586 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5587 doc
: /* Read a font name using a GTK font selection dialog.
5588 Return a GTK-style font string corresponding to the selection.
5590 If FRAME is omitted or nil, it defaults to the selected frame. */)
5591 (Lisp_Object frame
, Lisp_Object ignored
)
5593 FRAME_PTR f
= check_x_frame (frame
);
5596 Lisp_Object font_param
;
5597 char *default_name
= NULL
;
5598 struct gcpro gcpro1
, gcpro2
;
5599 ptrdiff_t count
= SPECPDL_INDEX ();
5603 if (popup_activated ())
5604 error ("Trying to use a menu from within a menu-entry");
5606 /* Prevent redisplay. */
5607 specbind (Qinhibit_redisplay
, Qt
);
5608 record_unwind_protect (clean_up_dialog
, Qnil
);
5612 GCPRO2 (font_param
, font
);
5614 XSETFONT (font
, FRAME_FONT (f
));
5615 font_param
= Ffont_get (font
, intern (":name"));
5616 if (STRINGP (font_param
))
5617 default_name
= xstrdup (SSDATA (font_param
));
5620 font_param
= Fframe_parameter (frame
, Qfont_param
);
5621 if (STRINGP (font_param
))
5622 default_name
= xstrdup (SSDATA (font_param
));
5625 if (default_name
== NULL
&& x_last_font_name
!= NULL
)
5626 default_name
= xstrdup (x_last_font_name
);
5628 /* Convert fontconfig names to Gtk names, i.e. remove - before number */
5631 char *p
= strrchr (default_name
, '-');
5635 while (isdigit (*ep
))
5637 if (*ep
== '\0') *p
= ' ';
5641 name
= xg_get_font_name (f
, default_name
);
5642 xfree (default_name
);
5646 font
= build_string (name
);
5647 g_free (x_last_font_name
);
5648 x_last_font_name
= name
;
5654 Fsignal (Qquit
, Qnil
);
5656 return unbind_to (count
, font
);
5658 #endif /* HAVE_FREETYPE */
5660 #endif /* USE_GTK */
5663 /***********************************************************************
5665 ***********************************************************************/
5667 #ifdef HAVE_XKBGETKEYBOARD
5668 #include <X11/XKBlib.h>
5669 #include <X11/keysym.h>
5672 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5673 Sx_backspace_delete_keys_p
, 0, 1, 0,
5674 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5675 FRAME nil means use the selected frame.
5676 Value is t if we know that both keys are present, and are mapped to the
5677 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5678 present and mapped to the usual X keysyms. */)
5681 #ifdef HAVE_XKBGETKEYBOARD
5683 struct frame
*f
= check_x_frame (frame
);
5684 Display
*dpy
= FRAME_X_DISPLAY (f
);
5685 Lisp_Object have_keys
;
5686 int major
, minor
, op
, event
, error_code
;
5690 /* Check library version in case we're dynamically linked. */
5691 major
= XkbMajorVersion
;
5692 minor
= XkbMinorVersion
;
5693 if (!XkbLibraryVersion (&major
, &minor
))
5699 /* Check that the server supports XKB. */
5700 major
= XkbMajorVersion
;
5701 minor
= XkbMinorVersion
;
5702 if (!XkbQueryExtension (dpy
, &op
, &event
, &error_code
, &major
, &minor
))
5708 /* In this code we check that the keyboard has physical keys with names
5709 that start with BKSP (Backspace) and DELE (Delete), and that they
5710 generate keysym XK_BackSpace and XK_Delete respectively.
5711 This function is used to test if normal-erase-is-backspace should be
5713 An alternative approach would be to just check if XK_BackSpace and
5714 XK_Delete are mapped to any key. But if any of those are mapped to
5715 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5716 user doesn't know about it, it is better to return false here.
5717 It is more obvious to the user what to do if she/he has two keys
5718 clearly marked with names/symbols and one key does something not
5719 expected (i.e. she/he then tries the other).
5720 The cases where Backspace/Delete is mapped to some other key combination
5721 are rare, and in those cases, normal-erase-is-backspace can be turned on
5725 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5728 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5730 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5732 for (i
= kb
->min_key_code
;
5733 (i
< kb
->max_key_code
5734 && (delete_keycode
== 0 || backspace_keycode
== 0));
5737 /* The XKB symbolic key names can be seen most easily in
5738 the PS file generated by `xkbprint -label name
5740 if (memcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5742 else if (memcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5743 backspace_keycode
= i
;
5746 XkbFreeNames (kb
, 0, True
);
5749 XkbFreeClientMap (kb
, 0, True
);
5752 && backspace_keycode
5753 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5754 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5759 #else /* not HAVE_XKBGETKEYBOARD */
5761 #endif /* not HAVE_XKBGETKEYBOARD */
5766 /***********************************************************************
5768 ***********************************************************************/
5770 /* Keep this list in the same order as frame_parms in frame.c.
5771 Use 0 for unsupported frame parameters. */
5773 frame_parm_handler x_frame_parm_handlers
[] =
5777 x_set_background_color
,
5783 x_set_foreground_color
,
5786 x_set_internal_border_width
,
5787 x_set_menu_bar_lines
,
5789 x_explicitly_set_name
,
5790 x_set_scroll_bar_width
,
5793 x_set_vertical_scroll_bars
,
5795 x_set_tool_bar_lines
,
5796 x_set_scroll_bar_foreground
,
5797 x_set_scroll_bar_background
,
5807 x_set_tool_bar_position
,
5813 /* This is zero if not using X windows. */
5816 /* The section below is built by the lisp expression at the top of the file,
5817 just above where these variables are declared. */
5818 /*&&& init symbols here &&&*/
5819 DEFSYM (Qnone
, "none");
5820 DEFSYM (Qsuppress_icon
, "suppress-icon");
5821 DEFSYM (Qundefined_color
, "undefined-color");
5822 DEFSYM (Qcompound_text
, "compound-text");
5823 DEFSYM (Qcancel_timer
, "cancel-timer");
5824 DEFSYM (Qfont_param
, "font-parameter");
5825 /* This is the end of symbol initialization. */
5827 Fput (Qundefined_color
, Qerror_conditions
,
5828 pure_cons (Qundefined_color
, pure_cons (Qerror
, Qnil
)));
5829 Fput (Qundefined_color
, Qerror_message
,
5830 make_pure_c_string ("Undefined color"));
5832 DEFVAR_LISP ("x-pointer-shape", Vx_pointer_shape
,
5833 doc
: /* The shape of the pointer when over text.
5834 Changing the value does not affect existing frames
5835 unless you set the mouse color. */);
5836 Vx_pointer_shape
= Qnil
;
5838 #if 0 /* This doesn't really do anything. */
5839 DEFVAR_LISP ("x-nontext-pointer-shape", Vx_nontext_pointer_shape
,
5840 doc
: /* The shape of the pointer when not over text.
5841 This variable takes effect when you create a new frame
5842 or when you set the mouse color. */);
5844 Vx_nontext_pointer_shape
= Qnil
;
5846 DEFVAR_LISP ("x-hourglass-pointer-shape", Vx_hourglass_pointer_shape
,
5847 doc
: /* The shape of the pointer when Emacs is busy.
5848 This variable takes effect when you create a new frame
5849 or when you set the mouse color. */);
5850 Vx_hourglass_pointer_shape
= Qnil
;
5852 #if 0 /* This doesn't really do anything. */
5853 DEFVAR_LISP ("x-mode-pointer-shape", Vx_mode_pointer_shape
,
5854 doc
: /* The shape of the pointer when over the mode line.
5855 This variable takes effect when you create a new frame
5856 or when you set the mouse color. */);
5858 Vx_mode_pointer_shape
= Qnil
;
5860 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5861 Vx_sensitive_text_pointer_shape
,
5862 doc
: /* The shape of the pointer when over mouse-sensitive text.
5863 This variable takes effect when you create a new frame
5864 or when you set the mouse color. */);
5865 Vx_sensitive_text_pointer_shape
= Qnil
;
5867 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5868 Vx_window_horizontal_drag_shape
,
5869 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5870 This variable takes effect when you create a new frame
5871 or when you set the mouse color. */);
5872 Vx_window_horizontal_drag_shape
= Qnil
;
5874 DEFVAR_LISP ("x-cursor-fore-pixel", Vx_cursor_fore_pixel
,
5875 doc
: /* A string indicating the foreground color of the cursor box. */);
5876 Vx_cursor_fore_pixel
= Qnil
;
5878 DEFVAR_LISP ("x-max-tooltip-size", Vx_max_tooltip_size
,
5879 doc
: /* Maximum size for tooltips.
5880 Value is a pair (COLUMNS . ROWS). Text larger than this is clipped. */);
5881 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5883 DEFVAR_LISP ("x-no-window-manager", Vx_no_window_manager
,
5884 doc
: /* Non-nil if no X window manager is in use.
5885 Emacs doesn't try to figure this out; this is always nil
5886 unless you set it to something else. */);
5887 /* We don't have any way to find this out, so set it to nil
5888 and maybe the user would like to set it to t. */
5889 Vx_no_window_manager
= Qnil
;
5891 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5892 Vx_pixel_size_width_font_regexp
,
5893 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5895 Since Emacs gets width of a font matching with this regexp from
5896 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5897 such a font. This is especially effective for such large fonts as
5898 Chinese, Japanese, and Korean. */);
5899 Vx_pixel_size_width_font_regexp
= Qnil
;
5901 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5902 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", x_gtk_use_old_file_dialog
,
5903 doc
: /* Non-nil means prompt with the old GTK file selection dialog.
5904 If nil or if the file selection dialog is not available, the new GTK file
5905 chooser is used instead. To turn off all file dialogs set the
5906 variable `use-file-dialog'. */);
5907 x_gtk_use_old_file_dialog
= 0;
5909 DEFVAR_BOOL ("x-gtk-show-hidden-files", x_gtk_show_hidden_files
,
5910 doc
: /* If non-nil, the GTK file chooser will by default show hidden files.
5911 Note that this is just the default, there is a toggle button on the file
5912 chooser to show or not show hidden files on a case by case basis. */);
5913 x_gtk_show_hidden_files
= 0;
5915 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", x_gtk_file_dialog_help_text
,
5916 doc
: /* If non-nil, the GTK file chooser will show additional help text.
5917 If more space for files in the file chooser dialog is wanted, set this to nil
5918 to turn the additional text off. */);
5919 x_gtk_file_dialog_help_text
= 1;
5921 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", x_gtk_whole_detached_tool_bar
,
5922 doc
: /* If non-nil, a detached tool bar is shown in full.
5923 The default is to just show an arrow and pressing on that arrow shows
5924 the tool bar buttons. */);
5925 x_gtk_whole_detached_tool_bar
= 0;
5927 DEFVAR_BOOL ("x-gtk-use-system-tooltips", x_gtk_use_system_tooltips
,
5928 doc
: /* If non-nil with a Gtk+ built Emacs, the Gtk+ tooltip is used.
5929 Otherwise use Emacs own tooltip implementation.
5930 When using Gtk+ tooltips, the tooltip face is not used. */);
5931 x_gtk_use_system_tooltips
= 1;
5933 Fprovide (intern_c_string ("x"), Qnil
);
5935 #ifdef USE_X_TOOLKIT
5936 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5938 Fprovide (intern_c_string ("motif"), Qnil
);
5940 DEFVAR_LISP ("motif-version-string", Vmotif_version_string
,
5941 doc
: /* Version info for LessTif/Motif. */);
5942 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5943 #endif /* USE_MOTIF */
5944 #endif /* USE_X_TOOLKIT */
5947 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5948 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5949 But for a user it is a toolkit for X, and indeed, configure
5950 accepts --with-x-toolkit=gtk. */
5951 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5952 Fprovide (intern_c_string ("gtk"), Qnil
);
5953 Fprovide (intern_c_string ("move-toolbar"), Qnil
);
5955 DEFVAR_LISP ("gtk-version-string", Vgtk_version_string
,
5956 doc
: /* Version info for GTK+. */);
5958 char gtk_version
[sizeof ".." + 3 * INT_STRLEN_BOUND (int)];
5959 int len
= sprintf (gtk_version
, "%d.%d.%d",
5960 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5961 Vgtk_version_string
= make_pure_string (gtk_version
, len
, len
, 0);
5963 #endif /* USE_GTK */
5965 /* X window properties. */
5966 defsubr (&Sx_change_window_property
);
5967 defsubr (&Sx_delete_window_property
);
5968 defsubr (&Sx_window_property
);
5970 defsubr (&Sxw_display_color_p
);
5971 defsubr (&Sx_display_grayscale_p
);
5972 defsubr (&Sxw_color_defined_p
);
5973 defsubr (&Sxw_color_values
);
5974 defsubr (&Sx_server_max_request_size
);
5975 defsubr (&Sx_server_vendor
);
5976 defsubr (&Sx_server_version
);
5977 defsubr (&Sx_display_pixel_width
);
5978 defsubr (&Sx_display_pixel_height
);
5979 defsubr (&Sx_display_mm_width
);
5980 defsubr (&Sx_display_mm_height
);
5981 defsubr (&Sx_display_screens
);
5982 defsubr (&Sx_display_planes
);
5983 defsubr (&Sx_display_color_cells
);
5984 defsubr (&Sx_display_visual_class
);
5985 defsubr (&Sx_display_backing_store
);
5986 defsubr (&Sx_display_save_under
);
5987 defsubr (&Sx_wm_set_size_hint
);
5988 defsubr (&Sx_create_frame
);
5989 defsubr (&Sx_open_connection
);
5990 defsubr (&Sx_close_connection
);
5991 defsubr (&Sx_display_list
);
5992 defsubr (&Sx_synchronize
);
5993 defsubr (&Sx_focus_frame
);
5994 defsubr (&Sx_backspace_delete_keys_p
);
5996 /* Setting callback functions for fontset handler. */
5997 check_window_system_func
= check_x
;
5999 defsubr (&Sx_show_tip
);
6000 defsubr (&Sx_hide_tip
);
6002 staticpro (&tip_timer
);
6004 staticpro (&tip_frame
);
6006 last_show_tip_args
= Qnil
;
6007 staticpro (&last_show_tip_args
);
6009 defsubr (&Sx_uses_old_gtk_dialog
);
6010 #if defined (USE_MOTIF) || defined (USE_GTK)
6011 defsubr (&Sx_file_dialog
);
6014 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
6015 defsubr (&Sx_select_font
);
6016 x_last_font_name
= NULL
;
6020 #endif /* HAVE_X_WINDOWS */