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
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/>. */
29 /* This makes the fields of a Display accessible, in Xlib header files. */
31 #define XLIB_ILLEGAL_ACCESS
38 #include "intervals.h"
39 #include "dispextern.h"
41 #include "blockinput.h"
43 #include "character.h"
48 #include "termhooks.h"
56 #include <sys/types.h>
60 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
61 #include "bitmaps/gray.xbm"
63 #include <X11/bitmaps/gray>
66 #include "[.bitmaps]gray.xbm"
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 /* Do the EDITRES protocol if running X11R5
105 Exception: HP-UX (at least version A.09.05) has X11R5 without EditRes */
107 #if (XtSpecificationRelease >= 5) && !defined(NO_EDITRES)
109 extern void _XEditResCheckMessages ();
110 #endif /* R5 + Athena */
112 /* Unique id counter for widgets created by the Lucid Widget Library. */
114 extern LWLIB_ID widget_id_tick
;
117 /* This is part of a kludge--see lwlib/xlwmenu.c. */
118 extern XFontStruct
*xlwmenu_default_font
;
121 extern void free_frame_menubar ();
122 extern double atof ();
126 /* LessTif/Motif version info. */
128 static Lisp_Object Vmotif_version_string
;
130 #endif /* USE_MOTIF */
132 #endif /* USE_X_TOOLKIT */
136 /* GTK+ version info */
138 static Lisp_Object Vgtk_version_string
;
142 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
144 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
145 it, and including `bitmaps/gray' more than once is a problem when
146 config.h defines `static' as an empty replacement string. */
148 int gray_bitmap_width
= gray_width
;
149 int gray_bitmap_height
= gray_height
;
150 char *gray_bitmap_bits
= gray_bits
;
152 /* Non-zero means we're allowed to display an hourglass cursor. */
154 int display_hourglass_p
;
156 /* Non-zero means prompt with the old GTK file selection dialog. */
158 int x_gtk_use_old_file_dialog
;
160 /* If non-zero, by default show hidden files in the GTK file chooser. */
162 int x_gtk_show_hidden_files
;
164 /* If non-zero, don't show additional help text in the GTK file chooser. */
166 int x_gtk_file_dialog_help_text
;
168 /* If non-zero, don't collapse to tool bar when it is detached. */
170 int x_gtk_whole_detached_tool_bar
;
172 /* The background and shape of the mouse pointer, and shape when not
173 over text or in the modeline. */
175 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
176 Lisp_Object Vx_hourglass_pointer_shape
;
178 /* The shape when over mouse-sensitive text. */
180 Lisp_Object Vx_sensitive_text_pointer_shape
;
182 /* If non-nil, the pointer shape to indicate that windows can be
183 dragged horizontally. */
185 Lisp_Object Vx_window_horizontal_drag_shape
;
187 /* Color of chars displayed in cursor box. */
189 Lisp_Object Vx_cursor_fore_pixel
;
191 /* Nonzero if using X. */
195 /* Non nil if no window manager is in use. */
197 Lisp_Object Vx_no_window_manager
;
199 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
201 Lisp_Object Vx_pixel_size_width_font_regexp
;
204 Lisp_Object Qsuppress_icon
;
205 Lisp_Object Qundefined_color
;
206 Lisp_Object Qcompound_text
, Qcancel_timer
;
207 static Lisp_Object Qfont_param
;
211 extern Lisp_Object Vwindow_system_version
;
213 /* The below are defined in frame.c. */
216 int image_cache_refcount
, dpyinfo_refcount
;
221 /* Error if we are not connected to X. */
227 error ("X windows are not in use or not initialized");
230 /* Nonzero if we can use mouse menus.
231 You should not call this unless HAVE_MENUS is defined. */
239 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
240 and checking validity for X. */
243 check_x_frame (frame
)
249 frame
= selected_frame
;
250 CHECK_LIVE_FRAME (frame
);
253 error ("Non-X frame used");
257 /* Let the user specify an X display with a Lisp object.
258 OBJECT may be nil, a frame or a terminal id.
259 nil stands for the selected frame--or, if that is not an X frame,
260 the first X display on the list. */
262 struct x_display_info
*
263 check_x_display_info (object
)
266 struct x_display_info
*dpyinfo
= NULL
;
270 struct frame
*sf
= XFRAME (selected_frame
);
272 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
273 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
274 else if (x_display_list
!= 0)
275 dpyinfo
= x_display_list
;
277 error ("X windows are not in use or not initialized");
279 else if (INTEGERP (object
))
281 struct terminal
*t
= get_terminal (object
, 1);
283 if (t
->type
!= output_x_window
)
284 error ("Terminal %d is not an X display", XINT (object
));
286 dpyinfo
= t
->display_info
.x
;
288 else if (STRINGP (object
))
289 dpyinfo
= x_display_info_for_name (object
);
292 FRAME_PTR f
= check_x_frame (object
);
293 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
300 /* Return the Emacs frame-object corresponding to an X window.
301 It could be the frame's main window or an icon window. */
303 /* This function can be called during GC, so use GC_xxx type test macros. */
306 x_window_to_frame (dpyinfo
, wdesc
)
307 struct x_display_info
*dpyinfo
;
310 Lisp_Object tail
, frame
;
313 if (wdesc
== None
) return 0;
315 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
321 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
323 if (f
->output_data
.x
->hourglass_window
== wdesc
)
326 if ((f
->output_data
.x
->edit_widget
327 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
328 /* A tooltip frame? */
329 || (!f
->output_data
.x
->edit_widget
330 && FRAME_X_WINDOW (f
) == wdesc
)
331 || f
->output_data
.x
->icon_desc
== wdesc
)
333 #else /* not USE_X_TOOLKIT */
335 if (f
->output_data
.x
->edit_widget
)
337 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
338 struct x_output
*x
= f
->output_data
.x
;
339 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
343 if (FRAME_X_WINDOW (f
) == wdesc
344 || f
->output_data
.x
->icon_desc
== wdesc
)
346 #endif /* not USE_X_TOOLKIT */
351 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
352 /* Like x_window_to_frame but also compares the window with the widget's
356 x_any_window_to_frame (dpyinfo
, wdesc
)
357 struct x_display_info
*dpyinfo
;
360 Lisp_Object tail
, frame
;
361 struct frame
*f
, *found
;
364 if (wdesc
== None
) return NULL
;
367 for (tail
= Vframe_list
; CONSP (tail
) && !found
; tail
= XCDR (tail
))
374 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
376 /* This frame matches if the window is any of its widgets. */
377 x
= f
->output_data
.x
;
378 if (x
->hourglass_window
== wdesc
)
383 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
385 && (gwdesc
== x
->widget
386 || gwdesc
== x
->edit_widget
387 || gwdesc
== x
->vbox_widget
388 || gwdesc
== x
->menubar_widget
))
391 if (wdesc
== XtWindow (x
->widget
)
392 || wdesc
== XtWindow (x
->column_widget
)
393 || wdesc
== XtWindow (x
->edit_widget
))
395 /* Match if the window is this frame's menubar. */
396 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
400 else if (FRAME_X_WINDOW (f
) == wdesc
)
401 /* A tooltip frame. */
409 /* Likewise, but exclude the menu bar widget. */
412 x_non_menubar_window_to_frame (dpyinfo
, wdesc
)
413 struct x_display_info
*dpyinfo
;
416 Lisp_Object tail
, frame
;
420 if (wdesc
== None
) return 0;
422 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
428 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
430 x
= f
->output_data
.x
;
431 /* This frame matches if the window is any of its widgets. */
432 if (x
->hourglass_window
== wdesc
)
437 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
439 && (gwdesc
== x
->widget
440 || gwdesc
== x
->edit_widget
441 || gwdesc
== x
->vbox_widget
))
444 if (wdesc
== XtWindow (x
->widget
)
445 || wdesc
== XtWindow (x
->column_widget
)
446 || wdesc
== XtWindow (x
->edit_widget
))
450 else if (FRAME_X_WINDOW (f
) == wdesc
)
451 /* A tooltip frame. */
457 /* Likewise, but consider only the menu bar widget. */
460 x_menubar_window_to_frame (dpyinfo
, wdesc
)
461 struct x_display_info
*dpyinfo
;
464 Lisp_Object tail
, frame
;
468 if (wdesc
== None
) return 0;
470 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
476 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
478 x
= f
->output_data
.x
;
479 /* Match if the window is this frame's menubar. */
481 if (x
->menubar_widget
)
483 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
488 && (gwdesc
== x
->menubar_widget
489 || gtk_widget_get_parent (gwdesc
) == x
->menubar_widget
))
495 if (x
->menubar_widget
496 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
503 /* Return the frame whose principal (outermost) window is WDESC.
504 If WDESC is some other (smaller) window, we return 0. */
507 x_top_window_to_frame (dpyinfo
, wdesc
)
508 struct x_display_info
*dpyinfo
;
511 Lisp_Object tail
, frame
;
515 if (wdesc
== None
) return 0;
517 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
523 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
525 x
= f
->output_data
.x
;
529 /* This frame matches if the window is its topmost widget. */
531 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
532 if (gwdesc
== x
->widget
)
535 if (wdesc
== XtWindow (x
->widget
))
537 #if 0 /* I don't know why it did this,
538 but it seems logically wrong,
539 and it causes trouble for MapNotify events. */
540 /* Match if the window is this frame's menubar. */
541 if (x
->menubar_widget
542 && wdesc
== XtWindow (x
->menubar_widget
))
547 else if (FRAME_X_WINDOW (f
) == wdesc
)
553 #endif /* USE_X_TOOLKIT || USE_GTK */
557 static void x_default_font_parameter
P_ ((struct frame
*, Lisp_Object
));
559 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
560 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
562 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
563 static void x_set_wait_for_wm
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
564 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
565 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
566 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
567 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
568 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
569 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
570 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
571 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
572 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
573 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
574 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
575 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
577 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
579 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
586 /* Store the screen positions of frame F into XPTR and YPTR.
587 These are the positions of the containing window manager window,
588 not Emacs's own window. */
591 x_real_positions (f
, xptr
, yptr
)
595 int win_x
, win_y
, outer_x
, outer_y
;
596 int real_x
= 0, real_y
= 0;
598 Window win
= f
->output_data
.x
->parent_desc
;
602 x_catch_errors (FRAME_X_DISPLAY (f
));
604 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
605 win
= FRAME_OUTER_WINDOW (f
);
607 /* This loop traverses up the containment tree until we hit the root
608 window. Window managers may intersect many windows between our window
609 and the root window. The window we find just before the root window
610 should be the outer WM window. */
613 Window wm_window
, rootw
;
614 Window
*tmp_children
;
615 unsigned int tmp_nchildren
;
618 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
619 &wm_window
, &tmp_children
, &tmp_nchildren
);
621 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
623 /* Don't free tmp_children if XQueryTree failed. */
627 XFree ((char *) tmp_children
);
629 if (wm_window
== rootw
|| had_errors
)
640 /* Get the real coordinates for the WM window upper left corner */
641 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
642 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
644 /* Translate real coordinates to coordinates relative to our
645 window. For our window, the upper left corner is 0, 0.
646 Since the upper left corner of the WM window is outside
647 our window, win_x and win_y will be negative:
649 ------------------ ---> x
651 | ----------------- v y
654 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
656 /* From-window, to-window. */
657 FRAME_X_DISPLAY_INFO (f
)->root_window
,
660 /* From-position, to-position. */
661 real_x
, real_y
, &win_x
, &win_y
,
666 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
673 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
675 /* From-window, to-window. */
676 FRAME_X_DISPLAY_INFO (f
)->root_window
,
677 FRAME_OUTER_WINDOW (f
),
679 /* From-position, to-position. */
680 real_x
, real_y
, &outer_x
, &outer_y
,
686 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
693 if (had_errors
) return;
695 f
->x_pixels_diff
= -win_x
;
696 f
->y_pixels_diff
= -win_y
;
698 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
699 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
708 /* Gamma-correct COLOR on frame F. */
711 gamma_correct (f
, color
)
717 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
718 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
719 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
724 /* Decide if color named COLOR_NAME is valid for use on frame F. If
725 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
726 allocate the color. Value is zero if COLOR_NAME is invalid, or
727 no color could be allocated. */
730 x_defined_color (f
, color_name
, color
, alloc_p
)
737 Display
*dpy
= FRAME_X_DISPLAY (f
);
738 Colormap cmap
= FRAME_X_COLORMAP (f
);
741 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
742 if (success_p
&& alloc_p
)
743 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
750 /* Return the pixel color value for color COLOR_NAME on frame F. If F
751 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
752 Signal an error if color can't be allocated. */
755 x_decode_color (f
, color_name
, mono_color
)
757 Lisp_Object color_name
;
762 CHECK_STRING (color_name
);
764 #if 0 /* Don't do this. It's wrong when we're not using the default
765 colormap, it makes freeing difficult, and it's probably not
766 an important optimization. */
767 if (strcmp (SDATA (color_name
), "black") == 0)
768 return BLACK_PIX_DEFAULT (f
);
769 else if (strcmp (SDATA (color_name
), "white") == 0)
770 return WHITE_PIX_DEFAULT (f
);
773 /* Return MONO_COLOR for monochrome frames. */
774 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
777 /* x_defined_color is responsible for coping with failures
778 by looking for a near-miss. */
779 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
782 signal_error ("Undefined color", color_name
);
787 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
788 the previous value of that parameter, NEW_VALUE is the new value.
789 See also the comment of wait_for_wm in struct x_output. */
792 x_set_wait_for_wm (f
, new_value
, old_value
)
794 Lisp_Object new_value
, old_value
;
796 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
801 /* Set icon from FILE for frame F. By using GTK functions the icon
802 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
805 xg_set_icon (f
, file
)
812 found
= x_find_image_file (file
);
818 char *filename
= (char *) SDATA (found
);
821 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
825 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
827 g_object_unref (pixbuf
);
841 xg_set_icon_from_xpm_data (f
, data
)
846 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data ((const char **) data
);
851 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
852 g_object_unref (pixbuf
);
858 /* Functions called only from `x_set_frame_param'
859 to set individual parameters.
861 If FRAME_X_WINDOW (f) is 0,
862 the frame is being created and its X-window does not exist yet.
863 In that case, just record the parameter's new value
864 in the standard place; do not attempt to change the window. */
867 x_set_foreground_color (f
, arg
, oldval
)
869 Lisp_Object arg
, oldval
;
871 struct x_output
*x
= f
->output_data
.x
;
872 unsigned long fg
, old_fg
;
874 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
875 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
876 FRAME_FOREGROUND_PIXEL (f
) = fg
;
878 if (FRAME_X_WINDOW (f
) != 0)
880 Display
*dpy
= FRAME_X_DISPLAY (f
);
883 XSetForeground (dpy
, x
->normal_gc
, fg
);
884 XSetBackground (dpy
, x
->reverse_gc
, fg
);
886 if (x
->cursor_pixel
== old_fg
)
888 unload_color (f
, x
->cursor_pixel
);
889 x
->cursor_pixel
= x_copy_color (f
, fg
);
890 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
895 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
897 if (FRAME_VISIBLE_P (f
))
901 unload_color (f
, old_fg
);
905 x_set_background_color (f
, arg
, oldval
)
907 Lisp_Object arg
, oldval
;
909 struct x_output
*x
= f
->output_data
.x
;
912 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
913 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
914 FRAME_BACKGROUND_PIXEL (f
) = bg
;
916 if (FRAME_X_WINDOW (f
) != 0)
918 Display
*dpy
= FRAME_X_DISPLAY (f
);
921 XSetBackground (dpy
, x
->normal_gc
, bg
);
922 XSetForeground (dpy
, x
->reverse_gc
, bg
);
923 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
924 XSetForeground (dpy
, x
->cursor_gc
, bg
);
927 xg_set_background_color (f
, bg
);
930 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
931 toolkit scroll bars. */
934 for (bar
= FRAME_SCROLL_BARS (f
);
936 bar
= XSCROLL_BAR (bar
)->next
)
938 Window window
= XSCROLL_BAR (bar
)->x_window
;
939 XSetWindowBackground (dpy
, window
, bg
);
942 #endif /* USE_TOOLKIT_SCROLL_BARS */
945 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
947 if (FRAME_VISIBLE_P (f
))
953 x_set_mouse_color (f
, arg
, oldval
)
955 Lisp_Object arg
, oldval
;
957 struct x_output
*x
= f
->output_data
.x
;
958 Display
*dpy
= FRAME_X_DISPLAY (f
);
959 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
960 Cursor hourglass_cursor
, horizontal_drag_cursor
;
961 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
962 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
964 /* Don't let pointers be invisible. */
965 if (mask_color
== pixel
)
967 x_free_colors (f
, &pixel
, 1);
968 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
971 unload_color (f
, x
->mouse_pixel
);
972 x
->mouse_pixel
= pixel
;
976 /* It's not okay to crash if the user selects a screwy cursor. */
977 x_catch_errors (dpy
);
979 if (!NILP (Vx_pointer_shape
))
981 CHECK_NUMBER (Vx_pointer_shape
);
982 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
985 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
986 x_check_errors (dpy
, "bad text pointer cursor: %s");
988 if (!NILP (Vx_nontext_pointer_shape
))
990 CHECK_NUMBER (Vx_nontext_pointer_shape
);
992 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
995 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
996 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
998 if (!NILP (Vx_hourglass_pointer_shape
))
1000 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
1002 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
1005 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
1006 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
1008 if (!NILP (Vx_mode_pointer_shape
))
1010 CHECK_NUMBER (Vx_mode_pointer_shape
);
1011 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
1014 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
1015 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
1017 if (!NILP (Vx_sensitive_text_pointer_shape
))
1019 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
1021 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
1024 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
1026 if (!NILP (Vx_window_horizontal_drag_shape
))
1028 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1029 horizontal_drag_cursor
1030 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1033 horizontal_drag_cursor
1034 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1036 /* Check and report errors with the above calls. */
1037 x_check_errors (dpy
, "can't set cursor shape: %s");
1038 x_uncatch_errors ();
1041 XColor fore_color
, back_color
;
1043 fore_color
.pixel
= x
->mouse_pixel
;
1044 x_query_color (f
, &fore_color
);
1045 back_color
.pixel
= mask_color
;
1046 x_query_color (f
, &back_color
);
1048 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1049 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1050 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1051 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1052 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1053 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1056 if (FRAME_X_WINDOW (f
) != 0)
1057 XDefineCursor (dpy
, FRAME_X_WINDOW (f
), cursor
);
1059 if (cursor
!= x
->text_cursor
1060 && x
->text_cursor
!= 0)
1061 XFreeCursor (dpy
, x
->text_cursor
);
1062 x
->text_cursor
= cursor
;
1064 if (nontext_cursor
!= x
->nontext_cursor
1065 && x
->nontext_cursor
!= 0)
1066 XFreeCursor (dpy
, x
->nontext_cursor
);
1067 x
->nontext_cursor
= nontext_cursor
;
1069 if (hourglass_cursor
!= x
->hourglass_cursor
1070 && x
->hourglass_cursor
!= 0)
1071 XFreeCursor (dpy
, x
->hourglass_cursor
);
1072 x
->hourglass_cursor
= hourglass_cursor
;
1074 if (mode_cursor
!= x
->modeline_cursor
1075 && x
->modeline_cursor
!= 0)
1076 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1077 x
->modeline_cursor
= mode_cursor
;
1079 if (hand_cursor
!= x
->hand_cursor
1080 && x
->hand_cursor
!= 0)
1081 XFreeCursor (dpy
, x
->hand_cursor
);
1082 x
->hand_cursor
= hand_cursor
;
1084 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1085 && x
->horizontal_drag_cursor
!= 0)
1086 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1087 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1092 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1096 x_set_cursor_color (f
, arg
, oldval
)
1098 Lisp_Object arg
, oldval
;
1100 unsigned long fore_pixel
, pixel
;
1101 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1102 struct x_output
*x
= f
->output_data
.x
;
1104 if (!NILP (Vx_cursor_fore_pixel
))
1106 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1107 WHITE_PIX_DEFAULT (f
));
1108 fore_pixel_allocated_p
= 1;
1111 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1113 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1114 pixel_allocated_p
= 1;
1116 /* Make sure that the cursor color differs from the background color. */
1117 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1119 if (pixel_allocated_p
)
1121 x_free_colors (f
, &pixel
, 1);
1122 pixel_allocated_p
= 0;
1125 pixel
= x
->mouse_pixel
;
1126 if (pixel
== fore_pixel
)
1128 if (fore_pixel_allocated_p
)
1130 x_free_colors (f
, &fore_pixel
, 1);
1131 fore_pixel_allocated_p
= 0;
1133 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1137 unload_color (f
, x
->cursor_foreground_pixel
);
1138 if (!fore_pixel_allocated_p
)
1139 fore_pixel
= x_copy_color (f
, fore_pixel
);
1140 x
->cursor_foreground_pixel
= fore_pixel
;
1142 unload_color (f
, x
->cursor_pixel
);
1143 if (!pixel_allocated_p
)
1144 pixel
= x_copy_color (f
, pixel
);
1145 x
->cursor_pixel
= pixel
;
1147 if (FRAME_X_WINDOW (f
) != 0)
1150 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1151 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1154 if (FRAME_VISIBLE_P (f
))
1156 x_update_cursor (f
, 0);
1157 x_update_cursor (f
, 1);
1161 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1164 /* Set the border-color of frame F to pixel value PIX.
1165 Note that this does not fully take effect if done before
1166 F has an x-window. */
1169 x_set_border_pixel (f
, pix
)
1173 unload_color (f
, f
->output_data
.x
->border_pixel
);
1174 f
->output_data
.x
->border_pixel
= pix
;
1176 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1179 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1180 (unsigned long)pix
);
1183 if (FRAME_VISIBLE_P (f
))
1188 /* Set the border-color of frame F to value described by ARG.
1189 ARG can be a string naming a color.
1190 The border-color is used for the border that is drawn by the X server.
1191 Note that this does not fully take effect if done before
1192 F has an x-window; it must be redone when the window is created.
1194 Note: this is done in two routines because of the way X10 works.
1196 Note: under X11, this is normally the province of the window manager,
1197 and so emacs' border colors may be overridden. */
1200 x_set_border_color (f
, arg
, oldval
)
1202 Lisp_Object arg
, oldval
;
1207 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1208 x_set_border_pixel (f
, pix
);
1209 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1214 x_set_cursor_type (f
, arg
, oldval
)
1216 Lisp_Object arg
, oldval
;
1218 set_frame_cursor_types (f
, arg
);
1220 /* Make sure the cursor gets redrawn. */
1221 cursor_type_changed
= 1;
1225 x_set_icon_type (f
, arg
, oldval
)
1227 Lisp_Object arg
, oldval
;
1233 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1236 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1241 result
= x_text_icon (f
,
1242 (char *) SDATA ((!NILP (f
->icon_name
)
1246 result
= x_bitmap_icon (f
, arg
);
1251 error ("No icon window available");
1254 XFlush (FRAME_X_DISPLAY (f
));
1259 x_set_icon_name (f
, arg
, oldval
)
1261 Lisp_Object arg
, oldval
;
1267 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1270 else if (!NILP (arg
) || NILP (oldval
))
1275 if (f
->output_data
.x
->icon_bitmap
!= 0)
1280 result
= x_text_icon (f
,
1281 (char *) SDATA ((!NILP (f
->icon_name
)
1290 error ("No icon window available");
1293 XFlush (FRAME_X_DISPLAY (f
));
1299 x_set_menu_bar_lines (f
, value
, oldval
)
1301 Lisp_Object value
, oldval
;
1304 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1305 int olines
= FRAME_MENU_BAR_LINES (f
);
1308 /* Right now, menu bars don't work properly in minibuf-only frames;
1309 most of the commands try to apply themselves to the minibuffer
1310 frame itself, and get an error because you can't switch buffers
1311 in or split the minibuffer window. */
1312 if (FRAME_MINIBUF_ONLY_P (f
))
1315 if (INTEGERP (value
))
1316 nlines
= XINT (value
);
1320 /* Make sure we redisplay all windows in this frame. */
1321 windows_or_buffers_changed
++;
1323 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1324 FRAME_MENU_BAR_LINES (f
) = 0;
1327 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1328 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1329 /* Make sure next redisplay shows the menu bar. */
1330 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1334 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1335 free_frame_menubar (f
);
1336 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1338 f
->output_data
.x
->menubar_widget
= 0;
1340 #else /* not USE_X_TOOLKIT && not USE_GTK */
1341 FRAME_MENU_BAR_LINES (f
) = nlines
;
1342 change_window_heights (f
->root_window
, nlines
- olines
);
1343 #endif /* not USE_X_TOOLKIT */
1348 /* Set the number of lines used for the tool bar of frame F to VALUE.
1349 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1350 is the old number of tool bar lines. This function changes the
1351 height of all windows on frame F to match the new tool bar height.
1352 The frame's height doesn't change. */
1355 x_set_tool_bar_lines (f
, value
, oldval
)
1357 Lisp_Object value
, oldval
;
1359 int delta
, nlines
, root_height
;
1360 Lisp_Object root_window
;
1362 /* Treat tool bars like menu bars. */
1363 if (FRAME_MINIBUF_ONLY_P (f
))
1366 /* Use VALUE only if an integer >= 0. */
1367 if (INTEGERP (value
) && XINT (value
) >= 0)
1368 nlines
= XFASTINT (value
);
1373 FRAME_TOOL_BAR_LINES (f
) = 0;
1376 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1377 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1378 /* Make sure next redisplay shows the tool bar. */
1379 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1380 update_frame_tool_bar (f
);
1384 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1385 free_frame_tool_bar (f
);
1386 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1392 /* Make sure we redisplay all windows in this frame. */
1393 ++windows_or_buffers_changed
;
1395 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1397 /* Don't resize the tool-bar to more than we have room for. */
1398 root_window
= FRAME_ROOT_WINDOW (f
);
1399 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1400 if (root_height
- delta
< 1)
1402 delta
= root_height
- 1;
1403 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1406 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1407 change_window_heights (root_window
, delta
);
1410 /* We also have to make sure that the internal border at the top of
1411 the frame, below the menu bar or tool bar, is redrawn when the
1412 tool bar disappears. This is so because the internal border is
1413 below the tool bar if one is displayed, but is below the menu bar
1414 if there isn't a tool bar. The tool bar draws into the area
1415 below the menu bar. */
1416 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1419 clear_current_matrices (f
);
1422 /* If the tool bar gets smaller, the internal border below it
1423 has to be cleared. It was formerly part of the display
1424 of the larger tool bar, and updating windows won't clear it. */
1427 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1428 int width
= FRAME_PIXEL_WIDTH (f
);
1429 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1431 /* height can be zero here. */
1432 if (height
> 0 && width
> 0)
1435 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1436 0, y
, width
, height
, False
);
1440 if (WINDOWP (f
->tool_bar_window
))
1441 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1446 /* Set the foreground color for scroll bars on frame F to VALUE.
1447 VALUE should be a string, a color name. If it isn't a string or
1448 isn't a valid color name, do nothing. OLDVAL is the old value of
1449 the frame parameter. */
1452 x_set_scroll_bar_foreground (f
, value
, oldval
)
1454 Lisp_Object value
, oldval
;
1456 unsigned long pixel
;
1458 if (STRINGP (value
))
1459 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1463 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1464 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1466 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1467 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1469 /* Remove all scroll bars because they have wrong colors. */
1470 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1471 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1472 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1473 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1475 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1481 /* Set the background color for scroll bars on frame F to VALUE VALUE
1482 should be a string, a color name. If it isn't a string or isn't a
1483 valid color name, do nothing. OLDVAL is the old value of the frame
1487 x_set_scroll_bar_background (f
, value
, oldval
)
1489 Lisp_Object value
, oldval
;
1491 unsigned long pixel
;
1493 if (STRINGP (value
))
1494 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1498 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1499 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1501 #ifdef USE_TOOLKIT_SCROLL_BARS
1502 /* Scrollbar shadow colors. */
1503 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1505 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1506 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1508 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1510 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1511 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1513 #endif /* USE_TOOLKIT_SCROLL_BARS */
1515 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1516 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1518 /* Remove all scroll bars because they have wrong colors. */
1519 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1520 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1521 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1522 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1524 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1530 /* Encode Lisp string STRING as a text in a format appropriate for
1531 XICCC (X Inter Client Communication Conventions).
1533 This can call Lisp code, so callers must GCPRO.
1535 If STRING contains only ASCII characters, do no conversion and
1536 return the string data of STRING. Otherwise, encode the text by
1537 CODING_SYSTEM, and return a newly allocated memory area which
1538 should be freed by `xfree' by a caller.
1540 SELECTIONP non-zero means the string is being encoded for an X
1541 selection, so it is safe to run pre-write conversions (which
1544 Store the byte length of resulting text in *TEXT_BYTES.
1546 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1547 which means that the `encoding' of the result can be `STRING'.
1548 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1549 the result should be `COMPOUND_TEXT'. */
1551 static unsigned char *
1552 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
, freep
)
1553 Lisp_Object string
, coding_system
;
1554 int *text_bytes
, *stringp
;
1558 int result
= string_xstring_p (string
);
1559 struct coding_system coding
;
1563 /* No multibyte character in OBJ. We need not encode it. */
1564 *text_bytes
= SBYTES (string
);
1567 return SDATA (string
);
1570 setup_coding_system (coding_system
, &coding
);
1571 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1572 /* We suppress producing escape sequences for composition. */
1573 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1574 coding
.dst_bytes
= SCHARS (string
) * 2;
1575 coding
.destination
= (unsigned char *) xmalloc (coding
.dst_bytes
);
1576 encode_coding_object (&coding
, string
, 0, 0,
1577 SCHARS (string
), SBYTES (string
), Qnil
);
1578 *text_bytes
= coding
.produced
;
1579 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1581 return coding
.destination
;
1585 /* Set the WM name to NAME for frame F. Also set the icon name.
1586 If the frame already has an icon name, use that, otherwise set the
1587 icon name to NAME. */
1590 x_set_name_internal (f
, name
)
1594 if (FRAME_X_WINDOW (f
))
1598 XTextProperty text
, icon
;
1600 int do_free_icon_value
= 0, do_free_text_value
= 0;
1601 Lisp_Object coding_system
;
1603 Lisp_Object encoded_name
;
1604 struct gcpro gcpro1
;
1606 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1607 we use it before x_encode_text that may return string data. */
1609 encoded_name
= ENCODE_UTF_8 (name
);
1613 coding_system
= Qcompound_text
;
1614 /* Note: Encoding strategy
1616 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1617 text.encoding. But, there are non-internationalized window
1618 managers which don't support that encoding. So, if NAME
1619 contains only ASCII and 8859-1 characters, encode it by
1620 iso-latin-1, and use "STRING" in text.encoding hoping that
1621 such window managers at least analyze this format correctly,
1622 i.e. treat 8-bit bytes as 8859-1 characters.
1624 We may also be able to use "UTF8_STRING" in text.encoding
1625 in the future which can encode all Unicode characters.
1626 But, for the moment, there's no way to know that the
1627 current window manager supports it or not. */
1628 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1629 &do_free_text_value
);
1630 text
.encoding
= (stringp
? XA_STRING
1631 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1633 text
.nitems
= bytes
;
1635 if (!STRINGP (f
->icon_name
))
1641 /* See the above comment "Note: Encoding strategy". */
1642 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1643 &bytes
, &stringp
, &do_free_icon_value
);
1644 icon
.encoding
= (stringp
? XA_STRING
1645 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1647 icon
.nitems
= bytes
;
1651 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1652 (char *) SDATA (encoded_name
));
1653 #else /* not USE_GTK */
1654 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1655 #endif /* not USE_GTK */
1657 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1659 if (do_free_icon_value
)
1661 if (do_free_text_value
)
1668 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1671 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1672 name; if NAME is a string, set F's name to NAME and set
1673 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1675 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1676 suggesting a new name, which lisp code should override; if
1677 F->explicit_name is set, ignore the new name; otherwise, set it. */
1680 x_set_name (f
, name
, explicit)
1685 /* Make sure that requests from lisp code override requests from
1686 Emacs redisplay code. */
1689 /* If we're switching from explicit to implicit, we had better
1690 update the mode lines and thereby update the title. */
1691 if (f
->explicit_name
&& NILP (name
))
1692 update_mode_lines
= 1;
1694 f
->explicit_name
= ! NILP (name
);
1696 else if (f
->explicit_name
)
1699 /* If NAME is nil, set the name to the x_id_name. */
1702 /* Check for no change needed in this very common case
1703 before we do any consing. */
1704 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1707 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1710 CHECK_STRING (name
);
1712 /* Don't change the name if it's already NAME. */
1713 if (! NILP (Fstring_equal (name
, f
->name
)))
1718 /* For setting the frame title, the title parameter should override
1719 the name parameter. */
1720 if (! NILP (f
->title
))
1723 x_set_name_internal (f
, name
);
1726 /* This function should be called when the user's lisp code has
1727 specified a name for the frame; the name will override any set by the
1730 x_explicitly_set_name (f
, arg
, oldval
)
1732 Lisp_Object arg
, oldval
;
1734 x_set_name (f
, arg
, 1);
1737 /* This function should be called by Emacs redisplay code to set the
1738 name; names set this way will never override names set by the user's
1741 x_implicitly_set_name (f
, arg
, oldval
)
1743 Lisp_Object arg
, oldval
;
1745 x_set_name (f
, arg
, 0);
1748 /* Change the title of frame F to NAME.
1749 If NAME is nil, use the frame name as the title. */
1752 x_set_title (f
, name
, old_name
)
1754 Lisp_Object name
, old_name
;
1756 /* Don't change the title if it's already NAME. */
1757 if (EQ (name
, f
->title
))
1760 update_mode_lines
= 1;
1767 CHECK_STRING (name
);
1769 x_set_name_internal (f
, name
);
1773 x_set_scroll_bar_default_width (f
)
1776 int wid
= FRAME_COLUMN_WIDTH (f
);
1778 #ifdef USE_TOOLKIT_SCROLL_BARS
1779 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1780 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1781 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1782 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1784 /* Make the actual width at least 14 pixels and a multiple of a
1786 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1788 /* Use all of that space (aside from required margins) for the
1790 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1795 /* Record in frame F the specified or default value according to ALIST
1796 of the parameter named PROP (a Lisp symbol). If no value is
1797 specified for PROP, look for an X default for XPROP on the frame
1798 named NAME. If that is not found either, use the value DEFLT. */
1801 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1810 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1813 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1814 if (EQ (tem
, Qunbound
))
1816 #ifdef USE_TOOLKIT_SCROLL_BARS
1818 /* See if an X resource for the scroll bar color has been
1820 tem
= display_x_get_resource (dpyinfo
,
1821 build_string (foreground_p
1824 empty_unibyte_string
,
1825 build_string ("verticalScrollBar"),
1826 empty_unibyte_string
);
1829 /* If nothing has been specified, scroll bars will use a
1830 toolkit-dependent default. Because these defaults are
1831 difficult to get at without actually creating a scroll
1832 bar, use nil to indicate that no color has been
1837 #else /* not USE_TOOLKIT_SCROLL_BARS */
1841 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1844 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1851 #ifdef USE_X_TOOLKIT
1853 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1854 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1855 already be present because of the toolkit (Motif adds some of them,
1856 for example, but Xt doesn't). */
1859 hack_wm_protocols (f
, widget
)
1863 Display
*dpy
= XtDisplay (widget
);
1864 Window w
= XtWindow (widget
);
1865 int need_delete
= 1;
1872 unsigned char *catoms
;
1874 unsigned long nitems
= 0;
1875 unsigned long bytes_after
;
1877 if ((XGetWindowProperty (dpy
, w
,
1878 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1879 (long)0, (long)100, False
, XA_ATOM
,
1880 &type
, &format
, &nitems
, &bytes_after
,
1883 && format
== 32 && type
== XA_ATOM
)
1885 Atom
*atoms
= (Atom
*) catoms
;
1890 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1892 else if (atoms
[nitems
]
1893 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1895 else if (atoms
[nitems
]
1896 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1907 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1909 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1911 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1913 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1914 XA_ATOM
, 32, PropModeAppend
,
1915 (unsigned char *) props
, count
);
1923 /* Support routines for XIC (X Input Context). */
1927 static XFontSet xic_create_xfontset
P_ ((struct frame
*));
1928 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1931 /* Supported XIM styles, ordered by preference. */
1933 static XIMStyle supported_xim_styles
[] =
1935 XIMPreeditPosition
| XIMStatusArea
,
1936 XIMPreeditPosition
| XIMStatusNothing
,
1937 XIMPreeditPosition
| XIMStatusNone
,
1938 XIMPreeditNothing
| XIMStatusArea
,
1939 XIMPreeditNothing
| XIMStatusNothing
,
1940 XIMPreeditNothing
| XIMStatusNone
,
1941 XIMPreeditNone
| XIMStatusArea
,
1942 XIMPreeditNone
| XIMStatusNothing
,
1943 XIMPreeditNone
| XIMStatusNone
,
1948 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1950 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1952 /* Create an Xt fontset spec from the name of a base font.
1953 If `motif' is True use the Motif syntax. */
1955 xic_create_fontsetname (base_fontname
, motif
)
1956 char *base_fontname
;
1959 const char *sep
= motif
? ";" : ",";
1962 /* Make a fontset name from the base font name. */
1963 if (xic_defaut_fontset
== base_fontname
)
1964 { /* There is no base font name, use the default. */
1965 int len
= strlen (base_fontname
) + 2;
1966 fontsetname
= xmalloc (len
);
1967 bzero (fontsetname
, len
);
1968 strcpy (fontsetname
, base_fontname
);
1972 /* Make a fontset name from the base font name.
1973 The font set will be made of the following elements:
1975 - the base font where the charset spec is replaced by -*-*.
1976 - the same but with the family also replaced with -*-*-. */
1977 char *p
= base_fontname
;
1980 for (i
= 0; *p
; p
++)
1983 { /* As the font name doesn't conform to XLFD, we can't
1984 modify it to generalize it to allcs and allfamilies.
1985 Use the specified font plus the default. */
1986 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
1987 fontsetname
= xmalloc (len
);
1988 bzero (fontsetname
, len
);
1989 strcpy (fontsetname
, base_fontname
);
1990 strcat (fontsetname
, sep
);
1991 strcat (fontsetname
, xic_defaut_fontset
);
1996 char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1997 char *font_allcs
= NULL
;
1998 char *font_allfamilies
= NULL
;
1999 char *font_all
= NULL
;
2000 char *allcs
= "*-*-*-*-*-*-*";
2001 char *allfamilies
= "-*-*-";
2002 char *all
= "*-*-*-*-";
2005 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
2018 /* If base_fontname specifies ADSTYLE, make it a
2022 int diff
= (p2
- p3
) - 2;
2024 base
= alloca (strlen (base_fontname
) + 1);
2025 bcopy (base_fontname
, base
, p3
- base_fontname
);
2026 base
[p3
- base_fontname
] = '*';
2027 base
[(p3
- base_fontname
) + 1] = '-';
2028 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
2029 p
= base
+ (p
- base_fontname
) - diff
;
2030 p1
= base
+ (p1
- base_fontname
);
2031 p2
= base
+ (p2
- base_fontname
) - diff
;
2032 base_fontname
= base
;
2035 /* Build the font spec that matches all charsets. */
2036 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2037 font_allcs
= (char *) alloca (len
);
2038 bzero (font_allcs
, len
);
2039 bcopy (base_fontname
, font_allcs
, p
- base_fontname
);
2040 strcat (font_allcs
, allcs
);
2042 /* Build the font spec that matches all families and
2044 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2045 font_allfamilies
= (char *) alloca (len
);
2046 bzero (font_allfamilies
, len
);
2047 strcpy (font_allfamilies
, allfamilies
);
2048 bcopy (p1
, font_allfamilies
+ strlen (allfamilies
), p
- p1
);
2049 strcat (font_allfamilies
, allcs
);
2051 /* Build the font spec that matches all. */
2052 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2053 font_all
= (char *) alloca (len
);
2054 bzero (font_all
, len
);
2055 strcpy (font_all
, allfamilies
);
2056 strcat (font_all
, all
);
2057 bcopy (p2
, font_all
+ strlen (all
) + strlen (allfamilies
), p
- p2
);
2058 strcat (font_all
, allcs
);
2060 /* Build the actual font set name. */
2061 len
= strlen (base_fontname
) + strlen (font_allcs
)
2062 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2063 fontsetname
= xmalloc (len
);
2064 bzero (fontsetname
, len
);
2065 strcpy (fontsetname
, base_fontname
);
2066 strcat (fontsetname
, sep
);
2067 strcat (fontsetname
, font_allcs
);
2068 strcat (fontsetname
, sep
);
2069 strcat (fontsetname
, font_allfamilies
);
2070 strcat (fontsetname
, sep
);
2071 strcat (fontsetname
, font_all
);
2075 strcat (fontsetname
, ":");
2079 #ifdef DEBUG_XIC_FONTSET
2081 print_fontset_result (xfs
, name
, missing_list
, missing_count
)
2084 char **missing_list
;
2088 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
2091 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
2092 while (missing_count
-- > 0)
2094 fprintf (stderr
, " missing: %s\n", *missing_list
);
2103 xic_create_xfontset (f
)
2106 XFontSet xfs
= NULL
;
2107 struct font
*font
= FRAME_FONT (f
);
2108 int pixel_size
= font
->pixel_size
;
2109 Lisp_Object rest
, frame
;
2111 /* See if there is another frame already using same fontset. */
2112 FOR_EACH_FRAME (rest
, frame
)
2114 struct frame
*cf
= XFRAME (frame
);
2116 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2117 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2119 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
2121 xfs
= FRAME_XIC_FONTSET (cf
);
2129 char **missing_list
;
2132 char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
2134 sprintf (buf
, xlfd_format
, pixel_size
);
2135 missing_list
= NULL
;
2136 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2137 &missing_list
, &missing_count
, &def_string
);
2138 #ifdef DEBUG_XIC_FONTSET
2139 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2142 XFreeStringList (missing_list
);
2145 /* List of pixel sizes most likely available. Find one that
2146 is closest to pixel_size. */
2147 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2148 int *smaller
, *larger
;
2150 for (smaller
= sizes
; smaller
[1]; smaller
++)
2151 if (smaller
[1] >= pixel_size
)
2153 larger
= smaller
+ 1;
2154 if (*larger
== pixel_size
)
2156 while (*smaller
|| *larger
)
2161 this_size
= *smaller
--;
2162 else if (! *smaller
)
2163 this_size
= *larger
++;
2164 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
2165 this_size
= *smaller
--;
2167 this_size
= *larger
++;
2168 sprintf (buf
, xlfd_format
, this_size
);
2169 missing_list
= NULL
;
2170 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2171 &missing_list
, &missing_count
, &def_string
);
2172 #ifdef DEBUG_XIC_FONTSET
2173 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2176 XFreeStringList (missing_list
);
2183 char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
2185 missing_list
= NULL
;
2186 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
2187 &missing_list
, &missing_count
, &def_string
);
2188 #ifdef DEBUG_XIC_FONTSET
2189 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
2192 XFreeStringList (missing_list
);
2200 /* Free the X fontset of frame F if it is the last frame using it. */
2203 xic_free_xfontset (f
)
2206 Lisp_Object rest
, frame
;
2209 if (!FRAME_XIC_FONTSET (f
))
2212 /* See if there is another frame sharing the same fontset. */
2213 FOR_EACH_FRAME (rest
, frame
)
2215 struct frame
*cf
= XFRAME (frame
);
2216 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2217 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2218 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2226 /* The fontset is not used anymore. It is safe to free it. */
2227 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2229 if (FRAME_XIC_BASE_FONTNAME (f
))
2230 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2231 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2232 FRAME_XIC_FONTSET (f
) = NULL
;
2236 /* Value is the best input style, given user preferences USER (already
2237 checked to be supported by Emacs), and styles supported by the
2238 input method XIM. */
2241 best_xim_style (user
, xim
)
2247 for (i
= 0; i
< user
->count_styles
; ++i
)
2248 for (j
= 0; j
< xim
->count_styles
; ++j
)
2249 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2250 return user
->supported_styles
[i
];
2252 /* Return the default style. */
2253 return XIMPreeditNothing
| XIMStatusNothing
;
2256 /* Create XIC for frame F. */
2258 static XIMStyle xic_style
;
2261 create_frame_xic (f
)
2266 XFontSet xfs
= NULL
;
2271 /* Create X fontset. */
2272 xfs
= xic_create_xfontset (f
);
2273 xim
= FRAME_X_XIM (f
);
2278 XVaNestedList preedit_attr
;
2279 XVaNestedList status_attr
;
2281 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2282 spot
.x
= 0; spot
.y
= 1;
2284 /* Determine XIC style. */
2287 XIMStyles supported_list
;
2288 supported_list
.count_styles
= (sizeof supported_xim_styles
2289 / sizeof supported_xim_styles
[0]);
2290 supported_list
.supported_styles
= supported_xim_styles
;
2291 xic_style
= best_xim_style (&supported_list
,
2292 FRAME_X_XIM_STYLES (f
));
2295 preedit_attr
= XVaCreateNestedList (0,
2298 FRAME_FOREGROUND_PIXEL (f
),
2300 FRAME_BACKGROUND_PIXEL (f
),
2301 (xic_style
& XIMPreeditPosition
2306 status_attr
= XVaCreateNestedList (0,
2312 FRAME_FOREGROUND_PIXEL (f
),
2314 FRAME_BACKGROUND_PIXEL (f
),
2317 xic
= XCreateIC (xim
,
2318 XNInputStyle
, xic_style
,
2319 XNClientWindow
, FRAME_X_WINDOW (f
),
2320 XNFocusWindow
, FRAME_X_WINDOW (f
),
2321 XNStatusAttributes
, status_attr
,
2322 XNPreeditAttributes
, preedit_attr
,
2324 XFree (preedit_attr
);
2325 XFree (status_attr
);
2328 FRAME_XIC (f
) = xic
;
2329 FRAME_XIC_STYLE (f
) = xic_style
;
2330 FRAME_XIC_FONTSET (f
) = xfs
;
2334 /* Destroy XIC and free XIC fontset of frame F, if any. */
2340 if (FRAME_XIC (f
) == NULL
)
2343 XDestroyIC (FRAME_XIC (f
));
2344 xic_free_xfontset (f
);
2346 FRAME_XIC (f
) = NULL
;
2350 /* Place preedit area for XIC of window W's frame to specified
2351 pixel position X/Y. X and Y are relative to window W. */
2354 xic_set_preeditarea (w
, x
, y
)
2358 struct frame
*f
= XFRAME (w
->frame
);
2362 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2363 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2364 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2365 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2370 /* Place status area for XIC in bottom right corner of frame F.. */
2373 xic_set_statusarea (f
)
2376 XIC xic
= FRAME_XIC (f
);
2381 /* Negotiate geometry of status area. If input method has existing
2382 status area, use its current size. */
2383 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2384 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2385 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2388 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2389 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2392 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2394 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2395 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2399 area
.width
= needed
->width
;
2400 area
.height
= needed
->height
;
2401 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2402 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2403 - FRAME_MENUBAR_HEIGHT (f
)
2404 - FRAME_TOOLBAR_HEIGHT (f
)
2405 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2408 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2409 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2414 /* Set X fontset for XIC of frame F, using base font name
2415 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2418 xic_set_xfontset (f
, base_fontname
)
2420 char *base_fontname
;
2425 xic_free_xfontset (f
);
2427 xfs
= xic_create_xfontset (f
);
2429 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2430 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2431 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2432 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2433 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2436 FRAME_XIC_FONTSET (f
) = xfs
;
2439 #endif /* HAVE_X_I18N */
2443 #ifdef USE_X_TOOLKIT
2445 /* Create and set up the X widget for frame F. */
2448 x_window (f
, window_prompting
, minibuffer_only
)
2450 long window_prompting
;
2451 int minibuffer_only
;
2453 XClassHint class_hints
;
2454 XSetWindowAttributes attributes
;
2455 unsigned long attribute_mask
;
2456 Widget shell_widget
;
2458 Widget frame_widget
;
2464 /* Use the resource name as the top-level widget name
2465 for looking up resources. Make a non-Lisp copy
2466 for the window manager, so GC relocation won't bother it.
2468 Elsewhere we specify the window name for the window manager. */
2471 char *str
= (char *) SDATA (Vx_resource_name
);
2472 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2473 strcpy (f
->namebuf
, str
);
2477 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2478 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2479 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2480 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2481 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2482 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2483 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2484 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2485 applicationShellWidgetClass
,
2486 FRAME_X_DISPLAY (f
), al
, ac
);
2488 f
->output_data
.x
->widget
= shell_widget
;
2489 /* maybe_set_screen_title_format (shell_widget); */
2491 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2492 (widget_value
*) NULL
,
2493 shell_widget
, False
,
2497 (lw_callback
) NULL
);
2500 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2501 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2502 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2503 XtSetValues (pane_widget
, al
, ac
);
2504 f
->output_data
.x
->column_widget
= pane_widget
;
2506 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2507 the emacs screen when changing menubar. This reduces flickering. */
2510 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2511 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2512 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2513 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2514 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
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 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2521 f
->output_data
.x
->edit_widget
= frame_widget
;
2523 XtManageChild (frame_widget
);
2525 /* Do some needed geometry management. */
2528 char *tem
, shell_position
[32];
2531 int extra_borders
= 0;
2533 = (f
->output_data
.x
->menubar_widget
2534 ? (f
->output_data
.x
->menubar_widget
->core
.height
2535 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2538 #if 0 /* Experimentally, we now get the right results
2539 for -geometry -0-0 without this. 24 Aug 96, rms. */
2540 if (FRAME_EXTERNAL_MENU_BAR (f
))
2543 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2544 menubar_size
+= ibw
;
2548 f
->output_data
.x
->menubar_height
= menubar_size
;
2551 /* Motif seems to need this amount added to the sizes
2552 specified for the shell widget. The Athena/Lucid widgets don't.
2553 Both conclusions reached experimentally. -- rms. */
2554 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2555 &extra_borders
, NULL
);
2559 /* Convert our geometry parameters into a geometry string
2561 Note that we do not specify here whether the position
2562 is a user-specified or program-specified one.
2563 We pass that information later, in x_wm_set_size_hints. */
2565 int left
= f
->left_pos
;
2566 int xneg
= window_prompting
& XNegative
;
2567 int top
= f
->top_pos
;
2568 int yneg
= window_prompting
& YNegative
;
2574 if (window_prompting
& USPosition
)
2575 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2576 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2577 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2578 (xneg
? '-' : '+'), left
,
2579 (yneg
? '-' : '+'), top
);
2582 sprintf (shell_position
, "=%dx%d",
2583 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2584 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2586 /* Setting x and y when the position is not specified in
2587 the geometry string will set program position in the WM hints.
2588 If Emacs had just one program position, we could set it in
2589 fallback resources, but since each make-frame call can specify
2590 different program positions, this is easier. */
2591 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2592 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2596 len
= strlen (shell_position
) + 1;
2597 /* We don't free this because we don't know whether
2598 it is safe to free it while the frame exists.
2599 It isn't worth the trouble of arranging to free it
2600 when the frame is deleted. */
2601 tem
= (char *) xmalloc (len
);
2602 strncpy (tem
, shell_position
, len
);
2603 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2604 XtSetValues (shell_widget
, al
, ac
);
2607 XtManageChild (pane_widget
);
2608 XtRealizeWidget (shell_widget
);
2610 if (FRAME_X_EMBEDDED_P (f
))
2611 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2612 f
->output_data
.x
->parent_desc
, 0, 0);
2614 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2616 validate_x_resource_name ();
2618 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2619 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2620 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2623 FRAME_XIC (f
) = NULL
;
2625 create_frame_xic (f
);
2628 f
->output_data
.x
->wm_hints
.input
= True
;
2629 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2630 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2631 &f
->output_data
.x
->wm_hints
);
2633 hack_wm_protocols (f
, shell_widget
);
2636 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2639 /* Do a stupid property change to force the server to generate a
2640 PropertyNotify event so that the event_stream server timestamp will
2641 be initialized to something relevant to the time we created the window.
2643 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2644 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2645 XA_ATOM
, 32, PropModeAppend
,
2646 (unsigned char*) NULL
, 0);
2648 /* Make all the standard events reach the Emacs frame. */
2649 attributes
.event_mask
= STANDARD_EVENT_SET
;
2654 /* XIM server might require some X events. */
2655 unsigned long fevent
= NoEventMask
;
2656 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2657 attributes
.event_mask
|= fevent
;
2659 #endif /* HAVE_X_I18N */
2661 attribute_mask
= CWEventMask
;
2662 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2663 attribute_mask
, &attributes
);
2665 XtMapWidget (frame_widget
);
2667 /* x_set_name normally ignores requests to set the name if the
2668 requested name is the same as the current name. This is the one
2669 place where that assumption isn't correct; f->name is set, but
2670 the X server hasn't been told. */
2673 int explicit = f
->explicit_name
;
2675 f
->explicit_name
= 0;
2678 x_set_name (f
, name
, explicit);
2681 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2682 f
->output_data
.x
->text_cursor
);
2686 /* This is a no-op, except under Motif. Make sure main areas are
2687 set to something reasonable, in case we get an error later. */
2688 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2691 #else /* not USE_X_TOOLKIT */
2697 if (! xg_create_frame_widgets (f
))
2698 error ("Unable to create window");
2701 FRAME_XIC (f
) = NULL
;
2705 create_frame_xic (f
);
2708 /* XIM server might require some X events. */
2709 unsigned long fevent
= NoEventMask
;
2710 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2712 if (fevent
!= NoEventMask
)
2714 XSetWindowAttributes attributes
;
2715 XWindowAttributes wattr
;
2716 unsigned long attribute_mask
;
2718 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2720 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2721 attribute_mask
= CWEventMask
;
2722 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2723 attribute_mask
, &attributes
);
2731 #else /*! USE_GTK */
2732 /* Create and set up the X window for frame F. */
2739 XClassHint class_hints
;
2740 XSetWindowAttributes attributes
;
2741 unsigned long attribute_mask
;
2743 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2744 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2745 attributes
.bit_gravity
= StaticGravity
;
2746 attributes
.backing_store
= NotUseful
;
2747 attributes
.save_under
= True
;
2748 attributes
.event_mask
= STANDARD_EVENT_SET
;
2749 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2750 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2755 = XCreateWindow (FRAME_X_DISPLAY (f
),
2756 f
->output_data
.x
->parent_desc
,
2759 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2761 CopyFromParent
, /* depth */
2762 InputOutput
, /* class */
2764 attribute_mask
, &attributes
);
2769 create_frame_xic (f
);
2772 /* XIM server might require some X events. */
2773 unsigned long fevent
= NoEventMask
;
2774 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2775 attributes
.event_mask
|= fevent
;
2776 attribute_mask
= CWEventMask
;
2777 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2778 attribute_mask
, &attributes
);
2781 #endif /* HAVE_X_I18N */
2783 validate_x_resource_name ();
2785 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2786 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2787 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2789 /* The menubar is part of the ordinary display;
2790 it does not count in addition to the height of the window. */
2791 f
->output_data
.x
->menubar_height
= 0;
2793 /* This indicates that we use the "Passive Input" input model.
2794 Unless we do this, we don't get the Focus{In,Out} events that we
2795 need to draw the cursor correctly. Accursed bureaucrats.
2796 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2798 f
->output_data
.x
->wm_hints
.input
= True
;
2799 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2800 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2801 &f
->output_data
.x
->wm_hints
);
2802 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2804 /* Request "save yourself" and "delete window" commands from wm. */
2807 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2808 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2809 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2812 /* x_set_name normally ignores requests to set the name if the
2813 requested name is the same as the current name. This is the one
2814 place where that assumption isn't correct; f->name is set, but
2815 the X server hasn't been told. */
2818 int explicit = f
->explicit_name
;
2820 f
->explicit_name
= 0;
2823 x_set_name (f
, name
, explicit);
2826 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2827 f
->output_data
.x
->text_cursor
);
2831 if (FRAME_X_WINDOW (f
) == 0)
2832 error ("Unable to create window");
2835 #endif /* not USE_GTK */
2836 #endif /* not USE_X_TOOLKIT */
2838 /* Verify that the icon position args for this window are valid. */
2841 x_icon_verify (f
, parms
)
2845 Lisp_Object icon_x
, icon_y
;
2847 /* Set the position of the icon. Note that twm groups all
2848 icons in an icon window. */
2849 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2850 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2851 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2853 CHECK_NUMBER (icon_x
);
2854 CHECK_NUMBER (icon_y
);
2856 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2857 error ("Both left and top icon corners of icon must be specified");
2860 /* Handle the icon stuff for this window. Perhaps later we might
2861 want an x_set_icon_position which can be called interactively as
2869 Lisp_Object icon_x
, icon_y
;
2871 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2874 /* Set the position of the icon. Note that twm groups all
2875 icons in an icon window. */
2876 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2877 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2878 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2880 CHECK_NUMBER (icon_x
);
2881 CHECK_NUMBER (icon_y
);
2883 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2884 error ("Both left and top icon corners of icon must be specified");
2888 if (! EQ (icon_x
, Qunbound
))
2889 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2891 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2892 but x_create_frame still needs it. */
2893 /* Start up iconic or window? */
2894 x_wm_set_window_state
2895 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2901 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2908 /* Make the GCs needed for this window, setting the
2909 background, border and mouse colors; also create the
2910 mouse cursor and the gray border tile. */
2912 static char cursor_bits
[] =
2914 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2915 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2916 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2917 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
2924 XGCValues gc_values
;
2928 /* Create the GCs of this frame.
2929 Note that many default values are used. */
2931 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2932 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2933 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2934 f
->output_data
.x
->normal_gc
2935 = XCreateGC (FRAME_X_DISPLAY (f
),
2937 GCLineWidth
| GCForeground
| GCBackground
,
2940 /* Reverse video style. */
2941 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2942 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2943 f
->output_data
.x
->reverse_gc
2944 = XCreateGC (FRAME_X_DISPLAY (f
),
2946 GCForeground
| GCBackground
| GCLineWidth
,
2949 /* Cursor has cursor-color background, background-color foreground. */
2950 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2951 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2952 gc_values
.fill_style
= FillOpaqueStippled
;
2954 = XCreateBitmapFromData (FRAME_X_DISPLAY (f
),
2955 FRAME_X_DISPLAY_INFO (f
)->root_window
,
2956 cursor_bits
, 16, 16);
2957 f
->output_data
.x
->cursor_gc
2958 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2959 (GCForeground
| GCBackground
2960 | GCFillStyle
/* | GCStipple */ | GCLineWidth
),
2964 f
->output_data
.x
->white_relief
.gc
= 0;
2965 f
->output_data
.x
->black_relief
.gc
= 0;
2967 /* Create the gray border tile used when the pointer is not in
2968 the frame. Since this depends on the frame's pixel values,
2969 this must be done on a per-frame basis. */
2970 f
->output_data
.x
->border_tile
2971 = (XCreatePixmapFromBitmapData
2972 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2973 gray_bits
, gray_width
, gray_height
,
2974 FRAME_FOREGROUND_PIXEL (f
),
2975 FRAME_BACKGROUND_PIXEL (f
),
2976 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2982 /* Free what was was allocated in x_make_gc. */
2988 Display
*dpy
= FRAME_X_DISPLAY (f
);
2992 if (f
->output_data
.x
->normal_gc
)
2994 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2995 f
->output_data
.x
->normal_gc
= 0;
2998 if (f
->output_data
.x
->reverse_gc
)
3000 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
3001 f
->output_data
.x
->reverse_gc
= 0;
3004 if (f
->output_data
.x
->cursor_gc
)
3006 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
3007 f
->output_data
.x
->cursor_gc
= 0;
3010 if (f
->output_data
.x
->border_tile
)
3012 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
3013 f
->output_data
.x
->border_tile
= 0;
3020 /* Handler for signals raised during x_create_frame and
3021 x_create_top_frame. FRAME is the frame which is partially
3025 unwind_create_frame (frame
)
3028 struct frame
*f
= XFRAME (frame
);
3030 /* If frame is already dead, nothing to do. This can happen if the
3031 display is disconnected after the frame has become official, but
3032 before x_create_frame removes the unwind protect. */
3033 if (!FRAME_LIVE_P (f
))
3036 /* If frame is ``official'', nothing to do. */
3037 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
3040 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
3043 x_free_frame_resources (f
);
3046 /* Check that reference counts are indeed correct. */
3047 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
3048 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
3058 x_default_font_parameter (f
, parms
)
3062 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
3063 Lisp_Object font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font",
3066 if (! STRINGP (font
))
3069 = { "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
3070 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3071 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3072 /* This was formerly the first thing tried, but it finds
3073 too many fonts and takes too long. */
3074 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
3075 /* If those didn't work, look for something which will
3077 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
3082 for (i
= 0; names
[i
]; i
++)
3084 font
= font_open_by_name (f
, names
[i
]);
3089 error ("No suitable font was found");
3093 /* Remember the explicit font parameter, so we can re-apply it after
3094 we've applied the `default' face settings. */
3095 x_set_frame_parameters (f
, Fcons (Fcons (Qfont_param
, font
), Qnil
));
3097 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
3101 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3103 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3104 Return an Emacs frame object.
3105 ALIST is an alist of frame parameters.
3106 If the parameters specify that the frame should not have a minibuffer,
3107 and do not specify a specific minibuffer window to use,
3108 then `default-minibuffer-frame' must be a frame whose minibuffer can
3109 be shared by the new frame.
3111 This function is an internal primitive--use `make-frame' instead. */)
3116 Lisp_Object frame
, tem
;
3118 int minibuffer_only
= 0;
3119 long window_prompting
= 0;
3121 int count
= SPECPDL_INDEX ();
3122 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3123 Lisp_Object display
;
3124 struct x_display_info
*dpyinfo
= NULL
;
3128 parms
= Fcopy_alist (parms
);
3130 /* Use this general default value to start with
3131 until we know if this frame has a specified name. */
3132 Vx_resource_name
= Vinvocation_name
;
3134 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3135 if (EQ (display
, Qunbound
))
3136 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3137 if (EQ (display
, Qunbound
))
3139 dpyinfo
= check_x_display_info (display
);
3141 kb
= dpyinfo
->terminal
->kboard
;
3143 kb
= &the_only_kboard
;
3146 if (!dpyinfo
->terminal
->name
)
3147 error ("Terminal is not live, can't create new frames on it");
3149 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3151 && ! EQ (name
, Qunbound
)
3153 error ("Invalid frame name--not a string or nil");
3156 Vx_resource_name
= name
;
3158 /* See if parent window is specified. */
3159 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3160 if (EQ (parent
, Qunbound
))
3162 if (! NILP (parent
))
3163 CHECK_NUMBER (parent
);
3165 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3166 /* No need to protect DISPLAY because that's not used after passing
3167 it to make_frame_without_minibuffer. */
3169 GCPRO4 (parms
, parent
, name
, frame
);
3170 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3172 if (EQ (tem
, Qnone
) || NILP (tem
))
3173 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3174 else if (EQ (tem
, Qonly
))
3176 f
= make_minibuffer_frame ();
3177 minibuffer_only
= 1;
3179 else if (WINDOWP (tem
))
3180 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3184 XSETFRAME (frame
, f
);
3186 /* Note that X Windows does support scroll bars. */
3187 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3189 f
->terminal
= dpyinfo
->terminal
;
3190 f
->terminal
->reference_count
++;
3192 f
->output_method
= output_x_window
;
3193 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3194 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3195 f
->output_data
.x
->icon_bitmap
= -1;
3196 FRAME_FONTSET (f
) = -1;
3197 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3198 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3199 #ifdef USE_TOOLKIT_SCROLL_BARS
3200 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3201 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3202 #endif /* USE_TOOLKIT_SCROLL_BARS */
3205 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3207 if (! STRINGP (f
->icon_name
))
3208 f
->icon_name
= Qnil
;
3210 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3212 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3213 record_unwind_protect (unwind_create_frame
, frame
);
3215 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
3216 dpyinfo_refcount
= dpyinfo
->reference_count
;
3217 #endif /* GLYPH_DEBUG */
3219 /* These colors will be set anyway later, but it's important
3220 to get the color reference counts right, so initialize them! */
3223 struct gcpro gcpro1
;
3225 /* Function x_decode_color can signal an error. Make
3226 sure to initialize color slots so that we won't try
3227 to free colors we haven't allocated. */
3228 FRAME_FOREGROUND_PIXEL (f
) = -1;
3229 FRAME_BACKGROUND_PIXEL (f
) = -1;
3230 f
->output_data
.x
->cursor_pixel
= -1;
3231 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3232 f
->output_data
.x
->border_pixel
= -1;
3233 f
->output_data
.x
->mouse_pixel
= -1;
3235 black
= build_string ("black");
3237 FRAME_FOREGROUND_PIXEL (f
)
3238 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3239 FRAME_BACKGROUND_PIXEL (f
)
3240 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3241 f
->output_data
.x
->cursor_pixel
3242 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3243 f
->output_data
.x
->cursor_foreground_pixel
3244 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3245 f
->output_data
.x
->border_pixel
3246 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3247 f
->output_data
.x
->mouse_pixel
3248 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3252 /* Specify the parent under which to make this X window. */
3256 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3257 f
->output_data
.x
->explicit_parent
= 1;
3261 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3262 f
->output_data
.x
->explicit_parent
= 0;
3265 /* Set the name; the functions to which we pass f expect the name to
3267 if (EQ (name
, Qunbound
) || NILP (name
))
3269 f
->name
= build_string (dpyinfo
->x_id_name
);
3270 f
->explicit_name
= 0;
3275 f
->explicit_name
= 1;
3276 /* use the frame's title when getting resources for this frame. */
3277 specbind (Qx_resource_name
, name
);
3280 f
->resx
= dpyinfo
->resx
;
3281 f
->resy
= dpyinfo
->resy
;
3283 register_font_driver (&xfont_driver
, f
);
3284 #ifdef HAVE_FREETYPE
3286 register_font_driver (&xftfont_driver
, f
);
3287 #else /* not HAVE_XFT */
3288 register_font_driver (&ftxfont_driver
, f
);
3289 #endif /* not HAVE_XFT */
3290 #endif /* HAVE_FREETYPE */
3292 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3293 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3295 /* Extract the window parameters from the supplied values
3296 that are needed to determine window geometry. */
3297 x_default_font_parameter (f
, parms
);
3300 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3301 whereby it fails to get any font. */
3302 xlwmenu_default_font
= XLoadQueryFont (FRAME_X_DISPLAY (f
), "fixed");
3305 /* Frame contents get displaced if an embedded X window has a border. */
3306 if (! FRAME_X_EMBEDDED_P (f
))
3307 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3308 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3310 /* This defaults to 1 in order to match xterm. We recognize either
3311 internalBorderWidth or internalBorder (which is what xterm calls
3313 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3317 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3318 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3319 if (! EQ (value
, Qunbound
))
3320 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3323 x_default_parameter (f
, parms
, Qinternal_border_width
,
3324 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3329 "internalBorderWidth", "internalBorderWidth",
3331 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3332 "verticalScrollBars", "ScrollBars",
3335 /* Also do the stuff which must be set before the window exists. */
3336 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3337 "foreground", "Foreground", RES_TYPE_STRING
);
3338 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3339 "background", "Background", RES_TYPE_STRING
);
3340 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3341 "pointerColor", "Foreground", RES_TYPE_STRING
);
3342 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3343 "cursorColor", "Foreground", RES_TYPE_STRING
);
3344 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3345 "borderColor", "BorderColor", RES_TYPE_STRING
);
3346 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3347 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3348 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3349 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3350 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3351 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3352 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3353 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3355 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3356 "scrollBarForeground",
3357 "ScrollBarForeground", 1);
3358 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3359 "scrollBarBackground",
3360 "ScrollBarBackground", 0);
3362 /* Init faces before x_default_parameter is called for scroll-bar
3363 parameters because that function calls x_set_scroll_bar_width,
3364 which calls change_frame_size, which calls Fset_window_buffer,
3365 which runs hooks, which call Fvertical_motion. At the end, we
3366 end up in init_iterator with a null face cache, which should not
3368 init_frame_faces (f
);
3370 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3371 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3372 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3373 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3374 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3375 "bufferPredicate", "BufferPredicate",
3377 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3378 "title", "Title", RES_TYPE_STRING
);
3379 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3380 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3381 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3382 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3384 /* Compute the size of the X window. */
3385 window_prompting
= x_figure_window_size (f
, parms
, 1);
3387 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3388 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3390 x_icon_verify (f
, parms
);
3392 /* Create the X widget or window. */
3393 #ifdef USE_X_TOOLKIT
3394 x_window (f
, window_prompting
, minibuffer_only
);
3402 /* Now consider the frame official. */
3403 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3404 Vframe_list
= Fcons (frame
, Vframe_list
);
3406 /* We need to do this after creating the X window, so that the
3407 icon-creation functions can say whose icon they're describing. */
3408 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3409 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3411 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3412 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3413 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3414 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3415 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3416 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3417 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3418 "scrollBarWidth", "ScrollBarWidth",
3420 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3421 "alpha", "Alpha", RES_TYPE_NUMBER
);
3423 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3424 Change will not be effected unless different from the current
3426 width
= FRAME_COLS (f
);
3427 height
= FRAME_LINES (f
);
3429 SET_FRAME_COLS (f
, 0);
3430 FRAME_LINES (f
) = 0;
3431 change_frame_size (f
, height
, width
, 1, 0, 0);
3433 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3434 /* Create the menu bar. */
3435 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3437 /* If this signals an error, we haven't set size hints for the
3438 frame and we didn't make it visible. */
3439 initialize_frame_menubar (f
);
3442 /* This is a no-op, except under Motif where it arranges the
3443 main window for the widgets on it. */
3444 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3445 f
->output_data
.x
->menubar_widget
,
3446 f
->output_data
.x
->edit_widget
);
3447 #endif /* not USE_GTK */
3449 #endif /* USE_X_TOOLKIT || USE_GTK */
3451 /* Tell the server what size and position, etc, we want, and how
3452 badly we want them. This should be done after we have the menu
3453 bar so that its size can be taken into account. */
3455 x_wm_set_size_hint (f
, window_prompting
, 0);
3458 /* Make the window appear on the frame and enable display, unless
3459 the caller says not to. However, with explicit parent, Emacs
3460 cannot control visibility, so don't try. */
3461 if (! f
->output_data
.x
->explicit_parent
)
3463 Lisp_Object visibility
;
3465 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3467 if (EQ (visibility
, Qunbound
))
3470 if (EQ (visibility
, Qicon
))
3471 x_iconify_frame (f
);
3472 else if (! NILP (visibility
))
3473 x_make_frame_visible (f
);
3475 /* Must have been Qnil. */
3479 /* Set the WM leader property. GTK does this itself, so this is not
3480 needed when using GTK. */
3481 if (dpyinfo
->client_leader_window
!= 0)
3484 XChangeProperty (FRAME_X_DISPLAY (f
),
3485 FRAME_OUTER_WINDOW (f
),
3486 dpyinfo
->Xatom_wm_client_leader
,
3487 XA_WINDOW
, 32, PropModeReplace
,
3488 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3492 /* Initialize `default-minibuffer-frame' in case this is the first
3493 frame on this terminal. */
3494 if (FRAME_HAS_MINIBUF_P (f
)
3495 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3496 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3497 kb
->Vdefault_minibuffer_frame
= frame
;
3499 /* All remaining specified parameters, which have not been "used"
3500 by x_get_arg and friends, now go in the misc. alist of the frame. */
3501 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3502 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3503 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3507 /* Make sure windows on this frame appear in calls to next-window
3508 and similar functions. */
3509 Vwindow_list
= Qnil
;
3511 return unbind_to (count
, frame
);
3515 /* FRAME is used only to get a handle on the X display. We don't pass the
3516 display info directly because we're called from frame.c, which doesn't
3517 know about that structure. */
3520 x_get_focus_frame (frame
)
3521 struct frame
*frame
;
3523 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3525 if (! dpyinfo
->x_focus_frame
)
3528 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3533 /* In certain situations, when the window manager follows a
3534 click-to-focus policy, there seems to be no way around calling
3535 XSetInputFocus to give another frame the input focus .
3537 In an ideal world, XSetInputFocus should generally be avoided so
3538 that applications don't interfere with the window manager's focus
3539 policy. But I think it's okay to use when it's clearly done
3540 following a user-command. */
3542 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3543 doc
: /* Set the input focus to FRAME.
3544 FRAME nil means use the selected frame. */)
3548 struct frame
*f
= check_x_frame (frame
);
3549 Display
*dpy
= FRAME_X_DISPLAY (f
);
3552 x_catch_errors (dpy
);
3553 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3554 RevertToParent
, CurrentTime
);
3555 x_ewmh_activate_frame (f
);
3556 x_uncatch_errors ();
3563 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3564 doc
: /* Internal function called by `color-defined-p', which see. */)
3566 Lisp_Object color
, frame
;
3569 FRAME_PTR f
= check_x_frame (frame
);
3571 CHECK_STRING (color
);
3573 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3579 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3580 doc
: /* Internal function called by `color-values', which see. */)
3582 Lisp_Object color
, frame
;
3585 FRAME_PTR f
= check_x_frame (frame
);
3587 CHECK_STRING (color
);
3589 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3590 return list3 (make_number (foo
.red
),
3591 make_number (foo
.green
),
3592 make_number (foo
.blue
));
3597 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3598 doc
: /* Internal function called by `display-color-p', which see. */)
3600 Lisp_Object terminal
;
3602 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3604 if (dpyinfo
->n_planes
<= 2)
3607 switch (dpyinfo
->visual
->class)
3620 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3622 doc
: /* Return t if the X display supports shades of gray.
3623 Note that color displays do support shades of gray.
3624 The optional argument TERMINAL specifies which display to ask about.
3625 TERMINAL should be a terminal id, a frame or a display name (a string).
3626 If omitted or nil, that stands for the selected frame's display. */)
3628 Lisp_Object terminal
;
3630 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3632 if (dpyinfo
->n_planes
<= 1)
3635 switch (dpyinfo
->visual
->class)
3650 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3652 doc
: /* Return the width in pixels of the X display TERMINAL.
3653 The optional argument TERMINAL specifies which display to ask about.
3654 TERMINAL should be a terminal id, a frame or a display name (a string).
3655 If omitted or nil, that stands for the selected frame's display. */)
3657 Lisp_Object terminal
;
3659 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3661 return make_number (dpyinfo
->width
);
3664 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3665 Sx_display_pixel_height
, 0, 1, 0,
3666 doc
: /* Return the height in pixels of the X display TERMINAL.
3667 The optional argument TERMINAL specifies which display to ask about.
3668 TERMINAL should be a terminal id, a frame or a display name (a string).
3669 If omitted or nil, that stands for the selected frame's display. */)
3671 Lisp_Object terminal
;
3673 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3675 return make_number (dpyinfo
->height
);
3678 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3680 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3681 The optional argument TERMINAL specifies which display to ask about.
3682 TERMINAL should be a terminal id, a frame or a display name (a string).
3683 If omitted or nil, that stands for the selected frame's display. */)
3685 Lisp_Object terminal
;
3687 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3689 return make_number (dpyinfo
->n_planes
);
3692 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3694 doc
: /* Return the number of color cells of the X display TERMINAL.
3695 The optional argument TERMINAL specifies which display to ask about.
3696 TERMINAL should be a terminal id, a frame or a display name (a string).
3697 If omitted or nil, that stands for the selected frame's display. */)
3699 Lisp_Object terminal
;
3701 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3703 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3704 XScreenNumberOfScreen (dpyinfo
->screen
));
3706 /* Truncate nr_planes to 24 to avoid integer overflow.
3707 Some displays says 32, but only 24 bits are actually significant.
3708 There are only very few and rare video cards that have more than
3709 24 significant bits. Also 24 bits is more than 16 million colors,
3710 it "should be enough for everyone". */
3711 if (nr_planes
> 24) nr_planes
= 24;
3713 return make_number (1 << nr_planes
);
3716 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3717 Sx_server_max_request_size
,
3719 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3720 The optional argument TERMINAL specifies which display to ask about.
3721 TERMINAL should be a terminal id, a frame or a display name (a string).
3722 If omitted or nil, that stands for the selected frame's display. */)
3724 Lisp_Object terminal
;
3726 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3728 return make_number (MAXREQUEST (dpyinfo
->display
));
3731 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3732 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3733 \(Labelling every distributor as a "vendor" embodies the false assumption
3734 that operating systems cannot be developed and distributed noncommercially.)
3735 The optional argument TERMINAL specifies which display to ask about.
3736 TERMINAL should be a terminal id, a frame or a display name (a string).
3737 If omitted or nil, that stands for the selected frame's display. */)
3739 Lisp_Object terminal
;
3741 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3742 char *vendor
= ServerVendor (dpyinfo
->display
);
3744 if (! vendor
) vendor
= "";
3745 return build_string (vendor
);
3748 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3749 doc
: /* Return the version numbers of the X server of display TERMINAL.
3750 The value is a list of three integers: the major and minor
3751 version numbers of the X Protocol in use, and the distributor-specific release
3752 number. See also the function `x-server-vendor'.
3754 The optional argument TERMINAL specifies which display to ask about.
3755 TERMINAL should be a terminal id, a frame or a display name (a string).
3756 If omitted or nil, that stands for the selected frame's display. */)
3758 Lisp_Object terminal
;
3760 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3761 Display
*dpy
= dpyinfo
->display
;
3763 return Fcons (make_number (ProtocolVersion (dpy
)),
3764 Fcons (make_number (ProtocolRevision (dpy
)),
3765 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3768 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3769 doc
: /* Return the number of screens on the X server of display TERMINAL.
3770 The optional argument TERMINAL specifies which display to ask about.
3771 TERMINAL should be a terminal id, a frame or a display name (a string).
3772 If omitted or nil, that stands for the selected frame's display. */)
3774 Lisp_Object terminal
;
3776 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3778 return make_number (ScreenCount (dpyinfo
->display
));
3781 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3782 doc
: /* Return the height in millimeters of the X display TERMINAL.
3783 The optional argument TERMINAL specifies which display to ask about.
3784 TERMINAL should be a terminal id, a frame or a display name (a string).
3785 If omitted or nil, that stands for the selected frame's display. */)
3787 Lisp_Object terminal
;
3789 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3791 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3794 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3795 doc
: /* Return the width in millimeters of the X display TERMINAL.
3796 The optional argument TERMINAL specifies which display to ask about.
3797 TERMINAL should be a terminal id, a frame or a display name (a string).
3798 If omitted or nil, that stands for the selected frame's display. */)
3800 Lisp_Object terminal
;
3802 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3804 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3807 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3808 Sx_display_backing_store
, 0, 1, 0,
3809 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3810 The value may be `always', `when-mapped', or `not-useful'.
3811 The optional argument TERMINAL specifies which display to ask about.
3812 TERMINAL should be a terminal id, a frame or a display name (a string).
3813 If omitted or nil, that stands for the selected frame's display. */)
3815 Lisp_Object terminal
;
3817 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3820 switch (DoesBackingStore (dpyinfo
->screen
))
3823 result
= intern ("always");
3827 result
= intern ("when-mapped");
3831 result
= intern ("not-useful");
3835 error ("Strange value for BackingStore parameter of screen");
3842 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3843 Sx_display_visual_class
, 0, 1, 0,
3844 doc
: /* Return the visual class of the X display TERMINAL.
3845 The value is one of the symbols `static-gray', `gray-scale',
3846 `static-color', `pseudo-color', `true-color', or `direct-color'.
3848 The optional argument TERMINAL specifies which display to ask about.
3849 TERMINAL should a terminal id, 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
);
3857 switch (dpyinfo
->visual
->class)
3860 result
= intern ("static-gray");
3863 result
= intern ("gray-scale");
3866 result
= intern ("static-color");
3869 result
= intern ("pseudo-color");
3872 result
= intern ("true-color");
3875 result
= intern ("direct-color");
3878 error ("Display has an unknown visual class");
3885 DEFUN ("x-display-save-under", Fx_display_save_under
,
3886 Sx_display_save_under
, 0, 1, 0,
3887 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3888 The optional argument TERMINAL specifies which display to ask about.
3889 TERMINAL should be a terminal id, a frame or a display name (a string).
3890 If omitted or nil, that stands for the selected frame's display. */)
3892 Lisp_Object terminal
;
3894 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3896 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3904 register struct frame
*f
;
3906 return FRAME_PIXEL_WIDTH (f
);
3911 register struct frame
*f
;
3913 return FRAME_PIXEL_HEIGHT (f
);
3918 register struct frame
*f
;
3920 return FRAME_COLUMN_WIDTH (f
);
3925 register struct frame
*f
;
3927 return FRAME_LINE_HEIGHT (f
);
3932 register struct frame
*f
;
3934 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3939 /************************************************************************
3941 ************************************************************************/
3944 /* Mapping visual names to visuals. */
3946 static struct visual_class
3953 {"StaticGray", StaticGray
},
3954 {"GrayScale", GrayScale
},
3955 {"StaticColor", StaticColor
},
3956 {"PseudoColor", PseudoColor
},
3957 {"TrueColor", TrueColor
},
3958 {"DirectColor", DirectColor
},
3963 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3965 /* Value is the screen number of screen SCR. This is a substitute for
3966 the X function with the same name when that doesn't exist. */
3969 XScreenNumberOfScreen (scr
)
3970 register Screen
*scr
;
3972 Display
*dpy
= scr
->display
;
3975 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3976 if (scr
== dpy
->screens
+ i
)
3982 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3985 /* Select the visual that should be used on display DPYINFO. Set
3986 members of DPYINFO appropriately. Called from x_term_init. */
3989 select_visual (dpyinfo
)
3990 struct x_display_info
*dpyinfo
;
3992 Display
*dpy
= dpyinfo
->display
;
3993 Screen
*screen
= dpyinfo
->screen
;
3996 /* See if a visual is specified. */
3997 value
= display_x_get_resource (dpyinfo
,
3998 build_string ("visualClass"),
3999 build_string ("VisualClass"),
4001 if (STRINGP (value
))
4003 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
4004 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4005 depth, a decimal number. NAME is compared with case ignored. */
4006 char *s
= (char *) alloca (SBYTES (value
) + 1);
4011 strcpy (s
, SDATA (value
));
4012 dash
= index (s
, '-');
4015 dpyinfo
->n_planes
= atoi (dash
+ 1);
4019 /* We won't find a matching visual with depth 0, so that
4020 an error will be printed below. */
4021 dpyinfo
->n_planes
= 0;
4023 /* Determine the visual class. */
4024 for (i
= 0; visual_classes
[i
].name
; ++i
)
4025 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4027 class = visual_classes
[i
].class;
4031 /* Look up a matching visual for the specified class. */
4033 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4034 dpyinfo
->n_planes
, class, &vinfo
))
4035 fatal ("Invalid visual specification `%s'", SDATA (value
));
4037 dpyinfo
->visual
= vinfo
.visual
;
4042 XVisualInfo
*vinfo
, vinfo_template
;
4044 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4046 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4047 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4048 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4049 &vinfo_template
, &n_visuals
);
4051 fatal ("Can't get proper X visual info");
4053 dpyinfo
->n_planes
= vinfo
->depth
;
4054 XFree ((char *) vinfo
);
4059 /* Return the X display structure for the display named NAME.
4060 Open a new connection if necessary. */
4062 struct x_display_info
*
4063 x_display_info_for_name (name
)
4067 struct x_display_info
*dpyinfo
;
4069 CHECK_STRING (name
);
4072 if (! EQ (Vinitial_window_system
, intern ("x")))
4073 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4076 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4078 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4081 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4086 /* Use this general default value to start with. */
4087 Vx_resource_name
= Vinvocation_name
;
4089 validate_x_resource_name ();
4091 dpyinfo
= x_term_init (name
, (char *)0,
4092 (char *) SDATA (Vx_resource_name
));
4095 error ("Cannot connect to X server %s", SDATA (name
));
4098 XSETFASTINT (Vwindow_system_version
, 11);
4104 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4106 doc
: /* Open a connection to an X server.
4107 DISPLAY is the name of the display to connect to.
4108 Optional second arg XRM-STRING is a string of resources in xrdb format.
4109 If the optional third arg MUST-SUCCEED is non-nil,
4110 terminate Emacs if we can't open the connection. */)
4111 (display
, xrm_string
, must_succeed
)
4112 Lisp_Object display
, xrm_string
, must_succeed
;
4114 unsigned char *xrm_option
;
4115 struct x_display_info
*dpyinfo
;
4117 CHECK_STRING (display
);
4118 if (! NILP (xrm_string
))
4119 CHECK_STRING (xrm_string
);
4122 if (! EQ (Vinitial_window_system
, intern ("x")))
4123 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4126 if (! NILP (xrm_string
))
4127 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4129 xrm_option
= (unsigned char *) 0;
4131 validate_x_resource_name ();
4133 /* This is what opens the connection and sets x_current_display.
4134 This also initializes many symbols, such as those used for input. */
4135 dpyinfo
= x_term_init (display
, xrm_option
,
4136 (char *) SDATA (Vx_resource_name
));
4140 if (!NILP (must_succeed
))
4141 fatal ("Cannot connect to X server %s.\n\
4142 Check the DISPLAY environment variable or use `-d'.\n\
4143 Also use the `xauth' program to verify that you have the proper\n\
4144 authorization information needed to connect the X server.\n\
4145 An insecure way to solve the problem may be to use `xhost'.\n",
4148 error ("Cannot connect to X server %s", SDATA (display
));
4153 XSETFASTINT (Vwindow_system_version
, 11);
4157 DEFUN ("x-close-connection", Fx_close_connection
,
4158 Sx_close_connection
, 1, 1, 0,
4159 doc
: /* Close the connection to TERMINAL's X server.
4160 For TERMINAL, specify a terminal id, a frame or a display name (a
4161 string). If TERMINAL is nil, that stands for the selected frame's
4164 Lisp_Object terminal
;
4166 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4168 if (dpyinfo
->reference_count
> 0)
4169 error ("Display still has frames on it");
4171 x_delete_terminal (dpyinfo
->terminal
);
4176 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4177 doc
: /* Return the list of display names that Emacs has connections to. */)
4180 Lisp_Object tail
, result
;
4183 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4184 result
= Fcons (XCAR (XCAR (tail
)), result
);
4189 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4190 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4191 If ON is nil, allow buffering of requests.
4192 Turning on synchronization prohibits the Xlib routines from buffering
4193 requests and seriously degrades performance, but makes debugging much
4195 The optional second argument TERMINAL specifies which display to act on.
4196 TERMINAL should be a terminal id, a frame or a display name (a string).
4197 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4199 Lisp_Object terminal
, on
;
4201 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4203 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4208 /* Wait for responses to all X commands issued so far for frame F. */
4215 XSync (FRAME_X_DISPLAY (f
), False
);
4220 /***********************************************************************
4222 ***********************************************************************/
4224 DEFUN ("x-change-window-property", Fx_change_window_property
,
4225 Sx_change_window_property
, 2, 6, 0,
4226 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4227 PROP must be a string.
4228 VALUE may be a string or a list of conses, numbers and/or strings.
4229 If an element in the list is a string, it is converted to
4230 an Atom and the value of the Atom is used. If an element is a cons,
4231 it is converted to a 32 bit number where the car is the 16 top bits and the
4232 cdr is the lower 16 bits.
4233 FRAME nil or omitted means use the selected frame.
4234 If TYPE is given and non-nil, it is the name of the type of VALUE.
4235 If TYPE is not given or nil, the type is STRING.
4236 FORMAT gives the size in bits of each element if VALUE is a list.
4237 It must be one of 8, 16 or 32.
4238 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4239 If OUTER_P is non-nil, the property is changed for the outer X window of
4240 FRAME. Default is to change on the edit X window.
4243 (prop
, value
, frame
, type
, format
, outer_p
)
4244 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4246 struct frame
*f
= check_x_frame (frame
);
4248 Atom target_type
= XA_STRING
;
4249 int element_format
= 8;
4250 unsigned char *data
;
4254 CHECK_STRING (prop
);
4256 if (! NILP (format
))
4258 CHECK_NUMBER (format
);
4259 element_format
= XFASTINT (format
);
4261 if (element_format
!= 8 && element_format
!= 16
4262 && element_format
!= 32)
4263 error ("FORMAT must be one of 8, 16 or 32");
4268 nelements
= x_check_property_data (value
);
4269 if (nelements
== -1)
4270 error ("Bad data in VALUE, must be number, string or cons");
4272 if (element_format
== 8)
4273 data
= (unsigned char *) xmalloc (nelements
);
4274 else if (element_format
== 16)
4275 data
= (unsigned char *) xmalloc (nelements
*2);
4276 else /* format == 32 */
4277 /* The man page for XChangeProperty:
4278 "If the specified format is 32, the property data must be a
4280 This applies even if long is more than 64 bits. The X library
4281 converts to 32 bits before sending to the X server. */
4282 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4284 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4288 CHECK_STRING (value
);
4289 data
= SDATA (value
);
4290 nelements
= SCHARS (value
);
4294 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4297 CHECK_STRING (type
);
4298 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4301 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4302 else w
= FRAME_X_WINDOW (f
);
4304 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4305 prop_atom
, target_type
, element_format
, PropModeReplace
,
4308 if (CONSP (value
)) xfree (data
);
4310 /* Make sure the property is set when we return. */
4311 XFlush (FRAME_X_DISPLAY (f
));
4318 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4319 Sx_delete_window_property
, 1, 2, 0,
4320 doc
: /* Remove window property PROP from X window of FRAME.
4321 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4323 Lisp_Object prop
, frame
;
4325 struct frame
*f
= check_x_frame (frame
);
4328 CHECK_STRING (prop
);
4330 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4331 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4333 /* Make sure the property is removed when we return. */
4334 XFlush (FRAME_X_DISPLAY (f
));
4341 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4343 doc
: /* Value is the value of window property PROP on FRAME.
4344 If FRAME is nil or omitted, use the selected frame.
4345 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4346 is the name of the Atom that denotes the type expected.
4347 If SOURCE is non-nil, get the property on that window instead of from
4348 FRAME. The number 0 denotes the root window.
4349 If DELETE_P is non-nil, delete the property after retreiving it.
4350 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4352 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4353 no value of TYPE. */)
4354 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4355 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4357 struct frame
*f
= check_x_frame (frame
);
4360 Lisp_Object prop_value
= Qnil
;
4361 unsigned char *tmp_data
= NULL
;
4363 Atom target_type
= XA_STRING
;
4365 unsigned long actual_size
, bytes_remaining
;
4366 Window target_window
= FRAME_X_WINDOW (f
);
4367 struct gcpro gcpro1
;
4369 GCPRO1 (prop_value
);
4370 CHECK_STRING (prop
);
4372 if (! NILP (source
))
4374 if (NUMBERP (source
))
4376 if (FLOATP (source
))
4377 target_window
= (Window
) XFLOAT (source
);
4379 target_window
= XFASTINT (source
);
4381 if (target_window
== 0)
4382 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4384 else if (CONSP (source
))
4385 target_window
= cons_to_long (source
);
4391 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4392 target_type
= AnyPropertyType
;
4394 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4397 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4398 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4399 prop_atom
, 0, 0, False
, target_type
,
4400 &actual_type
, &actual_format
, &actual_size
,
4401 &bytes_remaining
, &tmp_data
);
4404 int size
= bytes_remaining
;
4409 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4410 prop_atom
, 0, bytes_remaining
,
4411 ! NILP (delete_p
), target_type
,
4412 &actual_type
, &actual_format
,
4413 &actual_size
, &bytes_remaining
,
4415 if (rc
== Success
&& tmp_data
)
4417 /* The man page for XGetWindowProperty says:
4418 "If the returned format is 32, the returned data is represented
4419 as a long array and should be cast to that type to obtain the
4421 This applies even if long is more than 32 bits, the X library
4422 converts from 32 bit elements received from the X server to long
4423 and passes the long array to us. Thus, for that case bcopy can not
4424 be used. We convert to a 32 bit type here, because so much code
4427 The bytes and offsets passed to XGetWindowProperty refers to the
4428 property and those are indeed in 32 bit quantities if format is
4431 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4434 int *idata
= (int *) tmp_data
;
4435 long *ldata
= (long *) tmp_data
;
4437 for (i
= 0; i
< actual_size
; ++i
)
4438 idata
[i
] = (int) ldata
[i
];
4441 if (NILP (vector_ret_p
))
4442 prop_value
= make_string (tmp_data
, size
);
4444 prop_value
= x_property_data_to_lisp (f
,
4451 if (tmp_data
) XFree (tmp_data
);
4461 /***********************************************************************
4463 ***********************************************************************/
4465 /* If non-null, an asynchronous timer that, when it expires, displays
4466 an hourglass cursor on all frames. */
4468 static struct atimer
*hourglass_atimer
;
4470 /* Non-zero means an hourglass cursor is currently shown. */
4472 static int hourglass_shown_p
;
4474 /* Number of seconds to wait before displaying an hourglass cursor. */
4476 static Lisp_Object Vhourglass_delay
;
4478 /* Default number of seconds to wait before displaying an hourglass
4481 #define DEFAULT_HOURGLASS_DELAY 1
4483 /* Function prototypes. */
4485 static void show_hourglass
P_ ((struct atimer
*));
4486 static void hide_hourglass
P_ ((void));
4488 /* Return non-zero if houglass timer has been started or hourglass is shown. */
4491 hourglass_started ()
4493 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
4497 /* Cancel a currently active hourglass timer, and start a new one. */
4503 int secs
, usecs
= 0;
4505 cancel_hourglass ();
4507 if (INTEGERP (Vhourglass_delay
)
4508 && XINT (Vhourglass_delay
) > 0)
4509 secs
= XFASTINT (Vhourglass_delay
);
4510 else if (FLOATP (Vhourglass_delay
)
4511 && XFLOAT_DATA (Vhourglass_delay
) > 0)
4514 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
4515 secs
= XFASTINT (tem
);
4516 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
4519 secs
= DEFAULT_HOURGLASS_DELAY
;
4521 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
4522 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
4523 show_hourglass
, NULL
);
4527 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
4533 if (hourglass_atimer
)
4535 cancel_atimer (hourglass_atimer
);
4536 hourglass_atimer
= NULL
;
4539 if (hourglass_shown_p
)
4544 /* Timer function of hourglass_atimer. TIMER is equal to
4547 Display an hourglass pointer on all frames by mapping the frames'
4548 hourglass_window. Set the hourglass_p flag in the frames'
4549 output_data.x structure to indicate that an hourglass cursor is
4550 shown on the frames. */
4553 show_hourglass (timer
)
4554 struct atimer
*timer
;
4556 /* The timer implementation will cancel this timer automatically
4557 after this function has run. Set hourglass_atimer to null
4558 so that we know the timer doesn't have to be canceled. */
4559 hourglass_atimer
= NULL
;
4561 if (!hourglass_shown_p
)
4563 Lisp_Object rest
, frame
;
4567 FOR_EACH_FRAME (rest
, frame
)
4569 struct frame
*f
= XFRAME (frame
);
4571 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4573 Display
*dpy
= FRAME_X_DISPLAY (f
);
4575 #ifdef USE_X_TOOLKIT
4576 if (f
->output_data
.x
->widget
)
4578 if (FRAME_OUTER_WINDOW (f
))
4581 f
->output_data
.x
->hourglass_p
= 1;
4583 if (!f
->output_data
.x
->hourglass_window
)
4585 unsigned long mask
= CWCursor
;
4586 XSetWindowAttributes attrs
;
4588 Window parent
= FRAME_X_WINDOW (f
);
4590 Window parent
= FRAME_OUTER_WINDOW (f
);
4592 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4594 f
->output_data
.x
->hourglass_window
4595 = XCreateWindow (dpy
, parent
,
4596 0, 0, 32000, 32000, 0, 0,
4602 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4608 hourglass_shown_p
= 1;
4614 /* Hide the hourglass pointer on all frames, if it is currently
4620 if (hourglass_shown_p
)
4622 Lisp_Object rest
, frame
;
4625 FOR_EACH_FRAME (rest
, frame
)
4627 struct frame
*f
= XFRAME (frame
);
4630 /* Watch out for newly created frames. */
4631 && f
->output_data
.x
->hourglass_window
)
4633 XUnmapWindow (FRAME_X_DISPLAY (f
),
4634 f
->output_data
.x
->hourglass_window
);
4635 /* Sync here because XTread_socket looks at the
4636 hourglass_p flag that is reset to zero below. */
4637 XSync (FRAME_X_DISPLAY (f
), False
);
4638 f
->output_data
.x
->hourglass_p
= 0;
4642 hourglass_shown_p
= 0;
4649 /***********************************************************************
4651 ***********************************************************************/
4653 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4654 Lisp_Object
, Lisp_Object
));
4655 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4656 Lisp_Object
, int, int, int *, int *));
4658 /* The frame of a currently visible tooltip. */
4660 Lisp_Object tip_frame
;
4662 /* If non-nil, a timer started that hides the last tooltip when it
4665 Lisp_Object tip_timer
;
4668 /* If non-nil, a vector of 3 elements containing the last args
4669 with which x-show-tip was called. See there. */
4671 Lisp_Object last_show_tip_args
;
4673 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4675 Lisp_Object Vx_max_tooltip_size
;
4679 unwind_create_tip_frame (frame
)
4682 Lisp_Object deleted
;
4684 deleted
= unwind_create_frame (frame
);
4685 if (EQ (deleted
, Qt
))
4695 /* Create a frame for a tooltip on the display described by DPYINFO.
4696 PARMS is a list of frame parameters. TEXT is the string to
4697 display in the tip frame. Value is the frame.
4699 Note that functions called here, esp. x_default_parameter can
4700 signal errors, for instance when a specified color name is
4701 undefined. We have to make sure that we're in a consistent state
4702 when this happens. */
4705 x_create_tip_frame (dpyinfo
, parms
, text
)
4706 struct x_display_info
*dpyinfo
;
4707 Lisp_Object parms
, text
;
4710 Lisp_Object frame
, tem
;
4712 long window_prompting
= 0;
4714 int count
= SPECPDL_INDEX ();
4715 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4716 int face_change_count_before
= face_change_count
;
4718 struct buffer
*old_buffer
;
4722 if (!dpyinfo
->terminal
->name
)
4723 error ("Terminal is not live, can't create new frames on it");
4725 parms
= Fcopy_alist (parms
);
4727 /* Get the name of the frame to use for resource lookup. */
4728 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4730 && !EQ (name
, Qunbound
)
4732 error ("Invalid frame name--not a string or nil");
4735 GCPRO3 (parms
, name
, frame
);
4737 XSETFRAME (frame
, f
);
4739 buffer
= Fget_buffer_create (build_string (" *tip*"));
4740 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4741 old_buffer
= current_buffer
;
4742 set_buffer_internal_1 (XBUFFER (buffer
));
4743 current_buffer
->truncate_lines
= Qnil
;
4744 specbind (Qinhibit_read_only
, Qt
);
4745 specbind (Qinhibit_modification_hooks
, Qt
);
4748 set_buffer_internal_1 (old_buffer
);
4750 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4751 record_unwind_protect (unwind_create_tip_frame
, frame
);
4753 f
->terminal
= dpyinfo
->terminal
;
4754 f
->terminal
->reference_count
++;
4756 /* By setting the output method, we're essentially saying that
4757 the frame is live, as per FRAME_LIVE_P. If we get a signal
4758 from this point on, x_destroy_window might screw up reference
4760 f
->output_method
= output_x_window
;
4761 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4762 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4763 f
->output_data
.x
->icon_bitmap
= -1;
4764 FRAME_FONTSET (f
) = -1;
4765 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4766 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4767 #ifdef USE_TOOLKIT_SCROLL_BARS
4768 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4769 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4770 #endif /* USE_TOOLKIT_SCROLL_BARS */
4771 f
->icon_name
= Qnil
;
4772 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4774 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
4775 dpyinfo_refcount
= dpyinfo
->reference_count
;
4776 #endif /* GLYPH_DEBUG */
4777 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4778 f
->output_data
.x
->explicit_parent
= 0;
4780 /* These colors will be set anyway later, but it's important
4781 to get the color reference counts right, so initialize them! */
4784 struct gcpro gcpro1
;
4786 /* Function x_decode_color can signal an error. Make
4787 sure to initialize color slots so that we won't try
4788 to free colors we haven't allocated. */
4789 FRAME_FOREGROUND_PIXEL (f
) = -1;
4790 FRAME_BACKGROUND_PIXEL (f
) = -1;
4791 f
->output_data
.x
->cursor_pixel
= -1;
4792 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4793 f
->output_data
.x
->border_pixel
= -1;
4794 f
->output_data
.x
->mouse_pixel
= -1;
4796 black
= build_string ("black");
4798 FRAME_FOREGROUND_PIXEL (f
)
4799 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4800 FRAME_BACKGROUND_PIXEL (f
)
4801 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4802 f
->output_data
.x
->cursor_pixel
4803 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4804 f
->output_data
.x
->cursor_foreground_pixel
4805 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4806 f
->output_data
.x
->border_pixel
4807 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4808 f
->output_data
.x
->mouse_pixel
4809 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4813 /* Set the name; the functions to which we pass f expect the name to
4815 if (EQ (name
, Qunbound
) || NILP (name
))
4817 f
->name
= build_string (dpyinfo
->x_id_name
);
4818 f
->explicit_name
= 0;
4823 f
->explicit_name
= 1;
4824 /* use the frame's title when getting resources for this frame. */
4825 specbind (Qx_resource_name
, name
);
4828 f
->resx
= dpyinfo
->resx
;
4829 f
->resy
= dpyinfo
->resy
;
4831 register_font_driver (&xfont_driver
, f
);
4832 #ifdef HAVE_FREETYPE
4834 register_font_driver (&xftfont_driver
, f
);
4835 #else /* not HAVE_XFT */
4836 register_font_driver (&ftxfont_driver
, f
);
4837 #endif /* not HAVE_XFT */
4838 #endif /* HAVE_FREETYPE */
4840 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4841 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4843 /* Extract the window parameters from the supplied values that are
4844 needed to determine window geometry. */
4845 x_default_font_parameter (f
, parms
);
4847 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4848 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4850 /* This defaults to 2 in order to match xterm. We recognize either
4851 internalBorderWidth or internalBorder (which is what xterm calls
4853 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4857 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4858 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4859 if (! EQ (value
, Qunbound
))
4860 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4864 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4865 "internalBorderWidth", "internalBorderWidth",
4868 /* Also do the stuff which must be set before the window exists. */
4869 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4870 "foreground", "Foreground", RES_TYPE_STRING
);
4871 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4872 "background", "Background", RES_TYPE_STRING
);
4873 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4874 "pointerColor", "Foreground", RES_TYPE_STRING
);
4875 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4876 "cursorColor", "Foreground", RES_TYPE_STRING
);
4877 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4878 "borderColor", "BorderColor", RES_TYPE_STRING
);
4880 /* Init faces before x_default_parameter is called for scroll-bar
4881 parameters because that function calls x_set_scroll_bar_width,
4882 which calls change_frame_size, which calls Fset_window_buffer,
4883 which runs hooks, which call Fvertical_motion. At the end, we
4884 end up in init_iterator with a null face cache, which should not
4886 init_frame_faces (f
);
4888 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4890 window_prompting
= x_figure_window_size (f
, parms
, 0);
4893 XSetWindowAttributes attrs
;
4897 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4898 if (DoesSaveUnders (dpyinfo
->screen
))
4899 mask
|= CWSaveUnder
;
4901 /* Window managers look at the override-redirect flag to determine
4902 whether or net to give windows a decoration (Xlib spec, chapter
4904 attrs
.override_redirect
= True
;
4905 attrs
.save_under
= True
;
4906 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4907 /* Arrange for getting MapNotify and UnmapNotify events. */
4908 attrs
.event_mask
= StructureNotifyMask
;
4910 = FRAME_X_WINDOW (f
)
4911 = XCreateWindow (FRAME_X_DISPLAY (f
),
4912 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4913 /* x, y, width, height */
4917 CopyFromParent
, InputOutput
, CopyFromParent
,
4924 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4925 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4926 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4927 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4928 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4929 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4931 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4932 Change will not be effected unless different from the current
4934 width
= FRAME_COLS (f
);
4935 height
= FRAME_LINES (f
);
4936 SET_FRAME_COLS (f
, 0);
4937 FRAME_LINES (f
) = 0;
4938 change_frame_size (f
, height
, width
, 1, 0, 0);
4940 /* Add `tooltip' frame parameter's default value. */
4941 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4942 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4945 /* FIXME - can this be done in a similar way to normal frames?
4946 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
4948 /* Set the `display-type' frame parameter before setting up faces. */
4950 Lisp_Object disptype
;
4952 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4953 disptype
= intern ("mono");
4954 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
4955 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4956 disptype
= intern ("grayscale");
4958 disptype
= intern ("color");
4960 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4961 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4965 /* Set up faces after all frame parameters are known. This call
4966 also merges in face attributes specified for new frames.
4968 Frame parameters may be changed if .Xdefaults contains
4969 specifications for the default font. For example, if there is an
4970 `Emacs.default.attributeBackground: pink', the `background-color'
4971 attribute of the frame get's set, which let's the internal border
4972 of the tooltip frame appear in pink. Prevent this. */
4974 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4976 /* Set tip_frame here, so that */
4978 call1 (Qface_set_after_frame_default
, frame
);
4980 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4981 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4989 /* It is now ok to make the frame official even if we get an error
4990 below. And the frame needs to be on Vframe_list or making it
4991 visible won't work. */
4992 Vframe_list
= Fcons (frame
, Vframe_list
);
4994 /* Now that the frame is official, it counts as a reference to
4996 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4998 /* Setting attributes of faces of the tooltip frame from resources
4999 and similar will increment face_change_count, which leads to the
5000 clearing of all current matrices. Since this isn't necessary
5001 here, avoid it by resetting face_change_count to the value it
5002 had before we created the tip frame. */
5003 face_change_count
= face_change_count_before
;
5005 /* Discard the unwind_protect. */
5006 return unbind_to (count
, frame
);
5010 /* Compute where to display tip frame F. PARMS is the list of frame
5011 parameters for F. DX and DY are specified offsets from the current
5012 location of the mouse. WIDTH and HEIGHT are the width and height
5013 of the tooltip. Return coordinates relative to the root window of
5014 the display in *ROOT_X, and *ROOT_Y. */
5017 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
5019 Lisp_Object parms
, dx
, dy
;
5021 int *root_x
, *root_y
;
5023 Lisp_Object left
, top
;
5028 /* User-specified position? */
5029 left
= Fcdr (Fassq (Qleft
, parms
));
5030 top
= Fcdr (Fassq (Qtop
, parms
));
5032 /* Move the tooltip window where the mouse pointer is. Resize and
5034 if (!INTEGERP (left
) || !INTEGERP (top
))
5037 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
5038 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
5043 *root_y
= XINT (top
);
5044 else if (*root_y
+ XINT (dy
) <= 0)
5045 *root_y
= 0; /* Can happen for negative dy */
5046 else if (*root_y
+ XINT (dy
) + height
<= FRAME_X_DISPLAY_INFO (f
)->height
)
5047 /* It fits below the pointer */
5048 *root_y
+= XINT (dy
);
5049 else if (height
+ XINT (dy
) <= *root_y
)
5050 /* It fits above the pointer. */
5051 *root_y
-= height
+ XINT (dy
);
5053 /* Put it on the top. */
5056 if (INTEGERP (left
))
5057 *root_x
= XINT (left
);
5058 else if (*root_x
+ XINT (dx
) <= 0)
5059 *root_x
= 0; /* Can happen for negative dx */
5060 else if (*root_x
+ XINT (dx
) + width
<= FRAME_X_DISPLAY_INFO (f
)->width
)
5061 /* It fits to the right of the pointer. */
5062 *root_x
+= XINT (dx
);
5063 else if (width
+ XINT (dx
) <= *root_x
)
5064 /* It fits to the left of the pointer. */
5065 *root_x
-= width
+ XINT (dx
);
5067 /* Put it left-justified on the screen--it ought to fit that way. */
5072 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5073 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5074 A tooltip window is a small X window displaying a string.
5076 This is an internal function; Lisp code should call `tooltip-show'.
5078 FRAME nil or omitted means use the selected frame.
5080 PARMS is an optional list of frame parameters which can be used to
5081 change the tooltip's appearance.
5083 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5084 means use the default timeout of 5 seconds.
5086 If the list of frame parameters PARAMS contains a `left' parameters,
5087 the tooltip is displayed at that x-position. Otherwise it is
5088 displayed at the mouse position, with offset DX added (default is 5 if
5089 DX isn't specified). Likewise for the y-position; if a `top' frame
5090 parameter is specified, it determines the y-position of the tooltip
5091 window, otherwise it is displayed at the mouse position, with offset
5092 DY added (default is -10).
5094 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5095 Text larger than the specified size is clipped. */)
5096 (string
, frame
, parms
, timeout
, dx
, dy
)
5097 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
5102 struct buffer
*old_buffer
;
5103 struct text_pos pos
;
5104 int i
, width
, height
;
5105 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5106 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5107 int count
= SPECPDL_INDEX ();
5109 specbind (Qinhibit_redisplay
, Qt
);
5111 GCPRO4 (string
, parms
, frame
, timeout
);
5113 CHECK_STRING (string
);
5114 if (SCHARS (string
) == 0)
5115 string
= make_unibyte_string (" ", 1);
5117 f
= check_x_frame (frame
);
5119 timeout
= make_number (5);
5121 CHECK_NATNUM (timeout
);
5124 dx
= make_number (5);
5129 dy
= make_number (-10);
5133 if (NILP (last_show_tip_args
))
5134 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5136 if (!NILP (tip_frame
))
5138 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5139 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5140 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5142 if (EQ (frame
, last_frame
)
5143 && !NILP (Fequal (last_string
, string
))
5144 && !NILP (Fequal (last_parms
, parms
)))
5146 struct frame
*f
= XFRAME (tip_frame
);
5148 /* Only DX and DY have changed. */
5149 if (!NILP (tip_timer
))
5151 Lisp_Object timer
= tip_timer
;
5153 call1 (Qcancel_timer
, timer
);
5157 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5158 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5159 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5166 /* Hide a previous tip, if any. */
5169 ASET (last_show_tip_args
, 0, string
);
5170 ASET (last_show_tip_args
, 1, frame
);
5171 ASET (last_show_tip_args
, 2, parms
);
5173 /* Add default values to frame parameters. */
5174 if (NILP (Fassq (Qname
, parms
)))
5175 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5176 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5177 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5178 if (NILP (Fassq (Qborder_width
, parms
)))
5179 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5180 if (NILP (Fassq (Qborder_color
, parms
)))
5181 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5182 if (NILP (Fassq (Qbackground_color
, parms
)))
5183 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5186 /* Create a frame for the tooltip, and record it in the global
5187 variable tip_frame. */
5188 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5191 /* Set up the frame's root window. */
5192 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5193 w
->left_col
= w
->top_line
= make_number (0);
5195 if (CONSP (Vx_max_tooltip_size
)
5196 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5197 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5198 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5199 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5201 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5202 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5206 w
->total_cols
= make_number (80);
5207 w
->total_lines
= make_number (40);
5210 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5212 w
->pseudo_window_p
= 1;
5214 /* Display the tooltip text in a temporary buffer. */
5215 old_buffer
= current_buffer
;
5216 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5217 current_buffer
->truncate_lines
= Qnil
;
5218 clear_glyph_matrix (w
->desired_matrix
);
5219 clear_glyph_matrix (w
->current_matrix
);
5220 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5221 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5223 /* Compute width and height of the tooltip. */
5225 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5227 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5231 /* Stop at the first empty row at the end. */
5232 if (!row
->enabled_p
|| !row
->displays_text_p
)
5235 /* Let the row go over the full width of the frame. */
5236 row
->full_width_p
= 1;
5238 /* There's a glyph at the end of rows that is used to place
5239 the cursor there. Don't include the width of this glyph. */
5240 if (row
->used
[TEXT_AREA
])
5242 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5243 row_width
= row
->pixel_width
- last
->pixel_width
;
5246 row_width
= row
->pixel_width
;
5248 height
+= row
->height
;
5249 width
= max (width
, row_width
);
5252 /* Add the frame's internal border to the width and height the X
5253 window should have. */
5254 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5255 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5257 /* Move the tooltip window where the mouse pointer is. Resize and
5259 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5262 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5263 root_x
, root_y
, width
, height
);
5264 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5267 /* Draw into the window. */
5268 w
->must_be_updated_p
= 1;
5269 update_single_window (w
, 1);
5271 /* Restore original current buffer. */
5272 set_buffer_internal_1 (old_buffer
);
5273 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5276 /* Let the tip disappear after timeout seconds. */
5277 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5278 intern ("x-hide-tip"));
5281 return unbind_to (count
, Qnil
);
5285 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5286 doc
: /* Hide the current tooltip window, if there is any.
5287 Value is t if tooltip was open, nil otherwise. */)
5291 Lisp_Object deleted
, frame
, timer
;
5292 struct gcpro gcpro1
, gcpro2
;
5294 /* Return quickly if nothing to do. */
5295 if (NILP (tip_timer
) && NILP (tip_frame
))
5300 GCPRO2 (frame
, timer
);
5301 tip_frame
= tip_timer
= deleted
= Qnil
;
5303 count
= SPECPDL_INDEX ();
5304 specbind (Qinhibit_redisplay
, Qt
);
5305 specbind (Qinhibit_quit
, Qt
);
5308 call1 (Qcancel_timer
, timer
);
5312 Fdelete_frame (frame
, Qnil
);
5316 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5317 redisplay procedure is not called when a tip frame over menu
5318 items is unmapped. Redisplay the menu manually... */
5320 struct frame
*f
= SELECTED_FRAME ();
5321 Widget w
= f
->output_data
.x
->menubar_widget
;
5322 extern void xlwmenu_redisplay
P_ ((Widget
));
5324 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5328 xlwmenu_redisplay (w
);
5332 #endif /* USE_LUCID */
5336 return unbind_to (count
, deleted
);
5341 /***********************************************************************
5342 File selection dialog
5343 ***********************************************************************/
5345 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5346 Sx_uses_old_gtk_dialog
,
5348 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5352 extern int use_dialog_box
;
5353 extern int use_file_dialog
;
5358 && xg_uses_old_file_dialog ())
5366 /* Callback for "OK" and "Cancel" on file selection dialog. */
5369 file_dialog_cb (widget
, client_data
, call_data
)
5371 XtPointer call_data
, client_data
;
5373 int *result
= (int *) client_data
;
5374 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5375 *result
= cb
->reason
;
5379 /* Callback for unmapping a file selection dialog. This is used to
5380 capture the case where a dialog is closed via a window manager's
5381 closer button, for example. Using a XmNdestroyCallback didn't work
5385 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5387 XtPointer call_data
, client_data
;
5389 int *result
= (int *) client_data
;
5390 *result
= XmCR_CANCEL
;
5394 clean_up_file_dialog (arg
)
5397 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5398 Widget dialog
= (Widget
) p
->pointer
;
5402 XtUnmanageChild (dialog
);
5403 XtDestroyWidget (dialog
);
5404 x_menu_set_in_use (0);
5411 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5412 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5413 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5414 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5415 or directory must exist. ONLY-DIR-P is ignored." */)
5416 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5417 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5420 struct frame
*f
= SELECTED_FRAME ();
5421 Lisp_Object file
= Qnil
;
5422 Lisp_Object decoded_file
;
5423 Widget dialog
, text
, help
;
5426 extern XtAppContext Xt_app_con
;
5427 XmString dir_xmstring
, pattern_xmstring
;
5428 int count
= SPECPDL_INDEX ();
5429 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5433 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5435 if (popup_activated ())
5436 error ("Trying to use a menu from within a menu-entry");
5438 CHECK_STRING (prompt
);
5441 /* Prevent redisplay. */
5442 specbind (Qinhibit_redisplay
, Qt
);
5446 /* Create the dialog with PROMPT as title, using DIR as initial
5447 directory and using "*" as pattern. */
5448 dir
= Fexpand_file_name (dir
, Qnil
);
5449 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5450 pattern_xmstring
= XmStringCreateLocalized ("*");
5452 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5453 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5454 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5455 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5456 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5457 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5459 XmStringFree (dir_xmstring
);
5460 XmStringFree (pattern_xmstring
);
5462 /* Add callbacks for OK and Cancel. */
5463 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5464 (XtPointer
) &result
);
5465 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5466 (XtPointer
) &result
);
5467 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5468 (XtPointer
) &result
);
5470 /* Remove the help button since we can't display help. */
5471 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5472 XtUnmanageChild (help
);
5474 /* Mark OK button as default. */
5475 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5476 XmNshowAsDefault
, True
, NULL
);
5478 /* If MUSTMATCH is non-nil, disable the file entry field of the
5479 dialog, so that the user must select a file from the files list
5480 box. We can't remove it because we wouldn't have a way to get at
5481 the result file name, then. */
5482 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5483 if (!NILP (mustmatch
))
5486 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5487 XtSetSensitive (text
, False
);
5488 XtSetSensitive (label
, False
);
5491 /* Manage the dialog, so that list boxes get filled. */
5492 XtManageChild (dialog
);
5494 if (STRINGP (default_filename
))
5496 XmString default_xmstring
;
5497 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5498 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5500 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5501 XmTextFieldReplace (wtext
, 0, last_pos
,
5502 (SDATA (Ffile_name_nondirectory (default_filename
))));
5504 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5505 must include the path for this to work. */
5507 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5509 if (XmListItemExists (list
, default_xmstring
))
5511 int item_pos
= XmListItemPos (list
, default_xmstring
);
5512 /* Select the item and scroll it into view. */
5513 XmListSelectPos (list
, item_pos
, True
);
5514 XmListSetPos (list
, item_pos
);
5517 XmStringFree (default_xmstring
);
5520 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5522 /* Process events until the user presses Cancel or OK. */
5523 x_menu_set_in_use (1);
5528 x_menu_wait_for_event (0);
5529 XtAppNextEvent (Xt_app_con
, &event
);
5530 if (event
.type
== KeyPress
5531 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5533 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5535 /* Pop down on C-g. */
5536 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5537 XtUnmanageChild (dialog
);
5540 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5543 /* Get the result. */
5544 if (result
== XmCR_OK
)
5549 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5550 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5551 XmStringFree (text
);
5552 file
= build_string (data
);
5561 /* Make "Cancel" equivalent to C-g. */
5563 Fsignal (Qquit
, Qnil
);
5565 decoded_file
= DECODE_FILE (file
);
5567 return unbind_to (count
, decoded_file
);
5570 #endif /* USE_MOTIF */
5575 clean_up_dialog (arg
)
5578 x_menu_set_in_use (0);
5583 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5584 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5585 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5586 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5587 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5589 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5590 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5592 FRAME_PTR f
= SELECTED_FRAME ();
5594 Lisp_Object file
= Qnil
;
5595 Lisp_Object decoded_file
;
5596 int count
= SPECPDL_INDEX ();
5597 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5602 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5604 if (popup_activated ())
5605 error ("Trying to use a menu from within a menu-entry");
5607 CHECK_STRING (prompt
);
5610 /* Prevent redisplay. */
5611 specbind (Qinhibit_redisplay
, Qt
);
5612 record_unwind_protect (clean_up_dialog
, Qnil
);
5616 if (STRINGP (default_filename
))
5617 cdef_file
= SDATA (default_filename
);
5619 cdef_file
= SDATA (dir
);
5621 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5623 ! NILP (only_dir_p
));
5627 file
= build_string (fn
);
5634 /* Make "Cancel" equivalent to C-g. */
5636 Fsignal (Qquit
, Qnil
);
5638 decoded_file
= DECODE_FILE (file
);
5640 return unbind_to (count
, decoded_file
);
5644 #ifdef HAVE_FREETYPE
5646 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5647 doc
: /* Read a font name using a GTK font selection dialog.
5648 Return a GTK-style font string corresponding to the selection.
5650 If FRAME is omitted or nil, it defaults to the selected frame. */)
5652 Lisp_Object frame
, ignored
;
5654 FRAME_PTR f
= check_x_frame (frame
);
5656 Lisp_Object default_font
, font
= Qnil
;
5657 int count
= SPECPDL_INDEX ();
5661 if (popup_activated ())
5662 error ("Trying to use a menu from within a menu-entry");
5664 /* Prevent redisplay. */
5665 specbind (Qinhibit_redisplay
, Qt
);
5666 record_unwind_protect (clean_up_dialog
, Qnil
);
5670 XSETFONT (default_font
, FRAME_FONT (f
));
5671 if (FONTP (default_font
))
5673 char *default_name
= alloca (256);
5674 if (font_unparse_gtkname (default_font
, f
, default_name
, 256) < 0)
5675 default_name
= NULL
;
5676 name
= xg_get_font_name (f
, default_name
);
5679 name
= xg_get_font_name (f
, NULL
);
5683 font
= build_string (name
);
5690 Fsignal (Qquit
, Qnil
);
5692 return unbind_to (count
, font
);
5694 #endif /* HAVE_FREETYPE */
5696 #endif /* USE_GTK */
5699 /***********************************************************************
5701 ***********************************************************************/
5703 #ifdef HAVE_XKBGETKEYBOARD
5704 #include <X11/XKBlib.h>
5705 #include <X11/keysym.h>
5708 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5709 Sx_backspace_delete_keys_p
, 0, 1, 0,
5710 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5711 FRAME nil means use the selected frame.
5712 Value is t if we know that both keys are present, and are mapped to the
5713 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5714 present and mapped to the usual X keysyms. */)
5718 #ifdef HAVE_XKBGETKEYBOARD
5720 struct frame
*f
= check_x_frame (frame
);
5721 Display
*dpy
= FRAME_X_DISPLAY (f
);
5722 Lisp_Object have_keys
;
5723 int major
, minor
, op
, event
, error
;
5727 /* Check library version in case we're dynamically linked. */
5728 major
= XkbMajorVersion
;
5729 minor
= XkbMinorVersion
;
5730 if (!XkbLibraryVersion (&major
, &minor
))
5736 /* Check that the server supports XKB. */
5737 major
= XkbMajorVersion
;
5738 minor
= XkbMinorVersion
;
5739 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5745 /* In this code we check that the keyboard has physical keys with names
5746 that start with BKSP (Backspace) and DELE (Delete), and that they
5747 generate keysym XK_BackSpace and XK_Delete respectively.
5748 This function is used to test if normal-erase-is-backspace should be
5750 An alternative approach would be to just check if XK_BackSpace and
5751 XK_Delete are mapped to any key. But if any of those are mapped to
5752 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5753 user doesn't know about it, it is better to return false here.
5754 It is more obvious to the user what to do if she/he has two keys
5755 clearly marked with names/symbols and one key does something not
5756 expected (i.e. she/he then tries the other).
5757 The cases where Backspace/Delete is mapped to some other key combination
5758 are rare, and in those cases, normal-erase-is-backspace can be turned on
5762 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5765 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5767 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5769 for (i
= kb
->min_key_code
;
5770 (i
< kb
->max_key_code
5771 && (delete_keycode
== 0 || backspace_keycode
== 0));
5774 /* The XKB symbolic key names can be seen most easily in
5775 the PS file generated by `xkbprint -label name
5777 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5779 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5780 backspace_keycode
= i
;
5783 XkbFreeNames (kb
, 0, True
);
5786 XkbFreeClientMap (kb
, 0, True
);
5789 && backspace_keycode
5790 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5791 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5796 #else /* not HAVE_XKBGETKEYBOARD */
5798 #endif /* not HAVE_XKBGETKEYBOARD */
5803 /***********************************************************************
5805 ***********************************************************************/
5807 /* Keep this list in the same order as frame_parms in frame.c.
5808 Use 0 for unsupported frame parameters. */
5810 frame_parm_handler x_frame_parm_handlers
[] =
5814 x_set_background_color
,
5820 x_set_foreground_color
,
5823 x_set_internal_border_width
,
5824 x_set_menu_bar_lines
,
5826 x_explicitly_set_name
,
5827 x_set_scroll_bar_width
,
5830 x_set_vertical_scroll_bars
,
5832 x_set_tool_bar_lines
,
5833 x_set_scroll_bar_foreground
,
5834 x_set_scroll_bar_background
,
5848 /* This is zero if not using X windows. */
5851 /* The section below is built by the lisp expression at the top of the file,
5852 just above where these variables are declared. */
5853 /*&&& init symbols here &&&*/
5854 Qnone
= intern ("none");
5856 Qsuppress_icon
= intern ("suppress-icon");
5857 staticpro (&Qsuppress_icon
);
5858 Qundefined_color
= intern ("undefined-color");
5859 staticpro (&Qundefined_color
);
5860 Qcompound_text
= intern ("compound-text");
5861 staticpro (&Qcompound_text
);
5862 Qcancel_timer
= intern ("cancel-timer");
5863 staticpro (&Qcancel_timer
);
5864 Qfont_param
= intern ("font-parameter");
5865 staticpro (&Qfont_param
);
5866 /* This is the end of symbol initialization. */
5868 /* Text property `display' should be nonsticky by default. */
5869 Vtext_property_default_nonsticky
5870 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5873 Fput (Qundefined_color
, Qerror_conditions
,
5874 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
5875 Fput (Qundefined_color
, Qerror_message
,
5876 build_string ("Undefined color"));
5878 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5879 doc
: /* The shape of the pointer when over text.
5880 Changing the value does not affect existing frames
5881 unless you set the mouse color. */);
5882 Vx_pointer_shape
= Qnil
;
5884 #if 0 /* This doesn't really do anything. */
5885 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5886 doc
: /* The shape of the pointer when not over text.
5887 This variable takes effect when you create a new frame
5888 or when you set the mouse color. */);
5890 Vx_nontext_pointer_shape
= Qnil
;
5892 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5893 doc
: /* The shape of the pointer when Emacs is busy.
5894 This variable takes effect when you create a new frame
5895 or when you set the mouse color. */);
5896 Vx_hourglass_pointer_shape
= Qnil
;
5898 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
5899 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
5900 display_hourglass_p
= 1;
5902 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
5903 doc
: /* *Seconds to wait before displaying an hourglass pointer.
5904 Value must be an integer or float. */);
5905 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
5907 #if 0 /* This doesn't really do anything. */
5908 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5909 doc
: /* The shape of the pointer when over the mode line.
5910 This variable takes effect when you create a new frame
5911 or when you set the mouse color. */);
5913 Vx_mode_pointer_shape
= Qnil
;
5915 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5916 &Vx_sensitive_text_pointer_shape
,
5917 doc
: /* The shape of the pointer when over mouse-sensitive text.
5918 This variable takes effect when you create a new frame
5919 or when you set the mouse color. */);
5920 Vx_sensitive_text_pointer_shape
= Qnil
;
5922 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5923 &Vx_window_horizontal_drag_shape
,
5924 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5925 This variable takes effect when you create a new frame
5926 or when you set the mouse color. */);
5927 Vx_window_horizontal_drag_shape
= Qnil
;
5929 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5930 doc
: /* A string indicating the foreground color of the cursor box. */);
5931 Vx_cursor_fore_pixel
= Qnil
;
5933 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5934 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5935 Text larger than this is clipped. */);
5936 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5938 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5939 doc
: /* Non-nil if no X window manager is in use.
5940 Emacs doesn't try to figure this out; this is always nil
5941 unless you set it to something else. */);
5942 /* We don't have any way to find this out, so set it to nil
5943 and maybe the user would like to set it to t. */
5944 Vx_no_window_manager
= Qnil
;
5946 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5947 &Vx_pixel_size_width_font_regexp
,
5948 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5950 Since Emacs gets width of a font matching with this regexp from
5951 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5952 such a font. This is especially effective for such large fonts as
5953 Chinese, Japanese, and Korean. */);
5954 Vx_pixel_size_width_font_regexp
= Qnil
;
5956 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5957 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", &x_gtk_use_old_file_dialog
,
5958 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5959 If nil or if the file selection dialog is not available, the new GTK file
5960 chooser is used instead. To turn off all file dialogs set the
5961 variable `use-file-dialog'. */);
5962 x_gtk_use_old_file_dialog
= 0;
5964 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5965 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5966 Note that this is just the default, there is a toggle button on the file
5967 chooser to show or not show hidden files on a case by case basis. */);
5968 x_gtk_show_hidden_files
= 0;
5970 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", &x_gtk_file_dialog_help_text
,
5971 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
5972 If more space for files in the file chooser dialog is wanted, set this to nil
5973 to turn the additional text off. */);
5974 x_gtk_file_dialog_help_text
= 1;
5976 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
5977 doc
: /* *If non-nil, a detached tool bar is shown in full.
5978 The default is to just show an arrow and pressing on that arrow shows
5979 the tool bar buttons. */);
5980 x_gtk_whole_detached_tool_bar
= 0;
5982 Fprovide (intern ("x"), Qnil
);
5984 #ifdef USE_X_TOOLKIT
5985 Fprovide (intern ("x-toolkit"), Qnil
);
5987 Fprovide (intern ("motif"), Qnil
);
5989 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5990 doc
: /* Version info for LessTif/Motif. */);
5991 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5992 #endif /* USE_MOTIF */
5993 #endif /* USE_X_TOOLKIT */
5996 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5997 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5998 But for a user it is a toolkit for X, and indeed, configure
5999 accepts --with-x-toolkit=gtk. */
6000 Fprovide (intern ("x-toolkit"), Qnil
);
6001 Fprovide (intern ("gtk"), Qnil
);
6003 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
6004 doc
: /* Version info for GTK+. */);
6006 char gtk_version
[40];
6007 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
6008 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
6009 Vgtk_version_string
= build_string (gtk_version
);
6011 #endif /* USE_GTK */
6013 /* X window properties. */
6014 defsubr (&Sx_change_window_property
);
6015 defsubr (&Sx_delete_window_property
);
6016 defsubr (&Sx_window_property
);
6018 defsubr (&Sxw_display_color_p
);
6019 defsubr (&Sx_display_grayscale_p
);
6020 defsubr (&Sxw_color_defined_p
);
6021 defsubr (&Sxw_color_values
);
6022 defsubr (&Sx_server_max_request_size
);
6023 defsubr (&Sx_server_vendor
);
6024 defsubr (&Sx_server_version
);
6025 defsubr (&Sx_display_pixel_width
);
6026 defsubr (&Sx_display_pixel_height
);
6027 defsubr (&Sx_display_mm_width
);
6028 defsubr (&Sx_display_mm_height
);
6029 defsubr (&Sx_display_screens
);
6030 defsubr (&Sx_display_planes
);
6031 defsubr (&Sx_display_color_cells
);
6032 defsubr (&Sx_display_visual_class
);
6033 defsubr (&Sx_display_backing_store
);
6034 defsubr (&Sx_display_save_under
);
6035 defsubr (&Sx_create_frame
);
6036 defsubr (&Sx_open_connection
);
6037 defsubr (&Sx_close_connection
);
6038 defsubr (&Sx_display_list
);
6039 defsubr (&Sx_synchronize
);
6040 defsubr (&Sx_focus_frame
);
6041 defsubr (&Sx_backspace_delete_keys_p
);
6043 /* Setting callback functions for fontset handler. */
6044 check_window_system_func
= check_x
;
6046 hourglass_atimer
= NULL
;
6047 hourglass_shown_p
= 0;
6049 defsubr (&Sx_show_tip
);
6050 defsubr (&Sx_hide_tip
);
6052 staticpro (&tip_timer
);
6054 staticpro (&tip_frame
);
6056 last_show_tip_args
= Qnil
;
6057 staticpro (&last_show_tip_args
);
6059 defsubr (&Sx_uses_old_gtk_dialog
);
6060 #if defined (USE_MOTIF) || defined (USE_GTK)
6061 defsubr (&Sx_file_dialog
);
6065 defsubr (&Sx_select_font
);
6069 #endif /* HAVE_X_WINDOWS */
6071 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
6072 (do not change this comment) */