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>
104 #if !defined(NO_EDITRES)
106 extern void _XEditResCheckMessages ();
107 #endif /* not defined NO_EDITRES */
109 /* Unique id counter for widgets created by the Lucid Widget Library. */
111 extern LWLIB_ID widget_id_tick
;
114 /* This is part of a kludge--see lwlib/xlwmenu.c. */
115 extern XFontStruct
*xlwmenu_default_font
;
118 extern void free_frame_menubar ();
119 extern double atof ();
123 /* LessTif/Motif version info. */
125 static Lisp_Object Vmotif_version_string
;
127 #endif /* USE_MOTIF */
129 #endif /* USE_X_TOOLKIT */
133 /* GTK+ version info */
135 static Lisp_Object Vgtk_version_string
;
139 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
141 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
142 it, and including `bitmaps/gray' more than once is a problem when
143 config.h defines `static' as an empty replacement string. */
145 int gray_bitmap_width
= gray_width
;
146 int gray_bitmap_height
= gray_height
;
147 char *gray_bitmap_bits
= gray_bits
;
149 /* Non-zero means prompt with the old GTK file selection dialog. */
151 int x_gtk_use_old_file_dialog
;
153 /* If non-zero, by default show hidden files in the GTK file chooser. */
155 int x_gtk_show_hidden_files
;
157 /* If non-zero, don't show additional help text in the GTK file chooser. */
159 int x_gtk_file_dialog_help_text
;
161 /* If non-zero, don't collapse to tool bar when it is detached. */
163 int x_gtk_whole_detached_tool_bar
;
165 /* The background and shape of the mouse pointer, and shape when not
166 over text or in the modeline. */
168 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
169 Lisp_Object Vx_hourglass_pointer_shape
;
171 /* The shape when over mouse-sensitive text. */
173 Lisp_Object Vx_sensitive_text_pointer_shape
;
175 /* If non-nil, the pointer shape to indicate that windows can be
176 dragged horizontally. */
178 Lisp_Object Vx_window_horizontal_drag_shape
;
180 /* Color of chars displayed in cursor box. */
182 Lisp_Object Vx_cursor_fore_pixel
;
184 /* Nonzero if using X. */
188 /* Non nil if no window manager is in use. */
190 Lisp_Object Vx_no_window_manager
;
192 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
194 Lisp_Object Vx_pixel_size_width_font_regexp
;
197 Lisp_Object Qsuppress_icon
;
198 Lisp_Object Qundefined_color
;
199 Lisp_Object Qcompound_text
, Qcancel_timer
;
200 Lisp_Object Qfont_param
;
204 extern Lisp_Object Vwindow_system_version
;
206 /* The below are defined in frame.c. */
208 extern Lisp_Object Qtooltip
;
211 int image_cache_refcount
, dpyinfo_refcount
;
214 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
215 char *x_last_font_name
;
219 /* Error if we are not connected to X. */
225 error ("X windows are not in use or not initialized");
228 /* Nonzero if we can use mouse menus.
229 You should not call this unless HAVE_MENUS is defined. */
237 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
238 and checking validity for X. */
241 check_x_frame (frame
)
247 frame
= selected_frame
;
248 CHECK_LIVE_FRAME (frame
);
251 error ("Non-X frame used");
255 /* Let the user specify an X display with a Lisp object.
256 OBJECT may be nil, a frame or a terminal object.
257 nil stands for the selected frame--or, if that is not an X frame,
258 the first X display on the list. */
260 struct x_display_info
*
261 check_x_display_info (object
)
264 struct x_display_info
*dpyinfo
= NULL
;
268 struct frame
*sf
= XFRAME (selected_frame
);
270 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
271 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
272 else if (x_display_list
!= 0)
273 dpyinfo
= x_display_list
;
275 error ("X windows are not in use or not initialized");
277 else if (TERMINALP (object
))
279 struct terminal
*t
= get_terminal (object
, 1);
281 if (t
->type
!= output_x_window
)
282 error ("Terminal %d is not an X display", XINT (object
));
284 dpyinfo
= t
->display_info
.x
;
286 else if (STRINGP (object
))
287 dpyinfo
= x_display_info_for_name (object
);
290 FRAME_PTR f
= check_x_frame (object
);
291 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
298 /* Return the Emacs frame-object corresponding to an X window.
299 It could be the frame's main window or an icon window. */
301 /* This function can be called during GC, so use GC_xxx type test macros. */
304 x_window_to_frame (dpyinfo
, wdesc
)
305 struct x_display_info
*dpyinfo
;
308 Lisp_Object tail
, frame
;
311 if (wdesc
== None
) return 0;
313 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
319 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
321 if (f
->output_data
.x
->hourglass_window
== wdesc
)
324 if ((f
->output_data
.x
->edit_widget
325 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
326 /* A tooltip frame? */
327 || (!f
->output_data
.x
->edit_widget
328 && FRAME_X_WINDOW (f
) == wdesc
)
329 || f
->output_data
.x
->icon_desc
== wdesc
)
331 #else /* not USE_X_TOOLKIT */
333 if (f
->output_data
.x
->edit_widget
)
335 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
336 struct x_output
*x
= f
->output_data
.x
;
337 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
341 if (FRAME_X_WINDOW (f
) == wdesc
342 || f
->output_data
.x
->icon_desc
== wdesc
)
344 #endif /* not USE_X_TOOLKIT */
349 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
350 /* Like x_window_to_frame but also compares the window with the widget's
354 x_any_window_to_frame (dpyinfo
, wdesc
)
355 struct x_display_info
*dpyinfo
;
358 Lisp_Object tail
, frame
;
359 struct frame
*f
, *found
;
362 if (wdesc
== None
) return NULL
;
365 for (tail
= Vframe_list
; CONSP (tail
) && !found
; tail
= XCDR (tail
))
372 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
374 /* This frame matches if the window is any of its widgets. */
375 x
= f
->output_data
.x
;
376 if (x
->hourglass_window
== wdesc
)
381 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
383 && gtk_widget_get_toplevel (gwdesc
) == x
->widget
)
386 if (wdesc
== XtWindow (x
->widget
)
387 || wdesc
== XtWindow (x
->column_widget
)
388 || wdesc
== XtWindow (x
->edit_widget
))
390 /* Match if the window is this frame's menubar. */
391 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
395 else if (FRAME_X_WINDOW (f
) == wdesc
)
396 /* A tooltip frame. */
404 /* Likewise, but consider only the menu bar widget. */
407 x_menubar_window_to_frame (dpyinfo
, wdesc
)
408 struct x_display_info
*dpyinfo
;
411 Lisp_Object tail
, frame
;
415 if (wdesc
== None
) return 0;
417 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
423 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
425 x
= f
->output_data
.x
;
426 /* Match if the window is this frame's menubar. */
428 if (x
->menubar_widget
)
430 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
432 /* This gives false positives, but the rectangle check in xterm.c
433 where this is called takes care of that. */
435 && (gwdesc
== x
->menubar_widget
436 || gtk_widget_is_ancestor (x
->menubar_widget
, gwdesc
)
437 || gtk_widget_is_ancestor (gwdesc
, x
->menubar_widget
)))
441 if (x
->menubar_widget
442 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
449 /* Return the frame whose principal (outermost) window is WDESC.
450 If WDESC is some other (smaller) window, we return 0. */
453 x_top_window_to_frame (dpyinfo
, wdesc
)
454 struct x_display_info
*dpyinfo
;
457 Lisp_Object tail
, frame
;
461 if (wdesc
== None
) return 0;
463 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
469 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
471 x
= f
->output_data
.x
;
475 /* This frame matches if the window is its topmost widget. */
477 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
478 if (gwdesc
== x
->widget
)
481 if (wdesc
== XtWindow (x
->widget
))
483 #if 0 /* I don't know why it did this,
484 but it seems logically wrong,
485 and it causes trouble for MapNotify events. */
486 /* Match if the window is this frame's menubar. */
487 if (x
->menubar_widget
488 && wdesc
== XtWindow (x
->menubar_widget
))
493 else if (FRAME_X_WINDOW (f
) == wdesc
)
499 #endif /* USE_X_TOOLKIT || USE_GTK */
503 static void x_default_font_parameter
P_ ((struct frame
*, Lisp_Object
));
505 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
506 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
508 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
509 static void x_set_wait_for_wm
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
510 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
511 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
512 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
513 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
514 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
515 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
516 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
517 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
518 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
519 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
520 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
521 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
523 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
525 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
532 /* Store the screen positions of frame F into XPTR and YPTR.
533 These are the positions of the containing window manager window,
534 not Emacs's own window. */
537 x_real_positions (f
, xptr
, yptr
)
541 int win_x
, win_y
, outer_x
, outer_y
;
542 int real_x
= 0, real_y
= 0;
544 Window win
= f
->output_data
.x
->parent_desc
;
548 x_catch_errors (FRAME_X_DISPLAY (f
));
550 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
551 win
= FRAME_OUTER_WINDOW (f
);
553 /* This loop traverses up the containment tree until we hit the root
554 window. Window managers may intersect many windows between our window
555 and the root window. The window we find just before the root window
556 should be the outer WM window. */
559 Window wm_window
, rootw
;
560 Window
*tmp_children
;
561 unsigned int tmp_nchildren
;
564 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
565 &wm_window
, &tmp_children
, &tmp_nchildren
);
567 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
569 /* Don't free tmp_children if XQueryTree failed. */
573 XFree ((char *) tmp_children
);
575 if (wm_window
== rootw
|| had_errors
)
586 /* Get the real coordinates for the WM window upper left corner */
587 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
588 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
590 /* Translate real coordinates to coordinates relative to our
591 window. For our window, the upper left corner is 0, 0.
592 Since the upper left corner of the WM window is outside
593 our window, win_x and win_y will be negative:
595 ------------------ ---> x
597 | ----------------- v y
600 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
602 /* From-window, to-window. */
603 FRAME_X_DISPLAY_INFO (f
)->root_window
,
606 /* From-position, to-position. */
607 real_x
, real_y
, &win_x
, &win_y
,
612 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
619 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
621 /* From-window, to-window. */
622 FRAME_X_DISPLAY_INFO (f
)->root_window
,
623 FRAME_OUTER_WINDOW (f
),
625 /* From-position, to-position. */
626 real_x
, real_y
, &outer_x
, &outer_y
,
632 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
639 if (had_errors
) return;
641 f
->x_pixels_diff
= -win_x
;
642 f
->y_pixels_diff
= -win_y
;
644 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
645 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
654 /* Gamma-correct COLOR on frame F. */
657 gamma_correct (f
, color
)
663 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
664 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
665 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
670 /* Decide if color named COLOR_NAME is valid for use on frame F. If
671 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
672 allocate the color. Value is zero if COLOR_NAME is invalid, or
673 no color could be allocated. */
676 x_defined_color (f
, color_name
, color
, alloc_p
)
683 Display
*dpy
= FRAME_X_DISPLAY (f
);
684 Colormap cmap
= FRAME_X_COLORMAP (f
);
687 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
688 if (success_p
&& alloc_p
)
689 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
696 /* Return the pixel color value for color COLOR_NAME on frame F. If F
697 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
698 Signal an error if color can't be allocated. */
701 x_decode_color (f
, color_name
, mono_color
)
703 Lisp_Object color_name
;
708 CHECK_STRING (color_name
);
710 #if 0 /* Don't do this. It's wrong when we're not using the default
711 colormap, it makes freeing difficult, and it's probably not
712 an important optimization. */
713 if (strcmp (SDATA (color_name
), "black") == 0)
714 return BLACK_PIX_DEFAULT (f
);
715 else if (strcmp (SDATA (color_name
), "white") == 0)
716 return WHITE_PIX_DEFAULT (f
);
719 /* Return MONO_COLOR for monochrome frames. */
720 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
723 /* x_defined_color is responsible for coping with failures
724 by looking for a near-miss. */
725 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
728 signal_error ("Undefined color", color_name
);
733 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
734 the previous value of that parameter, NEW_VALUE is the new value.
735 See also the comment of wait_for_wm in struct x_output. */
738 x_set_wait_for_wm (f
, new_value
, old_value
)
740 Lisp_Object new_value
, old_value
;
742 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
747 /* Set icon from FILE for frame F. By using GTK functions the icon
748 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
751 xg_set_icon (f
, file
)
758 found
= x_find_image_file (file
);
764 char *filename
= (char *) SDATA (found
);
767 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
771 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
773 g_object_unref (pixbuf
);
787 xg_set_icon_from_xpm_data (f
, data
)
792 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data ((const char **) data
);
797 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
798 g_object_unref (pixbuf
);
804 /* Functions called only from `x_set_frame_param'
805 to set individual parameters.
807 If FRAME_X_WINDOW (f) is 0,
808 the frame is being created and its X-window does not exist yet.
809 In that case, just record the parameter's new value
810 in the standard place; do not attempt to change the window. */
813 x_set_foreground_color (f
, arg
, oldval
)
815 Lisp_Object arg
, oldval
;
817 struct x_output
*x
= f
->output_data
.x
;
818 unsigned long fg
, old_fg
;
820 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
821 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
822 FRAME_FOREGROUND_PIXEL (f
) = fg
;
824 if (FRAME_X_WINDOW (f
) != 0)
826 Display
*dpy
= FRAME_X_DISPLAY (f
);
829 XSetForeground (dpy
, x
->normal_gc
, fg
);
830 XSetBackground (dpy
, x
->reverse_gc
, fg
);
832 if (x
->cursor_pixel
== old_fg
)
834 unload_color (f
, x
->cursor_pixel
);
835 x
->cursor_pixel
= x_copy_color (f
, fg
);
836 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
841 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
843 if (FRAME_VISIBLE_P (f
))
847 unload_color (f
, old_fg
);
851 x_set_background_color (f
, arg
, oldval
)
853 Lisp_Object arg
, oldval
;
855 struct x_output
*x
= f
->output_data
.x
;
858 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
859 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
860 FRAME_BACKGROUND_PIXEL (f
) = bg
;
862 if (FRAME_X_WINDOW (f
) != 0)
864 Display
*dpy
= FRAME_X_DISPLAY (f
);
867 XSetBackground (dpy
, x
->normal_gc
, bg
);
868 XSetForeground (dpy
, x
->reverse_gc
, bg
);
869 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
870 XSetForeground (dpy
, x
->cursor_gc
, bg
);
873 xg_set_background_color (f
, bg
);
876 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
877 toolkit scroll bars. */
880 for (bar
= FRAME_SCROLL_BARS (f
);
882 bar
= XSCROLL_BAR (bar
)->next
)
884 Window window
= XSCROLL_BAR (bar
)->x_window
;
885 XSetWindowBackground (dpy
, window
, bg
);
888 #endif /* USE_TOOLKIT_SCROLL_BARS */
891 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
893 if (FRAME_VISIBLE_P (f
))
899 make_invisible_cursor (f
)
902 Display
*dpy
= FRAME_X_DISPLAY (f
);
903 static char const no_data
[] = { 0 };
908 x_catch_errors (dpy
);
909 pix
= XCreateBitmapFromData (dpy
, FRAME_X_DISPLAY_INFO (f
)->root_window
,
911 if (! x_had_errors_p (dpy
) && pix
!= None
)
914 col
.red
= col
.green
= col
.blue
= 0;
915 col
.flags
= DoRed
| DoGreen
| DoBlue
;
916 c
= XCreatePixmapCursor (dpy
, pix
, pix
, &col
, &col
, 0, 0);
917 if (x_had_errors_p (dpy
) || c
== None
)
919 XFreePixmap (dpy
, pix
);
928 x_set_mouse_color (f
, arg
, oldval
)
930 Lisp_Object arg
, oldval
;
932 struct x_output
*x
= f
->output_data
.x
;
933 Display
*dpy
= FRAME_X_DISPLAY (f
);
934 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
935 Cursor hourglass_cursor
, horizontal_drag_cursor
;
936 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
937 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
939 /* Don't let pointers be invisible. */
940 if (mask_color
== pixel
)
942 x_free_colors (f
, &pixel
, 1);
943 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
946 unload_color (f
, x
->mouse_pixel
);
947 x
->mouse_pixel
= pixel
;
951 /* It's not okay to crash if the user selects a screwy cursor. */
952 x_catch_errors (dpy
);
954 if (!NILP (Vx_pointer_shape
))
956 CHECK_NUMBER (Vx_pointer_shape
);
957 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
960 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
961 x_check_errors (dpy
, "bad text pointer cursor: %s");
963 if (!NILP (Vx_nontext_pointer_shape
))
965 CHECK_NUMBER (Vx_nontext_pointer_shape
);
967 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
970 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
971 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
973 if (!NILP (Vx_hourglass_pointer_shape
))
975 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
977 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
980 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
981 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
983 if (!NILP (Vx_mode_pointer_shape
))
985 CHECK_NUMBER (Vx_mode_pointer_shape
);
986 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
989 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
990 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
992 if (!NILP (Vx_sensitive_text_pointer_shape
))
994 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
996 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
999 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
1001 if (!NILP (Vx_window_horizontal_drag_shape
))
1003 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1004 horizontal_drag_cursor
1005 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1008 horizontal_drag_cursor
1009 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1011 /* Check and report errors with the above calls. */
1012 x_check_errors (dpy
, "can't set cursor shape: %s");
1013 x_uncatch_errors ();
1016 XColor fore_color
, back_color
;
1018 fore_color
.pixel
= x
->mouse_pixel
;
1019 x_query_color (f
, &fore_color
);
1020 back_color
.pixel
= mask_color
;
1021 x_query_color (f
, &back_color
);
1023 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1024 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1025 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1026 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1027 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1028 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1031 if (FRAME_X_WINDOW (f
) != 0)
1032 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
1033 f
->output_data
.x
->current_cursor
= cursor
);
1035 if (FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
== 0)
1036 FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
= make_invisible_cursor (f
);
1038 if (cursor
!= x
->text_cursor
1039 && x
->text_cursor
!= 0)
1040 XFreeCursor (dpy
, x
->text_cursor
);
1041 x
->text_cursor
= cursor
;
1043 if (nontext_cursor
!= x
->nontext_cursor
1044 && x
->nontext_cursor
!= 0)
1045 XFreeCursor (dpy
, x
->nontext_cursor
);
1046 x
->nontext_cursor
= nontext_cursor
;
1048 if (hourglass_cursor
!= x
->hourglass_cursor
1049 && x
->hourglass_cursor
!= 0)
1050 XFreeCursor (dpy
, x
->hourglass_cursor
);
1051 x
->hourglass_cursor
= hourglass_cursor
;
1053 if (mode_cursor
!= x
->modeline_cursor
1054 && x
->modeline_cursor
!= 0)
1055 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1056 x
->modeline_cursor
= mode_cursor
;
1058 if (hand_cursor
!= x
->hand_cursor
1059 && x
->hand_cursor
!= 0)
1060 XFreeCursor (dpy
, x
->hand_cursor
);
1061 x
->hand_cursor
= hand_cursor
;
1063 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1064 && x
->horizontal_drag_cursor
!= 0)
1065 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1066 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1071 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1075 x_set_cursor_color (f
, arg
, oldval
)
1077 Lisp_Object arg
, oldval
;
1079 unsigned long fore_pixel
, pixel
;
1080 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1081 struct x_output
*x
= f
->output_data
.x
;
1083 if (!NILP (Vx_cursor_fore_pixel
))
1085 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1086 WHITE_PIX_DEFAULT (f
));
1087 fore_pixel_allocated_p
= 1;
1090 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1092 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1093 pixel_allocated_p
= 1;
1095 /* Make sure that the cursor color differs from the background color. */
1096 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1098 if (pixel_allocated_p
)
1100 x_free_colors (f
, &pixel
, 1);
1101 pixel_allocated_p
= 0;
1104 pixel
= x
->mouse_pixel
;
1105 if (pixel
== fore_pixel
)
1107 if (fore_pixel_allocated_p
)
1109 x_free_colors (f
, &fore_pixel
, 1);
1110 fore_pixel_allocated_p
= 0;
1112 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1116 unload_color (f
, x
->cursor_foreground_pixel
);
1117 if (!fore_pixel_allocated_p
)
1118 fore_pixel
= x_copy_color (f
, fore_pixel
);
1119 x
->cursor_foreground_pixel
= fore_pixel
;
1121 unload_color (f
, x
->cursor_pixel
);
1122 if (!pixel_allocated_p
)
1123 pixel
= x_copy_color (f
, pixel
);
1124 x
->cursor_pixel
= pixel
;
1126 if (FRAME_X_WINDOW (f
) != 0)
1129 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1130 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1133 if (FRAME_VISIBLE_P (f
))
1135 x_update_cursor (f
, 0);
1136 x_update_cursor (f
, 1);
1140 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1143 /* Set the border-color of frame F to pixel value PIX.
1144 Note that this does not fully take effect if done before
1145 F has an x-window. */
1148 x_set_border_pixel (f
, pix
)
1152 unload_color (f
, f
->output_data
.x
->border_pixel
);
1153 f
->output_data
.x
->border_pixel
= pix
;
1155 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1158 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1159 (unsigned long)pix
);
1162 if (FRAME_VISIBLE_P (f
))
1167 /* Set the border-color of frame F to value described by ARG.
1168 ARG can be a string naming a color.
1169 The border-color is used for the border that is drawn by the X server.
1170 Note that this does not fully take effect if done before
1171 F has an x-window; it must be redone when the window is created.
1173 Note: this is done in two routines because of the way X10 works.
1175 Note: under X11, this is normally the province of the window manager,
1176 and so emacs' border colors may be overridden. */
1179 x_set_border_color (f
, arg
, oldval
)
1181 Lisp_Object arg
, oldval
;
1186 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1187 x_set_border_pixel (f
, pix
);
1188 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1193 x_set_cursor_type (f
, arg
, oldval
)
1195 Lisp_Object arg
, oldval
;
1197 set_frame_cursor_types (f
, arg
);
1199 /* Make sure the cursor gets redrawn. */
1200 cursor_type_changed
= 1;
1204 x_set_icon_type (f
, arg
, oldval
)
1206 Lisp_Object arg
, oldval
;
1212 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1215 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1220 result
= x_text_icon (f
,
1221 (char *) SDATA ((!NILP (f
->icon_name
)
1225 result
= x_bitmap_icon (f
, arg
);
1230 error ("No icon window available");
1233 XFlush (FRAME_X_DISPLAY (f
));
1238 x_set_icon_name (f
, arg
, oldval
)
1240 Lisp_Object arg
, oldval
;
1246 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1249 else if (!NILP (arg
) || NILP (oldval
))
1254 if (f
->output_data
.x
->icon_bitmap
!= 0)
1259 result
= x_text_icon (f
,
1260 (char *) SDATA ((!NILP (f
->icon_name
)
1269 error ("No icon window available");
1272 XFlush (FRAME_X_DISPLAY (f
));
1278 x_set_menu_bar_lines (f
, value
, oldval
)
1280 Lisp_Object value
, oldval
;
1283 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1284 int olines
= FRAME_MENU_BAR_LINES (f
);
1287 /* Right now, menu bars don't work properly in minibuf-only frames;
1288 most of the commands try to apply themselves to the minibuffer
1289 frame itself, and get an error because you can't switch buffers
1290 in or split the minibuffer window. */
1291 if (FRAME_MINIBUF_ONLY_P (f
))
1294 if (INTEGERP (value
))
1295 nlines
= XINT (value
);
1299 /* Make sure we redisplay all windows in this frame. */
1300 windows_or_buffers_changed
++;
1302 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1303 FRAME_MENU_BAR_LINES (f
) = 0;
1306 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1307 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1308 /* Make sure next redisplay shows the menu bar. */
1309 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1313 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1314 free_frame_menubar (f
);
1315 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1317 f
->output_data
.x
->menubar_widget
= 0;
1319 #else /* not USE_X_TOOLKIT && not USE_GTK */
1320 FRAME_MENU_BAR_LINES (f
) = nlines
;
1321 change_window_heights (f
->root_window
, nlines
- olines
);
1323 /* If the menu bar height gets changed, the internal border below
1324 the top margin has to be cleared. Also, if the menu bar gets
1325 larger, the area for the added lines has to be cleared except for
1326 the first menu bar line that is to be drawn later. */
1327 if (nlines
!= olines
)
1329 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1330 int width
= FRAME_PIXEL_WIDTH (f
);
1333 /* height can be zero here. */
1334 if (height
> 0 && width
> 0)
1336 y
= FRAME_TOP_MARGIN_HEIGHT (f
);
1339 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1340 0, y
, width
, height
, False
);
1344 if (nlines
> 1 && nlines
> olines
)
1346 y
= (olines
== 0 ? 1 : olines
) * FRAME_LINE_HEIGHT (f
);
1347 height
= nlines
* FRAME_LINE_HEIGHT (f
) - y
;
1350 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1351 0, y
, width
, height
, False
);
1355 if (nlines
== 0 && WINDOWP (f
->menu_bar_window
))
1356 clear_glyph_matrix (XWINDOW (f
->menu_bar_window
)->current_matrix
);
1358 #endif /* not USE_X_TOOLKIT && not USE_GTK */
1363 /* Set the number of lines used for the tool bar of frame F to VALUE.
1364 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1365 is the old number of tool bar lines. This function changes the
1366 height of all windows on frame F to match the new tool bar height.
1367 The frame's height doesn't change. */
1370 x_set_tool_bar_lines (f
, value
, oldval
)
1372 Lisp_Object value
, oldval
;
1374 int delta
, nlines
, root_height
;
1375 Lisp_Object root_window
;
1377 /* Treat tool bars like menu bars. */
1378 if (FRAME_MINIBUF_ONLY_P (f
))
1381 /* Use VALUE only if an integer >= 0. */
1382 if (INTEGERP (value
) && XINT (value
) >= 0)
1383 nlines
= XFASTINT (value
);
1388 FRAME_TOOL_BAR_LINES (f
) = 0;
1391 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1392 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1393 /* Make sure next redisplay shows the tool bar. */
1394 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1395 update_frame_tool_bar (f
);
1399 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1400 free_frame_tool_bar (f
);
1401 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1407 /* Make sure we redisplay all windows in this frame. */
1408 ++windows_or_buffers_changed
;
1410 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1412 /* Don't resize the tool-bar to more than we have room for. */
1413 root_window
= FRAME_ROOT_WINDOW (f
);
1414 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1415 if (root_height
- delta
< 1)
1417 delta
= root_height
- 1;
1418 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1421 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1422 change_window_heights (root_window
, delta
);
1425 /* We also have to make sure that the internal border at the top of
1426 the frame, below the menu bar or tool bar, is redrawn when the
1427 tool bar disappears. This is so because the internal border is
1428 below the tool bar if one is displayed, but is below the menu bar
1429 if there isn't a tool bar. The tool bar draws into the area
1430 below the menu bar. */
1431 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1434 clear_current_matrices (f
);
1437 /* If the tool bar gets smaller, the internal border below it
1438 has to be cleared. It was formerly part of the display
1439 of the larger tool bar, and updating windows won't clear it. */
1442 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1443 int width
= FRAME_PIXEL_WIDTH (f
);
1444 int y
= (FRAME_MENU_BAR_LINES (f
) + nlines
) * FRAME_LINE_HEIGHT (f
);
1446 /* height can be zero here. */
1447 if (height
> 0 && width
> 0)
1450 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1451 0, y
, width
, height
, False
);
1455 if (WINDOWP (f
->tool_bar_window
))
1456 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1461 /* Set the foreground color for scroll bars on frame F to VALUE.
1462 VALUE should be a string, a color name. If it isn't a string or
1463 isn't a valid color name, do nothing. OLDVAL is the old value of
1464 the frame parameter. */
1467 x_set_scroll_bar_foreground (f
, value
, oldval
)
1469 Lisp_Object value
, oldval
;
1471 unsigned long pixel
;
1473 if (STRINGP (value
))
1474 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1478 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1479 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1481 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1482 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1484 /* Remove all scroll bars because they have wrong colors. */
1485 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1486 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1487 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1488 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1490 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1496 /* Set the background color for scroll bars on frame F to VALUE VALUE
1497 should be a string, a color name. If it isn't a string or isn't a
1498 valid color name, do nothing. OLDVAL is the old value of the frame
1502 x_set_scroll_bar_background (f
, value
, oldval
)
1504 Lisp_Object value
, oldval
;
1506 unsigned long pixel
;
1508 if (STRINGP (value
))
1509 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1513 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1514 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1516 #ifdef USE_TOOLKIT_SCROLL_BARS
1517 /* Scrollbar shadow colors. */
1518 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1520 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1521 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1523 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1525 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1526 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1528 #endif /* USE_TOOLKIT_SCROLL_BARS */
1530 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1531 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1533 /* Remove all scroll bars because they have wrong colors. */
1534 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1535 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1536 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1537 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1539 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1545 /* Encode Lisp string STRING as a text in a format appropriate for
1546 XICCC (X Inter Client Communication Conventions).
1548 This can call Lisp code, so callers must GCPRO.
1550 If STRING contains only ASCII characters, do no conversion and
1551 return the string data of STRING. Otherwise, encode the text by
1552 CODING_SYSTEM, and return a newly allocated memory area which
1553 should be freed by `xfree' by a caller.
1555 SELECTIONP non-zero means the string is being encoded for an X
1556 selection, so it is safe to run pre-write conversions (which
1559 Store the byte length of resulting text in *TEXT_BYTES.
1561 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1562 which means that the `encoding' of the result can be `STRING'.
1563 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1564 the result should be `COMPOUND_TEXT'. */
1566 static unsigned char *
1567 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
, freep
)
1568 Lisp_Object string
, coding_system
;
1569 int *text_bytes
, *stringp
;
1573 int result
= string_xstring_p (string
);
1574 struct coding_system coding
;
1578 /* No multibyte character in OBJ. We need not encode it. */
1579 *text_bytes
= SBYTES (string
);
1582 return SDATA (string
);
1585 setup_coding_system (coding_system
, &coding
);
1586 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1587 /* We suppress producing escape sequences for composition. */
1588 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1589 coding
.dst_bytes
= SCHARS (string
) * 2;
1590 coding
.destination
= (unsigned char *) xmalloc (coding
.dst_bytes
);
1591 encode_coding_object (&coding
, string
, 0, 0,
1592 SCHARS (string
), SBYTES (string
), Qnil
);
1593 *text_bytes
= coding
.produced
;
1594 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1596 return coding
.destination
;
1600 /* Set the WM name to NAME for frame F. Also set the icon name.
1601 If the frame already has an icon name, use that, otherwise set the
1602 icon name to NAME. */
1605 x_set_name_internal (f
, name
)
1609 if (FRAME_X_WINDOW (f
))
1613 XTextProperty text
, icon
;
1615 int do_free_icon_value
= 0, do_free_text_value
= 0;
1616 Lisp_Object coding_system
;
1618 Lisp_Object encoded_name
;
1619 struct gcpro gcpro1
;
1621 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1622 we use it before x_encode_text that may return string data. */
1624 encoded_name
= ENCODE_UTF_8 (name
);
1628 coding_system
= Qcompound_text
;
1629 /* Note: Encoding strategy
1631 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1632 text.encoding. But, there are non-internationalized window
1633 managers which don't support that encoding. So, if NAME
1634 contains only ASCII and 8859-1 characters, encode it by
1635 iso-latin-1, and use "STRING" in text.encoding hoping that
1636 such window managers at least analyze this format correctly,
1637 i.e. treat 8-bit bytes as 8859-1 characters.
1639 We may also be able to use "UTF8_STRING" in text.encoding
1640 in the future which can encode all Unicode characters.
1641 But, for the moment, there's no way to know that the
1642 current window manager supports it or not. */
1643 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1644 &do_free_text_value
);
1645 text
.encoding
= (stringp
? XA_STRING
1646 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1648 text
.nitems
= bytes
;
1650 if (!STRINGP (f
->icon_name
))
1656 /* See the above comment "Note: Encoding strategy". */
1657 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1658 &bytes
, &stringp
, &do_free_icon_value
);
1659 icon
.encoding
= (stringp
? XA_STRING
1660 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1662 icon
.nitems
= bytes
;
1666 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1667 (char *) SDATA (encoded_name
));
1668 #else /* not USE_GTK */
1669 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1670 #endif /* not USE_GTK */
1672 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1674 if (do_free_icon_value
)
1676 if (do_free_text_value
)
1683 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1686 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1687 name; if NAME is a string, set F's name to NAME and set
1688 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1690 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1691 suggesting a new name, which lisp code should override; if
1692 F->explicit_name is set, ignore the new name; otherwise, set it. */
1695 x_set_name (f
, name
, explicit)
1700 /* Make sure that requests from lisp code override requests from
1701 Emacs redisplay code. */
1704 /* If we're switching from explicit to implicit, we had better
1705 update the mode lines and thereby update the title. */
1706 if (f
->explicit_name
&& NILP (name
))
1707 update_mode_lines
= 1;
1709 f
->explicit_name
= ! NILP (name
);
1711 else if (f
->explicit_name
)
1714 /* If NAME is nil, set the name to the x_id_name. */
1717 /* Check for no change needed in this very common case
1718 before we do any consing. */
1719 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1722 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1725 CHECK_STRING (name
);
1727 /* Don't change the name if it's already NAME. */
1728 if (! NILP (Fstring_equal (name
, f
->name
)))
1733 /* For setting the frame title, the title parameter should override
1734 the name parameter. */
1735 if (! NILP (f
->title
))
1738 x_set_name_internal (f
, name
);
1741 /* This function should be called when the user's lisp code has
1742 specified a name for the frame; the name will override any set by the
1745 x_explicitly_set_name (f
, arg
, oldval
)
1747 Lisp_Object arg
, oldval
;
1749 x_set_name (f
, arg
, 1);
1752 /* This function should be called by Emacs redisplay code to set the
1753 name; names set this way will never override names set by the user's
1756 x_implicitly_set_name (f
, arg
, oldval
)
1758 Lisp_Object arg
, oldval
;
1760 x_set_name (f
, arg
, 0);
1763 /* Change the title of frame F to NAME.
1764 If NAME is nil, use the frame name as the title. */
1767 x_set_title (f
, name
, old_name
)
1769 Lisp_Object name
, old_name
;
1771 /* Don't change the title if it's already NAME. */
1772 if (EQ (name
, f
->title
))
1775 update_mode_lines
= 1;
1782 CHECK_STRING (name
);
1784 x_set_name_internal (f
, name
);
1788 x_set_scroll_bar_default_width (f
)
1791 int wid
= FRAME_COLUMN_WIDTH (f
);
1793 #ifdef USE_TOOLKIT_SCROLL_BARS
1794 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1795 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1796 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1797 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1799 /* Make the actual width at least 14 pixels and a multiple of a
1801 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1803 /* Use all of that space (aside from required margins) for the
1805 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1810 /* Record in frame F the specified or default value according to ALIST
1811 of the parameter named PROP (a Lisp symbol). If no value is
1812 specified for PROP, look for an X default for XPROP on the frame
1813 named NAME. If that is not found either, use the value DEFLT. */
1816 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1825 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1828 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1829 if (EQ (tem
, Qunbound
))
1831 #ifdef USE_TOOLKIT_SCROLL_BARS
1833 /* See if an X resource for the scroll bar color has been
1835 tem
= display_x_get_resource (dpyinfo
,
1836 build_string (foreground_p
1839 empty_unibyte_string
,
1840 build_string ("verticalScrollBar"),
1841 empty_unibyte_string
);
1844 /* If nothing has been specified, scroll bars will use a
1845 toolkit-dependent default. Because these defaults are
1846 difficult to get at without actually creating a scroll
1847 bar, use nil to indicate that no color has been
1852 #else /* not USE_TOOLKIT_SCROLL_BARS */
1856 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1859 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1866 #ifdef USE_X_TOOLKIT
1868 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1869 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1870 already be present because of the toolkit (Motif adds some of them,
1871 for example, but Xt doesn't). */
1874 hack_wm_protocols (f
, widget
)
1878 Display
*dpy
= XtDisplay (widget
);
1879 Window w
= XtWindow (widget
);
1880 int need_delete
= 1;
1887 unsigned char *catoms
;
1889 unsigned long nitems
= 0;
1890 unsigned long bytes_after
;
1892 if ((XGetWindowProperty (dpy
, w
,
1893 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1894 (long)0, (long)100, False
, XA_ATOM
,
1895 &type
, &format
, &nitems
, &bytes_after
,
1898 && format
== 32 && type
== XA_ATOM
)
1900 Atom
*atoms
= (Atom
*) catoms
;
1905 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1907 else if (atoms
[nitems
]
1908 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1910 else if (atoms
[nitems
]
1911 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1922 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1924 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1926 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1928 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1929 XA_ATOM
, 32, PropModeAppend
,
1930 (unsigned char *) props
, count
);
1938 /* Support routines for XIC (X Input Context). */
1942 static XFontSet xic_create_xfontset
P_ ((struct frame
*));
1943 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1946 /* Supported XIM styles, ordered by preference. */
1948 static XIMStyle supported_xim_styles
[] =
1950 XIMPreeditPosition
| XIMStatusArea
,
1951 XIMPreeditPosition
| XIMStatusNothing
,
1952 XIMPreeditPosition
| XIMStatusNone
,
1953 XIMPreeditNothing
| XIMStatusArea
,
1954 XIMPreeditNothing
| XIMStatusNothing
,
1955 XIMPreeditNothing
| XIMStatusNone
,
1956 XIMPreeditNone
| XIMStatusArea
,
1957 XIMPreeditNone
| XIMStatusNothing
,
1958 XIMPreeditNone
| XIMStatusNone
,
1963 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1965 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1967 /* Create an Xt fontset spec from the name of a base font.
1968 If `motif' is True use the Motif syntax. */
1970 xic_create_fontsetname (base_fontname
, motif
)
1971 char *base_fontname
;
1974 const char *sep
= motif
? ";" : ",";
1977 /* Make a fontset name from the base font name. */
1978 if (xic_defaut_fontset
== base_fontname
)
1979 { /* There is no base font name, use the default. */
1980 int len
= strlen (base_fontname
) + 2;
1981 fontsetname
= xmalloc (len
);
1982 bzero (fontsetname
, len
);
1983 strcpy (fontsetname
, base_fontname
);
1987 /* Make a fontset name from the base font name.
1988 The font set will be made of the following elements:
1990 - the base font where the charset spec is replaced by -*-*.
1991 - the same but with the family also replaced with -*-*-. */
1992 char *p
= base_fontname
;
1995 for (i
= 0; *p
; p
++)
1998 { /* As the font name doesn't conform to XLFD, we can't
1999 modify it to generalize it to allcs and allfamilies.
2000 Use the specified font plus the default. */
2001 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
2002 fontsetname
= xmalloc (len
);
2003 bzero (fontsetname
, len
);
2004 strcpy (fontsetname
, base_fontname
);
2005 strcat (fontsetname
, sep
);
2006 strcat (fontsetname
, xic_defaut_fontset
);
2011 char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
2012 char *font_allcs
= NULL
;
2013 char *font_allfamilies
= NULL
;
2014 char *font_all
= NULL
;
2015 char *allcs
= "*-*-*-*-*-*-*";
2016 char *allfamilies
= "-*-*-";
2017 char *all
= "*-*-*-*-";
2020 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
2033 /* If base_fontname specifies ADSTYLE, make it a
2037 int diff
= (p2
- p3
) - 2;
2039 base
= alloca (strlen (base_fontname
) + 1);
2040 bcopy (base_fontname
, base
, p3
- base_fontname
);
2041 base
[p3
- base_fontname
] = '*';
2042 base
[(p3
- base_fontname
) + 1] = '-';
2043 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
2044 p
= base
+ (p
- base_fontname
) - diff
;
2045 p1
= base
+ (p1
- base_fontname
);
2046 p2
= base
+ (p2
- base_fontname
) - diff
;
2047 base_fontname
= base
;
2050 /* Build the font spec that matches all charsets. */
2051 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2052 font_allcs
= (char *) alloca (len
);
2053 bzero (font_allcs
, len
);
2054 bcopy (base_fontname
, font_allcs
, p
- base_fontname
);
2055 strcat (font_allcs
, allcs
);
2057 /* Build the font spec that matches all families and
2059 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2060 font_allfamilies
= (char *) alloca (len
);
2061 bzero (font_allfamilies
, len
);
2062 strcpy (font_allfamilies
, allfamilies
);
2063 bcopy (p1
, font_allfamilies
+ strlen (allfamilies
), p
- p1
);
2064 strcat (font_allfamilies
, allcs
);
2066 /* Build the font spec that matches all. */
2067 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2068 font_all
= (char *) alloca (len
);
2069 bzero (font_all
, len
);
2070 strcpy (font_all
, allfamilies
);
2071 strcat (font_all
, all
);
2072 bcopy (p2
, font_all
+ strlen (all
) + strlen (allfamilies
), p
- p2
);
2073 strcat (font_all
, allcs
);
2075 /* Build the actual font set name. */
2076 len
= strlen (base_fontname
) + strlen (font_allcs
)
2077 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2078 fontsetname
= xmalloc (len
);
2079 bzero (fontsetname
, len
);
2080 strcpy (fontsetname
, base_fontname
);
2081 strcat (fontsetname
, sep
);
2082 strcat (fontsetname
, font_allcs
);
2083 strcat (fontsetname
, sep
);
2084 strcat (fontsetname
, font_allfamilies
);
2085 strcat (fontsetname
, sep
);
2086 strcat (fontsetname
, font_all
);
2090 strcat (fontsetname
, ":");
2094 #ifdef DEBUG_XIC_FONTSET
2096 print_fontset_result (xfs
, name
, missing_list
, missing_count
)
2099 char **missing_list
;
2103 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
2106 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
2107 while (missing_count
-- > 0)
2109 fprintf (stderr
, " missing: %s\n", *missing_list
);
2118 xic_create_xfontset (f
)
2121 XFontSet xfs
= NULL
;
2122 struct font
*font
= FRAME_FONT (f
);
2123 int pixel_size
= font
->pixel_size
;
2124 Lisp_Object rest
, frame
;
2126 /* See if there is another frame already using same fontset. */
2127 FOR_EACH_FRAME (rest
, frame
)
2129 struct frame
*cf
= XFRAME (frame
);
2131 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2132 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2134 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
2136 xfs
= FRAME_XIC_FONTSET (cf
);
2144 char **missing_list
;
2147 char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
2149 sprintf (buf
, xlfd_format
, pixel_size
);
2150 missing_list
= NULL
;
2151 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2152 &missing_list
, &missing_count
, &def_string
);
2153 #ifdef DEBUG_XIC_FONTSET
2154 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2157 XFreeStringList (missing_list
);
2160 /* List of pixel sizes most likely available. Find one that
2161 is closest to pixel_size. */
2162 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2163 int *smaller
, *larger
;
2165 for (smaller
= sizes
; smaller
[1]; smaller
++)
2166 if (smaller
[1] >= pixel_size
)
2168 larger
= smaller
+ 1;
2169 if (*larger
== pixel_size
)
2171 while (*smaller
|| *larger
)
2176 this_size
= *smaller
--;
2177 else if (! *smaller
)
2178 this_size
= *larger
++;
2179 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
2180 this_size
= *smaller
--;
2182 this_size
= *larger
++;
2183 sprintf (buf
, xlfd_format
, this_size
);
2184 missing_list
= NULL
;
2185 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2186 &missing_list
, &missing_count
, &def_string
);
2187 #ifdef DEBUG_XIC_FONTSET
2188 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2191 XFreeStringList (missing_list
);
2198 char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
2200 missing_list
= NULL
;
2201 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
2202 &missing_list
, &missing_count
, &def_string
);
2203 #ifdef DEBUG_XIC_FONTSET
2204 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
2207 XFreeStringList (missing_list
);
2215 /* Free the X fontset of frame F if it is the last frame using it. */
2218 xic_free_xfontset (f
)
2221 Lisp_Object rest
, frame
;
2224 if (!FRAME_XIC_FONTSET (f
))
2227 /* See if there is another frame sharing the same fontset. */
2228 FOR_EACH_FRAME (rest
, frame
)
2230 struct frame
*cf
= XFRAME (frame
);
2231 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2232 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2233 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2241 /* The fontset is not used anymore. It is safe to free it. */
2242 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2244 if (FRAME_XIC_BASE_FONTNAME (f
))
2245 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2246 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2247 FRAME_XIC_FONTSET (f
) = NULL
;
2251 /* Value is the best input style, given user preferences USER (already
2252 checked to be supported by Emacs), and styles supported by the
2253 input method XIM. */
2256 best_xim_style (user
, xim
)
2262 for (i
= 0; i
< user
->count_styles
; ++i
)
2263 for (j
= 0; j
< xim
->count_styles
; ++j
)
2264 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2265 return user
->supported_styles
[i
];
2267 /* Return the default style. */
2268 return XIMPreeditNothing
| XIMStatusNothing
;
2271 /* Create XIC for frame F. */
2273 static XIMStyle xic_style
;
2276 create_frame_xic (f
)
2281 XFontSet xfs
= NULL
;
2286 /* Create X fontset. */
2287 xfs
= xic_create_xfontset (f
);
2288 xim
= FRAME_X_XIM (f
);
2293 XVaNestedList preedit_attr
;
2294 XVaNestedList status_attr
;
2296 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2297 spot
.x
= 0; spot
.y
= 1;
2299 /* Determine XIC style. */
2302 XIMStyles supported_list
;
2303 supported_list
.count_styles
= (sizeof supported_xim_styles
2304 / sizeof supported_xim_styles
[0]);
2305 supported_list
.supported_styles
= supported_xim_styles
;
2306 xic_style
= best_xim_style (&supported_list
,
2307 FRAME_X_XIM_STYLES (f
));
2310 preedit_attr
= XVaCreateNestedList (0,
2313 FRAME_FOREGROUND_PIXEL (f
),
2315 FRAME_BACKGROUND_PIXEL (f
),
2316 (xic_style
& XIMPreeditPosition
2321 status_attr
= XVaCreateNestedList (0,
2327 FRAME_FOREGROUND_PIXEL (f
),
2329 FRAME_BACKGROUND_PIXEL (f
),
2332 xic
= XCreateIC (xim
,
2333 XNInputStyle
, xic_style
,
2334 XNClientWindow
, FRAME_X_WINDOW (f
),
2335 XNFocusWindow
, FRAME_X_WINDOW (f
),
2336 XNStatusAttributes
, status_attr
,
2337 XNPreeditAttributes
, preedit_attr
,
2339 XFree (preedit_attr
);
2340 XFree (status_attr
);
2343 FRAME_XIC (f
) = xic
;
2344 FRAME_XIC_STYLE (f
) = xic_style
;
2345 FRAME_XIC_FONTSET (f
) = xfs
;
2349 /* Destroy XIC and free XIC fontset of frame F, if any. */
2355 if (FRAME_XIC (f
) == NULL
)
2358 XDestroyIC (FRAME_XIC (f
));
2359 xic_free_xfontset (f
);
2361 FRAME_XIC (f
) = NULL
;
2365 /* Place preedit area for XIC of window W's frame to specified
2366 pixel position X/Y. X and Y are relative to window W. */
2369 xic_set_preeditarea (w
, x
, y
)
2373 struct frame
*f
= XFRAME (w
->frame
);
2377 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2378 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2379 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2380 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2385 /* Place status area for XIC in bottom right corner of frame F.. */
2388 xic_set_statusarea (f
)
2391 XIC xic
= FRAME_XIC (f
);
2396 /* Negotiate geometry of status area. If input method has existing
2397 status area, use its current size. */
2398 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2399 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2400 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2403 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2404 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2407 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2409 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2410 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2414 area
.width
= needed
->width
;
2415 area
.height
= needed
->height
;
2416 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2417 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2418 - FRAME_MENUBAR_HEIGHT (f
)
2419 - FRAME_TOOLBAR_HEIGHT (f
)
2420 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2423 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2424 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2429 /* Set X fontset for XIC of frame F, using base font name
2430 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2433 xic_set_xfontset (f
, base_fontname
)
2435 char *base_fontname
;
2440 xic_free_xfontset (f
);
2442 xfs
= xic_create_xfontset (f
);
2444 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2445 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2446 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2447 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2448 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2451 FRAME_XIC_FONTSET (f
) = xfs
;
2454 #endif /* HAVE_X_I18N */
2458 #ifdef USE_X_TOOLKIT
2460 /* Create and set up the X widget for frame F. */
2463 x_window (f
, window_prompting
, minibuffer_only
)
2465 long window_prompting
;
2466 int minibuffer_only
;
2468 XClassHint class_hints
;
2469 XSetWindowAttributes attributes
;
2470 unsigned long attribute_mask
;
2471 Widget shell_widget
;
2473 Widget frame_widget
;
2479 /* Use the resource name as the top-level widget name
2480 for looking up resources. Make a non-Lisp copy
2481 for the window manager, so GC relocation won't bother it.
2483 Elsewhere we specify the window name for the window manager. */
2486 char *str
= (char *) SDATA (Vx_resource_name
);
2487 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2488 strcpy (f
->namebuf
, str
);
2492 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2493 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2494 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2495 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2496 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2497 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2498 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2499 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2500 applicationShellWidgetClass
,
2501 FRAME_X_DISPLAY (f
), al
, ac
);
2503 f
->output_data
.x
->widget
= shell_widget
;
2504 /* maybe_set_screen_title_format (shell_widget); */
2506 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2507 (widget_value
*) NULL
,
2508 shell_widget
, False
,
2512 (lw_callback
) NULL
);
2515 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2516 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2517 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2518 XtSetValues (pane_widget
, al
, ac
);
2519 f
->output_data
.x
->column_widget
= pane_widget
;
2521 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2522 the emacs screen when changing menubar. This reduces flickering. */
2525 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2526 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2527 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2528 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2529 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2530 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2531 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2532 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2533 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2536 f
->output_data
.x
->edit_widget
= frame_widget
;
2538 XtManageChild (frame_widget
);
2540 /* Do some needed geometry management. */
2543 char *tem
, shell_position
[32];
2546 int extra_borders
= 0;
2548 = (f
->output_data
.x
->menubar_widget
2549 ? (f
->output_data
.x
->menubar_widget
->core
.height
2550 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2553 #if 0 /* Experimentally, we now get the right results
2554 for -geometry -0-0 without this. 24 Aug 96, rms. */
2555 if (FRAME_EXTERNAL_MENU_BAR (f
))
2558 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2559 menubar_size
+= ibw
;
2563 f
->output_data
.x
->menubar_height
= menubar_size
;
2566 /* Motif seems to need this amount added to the sizes
2567 specified for the shell widget. The Athena/Lucid widgets don't.
2568 Both conclusions reached experimentally. -- rms. */
2569 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2570 &extra_borders
, NULL
);
2574 /* Convert our geometry parameters into a geometry string
2576 Note that we do not specify here whether the position
2577 is a user-specified or program-specified one.
2578 We pass that information later, in x_wm_set_size_hints. */
2580 int left
= f
->left_pos
;
2581 int xneg
= window_prompting
& XNegative
;
2582 int top
= f
->top_pos
;
2583 int yneg
= window_prompting
& YNegative
;
2589 if (window_prompting
& USPosition
)
2590 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2591 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2592 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2593 (xneg
? '-' : '+'), left
,
2594 (yneg
? '-' : '+'), top
);
2597 sprintf (shell_position
, "=%dx%d",
2598 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2599 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2601 /* Setting x and y when the position is not specified in
2602 the geometry string will set program position in the WM hints.
2603 If Emacs had just one program position, we could set it in
2604 fallback resources, but since each make-frame call can specify
2605 different program positions, this is easier. */
2606 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2607 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2611 len
= strlen (shell_position
) + 1;
2612 /* We don't free this because we don't know whether
2613 it is safe to free it while the frame exists.
2614 It isn't worth the trouble of arranging to free it
2615 when the frame is deleted. */
2616 tem
= (char *) xmalloc (len
);
2617 strncpy (tem
, shell_position
, len
);
2618 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2619 XtSetValues (shell_widget
, al
, ac
);
2622 XtManageChild (pane_widget
);
2623 XtRealizeWidget (shell_widget
);
2625 if (FRAME_X_EMBEDDED_P (f
))
2626 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2627 f
->output_data
.x
->parent_desc
, 0, 0);
2629 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2631 validate_x_resource_name ();
2633 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2634 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2635 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2638 FRAME_XIC (f
) = NULL
;
2640 create_frame_xic (f
);
2643 f
->output_data
.x
->wm_hints
.input
= True
;
2644 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2645 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2646 &f
->output_data
.x
->wm_hints
);
2648 hack_wm_protocols (f
, shell_widget
);
2651 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2654 /* Do a stupid property change to force the server to generate a
2655 PropertyNotify event so that the event_stream server timestamp will
2656 be initialized to something relevant to the time we created the window.
2658 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2659 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2660 XA_ATOM
, 32, PropModeAppend
,
2661 (unsigned char*) NULL
, 0);
2663 /* Make all the standard events reach the Emacs frame. */
2664 attributes
.event_mask
= STANDARD_EVENT_SET
;
2669 /* XIM server might require some X events. */
2670 unsigned long fevent
= NoEventMask
;
2671 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2672 attributes
.event_mask
|= fevent
;
2674 #endif /* HAVE_X_I18N */
2676 attribute_mask
= CWEventMask
;
2677 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2678 attribute_mask
, &attributes
);
2680 XtMapWidget (frame_widget
);
2682 /* x_set_name normally ignores requests to set the name if the
2683 requested name is the same as the current name. This is the one
2684 place where that assumption isn't correct; f->name is set, but
2685 the X server hasn't been told. */
2688 int explicit = f
->explicit_name
;
2690 f
->explicit_name
= 0;
2693 x_set_name (f
, name
, explicit);
2696 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2697 f
->output_data
.x
->current_cursor
2698 = f
->output_data
.x
->text_cursor
);
2702 /* This is a no-op, except under Motif. Make sure main areas are
2703 set to something reasonable, in case we get an error later. */
2704 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2707 #else /* not USE_X_TOOLKIT */
2713 if (! xg_create_frame_widgets (f
))
2714 error ("Unable to create window");
2717 FRAME_XIC (f
) = NULL
;
2721 create_frame_xic (f
);
2724 /* XIM server might require some X events. */
2725 unsigned long fevent
= NoEventMask
;
2726 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2728 if (fevent
!= NoEventMask
)
2730 XSetWindowAttributes attributes
;
2731 XWindowAttributes wattr
;
2732 unsigned long attribute_mask
;
2734 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2736 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2737 attribute_mask
= CWEventMask
;
2738 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2739 attribute_mask
, &attributes
);
2747 #else /*! USE_GTK */
2748 /* Create and set up the X window for frame F. */
2755 XClassHint class_hints
;
2756 XSetWindowAttributes attributes
;
2757 unsigned long attribute_mask
;
2759 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2760 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2761 attributes
.bit_gravity
= StaticGravity
;
2762 attributes
.backing_store
= NotUseful
;
2763 attributes
.save_under
= True
;
2764 attributes
.event_mask
= STANDARD_EVENT_SET
;
2765 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2766 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2771 = XCreateWindow (FRAME_X_DISPLAY (f
),
2772 f
->output_data
.x
->parent_desc
,
2775 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2777 CopyFromParent
, /* depth */
2778 InputOutput
, /* class */
2780 attribute_mask
, &attributes
);
2785 create_frame_xic (f
);
2788 /* XIM server might require some X events. */
2789 unsigned long fevent
= NoEventMask
;
2790 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2791 attributes
.event_mask
|= fevent
;
2792 attribute_mask
= CWEventMask
;
2793 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2794 attribute_mask
, &attributes
);
2797 #endif /* HAVE_X_I18N */
2799 validate_x_resource_name ();
2801 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2802 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2803 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2805 /* The menubar is part of the ordinary display;
2806 it does not count in addition to the height of the window. */
2807 f
->output_data
.x
->menubar_height
= 0;
2809 /* This indicates that we use the "Passive Input" input model.
2810 Unless we do this, we don't get the Focus{In,Out} events that we
2811 need to draw the cursor correctly. Accursed bureaucrats.
2812 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2814 f
->output_data
.x
->wm_hints
.input
= True
;
2815 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2816 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2817 &f
->output_data
.x
->wm_hints
);
2818 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2820 /* Request "save yourself" and "delete window" commands from wm. */
2823 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2824 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2825 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2828 /* x_set_name normally ignores requests to set the name if the
2829 requested name is the same as the current name. This is the one
2830 place where that assumption isn't correct; f->name is set, but
2831 the X server hasn't been told. */
2834 int explicit = f
->explicit_name
;
2836 f
->explicit_name
= 0;
2839 x_set_name (f
, name
, explicit);
2842 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2843 f
->output_data
.x
->current_cursor
2844 = f
->output_data
.x
->text_cursor
);
2848 if (FRAME_X_WINDOW (f
) == 0)
2849 error ("Unable to create window");
2852 #endif /* not USE_GTK */
2853 #endif /* not USE_X_TOOLKIT */
2855 /* Verify that the icon position args for this window are valid. */
2858 x_icon_verify (f
, parms
)
2862 Lisp_Object icon_x
, icon_y
;
2864 /* Set the position of the icon. Note that twm groups all
2865 icons in an icon window. */
2866 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2867 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2868 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2870 CHECK_NUMBER (icon_x
);
2871 CHECK_NUMBER (icon_y
);
2873 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2874 error ("Both left and top icon corners of icon must be specified");
2877 /* Handle the icon stuff for this window. Perhaps later we might
2878 want an x_set_icon_position which can be called interactively as
2886 Lisp_Object icon_x
, icon_y
;
2888 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2891 /* Set the position of the icon. Note that twm groups all
2892 icons in an icon window. */
2893 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2894 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2895 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2897 CHECK_NUMBER (icon_x
);
2898 CHECK_NUMBER (icon_y
);
2900 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2901 error ("Both left and top icon corners of icon must be specified");
2905 if (! EQ (icon_x
, Qunbound
))
2906 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2908 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2909 but x_create_frame still needs it. */
2910 /* Start up iconic or window? */
2911 x_wm_set_window_state
2912 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2918 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2925 /* Make the GCs needed for this window, setting the
2926 background, border and mouse colors; also create the
2927 mouse cursor and the gray border tile. */
2933 XGCValues gc_values
;
2937 /* Create the GCs of this frame.
2938 Note that many default values are used. */
2940 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2941 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2942 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2943 f
->output_data
.x
->normal_gc
2944 = XCreateGC (FRAME_X_DISPLAY (f
),
2946 GCLineWidth
| GCForeground
| GCBackground
,
2949 /* Reverse video style. */
2950 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2951 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2952 f
->output_data
.x
->reverse_gc
2953 = XCreateGC (FRAME_X_DISPLAY (f
),
2955 GCForeground
| GCBackground
| GCLineWidth
,
2958 /* Cursor has cursor-color background, background-color foreground. */
2959 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2960 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2961 gc_values
.fill_style
= FillOpaqueStippled
;
2962 f
->output_data
.x
->cursor_gc
2963 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2964 (GCForeground
| GCBackground
2965 | GCFillStyle
| GCLineWidth
),
2969 f
->output_data
.x
->white_relief
.gc
= 0;
2970 f
->output_data
.x
->black_relief
.gc
= 0;
2972 /* Create the gray border tile used when the pointer is not in
2973 the frame. Since this depends on the frame's pixel values,
2974 this must be done on a per-frame basis. */
2975 f
->output_data
.x
->border_tile
2976 = (XCreatePixmapFromBitmapData
2977 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2978 gray_bits
, gray_width
, gray_height
,
2979 FRAME_FOREGROUND_PIXEL (f
),
2980 FRAME_BACKGROUND_PIXEL (f
),
2981 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2987 /* Free what was allocated in x_make_gc. */
2993 Display
*dpy
= FRAME_X_DISPLAY (f
);
2997 if (f
->output_data
.x
->normal_gc
)
2999 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
3000 f
->output_data
.x
->normal_gc
= 0;
3003 if (f
->output_data
.x
->reverse_gc
)
3005 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
3006 f
->output_data
.x
->reverse_gc
= 0;
3009 if (f
->output_data
.x
->cursor_gc
)
3011 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
3012 f
->output_data
.x
->cursor_gc
= 0;
3015 if (f
->output_data
.x
->border_tile
)
3017 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
3018 f
->output_data
.x
->border_tile
= 0;
3025 /* Handler for signals raised during x_create_frame and
3026 x_create_top_frame. FRAME is the frame which is partially
3030 unwind_create_frame (frame
)
3033 struct frame
*f
= XFRAME (frame
);
3035 /* If frame is already dead, nothing to do. This can happen if the
3036 display is disconnected after the frame has become official, but
3037 before x_create_frame removes the unwind protect. */
3038 if (!FRAME_LIVE_P (f
))
3041 /* If frame is ``official'', nothing to do. */
3042 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
3045 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
3048 x_free_frame_resources (f
);
3051 /* Check that reference counts are indeed correct. */
3052 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
3053 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
3063 x_default_font_parameter (f
, parms
)
3067 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
3068 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
3071 int got_from_gconf
= 0;
3072 if (EQ (font_param
, Qunbound
))
3075 if (NILP (font_param
))
3077 /* System font takes precedendce over X resources. We must suggest this
3078 regardless of font-use-system-font because .emacs may not have been
3080 const char *system_font
= xsettings_get_system_font ();
3081 if (system_font
) font_param
= make_string (system_font
,
3082 strlen (system_font
));
3085 font
= !NILP (font_param
) ? font_param
3086 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3088 if (! STRINGP (font
))
3093 /* This will find the normal Xft font. */
3096 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
3097 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3098 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3099 /* This was formerly the first thing tried, but it finds
3100 too many fonts and takes too long. */
3101 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
3102 /* If those didn't work, look for something which will
3104 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
3109 for (i
= 0; names
[i
]; i
++)
3111 font
= font_open_by_name (f
, names
[i
]);
3116 error ("No suitable font was found");
3118 else if (!NILP (font_param
))
3120 /* Remember the explicit font parameter, so we can re-apply it after
3121 we've applied the `default' face settings. */
3122 x_set_frame_parameters (f
, Fcons (Fcons (Qfont_param
, font_param
), Qnil
));
3125 x_default_parameter (f
, parms
, Qfont
, font
,
3126 got_from_gconf
? NULL
: "font",
3127 got_from_gconf
? NULL
: "Font",
3132 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
3134 doc
: /* Send the size hints for frame FRAME to the window manager.
3135 If FRAME is nil, use the selected frame. */)
3141 frame
= selected_frame
;
3145 x_wm_set_size_hint (f
, 0, 0);
3150 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3152 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3153 Return an Emacs frame object.
3154 PARMS is an alist of frame parameters.
3155 If the parameters specify that the frame should not have a minibuffer,
3156 and do not specify a specific minibuffer window to use,
3157 then `default-minibuffer-frame' must be a frame whose minibuffer can
3158 be shared by the new frame.
3160 This function is an internal primitive--use `make-frame' instead. */)
3165 Lisp_Object frame
, tem
;
3167 int minibuffer_only
= 0;
3168 long window_prompting
= 0;
3170 int count
= SPECPDL_INDEX ();
3171 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3172 Lisp_Object display
;
3173 struct x_display_info
*dpyinfo
= NULL
;
3177 parms
= Fcopy_alist (parms
);
3179 /* Use this general default value to start with
3180 until we know if this frame has a specified name. */
3181 Vx_resource_name
= Vinvocation_name
;
3183 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3184 if (EQ (display
, Qunbound
))
3185 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3186 if (EQ (display
, Qunbound
))
3188 dpyinfo
= check_x_display_info (display
);
3189 kb
= dpyinfo
->terminal
->kboard
;
3191 if (!dpyinfo
->terminal
->name
)
3192 error ("Terminal is not live, can't create new frames on it");
3194 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3196 && ! EQ (name
, Qunbound
)
3198 error ("Invalid frame name--not a string or nil");
3201 Vx_resource_name
= name
;
3203 /* See if parent window is specified. */
3204 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3205 if (EQ (parent
, Qunbound
))
3207 if (! NILP (parent
))
3208 CHECK_NUMBER (parent
);
3210 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3211 /* No need to protect DISPLAY because that's not used after passing
3212 it to make_frame_without_minibuffer. */
3214 GCPRO4 (parms
, parent
, name
, frame
);
3215 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3217 if (EQ (tem
, Qnone
) || NILP (tem
))
3218 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3219 else if (EQ (tem
, Qonly
))
3221 f
= make_minibuffer_frame ();
3222 minibuffer_only
= 1;
3224 else if (WINDOWP (tem
))
3225 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3229 XSETFRAME (frame
, f
);
3231 /* Note that X Windows does support scroll bars. */
3232 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3234 f
->terminal
= dpyinfo
->terminal
;
3235 f
->terminal
->reference_count
++;
3237 f
->output_method
= output_x_window
;
3238 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3239 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3240 f
->output_data
.x
->icon_bitmap
= -1;
3241 FRAME_FONTSET (f
) = -1;
3242 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3243 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3244 #ifdef USE_TOOLKIT_SCROLL_BARS
3245 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3246 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3247 #endif /* USE_TOOLKIT_SCROLL_BARS */
3250 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3252 if (! STRINGP (f
->icon_name
))
3253 f
->icon_name
= Qnil
;
3255 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3257 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3258 record_unwind_protect (unwind_create_frame
, frame
);
3260 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
3261 dpyinfo_refcount
= dpyinfo
->reference_count
;
3262 #endif /* GLYPH_DEBUG */
3264 /* These colors will be set anyway later, but it's important
3265 to get the color reference counts right, so initialize them! */
3268 struct gcpro gcpro1
;
3270 /* Function x_decode_color can signal an error. Make
3271 sure to initialize color slots so that we won't try
3272 to free colors we haven't allocated. */
3273 FRAME_FOREGROUND_PIXEL (f
) = -1;
3274 FRAME_BACKGROUND_PIXEL (f
) = -1;
3275 f
->output_data
.x
->cursor_pixel
= -1;
3276 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3277 f
->output_data
.x
->border_pixel
= -1;
3278 f
->output_data
.x
->mouse_pixel
= -1;
3280 black
= build_string ("black");
3282 FRAME_FOREGROUND_PIXEL (f
)
3283 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3284 FRAME_BACKGROUND_PIXEL (f
)
3285 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3286 f
->output_data
.x
->cursor_pixel
3287 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3288 f
->output_data
.x
->cursor_foreground_pixel
3289 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3290 f
->output_data
.x
->border_pixel
3291 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3292 f
->output_data
.x
->mouse_pixel
3293 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3297 /* Specify the parent under which to make this X window. */
3301 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3302 f
->output_data
.x
->explicit_parent
= 1;
3306 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3307 f
->output_data
.x
->explicit_parent
= 0;
3310 /* Set the name; the functions to which we pass f expect the name to
3312 if (EQ (name
, Qunbound
) || NILP (name
))
3314 f
->name
= build_string (dpyinfo
->x_id_name
);
3315 f
->explicit_name
= 0;
3320 f
->explicit_name
= 1;
3321 /* use the frame's title when getting resources for this frame. */
3322 specbind (Qx_resource_name
, name
);
3325 f
->resx
= dpyinfo
->resx
;
3326 f
->resy
= dpyinfo
->resy
;
3328 #ifdef HAVE_FREETYPE
3330 register_font_driver (&xftfont_driver
, f
);
3331 #else /* not HAVE_XFT */
3332 register_font_driver (&ftxfont_driver
, f
);
3333 #endif /* not HAVE_XFT */
3334 #endif /* HAVE_FREETYPE */
3335 register_font_driver (&xfont_driver
, f
);
3337 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3338 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3340 /* Extract the window parameters from the supplied values
3341 that are needed to determine window geometry. */
3342 x_default_font_parameter (f
, parms
);
3343 if (!FRAME_FONT (f
))
3345 delete_frame (frame
, Qnoelisp
);
3346 error ("Invalid frame font");
3350 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3351 whereby it fails to get any font. */
3353 xlwmenu_default_font
= XLoadQueryFont (FRAME_X_DISPLAY (f
), "fixed");
3357 /* Frame contents get displaced if an embedded X window has a border. */
3358 if (! FRAME_X_EMBEDDED_P (f
))
3359 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3360 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3362 /* This defaults to 1 in order to match xterm. We recognize either
3363 internalBorderWidth or internalBorder (which is what xterm calls
3365 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3369 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3370 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3371 if (! EQ (value
, Qunbound
))
3372 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3375 x_default_parameter (f
, parms
, Qinternal_border_width
,
3376 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3381 "internalBorderWidth", "internalBorderWidth",
3383 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3384 "verticalScrollBars", "ScrollBars",
3387 /* Also do the stuff which must be set before the window exists. */
3388 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3389 "foreground", "Foreground", RES_TYPE_STRING
);
3390 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3391 "background", "Background", RES_TYPE_STRING
);
3392 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3393 "pointerColor", "Foreground", RES_TYPE_STRING
);
3394 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3395 "cursorColor", "Foreground", RES_TYPE_STRING
);
3396 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3397 "borderColor", "BorderColor", RES_TYPE_STRING
);
3398 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3399 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3400 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3401 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3402 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3403 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3404 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3405 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3407 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3408 "scrollBarForeground",
3409 "ScrollBarForeground", 1);
3410 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3411 "scrollBarBackground",
3412 "ScrollBarBackground", 0);
3414 /* Init faces before x_default_parameter is called for scroll-bar
3415 parameters because that function calls x_set_scroll_bar_width,
3416 which calls change_frame_size, which calls Fset_window_buffer,
3417 which runs hooks, which call Fvertical_motion. At the end, we
3418 end up in init_iterator with a null face cache, which should not
3420 init_frame_faces (f
);
3422 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3423 "menuBar", "MenuBar", RES_TYPE_BOOLEAN_NUMBER
);
3424 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3425 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3426 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3427 "bufferPredicate", "BufferPredicate",
3429 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3430 "title", "Title", RES_TYPE_STRING
);
3431 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3432 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3433 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3434 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3436 /* Compute the size of the X window. */
3437 window_prompting
= x_figure_window_size (f
, parms
, 1);
3439 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3440 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3442 x_icon_verify (f
, parms
);
3444 /* Create the X widget or window. */
3445 #ifdef USE_X_TOOLKIT
3446 x_window (f
, window_prompting
, minibuffer_only
);
3454 /* Now consider the frame official. */
3455 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3456 Vframe_list
= Fcons (frame
, Vframe_list
);
3458 /* We need to do this after creating the X window, so that the
3459 icon-creation functions can say whose icon they're describing. */
3460 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3461 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3463 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3464 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3465 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3466 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3467 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3468 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3469 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3470 "scrollBarWidth", "ScrollBarWidth",
3472 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3473 "alpha", "Alpha", RES_TYPE_NUMBER
);
3475 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3476 Change will not be effected unless different from the current
3478 width
= FRAME_COLS (f
);
3479 height
= FRAME_LINES (f
);
3481 SET_FRAME_COLS (f
, 0);
3482 FRAME_LINES (f
) = 0;
3483 change_frame_size (f
, height
, width
, 1, 0, 0);
3485 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3486 /* Create the menu bar. */
3487 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3489 /* If this signals an error, we haven't set size hints for the
3490 frame and we didn't make it visible. */
3491 initialize_frame_menubar (f
);
3494 /* This is a no-op, except under Motif where it arranges the
3495 main window for the widgets on it. */
3496 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3497 f
->output_data
.x
->menubar_widget
,
3498 f
->output_data
.x
->edit_widget
);
3499 #endif /* not USE_GTK */
3501 #endif /* USE_X_TOOLKIT || USE_GTK */
3503 /* Tell the server what size and position, etc, we want, and how
3504 badly we want them. This should be done after we have the menu
3505 bar so that its size can be taken into account. */
3507 x_wm_set_size_hint (f
, window_prompting
, 0);
3510 /* Make the window appear on the frame and enable display, unless
3511 the caller says not to. However, with explicit parent, Emacs
3512 cannot control visibility, so don't try. */
3513 if (! f
->output_data
.x
->explicit_parent
)
3515 Lisp_Object visibility
;
3517 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3519 if (EQ (visibility
, Qunbound
))
3522 if (EQ (visibility
, Qicon
))
3523 x_iconify_frame (f
);
3524 else if (! NILP (visibility
))
3525 x_make_frame_visible (f
);
3527 /* Must have been Qnil. */
3531 /* Set the WM leader property. GTK does this itself, so this is not
3532 needed when using GTK. */
3533 if (dpyinfo
->client_leader_window
!= 0)
3536 XChangeProperty (FRAME_X_DISPLAY (f
),
3537 FRAME_OUTER_WINDOW (f
),
3538 dpyinfo
->Xatom_wm_client_leader
,
3539 XA_WINDOW
, 32, PropModeReplace
,
3540 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3544 /* Initialize `default-minibuffer-frame' in case this is the first
3545 frame on this terminal. */
3546 if (FRAME_HAS_MINIBUF_P (f
)
3547 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3548 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3549 kb
->Vdefault_minibuffer_frame
= frame
;
3551 /* All remaining specified parameters, which have not been "used"
3552 by x_get_arg and friends, now go in the misc. alist of the frame. */
3553 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3554 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3555 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3559 /* Make sure windows on this frame appear in calls to next-window
3560 and similar functions. */
3561 Vwindow_list
= Qnil
;
3563 return unbind_to (count
, frame
);
3567 /* FRAME is used only to get a handle on the X display. We don't pass the
3568 display info directly because we're called from frame.c, which doesn't
3569 know about that structure. */
3572 x_get_focus_frame (frame
)
3573 struct frame
*frame
;
3575 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3577 if (! dpyinfo
->x_focus_frame
)
3580 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3585 /* In certain situations, when the window manager follows a
3586 click-to-focus policy, there seems to be no way around calling
3587 XSetInputFocus to give another frame the input focus .
3589 In an ideal world, XSetInputFocus should generally be avoided so
3590 that applications don't interfere with the window manager's focus
3591 policy. But I think it's okay to use when it's clearly done
3592 following a user-command. */
3594 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3595 doc
: /* Set the input focus to FRAME.
3596 FRAME nil means use the selected frame. */)
3600 struct frame
*f
= check_x_frame (frame
);
3601 Display
*dpy
= FRAME_X_DISPLAY (f
);
3604 x_catch_errors (dpy
);
3605 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3606 RevertToParent
, CurrentTime
);
3607 x_ewmh_activate_frame (f
);
3608 x_uncatch_errors ();
3615 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3616 doc
: /* Internal function called by `color-defined-p', which see. */)
3618 Lisp_Object color
, frame
;
3621 FRAME_PTR f
= check_x_frame (frame
);
3623 CHECK_STRING (color
);
3625 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3631 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3632 doc
: /* Internal function called by `color-values', which see. */)
3634 Lisp_Object color
, frame
;
3637 FRAME_PTR f
= check_x_frame (frame
);
3639 CHECK_STRING (color
);
3641 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3642 return list3 (make_number (foo
.red
),
3643 make_number (foo
.green
),
3644 make_number (foo
.blue
));
3649 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3650 doc
: /* Internal function called by `display-color-p', which see. */)
3652 Lisp_Object terminal
;
3654 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3656 if (dpyinfo
->n_planes
<= 2)
3659 switch (dpyinfo
->visual
->class)
3672 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3674 doc
: /* Return t if the X display supports shades of gray.
3675 Note that color displays do support shades of gray.
3676 The optional argument TERMINAL specifies which display to ask about.
3677 TERMINAL should be a terminal object, a frame or a display name (a string).
3678 If omitted or nil, that stands for the selected frame's display. */)
3680 Lisp_Object terminal
;
3682 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3684 if (dpyinfo
->n_planes
<= 1)
3687 switch (dpyinfo
->visual
->class)
3702 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3704 doc
: /* Return the width in pixels of the X display TERMINAL.
3705 The optional argument TERMINAL specifies which display to ask about.
3706 TERMINAL should be a terminal object, a frame or a display name (a string).
3707 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 return make_number (x_display_pixel_width (dpyinfo
));
3716 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3717 Sx_display_pixel_height
, 0, 1, 0,
3718 doc
: /* Return the height in pixels of the X display TERMINAL.
3719 The optional argument TERMINAL specifies which display to ask about.
3720 TERMINAL should be a terminal object, a frame or a display name (a string).
3721 If omitted or nil, that stands for the selected frame's display. */)
3723 Lisp_Object terminal
;
3725 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3727 return make_number (x_display_pixel_height (dpyinfo
));
3730 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3732 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3733 The optional argument TERMINAL specifies which display to ask about.
3734 TERMINAL should be a terminal object, a frame or a display name (a string).
3735 If omitted or nil, that stands for the selected frame's display. */)
3737 Lisp_Object terminal
;
3739 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3741 return make_number (dpyinfo
->n_planes
);
3744 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3746 doc
: /* Return the number of color cells of the X display TERMINAL.
3747 The optional argument TERMINAL specifies which display to ask about.
3748 TERMINAL should be a terminal object, a frame or a display name (a string).
3749 If omitted or nil, that stands for the selected frame's display. */)
3751 Lisp_Object terminal
;
3753 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3755 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3756 XScreenNumberOfScreen (dpyinfo
->screen
));
3758 /* Truncate nr_planes to 24 to avoid integer overflow.
3759 Some displays says 32, but only 24 bits are actually significant.
3760 There are only very few and rare video cards that have more than
3761 24 significant bits. Also 24 bits is more than 16 million colors,
3762 it "should be enough for everyone". */
3763 if (nr_planes
> 24) nr_planes
= 24;
3765 return make_number (1 << nr_planes
);
3768 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3769 Sx_server_max_request_size
,
3771 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3772 The optional argument TERMINAL specifies which display to ask about.
3773 TERMINAL should be a terminal object, a frame or a display name (a string).
3774 If omitted or nil, that stands for the selected frame's display. */)
3776 Lisp_Object terminal
;
3778 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3780 return make_number (MAXREQUEST (dpyinfo
->display
));
3783 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3784 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3785 \(Labelling every distributor as a "vendor" embodies the false assumption
3786 that operating systems cannot be developed and distributed noncommercially.)
3787 The optional argument TERMINAL specifies which display to ask about.
3788 TERMINAL should be a terminal object, a frame or a display name (a string).
3789 If omitted or nil, that stands for the selected frame's display. */)
3791 Lisp_Object terminal
;
3793 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3794 char *vendor
= ServerVendor (dpyinfo
->display
);
3796 if (! vendor
) vendor
= "";
3797 return build_string (vendor
);
3800 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3801 doc
: /* Return the version numbers of the X server of display TERMINAL.
3802 The value is a list of three integers: the major and minor
3803 version numbers of the X Protocol in use, and the distributor-specific release
3804 number. See also the function `x-server-vendor'.
3806 The optional argument TERMINAL specifies which display to ask about.
3807 TERMINAL should be a terminal object, a frame or a display name (a string).
3808 If omitted or nil, that stands for the selected frame's display. */)
3810 Lisp_Object terminal
;
3812 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3813 Display
*dpy
= dpyinfo
->display
;
3815 return Fcons (make_number (ProtocolVersion (dpy
)),
3816 Fcons (make_number (ProtocolRevision (dpy
)),
3817 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3820 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3821 doc
: /* Return the number of screens on the X server of display TERMINAL.
3822 The optional argument TERMINAL specifies which display to ask about.
3823 TERMINAL should be a terminal object, a frame or a display name (a string).
3824 If omitted or nil, that stands for the selected frame's display. */)
3826 Lisp_Object terminal
;
3828 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3830 return make_number (ScreenCount (dpyinfo
->display
));
3833 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3834 doc
: /* Return the height in millimeters of the X display TERMINAL.
3835 The optional argument TERMINAL specifies which display to ask about.
3836 TERMINAL should be a terminal object, a frame or a display name (a string).
3837 If omitted or nil, that stands for the selected frame's display. */)
3839 Lisp_Object terminal
;
3841 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3843 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3846 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3847 doc
: /* Return the width in millimeters of the X display TERMINAL.
3848 The optional argument TERMINAL specifies which display to ask about.
3849 TERMINAL should be a terminal object, a frame or a display name (a string).
3850 If omitted or nil, that stands for the selected frame's display. */)
3852 Lisp_Object terminal
;
3854 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3856 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3859 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3860 Sx_display_backing_store
, 0, 1, 0,
3861 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3862 The value may be `always', `when-mapped', or `not-useful'.
3863 The optional argument TERMINAL specifies which display to ask about.
3864 TERMINAL should be a terminal object, a frame or a display name (a string).
3865 If omitted or nil, that stands for the selected frame's display. */)
3867 Lisp_Object terminal
;
3869 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3872 switch (DoesBackingStore (dpyinfo
->screen
))
3875 result
= intern ("always");
3879 result
= intern ("when-mapped");
3883 result
= intern ("not-useful");
3887 error ("Strange value for BackingStore parameter of screen");
3894 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3895 Sx_display_visual_class
, 0, 1, 0,
3896 doc
: /* Return the visual class of the X display TERMINAL.
3897 The value is one of the symbols `static-gray', `gray-scale',
3898 `static-color', `pseudo-color', `true-color', or `direct-color'.
3900 The optional argument TERMINAL specifies which display to ask about.
3901 TERMINAL should a terminal object, a frame or a display name (a string).
3902 If omitted or nil, that stands for the selected frame's display. */)
3904 Lisp_Object terminal
;
3906 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3909 switch (dpyinfo
->visual
->class)
3912 result
= intern ("static-gray");
3915 result
= intern ("gray-scale");
3918 result
= intern ("static-color");
3921 result
= intern ("pseudo-color");
3924 result
= intern ("true-color");
3927 result
= intern ("direct-color");
3930 error ("Display has an unknown visual class");
3937 DEFUN ("x-display-save-under", Fx_display_save_under
,
3938 Sx_display_save_under
, 0, 1, 0,
3939 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3940 The optional argument TERMINAL specifies which display to ask about.
3941 TERMINAL should be a terminal object, a frame or a display name (a string).
3942 If omitted or nil, that stands for the selected frame's display. */)
3944 Lisp_Object terminal
;
3946 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3948 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3956 register struct frame
*f
;
3958 return FRAME_PIXEL_WIDTH (f
);
3963 register struct frame
*f
;
3965 return FRAME_PIXEL_HEIGHT (f
);
3970 register struct frame
*f
;
3972 return FRAME_COLUMN_WIDTH (f
);
3977 register struct frame
*f
;
3979 return FRAME_LINE_HEIGHT (f
);
3984 register struct frame
*f
;
3986 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3991 /************************************************************************
3993 ************************************************************************/
3996 /* Mapping visual names to visuals. */
3998 static struct visual_class
4005 {"StaticGray", StaticGray
},
4006 {"GrayScale", GrayScale
},
4007 {"StaticColor", StaticColor
},
4008 {"PseudoColor", PseudoColor
},
4009 {"TrueColor", TrueColor
},
4010 {"DirectColor", DirectColor
},
4015 #ifndef HAVE_XSCREENNUMBEROFSCREEN
4017 /* Value is the screen number of screen SCR. This is a substitute for
4018 the X function with the same name when that doesn't exist. */
4021 XScreenNumberOfScreen (scr
)
4022 register Screen
*scr
;
4024 Display
*dpy
= scr
->display
;
4027 for (i
= 0; i
< dpy
->nscreens
; ++i
)
4028 if (scr
== dpy
->screens
+ i
)
4034 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
4037 /* Select the visual that should be used on display DPYINFO. Set
4038 members of DPYINFO appropriately. Called from x_term_init. */
4041 select_visual (dpyinfo
)
4042 struct x_display_info
*dpyinfo
;
4044 Display
*dpy
= dpyinfo
->display
;
4045 Screen
*screen
= dpyinfo
->screen
;
4048 /* See if a visual is specified. */
4049 value
= display_x_get_resource (dpyinfo
,
4050 build_string ("visualClass"),
4051 build_string ("VisualClass"),
4053 if (STRINGP (value
))
4055 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
4056 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4057 depth, a decimal number. NAME is compared with case ignored. */
4058 char *s
= (char *) alloca (SBYTES (value
) + 1);
4063 strcpy (s
, SDATA (value
));
4064 dash
= index (s
, '-');
4067 dpyinfo
->n_planes
= atoi (dash
+ 1);
4071 /* We won't find a matching visual with depth 0, so that
4072 an error will be printed below. */
4073 dpyinfo
->n_planes
= 0;
4075 /* Determine the visual class. */
4076 for (i
= 0; visual_classes
[i
].name
; ++i
)
4077 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4079 class = visual_classes
[i
].class;
4083 /* Look up a matching visual for the specified class. */
4085 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4086 dpyinfo
->n_planes
, class, &vinfo
))
4087 fatal ("Invalid visual specification `%s'", SDATA (value
));
4089 dpyinfo
->visual
= vinfo
.visual
;
4094 XVisualInfo
*vinfo
, vinfo_template
;
4096 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4098 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4099 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4100 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4101 &vinfo_template
, &n_visuals
);
4103 fatal ("Can't get proper X visual info");
4105 dpyinfo
->n_planes
= vinfo
->depth
;
4106 XFree ((char *) vinfo
);
4111 /* Return the X display structure for the display named NAME.
4112 Open a new connection if necessary. */
4114 struct x_display_info
*
4115 x_display_info_for_name (name
)
4119 struct x_display_info
*dpyinfo
;
4121 CHECK_STRING (name
);
4124 if (! EQ (Vinitial_window_system
, intern ("x")))
4125 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4128 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4130 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4133 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4138 /* Use this general default value to start with. */
4139 Vx_resource_name
= Vinvocation_name
;
4141 validate_x_resource_name ();
4143 dpyinfo
= x_term_init (name
, (char *)0,
4144 (char *) SDATA (Vx_resource_name
));
4147 error ("Cannot connect to X server %s", SDATA (name
));
4150 XSETFASTINT (Vwindow_system_version
, 11);
4156 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4158 doc
: /* Open a connection to an X server.
4159 DISPLAY is the name of the display to connect to.
4160 Optional second arg XRM-STRING is a string of resources in xrdb format.
4161 If the optional third arg MUST-SUCCEED is non-nil,
4162 terminate Emacs if we can't open the connection. */)
4163 (display
, xrm_string
, must_succeed
)
4164 Lisp_Object display
, xrm_string
, must_succeed
;
4166 unsigned char *xrm_option
;
4167 struct x_display_info
*dpyinfo
;
4169 CHECK_STRING (display
);
4170 if (! NILP (xrm_string
))
4171 CHECK_STRING (xrm_string
);
4174 if (! EQ (Vinitial_window_system
, intern ("x")))
4175 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4178 if (! NILP (xrm_string
))
4179 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4181 xrm_option
= (unsigned char *) 0;
4183 validate_x_resource_name ();
4185 /* This is what opens the connection and sets x_current_display.
4186 This also initializes many symbols, such as those used for input. */
4187 dpyinfo
= x_term_init (display
, xrm_option
,
4188 (char *) SDATA (Vx_resource_name
));
4192 if (!NILP (must_succeed
))
4193 fatal ("Cannot connect to X server %s.\n\
4194 Check the DISPLAY environment variable or use `-d'.\n\
4195 Also use the `xauth' program to verify that you have the proper\n\
4196 authorization information needed to connect the X server.\n\
4197 An insecure way to solve the problem may be to use `xhost'.\n",
4200 error ("Cannot connect to X server %s", SDATA (display
));
4205 XSETFASTINT (Vwindow_system_version
, 11);
4209 DEFUN ("x-close-connection", Fx_close_connection
,
4210 Sx_close_connection
, 1, 1, 0,
4211 doc
: /* Close the connection to TERMINAL's X server.
4212 For TERMINAL, specify a terminal object, a frame or a display name (a
4213 string). If TERMINAL is nil, that stands for the selected frame's
4216 Lisp_Object terminal
;
4218 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4220 if (dpyinfo
->reference_count
> 0)
4221 error ("Display still has frames on it");
4223 x_delete_terminal (dpyinfo
->terminal
);
4228 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4229 doc
: /* Return the list of display names that Emacs has connections to. */)
4232 Lisp_Object tail
, result
;
4235 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4236 result
= Fcons (XCAR (XCAR (tail
)), result
);
4241 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4242 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4243 If ON is nil, allow buffering of requests.
4244 Turning on synchronization prohibits the Xlib routines from buffering
4245 requests and seriously degrades performance, but makes debugging much
4247 The optional second argument TERMINAL specifies which display to act on.
4248 TERMINAL should be a terminal object, a frame or a display name (a string).
4249 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4251 Lisp_Object terminal
, on
;
4253 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4255 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4260 /* Wait for responses to all X commands issued so far for frame F. */
4267 XSync (FRAME_X_DISPLAY (f
), False
);
4272 /***********************************************************************
4274 ***********************************************************************/
4276 DEFUN ("x-change-window-property", Fx_change_window_property
,
4277 Sx_change_window_property
, 2, 6, 0,
4278 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4279 PROP must be a string.
4280 VALUE may be a string or a list of conses, numbers and/or strings.
4281 If an element in the list is a string, it is converted to
4282 an Atom and the value of the Atom is used. If an element is a cons,
4283 it is converted to a 32 bit number where the car is the 16 top bits and the
4284 cdr is the lower 16 bits.
4285 FRAME nil or omitted means use the selected frame.
4286 If TYPE is given and non-nil, it is the name of the type of VALUE.
4287 If TYPE is not given or nil, the type is STRING.
4288 FORMAT gives the size in bits of each element if VALUE is a list.
4289 It must be one of 8, 16 or 32.
4290 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4291 If OUTER_P is non-nil, the property is changed for the outer X window of
4292 FRAME. Default is to change on the edit X window.
4295 (prop
, value
, frame
, type
, format
, outer_p
)
4296 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4298 struct frame
*f
= check_x_frame (frame
);
4300 Atom target_type
= XA_STRING
;
4301 int element_format
= 8;
4302 unsigned char *data
;
4306 CHECK_STRING (prop
);
4308 if (! NILP (format
))
4310 CHECK_NUMBER (format
);
4311 element_format
= XFASTINT (format
);
4313 if (element_format
!= 8 && element_format
!= 16
4314 && element_format
!= 32)
4315 error ("FORMAT must be one of 8, 16 or 32");
4320 nelements
= x_check_property_data (value
);
4321 if (nelements
== -1)
4322 error ("Bad data in VALUE, must be number, string or cons");
4324 if (element_format
== 8)
4325 data
= (unsigned char *) xmalloc (nelements
);
4326 else if (element_format
== 16)
4327 data
= (unsigned char *) xmalloc (nelements
*2);
4328 else /* format == 32 */
4329 /* The man page for XChangeProperty:
4330 "If the specified format is 32, the property data must be a
4332 This applies even if long is more than 64 bits. The X library
4333 converts to 32 bits before sending to the X server. */
4334 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4336 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4340 CHECK_STRING (value
);
4341 data
= SDATA (value
);
4342 nelements
= SCHARS (value
);
4346 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4349 CHECK_STRING (type
);
4350 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4353 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4354 else w
= FRAME_X_WINDOW (f
);
4356 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4357 prop_atom
, target_type
, element_format
, PropModeReplace
,
4360 if (CONSP (value
)) xfree (data
);
4362 /* Make sure the property is set when we return. */
4363 XFlush (FRAME_X_DISPLAY (f
));
4370 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4371 Sx_delete_window_property
, 1, 2, 0,
4372 doc
: /* Remove window property PROP from X window of FRAME.
4373 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4375 Lisp_Object prop
, frame
;
4377 struct frame
*f
= check_x_frame (frame
);
4380 CHECK_STRING (prop
);
4382 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4383 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4385 /* Make sure the property is removed when we return. */
4386 XFlush (FRAME_X_DISPLAY (f
));
4393 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4395 doc
: /* Value is the value of window property PROP on FRAME.
4396 If FRAME is nil or omitted, use the selected frame.
4397 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4398 is the name of the Atom that denotes the type expected.
4399 If SOURCE is non-nil, get the property on that window instead of from
4400 FRAME. The number 0 denotes the root window.
4401 If DELETE_P is non-nil, delete the property after retreiving it.
4402 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4404 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4405 no value of TYPE. */)
4406 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4407 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4409 struct frame
*f
= check_x_frame (frame
);
4412 Lisp_Object prop_value
= Qnil
;
4413 unsigned char *tmp_data
= NULL
;
4415 Atom target_type
= XA_STRING
;
4417 unsigned long actual_size
, bytes_remaining
;
4418 Window target_window
= FRAME_X_WINDOW (f
);
4419 struct gcpro gcpro1
;
4421 GCPRO1 (prop_value
);
4422 CHECK_STRING (prop
);
4424 if (! NILP (source
))
4426 if (NUMBERP (source
))
4428 if (FLOATP (source
))
4429 target_window
= (Window
) XFLOAT (source
);
4431 target_window
= XFASTINT (source
);
4433 if (target_window
== 0)
4434 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4436 else if (CONSP (source
))
4437 target_window
= cons_to_long (source
);
4443 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4444 target_type
= AnyPropertyType
;
4446 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4449 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4450 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4451 prop_atom
, 0, 0, False
, target_type
,
4452 &actual_type
, &actual_format
, &actual_size
,
4453 &bytes_remaining
, &tmp_data
);
4456 int size
= bytes_remaining
;
4461 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4462 prop_atom
, 0, bytes_remaining
,
4463 ! NILP (delete_p
), target_type
,
4464 &actual_type
, &actual_format
,
4465 &actual_size
, &bytes_remaining
,
4467 if (rc
== Success
&& tmp_data
)
4469 /* The man page for XGetWindowProperty says:
4470 "If the returned format is 32, the returned data is represented
4471 as a long array and should be cast to that type to obtain the
4473 This applies even if long is more than 32 bits, the X library
4474 converts from 32 bit elements received from the X server to long
4475 and passes the long array to us. Thus, for that case bcopy can not
4476 be used. We convert to a 32 bit type here, because so much code
4479 The bytes and offsets passed to XGetWindowProperty refers to the
4480 property and those are indeed in 32 bit quantities if format is
4483 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4486 int *idata
= (int *) tmp_data
;
4487 long *ldata
= (long *) tmp_data
;
4489 for (i
= 0; i
< actual_size
; ++i
)
4490 idata
[i
] = (int) ldata
[i
];
4493 if (NILP (vector_ret_p
))
4494 prop_value
= make_string (tmp_data
, size
);
4496 prop_value
= x_property_data_to_lisp (f
,
4503 if (tmp_data
) XFree (tmp_data
);
4513 /***********************************************************************
4515 ***********************************************************************/
4517 /* Timer function of hourglass_atimer. TIMER is equal to
4520 Display an hourglass pointer on all frames by mapping the frames'
4521 hourglass_window. Set the hourglass_p flag in the frames'
4522 output_data.x structure to indicate that an hourglass cursor is
4523 shown on the frames. */
4526 show_hourglass (timer
)
4527 struct atimer
*timer
;
4529 /* The timer implementation will cancel this timer automatically
4530 after this function has run. Set hourglass_atimer to null
4531 so that we know the timer doesn't have to be canceled. */
4532 hourglass_atimer
= NULL
;
4534 if (!hourglass_shown_p
)
4536 Lisp_Object rest
, frame
;
4540 FOR_EACH_FRAME (rest
, frame
)
4542 struct frame
*f
= XFRAME (frame
);
4544 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4546 Display
*dpy
= FRAME_X_DISPLAY (f
);
4548 #ifdef USE_X_TOOLKIT
4549 if (f
->output_data
.x
->widget
)
4551 if (FRAME_OUTER_WINDOW (f
))
4554 f
->output_data
.x
->hourglass_p
= 1;
4556 if (!f
->output_data
.x
->hourglass_window
)
4558 unsigned long mask
= CWCursor
;
4559 XSetWindowAttributes attrs
;
4561 Window parent
= FRAME_X_WINDOW (f
);
4563 Window parent
= FRAME_OUTER_WINDOW (f
);
4565 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4567 f
->output_data
.x
->hourglass_window
4568 = XCreateWindow (dpy
, parent
,
4569 0, 0, 32000, 32000, 0, 0,
4575 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4581 hourglass_shown_p
= 1;
4587 /* Hide the hourglass pointer on all frames, if it is currently
4593 if (hourglass_shown_p
)
4595 Lisp_Object rest
, frame
;
4598 FOR_EACH_FRAME (rest
, frame
)
4600 struct frame
*f
= XFRAME (frame
);
4603 /* Watch out for newly created frames. */
4604 && f
->output_data
.x
->hourglass_window
)
4606 XUnmapWindow (FRAME_X_DISPLAY (f
),
4607 f
->output_data
.x
->hourglass_window
);
4608 /* Sync here because XTread_socket looks at the
4609 hourglass_p flag that is reset to zero below. */
4610 XSync (FRAME_X_DISPLAY (f
), False
);
4611 f
->output_data
.x
->hourglass_p
= 0;
4615 hourglass_shown_p
= 0;
4622 /***********************************************************************
4624 ***********************************************************************/
4626 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4627 Lisp_Object
, Lisp_Object
));
4628 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4629 Lisp_Object
, int, int, int *, int *));
4631 /* The frame of a currently visible tooltip. */
4633 Lisp_Object tip_frame
;
4635 /* If non-nil, a timer started that hides the last tooltip when it
4638 Lisp_Object tip_timer
;
4641 /* If non-nil, a vector of 3 elements containing the last args
4642 with which x-show-tip was called. See there. */
4644 Lisp_Object last_show_tip_args
;
4646 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4648 Lisp_Object Vx_max_tooltip_size
;
4652 unwind_create_tip_frame (frame
)
4655 Lisp_Object deleted
;
4657 deleted
= unwind_create_frame (frame
);
4658 if (EQ (deleted
, Qt
))
4668 /* Create a frame for a tooltip on the display described by DPYINFO.
4669 PARMS is a list of frame parameters. TEXT is the string to
4670 display in the tip frame. Value is the frame.
4672 Note that functions called here, esp. x_default_parameter can
4673 signal errors, for instance when a specified color name is
4674 undefined. We have to make sure that we're in a consistent state
4675 when this happens. */
4678 x_create_tip_frame (dpyinfo
, parms
, text
)
4679 struct x_display_info
*dpyinfo
;
4680 Lisp_Object parms
, text
;
4683 Lisp_Object frame
, tem
;
4685 long window_prompting
= 0;
4687 int count
= SPECPDL_INDEX ();
4688 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4689 int face_change_count_before
= face_change_count
;
4691 struct buffer
*old_buffer
;
4695 if (!dpyinfo
->terminal
->name
)
4696 error ("Terminal is not live, can't create new frames on it");
4698 parms
= Fcopy_alist (parms
);
4700 /* Get the name of the frame to use for resource lookup. */
4701 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4703 && !EQ (name
, Qunbound
)
4705 error ("Invalid frame name--not a string or nil");
4708 GCPRO3 (parms
, name
, frame
);
4710 XSETFRAME (frame
, f
);
4712 buffer
= Fget_buffer_create (build_string (" *tip*"));
4713 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4714 old_buffer
= current_buffer
;
4715 set_buffer_internal_1 (XBUFFER (buffer
));
4716 current_buffer
->truncate_lines
= Qnil
;
4717 specbind (Qinhibit_read_only
, Qt
);
4718 specbind (Qinhibit_modification_hooks
, Qt
);
4721 set_buffer_internal_1 (old_buffer
);
4723 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4724 record_unwind_protect (unwind_create_tip_frame
, frame
);
4726 f
->terminal
= dpyinfo
->terminal
;
4727 f
->terminal
->reference_count
++;
4729 /* By setting the output method, we're essentially saying that
4730 the frame is live, as per FRAME_LIVE_P. If we get a signal
4731 from this point on, x_destroy_window might screw up reference
4733 f
->output_method
= output_x_window
;
4734 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4735 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4736 f
->output_data
.x
->icon_bitmap
= -1;
4737 FRAME_FONTSET (f
) = -1;
4738 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4739 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4740 #ifdef USE_TOOLKIT_SCROLL_BARS
4741 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4742 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4743 #endif /* USE_TOOLKIT_SCROLL_BARS */
4744 f
->icon_name
= Qnil
;
4745 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4747 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
4748 dpyinfo_refcount
= dpyinfo
->reference_count
;
4749 #endif /* GLYPH_DEBUG */
4750 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4751 f
->output_data
.x
->explicit_parent
= 0;
4753 /* These colors will be set anyway later, but it's important
4754 to get the color reference counts right, so initialize them! */
4757 struct gcpro gcpro1
;
4759 /* Function x_decode_color can signal an error. Make
4760 sure to initialize color slots so that we won't try
4761 to free colors we haven't allocated. */
4762 FRAME_FOREGROUND_PIXEL (f
) = -1;
4763 FRAME_BACKGROUND_PIXEL (f
) = -1;
4764 f
->output_data
.x
->cursor_pixel
= -1;
4765 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4766 f
->output_data
.x
->border_pixel
= -1;
4767 f
->output_data
.x
->mouse_pixel
= -1;
4769 black
= build_string ("black");
4771 FRAME_FOREGROUND_PIXEL (f
)
4772 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4773 FRAME_BACKGROUND_PIXEL (f
)
4774 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4775 f
->output_data
.x
->cursor_pixel
4776 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4777 f
->output_data
.x
->cursor_foreground_pixel
4778 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4779 f
->output_data
.x
->border_pixel
4780 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4781 f
->output_data
.x
->mouse_pixel
4782 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4786 /* Set the name; the functions to which we pass f expect the name to
4788 if (EQ (name
, Qunbound
) || NILP (name
))
4790 f
->name
= build_string (dpyinfo
->x_id_name
);
4791 f
->explicit_name
= 0;
4796 f
->explicit_name
= 1;
4797 /* use the frame's title when getting resources for this frame. */
4798 specbind (Qx_resource_name
, name
);
4801 f
->resx
= dpyinfo
->resx
;
4802 f
->resy
= dpyinfo
->resy
;
4804 register_font_driver (&xfont_driver
, f
);
4805 #ifdef HAVE_FREETYPE
4807 register_font_driver (&xftfont_driver
, f
);
4808 #else /* not HAVE_XFT */
4809 register_font_driver (&ftxfont_driver
, f
);
4810 #endif /* not HAVE_XFT */
4811 #endif /* HAVE_FREETYPE */
4813 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4814 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4816 /* Extract the window parameters from the supplied values that are
4817 needed to determine window geometry. */
4818 x_default_font_parameter (f
, parms
);
4820 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4821 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4823 /* This defaults to 2 in order to match xterm. We recognize either
4824 internalBorderWidth or internalBorder (which is what xterm calls
4826 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4830 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4831 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4832 if (! EQ (value
, Qunbound
))
4833 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4837 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4838 "internalBorderWidth", "internalBorderWidth",
4841 /* Also do the stuff which must be set before the window exists. */
4842 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4843 "foreground", "Foreground", RES_TYPE_STRING
);
4844 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4845 "background", "Background", RES_TYPE_STRING
);
4846 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4847 "pointerColor", "Foreground", RES_TYPE_STRING
);
4848 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4849 "cursorColor", "Foreground", RES_TYPE_STRING
);
4850 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4851 "borderColor", "BorderColor", RES_TYPE_STRING
);
4853 /* Init faces before x_default_parameter is called for scroll-bar
4854 parameters because that function calls x_set_scroll_bar_width,
4855 which calls change_frame_size, which calls Fset_window_buffer,
4856 which runs hooks, which call Fvertical_motion. At the end, we
4857 end up in init_iterator with a null face cache, which should not
4859 init_frame_faces (f
);
4861 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4863 window_prompting
= x_figure_window_size (f
, parms
, 0);
4866 XSetWindowAttributes attrs
;
4868 Atom type
= FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type_tooltip
;
4871 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4872 if (DoesSaveUnders (dpyinfo
->screen
))
4873 mask
|= CWSaveUnder
;
4875 /* Window managers look at the override-redirect flag to determine
4876 whether or net to give windows a decoration (Xlib spec, chapter
4878 attrs
.override_redirect
= True
;
4879 attrs
.save_under
= True
;
4880 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4881 /* Arrange for getting MapNotify and UnmapNotify events. */
4882 attrs
.event_mask
= StructureNotifyMask
;
4884 = FRAME_X_WINDOW (f
)
4885 = XCreateWindow (FRAME_X_DISPLAY (f
),
4886 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4887 /* x, y, width, height */
4891 CopyFromParent
, InputOutput
, CopyFromParent
,
4893 XChangeProperty (FRAME_X_DISPLAY (f
), tip_window
,
4894 FRAME_X_DISPLAY_INFO (f
)->Xatom_net_window_type
,
4895 XA_ATOM
, 32, PropModeReplace
,
4896 (unsigned char *)&type
, 1);
4902 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4903 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4904 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4905 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4906 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4907 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4909 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4910 Change will not be effected unless different from the current
4912 width
= FRAME_COLS (f
);
4913 height
= FRAME_LINES (f
);
4914 SET_FRAME_COLS (f
, 0);
4915 FRAME_LINES (f
) = 0;
4916 change_frame_size (f
, height
, width
, 1, 0, 0);
4918 /* Add `tooltip' frame parameter's default value. */
4919 if (NILP (Fframe_parameter (frame
, Qtooltip
)))
4920 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qtooltip
, Qt
), Qnil
));
4922 /* FIXME - can this be done in a similar way to normal frames?
4923 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
4925 /* Set the `display-type' frame parameter before setting up faces. */
4927 Lisp_Object disptype
;
4929 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4930 disptype
= intern ("mono");
4931 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
4932 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4933 disptype
= intern ("grayscale");
4935 disptype
= intern ("color");
4937 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4938 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4942 /* Set up faces after all frame parameters are known. This call
4943 also merges in face attributes specified for new frames.
4945 Frame parameters may be changed if .Xdefaults contains
4946 specifications for the default font. For example, if there is an
4947 `Emacs.default.attributeBackground: pink', the `background-color'
4948 attribute of the frame get's set, which let's the internal border
4949 of the tooltip frame appear in pink. Prevent this. */
4951 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4953 /* Set tip_frame here, so that */
4955 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
4957 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4958 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4966 /* It is now ok to make the frame official even if we get an error
4967 below. And the frame needs to be on Vframe_list or making it
4968 visible won't work. */
4969 Vframe_list
= Fcons (frame
, Vframe_list
);
4971 /* Now that the frame is official, it counts as a reference to
4973 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4975 /* Setting attributes of faces of the tooltip frame from resources
4976 and similar will increment face_change_count, which leads to the
4977 clearing of all current matrices. Since this isn't necessary
4978 here, avoid it by resetting face_change_count to the value it
4979 had before we created the tip frame. */
4980 face_change_count
= face_change_count_before
;
4982 /* Discard the unwind_protect. */
4983 return unbind_to (count
, frame
);
4987 /* Compute where to display tip frame F. PARMS is the list of frame
4988 parameters for F. DX and DY are specified offsets from the current
4989 location of the mouse. WIDTH and HEIGHT are the width and height
4990 of the tooltip. Return coordinates relative to the root window of
4991 the display in *ROOT_X, and *ROOT_Y. */
4994 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4996 Lisp_Object parms
, dx
, dy
;
4998 int *root_x
, *root_y
;
5000 Lisp_Object left
, top
;
5005 /* User-specified position? */
5006 left
= Fcdr (Fassq (Qleft
, parms
));
5007 top
= Fcdr (Fassq (Qtop
, parms
));
5009 /* Move the tooltip window where the mouse pointer is. Resize and
5011 if (!INTEGERP (left
) || !INTEGERP (top
))
5014 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
5015 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
5020 *root_y
= XINT (top
);
5021 else if (*root_y
+ XINT (dy
) <= 0)
5022 *root_y
= 0; /* Can happen for negative dy */
5023 else if (*root_y
+ XINT (dy
) + height
5024 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
5025 /* It fits below the pointer */
5026 *root_y
+= XINT (dy
);
5027 else if (height
+ XINT (dy
) <= *root_y
)
5028 /* It fits above the pointer. */
5029 *root_y
-= height
+ XINT (dy
);
5031 /* Put it on the top. */
5034 if (INTEGERP (left
))
5035 *root_x
= XINT (left
);
5036 else if (*root_x
+ XINT (dx
) <= 0)
5037 *root_x
= 0; /* Can happen for negative dx */
5038 else if (*root_x
+ XINT (dx
) + width
5039 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
5040 /* It fits to the right of the pointer. */
5041 *root_x
+= XINT (dx
);
5042 else if (width
+ XINT (dx
) <= *root_x
)
5043 /* It fits to the left of the pointer. */
5044 *root_x
-= width
+ XINT (dx
);
5046 /* Put it left-justified on the screen--it ought to fit that way. */
5051 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5052 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5053 A tooltip window is a small X window displaying a string.
5055 This is an internal function; Lisp code should call `tooltip-show'.
5057 FRAME nil or omitted means use the selected frame.
5059 PARMS is an optional list of frame parameters which can be used to
5060 change the tooltip's appearance.
5062 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5063 means use the default timeout of 5 seconds.
5065 If the list of frame parameters PARAMS contains a `left' parameters,
5066 the tooltip is displayed at that x-position. Otherwise it is
5067 displayed at the mouse position, with offset DX added (default is 5 if
5068 DX isn't specified). Likewise for the y-position; if a `top' frame
5069 parameter is specified, it determines the y-position of the tooltip
5070 window, otherwise it is displayed at the mouse position, with offset
5071 DY added (default is -10).
5073 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5074 Text larger than the specified size is clipped. */)
5075 (string
, frame
, parms
, timeout
, dx
, dy
)
5076 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
5081 struct buffer
*old_buffer
;
5082 struct text_pos pos
;
5083 int i
, width
, height
;
5084 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5085 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5086 int count
= SPECPDL_INDEX ();
5088 specbind (Qinhibit_redisplay
, Qt
);
5090 GCPRO4 (string
, parms
, frame
, timeout
);
5092 CHECK_STRING (string
);
5093 if (SCHARS (string
) == 0)
5094 string
= make_unibyte_string (" ", 1);
5096 f
= check_x_frame (frame
);
5098 timeout
= make_number (5);
5100 CHECK_NATNUM (timeout
);
5103 dx
= make_number (5);
5108 dy
= make_number (-10);
5112 if (NILP (last_show_tip_args
))
5113 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5115 if (!NILP (tip_frame
))
5117 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5118 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5119 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5121 if (EQ (frame
, last_frame
)
5122 && !NILP (Fequal (last_string
, string
))
5123 && !NILP (Fequal (last_parms
, parms
)))
5125 struct frame
*f
= XFRAME (tip_frame
);
5127 /* Only DX and DY have changed. */
5128 if (!NILP (tip_timer
))
5130 Lisp_Object timer
= tip_timer
;
5132 call1 (Qcancel_timer
, timer
);
5136 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5137 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5138 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5145 /* Hide a previous tip, if any. */
5148 ASET (last_show_tip_args
, 0, string
);
5149 ASET (last_show_tip_args
, 1, frame
);
5150 ASET (last_show_tip_args
, 2, parms
);
5152 /* Add default values to frame parameters. */
5153 if (NILP (Fassq (Qname
, parms
)))
5154 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5155 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5156 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5157 if (NILP (Fassq (Qborder_width
, parms
)))
5158 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5159 if (NILP (Fassq (Qborder_color
, parms
)))
5160 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5161 if (NILP (Fassq (Qbackground_color
, parms
)))
5162 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5165 /* Create a frame for the tooltip, and record it in the global
5166 variable tip_frame. */
5167 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5170 /* Set up the frame's root window. */
5171 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5172 w
->left_col
= w
->top_line
= make_number (0);
5174 if (CONSP (Vx_max_tooltip_size
)
5175 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5176 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5177 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5178 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5180 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5181 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5185 w
->total_cols
= make_number (80);
5186 w
->total_lines
= make_number (40);
5189 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5191 w
->pseudo_window_p
= 1;
5193 /* Display the tooltip text in a temporary buffer. */
5194 old_buffer
= current_buffer
;
5195 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5196 current_buffer
->truncate_lines
= Qnil
;
5197 clear_glyph_matrix (w
->desired_matrix
);
5198 clear_glyph_matrix (w
->current_matrix
);
5199 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5200 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5202 /* Compute width and height of the tooltip. */
5204 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5206 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5210 /* Stop at the first empty row at the end. */
5211 if (!row
->enabled_p
|| !row
->displays_text_p
)
5214 /* Let the row go over the full width of the frame. */
5215 row
->full_width_p
= 1;
5217 /* There's a glyph at the end of rows that is used to place
5218 the cursor there. Don't include the width of this glyph. */
5219 if (row
->used
[TEXT_AREA
])
5221 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5222 row_width
= row
->pixel_width
- last
->pixel_width
;
5225 row_width
= row
->pixel_width
;
5227 height
+= row
->height
;
5228 width
= max (width
, row_width
);
5231 /* Add the frame's internal border to the width and height the X
5232 window should have. */
5233 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5234 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5236 /* Move the tooltip window where the mouse pointer is. Resize and
5238 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5241 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5242 root_x
, root_y
, width
, height
);
5243 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5246 /* Draw into the window. */
5247 w
->must_be_updated_p
= 1;
5248 update_single_window (w
, 1);
5250 /* Restore original current buffer. */
5251 set_buffer_internal_1 (old_buffer
);
5252 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5255 /* Let the tip disappear after timeout seconds. */
5256 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5257 intern ("x-hide-tip"));
5260 return unbind_to (count
, Qnil
);
5264 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5265 doc
: /* Hide the current tooltip window, if there is any.
5266 Value is t if tooltip was open, nil otherwise. */)
5270 Lisp_Object deleted
, frame
, timer
;
5271 struct gcpro gcpro1
, gcpro2
;
5273 /* Return quickly if nothing to do. */
5274 if (NILP (tip_timer
) && NILP (tip_frame
))
5279 GCPRO2 (frame
, timer
);
5280 tip_frame
= tip_timer
= deleted
= Qnil
;
5282 count
= SPECPDL_INDEX ();
5283 specbind (Qinhibit_redisplay
, Qt
);
5284 specbind (Qinhibit_quit
, Qt
);
5287 call1 (Qcancel_timer
, timer
);
5291 delete_frame (frame
, Qnil
);
5295 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5296 redisplay procedure is not called when a tip frame over menu
5297 items is unmapped. Redisplay the menu manually... */
5299 struct frame
*f
= SELECTED_FRAME ();
5300 Widget w
= f
->output_data
.x
->menubar_widget
;
5301 extern void xlwmenu_redisplay
P_ ((Widget
));
5303 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5307 xlwmenu_redisplay (w
);
5311 #endif /* USE_LUCID */
5315 return unbind_to (count
, deleted
);
5320 /***********************************************************************
5321 File selection dialog
5322 ***********************************************************************/
5324 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5325 Sx_uses_old_gtk_dialog
,
5327 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5331 extern int use_dialog_box
;
5332 extern int use_file_dialog
;
5337 && xg_uses_old_file_dialog ())
5345 /* Callback for "OK" and "Cancel" on file selection dialog. */
5348 file_dialog_cb (widget
, client_data
, call_data
)
5350 XtPointer call_data
, client_data
;
5352 int *result
= (int *) client_data
;
5353 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5354 *result
= cb
->reason
;
5358 /* Callback for unmapping a file selection dialog. This is used to
5359 capture the case where a dialog is closed via a window manager's
5360 closer button, for example. Using a XmNdestroyCallback didn't work
5364 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5366 XtPointer call_data
, client_data
;
5368 int *result
= (int *) client_data
;
5369 *result
= XmCR_CANCEL
;
5373 clean_up_file_dialog (arg
)
5376 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5377 Widget dialog
= (Widget
) p
->pointer
;
5381 XtUnmanageChild (dialog
);
5382 XtDestroyWidget (dialog
);
5383 x_menu_set_in_use (0);
5390 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5391 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5392 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5393 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5394 or directory must exist. ONLY-DIR-P is ignored." */)
5395 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5396 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5399 struct frame
*f
= SELECTED_FRAME ();
5400 Lisp_Object file
= Qnil
;
5401 Lisp_Object decoded_file
;
5402 Widget dialog
, text
, help
;
5405 extern XtAppContext Xt_app_con
;
5406 XmString dir_xmstring
, pattern_xmstring
;
5407 int count
= SPECPDL_INDEX ();
5408 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5412 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5414 if (popup_activated ())
5415 error ("Trying to use a menu from within a menu-entry");
5417 CHECK_STRING (prompt
);
5420 /* Prevent redisplay. */
5421 specbind (Qinhibit_redisplay
, Qt
);
5425 /* Create the dialog with PROMPT as title, using DIR as initial
5426 directory and using "*" as pattern. */
5427 dir
= Fexpand_file_name (dir
, Qnil
);
5428 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5429 pattern_xmstring
= XmStringCreateLocalized ("*");
5431 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5432 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5433 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5434 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5435 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5436 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5438 XmStringFree (dir_xmstring
);
5439 XmStringFree (pattern_xmstring
);
5441 /* Add callbacks for OK and Cancel. */
5442 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5443 (XtPointer
) &result
);
5444 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5445 (XtPointer
) &result
);
5446 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5447 (XtPointer
) &result
);
5449 /* Remove the help button since we can't display help. */
5450 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5451 XtUnmanageChild (help
);
5453 /* Mark OK button as default. */
5454 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5455 XmNshowAsDefault
, True
, NULL
);
5457 /* If MUSTMATCH is non-nil, disable the file entry field of the
5458 dialog, so that the user must select a file from the files list
5459 box. We can't remove it because we wouldn't have a way to get at
5460 the result file name, then. */
5461 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5462 if (!NILP (mustmatch
))
5465 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5466 XtSetSensitive (text
, False
);
5467 XtSetSensitive (label
, False
);
5470 /* Manage the dialog, so that list boxes get filled. */
5471 XtManageChild (dialog
);
5473 if (STRINGP (default_filename
))
5475 XmString default_xmstring
;
5476 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5477 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5479 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5480 XmTextFieldReplace (wtext
, 0, last_pos
,
5481 (SDATA (Ffile_name_nondirectory (default_filename
))));
5483 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5484 must include the path for this to work. */
5486 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5488 if (XmListItemExists (list
, default_xmstring
))
5490 int item_pos
= XmListItemPos (list
, default_xmstring
);
5491 /* Select the item and scroll it into view. */
5492 XmListSelectPos (list
, item_pos
, True
);
5493 XmListSetPos (list
, item_pos
);
5496 XmStringFree (default_xmstring
);
5499 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5501 /* Process events until the user presses Cancel or OK. */
5502 x_menu_set_in_use (1);
5507 x_menu_wait_for_event (0);
5508 XtAppNextEvent (Xt_app_con
, &event
);
5509 if (event
.type
== KeyPress
5510 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5512 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5514 /* Pop down on C-g. */
5515 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5516 XtUnmanageChild (dialog
);
5519 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5522 /* Get the result. */
5523 if (result
== XmCR_OK
)
5528 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5529 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5530 XmStringFree (text
);
5531 file
= build_string (data
);
5540 /* Make "Cancel" equivalent to C-g. */
5542 Fsignal (Qquit
, Qnil
);
5544 decoded_file
= DECODE_FILE (file
);
5546 return unbind_to (count
, decoded_file
);
5549 #endif /* USE_MOTIF */
5554 clean_up_dialog (arg
)
5557 x_menu_set_in_use (0);
5562 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5563 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5564 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5565 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5566 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5568 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5569 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5571 FRAME_PTR f
= SELECTED_FRAME ();
5573 Lisp_Object file
= Qnil
;
5574 Lisp_Object decoded_file
;
5575 int count
= SPECPDL_INDEX ();
5576 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5581 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5583 if (popup_activated ())
5584 error ("Trying to use a menu from within a menu-entry");
5586 CHECK_STRING (prompt
);
5589 /* Prevent redisplay. */
5590 specbind (Qinhibit_redisplay
, Qt
);
5591 record_unwind_protect (clean_up_dialog
, Qnil
);
5595 if (STRINGP (default_filename
))
5596 cdef_file
= SDATA (default_filename
);
5598 cdef_file
= SDATA (dir
);
5600 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5602 ! NILP (only_dir_p
));
5606 file
= build_string (fn
);
5613 /* Make "Cancel" equivalent to C-g. */
5615 Fsignal (Qquit
, Qnil
);
5617 decoded_file
= DECODE_FILE (file
);
5619 return unbind_to (count
, decoded_file
);
5623 #ifdef HAVE_FREETYPE
5625 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5626 doc
: /* Read a font name using a GTK font selection dialog.
5627 Return a GTK-style font string corresponding to the selection.
5629 If FRAME is omitted or nil, it defaults to the selected frame. */)
5631 Lisp_Object frame
, ignored
;
5633 FRAME_PTR f
= check_x_frame (frame
);
5636 Lisp_Object font_param
;
5637 char *default_name
= NULL
;
5638 struct gcpro gcpro1
, gcpro2
;
5639 int count
= SPECPDL_INDEX ();
5643 if (popup_activated ())
5644 error ("Trying to use a menu from within a menu-entry");
5646 /* Prevent redisplay. */
5647 specbind (Qinhibit_redisplay
, Qt
);
5648 record_unwind_protect (clean_up_dialog
, Qnil
);
5652 GCPRO2(font_param
, font
);
5654 XSETFONT (font
, FRAME_FONT (f
));
5655 font_param
= Ffont_get (font
, intern (":name"));
5656 if (STRINGP (font_param
))
5657 default_name
= xstrdup (SDATA (font_param
));
5660 font_param
= Fframe_parameter (frame
, Qfont_param
);
5661 if (STRINGP (font_param
))
5662 default_name
= xstrdup (SDATA (font_param
));
5665 if (default_name
== NULL
&& x_last_font_name
!= NULL
)
5666 default_name
= xstrdup (x_last_font_name
);
5668 /* Convert fontconfig names to Gtk names, i.e. remove - before number */
5671 char *p
= strrchr (default_name
, '-');
5675 while (isdigit (*ep
))
5677 if (*ep
== '\0') *p
= ' ';
5681 name
= xg_get_font_name (f
, default_name
);
5682 xfree (default_name
);
5686 font
= build_string (name
);
5687 g_free (x_last_font_name
);
5688 x_last_font_name
= name
;
5694 Fsignal (Qquit
, Qnil
);
5696 return unbind_to (count
, font
);
5698 #endif /* HAVE_FREETYPE */
5700 #endif /* USE_GTK */
5703 /***********************************************************************
5705 ***********************************************************************/
5707 #ifdef HAVE_XKBGETKEYBOARD
5708 #include <X11/XKBlib.h>
5709 #include <X11/keysym.h>
5712 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5713 Sx_backspace_delete_keys_p
, 0, 1, 0,
5714 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5715 FRAME nil means use the selected frame.
5716 Value is t if we know that both keys are present, and are mapped to the
5717 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5718 present and mapped to the usual X keysyms. */)
5722 #ifdef HAVE_XKBGETKEYBOARD
5724 struct frame
*f
= check_x_frame (frame
);
5725 Display
*dpy
= FRAME_X_DISPLAY (f
);
5726 Lisp_Object have_keys
;
5727 int major
, minor
, op
, event
, error
;
5731 /* Check library version in case we're dynamically linked. */
5732 major
= XkbMajorVersion
;
5733 minor
= XkbMinorVersion
;
5734 if (!XkbLibraryVersion (&major
, &minor
))
5740 /* Check that the server supports XKB. */
5741 major
= XkbMajorVersion
;
5742 minor
= XkbMinorVersion
;
5743 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5749 /* In this code we check that the keyboard has physical keys with names
5750 that start with BKSP (Backspace) and DELE (Delete), and that they
5751 generate keysym XK_BackSpace and XK_Delete respectively.
5752 This function is used to test if normal-erase-is-backspace should be
5754 An alternative approach would be to just check if XK_BackSpace and
5755 XK_Delete are mapped to any key. But if any of those are mapped to
5756 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5757 user doesn't know about it, it is better to return false here.
5758 It is more obvious to the user what to do if she/he has two keys
5759 clearly marked with names/symbols and one key does something not
5760 expected (i.e. she/he then tries the other).
5761 The cases where Backspace/Delete is mapped to some other key combination
5762 are rare, and in those cases, normal-erase-is-backspace can be turned on
5766 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5769 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5771 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5773 for (i
= kb
->min_key_code
;
5774 (i
< kb
->max_key_code
5775 && (delete_keycode
== 0 || backspace_keycode
== 0));
5778 /* The XKB symbolic key names can be seen most easily in
5779 the PS file generated by `xkbprint -label name
5781 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5783 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5784 backspace_keycode
= i
;
5787 XkbFreeNames (kb
, 0, True
);
5790 XkbFreeClientMap (kb
, 0, True
);
5793 && backspace_keycode
5794 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5795 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5800 #else /* not HAVE_XKBGETKEYBOARD */
5802 #endif /* not HAVE_XKBGETKEYBOARD */
5807 /***********************************************************************
5809 ***********************************************************************/
5811 /* Keep this list in the same order as frame_parms in frame.c.
5812 Use 0 for unsupported frame parameters. */
5814 frame_parm_handler x_frame_parm_handlers
[] =
5818 x_set_background_color
,
5824 x_set_foreground_color
,
5827 x_set_internal_border_width
,
5828 x_set_menu_bar_lines
,
5830 x_explicitly_set_name
,
5831 x_set_scroll_bar_width
,
5834 x_set_vertical_scroll_bars
,
5836 x_set_tool_bar_lines
,
5837 x_set_scroll_bar_foreground
,
5838 x_set_scroll_bar_background
,
5853 /* This is zero if not using X windows. */
5856 /* The section below is built by the lisp expression at the top of the file,
5857 just above where these variables are declared. */
5858 /*&&& init symbols here &&&*/
5859 Qnone
= intern_c_string ("none");
5861 Qsuppress_icon
= intern_c_string ("suppress-icon");
5862 staticpro (&Qsuppress_icon
);
5863 Qundefined_color
= intern_c_string ("undefined-color");
5864 staticpro (&Qundefined_color
);
5865 Qcompound_text
= intern_c_string ("compound-text");
5866 staticpro (&Qcompound_text
);
5867 Qcancel_timer
= intern_c_string ("cancel-timer");
5868 staticpro (&Qcancel_timer
);
5869 Qfont_param
= intern_c_string ("font-parameter");
5870 staticpro (&Qfont_param
);
5871 /* This is the end of symbol initialization. */
5873 /* Text property `display' should be nonsticky by default. */
5874 Vtext_property_default_nonsticky
5875 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5878 Fput (Qundefined_color
, Qerror_conditions
,
5879 pure_cons (Qundefined_color
, pure_cons (Qerror
, Qnil
)));
5880 Fput (Qundefined_color
, Qerror_message
,
5881 make_pure_c_string ("Undefined color"));
5883 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5884 doc
: /* The shape of the pointer when over text.
5885 Changing the value does not affect existing frames
5886 unless you set the mouse color. */);
5887 Vx_pointer_shape
= Qnil
;
5889 #if 0 /* This doesn't really do anything. */
5890 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5891 doc
: /* The shape of the pointer when not over text.
5892 This variable takes effect when you create a new frame
5893 or when you set the mouse color. */);
5895 Vx_nontext_pointer_shape
= Qnil
;
5897 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5898 doc
: /* The shape of the pointer when Emacs is busy.
5899 This variable takes effect when you create a new frame
5900 or when you set the mouse color. */);
5901 Vx_hourglass_pointer_shape
= Qnil
;
5903 #if 0 /* This doesn't really do anything. */
5904 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5905 doc
: /* The shape of the pointer when over the mode line.
5906 This variable takes effect when you create a new frame
5907 or when you set the mouse color. */);
5909 Vx_mode_pointer_shape
= Qnil
;
5911 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5912 &Vx_sensitive_text_pointer_shape
,
5913 doc
: /* The shape of the pointer when over mouse-sensitive text.
5914 This variable takes effect when you create a new frame
5915 or when you set the mouse color. */);
5916 Vx_sensitive_text_pointer_shape
= Qnil
;
5918 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5919 &Vx_window_horizontal_drag_shape
,
5920 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5921 This variable takes effect when you create a new frame
5922 or when you set the mouse color. */);
5923 Vx_window_horizontal_drag_shape
= Qnil
;
5925 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5926 doc
: /* A string indicating the foreground color of the cursor box. */);
5927 Vx_cursor_fore_pixel
= Qnil
;
5929 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5930 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5931 Text larger than this is clipped. */);
5932 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5934 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5935 doc
: /* Non-nil if no X window manager is in use.
5936 Emacs doesn't try to figure this out; this is always nil
5937 unless you set it to something else. */);
5938 /* We don't have any way to find this out, so set it to nil
5939 and maybe the user would like to set it to t. */
5940 Vx_no_window_manager
= Qnil
;
5942 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5943 &Vx_pixel_size_width_font_regexp
,
5944 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5946 Since Emacs gets width of a font matching with this regexp from
5947 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5948 such a font. This is especially effective for such large fonts as
5949 Chinese, Japanese, and Korean. */);
5950 Vx_pixel_size_width_font_regexp
= Qnil
;
5952 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5953 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", &x_gtk_use_old_file_dialog
,
5954 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5955 If nil or if the file selection dialog is not available, the new GTK file
5956 chooser is used instead. To turn off all file dialogs set the
5957 variable `use-file-dialog'. */);
5958 x_gtk_use_old_file_dialog
= 0;
5960 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5961 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5962 Note that this is just the default, there is a toggle button on the file
5963 chooser to show or not show hidden files on a case by case basis. */);
5964 x_gtk_show_hidden_files
= 0;
5966 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", &x_gtk_file_dialog_help_text
,
5967 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
5968 If more space for files in the file chooser dialog is wanted, set this to nil
5969 to turn the additional text off. */);
5970 x_gtk_file_dialog_help_text
= 1;
5972 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
5973 doc
: /* *If non-nil, a detached tool bar is shown in full.
5974 The default is to just show an arrow and pressing on that arrow shows
5975 the tool bar buttons. */);
5976 x_gtk_whole_detached_tool_bar
= 0;
5978 Fprovide (intern_c_string ("x"), Qnil
);
5980 #ifdef USE_X_TOOLKIT
5981 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5983 Fprovide (intern_c_string ("motif"), Qnil
);
5985 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5986 doc
: /* Version info for LessTif/Motif. */);
5987 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5988 #endif /* USE_MOTIF */
5989 #endif /* USE_X_TOOLKIT */
5992 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5993 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5994 But for a user it is a toolkit for X, and indeed, configure
5995 accepts --with-x-toolkit=gtk. */
5996 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5997 Fprovide (intern_c_string ("gtk"), Qnil
);
5999 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
6000 doc
: /* Version info for GTK+. */);
6002 char gtk_version
[40];
6003 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
6004 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
6005 Vgtk_version_string
= make_pure_string (gtk_version
, strlen (gtk_version
), strlen (gtk_version
), 0);
6007 #endif /* USE_GTK */
6009 /* X window properties. */
6010 defsubr (&Sx_change_window_property
);
6011 defsubr (&Sx_delete_window_property
);
6012 defsubr (&Sx_window_property
);
6014 defsubr (&Sxw_display_color_p
);
6015 defsubr (&Sx_display_grayscale_p
);
6016 defsubr (&Sxw_color_defined_p
);
6017 defsubr (&Sxw_color_values
);
6018 defsubr (&Sx_server_max_request_size
);
6019 defsubr (&Sx_server_vendor
);
6020 defsubr (&Sx_server_version
);
6021 defsubr (&Sx_display_pixel_width
);
6022 defsubr (&Sx_display_pixel_height
);
6023 defsubr (&Sx_display_mm_width
);
6024 defsubr (&Sx_display_mm_height
);
6025 defsubr (&Sx_display_screens
);
6026 defsubr (&Sx_display_planes
);
6027 defsubr (&Sx_display_color_cells
);
6028 defsubr (&Sx_display_visual_class
);
6029 defsubr (&Sx_display_backing_store
);
6030 defsubr (&Sx_display_save_under
);
6031 defsubr (&Sx_wm_set_size_hint
);
6032 defsubr (&Sx_create_frame
);
6033 defsubr (&Sx_open_connection
);
6034 defsubr (&Sx_close_connection
);
6035 defsubr (&Sx_display_list
);
6036 defsubr (&Sx_synchronize
);
6037 defsubr (&Sx_focus_frame
);
6038 defsubr (&Sx_backspace_delete_keys_p
);
6040 /* Setting callback functions for fontset handler. */
6041 check_window_system_func
= check_x
;
6043 defsubr (&Sx_show_tip
);
6044 defsubr (&Sx_hide_tip
);
6046 staticpro (&tip_timer
);
6048 staticpro (&tip_frame
);
6050 last_show_tip_args
= Qnil
;
6051 staticpro (&last_show_tip_args
);
6053 defsubr (&Sx_uses_old_gtk_dialog
);
6054 #if defined (USE_MOTIF) || defined (USE_GTK)
6055 defsubr (&Sx_file_dialog
);
6058 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
6059 defsubr (&Sx_select_font
);
6060 x_last_font_name
= NULL
;
6064 #endif /* HAVE_X_WINDOWS */
6066 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
6067 (do not change this comment) */