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
,
4195 Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4197 struct frame
*f
= check_x_frame (frame
);
4199 Atom target_type
= XA_STRING
;
4200 int element_format
= 8;
4201 unsigned char *data
;
4205 CHECK_STRING (prop
);
4207 if (! NILP (format
))
4209 CHECK_NUMBER (format
);
4211 if (XINT (format
) != 8 && XINT (format
) != 16
4212 && XINT (format
) != 32)
4213 error ("FORMAT must be one of 8, 16 or 32");
4214 element_format
= XINT (format
);
4221 nelements
= x_check_property_data (value
);
4222 if (nelements
== -1)
4223 error ("Bad data in VALUE, must be number, string or cons");
4225 /* The man page for XChangeProperty:
4226 "If the specified format is 32, the property data must be a
4228 This applies even if long is more than 32 bits. The X library
4229 converts to 32 bits before sending to the X server. */
4230 elsize
= element_format
== 32 ? sizeof (long) : element_format
>> 3;
4231 data
= xnmalloc (nelements
, elsize
);
4233 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4237 CHECK_STRING (value
);
4238 data
= SDATA (value
);
4239 if (INT_MAX
< SBYTES (value
))
4240 error ("VALUE too long");
4241 nelements
= SBYTES (value
);
4245 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4248 CHECK_STRING (type
);
4249 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4252 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4253 else w
= FRAME_X_WINDOW (f
);
4255 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4256 prop_atom
, target_type
, element_format
, PropModeReplace
,
4259 if (CONSP (value
)) xfree (data
);
4261 /* Make sure the property is set when we return. */
4262 XFlush (FRAME_X_DISPLAY (f
));
4269 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4270 Sx_delete_window_property
, 1, 2, 0,
4271 doc
: /* Remove window property PROP from X window of FRAME.
4272 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4273 (Lisp_Object prop
, Lisp_Object frame
)
4275 struct frame
*f
= check_x_frame (frame
);
4278 CHECK_STRING (prop
);
4280 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4281 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4283 /* Make sure the property is removed when we return. */
4284 XFlush (FRAME_X_DISPLAY (f
));
4291 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4293 doc
: /* Value is the value of window property PROP on FRAME.
4294 If FRAME is nil or omitted, use the selected frame.
4296 On X Windows, the following optional arguments are also accepted:
4297 If TYPE is nil or omitted, get the property as a string.
4298 Otherwise TYPE is the name of the atom that denotes the type expected.
4299 If SOURCE is non-nil, get the property on that window instead of from
4300 FRAME. The number 0 denotes the root window.
4301 If DELETE-P is non-nil, delete the property after retrieving it.
4302 If VECTOR-RET-P is non-nil, don't return a string but a vector of values.
4304 On MS Windows, this function accepts but ignores those optional arguments.
4306 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4307 no value of TYPE (always string in the MS Windows case). */)
4308 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
,
4309 Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4311 struct frame
*f
= check_x_frame (frame
);
4314 Lisp_Object prop_value
= Qnil
;
4315 unsigned char *tmp_data
= NULL
;
4317 Atom target_type
= XA_STRING
;
4319 unsigned long actual_size
, bytes_remaining
;
4320 Window target_window
= FRAME_X_WINDOW (f
);
4321 struct gcpro gcpro1
;
4323 GCPRO1 (prop_value
);
4324 CHECK_STRING (prop
);
4326 if (! NILP (source
))
4328 CONS_TO_INTEGER (source
, Window
, target_window
);
4329 if (! target_window
)
4330 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4336 if (strcmp ("AnyPropertyType", SSDATA (type
)) == 0)
4337 target_type
= AnyPropertyType
;
4339 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (type
), False
);
4342 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SSDATA (prop
), False
);
4343 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4344 prop_atom
, 0, 0, False
, target_type
,
4345 &actual_type
, &actual_format
, &actual_size
,
4346 &bytes_remaining
, &tmp_data
);
4349 int size
= bytes_remaining
;
4354 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4355 prop_atom
, 0, bytes_remaining
,
4356 ! NILP (delete_p
), target_type
,
4357 &actual_type
, &actual_format
,
4358 &actual_size
, &bytes_remaining
,
4360 if (rc
== Success
&& tmp_data
)
4362 /* The man page for XGetWindowProperty says:
4363 "If the returned format is 32, the returned data is represented
4364 as a long array and should be cast to that type to obtain the
4366 This applies even if long is more than 32 bits, the X library
4367 converts from 32 bit elements received from the X server to long
4368 and passes the long array to us. Thus, for that case memcpy can not
4369 be used. We convert to a 32 bit type here, because so much code
4372 The bytes and offsets passed to XGetWindowProperty refers to the
4373 property and those are indeed in 32 bit quantities if format is
4376 if (32 < BITS_PER_LONG
&& actual_format
== 32)
4379 int *idata
= (int *) tmp_data
;
4380 long *ldata
= (long *) tmp_data
;
4382 for (i
= 0; i
< actual_size
; ++i
)
4383 idata
[i
] = (int) ldata
[i
];
4386 if (NILP (vector_ret_p
))
4387 prop_value
= make_string ((char *) tmp_data
, size
);
4389 prop_value
= x_property_data_to_lisp (f
,
4396 if (tmp_data
) XFree (tmp_data
);
4406 /***********************************************************************
4408 ***********************************************************************/
4410 /* Timer function of hourglass_atimer. TIMER is equal to
4413 Display an hourglass pointer on all frames by mapping the frames'
4414 hourglass_window. Set the hourglass_p flag in the frames'
4415 output_data.x structure to indicate that an hourglass cursor is
4416 shown on the frames. */
4419 show_hourglass (struct atimer
*timer
)
4421 /* The timer implementation will cancel this timer automatically
4422 after this function has run. Set hourglass_atimer to null
4423 so that we know the timer doesn't have to be canceled. */
4424 hourglass_atimer
= NULL
;
4426 if (!hourglass_shown_p
)
4428 Lisp_Object rest
, frame
;
4432 FOR_EACH_FRAME (rest
, frame
)
4434 struct frame
*f
= XFRAME (frame
);
4436 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4438 Display
*dpy
= FRAME_X_DISPLAY (f
);
4440 #ifdef USE_X_TOOLKIT
4441 if (f
->output_data
.x
->widget
)
4443 if (FRAME_OUTER_WINDOW (f
))
4446 f
->output_data
.x
->hourglass_p
= 1;
4448 if (!f
->output_data
.x
->hourglass_window
)
4450 unsigned long mask
= CWCursor
;
4451 XSetWindowAttributes attrs
;
4453 Window parent
= FRAME_X_WINDOW (f
);
4455 Window parent
= FRAME_OUTER_WINDOW (f
);
4457 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4459 f
->output_data
.x
->hourglass_window
4460 = XCreateWindow (dpy
, parent
,
4461 0, 0, 32000, 32000, 0, 0,
4467 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4473 hourglass_shown_p
= 1;
4479 /* Hide the hourglass pointer on all frames, if it is currently
4483 hide_hourglass (void)
4485 if (hourglass_shown_p
)
4487 Lisp_Object rest
, frame
;
4490 FOR_EACH_FRAME (rest
, frame
)
4492 struct frame
*f
= XFRAME (frame
);
4495 /* Watch out for newly created frames. */
4496 && f
->output_data
.x
->hourglass_window
)
4498 XUnmapWindow (FRAME_X_DISPLAY (f
),
4499 f
->output_data
.x
->hourglass_window
);
4500 /* Sync here because XTread_socket looks at the
4501 hourglass_p flag that is reset to zero below. */
4502 XSync (FRAME_X_DISPLAY (f
), False
);
4503 f
->output_data
.x
->hourglass_p
= 0;
4507 hourglass_shown_p
= 0;
4514 /***********************************************************************
4516 ***********************************************************************/
4518 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4519 Lisp_Object
, Lisp_Object
);
4520 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4521 Lisp_Object
, int, int, int *, int *);
4523 /* The frame of a currently visible tooltip. */
4525 Lisp_Object tip_frame
;
4527 /* If non-nil, a timer started that hides the last tooltip when it
4530 static Lisp_Object tip_timer
;
4533 /* If non-nil, a vector of 3 elements containing the last args
4534 with which x-show-tip was called. See there. */
4536 static Lisp_Object last_show_tip_args
;
4540 unwind_create_tip_frame (Lisp_Object frame
)
4542 Lisp_Object deleted
;
4544 deleted
= unwind_create_frame (frame
);
4545 if (EQ (deleted
, Qt
))
4555 /* Create a frame for a tooltip on the display described by DPYINFO.
4556 PARMS is a list of frame parameters. TEXT is the string to
4557 display in the tip frame. Value is the frame.
4559 Note that functions called here, esp. x_default_parameter can
4560 signal errors, for instance when a specified color name is
4561 undefined. We have to make sure that we're in a consistent state
4562 when this happens. */
4565 x_create_tip_frame (struct x_display_info
*dpyinfo
,
4573 ptrdiff_t count
= SPECPDL_INDEX ();
4574 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4575 int face_change_count_before
= face_change_count
;
4577 struct buffer
*old_buffer
;
4581 if (!dpyinfo
->terminal
->name
)
4582 error ("Terminal is not live, can't create new frames on it");
4584 parms
= Fcopy_alist (parms
);
4586 /* Get the name of the frame to use for resource lookup. */
4587 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4589 && !EQ (name
, Qunbound
)
4591 error ("Invalid frame name--not a string or nil");
4594 GCPRO3 (parms
, name
, frame
);
4596 XSETFRAME (frame
, f
);
4598 buffer
= Fget_buffer_create (build_string (" *tip*"));
4599 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4600 old_buffer
= current_buffer
;
4601 set_buffer_internal_1 (XBUFFER (buffer
));
4602 BVAR (current_buffer
, truncate_lines
) = Qnil
;
4603 specbind (Qinhibit_read_only
, Qt
);
4604 specbind (Qinhibit_modification_hooks
, Qt
);
4607 set_buffer_internal_1 (old_buffer
);
4609 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4610 record_unwind_protect (unwind_create_tip_frame
, frame
);
4612 f
->terminal
= dpyinfo
->terminal
;
4614 /* By setting the output method, we're essentially saying that
4615 the frame is live, as per FRAME_LIVE_P. If we get a signal
4616 from this point on, x_destroy_window might screw up reference
4618 f
->output_method
= output_x_window
;
4619 f
->output_data
.x
= xzalloc (sizeof *f
->output_data
.x
);
4620 f
->output_data
.x
->icon_bitmap
= -1;
4621 FRAME_FONTSET (f
) = -1;
4622 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4623 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4624 #ifdef USE_TOOLKIT_SCROLL_BARS
4625 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4626 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4627 #endif /* USE_TOOLKIT_SCROLL_BARS */
4628 f
->icon_name
= Qnil
;
4629 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4630 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4631 f
->output_data
.x
->explicit_parent
= 0;
4633 /* These colors will be set anyway later, but it's important
4634 to get the color reference counts right, so initialize them! */
4637 struct gcpro gcpro1
;
4639 /* Function x_decode_color can signal an error. Make
4640 sure to initialize color slots so that we won't try
4641 to free colors we haven't allocated. */
4642 FRAME_FOREGROUND_PIXEL (f
) = -1;
4643 FRAME_BACKGROUND_PIXEL (f
) = -1;
4644 f
->output_data
.x
->cursor_pixel
= -1;
4645 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4646 f
->output_data
.x
->border_pixel
= -1;
4647 f
->output_data
.x
->mouse_pixel
= -1;
4649 black
= build_string ("black");
4651 FRAME_FOREGROUND_PIXEL (f
)
4652 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4653 FRAME_BACKGROUND_PIXEL (f
)
4654 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4655 f
->output_data
.x
->cursor_pixel
4656 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4657 f
->output_data
.x
->cursor_foreground_pixel
4658 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4659 f
->output_data
.x
->border_pixel
4660 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4661 f
->output_data
.x
->mouse_pixel
4662 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4666 /* Set the name; the functions to which we pass f expect the name to
4668 if (EQ (name
, Qunbound
) || NILP (name
))
4670 f
->name
= build_string (dpyinfo
->x_id_name
);
4671 f
->explicit_name
= 0;
4676 f
->explicit_name
= 1;
4677 /* use the frame's title when getting resources for this frame. */
4678 specbind (Qx_resource_name
, name
);
4681 f
->resx
= dpyinfo
->resx
;
4682 f
->resy
= dpyinfo
->resy
;
4684 register_font_driver (&xfont_driver
, f
);
4685 #ifdef HAVE_FREETYPE
4687 register_font_driver (&xftfont_driver
, f
);
4688 #else /* not HAVE_XFT */
4689 register_font_driver (&ftxfont_driver
, f
);
4690 #endif /* not HAVE_XFT */
4691 #endif /* HAVE_FREETYPE */
4693 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4694 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4696 /* Extract the window parameters from the supplied values that are
4697 needed to determine window geometry. */
4698 x_default_font_parameter (f
, parms
);
4700 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
4701 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4703 /* This defaults to 2 in order to match xterm. We recognize either
4704 internalBorderWidth or internalBorder (which is what xterm calls
4706 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4710 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4711 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4712 if (! EQ (value
, Qunbound
))
4713 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4717 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4718 "internalBorderWidth", "internalBorderWidth",
4721 /* Also do the stuff which must be set before the window exists. */
4722 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4723 "foreground", "Foreground", RES_TYPE_STRING
);
4724 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4725 "background", "Background", RES_TYPE_STRING
);
4726 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4727 "pointerColor", "Foreground", RES_TYPE_STRING
);
4728 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4729 "cursorColor", "Foreground", RES_TYPE_STRING
);
4730 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4731 "borderColor", "BorderColor", RES_TYPE_STRING
);
4734 image_cache_refcount
=
4735 FRAME_IMAGE_CACHE (f
) ? FRAME_IMAGE_CACHE (f
)->refcount
: 0;
4736 dpyinfo_refcount
= dpyinfo
->reference_count
;
4737 #endif /* GLYPH_DEBUG */
4739 /* Init faces before x_default_parameter is called for scroll-bar
4740 parameters because that function calls x_set_scroll_bar_width,
4741 which calls change_frame_size, which calls Fset_window_buffer,
4742 which runs hooks, which call Fvertical_motion. At the end, we
4743 end up in init_iterator with a null face cache, which should not
4745 init_frame_faces (f
);
4747 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4749 x_figure_window_size (f
, parms
, 0);
4752 XSetWindowAttributes attrs
;
4754 Atom type
= FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
4757 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4758 if (DoesSaveUnders (dpyinfo
->screen
))
4759 mask
|= CWSaveUnder
;
4761 /* Window managers look at the override-redirect flag to determine
4762 whether or net to give windows a decoration (Xlib spec, chapter
4764 attrs
.override_redirect
= True
;
4765 attrs
.save_under
= True
;
4766 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4767 /* Arrange for getting MapNotify and UnmapNotify events. */
4768 attrs
.event_mask
= StructureNotifyMask
;
4770 = FRAME_X_WINDOW (f
)
4771 = XCreateWindow (FRAME_X_DISPLAY (f
),
4772 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4773 /* x, y, width, height */
4777 CopyFromParent
, InputOutput
, CopyFromParent
,
4779 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
4780 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type
,
4781 XA_ATOM
, 32, PropModeReplace
,
4782 (unsigned char *)&type
, 1);
4788 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4789 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4790 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4791 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4792 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4793 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4795 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4796 Change will not be effected unless different from the current
4798 width
= FRAME_COLS (f
);
4799 height
= FRAME_LINES (f
);
4800 SET_FRAME_COLS (f
, 0);
4801 FRAME_LINES (f
) = 0;
4802 change_frame_size (f
, height
, width
, 1, 0, 0);
4804 /* Add `tooltip' frame parameter's default value. */
4805 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
4806 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qtooltip
, Qt
), Qnil
));
4808 /* FIXME - can this be done in a similar way to normal frames?
4809 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
4811 /* Set the `display-type' frame parameter before setting up faces. */
4813 Lisp_Object disptype
;
4815 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4816 disptype
= intern ("mono");
4817 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
4818 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4819 disptype
= intern ("grayscale");
4821 disptype
= intern ("color");
4823 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4824 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4828 /* Set up faces after all frame parameters are known. This call
4829 also merges in face attributes specified for new frames.
4831 Frame parameters may be changed if .Xdefaults contains
4832 specifications for the default font. For example, if there is an
4833 `Emacs.default.attributeBackground: pink', the `background-color'
4834 attribute of the frame get's set, which let's the internal border
4835 of the tooltip frame appear in pink. Prevent this. */
4837 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4839 /* Set tip_frame here, so that */
4841 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
4843 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4844 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4852 /* Now that the frame will be official, it counts as a reference to
4853 its display and terminal. */
4854 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4855 f
->terminal
->reference_count
++;
4857 /* It is now ok to make the frame official even if we get an error
4858 below. And the frame needs to be on Vframe_list or making it
4859 visible won't work. */
4860 Vframe_list
= Fcons (frame
, Vframe_list
);
4863 /* Setting attributes of faces of the tooltip frame from resources
4864 and similar will increment face_change_count, which leads to the
4865 clearing of all current matrices. Since this isn't necessary
4866 here, avoid it by resetting face_change_count to the value it
4867 had before we created the tip frame. */
4868 face_change_count
= face_change_count_before
;
4870 /* Discard the unwind_protect. */
4871 return unbind_to (count
, frame
);
4875 /* Compute where to display tip frame F. PARMS is the list of frame
4876 parameters for F. DX and DY are specified offsets from the current
4877 location of the mouse. WIDTH and HEIGHT are the width and height
4878 of the tooltip. Return coordinates relative to the root window of
4879 the display in *ROOT_X, and *ROOT_Y. */
4882 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
)
4884 Lisp_Object left
, top
;
4889 /* User-specified position? */
4890 left
= Fcdr (Fassq (Qleft
, parms
));
4891 top
= Fcdr (Fassq (Qtop
, parms
));
4893 /* Move the tooltip window where the mouse pointer is. Resize and
4895 if (!INTEGERP (left
) || !INTEGERP (top
))
4898 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4899 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4904 *root_y
= XINT (top
);
4905 else if (*root_y
+ XINT (dy
) <= 0)
4906 *root_y
= 0; /* Can happen for negative dy */
4907 else if (*root_y
+ XINT (dy
) + height
4908 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
4909 /* It fits below the pointer */
4910 *root_y
+= XINT (dy
);
4911 else if (height
+ XINT (dy
) <= *root_y
)
4912 /* It fits above the pointer. */
4913 *root_y
-= height
+ XINT (dy
);
4915 /* Put it on the top. */
4918 if (INTEGERP (left
))
4919 *root_x
= XINT (left
);
4920 else if (*root_x
+ XINT (dx
) <= 0)
4921 *root_x
= 0; /* Can happen for negative dx */
4922 else if (*root_x
+ XINT (dx
) + width
4923 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
4924 /* It fits to the right of the pointer. */
4925 *root_x
+= XINT (dx
);
4926 else if (width
+ XINT (dx
) <= *root_x
)
4927 /* It fits to the left of the pointer. */
4928 *root_x
-= width
+ XINT (dx
);
4930 /* Put it left-justified on the screen--it ought to fit that way. */
4935 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4936 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4937 A tooltip window is a small X window displaying a string.
4939 This is an internal function; Lisp code should call `tooltip-show'.
4941 FRAME nil or omitted means use the selected frame.
4943 PARMS is an optional list of frame parameters which can be used to
4944 change the tooltip's appearance.
4946 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4947 means use the default timeout of 5 seconds.
4949 If the list of frame parameters PARMS contains a `left' parameters,
4950 the tooltip is displayed at that x-position. Otherwise it is
4951 displayed at the mouse position, with offset DX added (default is 5 if
4952 DX isn't specified). Likewise for the y-position; if a `top' frame
4953 parameter is specified, it determines the y-position of the tooltip
4954 window, otherwise it is displayed at the mouse position, with offset
4955 DY added (default is -10).
4957 A tooltip's maximum size is specified by `x-max-tooltip-size'.
4958 Text larger than the specified size is clipped. */)
4959 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
4964 struct buffer
*old_buffer
;
4965 struct text_pos pos
;
4966 int i
, width
, height
, seen_reversed_p
;
4967 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
4968 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
4969 ptrdiff_t count
= SPECPDL_INDEX ();
4971 specbind (Qinhibit_redisplay
, Qt
);
4973 GCPRO4 (string
, parms
, frame
, timeout
);
4975 CHECK_STRING (string
);
4976 if (SCHARS (string
) == 0)
4977 string
= make_unibyte_string (" ", 1);
4979 f
= check_x_frame (frame
);
4981 timeout
= make_number (5);
4983 CHECK_NATNUM (timeout
);
4986 dx
= make_number (5);
4991 dy
= make_number (-10);
4996 if (x_gtk_use_system_tooltips
)
5000 /* Hide a previous tip, if any. */
5004 if ((ok
= xg_prepare_tooltip (f
, string
, &width
, &height
)) != 0)
5006 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5007 xg_show_tooltip (f
, root_x
, root_y
);
5008 /* This is used in Fx_hide_tip. */
5009 XSETFRAME (tip_frame
, f
);
5012 if (ok
) goto start_timer
;
5014 #endif /* USE_GTK */
5016 if (NILP (last_show_tip_args
))
5017 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5019 if (!NILP (tip_frame
))
5021 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5022 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5023 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5025 if (EQ (frame
, last_frame
)
5026 && !NILP (Fequal (last_string
, string
))
5027 && !NILP (Fequal (last_parms
, parms
)))
5029 struct frame
*tip_f
= XFRAME (tip_frame
);
5031 /* Only DX and DY have changed. */
5032 if (!NILP (tip_timer
))
5034 Lisp_Object timer
= tip_timer
;
5036 call1 (Qcancel_timer
, timer
);
5040 compute_tip_xy (tip_f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (tip_f
),
5041 FRAME_PIXEL_HEIGHT (tip_f
), &root_x
, &root_y
);
5042 XMoveWindow (FRAME_X_DISPLAY (tip_f
), FRAME_X_WINDOW (tip_f
),
5049 /* Hide a previous tip, if any. */
5052 ASET (last_show_tip_args
, 0, string
);
5053 ASET (last_show_tip_args
, 1, frame
);
5054 ASET (last_show_tip_args
, 2, parms
);
5056 /* Add default values to frame parameters. */
5057 if (NILP (Fassq (Qname
, parms
)))
5058 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5059 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5060 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5061 if (NILP (Fassq (Qborder_width
, parms
)))
5062 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5063 if (NILP (Fassq (Qborder_color
, parms
)))
5064 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5065 if (NILP (Fassq (Qbackground_color
, parms
)))
5066 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5069 /* Create a frame for the tooltip, and record it in the global
5070 variable tip_frame. */
5071 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5074 /* Set up the frame's root window. */
5075 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5076 w
->left_col
= w
->top_line
= make_number (0);
5078 if (CONSP (Vx_max_tooltip_size
)
5079 && RANGED_INTEGERP (1, XCAR (Vx_max_tooltip_size
), INT_MAX
)
5080 && RANGED_INTEGERP (1, XCDR (Vx_max_tooltip_size
), INT_MAX
))
5082 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5083 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5087 w
->total_cols
= make_number (80);
5088 w
->total_lines
= make_number (40);
5091 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5093 w
->pseudo_window_p
= 1;
5095 /* Display the tooltip text in a temporary buffer. */
5096 old_buffer
= current_buffer
;
5097 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5098 BVAR (current_buffer
, truncate_lines
) = Qnil
;
5099 clear_glyph_matrix (w
->desired_matrix
);
5100 clear_glyph_matrix (w
->current_matrix
);
5101 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5102 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5104 /* Compute width and height of the tooltip. */
5105 width
= height
= seen_reversed_p
= 0;
5106 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5108 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5112 /* Stop at the first empty row at the end. */
5113 if (!row
->enabled_p
|| !row
->displays_text_p
)
5116 /* Let the row go over the full width of the frame. */
5117 row
->full_width_p
= 1;
5119 row_width
= row
->pixel_width
;
5120 if (row
->used
[TEXT_AREA
])
5122 /* There's a glyph at the end of rows that is used to place
5123 the cursor there. Don't include the width of this glyph. */
5124 if (!row
->reversed_p
)
5126 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5127 if (INTEGERP (last
->object
))
5128 row_width
-= last
->pixel_width
;
5132 /* There could be a stretch glyph at the beginning of R2L
5133 rows that is produced by extend_face_to_end_of_line.
5134 Don't count that glyph. */
5135 struct glyph
*g
= row
->glyphs
[TEXT_AREA
];
5137 if (g
->type
== STRETCH_GLYPH
&& INTEGERP (g
->object
))
5139 row_width
-= g
->pixel_width
;
5140 seen_reversed_p
= 1;
5145 height
+= row
->height
;
5146 width
= max (width
, row_width
);
5149 /* If we've seen partial-length R2L rows, we need to re-adjust the
5150 tool-tip frame width and redisplay it again, to avoid over-wide
5151 tips due to the stretch glyph that extends R2L lines to full
5152 width of the frame. */
5153 if (seen_reversed_p
)
5155 /* w->total_cols and FRAME_TOTAL_COLS want the width in columns,
5157 width
/= WINDOW_FRAME_COLUMN_WIDTH (w
);
5158 w
->total_cols
= make_number (width
);
5159 FRAME_TOTAL_COLS (f
) = width
;
5161 clear_glyph_matrix (w
->desired_matrix
);
5162 clear_glyph_matrix (w
->current_matrix
);
5163 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5165 /* Recompute width and height of the tooltip. */
5166 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5168 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5172 if (!row
->enabled_p
|| !row
->displays_text_p
)
5174 row
->full_width_p
= 1;
5175 row_width
= row
->pixel_width
;
5176 if (row
->used
[TEXT_AREA
] && !row
->reversed_p
)
5178 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5179 if (INTEGERP (last
->object
))
5180 row_width
-= last
->pixel_width
;
5183 height
+= row
->height
;
5184 width
= max (width
, row_width
);
5188 /* Add the frame's internal border to the width and height the X
5189 window should have. */
5190 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5191 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5193 /* Move the tooltip window where the mouse pointer is. Resize and
5195 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5198 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5199 root_x
, root_y
, width
, height
);
5200 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5203 /* Draw into the window. */
5204 w
->must_be_updated_p
= 1;
5205 update_single_window (w
, 1);
5207 /* Restore original current buffer. */
5208 set_buffer_internal_1 (old_buffer
);
5209 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5212 /* Let the tip disappear after timeout seconds. */
5213 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5214 intern ("x-hide-tip"));
5217 return unbind_to (count
, Qnil
);
5221 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5222 doc
: /* Hide the current tooltip window, if there is any.
5223 Value is t if tooltip was open, nil otherwise. */)
5227 Lisp_Object deleted
, frame
, timer
;
5228 struct gcpro gcpro1
, gcpro2
;
5230 /* Return quickly if nothing to do. */
5231 if (NILP (tip_timer
) && NILP (tip_frame
))
5236 GCPRO2 (frame
, timer
);
5237 tip_frame
= tip_timer
= deleted
= Qnil
;
5239 count
= SPECPDL_INDEX ();
5240 specbind (Qinhibit_redisplay
, Qt
);
5241 specbind (Qinhibit_quit
, Qt
);
5244 call1 (Qcancel_timer
, timer
);
5248 /* When using system tooltip, tip_frame is the Emacs frame on which
5249 the tip is shown. */
5250 struct frame
*f
= XFRAME (frame
);
5251 if (FRAME_LIVE_P (f
) && xg_hide_tooltip (f
))
5258 delete_frame (frame
, Qnil
);
5262 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5263 redisplay procedure is not called when a tip frame over menu
5264 items is unmapped. Redisplay the menu manually... */
5267 struct frame
*f
= SELECTED_FRAME ();
5268 w
= f
->output_data
.x
->menubar_widget
;
5270 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5274 xlwmenu_redisplay (w
);
5278 #endif /* USE_LUCID */
5282 return unbind_to (count
, deleted
);
5287 /***********************************************************************
5288 File selection dialog
5289 ***********************************************************************/
5291 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5292 Sx_uses_old_gtk_dialog
,
5294 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5301 && xg_uses_old_file_dialog ())
5309 /* Callback for "OK" and "Cancel" on file selection dialog. */
5312 file_dialog_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5314 int *result
= (int *) client_data
;
5315 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5316 *result
= cb
->reason
;
5320 /* Callback for unmapping a file selection dialog. This is used to
5321 capture the case where a dialog is closed via a window manager's
5322 closer button, for example. Using a XmNdestroyCallback didn't work
5326 file_dialog_unmap_cb (Widget widget
, XtPointer client_data
, XtPointer call_data
)
5328 int *result
= (int *) client_data
;
5329 *result
= XmCR_CANCEL
;
5333 clean_up_file_dialog (Lisp_Object arg
)
5335 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5336 Widget dialog
= (Widget
) p
->pointer
;
5340 XtUnmanageChild (dialog
);
5341 XtDestroyWidget (dialog
);
5342 x_menu_set_in_use (0);
5349 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5350 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5351 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5352 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5353 or directory must exist.
5355 This function is only defined on MS Windows, and X Windows with the
5356 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5357 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5358 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5361 struct frame
*f
= SELECTED_FRAME ();
5362 Lisp_Object file
= Qnil
;
5363 Lisp_Object decoded_file
;
5364 Widget dialog
, text
, help
;
5367 XmString dir_xmstring
, pattern_xmstring
;
5368 ptrdiff_t count
= SPECPDL_INDEX ();
5369 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5373 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5375 if (popup_activated ())
5376 error ("Trying to use a menu from within a menu-entry");
5378 CHECK_STRING (prompt
);
5381 /* Prevent redisplay. */
5382 specbind (Qinhibit_redisplay
, Qt
);
5386 /* Create the dialog with PROMPT as title, using DIR as initial
5387 directory and using "*" as pattern. */
5388 dir
= Fexpand_file_name (dir
, Qnil
);
5389 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5390 pattern_xmstring
= XmStringCreateLocalized ("*");
5392 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5393 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5394 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5395 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5396 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5397 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5399 XmStringFree (dir_xmstring
);
5400 XmStringFree (pattern_xmstring
);
5402 /* Add callbacks for OK and Cancel. */
5403 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5404 (XtPointer
) &result
);
5405 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5406 (XtPointer
) &result
);
5407 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5408 (XtPointer
) &result
);
5410 /* Remove the help button since we can't display help. */
5411 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5412 XtUnmanageChild (help
);
5414 /* Mark OK button as default. */
5415 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5416 XmNshowAsDefault
, True
, NULL
);
5418 /* If MUSTMATCH is non-nil, disable the file entry field of the
5419 dialog, so that the user must select a file from the files list
5420 box. We can't remove it because we wouldn't have a way to get at
5421 the result file name, then. */
5422 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5423 if (!NILP (mustmatch
))
5426 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5427 XtSetSensitive (text
, False
);
5428 XtSetSensitive (label
, False
);
5431 /* Manage the dialog, so that list boxes get filled. */
5432 XtManageChild (dialog
);
5434 if (STRINGP (default_filename
))
5436 XmString default_xmstring
;
5437 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5438 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5440 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5441 XmTextFieldReplace (wtext
, 0, last_pos
,
5442 (SDATA (Ffile_name_nondirectory (default_filename
))));
5444 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5445 must include the path for this to work. */
5447 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5449 if (XmListItemExists (list
, default_xmstring
))
5451 int item_pos
= XmListItemPos (list
, default_xmstring
);
5452 /* Select the item and scroll it into view. */
5453 XmListSelectPos (list
, item_pos
, True
);
5454 XmListSetPos (list
, item_pos
);
5457 XmStringFree (default_xmstring
);
5460 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5462 /* Process events until the user presses Cancel or OK. */
5463 x_menu_set_in_use (1);
5468 x_menu_wait_for_event (0);
5469 XtAppNextEvent (Xt_app_con
, &event
);
5470 if (event
.type
== KeyPress
5471 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5473 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5475 /* Pop down on C-g. */
5476 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5477 XtUnmanageChild (dialog
);
5480 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5483 /* Get the result. */
5484 if (result
== XmCR_OK
)
5486 XmString text_string
;
5489 XtVaGetValues (dialog
, XmNtextString
, &text_string
, NULL
);
5490 XmStringGetLtoR (text_string
, XmFONTLIST_DEFAULT_TAG
, &data
);
5491 XmStringFree (text_string
);
5492 file
= build_string (data
);
5501 /* Make "Cancel" equivalent to C-g. */
5503 Fsignal (Qquit
, Qnil
);
5505 decoded_file
= DECODE_FILE (file
);
5507 return unbind_to (count
, decoded_file
);
5510 #endif /* USE_MOTIF */
5515 clean_up_dialog (Lisp_Object arg
)
5517 x_menu_set_in_use (0);
5522 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5523 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5524 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5525 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5526 or directory must exist.
5528 This function is only defined on MS Windows, and X Windows with the
5529 Motif or Gtk toolkits. With the Motif toolkit, ONLY-DIR-P is ignored.
5530 Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
5531 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5533 FRAME_PTR f
= SELECTED_FRAME ();
5535 Lisp_Object file
= Qnil
;
5536 Lisp_Object decoded_file
;
5537 ptrdiff_t count
= SPECPDL_INDEX ();
5538 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5543 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5545 if (popup_activated ())
5546 error ("Trying to use a menu from within a menu-entry");
5548 CHECK_STRING (prompt
);
5551 /* Prevent redisplay. */
5552 specbind (Qinhibit_redisplay
, Qt
);
5553 record_unwind_protect (clean_up_dialog
, Qnil
);
5557 if (STRINGP (default_filename
))
5558 cdef_file
= SSDATA (default_filename
);
5560 cdef_file
= SSDATA (dir
);
5562 fn
= xg_get_file_name (f
, SSDATA (prompt
), cdef_file
,
5564 ! NILP (only_dir_p
));
5568 file
= build_string (fn
);
5575 /* Make "Cancel" equivalent to C-g. */
5577 Fsignal (Qquit
, Qnil
);
5579 decoded_file
= DECODE_FILE (file
);
5581 return unbind_to (count
, decoded_file
);
5585 #ifdef HAVE_FREETYPE
5587 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5588 doc
: /* Read a font name using a GTK font selection dialog.
5589 Return a GTK-style font string corresponding to the selection.
5591 If FRAME is omitted or nil, it defaults to the selected frame. */)
5592 (Lisp_Object frame
, Lisp_Object ignored
)
5594 FRAME_PTR f
= check_x_frame (frame
);
5597 Lisp_Object font_param
;
5598 char *default_name
= NULL
;
5599 struct gcpro gcpro1
, gcpro2
;
5600 ptrdiff_t count
= SPECPDL_INDEX ();
5604 if (popup_activated ())
5605 error ("Trying to use a menu from within a menu-entry");
5607 /* Prevent redisplay. */
5608 specbind (Qinhibit_redisplay
, Qt
);
5609 record_unwind_protect (clean_up_dialog
, Qnil
);
5613 GCPRO2 (font_param
, font
);
5615 XSETFONT (font
, FRAME_FONT (f
));
5616 font_param
= Ffont_get (font
, intern (":name"));
5617 if (STRINGP (font_param
))
5618 default_name
= xstrdup (SSDATA (font_param
));
5621 font_param
= Fframe_parameter (frame
, Qfont_param
);
5622 if (STRINGP (font_param
))
5623 default_name
= xstrdup (SSDATA (font_param
));
5626 if (default_name
== NULL
&& x_last_font_name
!= NULL
)
5627 default_name
= xstrdup (x_last_font_name
);
5629 /* Convert fontconfig names to Gtk names, i.e. remove - before number */
5632 char *p
= strrchr (default_name
, '-');
5636 while (isdigit (*ep
))
5638 if (*ep
== '\0') *p
= ' ';
5642 name
= xg_get_font_name (f
, default_name
);
5643 xfree (default_name
);
5647 font
= build_string (name
);
5648 g_free (x_last_font_name
);
5649 x_last_font_name
= name
;
5655 Fsignal (Qquit
, Qnil
);
5657 return unbind_to (count
, font
);
5659 #endif /* HAVE_FREETYPE */
5661 #endif /* USE_GTK */
5664 /***********************************************************************
5666 ***********************************************************************/
5668 #ifdef HAVE_XKBGETKEYBOARD
5669 #include <X11/XKBlib.h>
5670 #include <X11/keysym.h>
5673 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5674 Sx_backspace_delete_keys_p
, 0, 1, 0,
5675 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5676 FRAME nil means use the selected frame.
5677 Value is t if we know that both keys are present, and are mapped to the
5678 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5679 present and mapped to the usual X keysyms. */)
5682 #ifdef HAVE_XKBGETKEYBOARD
5684 struct frame
*f
= check_x_frame (frame
);
5685 Display
*dpy
= FRAME_X_DISPLAY (f
);
5686 Lisp_Object have_keys
;
5687 int major
, minor
, op
, event
, error_code
;
5691 /* Check library version in case we're dynamically linked. */
5692 major
= XkbMajorVersion
;
5693 minor
= XkbMinorVersion
;
5694 if (!XkbLibraryVersion (&major
, &minor
))
5700 /* Check that the server supports XKB. */
5701 major
= XkbMajorVersion
;
5702 minor
= XkbMinorVersion
;
5703 if (!XkbQueryExtension (dpy
, &op
, &event
, &error_code
, &major
, &minor
))
5709 /* In this code we check that the keyboard has physical keys with names
5710 that start with BKSP (Backspace) and DELE (Delete), and that they
5711 generate keysym XK_BackSpace and XK_Delete respectively.
5712 This function is used to test if normal-erase-is-backspace should be
5714 An alternative approach would be to just check if XK_BackSpace and
5715 XK_Delete are mapped to any key. But if any of those are mapped to
5716 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5717 user doesn't know about it, it is better to return false here.
5718 It is more obvious to the user what to do if she/he has two keys
5719 clearly marked with names/symbols and one key does something not
5720 expected (i.e. she/he then tries the other).
5721 The cases where Backspace/Delete is mapped to some other key combination
5722 are rare, and in those cases, normal-erase-is-backspace can be turned on
5726 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5729 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5731 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5733 for (i
= kb
->min_key_code
;
5734 (i
< kb
->max_key_code
5735 && (delete_keycode
== 0 || backspace_keycode
== 0));
5738 /* The XKB symbolic key names can be seen most easily in
5739 the PS file generated by `xkbprint -label name
5741 if (memcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5743 else if (memcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5744 backspace_keycode
= i
;
5747 XkbFreeNames (kb
, 0, True
);
5750 XkbFreeClientMap (kb
, 0, True
);
5753 && backspace_keycode
5754 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5755 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5760 #else /* not HAVE_XKBGETKEYBOARD */
5762 #endif /* not HAVE_XKBGETKEYBOARD */
5767 /***********************************************************************
5769 ***********************************************************************/
5771 /* Keep this list in the same order as frame_parms in frame.c.
5772 Use 0 for unsupported frame parameters. */
5774 frame_parm_handler x_frame_parm_handlers
[] =
5778 x_set_background_color
,
5784 x_set_foreground_color
,
5787 x_set_internal_border_width
,
5788 x_set_menu_bar_lines
,
5790 x_explicitly_set_name
,
5791 x_set_scroll_bar_width
,
5794 x_set_vertical_scroll_bars
,
5796 x_set_tool_bar_lines
,
5797 x_set_scroll_bar_foreground
,
5798 x_set_scroll_bar_background
,
5808 x_set_tool_bar_position
,
5814 /* This is zero if not using X windows. */
5817 /* The section below is built by the lisp expression at the top of the file,
5818 just above where these variables are declared. */
5819 /*&&& init symbols here &&&*/
5820 DEFSYM (Qnone
, "none");
5821 DEFSYM (Qsuppress_icon
, "suppress-icon");
5822 DEFSYM (Qundefined_color
, "undefined-color");
5823 DEFSYM (Qcompound_text
, "compound-text");
5824 DEFSYM (Qcancel_timer
, "cancel-timer");
5825 DEFSYM (Qfont_param
, "font-parameter");
5826 /* This is the end of symbol initialization. */
5828 Fput (Qundefined_color
, Qerror_conditions
,
5829 pure_cons (Qundefined_color
, pure_cons (Qerror
, Qnil
)));
5830 Fput (Qundefined_color
, Qerror_message
,
5831 build_pure_c_string ("Undefined color"));
5833 DEFVAR_LISP ("x-pointer-shape", Vx_pointer_shape
,
5834 doc
: /* The shape of the pointer when over text.
5835 Changing the value does not affect existing frames
5836 unless you set the mouse color. */);
5837 Vx_pointer_shape
= Qnil
;
5839 #if 0 /* This doesn't really do anything. */
5840 DEFVAR_LISP ("x-nontext-pointer-shape", Vx_nontext_pointer_shape
,
5841 doc
: /* The shape of the pointer when not over text.
5842 This variable takes effect when you create a new frame
5843 or when you set the mouse color. */);
5845 Vx_nontext_pointer_shape
= Qnil
;
5847 DEFVAR_LISP ("x-hourglass-pointer-shape", Vx_hourglass_pointer_shape
,
5848 doc
: /* The shape of the pointer when Emacs is busy.
5849 This variable takes effect when you create a new frame
5850 or when you set the mouse color. */);
5851 Vx_hourglass_pointer_shape
= Qnil
;
5853 #if 0 /* This doesn't really do anything. */
5854 DEFVAR_LISP ("x-mode-pointer-shape", Vx_mode_pointer_shape
,
5855 doc
: /* The shape of the pointer when over the mode line.
5856 This variable takes effect when you create a new frame
5857 or when you set the mouse color. */);
5859 Vx_mode_pointer_shape
= Qnil
;
5861 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5862 Vx_sensitive_text_pointer_shape
,
5863 doc
: /* The shape of the pointer when over mouse-sensitive text.
5864 This variable takes effect when you create a new frame
5865 or when you set the mouse color. */);
5866 Vx_sensitive_text_pointer_shape
= Qnil
;
5868 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5869 Vx_window_horizontal_drag_shape
,
5870 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5871 This variable takes effect when you create a new frame
5872 or when you set the mouse color. */);
5873 Vx_window_horizontal_drag_shape
= Qnil
;
5875 DEFVAR_LISP ("x-cursor-fore-pixel", Vx_cursor_fore_pixel
,
5876 doc
: /* A string indicating the foreground color of the cursor box. */);
5877 Vx_cursor_fore_pixel
= Qnil
;
5879 DEFVAR_LISP ("x-max-tooltip-size", Vx_max_tooltip_size
,
5880 doc
: /* Maximum size for tooltips.
5881 Value is a pair (COLUMNS . ROWS). Text larger than this is clipped. */);
5882 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5884 DEFVAR_LISP ("x-no-window-manager", Vx_no_window_manager
,
5885 doc
: /* Non-nil if no X window manager is in use.
5886 Emacs doesn't try to figure this out; this is always nil
5887 unless you set it to something else. */);
5888 /* We don't have any way to find this out, so set it to nil
5889 and maybe the user would like to set it to t. */
5890 Vx_no_window_manager
= Qnil
;
5892 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5893 Vx_pixel_size_width_font_regexp
,
5894 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5896 Since Emacs gets width of a font matching with this regexp from
5897 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5898 such a font. This is especially effective for such large fonts as
5899 Chinese, Japanese, and Korean. */);
5900 Vx_pixel_size_width_font_regexp
= Qnil
;
5902 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5903 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", x_gtk_use_old_file_dialog
,
5904 doc
: /* Non-nil means prompt with the old GTK file selection dialog.
5905 If nil or if the file selection dialog is not available, the new GTK file
5906 chooser is used instead. To turn off all file dialogs set the
5907 variable `use-file-dialog'. */);
5908 x_gtk_use_old_file_dialog
= 0;
5910 DEFVAR_BOOL ("x-gtk-show-hidden-files", x_gtk_show_hidden_files
,
5911 doc
: /* If non-nil, the GTK file chooser will by default show hidden files.
5912 Note that this is just the default, there is a toggle button on the file
5913 chooser to show or not show hidden files on a case by case basis. */);
5914 x_gtk_show_hidden_files
= 0;
5916 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", x_gtk_file_dialog_help_text
,
5917 doc
: /* If non-nil, the GTK file chooser will show additional help text.
5918 If more space for files in the file chooser dialog is wanted, set this to nil
5919 to turn the additional text off. */);
5920 x_gtk_file_dialog_help_text
= 1;
5922 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", x_gtk_whole_detached_tool_bar
,
5923 doc
: /* If non-nil, a detached tool bar is shown in full.
5924 The default is to just show an arrow and pressing on that arrow shows
5925 the tool bar buttons. */);
5926 x_gtk_whole_detached_tool_bar
= 0;
5928 DEFVAR_BOOL ("x-gtk-use-system-tooltips", x_gtk_use_system_tooltips
,
5929 doc
: /* If non-nil with a Gtk+ built Emacs, the Gtk+ tooltip is used.
5930 Otherwise use Emacs own tooltip implementation.
5931 When using Gtk+ tooltips, the tooltip face is not used. */);
5932 x_gtk_use_system_tooltips
= 1;
5934 Fprovide (intern_c_string ("x"), Qnil
);
5936 #ifdef USE_X_TOOLKIT
5937 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5939 Fprovide (intern_c_string ("motif"), Qnil
);
5941 DEFVAR_LISP ("motif-version-string", Vmotif_version_string
,
5942 doc
: /* Version info for LessTif/Motif. */);
5943 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5944 #endif /* USE_MOTIF */
5945 #endif /* USE_X_TOOLKIT */
5948 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5949 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5950 But for a user it is a toolkit for X, and indeed, configure
5951 accepts --with-x-toolkit=gtk. */
5952 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5953 Fprovide (intern_c_string ("gtk"), Qnil
);
5954 Fprovide (intern_c_string ("move-toolbar"), Qnil
);
5956 DEFVAR_LISP ("gtk-version-string", Vgtk_version_string
,
5957 doc
: /* Version info for GTK+. */);
5959 char gtk_version
[sizeof ".." + 3 * INT_STRLEN_BOUND (int)];
5960 int len
= sprintf (gtk_version
, "%d.%d.%d",
5961 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5962 Vgtk_version_string
= make_pure_string (gtk_version
, len
, len
, 0);
5964 #endif /* USE_GTK */
5966 /* X window properties. */
5967 defsubr (&Sx_change_window_property
);
5968 defsubr (&Sx_delete_window_property
);
5969 defsubr (&Sx_window_property
);
5971 defsubr (&Sxw_display_color_p
);
5972 defsubr (&Sx_display_grayscale_p
);
5973 defsubr (&Sxw_color_defined_p
);
5974 defsubr (&Sxw_color_values
);
5975 defsubr (&Sx_server_max_request_size
);
5976 defsubr (&Sx_server_vendor
);
5977 defsubr (&Sx_server_version
);
5978 defsubr (&Sx_display_pixel_width
);
5979 defsubr (&Sx_display_pixel_height
);
5980 defsubr (&Sx_display_mm_width
);
5981 defsubr (&Sx_display_mm_height
);
5982 defsubr (&Sx_display_screens
);
5983 defsubr (&Sx_display_planes
);
5984 defsubr (&Sx_display_color_cells
);
5985 defsubr (&Sx_display_visual_class
);
5986 defsubr (&Sx_display_backing_store
);
5987 defsubr (&Sx_display_save_under
);
5988 defsubr (&Sx_wm_set_size_hint
);
5989 defsubr (&Sx_create_frame
);
5990 defsubr (&Sx_open_connection
);
5991 defsubr (&Sx_close_connection
);
5992 defsubr (&Sx_display_list
);
5993 defsubr (&Sx_synchronize
);
5994 defsubr (&Sx_focus_frame
);
5995 defsubr (&Sx_backspace_delete_keys_p
);
5997 /* Setting callback functions for fontset handler. */
5998 check_window_system_func
= check_x
;
6000 defsubr (&Sx_show_tip
);
6001 defsubr (&Sx_hide_tip
);
6003 staticpro (&tip_timer
);
6005 staticpro (&tip_frame
);
6007 last_show_tip_args
= Qnil
;
6008 staticpro (&last_show_tip_args
);
6010 defsubr (&Sx_uses_old_gtk_dialog
);
6011 #if defined (USE_MOTIF) || defined (USE_GTK)
6012 defsubr (&Sx_file_dialog
);
6015 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
6016 defsubr (&Sx_select_font
);
6017 x_last_font_name
= NULL
;
6021 #endif /* HAVE_X_WINDOWS */