1 /* Functions for the X window system.
2 Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
3 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
4 Free Software Foundation, Inc.
6 This file is part of GNU Emacs.
8 GNU Emacs is free software: you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation, either version 3 of the License, or
11 (at your option) any later version.
13 GNU Emacs is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
31 /* This makes the fields of a Display accessible, in Xlib header files. */
33 #define XLIB_ILLEGAL_ACCESS
40 #include "intervals.h"
41 #include "dispextern.h"
43 #include "blockinput.h"
45 #include "character.h"
50 #include "termhooks.h"
58 #include <sys/types.h>
61 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
62 #include "bitmaps/gray.xbm"
64 #include <X11/bitmaps/gray>
67 #include "xsettings.h"
74 #include <X11/Shell.h>
78 #include <X11/Xaw3d/Paned.h>
79 #include <X11/Xaw3d/Label.h>
80 #else /* !HAVE_XAW3D */
81 #include <X11/Xaw/Paned.h>
82 #include <X11/Xaw/Label.h>
83 #endif /* HAVE_XAW3D */
84 #endif /* USE_MOTIF */
87 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
96 #include "../lwlib/lwlib.h"
100 #include <Xm/DialogS.h>
101 #include <Xm/FileSB.h>
105 #include "../lwlib/xlwmenu.h"
108 #if !defined(NO_EDITRES)
110 extern void _XEditResCheckMessages ();
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
;
117 extern void free_frame_menubar ();
118 extern double atof ();
122 /* LessTif/Motif version info. */
124 static Lisp_Object Vmotif_version_string
;
126 #endif /* USE_MOTIF */
128 #endif /* USE_X_TOOLKIT */
132 /* GTK+ version info */
134 static Lisp_Object Vgtk_version_string
;
138 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
140 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
141 it, and including `bitmaps/gray' more than once is a problem when
142 config.h defines `static' as an empty replacement string. */
144 int gray_bitmap_width
= gray_width
;
145 int gray_bitmap_height
= gray_height
;
146 char *gray_bitmap_bits
= gray_bits
;
148 /* Non-zero means prompt with the old GTK file selection dialog. */
150 int x_gtk_use_old_file_dialog
;
152 /* If non-zero, by default show hidden files in the GTK file chooser. */
154 int x_gtk_show_hidden_files
;
156 /* If non-zero, don't show additional help text in the GTK file chooser. */
158 int x_gtk_file_dialog_help_text
;
160 /* If non-zero, don't collapse to tool bar when it is detached. */
162 int x_gtk_whole_detached_tool_bar
;
164 /* If non-zero, use Gtk+ tooltips. */
166 static int x_gtk_use_system_tooltips
;
168 /* The background and shape of the mouse pointer, and shape when not
169 over text or in the modeline. */
171 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
172 Lisp_Object Vx_hourglass_pointer_shape
;
174 /* The shape when over mouse-sensitive text. */
176 Lisp_Object Vx_sensitive_text_pointer_shape
;
178 /* If non-nil, the pointer shape to indicate that windows can be
179 dragged horizontally. */
181 Lisp_Object Vx_window_horizontal_drag_shape
;
183 /* Color of chars displayed in cursor box. */
185 Lisp_Object Vx_cursor_fore_pixel
;
187 /* Nonzero if using X. */
191 /* Non nil if no window manager is in use. */
193 Lisp_Object Vx_no_window_manager
;
195 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
197 Lisp_Object Vx_pixel_size_width_font_regexp
;
200 Lisp_Object Qsuppress_icon
;
201 Lisp_Object Qundefined_color
;
202 Lisp_Object Qcompound_text
, Qcancel_timer
;
203 Lisp_Object Qfont_param
;
206 int image_cache_refcount
, dpyinfo_refcount
;
209 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
210 char *x_last_font_name
;
214 /* Error if we are not connected to X. */
220 error ("X windows are not in use or not initialized");
223 /* Nonzero if we can use mouse menus.
224 You should not call this unless HAVE_MENUS is defined. */
232 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
233 and checking validity for X. */
236 check_x_frame (Lisp_Object frame
)
241 frame
= selected_frame
;
242 CHECK_LIVE_FRAME (frame
);
245 error ("Non-X frame used");
249 /* Let the user specify an X display with a Lisp object.
250 OBJECT may be nil, a frame or a terminal object.
251 nil stands for the selected frame--or, if that is not an X frame,
252 the first X display on the list. */
254 struct x_display_info
*
255 check_x_display_info (Lisp_Object object
)
257 struct x_display_info
*dpyinfo
= NULL
;
261 struct frame
*sf
= XFRAME (selected_frame
);
263 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
264 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
265 else if (x_display_list
!= 0)
266 dpyinfo
= x_display_list
;
268 error ("X windows are not in use or not initialized");
270 else if (TERMINALP (object
))
272 struct terminal
*t
= get_terminal (object
, 1);
274 if (t
->type
!= output_x_window
)
275 error ("Terminal %d is not an X display", XINT (object
));
277 dpyinfo
= t
->display_info
.x
;
279 else if (STRINGP (object
))
280 dpyinfo
= x_display_info_for_name (object
);
283 FRAME_PTR f
= check_x_frame (object
);
284 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
291 /* Return the Emacs frame-object corresponding to an X window.
292 It could be the frame's main window or an icon window. */
294 /* This function can be called during GC, so use GC_xxx type test macros. */
297 x_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
299 Lisp_Object tail
, frame
;
302 if (wdesc
== None
) return 0;
304 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
310 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
312 if (f
->output_data
.x
->hourglass_window
== wdesc
)
315 if ((f
->output_data
.x
->edit_widget
316 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
317 /* A tooltip frame? */
318 || (!f
->output_data
.x
->edit_widget
319 && FRAME_X_WINDOW (f
) == wdesc
)
320 || f
->output_data
.x
->icon_desc
== wdesc
)
322 #else /* not USE_X_TOOLKIT */
324 if (f
->output_data
.x
->edit_widget
)
326 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
327 struct x_output
*x
= f
->output_data
.x
;
328 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
332 if (FRAME_X_WINDOW (f
) == wdesc
333 || f
->output_data
.x
->icon_desc
== wdesc
)
335 #endif /* not USE_X_TOOLKIT */
340 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
341 /* Like x_window_to_frame but also compares the window with the widget's
345 x_any_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
347 Lisp_Object tail
, frame
;
348 struct frame
*f
, *found
;
351 if (wdesc
== None
) return NULL
;
354 for (tail
= Vframe_list
; CONSP (tail
) && !found
; tail
= XCDR (tail
))
361 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
363 /* This frame matches if the window is any of its widgets. */
364 x
= f
->output_data
.x
;
365 if (x
->hourglass_window
== wdesc
)
370 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
372 && gtk_widget_get_toplevel (gwdesc
) == x
->widget
)
375 if (wdesc
== XtWindow (x
->widget
)
376 || wdesc
== XtWindow (x
->column_widget
)
377 || wdesc
== XtWindow (x
->edit_widget
))
379 /* Match if the window is this frame's menubar. */
380 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
384 else if (FRAME_X_WINDOW (f
) == wdesc
)
385 /* A tooltip frame. */
393 /* Likewise, but consider only the menu bar widget. */
396 x_menubar_window_to_frame (struct x_display_info
*dpyinfo
, XEvent
*event
)
398 Window wdesc
= event
->xany
.window
;
399 Lisp_Object tail
, frame
;
403 if (wdesc
== None
) return 0;
405 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
411 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
413 x
= f
->output_data
.x
;
415 if (x
->menubar_widget
&& xg_event_is_for_menubar (f
, event
))
418 /* Match if the window is this frame's menubar. */
419 if (x
->menubar_widget
420 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
427 /* Return the frame whose principal (outermost) window is WDESC.
428 If WDESC is some other (smaller) window, we return 0. */
431 x_top_window_to_frame (struct x_display_info
*dpyinfo
, int wdesc
)
433 Lisp_Object tail
, frame
;
437 if (wdesc
== None
) return 0;
439 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
445 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
447 x
= f
->output_data
.x
;
451 /* This frame matches if the window is its topmost widget. */
453 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
454 if (gwdesc
== x
->widget
)
457 if (wdesc
== XtWindow (x
->widget
))
459 #if 0 /* I don't know why it did this,
460 but it seems logically wrong,
461 and it causes trouble for MapNotify events. */
462 /* Match if the window is this frame's menubar. */
463 if (x
->menubar_widget
464 && wdesc
== XtWindow (x
->menubar_widget
))
469 else if (FRAME_X_WINDOW (f
) == wdesc
)
475 #endif /* USE_X_TOOLKIT || USE_GTK */
479 static void x_default_font_parameter (struct frame
*, Lisp_Object
);
481 static Lisp_Object
unwind_create_frame (Lisp_Object
);
482 static Lisp_Object
unwind_create_tip_frame (Lisp_Object
);
484 void x_set_foreground_color (struct frame
*, Lisp_Object
, Lisp_Object
);
485 static void x_set_wait_for_wm (struct frame
*, Lisp_Object
, Lisp_Object
);
486 void x_set_background_color (struct frame
*, Lisp_Object
, Lisp_Object
);
487 void x_set_mouse_color (struct frame
*, Lisp_Object
, Lisp_Object
);
488 void x_set_cursor_color (struct frame
*, Lisp_Object
, Lisp_Object
);
489 void x_set_border_color (struct frame
*, Lisp_Object
, Lisp_Object
);
490 void x_set_cursor_type (struct frame
*, Lisp_Object
, Lisp_Object
);
491 void x_set_icon_type (struct frame
*, Lisp_Object
, Lisp_Object
);
492 void x_set_icon_name (struct frame
*, Lisp_Object
, Lisp_Object
);
493 void x_explicitly_set_name (struct frame
*, Lisp_Object
, Lisp_Object
);
494 void x_set_menu_bar_lines (struct frame
*, Lisp_Object
, Lisp_Object
);
495 void x_set_title (struct frame
*, Lisp_Object
, Lisp_Object
);
496 void x_set_tool_bar_lines (struct frame
*, Lisp_Object
, Lisp_Object
);
497 void x_set_scroll_bar_foreground (struct frame
*, Lisp_Object
,
499 void x_set_scroll_bar_background (struct frame
*, Lisp_Object
,
501 static Lisp_Object
x_default_scroll_bar_color_parameter (struct frame
*,
504 const char *, const char *,
508 /* Store the screen positions of frame F into XPTR and YPTR.
509 These are the positions of the containing window manager window,
510 not Emacs's own window. */
513 x_real_positions (FRAME_PTR f
, int *xptr
, int *yptr
)
515 int win_x
, win_y
, outer_x
, outer_y
;
516 int real_x
= 0, real_y
= 0;
518 Window win
= f
->output_data
.x
->parent_desc
;
522 x_catch_errors (FRAME_X_DISPLAY (f
));
524 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
525 win
= FRAME_OUTER_WINDOW (f
);
527 /* This loop traverses up the containment tree until we hit the root
528 window. Window managers may intersect many windows between our window
529 and the root window. The window we find just before the root window
530 should be the outer WM window. */
533 Window wm_window
, rootw
;
534 Window
*tmp_children
;
535 unsigned int tmp_nchildren
;
538 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
539 &wm_window
, &tmp_children
, &tmp_nchildren
);
541 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
543 /* Don't free tmp_children if XQueryTree failed. */
547 XFree ((char *) tmp_children
);
549 if (wm_window
== rootw
|| had_errors
)
560 /* Get the real coordinates for the WM window upper left corner */
561 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
562 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
564 /* Translate real coordinates to coordinates relative to our
565 window. For our window, the upper left corner is 0, 0.
566 Since the upper left corner of the WM window is outside
567 our window, win_x and win_y will be negative:
569 ------------------ ---> x
571 | ----------------- v y
574 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
576 /* From-window, to-window. */
577 FRAME_X_DISPLAY_INFO (f
)->root_window
,
580 /* From-position, to-position. */
581 real_x
, real_y
, &win_x
, &win_y
,
586 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
593 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
595 /* From-window, to-window. */
596 FRAME_X_DISPLAY_INFO (f
)->root_window
,
597 FRAME_OUTER_WINDOW (f
),
599 /* From-position, to-position. */
600 real_x
, real_y
, &outer_x
, &outer_y
,
606 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
613 if (had_errors
) return;
615 f
->x_pixels_diff
= -win_x
;
616 f
->y_pixels_diff
= -win_y
;
618 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
619 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
628 /* Gamma-correct COLOR on frame F. */
631 gamma_correct (struct frame
*f
, XColor
*color
)
635 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
636 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
637 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
642 /* Decide if color named COLOR_NAME is valid for use on frame F. If
643 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
644 allocate the color. Value is zero if COLOR_NAME is invalid, or
645 no color could be allocated. */
648 x_defined_color (struct frame
*f
, const char *color_name
,
649 XColor
*color
, int alloc_p
)
652 Display
*dpy
= FRAME_X_DISPLAY (f
);
653 Colormap cmap
= FRAME_X_COLORMAP (f
);
657 success_p
= xg_check_special_colors (f
, color_name
, color
);
660 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
661 if (success_p
&& alloc_p
)
662 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
669 /* Return the pixel color value for color COLOR_NAME on frame F. If F
670 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
671 Signal an error if color can't be allocated. */
674 x_decode_color (FRAME_PTR f
, Lisp_Object color_name
, int mono_color
)
678 CHECK_STRING (color_name
);
680 #if 0 /* Don't do this. It's wrong when we're not using the default
681 colormap, it makes freeing difficult, and it's probably not
682 an important optimization. */
683 if (strcmp (SDATA (color_name
), "black") == 0)
684 return BLACK_PIX_DEFAULT (f
);
685 else if (strcmp (SDATA (color_name
), "white") == 0)
686 return WHITE_PIX_DEFAULT (f
);
689 /* Return MONO_COLOR for monochrome frames. */
690 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
693 /* x_defined_color is responsible for coping with failures
694 by looking for a near-miss. */
695 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
698 signal_error ("Undefined color", color_name
);
703 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
704 the previous value of that parameter, NEW_VALUE is the new value.
705 See also the comment of wait_for_wm in struct x_output. */
708 x_set_wait_for_wm (struct frame
*f
, Lisp_Object new_value
, Lisp_Object old_value
)
710 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
714 x_set_tool_bar_position (struct frame
*f
,
715 Lisp_Object new_value
,
716 Lisp_Object old_value
)
718 if (! EQ (new_value
, Qleft
) && ! EQ (new_value
, Qright
)
719 && ! EQ (new_value
, Qbottom
) && ! EQ (new_value
, Qtop
))
721 if (EQ (new_value
, old_value
)) return;
724 if (xg_change_toolbar_position (f
, new_value
))
725 f
->tool_bar_position
= new_value
;
731 /* Set icon from FILE for frame F. By using GTK functions the icon
732 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
735 xg_set_icon (FRAME_PTR f
, Lisp_Object file
)
740 found
= x_find_image_file (file
);
746 char *filename
= (char *) SDATA (found
);
749 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
753 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
755 g_object_unref (pixbuf
);
769 xg_set_icon_from_xpm_data (FRAME_PTR f
, const char **data
)
772 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data (data
);
777 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
778 g_object_unref (pixbuf
);
784 /* Functions called only from `x_set_frame_param'
785 to set individual parameters.
787 If FRAME_X_WINDOW (f) is 0,
788 the frame is being created and its X-window does not exist yet.
789 In that case, just record the parameter's new value
790 in the standard place; do not attempt to change the window. */
793 x_set_foreground_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
795 struct x_output
*x
= f
->output_data
.x
;
796 unsigned long fg
, old_fg
;
798 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
799 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
800 FRAME_FOREGROUND_PIXEL (f
) = fg
;
802 if (FRAME_X_WINDOW (f
) != 0)
804 Display
*dpy
= FRAME_X_DISPLAY (f
);
807 XSetForeground (dpy
, x
->normal_gc
, fg
);
808 XSetBackground (dpy
, x
->reverse_gc
, fg
);
810 if (x
->cursor_pixel
== old_fg
)
812 unload_color (f
, x
->cursor_pixel
);
813 x
->cursor_pixel
= x_copy_color (f
, fg
);
814 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
819 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
821 if (FRAME_VISIBLE_P (f
))
825 unload_color (f
, old_fg
);
829 x_set_background_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
831 struct x_output
*x
= f
->output_data
.x
;
834 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
835 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
836 FRAME_BACKGROUND_PIXEL (f
) = bg
;
838 if (FRAME_X_WINDOW (f
) != 0)
840 Display
*dpy
= FRAME_X_DISPLAY (f
);
843 XSetBackground (dpy
, x
->normal_gc
, bg
);
844 XSetForeground (dpy
, x
->reverse_gc
, bg
);
845 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
846 XSetForeground (dpy
, x
->cursor_gc
, bg
);
849 xg_set_background_color (f
, bg
);
852 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
853 toolkit scroll bars. */
856 for (bar
= FRAME_SCROLL_BARS (f
);
858 bar
= XSCROLL_BAR (bar
)->next
)
860 Window window
= XSCROLL_BAR (bar
)->x_window
;
861 XSetWindowBackground (dpy
, window
, bg
);
864 #endif /* USE_TOOLKIT_SCROLL_BARS */
867 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
869 if (FRAME_VISIBLE_P (f
))
875 make_invisible_cursor (struct frame
*f
)
877 Display
*dpy
= FRAME_X_DISPLAY (f
);
878 static char const no_data
[] = { 0 };
883 x_catch_errors (dpy
);
884 pix
= XCreateBitmapFromData (dpy
, FRAME_X_DISPLAY_INFO (f
)->root_window
,
886 if (! x_had_errors_p (dpy
) && pix
!= None
)
889 col
.red
= col
.green
= col
.blue
= 0;
890 col
.flags
= DoRed
| DoGreen
| DoBlue
;
891 c
= XCreatePixmapCursor (dpy
, pix
, pix
, &col
, &col
, 0, 0);
892 if (x_had_errors_p (dpy
) || c
== None
)
894 XFreePixmap (dpy
, pix
);
903 x_set_mouse_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
905 struct x_output
*x
= f
->output_data
.x
;
906 Display
*dpy
= FRAME_X_DISPLAY (f
);
907 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
908 Cursor hourglass_cursor
, horizontal_drag_cursor
;
909 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
910 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
912 /* Don't let pointers be invisible. */
913 if (mask_color
== pixel
)
915 x_free_colors (f
, &pixel
, 1);
916 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
919 unload_color (f
, x
->mouse_pixel
);
920 x
->mouse_pixel
= pixel
;
924 /* It's not okay to crash if the user selects a screwy cursor. */
925 x_catch_errors (dpy
);
927 if (!NILP (Vx_pointer_shape
))
929 CHECK_NUMBER (Vx_pointer_shape
);
930 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
933 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
934 x_check_errors (dpy
, "bad text pointer cursor: %s");
936 if (!NILP (Vx_nontext_pointer_shape
))
938 CHECK_NUMBER (Vx_nontext_pointer_shape
);
940 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
943 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
944 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
946 if (!NILP (Vx_hourglass_pointer_shape
))
948 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
950 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
953 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
954 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
956 if (!NILP (Vx_mode_pointer_shape
))
958 CHECK_NUMBER (Vx_mode_pointer_shape
);
959 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
962 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
963 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
965 if (!NILP (Vx_sensitive_text_pointer_shape
))
967 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
969 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
972 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
974 if (!NILP (Vx_window_horizontal_drag_shape
))
976 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
977 horizontal_drag_cursor
978 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
981 horizontal_drag_cursor
982 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
984 /* Check and report errors with the above calls. */
985 x_check_errors (dpy
, "can't set cursor shape: %s");
989 XColor fore_color
, back_color
;
991 fore_color
.pixel
= x
->mouse_pixel
;
992 x_query_color (f
, &fore_color
);
993 back_color
.pixel
= mask_color
;
994 x_query_color (f
, &back_color
);
996 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
997 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
998 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
999 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1000 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1001 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1004 if (FRAME_X_WINDOW (f
) != 0)
1005 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
1006 f
->output_data
.x
->current_cursor
= cursor
);
1008 if (FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
== 0)
1009 FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
= make_invisible_cursor (f
);
1011 if (cursor
!= x
->text_cursor
1012 && x
->text_cursor
!= 0)
1013 XFreeCursor (dpy
, x
->text_cursor
);
1014 x
->text_cursor
= cursor
;
1016 if (nontext_cursor
!= x
->nontext_cursor
1017 && x
->nontext_cursor
!= 0)
1018 XFreeCursor (dpy
, x
->nontext_cursor
);
1019 x
->nontext_cursor
= nontext_cursor
;
1021 if (hourglass_cursor
!= x
->hourglass_cursor
1022 && x
->hourglass_cursor
!= 0)
1023 XFreeCursor (dpy
, x
->hourglass_cursor
);
1024 x
->hourglass_cursor
= hourglass_cursor
;
1026 if (mode_cursor
!= x
->modeline_cursor
1027 && x
->modeline_cursor
!= 0)
1028 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1029 x
->modeline_cursor
= mode_cursor
;
1031 if (hand_cursor
!= x
->hand_cursor
1032 && x
->hand_cursor
!= 0)
1033 XFreeCursor (dpy
, x
->hand_cursor
);
1034 x
->hand_cursor
= hand_cursor
;
1036 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1037 && x
->horizontal_drag_cursor
!= 0)
1038 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1039 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1044 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1048 x_set_cursor_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1050 unsigned long fore_pixel
, pixel
;
1051 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1052 struct x_output
*x
= f
->output_data
.x
;
1054 if (!NILP (Vx_cursor_fore_pixel
))
1056 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1057 WHITE_PIX_DEFAULT (f
));
1058 fore_pixel_allocated_p
= 1;
1061 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1063 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1064 pixel_allocated_p
= 1;
1066 /* Make sure that the cursor color differs from the background color. */
1067 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1069 if (pixel_allocated_p
)
1071 x_free_colors (f
, &pixel
, 1);
1072 pixel_allocated_p
= 0;
1075 pixel
= x
->mouse_pixel
;
1076 if (pixel
== fore_pixel
)
1078 if (fore_pixel_allocated_p
)
1080 x_free_colors (f
, &fore_pixel
, 1);
1081 fore_pixel_allocated_p
= 0;
1083 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1087 unload_color (f
, x
->cursor_foreground_pixel
);
1088 if (!fore_pixel_allocated_p
)
1089 fore_pixel
= x_copy_color (f
, fore_pixel
);
1090 x
->cursor_foreground_pixel
= fore_pixel
;
1092 unload_color (f
, x
->cursor_pixel
);
1093 if (!pixel_allocated_p
)
1094 pixel
= x_copy_color (f
, pixel
);
1095 x
->cursor_pixel
= pixel
;
1097 if (FRAME_X_WINDOW (f
) != 0)
1100 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1101 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1104 if (FRAME_VISIBLE_P (f
))
1106 x_update_cursor (f
, 0);
1107 x_update_cursor (f
, 1);
1111 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1114 /* Set the border-color of frame F to pixel value PIX.
1115 Note that this does not fully take effect if done before
1116 F has an x-window. */
1119 x_set_border_pixel (struct frame
*f
, int pix
)
1121 unload_color (f
, f
->output_data
.x
->border_pixel
);
1122 f
->output_data
.x
->border_pixel
= pix
;
1124 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1127 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1128 (unsigned long)pix
);
1131 if (FRAME_VISIBLE_P (f
))
1136 /* Set the border-color of frame F to value described by ARG.
1137 ARG can be a string naming a color.
1138 The border-color is used for the border that is drawn by the X server.
1139 Note that this does not fully take effect if done before
1140 F has an x-window; it must be redone when the window is created.
1142 Note: this is done in two routines because of the way X10 works.
1144 Note: under X11, this is normally the province of the window manager,
1145 and so emacs' border colors may be overridden. */
1148 x_set_border_color (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1153 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1154 x_set_border_pixel (f
, pix
);
1155 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1160 x_set_cursor_type (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1162 set_frame_cursor_types (f
, arg
);
1164 /* Make sure the cursor gets redrawn. */
1165 cursor_type_changed
= 1;
1169 x_set_icon_type (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1175 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1178 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1183 result
= x_text_icon (f
,
1184 (char *) SDATA ((!NILP (f
->icon_name
)
1188 result
= x_bitmap_icon (f
, arg
);
1193 error ("No icon window available");
1196 XFlush (FRAME_X_DISPLAY (f
));
1201 x_set_icon_name (struct frame
*f
, Lisp_Object arg
, Lisp_Object oldval
)
1207 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1210 else if (!NILP (arg
) || NILP (oldval
))
1215 if (f
->output_data
.x
->icon_bitmap
!= 0)
1220 result
= x_text_icon (f
,
1221 (char *) SDATA ((!NILP (f
->icon_name
)
1230 error ("No icon window available");
1233 XFlush (FRAME_X_DISPLAY (f
));
1239 x_set_menu_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1242 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1243 int olines
= FRAME_MENU_BAR_LINES (f
);
1246 /* Right now, menu bars don't work properly in minibuf-only frames;
1247 most of the commands try to apply themselves to the minibuffer
1248 frame itself, and get an error because you can't switch buffers
1249 in or split the minibuffer window. */
1250 if (FRAME_MINIBUF_ONLY_P (f
))
1253 if (INTEGERP (value
))
1254 nlines
= XINT (value
);
1258 /* Make sure we redisplay all windows in this frame. */
1259 windows_or_buffers_changed
++;
1261 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1262 FRAME_MENU_BAR_LINES (f
) = 0;
1265 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1266 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1267 /* Make sure next redisplay shows the menu bar. */
1268 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1272 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1273 free_frame_menubar (f
);
1274 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1276 f
->output_data
.x
->menubar_widget
= 0;
1278 #else /* not USE_X_TOOLKIT && not USE_GTK */
1279 FRAME_MENU_BAR_LINES (f
) = nlines
;
1280 change_window_heights (f
->root_window
, nlines
- olines
);
1282 /* If the menu bar height gets changed, the internal border below
1283 the top margin has to be cleared. Also, if the menu bar gets
1284 larger, the area for the added lines has to be cleared except for
1285 the first menu bar line that is to be drawn later. */
1286 if (nlines
!= olines
)
1288 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1289 int width
= FRAME_PIXEL_WIDTH (f
);
1292 /* height can be zero here. */
1293 if (height
> 0 && width
> 0)
1295 y
= FRAME_TOP_MARGIN_HEIGHT (f
);
1298 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1299 0, y
, width
, height
, False
);
1303 if (nlines
> 1 && nlines
> olines
)
1305 y
= (olines
== 0 ? 1 : olines
) * FRAME_LINE_HEIGHT (f
);
1306 height
= nlines
* FRAME_LINE_HEIGHT (f
) - y
;
1309 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1310 0, y
, width
, height
, False
);
1314 if (nlines
== 0 && WINDOWP (f
->menu_bar_window
))
1315 clear_glyph_matrix (XWINDOW (f
->menu_bar_window
)->current_matrix
);
1317 #endif /* not USE_X_TOOLKIT && not USE_GTK */
1322 /* Set the number of lines used for the tool bar of frame F to VALUE.
1323 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1324 is the old number of tool bar lines. This function changes the
1325 height of all windows on frame F to match the new tool bar height.
1326 The frame's height doesn't change. */
1329 x_set_tool_bar_lines (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1331 int delta
, nlines
, root_height
;
1332 Lisp_Object root_window
;
1334 /* Treat tool bars like menu bars. */
1335 if (FRAME_MINIBUF_ONLY_P (f
))
1338 /* Use VALUE only if an integer >= 0. */
1339 if (INTEGERP (value
) && XINT (value
) >= 0)
1340 nlines
= XFASTINT (value
);
1345 FRAME_TOOL_BAR_LINES (f
) = 0;
1348 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1349 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1350 /* Make sure next redisplay shows the tool bar. */
1351 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1352 update_frame_tool_bar (f
);
1356 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1357 free_frame_tool_bar (f
);
1358 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1364 /* Make sure we redisplay all windows in this frame. */
1365 ++windows_or_buffers_changed
;
1367 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1369 /* Don't resize the tool-bar to more than we have room for. */
1370 root_window
= FRAME_ROOT_WINDOW (f
);
1371 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1372 if (root_height
- delta
< 1)
1374 delta
= root_height
- 1;
1375 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1378 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1379 change_window_heights (root_window
, delta
);
1382 /* We also have to make sure that the internal border at the top of
1383 the frame, below the menu bar or tool bar, is redrawn when the
1384 tool bar disappears. This is so because the internal border is
1385 below the tool bar if one is displayed, but is below the menu bar
1386 if there isn't a tool bar. The tool bar draws into the area
1387 below the menu bar. */
1388 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1391 clear_current_matrices (f
);
1394 /* If the tool bar gets smaller, the internal border below it
1395 has to be cleared. It was formerly part of the display
1396 of the larger tool bar, and updating windows won't clear it. */
1399 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1400 int width
= FRAME_PIXEL_WIDTH (f
);
1401 int y
= (FRAME_MENU_BAR_LINES (f
) + nlines
) * FRAME_LINE_HEIGHT (f
);
1403 /* height can be zero here. */
1404 if (height
> 0 && width
> 0)
1407 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1408 0, y
, width
, height
, False
);
1412 if (WINDOWP (f
->tool_bar_window
))
1413 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1418 /* Set the foreground color for scroll bars on frame F to VALUE.
1419 VALUE should be a string, a color name. If it isn't a string or
1420 isn't a valid color name, do nothing. OLDVAL is the old value of
1421 the frame parameter. */
1424 x_set_scroll_bar_foreground (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1426 unsigned long pixel
;
1428 if (STRINGP (value
))
1429 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1433 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1434 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1436 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1437 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1439 /* Remove all scroll bars because they have wrong colors. */
1440 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1441 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1442 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1443 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1445 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1451 /* Set the background color for scroll bars on frame F to VALUE VALUE
1452 should be a string, a color name. If it isn't a string or isn't a
1453 valid color name, do nothing. OLDVAL is the old value of the frame
1457 x_set_scroll_bar_background (struct frame
*f
, Lisp_Object value
, Lisp_Object oldval
)
1459 unsigned long pixel
;
1461 if (STRINGP (value
))
1462 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1466 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1467 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1469 #ifdef USE_TOOLKIT_SCROLL_BARS
1470 /* Scrollbar shadow colors. */
1471 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1473 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1474 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1476 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1478 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1479 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1481 #endif /* USE_TOOLKIT_SCROLL_BARS */
1483 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1484 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1486 /* Remove all scroll bars because they have wrong colors. */
1487 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1488 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1489 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1490 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1492 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1498 /* Encode Lisp string STRING as a text in a format appropriate for
1499 XICCC (X Inter Client Communication Conventions).
1501 This can call Lisp code, so callers must GCPRO.
1503 If STRING contains only ASCII characters, do no conversion and
1504 return the string data of STRING. Otherwise, encode the text by
1505 CODING_SYSTEM, and return a newly allocated memory area which
1506 should be freed by `xfree' by a caller.
1508 SELECTIONP non-zero means the string is being encoded for an X
1509 selection, so it is safe to run pre-write conversions (which
1512 Store the byte length of resulting text in *TEXT_BYTES.
1514 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1515 which means that the `encoding' of the result can be `STRING'.
1516 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1517 the result should be `COMPOUND_TEXT'. */
1519 static unsigned char *
1520 x_encode_text (Lisp_Object string
, Lisp_Object coding_system
, int selectionp
, int *text_bytes
, int *stringp
, int *freep
)
1522 int result
= string_xstring_p (string
);
1523 struct coding_system coding
;
1527 /* No multibyte character in OBJ. We need not encode it. */
1528 *text_bytes
= SBYTES (string
);
1531 return SDATA (string
);
1534 setup_coding_system (coding_system
, &coding
);
1535 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1536 /* We suppress producing escape sequences for composition. */
1537 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1538 coding
.dst_bytes
= SCHARS (string
) * 2;
1539 coding
.destination
= (unsigned char *) xmalloc (coding
.dst_bytes
);
1540 encode_coding_object (&coding
, string
, 0, 0,
1541 SCHARS (string
), SBYTES (string
), Qnil
);
1542 *text_bytes
= coding
.produced
;
1543 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1545 return coding
.destination
;
1549 /* Set the WM name to NAME for frame F. Also set the icon name.
1550 If the frame already has an icon name, use that, otherwise set the
1551 icon name to NAME. */
1554 x_set_name_internal (FRAME_PTR f
, Lisp_Object name
)
1556 if (FRAME_X_WINDOW (f
))
1560 XTextProperty text
, icon
;
1562 int do_free_icon_value
= 0, do_free_text_value
= 0;
1563 Lisp_Object coding_system
;
1564 Lisp_Object encoded_name
;
1565 Lisp_Object encoded_icon_name
;
1566 struct gcpro gcpro1
;
1568 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1569 we use it before x_encode_text that may return string data. */
1571 encoded_name
= ENCODE_UTF_8 (name
);
1574 coding_system
= Qcompound_text
;
1575 /* Note: Encoding strategy
1577 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1578 text.encoding. But, there are non-internationalized window
1579 managers which don't support that encoding. So, if NAME
1580 contains only ASCII and 8859-1 characters, encode it by
1581 iso-latin-1, and use "STRING" in text.encoding hoping that
1582 such window managers at least analyze this format correctly,
1583 i.e. treat 8-bit bytes as 8859-1 characters.
1585 We may also be able to use "UTF8_STRING" in text.encoding
1586 in the future which can encode all Unicode characters.
1587 But, for the moment, there's no way to know that the
1588 current window manager supports it or not.
1590 Either way, we also set the _NET_WM_NAME and _NET_WM_ICON_NAME
1591 properties. Per the EWMH specification, those two properties
1592 are always UTF8_STRING. This matches what gtk_window_set_title()
1593 does in the USE_GTK case. */
1594 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1595 &do_free_text_value
);
1596 text
.encoding
= (stringp
? XA_STRING
1597 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1599 text
.nitems
= bytes
;
1601 if (!STRINGP (f
->icon_name
))
1604 encoded_icon_name
= encoded_name
;
1608 /* See the above comment "Note: Encoding strategy". */
1609 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1610 &bytes
, &stringp
, &do_free_icon_value
);
1611 icon
.encoding
= (stringp
? XA_STRING
1612 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1614 icon
.nitems
= bytes
;
1616 encoded_icon_name
= ENCODE_UTF_8 (f
->icon_name
);
1620 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1621 (char *) SDATA (encoded_name
));
1622 #else /* not USE_GTK */
1623 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1624 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1625 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_name
,
1626 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1628 (char *) SDATA (encoded_name
),
1629 SBYTES (encoded_name
));
1630 #endif /* not USE_GTK */
1632 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1633 XChangeProperty (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
),
1634 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_wm_icon_name
,
1635 FRAME_X_DISPLAY_INFO (f
)->Xatom_UTF8_STRING
,
1637 (char *) SDATA (encoded_icon_name
),
1638 SBYTES (encoded_icon_name
));
1640 if (do_free_icon_value
)
1642 if (do_free_text_value
)
1649 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1652 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1653 name; if NAME is a string, set F's name to NAME and set
1654 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1656 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1657 suggesting a new name, which lisp code should override; if
1658 F->explicit_name is set, ignore the new name; otherwise, set it. */
1661 x_set_name (struct frame
*f
, Lisp_Object name
, int explicit)
1663 /* Make sure that requests from lisp code override requests from
1664 Emacs redisplay code. */
1667 /* If we're switching from explicit to implicit, we had better
1668 update the mode lines and thereby update the title. */
1669 if (f
->explicit_name
&& NILP (name
))
1670 update_mode_lines
= 1;
1672 f
->explicit_name
= ! NILP (name
);
1674 else if (f
->explicit_name
)
1677 /* If NAME is nil, set the name to the x_id_name. */
1680 /* Check for no change needed in this very common case
1681 before we do any consing. */
1682 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1685 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1688 CHECK_STRING (name
);
1690 /* Don't change the name if it's already NAME. */
1691 if (! NILP (Fstring_equal (name
, f
->name
)))
1696 /* For setting the frame title, the title parameter should override
1697 the name parameter. */
1698 if (! NILP (f
->title
))
1701 x_set_name_internal (f
, name
);
1704 /* This function should be called when the user's lisp code has
1705 specified a name for the frame; the name will override any set by the
1708 x_explicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1710 x_set_name (f
, arg
, 1);
1713 /* This function should be called by Emacs redisplay code to set the
1714 name; names set this way will never override names set by the user's
1717 x_implicitly_set_name (FRAME_PTR f
, Lisp_Object arg
, Lisp_Object oldval
)
1719 x_set_name (f
, arg
, 0);
1722 /* Change the title of frame F to NAME.
1723 If NAME is nil, use the frame name as the title. */
1726 x_set_title (struct frame
*f
, Lisp_Object name
, Lisp_Object old_name
)
1728 /* Don't change the title if it's already NAME. */
1729 if (EQ (name
, f
->title
))
1732 update_mode_lines
= 1;
1739 CHECK_STRING (name
);
1741 x_set_name_internal (f
, name
);
1745 x_set_scroll_bar_default_width (struct frame
*f
)
1747 int wid
= FRAME_COLUMN_WIDTH (f
);
1749 #ifdef USE_TOOLKIT_SCROLL_BARS
1750 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1751 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1752 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1753 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1755 /* Make the actual width at least 14 pixels and a multiple of a
1757 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1759 /* Use all of that space (aside from required margins) for the
1761 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1766 /* Record in frame F the specified or default value according to ALIST
1767 of the parameter named PROP (a Lisp symbol). If no value is
1768 specified for PROP, look for an X default for XPROP on the frame
1769 named NAME. If that is not found either, use the value DEFLT. */
1772 x_default_scroll_bar_color_parameter (struct frame
*f
,
1773 Lisp_Object alist
, Lisp_Object prop
,
1774 const char *xprop
, const char *xclass
,
1777 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1780 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1781 if (EQ (tem
, Qunbound
))
1783 #ifdef USE_TOOLKIT_SCROLL_BARS
1785 /* See if an X resource for the scroll bar color has been
1787 tem
= display_x_get_resource (dpyinfo
,
1788 build_string (foreground_p
1791 empty_unibyte_string
,
1792 build_string ("verticalScrollBar"),
1793 empty_unibyte_string
);
1796 /* If nothing has been specified, scroll bars will use a
1797 toolkit-dependent default. Because these defaults are
1798 difficult to get at without actually creating a scroll
1799 bar, use nil to indicate that no color has been
1804 #else /* not USE_TOOLKIT_SCROLL_BARS */
1808 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1811 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1818 #ifdef USE_X_TOOLKIT
1820 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1821 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1822 already be present because of the toolkit (Motif adds some of them,
1823 for example, but Xt doesn't). */
1826 hack_wm_protocols (FRAME_PTR f
, Widget widget
)
1828 Display
*dpy
= XtDisplay (widget
);
1829 Window w
= XtWindow (widget
);
1830 int need_delete
= 1;
1837 unsigned char *catoms
;
1839 unsigned long nitems
= 0;
1840 unsigned long bytes_after
;
1842 if ((XGetWindowProperty (dpy
, w
,
1843 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1844 (long)0, (long)100, False
, XA_ATOM
,
1845 &type
, &format
, &nitems
, &bytes_after
,
1848 && format
== 32 && type
== XA_ATOM
)
1850 Atom
*atoms
= (Atom
*) catoms
;
1855 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1857 else if (atoms
[nitems
]
1858 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1860 else if (atoms
[nitems
]
1861 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1872 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1874 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1876 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1878 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1879 XA_ATOM
, 32, PropModeAppend
,
1880 (unsigned char *) props
, count
);
1888 /* Support routines for XIC (X Input Context). */
1892 static XFontSet
xic_create_xfontset (struct frame
*);
1893 static XIMStyle
best_xim_style (XIMStyles
*, XIMStyles
*);
1896 /* Supported XIM styles, ordered by preference. */
1898 static XIMStyle supported_xim_styles
[] =
1900 XIMPreeditPosition
| XIMStatusArea
,
1901 XIMPreeditPosition
| XIMStatusNothing
,
1902 XIMPreeditPosition
| XIMStatusNone
,
1903 XIMPreeditNothing
| XIMStatusArea
,
1904 XIMPreeditNothing
| XIMStatusNothing
,
1905 XIMPreeditNothing
| XIMStatusNone
,
1906 XIMPreeditNone
| XIMStatusArea
,
1907 XIMPreeditNone
| XIMStatusNothing
,
1908 XIMPreeditNone
| XIMStatusNone
,
1913 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1915 const char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1917 /* Create an Xt fontset spec from the name of a base font.
1918 If `motif' is True use the Motif syntax. */
1920 xic_create_fontsetname (const char *base_fontname
, int motif
)
1922 const char *sep
= motif
? ";" : ",";
1925 /* Make a fontset name from the base font name. */
1926 if (xic_defaut_fontset
== base_fontname
)
1927 { /* There is no base font name, use the default. */
1928 int len
= strlen (base_fontname
) + 2;
1929 fontsetname
= xmalloc (len
);
1930 memset (fontsetname
, 0, len
);
1931 strcpy (fontsetname
, base_fontname
);
1935 /* Make a fontset name from the base font name.
1936 The font set will be made of the following elements:
1938 - the base font where the charset spec is replaced by -*-*.
1939 - the same but with the family also replaced with -*-*-. */
1940 const char *p
= base_fontname
;
1943 for (i
= 0; *p
; p
++)
1946 { /* As the font name doesn't conform to XLFD, we can't
1947 modify it to generalize it to allcs and allfamilies.
1948 Use the specified font plus the default. */
1949 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
1950 fontsetname
= xmalloc (len
);
1951 memset (fontsetname
, 0, len
);
1952 strcpy (fontsetname
, base_fontname
);
1953 strcat (fontsetname
, sep
);
1954 strcat (fontsetname
, xic_defaut_fontset
);
1959 const char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1960 char *font_allcs
= NULL
;
1961 char *font_allfamilies
= NULL
;
1962 char *font_all
= NULL
;
1963 const char *allcs
= "*-*-*-*-*-*-*";
1964 const char *allfamilies
= "-*-*-";
1965 const char *all
= "*-*-*-*-";
1968 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
1981 /* If base_fontname specifies ADSTYLE, make it a
1985 int diff
= (p2
- p3
) - 2;
1987 base
= alloca (strlen (base_fontname
) + 1);
1988 memcpy (base
, base_fontname
, p3
- base_fontname
);
1989 base
[p3
- base_fontname
] = '*';
1990 base
[(p3
- base_fontname
) + 1] = '-';
1991 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
1992 p
= base
+ (p
- base_fontname
) - diff
;
1993 p1
= base
+ (p1
- base_fontname
);
1994 p2
= base
+ (p2
- base_fontname
) - diff
;
1995 base_fontname
= base
;
1998 /* Build the font spec that matches all charsets. */
1999 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2000 font_allcs
= (char *) alloca (len
);
2001 memset (font_allcs
, 0, len
);
2002 memcpy (font_allcs
, base_fontname
, p
- base_fontname
);
2003 strcat (font_allcs
, allcs
);
2005 /* Build the font spec that matches all families and
2007 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2008 font_allfamilies
= (char *) alloca (len
);
2009 memset (font_allfamilies
, 0, len
);
2010 strcpy (font_allfamilies
, allfamilies
);
2011 memcpy (font_allfamilies
+ strlen (allfamilies
), p1
, p
- p1
);
2012 strcat (font_allfamilies
, allcs
);
2014 /* Build the font spec that matches all. */
2015 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2016 font_all
= (char *) alloca (len
);
2017 memset (font_all
, 0, len
);
2018 strcpy (font_all
, allfamilies
);
2019 strcat (font_all
, all
);
2020 memcpy (font_all
+ strlen (all
) + strlen (allfamilies
), p2
, p
- p2
);
2021 strcat (font_all
, allcs
);
2023 /* Build the actual font set name. */
2024 len
= strlen (base_fontname
) + strlen (font_allcs
)
2025 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2026 fontsetname
= xmalloc (len
);
2027 memset (fontsetname
, 0, len
);
2028 strcpy (fontsetname
, base_fontname
);
2029 strcat (fontsetname
, sep
);
2030 strcat (fontsetname
, font_allcs
);
2031 strcat (fontsetname
, sep
);
2032 strcat (fontsetname
, font_allfamilies
);
2033 strcat (fontsetname
, sep
);
2034 strcat (fontsetname
, font_all
);
2038 strcat (fontsetname
, ":");
2042 #ifdef DEBUG_XIC_FONTSET
2044 print_fontset_result (xfs
, name
, missing_list
, missing_count
)
2047 char **missing_list
;
2051 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
2054 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
2055 while (missing_count
-- > 0)
2057 fprintf (stderr
, " missing: %s\n", *missing_list
);
2066 xic_create_xfontset (struct frame
*f
)
2068 XFontSet xfs
= NULL
;
2069 struct font
*font
= FRAME_FONT (f
);
2070 int pixel_size
= font
->pixel_size
;
2071 Lisp_Object rest
, frame
;
2073 /* See if there is another frame already using same fontset. */
2074 FOR_EACH_FRAME (rest
, frame
)
2076 struct frame
*cf
= XFRAME (frame
);
2078 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2079 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2081 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
2083 xfs
= FRAME_XIC_FONTSET (cf
);
2091 char **missing_list
;
2094 const char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
2096 sprintf (buf
, xlfd_format
, pixel_size
);
2097 missing_list
= NULL
;
2098 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2099 &missing_list
, &missing_count
, &def_string
);
2100 #ifdef DEBUG_XIC_FONTSET
2101 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2104 XFreeStringList (missing_list
);
2107 /* List of pixel sizes most likely available. Find one that
2108 is closest to pixel_size. */
2109 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2110 int *smaller
, *larger
;
2112 for (smaller
= sizes
; smaller
[1]; smaller
++)
2113 if (smaller
[1] >= pixel_size
)
2115 larger
= smaller
+ 1;
2116 if (*larger
== pixel_size
)
2118 while (*smaller
|| *larger
)
2123 this_size
= *smaller
--;
2124 else if (! *smaller
)
2125 this_size
= *larger
++;
2126 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
2127 this_size
= *smaller
--;
2129 this_size
= *larger
++;
2130 sprintf (buf
, xlfd_format
, this_size
);
2131 missing_list
= NULL
;
2132 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2133 &missing_list
, &missing_count
, &def_string
);
2134 #ifdef DEBUG_XIC_FONTSET
2135 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2138 XFreeStringList (missing_list
);
2145 const char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
2147 missing_list
= NULL
;
2148 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
2149 &missing_list
, &missing_count
, &def_string
);
2150 #ifdef DEBUG_XIC_FONTSET
2151 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
2154 XFreeStringList (missing_list
);
2162 /* Free the X fontset of frame F if it is the last frame using it. */
2165 xic_free_xfontset (struct frame
*f
)
2167 Lisp_Object rest
, frame
;
2170 if (!FRAME_XIC_FONTSET (f
))
2173 /* See if there is another frame sharing the same fontset. */
2174 FOR_EACH_FRAME (rest
, frame
)
2176 struct frame
*cf
= XFRAME (frame
);
2177 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2178 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2179 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2187 /* The fontset is not used anymore. It is safe to free it. */
2188 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2190 if (FRAME_XIC_BASE_FONTNAME (f
))
2191 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2192 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2193 FRAME_XIC_FONTSET (f
) = NULL
;
2197 /* Value is the best input style, given user preferences USER (already
2198 checked to be supported by Emacs), and styles supported by the
2199 input method XIM. */
2202 best_xim_style (XIMStyles
*user
, XIMStyles
*xim
)
2206 for (i
= 0; i
< user
->count_styles
; ++i
)
2207 for (j
= 0; j
< xim
->count_styles
; ++j
)
2208 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2209 return user
->supported_styles
[i
];
2211 /* Return the default style. */
2212 return XIMPreeditNothing
| XIMStatusNothing
;
2215 /* Create XIC for frame F. */
2217 static XIMStyle xic_style
;
2220 create_frame_xic (struct frame
*f
)
2224 XFontSet xfs
= NULL
;
2229 /* Create X fontset. */
2230 xfs
= xic_create_xfontset (f
);
2231 xim
= FRAME_X_XIM (f
);
2236 XVaNestedList preedit_attr
;
2237 XVaNestedList status_attr
;
2239 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2240 spot
.x
= 0; spot
.y
= 1;
2242 /* Determine XIC style. */
2245 XIMStyles supported_list
;
2246 supported_list
.count_styles
= (sizeof supported_xim_styles
2247 / sizeof supported_xim_styles
[0]);
2248 supported_list
.supported_styles
= supported_xim_styles
;
2249 xic_style
= best_xim_style (&supported_list
,
2250 FRAME_X_XIM_STYLES (f
));
2253 preedit_attr
= XVaCreateNestedList (0,
2256 FRAME_FOREGROUND_PIXEL (f
),
2258 FRAME_BACKGROUND_PIXEL (f
),
2259 (xic_style
& XIMPreeditPosition
2264 status_attr
= XVaCreateNestedList (0,
2270 FRAME_FOREGROUND_PIXEL (f
),
2272 FRAME_BACKGROUND_PIXEL (f
),
2275 xic
= XCreateIC (xim
,
2276 XNInputStyle
, xic_style
,
2277 XNClientWindow
, FRAME_X_WINDOW (f
),
2278 XNFocusWindow
, FRAME_X_WINDOW (f
),
2279 XNStatusAttributes
, status_attr
,
2280 XNPreeditAttributes
, preedit_attr
,
2282 XFree (preedit_attr
);
2283 XFree (status_attr
);
2286 FRAME_XIC (f
) = xic
;
2287 FRAME_XIC_STYLE (f
) = xic_style
;
2288 FRAME_XIC_FONTSET (f
) = xfs
;
2292 /* Destroy XIC and free XIC fontset of frame F, if any. */
2295 free_frame_xic (struct frame
*f
)
2297 if (FRAME_XIC (f
) == NULL
)
2300 XDestroyIC (FRAME_XIC (f
));
2301 xic_free_xfontset (f
);
2303 FRAME_XIC (f
) = NULL
;
2307 /* Place preedit area for XIC of window W's frame to specified
2308 pixel position X/Y. X and Y are relative to window W. */
2311 xic_set_preeditarea (struct window
*w
, int x
, int y
)
2313 struct frame
*f
= XFRAME (w
->frame
);
2317 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2318 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2319 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2320 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2325 /* Place status area for XIC in bottom right corner of frame F.. */
2328 xic_set_statusarea (struct frame
*f
)
2330 XIC xic
= FRAME_XIC (f
);
2335 /* Negotiate geometry of status area. If input method has existing
2336 status area, use its current size. */
2337 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2338 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2339 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2342 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2343 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2346 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2348 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2349 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2353 area
.width
= needed
->width
;
2354 area
.height
= needed
->height
;
2355 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2356 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2357 - FRAME_MENUBAR_HEIGHT (f
)
2358 - FRAME_TOOLBAR_TOP_HEIGHT (f
)
2359 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2362 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2363 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2368 /* Set X fontset for XIC of frame F, using base font name
2369 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2372 xic_set_xfontset (struct frame
*f
, const char *base_fontname
)
2377 xic_free_xfontset (f
);
2379 xfs
= xic_create_xfontset (f
);
2381 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2382 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2383 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2384 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2385 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2388 FRAME_XIC_FONTSET (f
) = xfs
;
2391 #endif /* HAVE_X_I18N */
2395 #ifdef USE_X_TOOLKIT
2397 /* Create and set up the X widget for frame F. */
2400 x_window (struct frame
*f
, long window_prompting
, int minibuffer_only
)
2402 XClassHint class_hints
;
2403 XSetWindowAttributes attributes
;
2404 unsigned long attribute_mask
;
2405 Widget shell_widget
;
2407 Widget frame_widget
;
2413 /* Use the resource name as the top-level widget name
2414 for looking up resources. Make a non-Lisp copy
2415 for the window manager, so GC relocation won't bother it.
2417 Elsewhere we specify the window name for the window manager. */
2420 char *str
= (char *) SDATA (Vx_resource_name
);
2421 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2422 strcpy (f
->namebuf
, str
);
2426 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2427 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2428 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2429 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2430 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2431 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2432 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2433 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2434 applicationShellWidgetClass
,
2435 FRAME_X_DISPLAY (f
), al
, ac
);
2437 f
->output_data
.x
->widget
= shell_widget
;
2438 /* maybe_set_screen_title_format (shell_widget); */
2440 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2441 (widget_value
*) NULL
,
2442 shell_widget
, False
,
2446 (lw_callback
) NULL
);
2449 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2450 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2451 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2452 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2453 XtSetValues (pane_widget
, al
, ac
);
2454 f
->output_data
.x
->column_widget
= pane_widget
;
2456 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2457 the emacs screen when changing menubar. This reduces flickering. */
2460 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2461 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2462 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2463 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2464 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2465 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2466 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2467 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2468 XtSetArg (al
[ac
], XtNborderWidth
, 0); ac
++;
2469 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2472 f
->output_data
.x
->edit_widget
= frame_widget
;
2474 XtManageChild (frame_widget
);
2476 /* Do some needed geometry management. */
2479 char *tem
, shell_position
[32];
2482 int extra_borders
= 0;
2484 = (f
->output_data
.x
->menubar_widget
2485 ? (f
->output_data
.x
->menubar_widget
->core
.height
2486 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2489 #if 0 /* Experimentally, we now get the right results
2490 for -geometry -0-0 without this. 24 Aug 96, rms. */
2491 if (FRAME_EXTERNAL_MENU_BAR (f
))
2494 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2495 menubar_size
+= ibw
;
2499 f
->output_data
.x
->menubar_height
= menubar_size
;
2502 /* Motif seems to need this amount added to the sizes
2503 specified for the shell widget. The Athena/Lucid widgets don't.
2504 Both conclusions reached experimentally. -- rms. */
2505 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2506 &extra_borders
, NULL
);
2510 /* Convert our geometry parameters into a geometry string
2512 Note that we do not specify here whether the position
2513 is a user-specified or program-specified one.
2514 We pass that information later, in x_wm_set_size_hints. */
2516 int left
= f
->left_pos
;
2517 int xneg
= window_prompting
& XNegative
;
2518 int top
= f
->top_pos
;
2519 int yneg
= window_prompting
& YNegative
;
2525 if (window_prompting
& USPosition
)
2526 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2527 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2528 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2529 (xneg
? '-' : '+'), left
,
2530 (yneg
? '-' : '+'), top
);
2533 sprintf (shell_position
, "=%dx%d",
2534 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2535 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2537 /* Setting x and y when the position is not specified in
2538 the geometry string will set program position in the WM hints.
2539 If Emacs had just one program position, we could set it in
2540 fallback resources, but since each make-frame call can specify
2541 different program positions, this is easier. */
2542 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2543 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2547 len
= strlen (shell_position
) + 1;
2548 /* We don't free this because we don't know whether
2549 it is safe to free it while the frame exists.
2550 It isn't worth the trouble of arranging to free it
2551 when the frame is deleted. */
2552 tem
= (char *) xmalloc (len
);
2553 strncpy (tem
, shell_position
, len
);
2554 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2555 XtSetValues (shell_widget
, al
, ac
);
2558 XtManageChild (pane_widget
);
2559 XtRealizeWidget (shell_widget
);
2561 if (FRAME_X_EMBEDDED_P (f
))
2562 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2563 f
->output_data
.x
->parent_desc
, 0, 0);
2565 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2567 validate_x_resource_name ();
2569 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2570 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2571 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2574 FRAME_XIC (f
) = NULL
;
2576 create_frame_xic (f
);
2579 f
->output_data
.x
->wm_hints
.input
= True
;
2580 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2581 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2582 &f
->output_data
.x
->wm_hints
);
2584 hack_wm_protocols (f
, shell_widget
);
2587 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2590 /* Do a stupid property change to force the server to generate a
2591 PropertyNotify event so that the event_stream server timestamp will
2592 be initialized to something relevant to the time we created the window.
2594 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2595 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2596 XA_ATOM
, 32, PropModeAppend
,
2597 (unsigned char*) NULL
, 0);
2599 /* Make all the standard events reach the Emacs frame. */
2600 attributes
.event_mask
= STANDARD_EVENT_SET
;
2605 /* XIM server might require some X events. */
2606 unsigned long fevent
= NoEventMask
;
2607 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2608 attributes
.event_mask
|= fevent
;
2610 #endif /* HAVE_X_I18N */
2612 attribute_mask
= CWEventMask
;
2613 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2614 attribute_mask
, &attributes
);
2616 XtMapWidget (frame_widget
);
2618 /* x_set_name normally ignores requests to set the name if the
2619 requested name is the same as the current name. This is the one
2620 place where that assumption isn't correct; f->name is set, but
2621 the X server hasn't been told. */
2624 int explicit = f
->explicit_name
;
2626 f
->explicit_name
= 0;
2629 x_set_name (f
, name
, explicit);
2632 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2633 f
->output_data
.x
->current_cursor
2634 = f
->output_data
.x
->text_cursor
);
2638 /* This is a no-op, except under Motif. Make sure main areas are
2639 set to something reasonable, in case we get an error later. */
2640 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2643 #else /* not USE_X_TOOLKIT */
2646 x_window (FRAME_PTR f
)
2648 if (! xg_create_frame_widgets (f
))
2649 error ("Unable to create window");
2652 FRAME_XIC (f
) = NULL
;
2656 create_frame_xic (f
);
2659 /* XIM server might require some X events. */
2660 unsigned long fevent
= NoEventMask
;
2661 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2663 if (fevent
!= NoEventMask
)
2665 XSetWindowAttributes attributes
;
2666 XWindowAttributes wattr
;
2667 unsigned long attribute_mask
;
2669 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2671 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2672 attribute_mask
= CWEventMask
;
2673 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2674 attribute_mask
, &attributes
);
2682 #else /*! USE_GTK */
2683 /* Create and set up the X window for frame F. */
2686 x_window (struct frame
*f
)
2688 XClassHint class_hints
;
2689 XSetWindowAttributes attributes
;
2690 unsigned long attribute_mask
;
2692 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2693 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2694 attributes
.bit_gravity
= StaticGravity
;
2695 attributes
.backing_store
= NotUseful
;
2696 attributes
.save_under
= True
;
2697 attributes
.event_mask
= STANDARD_EVENT_SET
;
2698 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2699 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2704 = XCreateWindow (FRAME_X_DISPLAY (f
),
2705 f
->output_data
.x
->parent_desc
,
2708 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2710 CopyFromParent
, /* depth */
2711 InputOutput
, /* class */
2713 attribute_mask
, &attributes
);
2718 create_frame_xic (f
);
2721 /* XIM server might require some X events. */
2722 unsigned long fevent
= NoEventMask
;
2723 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2724 attributes
.event_mask
|= fevent
;
2725 attribute_mask
= CWEventMask
;
2726 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2727 attribute_mask
, &attributes
);
2730 #endif /* HAVE_X_I18N */
2732 validate_x_resource_name ();
2734 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2735 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2736 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2738 /* The menubar is part of the ordinary display;
2739 it does not count in addition to the height of the window. */
2740 f
->output_data
.x
->menubar_height
= 0;
2742 /* This indicates that we use the "Passive Input" input model.
2743 Unless we do this, we don't get the Focus{In,Out} events that we
2744 need to draw the cursor correctly. Accursed bureaucrats.
2745 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2747 f
->output_data
.x
->wm_hints
.input
= True
;
2748 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2749 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2750 &f
->output_data
.x
->wm_hints
);
2751 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2753 /* Request "save yourself" and "delete window" commands from wm. */
2756 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2757 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2758 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2761 /* x_set_name normally ignores requests to set the name if the
2762 requested name is the same as the current name. This is the one
2763 place where that assumption isn't correct; f->name is set, but
2764 the X server hasn't been told. */
2767 int explicit = f
->explicit_name
;
2769 f
->explicit_name
= 0;
2772 x_set_name (f
, name
, explicit);
2775 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2776 f
->output_data
.x
->current_cursor
2777 = f
->output_data
.x
->text_cursor
);
2781 if (FRAME_X_WINDOW (f
) == 0)
2782 error ("Unable to create window");
2785 #endif /* not USE_GTK */
2786 #endif /* not USE_X_TOOLKIT */
2788 /* Verify that the icon position args for this window are valid. */
2791 x_icon_verify (struct frame
*f
, Lisp_Object parms
)
2793 Lisp_Object icon_x
, icon_y
;
2795 /* Set the position of the icon. Note that twm groups all
2796 icons in an icon window. */
2797 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2798 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2799 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2801 CHECK_NUMBER (icon_x
);
2802 CHECK_NUMBER (icon_y
);
2804 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2805 error ("Both left and top icon corners of icon must be specified");
2808 /* Handle the icon stuff for this window. Perhaps later we might
2809 want an x_set_icon_position which can be called interactively as
2813 x_icon (struct frame
*f
, Lisp_Object parms
)
2815 Lisp_Object icon_x
, icon_y
;
2817 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2820 /* Set the position of the icon. Note that twm groups all
2821 icons in an icon window. */
2822 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2823 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2824 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2826 CHECK_NUMBER (icon_x
);
2827 CHECK_NUMBER (icon_y
);
2829 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2830 error ("Both left and top icon corners of icon must be specified");
2834 if (! EQ (icon_x
, Qunbound
))
2835 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2837 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2838 but x_create_frame still needs it. */
2839 /* Start up iconic or window? */
2840 x_wm_set_window_state
2841 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2847 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2854 /* Make the GCs needed for this window, setting the
2855 background, border and mouse colors; also create the
2856 mouse cursor and the gray border tile. */
2859 x_make_gc (struct frame
*f
)
2861 XGCValues gc_values
;
2865 /* Create the GCs of this frame.
2866 Note that many default values are used. */
2868 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2869 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2870 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2871 f
->output_data
.x
->normal_gc
2872 = XCreateGC (FRAME_X_DISPLAY (f
),
2874 GCLineWidth
| GCForeground
| GCBackground
,
2877 /* Reverse video style. */
2878 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2879 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2880 f
->output_data
.x
->reverse_gc
2881 = XCreateGC (FRAME_X_DISPLAY (f
),
2883 GCForeground
| GCBackground
| GCLineWidth
,
2886 /* Cursor has cursor-color background, background-color foreground. */
2887 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2888 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2889 gc_values
.fill_style
= FillOpaqueStippled
;
2890 f
->output_data
.x
->cursor_gc
2891 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2892 (GCForeground
| GCBackground
2893 | GCFillStyle
| GCLineWidth
),
2897 f
->output_data
.x
->white_relief
.gc
= 0;
2898 f
->output_data
.x
->black_relief
.gc
= 0;
2900 /* Create the gray border tile used when the pointer is not in
2901 the frame. Since this depends on the frame's pixel values,
2902 this must be done on a per-frame basis. */
2903 f
->output_data
.x
->border_tile
2904 = (XCreatePixmapFromBitmapData
2905 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2906 gray_bits
, gray_width
, gray_height
,
2907 FRAME_FOREGROUND_PIXEL (f
),
2908 FRAME_BACKGROUND_PIXEL (f
),
2909 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2915 /* Free what was allocated in x_make_gc. */
2918 x_free_gcs (struct frame
*f
)
2920 Display
*dpy
= FRAME_X_DISPLAY (f
);
2924 if (f
->output_data
.x
->normal_gc
)
2926 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2927 f
->output_data
.x
->normal_gc
= 0;
2930 if (f
->output_data
.x
->reverse_gc
)
2932 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2933 f
->output_data
.x
->reverse_gc
= 0;
2936 if (f
->output_data
.x
->cursor_gc
)
2938 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2939 f
->output_data
.x
->cursor_gc
= 0;
2942 if (f
->output_data
.x
->border_tile
)
2944 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2945 f
->output_data
.x
->border_tile
= 0;
2952 /* Handler for signals raised during x_create_frame and
2953 x_create_top_frame. FRAME is the frame which is partially
2957 unwind_create_frame (Lisp_Object frame
)
2959 struct frame
*f
= XFRAME (frame
);
2961 /* If frame is already dead, nothing to do. This can happen if the
2962 display is disconnected after the frame has become official, but
2963 before x_create_frame removes the unwind protect. */
2964 if (!FRAME_LIVE_P (f
))
2967 /* If frame is ``official'', nothing to do. */
2968 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
2971 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2974 x_free_frame_resources (f
);
2977 /* Check that reference counts are indeed correct. */
2978 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
2979 //xassert (dpyinfo->image_cache->refcount == image_cache_refcount); //FIXME doesnt compilex
2989 x_default_font_parameter (struct frame
*f
, Lisp_Object parms
)
2991 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2992 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
2994 Lisp_Object font
= Qnil
;
2995 if (EQ (font_param
, Qunbound
))
2998 if (NILP (font_param
))
3000 /* System font should take precedendce over X resources. We suggest this
3001 regardless of font-use-system-font because .emacs may not have been
3003 const char *system_font
= xsettings_get_system_font ();
3006 char *name
= xstrdup (system_font
);
3007 font
= font_open_by_name (f
, name
);
3013 font
= !NILP (font_param
) ? font_param
3014 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3016 if (! FONTP (font
) && ! STRINGP (font
))
3021 /* This will find the normal Xft font. */
3024 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
3025 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3026 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3027 /* This was formerly the first thing tried, but it finds
3028 too many fonts and takes too long. */
3029 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
3030 /* If those didn't work, look for something which will
3032 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
3037 for (i
= 0; names
[i
]; i
++)
3039 font
= font_open_by_name (f
, names
[i
]);
3044 error ("No suitable font was found");
3046 else if (!NILP (font_param
))
3048 /* Remember the explicit font parameter, so we can re-apply it after
3049 we've applied the `default' face settings. */
3050 x_set_frame_parameters (f
, Fcons (Fcons (Qfont_param
, font_param
), Qnil
));
3053 /* This call will make X resources override any system font setting. */
3054 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
3058 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
3060 doc
: /* Send the size hints for frame FRAME to the window manager.
3061 If FRAME is nil, use the selected frame. */)
3066 frame
= selected_frame
;
3070 x_wm_set_size_hint (f
, 0, 0);
3076 set_machine_and_pid_properties (struct frame
*f
)
3078 /* See the above comment "Note: Encoding strategy". */
3081 int do_free_text_value
= 0;
3082 long pid
= (long) getpid ();
3084 text
.value
= x_encode_text (Vsystem_name
,
3085 Qcompound_text
, 0, &bytes
, &stringp
,
3086 &do_free_text_value
);
3087 text
.encoding
= (stringp
? XA_STRING
3088 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
3090 text
.nitems
= bytes
;
3091 XSetWMClientMachine (FRAME_X_DISPLAY (f
),
3092 FRAME_OUTER_WINDOW (f
),
3094 if (do_free_text_value
)
3097 XChangeProperty (FRAME_X_DISPLAY (f
),
3098 FRAME_OUTER_WINDOW (f
),
3099 XInternAtom (FRAME_X_DISPLAY (f
),
3102 XA_CARDINAL
, 32, PropModeReplace
,
3103 (unsigned char *) &pid
, 1);
3106 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3108 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3109 Return an Emacs frame object.
3110 PARMS is an alist of frame parameters.
3111 If the parameters specify that the frame should not have a minibuffer,
3112 and do not specify a specific minibuffer window to use,
3113 then `default-minibuffer-frame' must be a frame whose minibuffer can
3114 be shared by the new frame.
3116 This function is an internal primitive--use `make-frame' instead. */)
3120 Lisp_Object frame
, tem
;
3122 int minibuffer_only
= 0;
3123 long window_prompting
= 0;
3125 int count
= SPECPDL_INDEX ();
3126 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3127 Lisp_Object display
;
3128 struct x_display_info
*dpyinfo
= NULL
;
3132 parms
= Fcopy_alist (parms
);
3134 /* Use this general default value to start with
3135 until we know if this frame has a specified name. */
3136 Vx_resource_name
= Vinvocation_name
;
3138 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3139 if (EQ (display
, Qunbound
))
3140 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3141 if (EQ (display
, Qunbound
))
3143 dpyinfo
= check_x_display_info (display
);
3144 kb
= dpyinfo
->terminal
->kboard
;
3146 if (!dpyinfo
->terminal
->name
)
3147 error ("Terminal is not live, can't create new frames on it");
3149 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3151 && ! EQ (name
, Qunbound
)
3153 error ("Invalid frame name--not a string or nil");
3156 Vx_resource_name
= name
;
3158 /* See if parent window is specified. */
3159 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3160 if (EQ (parent
, Qunbound
))
3162 if (! NILP (parent
))
3163 CHECK_NUMBER (parent
);
3165 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3166 /* No need to protect DISPLAY because that's not used after passing
3167 it to make_frame_without_minibuffer. */
3169 GCPRO4 (parms
, parent
, name
, frame
);
3170 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3172 if (EQ (tem
, Qnone
) || NILP (tem
))
3173 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3174 else if (EQ (tem
, Qonly
))
3176 f
= make_minibuffer_frame ();
3177 minibuffer_only
= 1;
3179 else if (WINDOWP (tem
))
3180 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3184 XSETFRAME (frame
, f
);
3186 /* Note that X Windows does support scroll bars. */
3187 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3189 f
->terminal
= dpyinfo
->terminal
;
3190 f
->terminal
->reference_count
++;
3192 f
->output_method
= output_x_window
;
3193 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3194 memset (f
->output_data
.x
, 0, sizeof (struct x_output
));
3195 f
->output_data
.x
->icon_bitmap
= -1;
3196 FRAME_FONTSET (f
) = -1;
3197 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3198 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3199 #ifdef USE_TOOLKIT_SCROLL_BARS
3200 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3201 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3202 #endif /* USE_TOOLKIT_SCROLL_BARS */
3205 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3207 if (! STRINGP (f
->icon_name
))
3208 f
->icon_name
= Qnil
;
3210 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3212 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3213 record_unwind_protect (unwind_create_frame
, frame
);
3216 //image_cache_refcount = FRAME_IMAGE_CACHE (f)->refcount;
3217 //dpyinfo_refcount = dpyinfo->reference_count;
3218 #endif /* GLYPH_DEBUG */
3220 /* These colors will be set anyway later, but it's important
3221 to get the color reference counts right, so initialize them! */
3224 struct gcpro gcpro1
;
3226 /* Function x_decode_color can signal an error. Make
3227 sure to initialize color slots so that we won't try
3228 to free colors we haven't allocated. */
3229 FRAME_FOREGROUND_PIXEL (f
) = -1;
3230 FRAME_BACKGROUND_PIXEL (f
) = -1;
3231 f
->output_data
.x
->cursor_pixel
= -1;
3232 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3233 f
->output_data
.x
->border_pixel
= -1;
3234 f
->output_data
.x
->mouse_pixel
= -1;
3236 black
= build_string ("black");
3238 FRAME_FOREGROUND_PIXEL (f
)
3239 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3240 FRAME_BACKGROUND_PIXEL (f
)
3241 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3242 f
->output_data
.x
->cursor_pixel
3243 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3244 f
->output_data
.x
->cursor_foreground_pixel
3245 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3246 f
->output_data
.x
->border_pixel
3247 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3248 f
->output_data
.x
->mouse_pixel
3249 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3253 /* Specify the parent under which to make this X window. */
3257 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3258 f
->output_data
.x
->explicit_parent
= 1;
3262 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3263 f
->output_data
.x
->explicit_parent
= 0;
3266 /* Set the name; the functions to which we pass f expect the name to
3268 if (EQ (name
, Qunbound
) || NILP (name
))
3270 f
->name
= build_string (dpyinfo
->x_id_name
);
3271 f
->explicit_name
= 0;
3276 f
->explicit_name
= 1;
3277 /* use the frame's title when getting resources for this frame. */
3278 specbind (Qx_resource_name
, name
);
3281 f
->resx
= dpyinfo
->resx
;
3282 f
->resy
= dpyinfo
->resy
;
3284 #ifdef HAVE_FREETYPE
3286 register_font_driver (&xftfont_driver
, f
);
3287 #else /* not HAVE_XFT */
3288 register_font_driver (&ftxfont_driver
, f
);
3289 #endif /* not HAVE_XFT */
3290 #endif /* HAVE_FREETYPE */
3291 register_font_driver (&xfont_driver
, f
);
3293 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3294 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3296 /* Extract the window parameters from the supplied values
3297 that are needed to determine window geometry. */
3298 x_default_font_parameter (f
, parms
);
3299 if (!FRAME_FONT (f
))
3301 delete_frame (frame
, Qnoelisp
);
3302 error ("Invalid frame font");
3305 /* Frame contents get displaced if an embedded X window has a border. */
3306 if (! FRAME_X_EMBEDDED_P (f
))
3307 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
3308 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3310 /* This defaults to 1 in order to match xterm. We recognize either
3311 internalBorderWidth or internalBorder (which is what xterm calls
3313 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3317 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3318 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3319 if (! EQ (value
, Qunbound
))
3320 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3323 x_default_parameter (f
, parms
, Qinternal_border_width
,
3324 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3329 "internalBorderWidth", "internalBorderWidth",
3331 x_default_parameter (f
, parms
, Qvertical_scroll_bars
,
3332 #if defined(USE_GTK) && defined(USE_TOOLKIT_SCROLL_BARS)
3337 "verticalScrollBars", "ScrollBars",
3340 /* Also do the stuff which must be set before the window exists. */
3341 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3342 "foreground", "Foreground", RES_TYPE_STRING
);
3343 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3344 "background", "Background", RES_TYPE_STRING
);
3345 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3346 "pointerColor", "Foreground", RES_TYPE_STRING
);
3347 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3348 "cursorColor", "Foreground", RES_TYPE_STRING
);
3349 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3350 "borderColor", "BorderColor", RES_TYPE_STRING
);
3351 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3352 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3353 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3354 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3355 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3356 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3357 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3358 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3360 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3361 "scrollBarForeground",
3362 "ScrollBarForeground", 1);
3363 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3364 "scrollBarBackground",
3365 "ScrollBarBackground", 0);
3367 /* Init faces before x_default_parameter is called for scroll-bar
3368 parameters because that function calls x_set_scroll_bar_width,
3369 which calls change_frame_size, which calls Fset_window_buffer,
3370 which runs hooks, which call Fvertical_motion. At the end, we
3371 end up in init_iterator with a null face cache, which should not
3373 init_frame_faces (f
);
3375 /* The X resources controlling the menu-bar and tool-bar are
3376 processed specially at startup, and reflected in the mode
3377 variables; ignore them here. */
3378 x_default_parameter (f
, parms
, Qmenu_bar_lines
,
3379 NILP (Vmenu_bar_mode
)
3380 ? make_number (0) : make_number (1),
3381 NULL
, NULL
, RES_TYPE_NUMBER
);
3382 x_default_parameter (f
, parms
, Qtool_bar_lines
,
3383 NILP (Vtool_bar_mode
)
3384 ? make_number (0) : make_number (1),
3385 NULL
, NULL
, RES_TYPE_NUMBER
);
3387 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3388 "bufferPredicate", "BufferPredicate",
3390 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3391 "title", "Title", RES_TYPE_STRING
);
3392 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3393 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3394 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3395 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3396 x_default_parameter (f
, parms
, Qtool_bar_position
,
3397 f
->tool_bar_position
, 0, 0, RES_TYPE_SYMBOL
);
3399 /* Compute the size of the X window. */
3400 window_prompting
= x_figure_window_size (f
, parms
, 1);
3402 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3403 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3405 x_icon_verify (f
, parms
);
3407 /* Create the X widget or window. */
3408 #ifdef USE_X_TOOLKIT
3409 x_window (f
, window_prompting
, minibuffer_only
);
3417 /* Now consider the frame official. */
3418 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3419 Vframe_list
= Fcons (frame
, Vframe_list
);
3421 /* We need to do this after creating the X window, so that the
3422 icon-creation functions can say whose icon they're describing. */
3423 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3424 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3426 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3427 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3428 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3429 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3430 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3431 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3432 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3433 "scrollBarWidth", "ScrollBarWidth",
3435 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3436 "alpha", "Alpha", RES_TYPE_NUMBER
);
3438 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3439 Change will not be effected unless different from the current
3441 width
= FRAME_COLS (f
);
3442 height
= FRAME_LINES (f
);
3444 SET_FRAME_COLS (f
, 0);
3445 FRAME_LINES (f
) = 0;
3446 change_frame_size (f
, height
, width
, 1, 0, 0);
3448 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3449 /* Create the menu bar. */
3450 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3452 /* If this signals an error, we haven't set size hints for the
3453 frame and we didn't make it visible. */
3454 initialize_frame_menubar (f
);
3457 /* This is a no-op, except under Motif where it arranges the
3458 main window for the widgets on it. */
3459 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3460 f
->output_data
.x
->menubar_widget
,
3461 f
->output_data
.x
->edit_widget
);
3462 #endif /* not USE_GTK */
3464 #endif /* USE_X_TOOLKIT || USE_GTK */
3466 /* Tell the server what size and position, etc, we want, and how
3467 badly we want them. This should be done after we have the menu
3468 bar so that its size can be taken into account. */
3470 x_wm_set_size_hint (f
, window_prompting
, 0);
3473 /* Make the window appear on the frame and enable display, unless
3474 the caller says not to. However, with explicit parent, Emacs
3475 cannot control visibility, so don't try. */
3476 if (! f
->output_data
.x
->explicit_parent
)
3478 Lisp_Object visibility
;
3480 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3482 if (EQ (visibility
, Qunbound
))
3485 if (EQ (visibility
, Qicon
))
3486 x_iconify_frame (f
);
3487 else if (! NILP (visibility
))
3488 x_make_frame_visible (f
);
3490 /* Must have been Qnil. */
3496 /* Set machine name and pid for the purpose of window managers. */
3497 set_machine_and_pid_properties(f
);
3499 /* Set the WM leader property. GTK does this itself, so this is not
3500 needed when using GTK. */
3501 if (dpyinfo
->client_leader_window
!= 0)
3503 XChangeProperty (FRAME_X_DISPLAY (f
),
3504 FRAME_OUTER_WINDOW (f
),
3505 dpyinfo
->Xatom_wm_client_leader
,
3506 XA_WINDOW
, 32, PropModeReplace
,
3507 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3512 /* Initialize `default-minibuffer-frame' in case this is the first
3513 frame on this terminal. */
3514 if (FRAME_HAS_MINIBUF_P (f
)
3515 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3516 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3517 kb
->Vdefault_minibuffer_frame
= frame
;
3519 /* All remaining specified parameters, which have not been "used"
3520 by x_get_arg and friends, now go in the misc. alist of the frame. */
3521 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3522 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3523 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3527 /* Make sure windows on this frame appear in calls to next-window
3528 and similar functions. */
3529 Vwindow_list
= Qnil
;
3531 return unbind_to (count
, frame
);
3535 /* FRAME is used only to get a handle on the X display. We don't pass the
3536 display info directly because we're called from frame.c, which doesn't
3537 know about that structure. */
3540 x_get_focus_frame (struct frame
*frame
)
3542 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3544 if (! dpyinfo
->x_focus_frame
)
3547 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3552 /* In certain situations, when the window manager follows a
3553 click-to-focus policy, there seems to be no way around calling
3554 XSetInputFocus to give another frame the input focus .
3556 In an ideal world, XSetInputFocus should generally be avoided so
3557 that applications don't interfere with the window manager's focus
3558 policy. But I think it's okay to use when it's clearly done
3559 following a user-command. */
3561 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3562 doc
: /* Set the input focus to FRAME.
3563 FRAME nil means use the selected frame. */)
3566 struct frame
*f
= check_x_frame (frame
);
3567 Display
*dpy
= FRAME_X_DISPLAY (f
);
3570 x_catch_errors (dpy
);
3571 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3572 RevertToParent
, CurrentTime
);
3573 x_ewmh_activate_frame (f
);
3574 x_uncatch_errors ();
3581 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3582 doc
: /* Internal function called by `color-defined-p', which see. */)
3583 (Lisp_Object color
, Lisp_Object frame
)
3586 FRAME_PTR f
= check_x_frame (frame
);
3588 CHECK_STRING (color
);
3590 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3596 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3597 doc
: /* Internal function called by `color-values', which see. */)
3598 (Lisp_Object color
, Lisp_Object frame
)
3601 FRAME_PTR f
= check_x_frame (frame
);
3603 CHECK_STRING (color
);
3605 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3606 return list3 (make_number (foo
.red
),
3607 make_number (foo
.green
),
3608 make_number (foo
.blue
));
3613 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3614 doc
: /* Internal function called by `display-color-p', which see. */)
3615 (Lisp_Object terminal
)
3617 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3619 if (dpyinfo
->n_planes
<= 2)
3622 switch (dpyinfo
->visual
->class)
3635 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3637 doc
: /* Return t if the X display supports shades of gray.
3638 Note that color displays do support shades of gray.
3639 The optional argument TERMINAL specifies which display to ask about.
3640 TERMINAL should be a terminal object, a frame or a display name (a string).
3641 If omitted or nil, that stands for the selected frame's display. */)
3642 (Lisp_Object terminal
)
3644 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3646 if (dpyinfo
->n_planes
<= 1)
3649 switch (dpyinfo
->visual
->class)
3664 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3666 doc
: /* Return the width in pixels of the X display TERMINAL.
3667 The optional argument TERMINAL specifies which display to ask about.
3668 TERMINAL should be a terminal object, a frame or a display name (a string).
3669 If omitted or nil, that stands for the selected frame's display. */)
3670 (Lisp_Object terminal
)
3672 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3674 return make_number (x_display_pixel_width (dpyinfo
));
3677 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3678 Sx_display_pixel_height
, 0, 1, 0,
3679 doc
: /* Return the height in pixels of the X display TERMINAL.
3680 The optional argument TERMINAL specifies which display to ask about.
3681 TERMINAL should be a terminal object, a frame or a display name (a string).
3682 If omitted or nil, that stands for the selected frame's display. */)
3683 (Lisp_Object terminal
)
3685 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3687 return make_number (x_display_pixel_height (dpyinfo
));
3690 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3692 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3693 The optional argument TERMINAL specifies which display to ask about.
3694 TERMINAL should be a terminal object, a frame or a display name (a string).
3695 If omitted or nil, that stands for the selected frame's display. */)
3696 (Lisp_Object terminal
)
3698 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3700 return make_number (dpyinfo
->n_planes
);
3703 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3705 doc
: /* Return the number of color cells of the X display TERMINAL.
3706 The optional argument TERMINAL specifies which display to ask about.
3707 TERMINAL should be a terminal object, a frame or a display name (a string).
3708 If omitted or nil, that stands for the selected frame's display. */)
3709 (Lisp_Object terminal
)
3711 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3713 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3714 XScreenNumberOfScreen (dpyinfo
->screen
));
3716 /* Truncate nr_planes to 24 to avoid integer overflow.
3717 Some displays says 32, but only 24 bits are actually significant.
3718 There are only very few and rare video cards that have more than
3719 24 significant bits. Also 24 bits is more than 16 million colors,
3720 it "should be enough for everyone". */
3721 if (nr_planes
> 24) nr_planes
= 24;
3723 return make_number (1 << nr_planes
);
3726 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3727 Sx_server_max_request_size
,
3729 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3730 The optional argument TERMINAL specifies which display to ask about.
3731 TERMINAL should be a terminal object, a frame or a display name (a string).
3732 If omitted or nil, that stands for the selected frame's display. */)
3733 (Lisp_Object terminal
)
3735 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3737 return make_number (MAXREQUEST (dpyinfo
->display
));
3740 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3741 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3742 \(Labelling every distributor as a "vendor" embodies the false assumption
3743 that operating systems cannot be developed and distributed noncommercially.)
3744 The optional argument TERMINAL specifies which display to ask about.
3745 TERMINAL should be a terminal object, a frame or a display name (a string).
3746 If omitted or nil, that stands for the selected frame's display. */)
3747 (Lisp_Object terminal
)
3749 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3750 const char *vendor
= ServerVendor (dpyinfo
->display
);
3752 if (! vendor
) vendor
= "";
3753 return build_string (vendor
);
3756 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3757 doc
: /* Return the version numbers of the X server of display TERMINAL.
3758 The value is a list of three integers: the major and minor
3759 version numbers of the X Protocol in use, and the distributor-specific release
3760 number. See also the function `x-server-vendor'.
3762 The optional argument TERMINAL specifies which display to ask about.
3763 TERMINAL should be a terminal object, a frame or a display name (a string).
3764 If omitted or nil, that stands for the selected frame's display. */)
3765 (Lisp_Object terminal
)
3767 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3768 Display
*dpy
= dpyinfo
->display
;
3770 return Fcons (make_number (ProtocolVersion (dpy
)),
3771 Fcons (make_number (ProtocolRevision (dpy
)),
3772 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3775 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3776 doc
: /* Return the number of screens on the X server of display TERMINAL.
3777 The optional argument TERMINAL specifies which display to ask about.
3778 TERMINAL should be a terminal object, a frame or a display name (a string).
3779 If omitted or nil, that stands for the selected frame's display. */)
3780 (Lisp_Object terminal
)
3782 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3784 return make_number (ScreenCount (dpyinfo
->display
));
3787 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3788 doc
: /* Return the height in millimeters of the X display TERMINAL.
3789 The optional argument TERMINAL specifies which display to ask about.
3790 TERMINAL should be a terminal object, a frame or a display name (a string).
3791 If omitted or nil, that stands for the selected frame's display. */)
3792 (Lisp_Object terminal
)
3794 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3796 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3799 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3800 doc
: /* Return the width in millimeters of the X display TERMINAL.
3801 The optional argument TERMINAL specifies which display to ask about.
3802 TERMINAL should be a terminal object, a frame or a display name (a string).
3803 If omitted or nil, that stands for the selected frame's display. */)
3804 (Lisp_Object terminal
)
3806 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3808 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3811 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3812 Sx_display_backing_store
, 0, 1, 0,
3813 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3814 The value may be `always', `when-mapped', or `not-useful'.
3815 The optional argument TERMINAL specifies which display to ask about.
3816 TERMINAL should be a terminal object, a frame or a display name (a string).
3817 If omitted or nil, that stands for the selected frame's display. */)
3818 (Lisp_Object terminal
)
3820 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3823 switch (DoesBackingStore (dpyinfo
->screen
))
3826 result
= intern ("always");
3830 result
= intern ("when-mapped");
3834 result
= intern ("not-useful");
3838 error ("Strange value for BackingStore parameter of screen");
3845 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3846 Sx_display_visual_class
, 0, 1, 0,
3847 doc
: /* Return the visual class of the X display TERMINAL.
3848 The value is one of the symbols `static-gray', `gray-scale',
3849 `static-color', `pseudo-color', `true-color', or `direct-color'.
3851 The optional argument TERMINAL specifies which display to ask about.
3852 TERMINAL should a terminal object, a frame or a display name (a string).
3853 If omitted or nil, that stands for the selected frame's display. */)
3854 (Lisp_Object terminal
)
3856 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3859 switch (dpyinfo
->visual
->class)
3862 result
= intern ("static-gray");
3865 result
= intern ("gray-scale");
3868 result
= intern ("static-color");
3871 result
= intern ("pseudo-color");
3874 result
= intern ("true-color");
3877 result
= intern ("direct-color");
3880 error ("Display has an unknown visual class");
3887 DEFUN ("x-display-save-under", Fx_display_save_under
,
3888 Sx_display_save_under
, 0, 1, 0,
3889 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3890 The optional argument TERMINAL specifies which display to ask about.
3891 TERMINAL should be a terminal object, a frame or a display name (a string).
3892 If omitted or nil, that stands for the selected frame's display. */)
3893 (Lisp_Object terminal
)
3895 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3897 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3904 x_pixel_width (register struct frame
*f
)
3906 return FRAME_PIXEL_WIDTH (f
);
3910 x_pixel_height (register struct frame
*f
)
3912 return FRAME_PIXEL_HEIGHT (f
);
3916 x_char_width (register struct frame
*f
)
3918 return FRAME_COLUMN_WIDTH (f
);
3922 x_char_height (register struct frame
*f
)
3924 return FRAME_LINE_HEIGHT (f
);
3928 x_screen_planes (register struct frame
*f
)
3930 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3935 /************************************************************************
3937 ************************************************************************/
3940 /* Mapping visual names to visuals. */
3942 static struct visual_class
3949 {"StaticGray", StaticGray
},
3950 {"GrayScale", GrayScale
},
3951 {"StaticColor", StaticColor
},
3952 {"PseudoColor", PseudoColor
},
3953 {"TrueColor", TrueColor
},
3954 {"DirectColor", DirectColor
},
3959 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3961 /* Value is the screen number of screen SCR. This is a substitute for
3962 the X function with the same name when that doesn't exist. */
3965 XScreenNumberOfScreen (scr
)
3966 register Screen
*scr
;
3968 Display
*dpy
= scr
->display
;
3971 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3972 if (scr
== dpy
->screens
+ i
)
3978 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3981 /* Select the visual that should be used on display DPYINFO. Set
3982 members of DPYINFO appropriately. Called from x_term_init. */
3985 select_visual (struct x_display_info
*dpyinfo
)
3987 Display
*dpy
= dpyinfo
->display
;
3988 Screen
*screen
= dpyinfo
->screen
;
3991 /* See if a visual is specified. */
3992 value
= display_x_get_resource (dpyinfo
,
3993 build_string ("visualClass"),
3994 build_string ("VisualClass"),
3996 if (STRINGP (value
))
3998 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3999 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4000 depth, a decimal number. NAME is compared with case ignored. */
4001 char *s
= (char *) alloca (SBYTES (value
) + 1);
4006 strcpy (s
, SDATA (value
));
4007 dash
= strchr (s
, '-');
4010 dpyinfo
->n_planes
= atoi (dash
+ 1);
4014 /* We won't find a matching visual with depth 0, so that
4015 an error will be printed below. */
4016 dpyinfo
->n_planes
= 0;
4018 /* Determine the visual class. */
4019 for (i
= 0; visual_classes
[i
].name
; ++i
)
4020 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4022 class = visual_classes
[i
].class;
4026 /* Look up a matching visual for the specified class. */
4028 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4029 dpyinfo
->n_planes
, class, &vinfo
))
4030 fatal ("Invalid visual specification `%s'", SDATA (value
));
4032 dpyinfo
->visual
= vinfo
.visual
;
4037 XVisualInfo
*vinfo
, vinfo_template
;
4039 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4041 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4042 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4043 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4044 &vinfo_template
, &n_visuals
);
4046 fatal ("Can't get proper X visual info");
4048 dpyinfo
->n_planes
= vinfo
->depth
;
4049 XFree ((char *) vinfo
);
4054 /* Return the X display structure for the display named NAME.
4055 Open a new connection if necessary. */
4057 struct x_display_info
*
4058 x_display_info_for_name (Lisp_Object name
)
4061 struct x_display_info
*dpyinfo
;
4063 CHECK_STRING (name
);
4066 if (! EQ (Vinitial_window_system
, intern ("x")))
4067 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4070 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4072 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4075 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4080 /* Use this general default value to start with. */
4081 Vx_resource_name
= Vinvocation_name
;
4083 validate_x_resource_name ();
4085 dpyinfo
= x_term_init (name
, (char *)0,
4086 (char *) SDATA (Vx_resource_name
));
4089 error ("Cannot connect to X server %s", SDATA (name
));
4092 XSETFASTINT (Vwindow_system_version
, 11);
4098 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4100 doc
: /* Open a connection to an X server.
4101 DISPLAY is the name of the display to connect to.
4102 Optional second arg XRM-STRING is a string of resources in xrdb format.
4103 If the optional third arg MUST-SUCCEED is non-nil,
4104 terminate Emacs if we can't open the connection. */)
4105 (Lisp_Object display
, Lisp_Object xrm_string
, Lisp_Object must_succeed
)
4107 unsigned char *xrm_option
;
4108 struct x_display_info
*dpyinfo
;
4110 CHECK_STRING (display
);
4111 if (! NILP (xrm_string
))
4112 CHECK_STRING (xrm_string
);
4115 if (! EQ (Vinitial_window_system
, intern ("x")))
4116 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4119 if (! NILP (xrm_string
))
4120 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4122 xrm_option
= (unsigned char *) 0;
4124 validate_x_resource_name ();
4126 /* This is what opens the connection and sets x_current_display.
4127 This also initializes many symbols, such as those used for input. */
4128 dpyinfo
= x_term_init (display
, xrm_option
,
4129 (char *) SDATA (Vx_resource_name
));
4133 if (!NILP (must_succeed
))
4134 fatal ("Cannot connect to X server %s.\n\
4135 Check the DISPLAY environment variable or use `-d'.\n\
4136 Also use the `xauth' program to verify that you have the proper\n\
4137 authorization information needed to connect the X server.\n\
4138 An insecure way to solve the problem may be to use `xhost'.\n",
4141 error ("Cannot connect to X server %s", SDATA (display
));
4146 XSETFASTINT (Vwindow_system_version
, 11);
4150 DEFUN ("x-close-connection", Fx_close_connection
,
4151 Sx_close_connection
, 1, 1, 0,
4152 doc
: /* Close the connection to TERMINAL's X server.
4153 For TERMINAL, specify a terminal object, a frame or a display name (a
4154 string). If TERMINAL is nil, that stands for the selected frame's
4156 (Lisp_Object terminal
)
4158 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4160 if (dpyinfo
->reference_count
> 0)
4161 error ("Display still has frames on it");
4163 x_delete_terminal (dpyinfo
->terminal
);
4168 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4169 doc
: /* Return the list of display names that Emacs has connections to. */)
4172 Lisp_Object tail
, result
;
4175 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4176 result
= Fcons (XCAR (XCAR (tail
)), result
);
4181 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4182 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4183 If ON is nil, allow buffering of requests.
4184 Turning on synchronization prohibits the Xlib routines from buffering
4185 requests and seriously degrades performance, but makes debugging much
4187 The optional second argument TERMINAL specifies which display to act on.
4188 TERMINAL should be a terminal object, a frame or a display name (a string).
4189 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4190 (Lisp_Object on
, Lisp_Object terminal
)
4192 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4194 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4199 /* Wait for responses to all X commands issued so far for frame F. */
4202 x_sync (FRAME_PTR f
)
4205 XSync (FRAME_X_DISPLAY (f
), False
);
4210 /***********************************************************************
4212 ***********************************************************************/
4214 DEFUN ("x-change-window-property", Fx_change_window_property
,
4215 Sx_change_window_property
, 2, 6, 0,
4216 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4217 PROP must be a string.
4218 VALUE may be a string or a list of conses, numbers and/or strings.
4219 If an element in the list is a string, it is converted to
4220 an Atom and the value of the Atom is used. If an element is a cons,
4221 it is converted to a 32 bit number where the car is the 16 top bits and the
4222 cdr is the lower 16 bits.
4223 FRAME nil or omitted means use the selected frame.
4224 If TYPE is given and non-nil, it is the name of the type of VALUE.
4225 If TYPE is not given or nil, the type is STRING.
4226 FORMAT gives the size in bits of each element if VALUE is a list.
4227 It must be one of 8, 16 or 32.
4228 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4229 If OUTER_P is non-nil, the property is changed for the outer X window of
4230 FRAME. Default is to change on the edit X window.
4233 (Lisp_Object prop
, Lisp_Object value
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object format
, Lisp_Object outer_p
)
4235 struct frame
*f
= check_x_frame (frame
);
4237 Atom target_type
= XA_STRING
;
4238 int element_format
= 8;
4239 unsigned char *data
;
4243 CHECK_STRING (prop
);
4245 if (! NILP (format
))
4247 CHECK_NUMBER (format
);
4248 element_format
= XFASTINT (format
);
4250 if (element_format
!= 8 && element_format
!= 16
4251 && element_format
!= 32)
4252 error ("FORMAT must be one of 8, 16 or 32");
4257 nelements
= x_check_property_data (value
);
4258 if (nelements
== -1)
4259 error ("Bad data in VALUE, must be number, string or cons");
4261 if (element_format
== 8)
4262 data
= (unsigned char *) xmalloc (nelements
);
4263 else if (element_format
== 16)
4264 data
= (unsigned char *) xmalloc (nelements
*2);
4265 else /* format == 32 */
4266 /* The man page for XChangeProperty:
4267 "If the specified format is 32, the property data must be a
4269 This applies even if long is more than 64 bits. The X library
4270 converts to 32 bits before sending to the X server. */
4271 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4273 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4277 CHECK_STRING (value
);
4278 data
= SDATA (value
);
4279 nelements
= SCHARS (value
);
4283 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4286 CHECK_STRING (type
);
4287 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4290 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4291 else w
= FRAME_X_WINDOW (f
);
4293 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4294 prop_atom
, target_type
, element_format
, PropModeReplace
,
4297 if (CONSP (value
)) xfree (data
);
4299 /* Make sure the property is set when we return. */
4300 XFlush (FRAME_X_DISPLAY (f
));
4307 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4308 Sx_delete_window_property
, 1, 2, 0,
4309 doc
: /* Remove window property PROP from X window of FRAME.
4310 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4311 (Lisp_Object prop
, Lisp_Object frame
)
4313 struct frame
*f
= check_x_frame (frame
);
4316 CHECK_STRING (prop
);
4318 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4319 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4321 /* Make sure the property is removed when we return. */
4322 XFlush (FRAME_X_DISPLAY (f
));
4329 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4331 doc
: /* Value is the value of window property PROP on FRAME.
4332 If FRAME is nil or omitted, use the selected frame.
4333 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4334 is the name of the Atom that denotes the type expected.
4335 If SOURCE is non-nil, get the property on that window instead of from
4336 FRAME. The number 0 denotes the root window.
4337 If DELETE_P is non-nil, delete the property after retreiving it.
4338 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4340 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4341 no value of TYPE. */)
4342 (Lisp_Object prop
, Lisp_Object frame
, Lisp_Object type
, Lisp_Object source
, Lisp_Object delete_p
, Lisp_Object vector_ret_p
)
4344 struct frame
*f
= check_x_frame (frame
);
4347 Lisp_Object prop_value
= Qnil
;
4348 unsigned char *tmp_data
= NULL
;
4350 Atom target_type
= XA_STRING
;
4352 unsigned long actual_size
, bytes_remaining
;
4353 Window target_window
= FRAME_X_WINDOW (f
);
4354 struct gcpro gcpro1
;
4356 GCPRO1 (prop_value
);
4357 CHECK_STRING (prop
);
4359 if (! NILP (source
))
4361 if (NUMBERP (source
))
4363 if (FLOATP (source
))
4364 target_window
= (Window
) XFLOAT (source
);
4366 target_window
= XFASTINT (source
);
4368 if (target_window
== 0)
4369 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4371 else if (CONSP (source
))
4372 target_window
= cons_to_long (source
);
4378 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4379 target_type
= AnyPropertyType
;
4381 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4384 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4385 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4386 prop_atom
, 0, 0, False
, target_type
,
4387 &actual_type
, &actual_format
, &actual_size
,
4388 &bytes_remaining
, &tmp_data
);
4391 int size
= bytes_remaining
;
4396 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4397 prop_atom
, 0, bytes_remaining
,
4398 ! NILP (delete_p
), target_type
,
4399 &actual_type
, &actual_format
,
4400 &actual_size
, &bytes_remaining
,
4402 if (rc
== Success
&& tmp_data
)
4404 /* The man page for XGetWindowProperty says:
4405 "If the returned format is 32, the returned data is represented
4406 as a long array and should be cast to that type to obtain the
4408 This applies even if long is more than 32 bits, the X library
4409 converts from 32 bit elements received from the X server to long
4410 and passes the long array to us. Thus, for that case memcpy can not
4411 be used. We convert to a 32 bit type here, because so much code
4414 The bytes and offsets passed to XGetWindowProperty refers to the
4415 property and those are indeed in 32 bit quantities if format is
4418 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4421 int *idata
= (int *) tmp_data
;
4422 long *ldata
= (long *) tmp_data
;
4424 for (i
= 0; i
< actual_size
; ++i
)
4425 idata
[i
] = (int) ldata
[i
];
4428 if (NILP (vector_ret_p
))
4429 prop_value
= make_string (tmp_data
, size
);
4431 prop_value
= x_property_data_to_lisp (f
,
4438 if (tmp_data
) XFree (tmp_data
);
4448 /***********************************************************************
4450 ***********************************************************************/
4452 /* Timer function of hourglass_atimer. TIMER is equal to
4455 Display an hourglass pointer on all frames by mapping the frames'
4456 hourglass_window. Set the hourglass_p flag in the frames'
4457 output_data.x structure to indicate that an hourglass cursor is
4458 shown on the frames. */
4461 show_hourglass (struct atimer
*timer
)
4463 /* The timer implementation will cancel this timer automatically
4464 after this function has run. Set hourglass_atimer to null
4465 so that we know the timer doesn't have to be canceled. */
4466 hourglass_atimer
= NULL
;
4468 if (!hourglass_shown_p
)
4470 Lisp_Object rest
, frame
;
4474 FOR_EACH_FRAME (rest
, frame
)
4476 struct frame
*f
= XFRAME (frame
);
4478 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4480 Display
*dpy
= FRAME_X_DISPLAY (f
);
4482 #ifdef USE_X_TOOLKIT
4483 if (f
->output_data
.x
->widget
)
4485 if (FRAME_OUTER_WINDOW (f
))
4488 f
->output_data
.x
->hourglass_p
= 1;
4490 if (!f
->output_data
.x
->hourglass_window
)
4492 unsigned long mask
= CWCursor
;
4493 XSetWindowAttributes attrs
;
4495 Window parent
= FRAME_X_WINDOW (f
);
4497 Window parent
= FRAME_OUTER_WINDOW (f
);
4499 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4501 f
->output_data
.x
->hourglass_window
4502 = XCreateWindow (dpy
, parent
,
4503 0, 0, 32000, 32000, 0, 0,
4509 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4515 hourglass_shown_p
= 1;
4521 /* Hide the hourglass pointer on all frames, if it is currently
4525 hide_hourglass (void)
4527 if (hourglass_shown_p
)
4529 Lisp_Object rest
, frame
;
4532 FOR_EACH_FRAME (rest
, frame
)
4534 struct frame
*f
= XFRAME (frame
);
4537 /* Watch out for newly created frames. */
4538 && f
->output_data
.x
->hourglass_window
)
4540 XUnmapWindow (FRAME_X_DISPLAY (f
),
4541 f
->output_data
.x
->hourglass_window
);
4542 /* Sync here because XTread_socket looks at the
4543 hourglass_p flag that is reset to zero below. */
4544 XSync (FRAME_X_DISPLAY (f
), False
);
4545 f
->output_data
.x
->hourglass_p
= 0;
4549 hourglass_shown_p
= 0;
4556 /***********************************************************************
4558 ***********************************************************************/
4560 static Lisp_Object
x_create_tip_frame (struct x_display_info
*,
4561 Lisp_Object
, Lisp_Object
);
4562 static void compute_tip_xy (struct frame
*, Lisp_Object
, Lisp_Object
,
4563 Lisp_Object
, int, int, int *, int *);
4565 /* The frame of a currently visible tooltip. */
4567 Lisp_Object tip_frame
;
4569 /* If non-nil, a timer started that hides the last tooltip when it
4572 Lisp_Object tip_timer
;
4575 /* If non-nil, a vector of 3 elements containing the last args
4576 with which x-show-tip was called. See there. */
4578 Lisp_Object last_show_tip_args
;
4580 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4582 Lisp_Object Vx_max_tooltip_size
;
4586 unwind_create_tip_frame (Lisp_Object frame
)
4588 Lisp_Object deleted
;
4590 deleted
= unwind_create_frame (frame
);
4591 if (EQ (deleted
, Qt
))
4601 /* Create a frame for a tooltip on the display described by DPYINFO.
4602 PARMS is a list of frame parameters. TEXT is the string to
4603 display in the tip frame. Value is the frame.
4605 Note that functions called here, esp. x_default_parameter can
4606 signal errors, for instance when a specified color name is
4607 undefined. We have to make sure that we're in a consistent state
4608 when this happens. */
4611 x_create_tip_frame (struct x_display_info
*dpyinfo
,
4616 Lisp_Object frame
, tem
;
4618 long window_prompting
= 0;
4620 int count
= SPECPDL_INDEX ();
4621 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4622 int face_change_count_before
= face_change_count
;
4624 struct buffer
*old_buffer
;
4628 if (!dpyinfo
->terminal
->name
)
4629 error ("Terminal is not live, can't create new frames on it");
4631 parms
= Fcopy_alist (parms
);
4633 /* Get the name of the frame to use for resource lookup. */
4634 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4636 && !EQ (name
, Qunbound
)
4638 error ("Invalid frame name--not a string or nil");
4641 GCPRO3 (parms
, name
, frame
);
4643 XSETFRAME (frame
, f
);
4645 buffer
= Fget_buffer_create (build_string (" *tip*"));
4646 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4647 old_buffer
= current_buffer
;
4648 set_buffer_internal_1 (XBUFFER (buffer
));
4649 current_buffer
->truncate_lines
= Qnil
;
4650 specbind (Qinhibit_read_only
, Qt
);
4651 specbind (Qinhibit_modification_hooks
, Qt
);
4654 set_buffer_internal_1 (old_buffer
);
4656 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4657 record_unwind_protect (unwind_create_tip_frame
, frame
);
4659 f
->terminal
= dpyinfo
->terminal
;
4660 f
->terminal
->reference_count
++;
4662 /* By setting the output method, we're essentially saying that
4663 the frame is live, as per FRAME_LIVE_P. If we get a signal
4664 from this point on, x_destroy_window might screw up reference
4666 f
->output_method
= output_x_window
;
4667 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4668 memset (f
->output_data
.x
, 0, sizeof (struct x_output
));
4669 f
->output_data
.x
->icon_bitmap
= -1;
4670 FRAME_FONTSET (f
) = -1;
4671 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4672 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4673 #ifdef USE_TOOLKIT_SCROLL_BARS
4674 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4675 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4676 #endif /* USE_TOOLKIT_SCROLL_BARS */
4677 f
->icon_name
= Qnil
;
4678 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4680 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
4681 dpyinfo_refcount
= dpyinfo
->reference_count
;
4682 #endif /* GLYPH_DEBUG */
4683 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4684 f
->output_data
.x
->explicit_parent
= 0;
4686 /* These colors will be set anyway later, but it's important
4687 to get the color reference counts right, so initialize them! */
4690 struct gcpro gcpro1
;
4692 /* Function x_decode_color can signal an error. Make
4693 sure to initialize color slots so that we won't try
4694 to free colors we haven't allocated. */
4695 FRAME_FOREGROUND_PIXEL (f
) = -1;
4696 FRAME_BACKGROUND_PIXEL (f
) = -1;
4697 f
->output_data
.x
->cursor_pixel
= -1;
4698 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4699 f
->output_data
.x
->border_pixel
= -1;
4700 f
->output_data
.x
->mouse_pixel
= -1;
4702 black
= build_string ("black");
4704 FRAME_FOREGROUND_PIXEL (f
)
4705 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4706 FRAME_BACKGROUND_PIXEL (f
)
4707 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4708 f
->output_data
.x
->cursor_pixel
4709 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4710 f
->output_data
.x
->cursor_foreground_pixel
4711 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4712 f
->output_data
.x
->border_pixel
4713 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4714 f
->output_data
.x
->mouse_pixel
4715 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4719 /* Set the name; the functions to which we pass f expect the name to
4721 if (EQ (name
, Qunbound
) || NILP (name
))
4723 f
->name
= build_string (dpyinfo
->x_id_name
);
4724 f
->explicit_name
= 0;
4729 f
->explicit_name
= 1;
4730 /* use the frame's title when getting resources for this frame. */
4731 specbind (Qx_resource_name
, name
);
4734 f
->resx
= dpyinfo
->resx
;
4735 f
->resy
= dpyinfo
->resy
;
4737 register_font_driver (&xfont_driver
, f
);
4738 #ifdef HAVE_FREETYPE
4740 register_font_driver (&xftfont_driver
, f
);
4741 #else /* not HAVE_XFT */
4742 register_font_driver (&ftxfont_driver
, f
);
4743 #endif /* not HAVE_XFT */
4744 #endif /* HAVE_FREETYPE */
4746 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4747 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4749 /* Extract the window parameters from the supplied values that are
4750 needed to determine window geometry. */
4751 x_default_font_parameter (f
, parms
);
4753 x_default_parameter (f
, parms
, Qborder_width
, make_number (0),
4754 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4756 /* This defaults to 2 in order to match xterm. We recognize either
4757 internalBorderWidth or internalBorder (which is what xterm calls
4759 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4763 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4764 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4765 if (! EQ (value
, Qunbound
))
4766 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4770 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4771 "internalBorderWidth", "internalBorderWidth",
4774 /* Also do the stuff which must be set before the window exists. */
4775 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4776 "foreground", "Foreground", RES_TYPE_STRING
);
4777 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4778 "background", "Background", RES_TYPE_STRING
);
4779 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4780 "pointerColor", "Foreground", RES_TYPE_STRING
);
4781 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4782 "cursorColor", "Foreground", RES_TYPE_STRING
);
4783 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4784 "borderColor", "BorderColor", RES_TYPE_STRING
);
4786 /* Init faces before x_default_parameter is called for scroll-bar
4787 parameters because that function calls x_set_scroll_bar_width,
4788 which calls change_frame_size, which calls Fset_window_buffer,
4789 which runs hooks, which call Fvertical_motion. At the end, we
4790 end up in init_iterator with a null face cache, which should not
4792 init_frame_faces (f
);
4794 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4796 window_prompting
= x_figure_window_size (f
, parms
, 0);
4799 XSetWindowAttributes attrs
;
4801 Atom type
= FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
4804 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4805 if (DoesSaveUnders (dpyinfo
->screen
))
4806 mask
|= CWSaveUnder
;
4808 /* Window managers look at the override-redirect flag to determine
4809 whether or net to give windows a decoration (Xlib spec, chapter
4811 attrs
.override_redirect
= True
;
4812 attrs
.save_under
= True
;
4813 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4814 /* Arrange for getting MapNotify and UnmapNotify events. */
4815 attrs
.event_mask
= StructureNotifyMask
;
4817 = FRAME_X_WINDOW (f
)
4818 = XCreateWindow (FRAME_X_DISPLAY (f
),
4819 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4820 /* x, y, width, height */
4824 CopyFromParent
, InputOutput
, CopyFromParent
,
4826 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
4827 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type
,
4828 XA_ATOM
, 32, PropModeReplace
,
4829 (unsigned char *)&type
, 1);
4835 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4836 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4837 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4838 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4839 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4840 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4842 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4843 Change will not be effected unless different from the current
4845 width
= FRAME_COLS (f
);
4846 height
= FRAME_LINES (f
);
4847 SET_FRAME_COLS (f
, 0);
4848 FRAME_LINES (f
) = 0;
4849 change_frame_size (f
, height
, width
, 1, 0, 0);
4851 /* Add `tooltip' frame parameter's default value. */
4852 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
4853 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qtooltip
, Qt
), Qnil
));
4855 /* FIXME - can this be done in a similar way to normal frames?
4856 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
4858 /* Set the `display-type' frame parameter before setting up faces. */
4860 Lisp_Object disptype
;
4862 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4863 disptype
= intern ("mono");
4864 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
4865 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4866 disptype
= intern ("grayscale");
4868 disptype
= intern ("color");
4870 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4871 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4875 /* Set up faces after all frame parameters are known. This call
4876 also merges in face attributes specified for new frames.
4878 Frame parameters may be changed if .Xdefaults contains
4879 specifications for the default font. For example, if there is an
4880 `Emacs.default.attributeBackground: pink', the `background-color'
4881 attribute of the frame get's set, which let's the internal border
4882 of the tooltip frame appear in pink. Prevent this. */
4884 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4886 /* Set tip_frame here, so that */
4888 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
4890 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4891 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4899 /* It is now ok to make the frame official even if we get an error
4900 below. And the frame needs to be on Vframe_list or making it
4901 visible won't work. */
4902 Vframe_list
= Fcons (frame
, Vframe_list
);
4904 /* Now that the frame is official, it counts as a reference to
4906 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4908 /* Setting attributes of faces of the tooltip frame from resources
4909 and similar will increment face_change_count, which leads to the
4910 clearing of all current matrices. Since this isn't necessary
4911 here, avoid it by resetting face_change_count to the value it
4912 had before we created the tip frame. */
4913 face_change_count
= face_change_count_before
;
4915 /* Discard the unwind_protect. */
4916 return unbind_to (count
, frame
);
4920 /* Compute where to display tip frame F. PARMS is the list of frame
4921 parameters for F. DX and DY are specified offsets from the current
4922 location of the mouse. WIDTH and HEIGHT are the width and height
4923 of the tooltip. Return coordinates relative to the root window of
4924 the display in *ROOT_X, and *ROOT_Y. */
4927 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
)
4929 Lisp_Object left
, top
;
4934 /* User-specified position? */
4935 left
= Fcdr (Fassq (Qleft
, parms
));
4936 top
= Fcdr (Fassq (Qtop
, parms
));
4938 /* Move the tooltip window where the mouse pointer is. Resize and
4940 if (!INTEGERP (left
) || !INTEGERP (top
))
4943 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4944 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4949 *root_y
= XINT (top
);
4950 else if (*root_y
+ XINT (dy
) <= 0)
4951 *root_y
= 0; /* Can happen for negative dy */
4952 else if (*root_y
+ XINT (dy
) + height
4953 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
4954 /* It fits below the pointer */
4955 *root_y
+= XINT (dy
);
4956 else if (height
+ XINT (dy
) <= *root_y
)
4957 /* It fits above the pointer. */
4958 *root_y
-= height
+ XINT (dy
);
4960 /* Put it on the top. */
4963 if (INTEGERP (left
))
4964 *root_x
= XINT (left
);
4965 else if (*root_x
+ XINT (dx
) <= 0)
4966 *root_x
= 0; /* Can happen for negative dx */
4967 else if (*root_x
+ XINT (dx
) + width
4968 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
4969 /* It fits to the right of the pointer. */
4970 *root_x
+= XINT (dx
);
4971 else if (width
+ XINT (dx
) <= *root_x
)
4972 /* It fits to the left of the pointer. */
4973 *root_x
-= width
+ XINT (dx
);
4975 /* Put it left-justified on the screen--it ought to fit that way. */
4980 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
4981 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
4982 A tooltip window is a small X window displaying a string.
4984 This is an internal function; Lisp code should call `tooltip-show'.
4986 FRAME nil or omitted means use the selected frame.
4988 PARMS is an optional list of frame parameters which can be used to
4989 change the tooltip's appearance.
4991 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
4992 means use the default timeout of 5 seconds.
4994 If the list of frame parameters PARAMS contains a `left' parameters,
4995 the tooltip is displayed at that x-position. Otherwise it is
4996 displayed at the mouse position, with offset DX added (default is 5 if
4997 DX isn't specified). Likewise for the y-position; if a `top' frame
4998 parameter is specified, it determines the y-position of the tooltip
4999 window, otherwise it is displayed at the mouse position, with offset
5000 DY added (default is -10).
5002 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5003 Text larger than the specified size is clipped. */)
5004 (Lisp_Object string
, Lisp_Object frame
, Lisp_Object parms
, Lisp_Object timeout
, Lisp_Object dx
, Lisp_Object dy
)
5009 struct buffer
*old_buffer
;
5010 struct text_pos pos
;
5011 int i
, width
, height
;
5012 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5013 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5014 int count
= SPECPDL_INDEX ();
5016 specbind (Qinhibit_redisplay
, Qt
);
5018 GCPRO4 (string
, parms
, frame
, timeout
);
5020 CHECK_STRING (string
);
5021 if (SCHARS (string
) == 0)
5022 string
= make_unibyte_string (" ", 1);
5024 f
= check_x_frame (frame
);
5026 timeout
= make_number (5);
5028 CHECK_NATNUM (timeout
);
5031 dx
= make_number (5);
5036 dy
= make_number (-10);
5041 if (x_gtk_use_system_tooltips
)
5045 /* Hide a previous tip, if any. */
5049 if ((ok
= xg_prepare_tooltip (f
, string
, &width
, &height
)) != 0)
5051 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5052 xg_show_tooltip (f
, root_x
, root_y
);
5053 /* This is used in Fx_hide_tip. */
5054 XSETFRAME (tip_frame
, f
);
5057 if (ok
) goto start_timer
;
5059 #endif /* USE_GTK */
5061 if (NILP (last_show_tip_args
))
5062 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5064 if (!NILP (tip_frame
))
5066 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5067 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5068 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5070 if (EQ (frame
, last_frame
)
5071 && !NILP (Fequal (last_string
, string
))
5072 && !NILP (Fequal (last_parms
, parms
)))
5074 struct frame
*f
= XFRAME (tip_frame
);
5076 /* Only DX and DY have changed. */
5077 if (!NILP (tip_timer
))
5079 Lisp_Object timer
= tip_timer
;
5081 call1 (Qcancel_timer
, timer
);
5085 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5086 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5087 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5094 /* Hide a previous tip, if any. */
5097 ASET (last_show_tip_args
, 0, string
);
5098 ASET (last_show_tip_args
, 1, frame
);
5099 ASET (last_show_tip_args
, 2, parms
);
5101 /* Add default values to frame parameters. */
5102 if (NILP (Fassq (Qname
, parms
)))
5103 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5104 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5105 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5106 if (NILP (Fassq (Qborder_width
, parms
)))
5107 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5108 if (NILP (Fassq (Qborder_color
, parms
)))
5109 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5110 if (NILP (Fassq (Qbackground_color
, parms
)))
5111 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5114 /* Create a frame for the tooltip, and record it in the global
5115 variable tip_frame. */
5116 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5119 /* Set up the frame's root window. */
5120 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5121 w
->left_col
= w
->top_line
= make_number (0);
5123 if (CONSP (Vx_max_tooltip_size
)
5124 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5125 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5126 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5127 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5129 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5130 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5134 w
->total_cols
= make_number (80);
5135 w
->total_lines
= make_number (40);
5138 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5140 w
->pseudo_window_p
= 1;
5142 /* Display the tooltip text in a temporary buffer. */
5143 old_buffer
= current_buffer
;
5144 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5145 current_buffer
->truncate_lines
= Qnil
;
5146 clear_glyph_matrix (w
->desired_matrix
);
5147 clear_glyph_matrix (w
->current_matrix
);
5148 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5149 try_window (FRAME_ROOT_WINDOW (f
), pos
, TRY_WINDOW_IGNORE_FONTS_CHANGE
);
5151 /* Compute width and height of the tooltip. */
5153 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5155 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5159 /* Stop at the first empty row at the end. */
5160 if (!row
->enabled_p
|| !row
->displays_text_p
)
5163 /* Let the row go over the full width of the frame. */
5164 row
->full_width_p
= 1;
5166 row_width
= row
->pixel_width
;
5167 /* There's a glyph at the end of rows that is used to place
5168 the cursor there. Don't include the width of this glyph. */
5169 if (row
->used
[TEXT_AREA
])
5171 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5172 if (INTEGERP (last
->object
))
5173 row_width
-= last
->pixel_width
;
5176 height
+= row
->height
;
5177 width
= max (width
, row_width
);
5180 /* Add the frame's internal border to the width and height the X
5181 window should have. */
5182 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5183 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5185 /* Move the tooltip window where the mouse pointer is. Resize and
5187 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5190 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5191 root_x
, root_y
, width
, height
);
5192 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5195 /* Draw into the window. */
5196 w
->must_be_updated_p
= 1;
5197 update_single_window (w
, 1);
5199 /* Restore original current buffer. */
5200 set_buffer_internal_1 (old_buffer
);
5201 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5204 /* Let the tip disappear after timeout seconds. */
5205 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5206 intern ("x-hide-tip"));
5209 return unbind_to (count
, Qnil
);
5213 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5214 doc
: /* Hide the current tooltip window, if there is any.
5215 Value is t if tooltip was open, nil otherwise. */)
5219 Lisp_Object deleted
, frame
, timer
;
5220 struct gcpro gcpro1
, gcpro2
;
5223 /* Return quickly if nothing to do. */
5224 if (NILP (tip_timer
) && NILP (tip_frame
))
5229 GCPRO2 (frame
, timer
);
5230 tip_frame
= tip_timer
= deleted
= Qnil
;
5232 count
= SPECPDL_INDEX ();
5233 specbind (Qinhibit_redisplay
, Qt
);
5234 specbind (Qinhibit_quit
, Qt
);
5237 call1 (Qcancel_timer
, timer
);
5240 /* When using system tooltip, tip_frame is the Emacs frame on which
5241 the tip is shown. */
5243 if (FRAME_LIVE_P (f
) && xg_hide_tooltip (f
))
5249 delete_frame (frame
, Qnil
);
5253 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5254 redisplay procedure is not called when a tip frame over menu
5255 items is unmapped. Redisplay the menu manually... */
5258 f
= SELECTED_FRAME ();
5259 w
= f
->output_data
.x
->menubar_widget
;
5261 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5265 xlwmenu_redisplay (w
);
5269 #endif /* USE_LUCID */
5273 return unbind_to (count
, deleted
);
5278 /***********************************************************************
5279 File selection dialog
5280 ***********************************************************************/
5282 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5283 Sx_uses_old_gtk_dialog
,
5285 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5292 && xg_uses_old_file_dialog ())
5300 /* Callback for "OK" and "Cancel" on file selection dialog. */
5303 file_dialog_cb (widget
, client_data
, call_data
)
5305 XtPointer call_data
, client_data
;
5307 int *result
= (int *) client_data
;
5308 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5309 *result
= cb
->reason
;
5313 /* Callback for unmapping a file selection dialog. This is used to
5314 capture the case where a dialog is closed via a window manager's
5315 closer button, for example. Using a XmNdestroyCallback didn't work
5319 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5321 XtPointer call_data
, client_data
;
5323 int *result
= (int *) client_data
;
5324 *result
= XmCR_CANCEL
;
5328 clean_up_file_dialog (arg
)
5331 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5332 Widget dialog
= (Widget
) p
->pointer
;
5336 XtUnmanageChild (dialog
);
5337 XtDestroyWidget (dialog
);
5338 x_menu_set_in_use (0);
5345 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5346 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5347 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5348 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5349 or directory must exist. ONLY-DIR-P is ignored." */)
5350 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5353 struct frame
*f
= SELECTED_FRAME ();
5354 Lisp_Object file
= Qnil
;
5355 Lisp_Object decoded_file
;
5356 Widget dialog
, text
, help
;
5359 XmString dir_xmstring
, pattern_xmstring
;
5360 int count
= SPECPDL_INDEX ();
5361 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5365 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5367 if (popup_activated ())
5368 error ("Trying to use a menu from within a menu-entry");
5370 CHECK_STRING (prompt
);
5373 /* Prevent redisplay. */
5374 specbind (Qinhibit_redisplay
, Qt
);
5378 /* Create the dialog with PROMPT as title, using DIR as initial
5379 directory and using "*" as pattern. */
5380 dir
= Fexpand_file_name (dir
, Qnil
);
5381 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5382 pattern_xmstring
= XmStringCreateLocalized ("*");
5384 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5385 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5386 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5387 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5388 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5389 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5391 XmStringFree (dir_xmstring
);
5392 XmStringFree (pattern_xmstring
);
5394 /* Add callbacks for OK and Cancel. */
5395 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5396 (XtPointer
) &result
);
5397 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5398 (XtPointer
) &result
);
5399 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5400 (XtPointer
) &result
);
5402 /* Remove the help button since we can't display help. */
5403 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5404 XtUnmanageChild (help
);
5406 /* Mark OK button as default. */
5407 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5408 XmNshowAsDefault
, True
, NULL
);
5410 /* If MUSTMATCH is non-nil, disable the file entry field of the
5411 dialog, so that the user must select a file from the files list
5412 box. We can't remove it because we wouldn't have a way to get at
5413 the result file name, then. */
5414 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5415 if (!NILP (mustmatch
))
5418 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5419 XtSetSensitive (text
, False
);
5420 XtSetSensitive (label
, False
);
5423 /* Manage the dialog, so that list boxes get filled. */
5424 XtManageChild (dialog
);
5426 if (STRINGP (default_filename
))
5428 XmString default_xmstring
;
5429 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5430 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5432 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5433 XmTextFieldReplace (wtext
, 0, last_pos
,
5434 (SDATA (Ffile_name_nondirectory (default_filename
))));
5436 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5437 must include the path for this to work. */
5439 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5441 if (XmListItemExists (list
, default_xmstring
))
5443 int item_pos
= XmListItemPos (list
, default_xmstring
);
5444 /* Select the item and scroll it into view. */
5445 XmListSelectPos (list
, item_pos
, True
);
5446 XmListSetPos (list
, item_pos
);
5449 XmStringFree (default_xmstring
);
5452 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5454 /* Process events until the user presses Cancel or OK. */
5455 x_menu_set_in_use (1);
5460 x_menu_wait_for_event (0);
5461 XtAppNextEvent (Xt_app_con
, &event
);
5462 if (event
.type
== KeyPress
5463 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5465 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5467 /* Pop down on C-g. */
5468 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5469 XtUnmanageChild (dialog
);
5472 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5475 /* Get the result. */
5476 if (result
== XmCR_OK
)
5481 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5482 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5483 XmStringFree (text
);
5484 file
= build_string (data
);
5493 /* Make "Cancel" equivalent to C-g. */
5495 Fsignal (Qquit
, Qnil
);
5497 decoded_file
= DECODE_FILE (file
);
5499 return unbind_to (count
, decoded_file
);
5502 #endif /* USE_MOTIF */
5507 clean_up_dialog (Lisp_Object arg
)
5509 x_menu_set_in_use (0);
5514 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5515 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5516 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5517 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5518 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5520 (Lisp_Object prompt
, Lisp_Object dir
, Lisp_Object default_filename
, Lisp_Object mustmatch
, Lisp_Object only_dir_p
)
5522 FRAME_PTR f
= SELECTED_FRAME ();
5524 Lisp_Object file
= Qnil
;
5525 Lisp_Object decoded_file
;
5526 int count
= SPECPDL_INDEX ();
5527 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5532 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5534 if (popup_activated ())
5535 error ("Trying to use a menu from within a menu-entry");
5537 CHECK_STRING (prompt
);
5540 /* Prevent redisplay. */
5541 specbind (Qinhibit_redisplay
, Qt
);
5542 record_unwind_protect (clean_up_dialog
, Qnil
);
5546 if (STRINGP (default_filename
))
5547 cdef_file
= SDATA (default_filename
);
5549 cdef_file
= SDATA (dir
);
5551 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5553 ! NILP (only_dir_p
));
5557 file
= build_string (fn
);
5564 /* Make "Cancel" equivalent to C-g. */
5566 Fsignal (Qquit
, Qnil
);
5568 decoded_file
= DECODE_FILE (file
);
5570 return unbind_to (count
, decoded_file
);
5574 #ifdef HAVE_FREETYPE
5576 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5577 doc
: /* Read a font name using a GTK font selection dialog.
5578 Return a GTK-style font string corresponding to the selection.
5580 If FRAME is omitted or nil, it defaults to the selected frame. */)
5581 (Lisp_Object frame
, Lisp_Object ignored
)
5583 FRAME_PTR f
= check_x_frame (frame
);
5586 Lisp_Object font_param
;
5587 char *default_name
= NULL
;
5588 struct gcpro gcpro1
, gcpro2
;
5589 int count
= SPECPDL_INDEX ();
5593 if (popup_activated ())
5594 error ("Trying to use a menu from within a menu-entry");
5596 /* Prevent redisplay. */
5597 specbind (Qinhibit_redisplay
, Qt
);
5598 record_unwind_protect (clean_up_dialog
, Qnil
);
5602 GCPRO2(font_param
, font
);
5604 XSETFONT (font
, FRAME_FONT (f
));
5605 font_param
= Ffont_get (font
, intern (":name"));
5606 if (STRINGP (font_param
))
5607 default_name
= xstrdup (SDATA (font_param
));
5610 font_param
= Fframe_parameter (frame
, Qfont_param
);
5611 if (STRINGP (font_param
))
5612 default_name
= xstrdup (SDATA (font_param
));
5615 if (default_name
== NULL
&& x_last_font_name
!= NULL
)
5616 default_name
= xstrdup (x_last_font_name
);
5618 /* Convert fontconfig names to Gtk names, i.e. remove - before number */
5621 char *p
= strrchr (default_name
, '-');
5625 while (isdigit (*ep
))
5627 if (*ep
== '\0') *p
= ' ';
5631 name
= xg_get_font_name (f
, default_name
);
5632 xfree (default_name
);
5636 font
= build_string (name
);
5637 g_free (x_last_font_name
);
5638 x_last_font_name
= name
;
5644 Fsignal (Qquit
, Qnil
);
5646 return unbind_to (count
, font
);
5648 #endif /* HAVE_FREETYPE */
5650 #endif /* USE_GTK */
5653 /***********************************************************************
5655 ***********************************************************************/
5657 #ifdef HAVE_XKBGETKEYBOARD
5658 #include <X11/XKBlib.h>
5659 #include <X11/keysym.h>
5662 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5663 Sx_backspace_delete_keys_p
, 0, 1, 0,
5664 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5665 FRAME nil means use the selected frame.
5666 Value is t if we know that both keys are present, and are mapped to the
5667 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5668 present and mapped to the usual X keysyms. */)
5671 #ifdef HAVE_XKBGETKEYBOARD
5673 struct frame
*f
= check_x_frame (frame
);
5674 Display
*dpy
= FRAME_X_DISPLAY (f
);
5675 Lisp_Object have_keys
;
5676 int major
, minor
, op
, event
, error
;
5680 /* Check library version in case we're dynamically linked. */
5681 major
= XkbMajorVersion
;
5682 minor
= XkbMinorVersion
;
5683 if (!XkbLibraryVersion (&major
, &minor
))
5689 /* Check that the server supports XKB. */
5690 major
= XkbMajorVersion
;
5691 minor
= XkbMinorVersion
;
5692 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5698 /* In this code we check that the keyboard has physical keys with names
5699 that start with BKSP (Backspace) and DELE (Delete), and that they
5700 generate keysym XK_BackSpace and XK_Delete respectively.
5701 This function is used to test if normal-erase-is-backspace should be
5703 An alternative approach would be to just check if XK_BackSpace and
5704 XK_Delete are mapped to any key. But if any of those are mapped to
5705 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5706 user doesn't know about it, it is better to return false here.
5707 It is more obvious to the user what to do if she/he has two keys
5708 clearly marked with names/symbols and one key does something not
5709 expected (i.e. she/he then tries the other).
5710 The cases where Backspace/Delete is mapped to some other key combination
5711 are rare, and in those cases, normal-erase-is-backspace can be turned on
5715 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5718 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5720 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5722 for (i
= kb
->min_key_code
;
5723 (i
< kb
->max_key_code
5724 && (delete_keycode
== 0 || backspace_keycode
== 0));
5727 /* The XKB symbolic key names can be seen most easily in
5728 the PS file generated by `xkbprint -label name
5730 if (memcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5732 else if (memcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5733 backspace_keycode
= i
;
5736 XkbFreeNames (kb
, 0, True
);
5739 XkbFreeClientMap (kb
, 0, True
);
5742 && backspace_keycode
5743 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5744 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5749 #else /* not HAVE_XKBGETKEYBOARD */
5751 #endif /* not HAVE_XKBGETKEYBOARD */
5756 /***********************************************************************
5758 ***********************************************************************/
5760 /* Keep this list in the same order as frame_parms in frame.c.
5761 Use 0 for unsupported frame parameters. */
5763 frame_parm_handler x_frame_parm_handlers
[] =
5767 x_set_background_color
,
5773 x_set_foreground_color
,
5776 x_set_internal_border_width
,
5777 x_set_menu_bar_lines
,
5779 x_explicitly_set_name
,
5780 x_set_scroll_bar_width
,
5783 x_set_vertical_scroll_bars
,
5785 x_set_tool_bar_lines
,
5786 x_set_scroll_bar_foreground
,
5787 x_set_scroll_bar_background
,
5797 x_set_tool_bar_position
,
5803 /* This is zero if not using X windows. */
5806 /* The section below is built by the lisp expression at the top of the file,
5807 just above where these variables are declared. */
5808 /*&&& init symbols here &&&*/
5809 Qnone
= intern_c_string ("none");
5811 Qsuppress_icon
= intern_c_string ("suppress-icon");
5812 staticpro (&Qsuppress_icon
);
5813 Qundefined_color
= intern_c_string ("undefined-color");
5814 staticpro (&Qundefined_color
);
5815 Qcompound_text
= intern_c_string ("compound-text");
5816 staticpro (&Qcompound_text
);
5817 Qcancel_timer
= intern_c_string ("cancel-timer");
5818 staticpro (&Qcancel_timer
);
5819 Qfont_param
= intern_c_string ("font-parameter");
5820 staticpro (&Qfont_param
);
5821 /* This is the end of symbol initialization. */
5823 /* Text property `display' should be nonsticky by default. */
5824 Vtext_property_default_nonsticky
5825 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5828 Fput (Qundefined_color
, Qerror_conditions
,
5829 pure_cons (Qundefined_color
, pure_cons (Qerror
, Qnil
)));
5830 Fput (Qundefined_color
, Qerror_message
,
5831 make_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+ toolip 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
[40];
5960 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5961 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5962 Vgtk_version_string
= make_pure_string (gtk_version
, strlen (gtk_version
), strlen (gtk_version
), 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 */
6023 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
6024 (do not change this comment) */