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
;
210 extern Lisp_Object Vwindow_system_version
;
212 /* The below are defined in frame.c. */
215 int image_cache_refcount
, dpyinfo_refcount
;
220 /* Error if we are not connected to X. */
226 error ("X windows are not in use or not initialized");
229 /* Nonzero if we can use mouse menus.
230 You should not call this unless HAVE_MENUS is defined. */
238 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
239 and checking validity for X. */
242 check_x_frame (frame
)
248 frame
= selected_frame
;
249 CHECK_LIVE_FRAME (frame
);
252 error ("Non-X frame used");
256 /* Let the user specify an X display with a Lisp object.
257 OBJECT may be nil, a frame or a terminal id.
258 nil stands for the selected frame--or, if that is not an X frame,
259 the first X display on the list. */
261 struct x_display_info
*
262 check_x_display_info (object
)
265 struct x_display_info
*dpyinfo
= NULL
;
269 struct frame
*sf
= XFRAME (selected_frame
);
271 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
272 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
273 else if (x_display_list
!= 0)
274 dpyinfo
= x_display_list
;
276 error ("X windows are not in use or not initialized");
278 else if (INTEGERP (object
))
280 struct terminal
*t
= get_terminal (object
, 1);
282 if (t
->type
!= output_x_window
)
283 error ("Terminal %d is not an X display", XINT (object
));
285 dpyinfo
= t
->display_info
.x
;
287 else if (STRINGP (object
))
288 dpyinfo
= x_display_info_for_name (object
);
291 FRAME_PTR f
= check_x_frame (object
);
292 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
299 /* Return the Emacs frame-object corresponding to an X window.
300 It could be the frame's main window or an icon window. */
302 /* This function can be called during GC, so use GC_xxx type test macros. */
305 x_window_to_frame (dpyinfo
, wdesc
)
306 struct x_display_info
*dpyinfo
;
309 Lisp_Object tail
, frame
;
312 if (wdesc
== None
) return 0;
314 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
320 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
322 if (f
->output_data
.x
->hourglass_window
== wdesc
)
325 if ((f
->output_data
.x
->edit_widget
326 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
327 /* A tooltip frame? */
328 || (!f
->output_data
.x
->edit_widget
329 && FRAME_X_WINDOW (f
) == wdesc
)
330 || f
->output_data
.x
->icon_desc
== wdesc
)
332 #else /* not USE_X_TOOLKIT */
334 if (f
->output_data
.x
->edit_widget
)
336 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
337 struct x_output
*x
= f
->output_data
.x
;
338 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
342 if (FRAME_X_WINDOW (f
) == wdesc
343 || f
->output_data
.x
->icon_desc
== wdesc
)
345 #endif /* not USE_X_TOOLKIT */
350 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
351 /* Like x_window_to_frame but also compares the window with the widget's
355 x_any_window_to_frame (dpyinfo
, wdesc
)
356 struct x_display_info
*dpyinfo
;
359 Lisp_Object tail
, frame
;
360 struct frame
*f
, *found
;
363 if (wdesc
== None
) return NULL
;
366 for (tail
= Vframe_list
; CONSP (tail
) && !found
; tail
= XCDR (tail
))
373 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
375 /* This frame matches if the window is any of its widgets. */
376 x
= f
->output_data
.x
;
377 if (x
->hourglass_window
== wdesc
)
382 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
384 && (gwdesc
== x
->widget
385 || gwdesc
== x
->edit_widget
386 || gwdesc
== x
->vbox_widget
387 || gwdesc
== x
->menubar_widget
))
390 if (wdesc
== XtWindow (x
->widget
)
391 || wdesc
== XtWindow (x
->column_widget
)
392 || wdesc
== XtWindow (x
->edit_widget
))
394 /* Match if the window is this frame's menubar. */
395 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
399 else if (FRAME_X_WINDOW (f
) == wdesc
)
400 /* A tooltip frame. */
408 /* Likewise, but exclude the menu bar widget. */
411 x_non_menubar_window_to_frame (dpyinfo
, wdesc
)
412 struct x_display_info
*dpyinfo
;
415 Lisp_Object tail
, frame
;
419 if (wdesc
== None
) return 0;
421 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
427 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
429 x
= f
->output_data
.x
;
430 /* This frame matches if the window is any of its widgets. */
431 if (x
->hourglass_window
== wdesc
)
436 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
438 && (gwdesc
== x
->widget
439 || gwdesc
== x
->edit_widget
440 || gwdesc
== x
->vbox_widget
))
443 if (wdesc
== XtWindow (x
->widget
)
444 || wdesc
== XtWindow (x
->column_widget
)
445 || wdesc
== XtWindow (x
->edit_widget
))
449 else if (FRAME_X_WINDOW (f
) == wdesc
)
450 /* A tooltip frame. */
456 /* Likewise, but consider only the menu bar widget. */
459 x_menubar_window_to_frame (dpyinfo
, wdesc
)
460 struct x_display_info
*dpyinfo
;
463 Lisp_Object tail
, frame
;
467 if (wdesc
== None
) return 0;
469 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
475 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
477 x
= f
->output_data
.x
;
478 /* Match if the window is this frame's menubar. */
480 if (x
->menubar_widget
)
482 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
487 && (gwdesc
== x
->menubar_widget
488 || gtk_widget_get_parent (gwdesc
) == x
->menubar_widget
))
494 if (x
->menubar_widget
495 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
502 /* Return the frame whose principal (outermost) window is WDESC.
503 If WDESC is some other (smaller) window, we return 0. */
506 x_top_window_to_frame (dpyinfo
, wdesc
)
507 struct x_display_info
*dpyinfo
;
510 Lisp_Object tail
, frame
;
514 if (wdesc
== None
) return 0;
516 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
522 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
524 x
= f
->output_data
.x
;
528 /* This frame matches if the window is its topmost widget. */
530 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
531 if (gwdesc
== x
->widget
)
534 if (wdesc
== XtWindow (x
->widget
))
536 #if 0 /* I don't know why it did this,
537 but it seems logically wrong,
538 and it causes trouble for MapNotify events. */
539 /* Match if the window is this frame's menubar. */
540 if (x
->menubar_widget
541 && wdesc
== XtWindow (x
->menubar_widget
))
546 else if (FRAME_X_WINDOW (f
) == wdesc
)
552 #endif /* USE_X_TOOLKIT || USE_GTK */
556 static void x_default_font_parameter
P_ ((struct frame
*, Lisp_Object
));
558 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
559 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
561 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
562 static void x_set_wait_for_wm
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
563 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
564 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
565 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
566 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
567 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
568 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
569 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
570 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
571 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
572 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
573 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
574 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
576 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
578 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
585 /* Store the screen positions of frame F into XPTR and YPTR.
586 These are the positions of the containing window manager window,
587 not Emacs's own window. */
590 x_real_positions (f
, xptr
, yptr
)
594 int win_x
, win_y
, outer_x
, outer_y
;
595 int real_x
= 0, real_y
= 0;
597 Window win
= f
->output_data
.x
->parent_desc
;
601 x_catch_errors (FRAME_X_DISPLAY (f
));
603 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
604 win
= FRAME_OUTER_WINDOW (f
);
606 /* This loop traverses up the containment tree until we hit the root
607 window. Window managers may intersect many windows between our window
608 and the root window. The window we find just before the root window
609 should be the outer WM window. */
612 Window wm_window
, rootw
;
613 Window
*tmp_children
;
614 unsigned int tmp_nchildren
;
617 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
618 &wm_window
, &tmp_children
, &tmp_nchildren
);
620 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
622 /* Don't free tmp_children if XQueryTree failed. */
626 XFree ((char *) tmp_children
);
628 if (wm_window
== rootw
|| had_errors
)
639 /* Get the real coordinates for the WM window upper left corner */
640 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
641 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
643 /* Translate real coordinates to coordinates relative to our
644 window. For our window, the upper left corner is 0, 0.
645 Since the upper left corner of the WM window is outside
646 our window, win_x and win_y will be negative:
648 ------------------ ---> x
650 | ----------------- v y
653 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
655 /* From-window, to-window. */
656 FRAME_X_DISPLAY_INFO (f
)->root_window
,
659 /* From-position, to-position. */
660 real_x
, real_y
, &win_x
, &win_y
,
665 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
672 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
674 /* From-window, to-window. */
675 FRAME_X_DISPLAY_INFO (f
)->root_window
,
676 FRAME_OUTER_WINDOW (f
),
678 /* From-position, to-position. */
679 real_x
, real_y
, &outer_x
, &outer_y
,
685 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
692 if (had_errors
) return;
694 f
->x_pixels_diff
= -win_x
;
695 f
->y_pixels_diff
= -win_y
;
697 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
698 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
707 /* Gamma-correct COLOR on frame F. */
710 gamma_correct (f
, color
)
716 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
717 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
718 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
723 /* Decide if color named COLOR_NAME is valid for use on frame F. If
724 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
725 allocate the color. Value is zero if COLOR_NAME is invalid, or
726 no color could be allocated. */
729 x_defined_color (f
, color_name
, color
, alloc_p
)
736 Display
*dpy
= FRAME_X_DISPLAY (f
);
737 Colormap cmap
= FRAME_X_COLORMAP (f
);
740 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
741 if (success_p
&& alloc_p
)
742 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
749 /* Return the pixel color value for color COLOR_NAME on frame F. If F
750 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
751 Signal an error if color can't be allocated. */
754 x_decode_color (f
, color_name
, mono_color
)
756 Lisp_Object color_name
;
761 CHECK_STRING (color_name
);
763 #if 0 /* Don't do this. It's wrong when we're not using the default
764 colormap, it makes freeing difficult, and it's probably not
765 an important optimization. */
766 if (strcmp (SDATA (color_name
), "black") == 0)
767 return BLACK_PIX_DEFAULT (f
);
768 else if (strcmp (SDATA (color_name
), "white") == 0)
769 return WHITE_PIX_DEFAULT (f
);
772 /* Return MONO_COLOR for monochrome frames. */
773 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
776 /* x_defined_color is responsible for coping with failures
777 by looking for a near-miss. */
778 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
781 signal_error ("Undefined color", color_name
);
786 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
787 the previous value of that parameter, NEW_VALUE is the new value.
788 See also the comment of wait_for_wm in struct x_output. */
791 x_set_wait_for_wm (f
, new_value
, old_value
)
793 Lisp_Object new_value
, old_value
;
795 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
800 /* Set icon from FILE for frame F. By using GTK functions the icon
801 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
804 xg_set_icon (f
, file
)
811 found
= x_find_image_file (file
);
817 char *filename
= (char *) SDATA (found
);
820 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
824 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
826 g_object_unref (pixbuf
);
840 xg_set_icon_from_xpm_data (f
, data
)
845 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data ((const char **) data
);
850 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
851 g_object_unref (pixbuf
);
857 /* Functions called only from `x_set_frame_param'
858 to set individual parameters.
860 If FRAME_X_WINDOW (f) is 0,
861 the frame is being created and its X-window does not exist yet.
862 In that case, just record the parameter's new value
863 in the standard place; do not attempt to change the window. */
866 x_set_foreground_color (f
, arg
, oldval
)
868 Lisp_Object arg
, oldval
;
870 struct x_output
*x
= f
->output_data
.x
;
871 unsigned long fg
, old_fg
;
873 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
874 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
875 FRAME_FOREGROUND_PIXEL (f
) = fg
;
877 if (FRAME_X_WINDOW (f
) != 0)
879 Display
*dpy
= FRAME_X_DISPLAY (f
);
882 XSetForeground (dpy
, x
->normal_gc
, fg
);
883 XSetBackground (dpy
, x
->reverse_gc
, fg
);
885 if (x
->cursor_pixel
== old_fg
)
887 unload_color (f
, x
->cursor_pixel
);
888 x
->cursor_pixel
= x_copy_color (f
, fg
);
889 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
894 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
896 if (FRAME_VISIBLE_P (f
))
900 unload_color (f
, old_fg
);
904 x_set_background_color (f
, arg
, oldval
)
906 Lisp_Object arg
, oldval
;
908 struct x_output
*x
= f
->output_data
.x
;
911 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
912 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
913 FRAME_BACKGROUND_PIXEL (f
) = bg
;
915 if (FRAME_X_WINDOW (f
) != 0)
917 Display
*dpy
= FRAME_X_DISPLAY (f
);
920 XSetBackground (dpy
, x
->normal_gc
, bg
);
921 XSetForeground (dpy
, x
->reverse_gc
, bg
);
922 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
923 XSetForeground (dpy
, x
->cursor_gc
, bg
);
926 xg_set_background_color (f
, bg
);
929 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
930 toolkit scroll bars. */
933 for (bar
= FRAME_SCROLL_BARS (f
);
935 bar
= XSCROLL_BAR (bar
)->next
)
937 Window window
= XSCROLL_BAR (bar
)->x_window
;
938 XSetWindowBackground (dpy
, window
, bg
);
941 #endif /* USE_TOOLKIT_SCROLL_BARS */
944 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
946 if (FRAME_VISIBLE_P (f
))
952 x_set_mouse_color (f
, arg
, oldval
)
954 Lisp_Object arg
, oldval
;
956 struct x_output
*x
= f
->output_data
.x
;
957 Display
*dpy
= FRAME_X_DISPLAY (f
);
958 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
959 Cursor hourglass_cursor
, horizontal_drag_cursor
;
960 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
961 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
963 /* Don't let pointers be invisible. */
964 if (mask_color
== pixel
)
966 x_free_colors (f
, &pixel
, 1);
967 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
970 unload_color (f
, x
->mouse_pixel
);
971 x
->mouse_pixel
= pixel
;
975 /* It's not okay to crash if the user selects a screwy cursor. */
976 x_catch_errors (dpy
);
978 if (!NILP (Vx_pointer_shape
))
980 CHECK_NUMBER (Vx_pointer_shape
);
981 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
984 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
985 x_check_errors (dpy
, "bad text pointer cursor: %s");
987 if (!NILP (Vx_nontext_pointer_shape
))
989 CHECK_NUMBER (Vx_nontext_pointer_shape
);
991 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
994 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
995 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
997 if (!NILP (Vx_hourglass_pointer_shape
))
999 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
1001 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
1004 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
1005 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
1007 if (!NILP (Vx_mode_pointer_shape
))
1009 CHECK_NUMBER (Vx_mode_pointer_shape
);
1010 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
1013 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
1014 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
1016 if (!NILP (Vx_sensitive_text_pointer_shape
))
1018 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
1020 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
1023 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
1025 if (!NILP (Vx_window_horizontal_drag_shape
))
1027 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1028 horizontal_drag_cursor
1029 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1032 horizontal_drag_cursor
1033 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1035 /* Check and report errors with the above calls. */
1036 x_check_errors (dpy
, "can't set cursor shape: %s");
1037 x_uncatch_errors ();
1040 XColor fore_color
, back_color
;
1042 fore_color
.pixel
= x
->mouse_pixel
;
1043 x_query_color (f
, &fore_color
);
1044 back_color
.pixel
= mask_color
;
1045 x_query_color (f
, &back_color
);
1047 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1048 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1049 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1050 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1051 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1052 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1055 if (FRAME_X_WINDOW (f
) != 0)
1056 XDefineCursor (dpy
, FRAME_X_WINDOW (f
), cursor
);
1058 if (cursor
!= x
->text_cursor
1059 && x
->text_cursor
!= 0)
1060 XFreeCursor (dpy
, x
->text_cursor
);
1061 x
->text_cursor
= cursor
;
1063 if (nontext_cursor
!= x
->nontext_cursor
1064 && x
->nontext_cursor
!= 0)
1065 XFreeCursor (dpy
, x
->nontext_cursor
);
1066 x
->nontext_cursor
= nontext_cursor
;
1068 if (hourglass_cursor
!= x
->hourglass_cursor
1069 && x
->hourglass_cursor
!= 0)
1070 XFreeCursor (dpy
, x
->hourglass_cursor
);
1071 x
->hourglass_cursor
= hourglass_cursor
;
1073 if (mode_cursor
!= x
->modeline_cursor
1074 && x
->modeline_cursor
!= 0)
1075 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1076 x
->modeline_cursor
= mode_cursor
;
1078 if (hand_cursor
!= x
->hand_cursor
1079 && x
->hand_cursor
!= 0)
1080 XFreeCursor (dpy
, x
->hand_cursor
);
1081 x
->hand_cursor
= hand_cursor
;
1083 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1084 && x
->horizontal_drag_cursor
!= 0)
1085 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1086 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1091 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1095 x_set_cursor_color (f
, arg
, oldval
)
1097 Lisp_Object arg
, oldval
;
1099 unsigned long fore_pixel
, pixel
;
1100 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1101 struct x_output
*x
= f
->output_data
.x
;
1103 if (!NILP (Vx_cursor_fore_pixel
))
1105 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1106 WHITE_PIX_DEFAULT (f
));
1107 fore_pixel_allocated_p
= 1;
1110 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1112 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1113 pixel_allocated_p
= 1;
1115 /* Make sure that the cursor color differs from the background color. */
1116 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1118 if (pixel_allocated_p
)
1120 x_free_colors (f
, &pixel
, 1);
1121 pixel_allocated_p
= 0;
1124 pixel
= x
->mouse_pixel
;
1125 if (pixel
== fore_pixel
)
1127 if (fore_pixel_allocated_p
)
1129 x_free_colors (f
, &fore_pixel
, 1);
1130 fore_pixel_allocated_p
= 0;
1132 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1136 unload_color (f
, x
->cursor_foreground_pixel
);
1137 if (!fore_pixel_allocated_p
)
1138 fore_pixel
= x_copy_color (f
, fore_pixel
);
1139 x
->cursor_foreground_pixel
= fore_pixel
;
1141 unload_color (f
, x
->cursor_pixel
);
1142 if (!pixel_allocated_p
)
1143 pixel
= x_copy_color (f
, pixel
);
1144 x
->cursor_pixel
= pixel
;
1146 if (FRAME_X_WINDOW (f
) != 0)
1149 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1150 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1153 if (FRAME_VISIBLE_P (f
))
1155 x_update_cursor (f
, 0);
1156 x_update_cursor (f
, 1);
1160 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1163 /* Set the border-color of frame F to pixel value PIX.
1164 Note that this does not fully take effect if done before
1165 F has an x-window. */
1168 x_set_border_pixel (f
, pix
)
1172 unload_color (f
, f
->output_data
.x
->border_pixel
);
1173 f
->output_data
.x
->border_pixel
= pix
;
1175 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1178 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1179 (unsigned long)pix
);
1182 if (FRAME_VISIBLE_P (f
))
1187 /* Set the border-color of frame F to value described by ARG.
1188 ARG can be a string naming a color.
1189 The border-color is used for the border that is drawn by the X server.
1190 Note that this does not fully take effect if done before
1191 F has an x-window; it must be redone when the window is created.
1193 Note: this is done in two routines because of the way X10 works.
1195 Note: under X11, this is normally the province of the window manager,
1196 and so emacs' border colors may be overridden. */
1199 x_set_border_color (f
, arg
, oldval
)
1201 Lisp_Object arg
, oldval
;
1206 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1207 x_set_border_pixel (f
, pix
);
1208 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1213 x_set_cursor_type (f
, arg
, oldval
)
1215 Lisp_Object arg
, oldval
;
1217 set_frame_cursor_types (f
, arg
);
1219 /* Make sure the cursor gets redrawn. */
1220 cursor_type_changed
= 1;
1224 x_set_icon_type (f
, arg
, oldval
)
1226 Lisp_Object arg
, oldval
;
1232 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1235 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1240 result
= x_text_icon (f
,
1241 (char *) SDATA ((!NILP (f
->icon_name
)
1245 result
= x_bitmap_icon (f
, arg
);
1250 error ("No icon window available");
1253 XFlush (FRAME_X_DISPLAY (f
));
1258 x_set_icon_name (f
, arg
, oldval
)
1260 Lisp_Object arg
, oldval
;
1266 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1269 else if (!NILP (arg
) || NILP (oldval
))
1274 if (f
->output_data
.x
->icon_bitmap
!= 0)
1279 result
= x_text_icon (f
,
1280 (char *) SDATA ((!NILP (f
->icon_name
)
1289 error ("No icon window available");
1292 XFlush (FRAME_X_DISPLAY (f
));
1298 x_set_menu_bar_lines (f
, value
, oldval
)
1300 Lisp_Object value
, oldval
;
1303 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1304 int olines
= FRAME_MENU_BAR_LINES (f
);
1307 /* Right now, menu bars don't work properly in minibuf-only frames;
1308 most of the commands try to apply themselves to the minibuffer
1309 frame itself, and get an error because you can't switch buffers
1310 in or split the minibuffer window. */
1311 if (FRAME_MINIBUF_ONLY_P (f
))
1314 if (INTEGERP (value
))
1315 nlines
= XINT (value
);
1319 /* Make sure we redisplay all windows in this frame. */
1320 windows_or_buffers_changed
++;
1322 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1323 FRAME_MENU_BAR_LINES (f
) = 0;
1326 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1327 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1328 /* Make sure next redisplay shows the menu bar. */
1329 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1333 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1334 free_frame_menubar (f
);
1335 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1337 f
->output_data
.x
->menubar_widget
= 0;
1339 #else /* not USE_X_TOOLKIT && not USE_GTK */
1340 FRAME_MENU_BAR_LINES (f
) = nlines
;
1341 change_window_heights (f
->root_window
, nlines
- olines
);
1342 #endif /* not USE_X_TOOLKIT */
1347 /* Set the number of lines used for the tool bar of frame F to VALUE.
1348 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1349 is the old number of tool bar lines. This function changes the
1350 height of all windows on frame F to match the new tool bar height.
1351 The frame's height doesn't change. */
1354 x_set_tool_bar_lines (f
, value
, oldval
)
1356 Lisp_Object value
, oldval
;
1358 int delta
, nlines
, root_height
;
1359 Lisp_Object root_window
;
1361 /* Treat tool bars like menu bars. */
1362 if (FRAME_MINIBUF_ONLY_P (f
))
1365 /* Use VALUE only if an integer >= 0. */
1366 if (INTEGERP (value
) && XINT (value
) >= 0)
1367 nlines
= XFASTINT (value
);
1372 FRAME_TOOL_BAR_LINES (f
) = 0;
1375 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1376 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1377 /* Make sure next redisplay shows the tool bar. */
1378 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1379 update_frame_tool_bar (f
);
1383 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1384 free_frame_tool_bar (f
);
1385 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1391 /* Make sure we redisplay all windows in this frame. */
1392 ++windows_or_buffers_changed
;
1394 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1396 /* Don't resize the tool-bar to more than we have room for. */
1397 root_window
= FRAME_ROOT_WINDOW (f
);
1398 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1399 if (root_height
- delta
< 1)
1401 delta
= root_height
- 1;
1402 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1405 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1406 change_window_heights (root_window
, delta
);
1409 /* We also have to make sure that the internal border at the top of
1410 the frame, below the menu bar or tool bar, is redrawn when the
1411 tool bar disappears. This is so because the internal border is
1412 below the tool bar if one is displayed, but is below the menu bar
1413 if there isn't a tool bar. The tool bar draws into the area
1414 below the menu bar. */
1415 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1418 clear_current_matrices (f
);
1421 /* If the tool bar gets smaller, the internal border below it
1422 has to be cleared. It was formerly part of the display
1423 of the larger tool bar, and updating windows won't clear it. */
1426 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1427 int width
= FRAME_PIXEL_WIDTH (f
);
1428 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1430 /* height can be zero here. */
1431 if (height
> 0 && width
> 0)
1434 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1435 0, y
, width
, height
, False
);
1439 if (WINDOWP (f
->tool_bar_window
))
1440 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1445 /* Set the foreground color for scroll bars on frame F to VALUE.
1446 VALUE should be a string, a color name. If it isn't a string or
1447 isn't a valid color name, do nothing. OLDVAL is the old value of
1448 the frame parameter. */
1451 x_set_scroll_bar_foreground (f
, value
, oldval
)
1453 Lisp_Object value
, oldval
;
1455 unsigned long pixel
;
1457 if (STRINGP (value
))
1458 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1462 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1463 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1465 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1466 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1468 /* Remove all scroll bars because they have wrong colors. */
1469 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1470 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1471 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1472 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1474 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1480 /* Set the background color for scroll bars on frame F to VALUE VALUE
1481 should be a string, a color name. If it isn't a string or isn't a
1482 valid color name, do nothing. OLDVAL is the old value of the frame
1486 x_set_scroll_bar_background (f
, value
, oldval
)
1488 Lisp_Object value
, oldval
;
1490 unsigned long pixel
;
1492 if (STRINGP (value
))
1493 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1497 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1498 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1500 #ifdef USE_TOOLKIT_SCROLL_BARS
1501 /* Scrollbar shadow colors. */
1502 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1504 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1505 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1507 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1509 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1510 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1512 #endif /* USE_TOOLKIT_SCROLL_BARS */
1514 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1515 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1517 /* Remove all scroll bars because they have wrong colors. */
1518 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1519 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1520 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1521 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1523 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1529 /* Encode Lisp string STRING as a text in a format appropriate for
1530 XICCC (X Inter Client Communication Conventions).
1532 This can call Lisp code, so callers must GCPRO.
1534 If STRING contains only ASCII characters, do no conversion and
1535 return the string data of STRING. Otherwise, encode the text by
1536 CODING_SYSTEM, and return a newly allocated memory area which
1537 should be freed by `xfree' by a caller.
1539 SELECTIONP non-zero means the string is being encoded for an X
1540 selection, so it is safe to run pre-write conversions (which
1543 Store the byte length of resulting text in *TEXT_BYTES.
1545 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1546 which means that the `encoding' of the result can be `STRING'.
1547 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1548 the result should be `COMPOUND_TEXT'. */
1550 static unsigned char *
1551 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
, freep
)
1552 Lisp_Object string
, coding_system
;
1553 int *text_bytes
, *stringp
;
1557 int result
= string_xstring_p (string
);
1558 struct coding_system coding
;
1562 /* No multibyte character in OBJ. We need not encode it. */
1563 *text_bytes
= SBYTES (string
);
1566 return SDATA (string
);
1569 setup_coding_system (coding_system
, &coding
);
1570 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1571 /* We suppress producing escape sequences for composition. */
1572 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1573 coding
.dst_bytes
= SCHARS (string
) * 2;
1574 coding
.destination
= (unsigned char *) xmalloc (coding
.dst_bytes
);
1575 encode_coding_object (&coding
, string
, 0, 0,
1576 SCHARS (string
), SBYTES (string
), Qnil
);
1577 *text_bytes
= coding
.produced
;
1578 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1580 return coding
.destination
;
1584 /* Set the WM name to NAME for frame F. Also set the icon name.
1585 If the frame already has an icon name, use that, otherwise set the
1586 icon name to NAME. */
1589 x_set_name_internal (f
, name
)
1593 if (FRAME_X_WINDOW (f
))
1597 XTextProperty text
, icon
;
1599 int do_free_icon_value
= 0, do_free_text_value
= 0;
1600 Lisp_Object coding_system
;
1602 Lisp_Object encoded_name
;
1603 struct gcpro gcpro1
;
1605 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1606 we use it before x_encode_text that may return string data. */
1608 encoded_name
= ENCODE_UTF_8 (name
);
1612 coding_system
= Qcompound_text
;
1613 /* Note: Encoding strategy
1615 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1616 text.encoding. But, there are non-internationalized window
1617 managers which don't support that encoding. So, if NAME
1618 contains only ASCII and 8859-1 characters, encode it by
1619 iso-latin-1, and use "STRING" in text.encoding hoping that
1620 such window managers at least analyze this format correctly,
1621 i.e. treat 8-bit bytes as 8859-1 characters.
1623 We may also be able to use "UTF8_STRING" in text.encoding
1624 in the future which can encode all Unicode characters.
1625 But, for the moment, there's no way to know that the
1626 current window manager supports it or not. */
1627 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1628 &do_free_text_value
);
1629 text
.encoding
= (stringp
? XA_STRING
1630 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1632 text
.nitems
= bytes
;
1634 if (!STRINGP (f
->icon_name
))
1640 /* See the above comment "Note: Encoding strategy". */
1641 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1642 &bytes
, &stringp
, &do_free_icon_value
);
1643 icon
.encoding
= (stringp
? XA_STRING
1644 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1646 icon
.nitems
= bytes
;
1650 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1651 (char *) SDATA (encoded_name
));
1652 #else /* not USE_GTK */
1653 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1654 #endif /* not USE_GTK */
1656 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1658 if (do_free_icon_value
)
1660 if (do_free_text_value
)
1667 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1670 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1671 name; if NAME is a string, set F's name to NAME and set
1672 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1674 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1675 suggesting a new name, which lisp code should override; if
1676 F->explicit_name is set, ignore the new name; otherwise, set it. */
1679 x_set_name (f
, name
, explicit)
1684 /* Make sure that requests from lisp code override requests from
1685 Emacs redisplay code. */
1688 /* If we're switching from explicit to implicit, we had better
1689 update the mode lines and thereby update the title. */
1690 if (f
->explicit_name
&& NILP (name
))
1691 update_mode_lines
= 1;
1693 f
->explicit_name
= ! NILP (name
);
1695 else if (f
->explicit_name
)
1698 /* If NAME is nil, set the name to the x_id_name. */
1701 /* Check for no change needed in this very common case
1702 before we do any consing. */
1703 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1706 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1709 CHECK_STRING (name
);
1711 /* Don't change the name if it's already NAME. */
1712 if (! NILP (Fstring_equal (name
, f
->name
)))
1717 /* For setting the frame title, the title parameter should override
1718 the name parameter. */
1719 if (! NILP (f
->title
))
1722 x_set_name_internal (f
, name
);
1725 /* This function should be called when the user's lisp code has
1726 specified a name for the frame; the name will override any set by the
1729 x_explicitly_set_name (f
, arg
, oldval
)
1731 Lisp_Object arg
, oldval
;
1733 x_set_name (f
, arg
, 1);
1736 /* This function should be called by Emacs redisplay code to set the
1737 name; names set this way will never override names set by the user's
1740 x_implicitly_set_name (f
, arg
, oldval
)
1742 Lisp_Object arg
, oldval
;
1744 x_set_name (f
, arg
, 0);
1747 /* Change the title of frame F to NAME.
1748 If NAME is nil, use the frame name as the title. */
1751 x_set_title (f
, name
, old_name
)
1753 Lisp_Object name
, old_name
;
1755 /* Don't change the title if it's already NAME. */
1756 if (EQ (name
, f
->title
))
1759 update_mode_lines
= 1;
1766 CHECK_STRING (name
);
1768 x_set_name_internal (f
, name
);
1772 x_set_scroll_bar_default_width (f
)
1775 int wid
= FRAME_COLUMN_WIDTH (f
);
1777 #ifdef USE_TOOLKIT_SCROLL_BARS
1778 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1779 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1780 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1781 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1783 /* Make the actual width at least 14 pixels and a multiple of a
1785 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1787 /* Use all of that space (aside from required margins) for the
1789 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1794 /* Record in frame F the specified or default value according to ALIST
1795 of the parameter named PROP (a Lisp symbol). If no value is
1796 specified for PROP, look for an X default for XPROP on the frame
1797 named NAME. If that is not found either, use the value DEFLT. */
1800 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1809 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1812 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1813 if (EQ (tem
, Qunbound
))
1815 #ifdef USE_TOOLKIT_SCROLL_BARS
1817 /* See if an X resource for the scroll bar color has been
1819 tem
= display_x_get_resource (dpyinfo
,
1820 build_string (foreground_p
1823 empty_unibyte_string
,
1824 build_string ("verticalScrollBar"),
1825 empty_unibyte_string
);
1828 /* If nothing has been specified, scroll bars will use a
1829 toolkit-dependent default. Because these defaults are
1830 difficult to get at without actually creating a scroll
1831 bar, use nil to indicate that no color has been
1836 #else /* not USE_TOOLKIT_SCROLL_BARS */
1840 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1843 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1850 #ifdef USE_X_TOOLKIT
1852 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1853 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1854 already be present because of the toolkit (Motif adds some of them,
1855 for example, but Xt doesn't). */
1858 hack_wm_protocols (f
, widget
)
1862 Display
*dpy
= XtDisplay (widget
);
1863 Window w
= XtWindow (widget
);
1864 int need_delete
= 1;
1871 unsigned char *catoms
;
1873 unsigned long nitems
= 0;
1874 unsigned long bytes_after
;
1876 if ((XGetWindowProperty (dpy
, w
,
1877 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1878 (long)0, (long)100, False
, XA_ATOM
,
1879 &type
, &format
, &nitems
, &bytes_after
,
1882 && format
== 32 && type
== XA_ATOM
)
1884 Atom
*atoms
= (Atom
*) catoms
;
1889 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1891 else if (atoms
[nitems
]
1892 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1894 else if (atoms
[nitems
]
1895 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1906 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1908 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1910 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1912 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1913 XA_ATOM
, 32, PropModeAppend
,
1914 (unsigned char *) props
, count
);
1922 /* Support routines for XIC (X Input Context). */
1926 static XFontSet xic_create_xfontset
P_ ((struct frame
*));
1927 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1930 /* Supported XIM styles, ordered by preference. */
1932 static XIMStyle supported_xim_styles
[] =
1934 XIMPreeditPosition
| XIMStatusArea
,
1935 XIMPreeditPosition
| XIMStatusNothing
,
1936 XIMPreeditPosition
| XIMStatusNone
,
1937 XIMPreeditNothing
| XIMStatusArea
,
1938 XIMPreeditNothing
| XIMStatusNothing
,
1939 XIMPreeditNothing
| XIMStatusNone
,
1940 XIMPreeditNone
| XIMStatusArea
,
1941 XIMPreeditNone
| XIMStatusNothing
,
1942 XIMPreeditNone
| XIMStatusNone
,
1947 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1949 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1951 /* Create an Xt fontset spec from the name of a base font.
1952 If `motif' is True use the Motif syntax. */
1954 xic_create_fontsetname (base_fontname
, motif
)
1955 char *base_fontname
;
1958 const char *sep
= motif
? ";" : ",";
1961 /* Make a fontset name from the base font name. */
1962 if (xic_defaut_fontset
== base_fontname
)
1963 { /* There is no base font name, use the default. */
1964 int len
= strlen (base_fontname
) + 2;
1965 fontsetname
= xmalloc (len
);
1966 bzero (fontsetname
, len
);
1967 strcpy (fontsetname
, base_fontname
);
1971 /* Make a fontset name from the base font name.
1972 The font set will be made of the following elements:
1974 - the base font where the charset spec is replaced by -*-*.
1975 - the same but with the family also replaced with -*-*-. */
1976 char *p
= base_fontname
;
1979 for (i
= 0; *p
; p
++)
1982 { /* As the font name doesn't conform to XLFD, we can't
1983 modify it to generalize it to allcs and allfamilies.
1984 Use the specified font plus the default. */
1985 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
1986 fontsetname
= xmalloc (len
);
1987 bzero (fontsetname
, len
);
1988 strcpy (fontsetname
, base_fontname
);
1989 strcat (fontsetname
, sep
);
1990 strcat (fontsetname
, xic_defaut_fontset
);
1995 char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1996 char *font_allcs
= NULL
;
1997 char *font_allfamilies
= NULL
;
1998 char *font_all
= NULL
;
1999 char *allcs
= "*-*-*-*-*-*-*";
2000 char *allfamilies
= "-*-*-";
2001 char *all
= "*-*-*-*-";
2004 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
2017 /* If base_fontname specifies ADSTYLE, make it a
2021 int diff
= (p2
- p3
) - 2;
2023 base
= alloca (strlen (base_fontname
) + 1);
2024 bcopy (base_fontname
, base
, p3
- base_fontname
);
2025 base
[p3
- base_fontname
] = '*';
2026 base
[(p3
- base_fontname
) + 1] = '-';
2027 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
2028 p
= base
+ (p
- base_fontname
) - diff
;
2029 p1
= base
+ (p1
- base_fontname
);
2030 p2
= base
+ (p2
- base_fontname
) - diff
;
2031 base_fontname
= base
;
2034 /* Build the font spec that matches all charsets. */
2035 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2036 font_allcs
= (char *) alloca (len
);
2037 bzero (font_allcs
, len
);
2038 bcopy (base_fontname
, font_allcs
, p
- base_fontname
);
2039 strcat (font_allcs
, allcs
);
2041 /* Build the font spec that matches all families and
2043 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2044 font_allfamilies
= (char *) alloca (len
);
2045 bzero (font_allfamilies
, len
);
2046 strcpy (font_allfamilies
, allfamilies
);
2047 bcopy (p1
, font_allfamilies
+ strlen (allfamilies
), p
- p1
);
2048 strcat (font_allfamilies
, allcs
);
2050 /* Build the font spec that matches all. */
2051 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2052 font_all
= (char *) alloca (len
);
2053 bzero (font_all
, len
);
2054 strcpy (font_all
, allfamilies
);
2055 strcat (font_all
, all
);
2056 bcopy (p2
, font_all
+ strlen (all
) + strlen (allfamilies
), p
- p2
);
2057 strcat (font_all
, allcs
);
2059 /* Build the actual font set name. */
2060 len
= strlen (base_fontname
) + strlen (font_allcs
)
2061 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2062 fontsetname
= xmalloc (len
);
2063 bzero (fontsetname
, len
);
2064 strcpy (fontsetname
, base_fontname
);
2065 strcat (fontsetname
, sep
);
2066 strcat (fontsetname
, font_allcs
);
2067 strcat (fontsetname
, sep
);
2068 strcat (fontsetname
, font_allfamilies
);
2069 strcat (fontsetname
, sep
);
2070 strcat (fontsetname
, font_all
);
2074 strcat (fontsetname
, ":");
2078 #ifdef DEBUG_XIC_FONTSET
2080 print_fontset_result (xfs
, name
, missing_list
, missing_count
)
2083 char **missing_list
;
2087 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
2090 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
2091 while (missing_count
-- > 0)
2093 fprintf (stderr
, " missing: %s\n", *missing_list
);
2102 xic_create_xfontset (f
)
2105 XFontSet xfs
= NULL
;
2106 struct font
*font
= FRAME_FONT (f
);
2107 int pixel_size
= font
->pixel_size
;
2108 Lisp_Object rest
, frame
;
2110 /* See if there is another frame already using same fontset. */
2111 FOR_EACH_FRAME (rest
, frame
)
2113 struct frame
*cf
= XFRAME (frame
);
2115 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2116 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2118 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
2120 xfs
= FRAME_XIC_FONTSET (cf
);
2128 char **missing_list
;
2131 char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
2133 sprintf (buf
, xlfd_format
, pixel_size
);
2134 missing_list
= NULL
;
2135 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2136 &missing_list
, &missing_count
, &def_string
);
2137 #ifdef DEBUG_XIC_FONTSET
2138 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2141 XFreeStringList (missing_list
);
2144 /* List of pixel sizes most likely available. Find one that
2145 is closest to pixel_size. */
2146 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2147 int *smaller
, *larger
;
2149 for (smaller
= sizes
; smaller
[1]; smaller
++)
2150 if (smaller
[1] >= pixel_size
)
2152 larger
= smaller
+ 1;
2153 if (*larger
== pixel_size
)
2155 while (*smaller
|| *larger
)
2160 this_size
= *smaller
--;
2161 else if (! *smaller
)
2162 this_size
= *larger
++;
2163 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
2164 this_size
= *smaller
--;
2166 this_size
= *larger
++;
2167 sprintf (buf
, xlfd_format
, this_size
);
2168 missing_list
= NULL
;
2169 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2170 &missing_list
, &missing_count
, &def_string
);
2171 #ifdef DEBUG_XIC_FONTSET
2172 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2175 XFreeStringList (missing_list
);
2182 char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
2184 missing_list
= NULL
;
2185 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
2186 &missing_list
, &missing_count
, &def_string
);
2187 #ifdef DEBUG_XIC_FONTSET
2188 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
2191 XFreeStringList (missing_list
);
2199 /* Free the X fontset of frame F if it is the last frame using it. */
2202 xic_free_xfontset (f
)
2205 Lisp_Object rest
, frame
;
2208 if (!FRAME_XIC_FONTSET (f
))
2211 /* See if there is another frame sharing the same fontset. */
2212 FOR_EACH_FRAME (rest
, frame
)
2214 struct frame
*cf
= XFRAME (frame
);
2215 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2216 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2217 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2225 /* The fontset is not used anymore. It is safe to free it. */
2226 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2228 if (FRAME_XIC_BASE_FONTNAME (f
))
2229 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2230 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2231 FRAME_XIC_FONTSET (f
) = NULL
;
2235 /* Value is the best input style, given user preferences USER (already
2236 checked to be supported by Emacs), and styles supported by the
2237 input method XIM. */
2240 best_xim_style (user
, xim
)
2246 for (i
= 0; i
< user
->count_styles
; ++i
)
2247 for (j
= 0; j
< xim
->count_styles
; ++j
)
2248 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2249 return user
->supported_styles
[i
];
2251 /* Return the default style. */
2252 return XIMPreeditNothing
| XIMStatusNothing
;
2255 /* Create XIC for frame F. */
2257 static XIMStyle xic_style
;
2260 create_frame_xic (f
)
2265 XFontSet xfs
= NULL
;
2270 /* Create X fontset. */
2271 xfs
= xic_create_xfontset (f
);
2272 xim
= FRAME_X_XIM (f
);
2277 XVaNestedList preedit_attr
;
2278 XVaNestedList status_attr
;
2280 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2281 spot
.x
= 0; spot
.y
= 1;
2283 /* Determine XIC style. */
2286 XIMStyles supported_list
;
2287 supported_list
.count_styles
= (sizeof supported_xim_styles
2288 / sizeof supported_xim_styles
[0]);
2289 supported_list
.supported_styles
= supported_xim_styles
;
2290 xic_style
= best_xim_style (&supported_list
,
2291 FRAME_X_XIM_STYLES (f
));
2294 preedit_attr
= XVaCreateNestedList (0,
2297 FRAME_FOREGROUND_PIXEL (f
),
2299 FRAME_BACKGROUND_PIXEL (f
),
2300 (xic_style
& XIMPreeditPosition
2305 status_attr
= XVaCreateNestedList (0,
2311 FRAME_FOREGROUND_PIXEL (f
),
2313 FRAME_BACKGROUND_PIXEL (f
),
2316 xic
= XCreateIC (xim
,
2317 XNInputStyle
, xic_style
,
2318 XNClientWindow
, FRAME_X_WINDOW (f
),
2319 XNFocusWindow
, FRAME_X_WINDOW (f
),
2320 XNStatusAttributes
, status_attr
,
2321 XNPreeditAttributes
, preedit_attr
,
2323 XFree (preedit_attr
);
2324 XFree (status_attr
);
2327 FRAME_XIC (f
) = xic
;
2328 FRAME_XIC_STYLE (f
) = xic_style
;
2329 FRAME_XIC_FONTSET (f
) = xfs
;
2333 /* Destroy XIC and free XIC fontset of frame F, if any. */
2339 if (FRAME_XIC (f
) == NULL
)
2342 XDestroyIC (FRAME_XIC (f
));
2343 xic_free_xfontset (f
);
2345 FRAME_XIC (f
) = NULL
;
2349 /* Place preedit area for XIC of window W's frame to specified
2350 pixel position X/Y. X and Y are relative to window W. */
2353 xic_set_preeditarea (w
, x
, y
)
2357 struct frame
*f
= XFRAME (w
->frame
);
2361 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2362 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2363 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2364 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2369 /* Place status area for XIC in bottom right corner of frame F.. */
2372 xic_set_statusarea (f
)
2375 XIC xic
= FRAME_XIC (f
);
2380 /* Negotiate geometry of status area. If input method has existing
2381 status area, use its current size. */
2382 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2383 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2384 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2387 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2388 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2391 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2393 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2394 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2398 area
.width
= needed
->width
;
2399 area
.height
= needed
->height
;
2400 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2401 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2402 - FRAME_MENUBAR_HEIGHT (f
)
2403 - FRAME_TOOLBAR_HEIGHT (f
)
2404 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2407 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2408 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2413 /* Set X fontset for XIC of frame F, using base font name
2414 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2417 xic_set_xfontset (f
, base_fontname
)
2419 char *base_fontname
;
2424 xic_free_xfontset (f
);
2426 xfs
= xic_create_xfontset (f
);
2428 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2429 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2430 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2431 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2432 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2435 FRAME_XIC_FONTSET (f
) = xfs
;
2438 #endif /* HAVE_X_I18N */
2442 #ifdef USE_X_TOOLKIT
2444 /* Create and set up the X widget for frame F. */
2447 x_window (f
, window_prompting
, minibuffer_only
)
2449 long window_prompting
;
2450 int minibuffer_only
;
2452 XClassHint class_hints
;
2453 XSetWindowAttributes attributes
;
2454 unsigned long attribute_mask
;
2455 Widget shell_widget
;
2457 Widget frame_widget
;
2463 /* Use the resource name as the top-level widget name
2464 for looking up resources. Make a non-Lisp copy
2465 for the window manager, so GC relocation won't bother it.
2467 Elsewhere we specify the window name for the window manager. */
2470 char *str
= (char *) SDATA (Vx_resource_name
);
2471 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2472 strcpy (f
->namebuf
, str
);
2476 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2477 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2478 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2479 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2480 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2481 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2482 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2483 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2484 applicationShellWidgetClass
,
2485 FRAME_X_DISPLAY (f
), al
, ac
);
2487 f
->output_data
.x
->widget
= shell_widget
;
2488 /* maybe_set_screen_title_format (shell_widget); */
2490 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2491 (widget_value
*) NULL
,
2492 shell_widget
, False
,
2496 (lw_callback
) NULL
);
2499 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2500 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2501 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2502 XtSetValues (pane_widget
, al
, ac
);
2503 f
->output_data
.x
->column_widget
= pane_widget
;
2505 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2506 the emacs screen when changing menubar. This reduces flickering. */
2509 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2510 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2511 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2512 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2513 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2514 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2515 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2516 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2517 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2520 f
->output_data
.x
->edit_widget
= frame_widget
;
2522 XtManageChild (frame_widget
);
2524 /* Do some needed geometry management. */
2527 char *tem
, shell_position
[32];
2530 int extra_borders
= 0;
2532 = (f
->output_data
.x
->menubar_widget
2533 ? (f
->output_data
.x
->menubar_widget
->core
.height
2534 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2537 #if 0 /* Experimentally, we now get the right results
2538 for -geometry -0-0 without this. 24 Aug 96, rms. */
2539 if (FRAME_EXTERNAL_MENU_BAR (f
))
2542 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2543 menubar_size
+= ibw
;
2547 f
->output_data
.x
->menubar_height
= menubar_size
;
2550 /* Motif seems to need this amount added to the sizes
2551 specified for the shell widget. The Athena/Lucid widgets don't.
2552 Both conclusions reached experimentally. -- rms. */
2553 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2554 &extra_borders
, NULL
);
2558 /* Convert our geometry parameters into a geometry string
2560 Note that we do not specify here whether the position
2561 is a user-specified or program-specified one.
2562 We pass that information later, in x_wm_set_size_hints. */
2564 int left
= f
->left_pos
;
2565 int xneg
= window_prompting
& XNegative
;
2566 int top
= f
->top_pos
;
2567 int yneg
= window_prompting
& YNegative
;
2573 if (window_prompting
& USPosition
)
2574 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2575 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2576 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2577 (xneg
? '-' : '+'), left
,
2578 (yneg
? '-' : '+'), top
);
2581 sprintf (shell_position
, "=%dx%d",
2582 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2583 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2585 /* Setting x and y when the position is not specified in
2586 the geometry string will set program position in the WM hints.
2587 If Emacs had just one program position, we could set it in
2588 fallback resources, but since each make-frame call can specify
2589 different program positions, this is easier. */
2590 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2591 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2595 len
= strlen (shell_position
) + 1;
2596 /* We don't free this because we don't know whether
2597 it is safe to free it while the frame exists.
2598 It isn't worth the trouble of arranging to free it
2599 when the frame is deleted. */
2600 tem
= (char *) xmalloc (len
);
2601 strncpy (tem
, shell_position
, len
);
2602 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2603 XtSetValues (shell_widget
, al
, ac
);
2606 XtManageChild (pane_widget
);
2607 XtRealizeWidget (shell_widget
);
2609 if (FRAME_X_EMBEDDED_P (f
))
2610 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2611 f
->output_data
.x
->parent_desc
, 0, 0);
2613 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2615 validate_x_resource_name ();
2617 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2618 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2619 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2622 FRAME_XIC (f
) = NULL
;
2624 create_frame_xic (f
);
2627 f
->output_data
.x
->wm_hints
.input
= True
;
2628 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2629 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2630 &f
->output_data
.x
->wm_hints
);
2632 hack_wm_protocols (f
, shell_widget
);
2635 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2638 /* Do a stupid property change to force the server to generate a
2639 PropertyNotify event so that the event_stream server timestamp will
2640 be initialized to something relevant to the time we created the window.
2642 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2643 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2644 XA_ATOM
, 32, PropModeAppend
,
2645 (unsigned char*) NULL
, 0);
2647 /* Make all the standard events reach the Emacs frame. */
2648 attributes
.event_mask
= STANDARD_EVENT_SET
;
2653 /* XIM server might require some X events. */
2654 unsigned long fevent
= NoEventMask
;
2655 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2656 attributes
.event_mask
|= fevent
;
2658 #endif /* HAVE_X_I18N */
2660 attribute_mask
= CWEventMask
;
2661 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2662 attribute_mask
, &attributes
);
2664 XtMapWidget (frame_widget
);
2666 /* x_set_name normally ignores requests to set the name if the
2667 requested name is the same as the current name. This is the one
2668 place where that assumption isn't correct; f->name is set, but
2669 the X server hasn't been told. */
2672 int explicit = f
->explicit_name
;
2674 f
->explicit_name
= 0;
2677 x_set_name (f
, name
, explicit);
2680 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2681 f
->output_data
.x
->text_cursor
);
2685 /* This is a no-op, except under Motif. Make sure main areas are
2686 set to something reasonable, in case we get an error later. */
2687 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2690 #else /* not USE_X_TOOLKIT */
2696 if (! xg_create_frame_widgets (f
))
2697 error ("Unable to create window");
2700 FRAME_XIC (f
) = NULL
;
2704 create_frame_xic (f
);
2707 /* XIM server might require some X events. */
2708 unsigned long fevent
= NoEventMask
;
2709 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2711 if (fevent
!= NoEventMask
)
2713 XSetWindowAttributes attributes
;
2714 XWindowAttributes wattr
;
2715 unsigned long attribute_mask
;
2717 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2719 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2720 attribute_mask
= CWEventMask
;
2721 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2722 attribute_mask
, &attributes
);
2730 #else /*! USE_GTK */
2731 /* Create and set up the X window for frame F. */
2738 XClassHint class_hints
;
2739 XSetWindowAttributes attributes
;
2740 unsigned long attribute_mask
;
2742 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2743 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2744 attributes
.bit_gravity
= StaticGravity
;
2745 attributes
.backing_store
= NotUseful
;
2746 attributes
.save_under
= True
;
2747 attributes
.event_mask
= STANDARD_EVENT_SET
;
2748 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2749 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2754 = XCreateWindow (FRAME_X_DISPLAY (f
),
2755 f
->output_data
.x
->parent_desc
,
2758 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2760 CopyFromParent
, /* depth */
2761 InputOutput
, /* class */
2763 attribute_mask
, &attributes
);
2768 create_frame_xic (f
);
2771 /* XIM server might require some X events. */
2772 unsigned long fevent
= NoEventMask
;
2773 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2774 attributes
.event_mask
|= fevent
;
2775 attribute_mask
= CWEventMask
;
2776 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2777 attribute_mask
, &attributes
);
2780 #endif /* HAVE_X_I18N */
2782 validate_x_resource_name ();
2784 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2785 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2786 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2788 /* The menubar is part of the ordinary display;
2789 it does not count in addition to the height of the window. */
2790 f
->output_data
.x
->menubar_height
= 0;
2792 /* This indicates that we use the "Passive Input" input model.
2793 Unless we do this, we don't get the Focus{In,Out} events that we
2794 need to draw the cursor correctly. Accursed bureaucrats.
2795 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2797 f
->output_data
.x
->wm_hints
.input
= True
;
2798 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2799 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2800 &f
->output_data
.x
->wm_hints
);
2801 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2803 /* Request "save yourself" and "delete window" commands from wm. */
2806 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2807 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2808 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2811 /* x_set_name normally ignores requests to set the name if the
2812 requested name is the same as the current name. This is the one
2813 place where that assumption isn't correct; f->name is set, but
2814 the X server hasn't been told. */
2817 int explicit = f
->explicit_name
;
2819 f
->explicit_name
= 0;
2822 x_set_name (f
, name
, explicit);
2825 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2826 f
->output_data
.x
->text_cursor
);
2830 if (FRAME_X_WINDOW (f
) == 0)
2831 error ("Unable to create window");
2834 #endif /* not USE_GTK */
2835 #endif /* not USE_X_TOOLKIT */
2837 /* Verify that the icon position args for this window are valid. */
2840 x_icon_verify (f
, parms
)
2844 Lisp_Object icon_x
, icon_y
;
2846 /* Set the position of the icon. Note that twm groups all
2847 icons in an icon window. */
2848 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2849 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2850 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2852 CHECK_NUMBER (icon_x
);
2853 CHECK_NUMBER (icon_y
);
2855 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2856 error ("Both left and top icon corners of icon must be specified");
2859 /* Handle the icon stuff for this window. Perhaps later we might
2860 want an x_set_icon_position which can be called interactively as
2868 Lisp_Object icon_x
, icon_y
;
2870 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2873 /* Set the position of the icon. Note that twm groups all
2874 icons in an icon window. */
2875 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2876 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2877 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2879 CHECK_NUMBER (icon_x
);
2880 CHECK_NUMBER (icon_y
);
2882 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2883 error ("Both left and top icon corners of icon must be specified");
2887 if (! EQ (icon_x
, Qunbound
))
2888 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2890 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2891 but x_create_frame still needs it. */
2892 /* Start up iconic or window? */
2893 x_wm_set_window_state
2894 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2900 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2907 /* Make the GCs needed for this window, setting the
2908 background, border and mouse colors; also create the
2909 mouse cursor and the gray border tile. */
2911 static char cursor_bits
[] =
2913 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
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
2923 XGCValues gc_values
;
2927 /* Create the GCs of this frame.
2928 Note that many default values are used. */
2930 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2931 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2932 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2933 f
->output_data
.x
->normal_gc
2934 = XCreateGC (FRAME_X_DISPLAY (f
),
2936 GCLineWidth
| GCForeground
| GCBackground
,
2939 /* Reverse video style. */
2940 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2941 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2942 f
->output_data
.x
->reverse_gc
2943 = XCreateGC (FRAME_X_DISPLAY (f
),
2945 GCForeground
| GCBackground
| GCLineWidth
,
2948 /* Cursor has cursor-color background, background-color foreground. */
2949 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2950 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2951 gc_values
.fill_style
= FillOpaqueStippled
;
2953 = XCreateBitmapFromData (FRAME_X_DISPLAY (f
),
2954 FRAME_X_DISPLAY_INFO (f
)->root_window
,
2955 cursor_bits
, 16, 16);
2956 f
->output_data
.x
->cursor_gc
2957 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2958 (GCForeground
| GCBackground
2959 | GCFillStyle
/* | GCStipple */ | GCLineWidth
),
2963 f
->output_data
.x
->white_relief
.gc
= 0;
2964 f
->output_data
.x
->black_relief
.gc
= 0;
2966 /* Create the gray border tile used when the pointer is not in
2967 the frame. Since this depends on the frame's pixel values,
2968 this must be done on a per-frame basis. */
2969 f
->output_data
.x
->border_tile
2970 = (XCreatePixmapFromBitmapData
2971 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2972 gray_bits
, gray_width
, gray_height
,
2973 FRAME_FOREGROUND_PIXEL (f
),
2974 FRAME_BACKGROUND_PIXEL (f
),
2975 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2981 /* Free what was was allocated in x_make_gc. */
2987 Display
*dpy
= FRAME_X_DISPLAY (f
);
2991 if (f
->output_data
.x
->normal_gc
)
2993 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2994 f
->output_data
.x
->normal_gc
= 0;
2997 if (f
->output_data
.x
->reverse_gc
)
2999 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
3000 f
->output_data
.x
->reverse_gc
= 0;
3003 if (f
->output_data
.x
->cursor_gc
)
3005 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
3006 f
->output_data
.x
->cursor_gc
= 0;
3009 if (f
->output_data
.x
->border_tile
)
3011 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
3012 f
->output_data
.x
->border_tile
= 0;
3019 /* Handler for signals raised during x_create_frame and
3020 x_create_top_frame. FRAME is the frame which is partially
3024 unwind_create_frame (frame
)
3027 struct frame
*f
= XFRAME (frame
);
3029 /* If frame is already dead, nothing to do. This can happen if the
3030 display is disconnected after the frame has become official, but
3031 before x_create_frame removes the unwind protect. */
3032 if (!FRAME_LIVE_P (f
))
3035 /* If frame is ``official'', nothing to do. */
3036 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
3039 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
3042 x_free_frame_resources (f
);
3045 /* Check that reference counts are indeed correct. */
3046 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
3047 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
3057 x_default_font_parameter (f
, parms
)
3061 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
3062 Lisp_Object font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font",
3065 if (! STRINGP (font
))
3068 = { "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
3069 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3070 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3071 /* This was formerly the first thing tried, but it finds
3072 too many fonts and takes too long. */
3073 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
3074 /* If those didn't work, look for something which will
3076 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
3081 for (i
= 0; names
[i
]; i
++)
3083 font
= font_open_by_name (f
, names
[i
]);
3088 error ("No suitable font was found");
3090 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
3094 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3096 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3097 Return an Emacs frame object.
3098 ALIST is an alist of frame parameters.
3099 If the parameters specify that the frame should not have a minibuffer,
3100 and do not specify a specific minibuffer window to use,
3101 then `default-minibuffer-frame' must be a frame whose minibuffer can
3102 be shared by the new frame.
3104 This function is an internal primitive--use `make-frame' instead. */)
3109 Lisp_Object frame
, tem
;
3111 int minibuffer_only
= 0;
3112 long window_prompting
= 0;
3114 int count
= SPECPDL_INDEX ();
3115 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3116 Lisp_Object display
;
3117 struct x_display_info
*dpyinfo
= NULL
;
3121 parms
= Fcopy_alist (parms
);
3123 /* Use this general default value to start with
3124 until we know if this frame has a specified name. */
3125 Vx_resource_name
= Vinvocation_name
;
3127 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3128 if (EQ (display
, Qunbound
))
3129 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3130 if (EQ (display
, Qunbound
))
3132 dpyinfo
= check_x_display_info (display
);
3134 kb
= dpyinfo
->terminal
->kboard
;
3136 kb
= &the_only_kboard
;
3139 if (!dpyinfo
->terminal
->name
)
3140 error ("Terminal is not live, can't create new frames on it");
3142 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3144 && ! EQ (name
, Qunbound
)
3146 error ("Invalid frame name--not a string or nil");
3149 Vx_resource_name
= name
;
3151 /* See if parent window is specified. */
3152 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3153 if (EQ (parent
, Qunbound
))
3155 if (! NILP (parent
))
3156 CHECK_NUMBER (parent
);
3158 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3159 /* No need to protect DISPLAY because that's not used after passing
3160 it to make_frame_without_minibuffer. */
3162 GCPRO4 (parms
, parent
, name
, frame
);
3163 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3165 if (EQ (tem
, Qnone
) || NILP (tem
))
3166 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3167 else if (EQ (tem
, Qonly
))
3169 f
= make_minibuffer_frame ();
3170 minibuffer_only
= 1;
3172 else if (WINDOWP (tem
))
3173 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3177 XSETFRAME (frame
, f
);
3179 /* Note that X Windows does support scroll bars. */
3180 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3182 f
->terminal
= dpyinfo
->terminal
;
3183 f
->terminal
->reference_count
++;
3185 f
->output_method
= output_x_window
;
3186 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3187 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3188 f
->output_data
.x
->icon_bitmap
= -1;
3189 FRAME_FONTSET (f
) = -1;
3190 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3191 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3192 #ifdef USE_TOOLKIT_SCROLL_BARS
3193 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3194 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3195 #endif /* USE_TOOLKIT_SCROLL_BARS */
3198 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3200 if (! STRINGP (f
->icon_name
))
3201 f
->icon_name
= Qnil
;
3203 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3205 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3206 record_unwind_protect (unwind_create_frame
, frame
);
3208 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
3209 dpyinfo_refcount
= dpyinfo
->reference_count
;
3210 #endif /* GLYPH_DEBUG */
3212 /* These colors will be set anyway later, but it's important
3213 to get the color reference counts right, so initialize them! */
3216 struct gcpro gcpro1
;
3218 /* Function x_decode_color can signal an error. Make
3219 sure to initialize color slots so that we won't try
3220 to free colors we haven't allocated. */
3221 FRAME_FOREGROUND_PIXEL (f
) = -1;
3222 FRAME_BACKGROUND_PIXEL (f
) = -1;
3223 f
->output_data
.x
->cursor_pixel
= -1;
3224 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3225 f
->output_data
.x
->border_pixel
= -1;
3226 f
->output_data
.x
->mouse_pixel
= -1;
3228 black
= build_string ("black");
3230 FRAME_FOREGROUND_PIXEL (f
)
3231 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3232 FRAME_BACKGROUND_PIXEL (f
)
3233 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3234 f
->output_data
.x
->cursor_pixel
3235 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3236 f
->output_data
.x
->cursor_foreground_pixel
3237 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3238 f
->output_data
.x
->border_pixel
3239 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3240 f
->output_data
.x
->mouse_pixel
3241 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3245 /* Specify the parent under which to make this X window. */
3249 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3250 f
->output_data
.x
->explicit_parent
= 1;
3254 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3255 f
->output_data
.x
->explicit_parent
= 0;
3258 /* Set the name; the functions to which we pass f expect the name to
3260 if (EQ (name
, Qunbound
) || NILP (name
))
3262 f
->name
= build_string (dpyinfo
->x_id_name
);
3263 f
->explicit_name
= 0;
3268 f
->explicit_name
= 1;
3269 /* use the frame's title when getting resources for this frame. */
3270 specbind (Qx_resource_name
, name
);
3273 f
->resx
= dpyinfo
->resx
;
3274 f
->resy
= dpyinfo
->resy
;
3276 #ifdef HAVE_FREETYPE
3278 register_font_driver (&xftfont_driver
, f
);
3279 #else /* not HAVE_XFT */
3280 register_font_driver (&ftxfont_driver
, f
);
3281 #endif /* not HAVE_XFT */
3282 #endif /* HAVE_FREETYPE */
3283 register_font_driver (&xfont_driver
, f
);
3285 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3286 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3288 /* Extract the window parameters from the supplied values
3289 that are needed to determine window geometry. */
3290 x_default_font_parameter (f
, parms
);
3293 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3294 whereby it fails to get any font. */
3295 xlwmenu_default_font
= XLoadQueryFont (FRAME_X_DISPLAY (f
), "fixed");
3298 /* Frame contents get displaced if an embedded X window has a border. */
3299 if (! FRAME_X_EMBEDDED_P (f
))
3300 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3301 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3303 /* This defaults to 1 in order to match xterm. We recognize either
3304 internalBorderWidth or internalBorder (which is what xterm calls
3306 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3310 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3311 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3312 if (! EQ (value
, Qunbound
))
3313 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3316 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3317 "internalBorderWidth", "internalBorderWidth",
3319 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3320 "verticalScrollBars", "ScrollBars",
3323 /* Also do the stuff which must be set before the window exists. */
3324 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3325 "foreground", "Foreground", RES_TYPE_STRING
);
3326 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3327 "background", "Background", RES_TYPE_STRING
);
3328 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3329 "pointerColor", "Foreground", RES_TYPE_STRING
);
3330 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3331 "cursorColor", "Foreground", RES_TYPE_STRING
);
3332 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3333 "borderColor", "BorderColor", RES_TYPE_STRING
);
3334 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3335 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3336 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3337 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3338 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3339 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3340 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3341 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3343 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3344 "scrollBarForeground",
3345 "ScrollBarForeground", 1);
3346 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3347 "scrollBarBackground",
3348 "ScrollBarBackground", 0);
3350 /* Init faces before x_default_parameter is called for scroll-bar
3351 parameters because that function calls x_set_scroll_bar_width,
3352 which calls change_frame_size, which calls Fset_window_buffer,
3353 which runs hooks, which call Fvertical_motion. At the end, we
3354 end up in init_iterator with a null face cache, which should not
3356 init_frame_faces (f
);
3358 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3359 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3360 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3361 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3362 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3363 "bufferPredicate", "BufferPredicate",
3365 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3366 "title", "Title", RES_TYPE_STRING
);
3367 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3368 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3369 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3370 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3372 /* Compute the size of the X window. */
3373 window_prompting
= x_figure_window_size (f
, parms
, 1);
3375 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3376 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3378 x_icon_verify (f
, parms
);
3380 /* Create the X widget or window. */
3381 #ifdef USE_X_TOOLKIT
3382 x_window (f
, window_prompting
, minibuffer_only
);
3390 /* Now consider the frame official. */
3391 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3392 Vframe_list
= Fcons (frame
, Vframe_list
);
3394 /* We need to do this after creating the X window, so that the
3395 icon-creation functions can say whose icon they're describing. */
3396 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3397 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3399 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3400 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3401 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3402 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3403 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3404 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3405 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3406 "scrollBarWidth", "ScrollBarWidth",
3409 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3410 Change will not be effected unless different from the current
3412 width
= FRAME_COLS (f
);
3413 height
= FRAME_LINES (f
);
3415 SET_FRAME_COLS (f
, 0);
3416 FRAME_LINES (f
) = 0;
3417 change_frame_size (f
, height
, width
, 1, 0, 0);
3419 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3420 /* Create the menu bar. */
3421 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3423 /* If this signals an error, we haven't set size hints for the
3424 frame and we didn't make it visible. */
3425 initialize_frame_menubar (f
);
3428 /* This is a no-op, except under Motif where it arranges the
3429 main window for the widgets on it. */
3430 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3431 f
->output_data
.x
->menubar_widget
,
3432 f
->output_data
.x
->edit_widget
);
3433 #endif /* not USE_GTK */
3435 #endif /* USE_X_TOOLKIT || USE_GTK */
3437 /* Tell the server what size and position, etc, we want, and how
3438 badly we want them. This should be done after we have the menu
3439 bar so that its size can be taken into account. */
3441 x_wm_set_size_hint (f
, window_prompting
, 0);
3444 /* Make the window appear on the frame and enable display, unless
3445 the caller says not to. However, with explicit parent, Emacs
3446 cannot control visibility, so don't try. */
3447 if (! f
->output_data
.x
->explicit_parent
)
3449 Lisp_Object visibility
;
3451 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3453 if (EQ (visibility
, Qunbound
))
3456 if (EQ (visibility
, Qicon
))
3457 x_iconify_frame (f
);
3458 else if (! NILP (visibility
))
3459 x_make_frame_visible (f
);
3461 /* Must have been Qnil. */
3465 /* Set the WM leader property. GTK does this itself, so this is not
3466 needed when using GTK. */
3467 if (dpyinfo
->client_leader_window
!= 0)
3470 XChangeProperty (FRAME_X_DISPLAY (f
),
3471 FRAME_OUTER_WINDOW (f
),
3472 dpyinfo
->Xatom_wm_client_leader
,
3473 XA_WINDOW
, 32, PropModeReplace
,
3474 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3478 /* Initialize `default-minibuffer-frame' in case this is the first
3479 frame on this terminal. */
3480 if (FRAME_HAS_MINIBUF_P (f
)
3481 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3482 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3483 kb
->Vdefault_minibuffer_frame
= frame
;
3485 /* All remaining specified parameters, which have not been "used"
3486 by x_get_arg and friends, now go in the misc. alist of the frame. */
3487 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3488 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3489 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3493 /* Make sure windows on this frame appear in calls to next-window
3494 and similar functions. */
3495 Vwindow_list
= Qnil
;
3497 return unbind_to (count
, frame
);
3501 /* FRAME is used only to get a handle on the X display. We don't pass the
3502 display info directly because we're called from frame.c, which doesn't
3503 know about that structure. */
3506 x_get_focus_frame (frame
)
3507 struct frame
*frame
;
3509 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3511 if (! dpyinfo
->x_focus_frame
)
3514 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3519 /* In certain situations, when the window manager follows a
3520 click-to-focus policy, there seems to be no way around calling
3521 XSetInputFocus to give another frame the input focus .
3523 In an ideal world, XSetInputFocus should generally be avoided so
3524 that applications don't interfere with the window manager's focus
3525 policy. But I think it's okay to use when it's clearly done
3526 following a user-command. */
3528 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3529 doc
: /* Set the input focus to FRAME.
3530 FRAME nil means use the selected frame. */)
3534 struct frame
*f
= check_x_frame (frame
);
3535 Display
*dpy
= FRAME_X_DISPLAY (f
);
3538 x_catch_errors (dpy
);
3539 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3540 RevertToParent
, CurrentTime
);
3541 x_ewmh_activate_frame (f
);
3542 x_uncatch_errors ();
3549 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3550 doc
: /* Internal function called by `color-defined-p', which see. */)
3552 Lisp_Object color
, frame
;
3555 FRAME_PTR f
= check_x_frame (frame
);
3557 CHECK_STRING (color
);
3559 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3565 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3566 doc
: /* Internal function called by `color-values', which see. */)
3568 Lisp_Object color
, frame
;
3571 FRAME_PTR f
= check_x_frame (frame
);
3573 CHECK_STRING (color
);
3575 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3576 return list3 (make_number (foo
.red
),
3577 make_number (foo
.green
),
3578 make_number (foo
.blue
));
3583 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3584 doc
: /* Internal function called by `display-color-p', which see. */)
3586 Lisp_Object terminal
;
3588 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3590 if (dpyinfo
->n_planes
<= 2)
3593 switch (dpyinfo
->visual
->class)
3606 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3608 doc
: /* Return t if the X display supports shades of gray.
3609 Note that color displays do support shades of gray.
3610 The optional argument TERMINAL specifies which display to ask about.
3611 TERMINAL should be a terminal id, a frame or a display name (a string).
3612 If omitted or nil, that stands for the selected frame's display. */)
3614 Lisp_Object terminal
;
3616 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3618 if (dpyinfo
->n_planes
<= 1)
3621 switch (dpyinfo
->visual
->class)
3636 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3638 doc
: /* Return the width in pixels of the X display TERMINAL.
3639 The optional argument TERMINAL specifies which display to ask about.
3640 TERMINAL should be a terminal id, a frame or a display name (a string).
3641 If omitted or nil, that stands for the selected frame's display. */)
3643 Lisp_Object terminal
;
3645 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3647 return make_number (dpyinfo
->width
);
3650 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3651 Sx_display_pixel_height
, 0, 1, 0,
3652 doc
: /* Return the height 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
->height
);
3664 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3666 doc
: /* Return the number of bitplanes 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
->n_planes
);
3678 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3680 doc
: /* Return the number of color cells 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 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3690 XScreenNumberOfScreen (dpyinfo
->screen
));
3692 /* Truncate nr_planes to 24 to avoid integer overflow.
3693 Some displays says 32, but only 24 bits are actually significant.
3694 There are only very few and rare video cards that have more than
3695 24 significant bits. Also 24 bits is more than 16 million colors,
3696 it "should be enough for everyone". */
3697 if (nr_planes
> 24) nr_planes
= 24;
3699 return make_number (1 << nr_planes
);
3702 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3703 Sx_server_max_request_size
,
3705 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3706 The optional argument TERMINAL specifies which display to ask about.
3707 TERMINAL should be a terminal id, a frame or a display name (a string).
3708 If omitted or nil, that stands for the selected frame's display. */)
3710 Lisp_Object terminal
;
3712 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3714 return make_number (MAXREQUEST (dpyinfo
->display
));
3717 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3718 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3719 \(Labelling every distributor as a "vendor" embodies the false assumption
3720 that operating systems cannot be developed and distributed noncommercially.)
3721 The optional argument TERMINAL specifies which display to ask about.
3722 TERMINAL should be a terminal id, a frame or a display name (a string).
3723 If omitted or nil, that stands for the selected frame's display. */)
3725 Lisp_Object terminal
;
3727 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3728 char *vendor
= ServerVendor (dpyinfo
->display
);
3730 if (! vendor
) vendor
= "";
3731 return build_string (vendor
);
3734 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3735 doc
: /* Return the version numbers of the X server of display TERMINAL.
3736 The value is a list of three integers: the major and minor
3737 version numbers of the X Protocol in use, and the distributor-specific release
3738 number. See also the function `x-server-vendor'.
3740 The optional argument TERMINAL specifies which display to ask about.
3741 TERMINAL should be a terminal id, a frame or a display name (a string).
3742 If omitted or nil, that stands for the selected frame's display. */)
3744 Lisp_Object terminal
;
3746 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3747 Display
*dpy
= dpyinfo
->display
;
3749 return Fcons (make_number (ProtocolVersion (dpy
)),
3750 Fcons (make_number (ProtocolRevision (dpy
)),
3751 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3754 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3755 doc
: /* Return the number of screens on the X server of display TERMINAL.
3756 The optional argument TERMINAL specifies which display to ask about.
3757 TERMINAL should be a terminal id, a frame or a display name (a string).
3758 If omitted or nil, that stands for the selected frame's display. */)
3760 Lisp_Object terminal
;
3762 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3764 return make_number (ScreenCount (dpyinfo
->display
));
3767 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3768 doc
: /* Return the height in millimeters of the X display TERMINAL.
3769 The optional argument TERMINAL specifies which display to ask about.
3770 TERMINAL should be a terminal id, a frame or a display name (a string).
3771 If omitted or nil, that stands for the selected frame's display. */)
3773 Lisp_Object terminal
;
3775 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3777 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3780 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3781 doc
: /* Return the width in millimeters of the X display TERMINAL.
3782 The optional argument TERMINAL specifies which display to ask about.
3783 TERMINAL should be a terminal id, a frame or a display name (a string).
3784 If omitted or nil, that stands for the selected frame's display. */)
3786 Lisp_Object terminal
;
3788 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3790 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3793 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3794 Sx_display_backing_store
, 0, 1, 0,
3795 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3796 The value may be `always', `when-mapped', or `not-useful'.
3797 The optional argument TERMINAL specifies which display to ask about.
3798 TERMINAL should be a terminal id, a frame or a display name (a string).
3799 If omitted or nil, that stands for the selected frame's display. */)
3801 Lisp_Object terminal
;
3803 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3806 switch (DoesBackingStore (dpyinfo
->screen
))
3809 result
= intern ("always");
3813 result
= intern ("when-mapped");
3817 result
= intern ("not-useful");
3821 error ("Strange value for BackingStore parameter of screen");
3828 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3829 Sx_display_visual_class
, 0, 1, 0,
3830 doc
: /* Return the visual class of the X display TERMINAL.
3831 The value is one of the symbols `static-gray', `gray-scale',
3832 `static-color', `pseudo-color', `true-color', or `direct-color'.
3834 The optional argument TERMINAL specifies which display to ask about.
3835 TERMINAL should a terminal id, a frame or a display name (a string).
3836 If omitted or nil, that stands for the selected frame's display. */)
3838 Lisp_Object terminal
;
3840 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3843 switch (dpyinfo
->visual
->class)
3846 result
= intern ("static-gray");
3849 result
= intern ("gray-scale");
3852 result
= intern ("static-color");
3855 result
= intern ("pseudo-color");
3858 result
= intern ("true-color");
3861 result
= intern ("direct-color");
3864 error ("Display has an unknown visual class");
3871 DEFUN ("x-display-save-under", Fx_display_save_under
,
3872 Sx_display_save_under
, 0, 1, 0,
3873 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3874 The optional argument TERMINAL specifies which display to ask about.
3875 TERMINAL should be a terminal id, a frame or a display name (a string).
3876 If omitted or nil, that stands for the selected frame's display. */)
3878 Lisp_Object terminal
;
3880 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3882 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3890 register struct frame
*f
;
3892 return FRAME_PIXEL_WIDTH (f
);
3897 register struct frame
*f
;
3899 return FRAME_PIXEL_HEIGHT (f
);
3904 register struct frame
*f
;
3906 return FRAME_COLUMN_WIDTH (f
);
3911 register struct frame
*f
;
3913 return FRAME_LINE_HEIGHT (f
);
3918 register struct frame
*f
;
3920 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3925 /************************************************************************
3927 ************************************************************************/
3930 /* Mapping visual names to visuals. */
3932 static struct visual_class
3939 {"StaticGray", StaticGray
},
3940 {"GrayScale", GrayScale
},
3941 {"StaticColor", StaticColor
},
3942 {"PseudoColor", PseudoColor
},
3943 {"TrueColor", TrueColor
},
3944 {"DirectColor", DirectColor
},
3949 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3951 /* Value is the screen number of screen SCR. This is a substitute for
3952 the X function with the same name when that doesn't exist. */
3955 XScreenNumberOfScreen (scr
)
3956 register Screen
*scr
;
3958 Display
*dpy
= scr
->display
;
3961 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3962 if (scr
== dpy
->screens
+ i
)
3968 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3971 /* Select the visual that should be used on display DPYINFO. Set
3972 members of DPYINFO appropriately. Called from x_term_init. */
3975 select_visual (dpyinfo
)
3976 struct x_display_info
*dpyinfo
;
3978 Display
*dpy
= dpyinfo
->display
;
3979 Screen
*screen
= dpyinfo
->screen
;
3982 /* See if a visual is specified. */
3983 value
= display_x_get_resource (dpyinfo
,
3984 build_string ("visualClass"),
3985 build_string ("VisualClass"),
3987 if (STRINGP (value
))
3989 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3990 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3991 depth, a decimal number. NAME is compared with case ignored. */
3992 char *s
= (char *) alloca (SBYTES (value
) + 1);
3997 strcpy (s
, SDATA (value
));
3998 dash
= index (s
, '-');
4001 dpyinfo
->n_planes
= atoi (dash
+ 1);
4005 /* We won't find a matching visual with depth 0, so that
4006 an error will be printed below. */
4007 dpyinfo
->n_planes
= 0;
4009 /* Determine the visual class. */
4010 for (i
= 0; visual_classes
[i
].name
; ++i
)
4011 if (xstricmp (s
, visual_classes
[i
].name
) == 0)
4013 class = visual_classes
[i
].class;
4017 /* Look up a matching visual for the specified class. */
4019 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4020 dpyinfo
->n_planes
, class, &vinfo
))
4021 fatal ("Invalid visual specification `%s'", SDATA (value
));
4023 dpyinfo
->visual
= vinfo
.visual
;
4028 XVisualInfo
*vinfo
, vinfo_template
;
4030 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4032 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4033 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4034 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4035 &vinfo_template
, &n_visuals
);
4037 fatal ("Can't get proper X visual info");
4039 dpyinfo
->n_planes
= vinfo
->depth
;
4040 XFree ((char *) vinfo
);
4045 /* Return the X display structure for the display named NAME.
4046 Open a new connection if necessary. */
4048 struct x_display_info
*
4049 x_display_info_for_name (name
)
4053 struct x_display_info
*dpyinfo
;
4055 CHECK_STRING (name
);
4058 if (! EQ (Vinitial_window_system
, intern ("x")))
4059 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4062 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4064 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4067 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4072 /* Use this general default value to start with. */
4073 Vx_resource_name
= Vinvocation_name
;
4075 validate_x_resource_name ();
4077 dpyinfo
= x_term_init (name
, (char *)0,
4078 (char *) SDATA (Vx_resource_name
));
4081 error ("Cannot connect to X server %s", SDATA (name
));
4084 XSETFASTINT (Vwindow_system_version
, 11);
4090 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4092 doc
: /* Open a connection to an X server.
4093 DISPLAY is the name of the display to connect to.
4094 Optional second arg XRM-STRING is a string of resources in xrdb format.
4095 If the optional third arg MUST-SUCCEED is non-nil,
4096 terminate Emacs if we can't open the connection. */)
4097 (display
, xrm_string
, must_succeed
)
4098 Lisp_Object display
, xrm_string
, must_succeed
;
4100 unsigned char *xrm_option
;
4101 struct x_display_info
*dpyinfo
;
4103 CHECK_STRING (display
);
4104 if (! NILP (xrm_string
))
4105 CHECK_STRING (xrm_string
);
4108 if (! EQ (Vinitial_window_system
, intern ("x")))
4109 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4112 if (! NILP (xrm_string
))
4113 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4115 xrm_option
= (unsigned char *) 0;
4117 validate_x_resource_name ();
4119 /* This is what opens the connection and sets x_current_display.
4120 This also initializes many symbols, such as those used for input. */
4121 dpyinfo
= x_term_init (display
, xrm_option
,
4122 (char *) SDATA (Vx_resource_name
));
4126 if (!NILP (must_succeed
))
4127 fatal ("Cannot connect to X server %s.\n\
4128 Check the DISPLAY environment variable or use `-d'.\n\
4129 Also use the `xauth' program to verify that you have the proper\n\
4130 authorization information needed to connect the X server.\n\
4131 An insecure way to solve the problem may be to use `xhost'.\n",
4134 error ("Cannot connect to X server %s", SDATA (display
));
4139 XSETFASTINT (Vwindow_system_version
, 11);
4143 DEFUN ("x-close-connection", Fx_close_connection
,
4144 Sx_close_connection
, 1, 1, 0,
4145 doc
: /* Close the connection to TERMINAL's X server.
4146 For TERMINAL, specify a terminal id, a frame or a display name (a
4147 string). If TERMINAL is nil, that stands for the selected frame's
4150 Lisp_Object terminal
;
4152 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4154 if (dpyinfo
->reference_count
> 0)
4155 error ("Display still has frames on it");
4157 x_delete_terminal (dpyinfo
->terminal
);
4162 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4163 doc
: /* Return the list of display names that Emacs has connections to. */)
4166 Lisp_Object tail
, result
;
4169 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4170 result
= Fcons (XCAR (XCAR (tail
)), result
);
4175 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4176 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4177 If ON is nil, allow buffering of requests.
4178 Turning on synchronization prohibits the Xlib routines from buffering
4179 requests and seriously degrades performance, but makes debugging much
4181 The optional second argument TERMINAL specifies which display to act on.
4182 TERMINAL should be a terminal id, a frame or a display name (a string).
4183 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4185 Lisp_Object terminal
, on
;
4187 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4189 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4194 /* Wait for responses to all X commands issued so far for frame F. */
4201 XSync (FRAME_X_DISPLAY (f
), False
);
4206 /***********************************************************************
4208 ***********************************************************************/
4210 DEFUN ("x-change-window-property", Fx_change_window_property
,
4211 Sx_change_window_property
, 2, 6, 0,
4212 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4213 PROP must be a string.
4214 VALUE may be a string or a list of conses, numbers and/or strings.
4215 If an element in the list is a string, it is converted to
4216 an Atom and the value of the Atom is used. If an element is a cons,
4217 it is converted to a 32 bit number where the car is the 16 top bits and the
4218 cdr is the lower 16 bits.
4219 FRAME nil or omitted means use the selected frame.
4220 If TYPE is given and non-nil, it is the name of the type of VALUE.
4221 If TYPE is not given or nil, the type is STRING.
4222 FORMAT gives the size in bits of each element if VALUE is a list.
4223 It must be one of 8, 16 or 32.
4224 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4225 If OUTER_P is non-nil, the property is changed for the outer X window of
4226 FRAME. Default is to change on the edit X window.
4229 (prop
, value
, frame
, type
, format
, outer_p
)
4230 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4232 struct frame
*f
= check_x_frame (frame
);
4234 Atom target_type
= XA_STRING
;
4235 int element_format
= 8;
4236 unsigned char *data
;
4240 CHECK_STRING (prop
);
4242 if (! NILP (format
))
4244 CHECK_NUMBER (format
);
4245 element_format
= XFASTINT (format
);
4247 if (element_format
!= 8 && element_format
!= 16
4248 && element_format
!= 32)
4249 error ("FORMAT must be one of 8, 16 or 32");
4254 nelements
= x_check_property_data (value
);
4255 if (nelements
== -1)
4256 error ("Bad data in VALUE, must be number, string or cons");
4258 if (element_format
== 8)
4259 data
= (unsigned char *) xmalloc (nelements
);
4260 else if (element_format
== 16)
4261 data
= (unsigned char *) xmalloc (nelements
*2);
4262 else /* format == 32 */
4263 /* The man page for XChangeProperty:
4264 "If the specified format is 32, the property data must be a
4266 This applies even if long is more than 64 bits. The X library
4267 converts to 32 bits before sending to the X server. */
4268 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4270 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4274 CHECK_STRING (value
);
4275 data
= SDATA (value
);
4276 nelements
= SCHARS (value
);
4280 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4283 CHECK_STRING (type
);
4284 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4287 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4288 else w
= FRAME_X_WINDOW (f
);
4290 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4291 prop_atom
, target_type
, element_format
, PropModeReplace
,
4294 if (CONSP (value
)) xfree (data
);
4296 /* Make sure the property is set when we return. */
4297 XFlush (FRAME_X_DISPLAY (f
));
4304 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4305 Sx_delete_window_property
, 1, 2, 0,
4306 doc
: /* Remove window property PROP from X window of FRAME.
4307 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4309 Lisp_Object prop
, frame
;
4311 struct frame
*f
= check_x_frame (frame
);
4314 CHECK_STRING (prop
);
4316 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4317 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4319 /* Make sure the property is removed when we return. */
4320 XFlush (FRAME_X_DISPLAY (f
));
4327 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4329 doc
: /* Value is the value of window property PROP on FRAME.
4330 If FRAME is nil or omitted, use the selected frame.
4331 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4332 is the name of the Atom that denotes the type expected.
4333 If SOURCE is non-nil, get the property on that window instead of from
4334 FRAME. The number 0 denotes the root window.
4335 If DELETE_P is non-nil, delete the property after retreiving it.
4336 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4338 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4339 no value of TYPE. */)
4340 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4341 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4343 struct frame
*f
= check_x_frame (frame
);
4346 Lisp_Object prop_value
= Qnil
;
4347 unsigned char *tmp_data
= NULL
;
4349 Atom target_type
= XA_STRING
;
4351 unsigned long actual_size
, bytes_remaining
;
4352 Window target_window
= FRAME_X_WINDOW (f
);
4353 struct gcpro gcpro1
;
4355 GCPRO1 (prop_value
);
4356 CHECK_STRING (prop
);
4358 if (! NILP (source
))
4360 if (NUMBERP (source
))
4362 if (FLOATP (source
))
4363 target_window
= (Window
) XFLOAT (source
);
4365 target_window
= XFASTINT (source
);
4367 if (target_window
== 0)
4368 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4370 else if (CONSP (source
))
4371 target_window
= cons_to_long (source
);
4377 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4378 target_type
= AnyPropertyType
;
4380 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4383 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4384 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4385 prop_atom
, 0, 0, False
, target_type
,
4386 &actual_type
, &actual_format
, &actual_size
,
4387 &bytes_remaining
, &tmp_data
);
4390 int size
= bytes_remaining
;
4395 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4396 prop_atom
, 0, bytes_remaining
,
4397 ! NILP (delete_p
), target_type
,
4398 &actual_type
, &actual_format
,
4399 &actual_size
, &bytes_remaining
,
4401 if (rc
== Success
&& tmp_data
)
4403 /* The man page for XGetWindowProperty says:
4404 "If the returned format is 32, the returned data is represented
4405 as a long array and should be cast to that type to obtain the
4407 This applies even if long is more than 32 bits, the X library
4408 converts from 32 bit elements received from the X server to long
4409 and passes the long array to us. Thus, for that case bcopy can not
4410 be used. We convert to a 32 bit type here, because so much code
4413 The bytes and offsets passed to XGetWindowProperty refers to the
4414 property and those are indeed in 32 bit quantities if format is
4417 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4420 int *idata
= (int *) tmp_data
;
4421 long *ldata
= (long *) tmp_data
;
4423 for (i
= 0; i
< actual_size
; ++i
)
4424 idata
[i
] = (int) ldata
[i
];
4427 if (NILP (vector_ret_p
))
4428 prop_value
= make_string (tmp_data
, size
);
4430 prop_value
= x_property_data_to_lisp (f
,
4437 if (tmp_data
) XFree (tmp_data
);
4447 /***********************************************************************
4449 ***********************************************************************/
4451 /* If non-null, an asynchronous timer that, when it expires, displays
4452 an hourglass cursor on all frames. */
4454 static struct atimer
*hourglass_atimer
;
4456 /* Non-zero means an hourglass cursor is currently shown. */
4458 static int hourglass_shown_p
;
4460 /* Number of seconds to wait before displaying an hourglass cursor. */
4462 static Lisp_Object Vhourglass_delay
;
4464 /* Default number of seconds to wait before displaying an hourglass
4467 #define DEFAULT_HOURGLASS_DELAY 1
4469 /* Function prototypes. */
4471 static void show_hourglass
P_ ((struct atimer
*));
4472 static void hide_hourglass
P_ ((void));
4474 /* Return non-zero if houglass timer has been started or hourglass is shown. */
4477 hourglass_started ()
4479 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
4483 /* Cancel a currently active hourglass timer, and start a new one. */
4489 int secs
, usecs
= 0;
4491 cancel_hourglass ();
4493 if (INTEGERP (Vhourglass_delay
)
4494 && XINT (Vhourglass_delay
) > 0)
4495 secs
= XFASTINT (Vhourglass_delay
);
4496 else if (FLOATP (Vhourglass_delay
)
4497 && XFLOAT_DATA (Vhourglass_delay
) > 0)
4500 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
4501 secs
= XFASTINT (tem
);
4502 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
4505 secs
= DEFAULT_HOURGLASS_DELAY
;
4507 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
4508 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
4509 show_hourglass
, NULL
);
4513 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
4519 if (hourglass_atimer
)
4521 cancel_atimer (hourglass_atimer
);
4522 hourglass_atimer
= NULL
;
4525 if (hourglass_shown_p
)
4530 /* Timer function of hourglass_atimer. TIMER is equal to
4533 Display an hourglass pointer on all frames by mapping the frames'
4534 hourglass_window. Set the hourglass_p flag in the frames'
4535 output_data.x structure to indicate that an hourglass cursor is
4536 shown on the frames. */
4539 show_hourglass (timer
)
4540 struct atimer
*timer
;
4542 /* The timer implementation will cancel this timer automatically
4543 after this function has run. Set hourglass_atimer to null
4544 so that we know the timer doesn't have to be canceled. */
4545 hourglass_atimer
= NULL
;
4547 if (!hourglass_shown_p
)
4549 Lisp_Object rest
, frame
;
4553 FOR_EACH_FRAME (rest
, frame
)
4555 struct frame
*f
= XFRAME (frame
);
4557 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4559 Display
*dpy
= FRAME_X_DISPLAY (f
);
4561 #ifdef USE_X_TOOLKIT
4562 if (f
->output_data
.x
->widget
)
4564 if (FRAME_OUTER_WINDOW (f
))
4567 f
->output_data
.x
->hourglass_p
= 1;
4569 if (!f
->output_data
.x
->hourglass_window
)
4571 unsigned long mask
= CWCursor
;
4572 XSetWindowAttributes attrs
;
4574 Window parent
= FRAME_X_WINDOW (f
);
4576 Window parent
= FRAME_OUTER_WINDOW (f
);
4578 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4580 f
->output_data
.x
->hourglass_window
4581 = XCreateWindow (dpy
, parent
,
4582 0, 0, 32000, 32000, 0, 0,
4588 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4594 hourglass_shown_p
= 1;
4600 /* Hide the hourglass pointer on all frames, if it is currently
4606 if (hourglass_shown_p
)
4608 Lisp_Object rest
, frame
;
4611 FOR_EACH_FRAME (rest
, frame
)
4613 struct frame
*f
= XFRAME (frame
);
4616 /* Watch out for newly created frames. */
4617 && f
->output_data
.x
->hourglass_window
)
4619 XUnmapWindow (FRAME_X_DISPLAY (f
),
4620 f
->output_data
.x
->hourglass_window
);
4621 /* Sync here because XTread_socket looks at the
4622 hourglass_p flag that is reset to zero below. */
4623 XSync (FRAME_X_DISPLAY (f
), False
);
4624 f
->output_data
.x
->hourglass_p
= 0;
4628 hourglass_shown_p
= 0;
4635 /***********************************************************************
4637 ***********************************************************************/
4639 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4640 Lisp_Object
, Lisp_Object
));
4641 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4642 Lisp_Object
, int, int, int *, int *));
4644 /* The frame of a currently visible tooltip. */
4646 Lisp_Object tip_frame
;
4648 /* If non-nil, a timer started that hides the last tooltip when it
4651 Lisp_Object tip_timer
;
4654 /* If non-nil, a vector of 3 elements containing the last args
4655 with which x-show-tip was called. See there. */
4657 Lisp_Object last_show_tip_args
;
4659 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4661 Lisp_Object Vx_max_tooltip_size
;
4665 unwind_create_tip_frame (frame
)
4668 Lisp_Object deleted
;
4670 deleted
= unwind_create_frame (frame
);
4671 if (EQ (deleted
, Qt
))
4681 /* Create a frame for a tooltip on the display described by DPYINFO.
4682 PARMS is a list of frame parameters. TEXT is the string to
4683 display in the tip frame. Value is the frame.
4685 Note that functions called here, esp. x_default_parameter can
4686 signal errors, for instance when a specified color name is
4687 undefined. We have to make sure that we're in a consistent state
4688 when this happens. */
4691 x_create_tip_frame (dpyinfo
, parms
, text
)
4692 struct x_display_info
*dpyinfo
;
4693 Lisp_Object parms
, text
;
4696 Lisp_Object frame
, tem
;
4698 long window_prompting
= 0;
4700 int count
= SPECPDL_INDEX ();
4701 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4702 int face_change_count_before
= face_change_count
;
4704 struct buffer
*old_buffer
;
4708 if (!dpyinfo
->terminal
->name
)
4709 error ("Terminal is not live, can't create new frames on it");
4711 parms
= Fcopy_alist (parms
);
4713 /* Get the name of the frame to use for resource lookup. */
4714 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4716 && !EQ (name
, Qunbound
)
4718 error ("Invalid frame name--not a string or nil");
4721 GCPRO3 (parms
, name
, frame
);
4723 XSETFRAME (frame
, f
);
4725 buffer
= Fget_buffer_create (build_string (" *tip*"));
4726 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4727 old_buffer
= current_buffer
;
4728 set_buffer_internal_1 (XBUFFER (buffer
));
4729 current_buffer
->truncate_lines
= Qnil
;
4730 specbind (Qinhibit_read_only
, Qt
);
4731 specbind (Qinhibit_modification_hooks
, Qt
);
4734 set_buffer_internal_1 (old_buffer
);
4736 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4737 record_unwind_protect (unwind_create_tip_frame
, frame
);
4739 f
->terminal
= dpyinfo
->terminal
;
4740 f
->terminal
->reference_count
++;
4742 /* By setting the output method, we're essentially saying that
4743 the frame is live, as per FRAME_LIVE_P. If we get a signal
4744 from this point on, x_destroy_window might screw up reference
4746 f
->output_method
= output_x_window
;
4747 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4748 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4749 f
->output_data
.x
->icon_bitmap
= -1;
4750 FRAME_FONTSET (f
) = -1;
4751 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4752 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4753 #ifdef USE_TOOLKIT_SCROLL_BARS
4754 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4755 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4756 #endif /* USE_TOOLKIT_SCROLL_BARS */
4757 f
->icon_name
= Qnil
;
4758 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4760 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
4761 dpyinfo_refcount
= dpyinfo
->reference_count
;
4762 #endif /* GLYPH_DEBUG */
4763 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4764 f
->output_data
.x
->explicit_parent
= 0;
4766 /* These colors will be set anyway later, but it's important
4767 to get the color reference counts right, so initialize them! */
4770 struct gcpro gcpro1
;
4772 /* Function x_decode_color can signal an error. Make
4773 sure to initialize color slots so that we won't try
4774 to free colors we haven't allocated. */
4775 FRAME_FOREGROUND_PIXEL (f
) = -1;
4776 FRAME_BACKGROUND_PIXEL (f
) = -1;
4777 f
->output_data
.x
->cursor_pixel
= -1;
4778 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4779 f
->output_data
.x
->border_pixel
= -1;
4780 f
->output_data
.x
->mouse_pixel
= -1;
4782 black
= build_string ("black");
4784 FRAME_FOREGROUND_PIXEL (f
)
4785 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4786 FRAME_BACKGROUND_PIXEL (f
)
4787 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4788 f
->output_data
.x
->cursor_pixel
4789 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4790 f
->output_data
.x
->cursor_foreground_pixel
4791 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4792 f
->output_data
.x
->border_pixel
4793 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4794 f
->output_data
.x
->mouse_pixel
4795 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4799 /* Set the name; the functions to which we pass f expect the name to
4801 if (EQ (name
, Qunbound
) || NILP (name
))
4803 f
->name
= build_string (dpyinfo
->x_id_name
);
4804 f
->explicit_name
= 0;
4809 f
->explicit_name
= 1;
4810 /* use the frame's title when getting resources for this frame. */
4811 specbind (Qx_resource_name
, name
);
4814 f
->resx
= dpyinfo
->resx
;
4815 f
->resy
= dpyinfo
->resy
;
4817 #ifdef HAVE_FREETYPE
4819 register_font_driver (&xftfont_driver
, f
);
4820 #else /* not HAVE_XFT */
4821 register_font_driver (&ftxfont_driver
, f
);
4822 #endif /* not HAVE_XFT */
4823 #endif /* HAVE_FREETYPE */
4824 register_font_driver (&xfont_driver
, f
);
4826 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4827 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4829 /* Extract the window parameters from the supplied values that are
4830 needed to determine window geometry. */
4831 x_default_font_parameter (f
, parms
);
4833 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4834 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4836 /* This defaults to 2 in order to match xterm. We recognize either
4837 internalBorderWidth or internalBorder (which is what xterm calls
4839 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4843 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4844 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4845 if (! EQ (value
, Qunbound
))
4846 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4850 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4851 "internalBorderWidth", "internalBorderWidth",
4854 /* Also do the stuff which must be set before the window exists. */
4855 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4856 "foreground", "Foreground", RES_TYPE_STRING
);
4857 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4858 "background", "Background", RES_TYPE_STRING
);
4859 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4860 "pointerColor", "Foreground", RES_TYPE_STRING
);
4861 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4862 "cursorColor", "Foreground", RES_TYPE_STRING
);
4863 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4864 "borderColor", "BorderColor", RES_TYPE_STRING
);
4866 /* Init faces before x_default_parameter is called for scroll-bar
4867 parameters because that function calls x_set_scroll_bar_width,
4868 which calls change_frame_size, which calls Fset_window_buffer,
4869 which runs hooks, which call Fvertical_motion. At the end, we
4870 end up in init_iterator with a null face cache, which should not
4872 init_frame_faces (f
);
4874 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4876 window_prompting
= x_figure_window_size (f
, parms
, 0);
4879 XSetWindowAttributes attrs
;
4883 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4884 if (DoesSaveUnders (dpyinfo
->screen
))
4885 mask
|= CWSaveUnder
;
4887 /* Window managers look at the override-redirect flag to determine
4888 whether or net to give windows a decoration (Xlib spec, chapter
4890 attrs
.override_redirect
= True
;
4891 attrs
.save_under
= True
;
4892 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4893 /* Arrange for getting MapNotify and UnmapNotify events. */
4894 attrs
.event_mask
= StructureNotifyMask
;
4896 = FRAME_X_WINDOW (f
)
4897 = XCreateWindow (FRAME_X_DISPLAY (f
),
4898 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4899 /* x, y, width, height */
4903 CopyFromParent
, InputOutput
, CopyFromParent
,
4910 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4911 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4912 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4913 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4914 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4915 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4917 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4918 Change will not be effected unless different from the current
4920 width
= FRAME_COLS (f
);
4921 height
= FRAME_LINES (f
);
4922 SET_FRAME_COLS (f
, 0);
4923 FRAME_LINES (f
) = 0;
4924 change_frame_size (f
, height
, width
, 1, 0, 0);
4926 /* Add `tooltip' frame parameter's default value. */
4927 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4928 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4931 /* FIXME - can this be done in a similar way to normal frames?
4932 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
4934 /* Set the `display-type' frame parameter before setting up faces. */
4936 Lisp_Object disptype
;
4938 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4939 disptype
= intern ("mono");
4940 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
4941 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4942 disptype
= intern ("grayscale");
4944 disptype
= intern ("color");
4946 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4947 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4951 /* Set up faces after all frame parameters are known. This call
4952 also merges in face attributes specified for new frames.
4954 Frame parameters may be changed if .Xdefaults contains
4955 specifications for the default font. For example, if there is an
4956 `Emacs.default.attributeBackground: pink', the `background-color'
4957 attribute of the frame get's set, which let's the internal border
4958 of the tooltip frame appear in pink. Prevent this. */
4960 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4962 /* Set tip_frame here, so that */
4964 call1 (Qface_set_after_frame_default
, frame
);
4966 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4967 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4975 /* It is now ok to make the frame official even if we get an error
4976 below. And the frame needs to be on Vframe_list or making it
4977 visible won't work. */
4978 Vframe_list
= Fcons (frame
, Vframe_list
);
4980 /* Now that the frame is official, it counts as a reference to
4982 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4984 /* Setting attributes of faces of the tooltip frame from resources
4985 and similar will increment face_change_count, which leads to the
4986 clearing of all current matrices. Since this isn't necessary
4987 here, avoid it by resetting face_change_count to the value it
4988 had before we created the tip frame. */
4989 face_change_count
= face_change_count_before
;
4991 /* Discard the unwind_protect. */
4992 return unbind_to (count
, frame
);
4996 /* Compute where to display tip frame F. PARMS is the list of frame
4997 parameters for F. DX and DY are specified offsets from the current
4998 location of the mouse. WIDTH and HEIGHT are the width and height
4999 of the tooltip. Return coordinates relative to the root window of
5000 the display in *ROOT_X, and *ROOT_Y. */
5003 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
5005 Lisp_Object parms
, dx
, dy
;
5007 int *root_x
, *root_y
;
5009 Lisp_Object left
, top
;
5014 /* User-specified position? */
5015 left
= Fcdr (Fassq (Qleft
, parms
));
5016 top
= Fcdr (Fassq (Qtop
, parms
));
5018 /* Move the tooltip window where the mouse pointer is. Resize and
5020 if (!INTEGERP (left
) || !INTEGERP (top
))
5023 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
5024 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
5029 *root_y
= XINT (top
);
5030 else if (*root_y
+ XINT (dy
) <= 0)
5031 *root_y
= 0; /* Can happen for negative dy */
5032 else if (*root_y
+ XINT (dy
) + height
<= FRAME_X_DISPLAY_INFO (f
)->height
)
5033 /* It fits below the pointer */
5034 *root_y
+= XINT (dy
);
5035 else if (height
+ XINT (dy
) <= *root_y
)
5036 /* It fits above the pointer. */
5037 *root_y
-= height
+ XINT (dy
);
5039 /* Put it on the top. */
5042 if (INTEGERP (left
))
5043 *root_x
= XINT (left
);
5044 else if (*root_x
+ XINT (dx
) <= 0)
5045 *root_x
= 0; /* Can happen for negative dx */
5046 else if (*root_x
+ XINT (dx
) + width
<= FRAME_X_DISPLAY_INFO (f
)->width
)
5047 /* It fits to the right of the pointer. */
5048 *root_x
+= XINT (dx
);
5049 else if (width
+ XINT (dx
) <= *root_x
)
5050 /* It fits to the left of the pointer. */
5051 *root_x
-= width
+ XINT (dx
);
5053 /* Put it left-justified on the screen--it ought to fit that way. */
5058 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5059 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5060 A tooltip window is a small X window displaying a string.
5062 This is an internal function; Lisp code should call `tooltip-show'.
5064 FRAME nil or omitted means use the selected frame.
5066 PARMS is an optional list of frame parameters which can be used to
5067 change the tooltip's appearance.
5069 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5070 means use the default timeout of 5 seconds.
5072 If the list of frame parameters PARAMS contains a `left' parameters,
5073 the tooltip is displayed at that x-position. Otherwise it is
5074 displayed at the mouse position, with offset DX added (default is 5 if
5075 DX isn't specified). Likewise for the y-position; if a `top' frame
5076 parameter is specified, it determines the y-position of the tooltip
5077 window, otherwise it is displayed at the mouse position, with offset
5078 DY added (default is -10).
5080 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5081 Text larger than the specified size is clipped. */)
5082 (string
, frame
, parms
, timeout
, dx
, dy
)
5083 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
5088 struct buffer
*old_buffer
;
5089 struct text_pos pos
;
5090 int i
, width
, height
;
5091 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5092 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5093 int count
= SPECPDL_INDEX ();
5095 specbind (Qinhibit_redisplay
, Qt
);
5097 GCPRO4 (string
, parms
, frame
, timeout
);
5099 CHECK_STRING (string
);
5100 if (SCHARS (string
) == 0)
5101 string
= make_unibyte_string (" ", 1);
5103 f
= check_x_frame (frame
);
5105 timeout
= make_number (5);
5107 CHECK_NATNUM (timeout
);
5110 dx
= make_number (5);
5115 dy
= make_number (-10);
5119 if (NILP (last_show_tip_args
))
5120 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5122 if (!NILP (tip_frame
))
5124 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5125 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5126 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5128 if (EQ (frame
, last_frame
)
5129 && !NILP (Fequal (last_string
, string
))
5130 && !NILP (Fequal (last_parms
, parms
)))
5132 struct frame
*f
= XFRAME (tip_frame
);
5134 /* Only DX and DY have changed. */
5135 if (!NILP (tip_timer
))
5137 Lisp_Object timer
= tip_timer
;
5139 call1 (Qcancel_timer
, timer
);
5143 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5144 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5145 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5152 /* Hide a previous tip, if any. */
5155 ASET (last_show_tip_args
, 0, string
);
5156 ASET (last_show_tip_args
, 1, frame
);
5157 ASET (last_show_tip_args
, 2, parms
);
5159 /* Add default values to frame parameters. */
5160 if (NILP (Fassq (Qname
, parms
)))
5161 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5162 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5163 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5164 if (NILP (Fassq (Qborder_width
, parms
)))
5165 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5166 if (NILP (Fassq (Qborder_color
, parms
)))
5167 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5168 if (NILP (Fassq (Qbackground_color
, parms
)))
5169 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5172 /* Create a frame for the tooltip, and record it in the global
5173 variable tip_frame. */
5174 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5177 /* Set up the frame's root window. */
5178 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5179 w
->left_col
= w
->top_line
= make_number (0);
5181 if (CONSP (Vx_max_tooltip_size
)
5182 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5183 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5184 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5185 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5187 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5188 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5192 w
->total_cols
= make_number (80);
5193 w
->total_lines
= make_number (40);
5196 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5198 w
->pseudo_window_p
= 1;
5200 /* Display the tooltip text in a temporary buffer. */
5201 old_buffer
= current_buffer
;
5202 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5203 current_buffer
->truncate_lines
= Qnil
;
5204 clear_glyph_matrix (w
->desired_matrix
);
5205 clear_glyph_matrix (w
->current_matrix
);
5206 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5207 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5209 /* Compute width and height of the tooltip. */
5211 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5213 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5217 /* Stop at the first empty row at the end. */
5218 if (!row
->enabled_p
|| !row
->displays_text_p
)
5221 /* Let the row go over the full width of the frame. */
5222 row
->full_width_p
= 1;
5224 /* There's a glyph at the end of rows that is used to place
5225 the cursor there. Don't include the width of this glyph. */
5226 if (row
->used
[TEXT_AREA
])
5228 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5229 row_width
= row
->pixel_width
- last
->pixel_width
;
5232 row_width
= row
->pixel_width
;
5234 height
+= row
->height
;
5235 width
= max (width
, row_width
);
5238 /* Add the frame's internal border to the width and height the X
5239 window should have. */
5240 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5241 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5243 /* Move the tooltip window where the mouse pointer is. Resize and
5245 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5248 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5249 root_x
, root_y
, width
, height
);
5250 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5253 /* Draw into the window. */
5254 w
->must_be_updated_p
= 1;
5255 update_single_window (w
, 1);
5257 /* Restore original current buffer. */
5258 set_buffer_internal_1 (old_buffer
);
5259 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5262 /* Let the tip disappear after timeout seconds. */
5263 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5264 intern ("x-hide-tip"));
5267 return unbind_to (count
, Qnil
);
5271 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5272 doc
: /* Hide the current tooltip window, if there is any.
5273 Value is t if tooltip was open, nil otherwise. */)
5277 Lisp_Object deleted
, frame
, timer
;
5278 struct gcpro gcpro1
, gcpro2
;
5280 /* Return quickly if nothing to do. */
5281 if (NILP (tip_timer
) && NILP (tip_frame
))
5286 GCPRO2 (frame
, timer
);
5287 tip_frame
= tip_timer
= deleted
= Qnil
;
5289 count
= SPECPDL_INDEX ();
5290 specbind (Qinhibit_redisplay
, Qt
);
5291 specbind (Qinhibit_quit
, Qt
);
5294 call1 (Qcancel_timer
, timer
);
5298 Fdelete_frame (frame
, Qnil
);
5302 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5303 redisplay procedure is not called when a tip frame over menu
5304 items is unmapped. Redisplay the menu manually... */
5306 struct frame
*f
= SELECTED_FRAME ();
5307 Widget w
= f
->output_data
.x
->menubar_widget
;
5308 extern void xlwmenu_redisplay
P_ ((Widget
));
5310 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5314 xlwmenu_redisplay (w
);
5318 #endif /* USE_LUCID */
5322 return unbind_to (count
, deleted
);
5327 /***********************************************************************
5328 File selection dialog
5329 ***********************************************************************/
5331 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5332 Sx_uses_old_gtk_dialog
,
5334 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5338 extern int use_dialog_box
;
5339 extern int use_file_dialog
;
5344 && xg_uses_old_file_dialog ())
5352 /* Callback for "OK" and "Cancel" on file selection dialog. */
5355 file_dialog_cb (widget
, client_data
, call_data
)
5357 XtPointer call_data
, client_data
;
5359 int *result
= (int *) client_data
;
5360 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5361 *result
= cb
->reason
;
5365 /* Callback for unmapping a file selection dialog. This is used to
5366 capture the case where a dialog is closed via a window manager's
5367 closer button, for example. Using a XmNdestroyCallback didn't work
5371 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5373 XtPointer call_data
, client_data
;
5375 int *result
= (int *) client_data
;
5376 *result
= XmCR_CANCEL
;
5380 clean_up_file_dialog (arg
)
5383 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5384 Widget dialog
= (Widget
) p
->pointer
;
5388 XtUnmanageChild (dialog
);
5389 XtDestroyWidget (dialog
);
5390 x_menu_set_in_use (0);
5397 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5398 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5399 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5400 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5401 or directory must exist. ONLY-DIR-P is ignored." */)
5402 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5403 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5406 struct frame
*f
= SELECTED_FRAME ();
5407 Lisp_Object file
= Qnil
;
5408 Lisp_Object decoded_file
;
5409 Widget dialog
, text
, help
;
5412 extern XtAppContext Xt_app_con
;
5413 XmString dir_xmstring
, pattern_xmstring
;
5414 int count
= SPECPDL_INDEX ();
5415 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5419 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5421 if (popup_activated ())
5422 error ("Trying to use a menu from within a menu-entry");
5424 CHECK_STRING (prompt
);
5427 /* Prevent redisplay. */
5428 specbind (Qinhibit_redisplay
, Qt
);
5432 /* Create the dialog with PROMPT as title, using DIR as initial
5433 directory and using "*" as pattern. */
5434 dir
= Fexpand_file_name (dir
, Qnil
);
5435 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5436 pattern_xmstring
= XmStringCreateLocalized ("*");
5438 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5439 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5440 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5441 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5442 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5443 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5445 XmStringFree (dir_xmstring
);
5446 XmStringFree (pattern_xmstring
);
5448 /* Add callbacks for OK and Cancel. */
5449 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5450 (XtPointer
) &result
);
5451 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5452 (XtPointer
) &result
);
5453 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5454 (XtPointer
) &result
);
5456 /* Remove the help button since we can't display help. */
5457 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5458 XtUnmanageChild (help
);
5460 /* Mark OK button as default. */
5461 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5462 XmNshowAsDefault
, True
, NULL
);
5464 /* If MUSTMATCH is non-nil, disable the file entry field of the
5465 dialog, so that the user must select a file from the files list
5466 box. We can't remove it because we wouldn't have a way to get at
5467 the result file name, then. */
5468 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5469 if (!NILP (mustmatch
))
5472 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5473 XtSetSensitive (text
, False
);
5474 XtSetSensitive (label
, False
);
5477 /* Manage the dialog, so that list boxes get filled. */
5478 XtManageChild (dialog
);
5480 if (STRINGP (default_filename
))
5482 XmString default_xmstring
;
5483 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5484 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5486 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5487 XmTextFieldReplace (wtext
, 0, last_pos
,
5488 (SDATA (Ffile_name_nondirectory (default_filename
))));
5490 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5491 must include the path for this to work. */
5493 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5495 if (XmListItemExists (list
, default_xmstring
))
5497 int item_pos
= XmListItemPos (list
, default_xmstring
);
5498 /* Select the item and scroll it into view. */
5499 XmListSelectPos (list
, item_pos
, True
);
5500 XmListSetPos (list
, item_pos
);
5503 XmStringFree (default_xmstring
);
5506 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5508 /* Process events until the user presses Cancel or OK. */
5509 x_menu_set_in_use (1);
5514 x_menu_wait_for_event (0);
5515 XtAppNextEvent (Xt_app_con
, &event
);
5516 if (event
.type
== KeyPress
5517 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5519 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5521 /* Pop down on C-g. */
5522 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5523 XtUnmanageChild (dialog
);
5526 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5529 /* Get the result. */
5530 if (result
== XmCR_OK
)
5535 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5536 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5537 XmStringFree (text
);
5538 file
= build_string (data
);
5547 /* Make "Cancel" equivalent to C-g. */
5549 Fsignal (Qquit
, Qnil
);
5551 decoded_file
= DECODE_FILE (file
);
5553 return unbind_to (count
, decoded_file
);
5556 #endif /* USE_MOTIF */
5561 clean_up_dialog (arg
)
5564 x_menu_set_in_use (0);
5569 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5570 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5571 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5572 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5573 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5575 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5576 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5578 FRAME_PTR f
= SELECTED_FRAME ();
5580 Lisp_Object file
= Qnil
;
5581 Lisp_Object decoded_file
;
5582 int count
= SPECPDL_INDEX ();
5583 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5588 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5590 if (popup_activated ())
5591 error ("Trying to use a menu from within a menu-entry");
5593 CHECK_STRING (prompt
);
5596 /* Prevent redisplay. */
5597 specbind (Qinhibit_redisplay
, Qt
);
5598 record_unwind_protect (clean_up_dialog
, Qnil
);
5602 if (STRINGP (default_filename
))
5603 cdef_file
= SDATA (default_filename
);
5605 cdef_file
= SDATA (dir
);
5607 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5609 ! NILP (only_dir_p
));
5613 file
= build_string (fn
);
5620 /* Make "Cancel" equivalent to C-g. */
5622 Fsignal (Qquit
, Qnil
);
5624 decoded_file
= DECODE_FILE (file
);
5626 return unbind_to (count
, decoded_file
);
5629 #endif /* USE_GTK */
5632 /***********************************************************************
5634 ***********************************************************************/
5636 #ifdef HAVE_XKBGETKEYBOARD
5637 #include <X11/XKBlib.h>
5638 #include <X11/keysym.h>
5641 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5642 Sx_backspace_delete_keys_p
, 0, 1, 0,
5643 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5644 FRAME nil means use the selected frame.
5645 Value is t if we know that both keys are present, and are mapped to the
5646 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5647 present and mapped to the usual X keysyms. */)
5651 #ifdef HAVE_XKBGETKEYBOARD
5653 struct frame
*f
= check_x_frame (frame
);
5654 Display
*dpy
= FRAME_X_DISPLAY (f
);
5655 Lisp_Object have_keys
;
5656 int major
, minor
, op
, event
, error
;
5660 /* Check library version in case we're dynamically linked. */
5661 major
= XkbMajorVersion
;
5662 minor
= XkbMinorVersion
;
5663 if (!XkbLibraryVersion (&major
, &minor
))
5669 /* Check that the server supports XKB. */
5670 major
= XkbMajorVersion
;
5671 minor
= XkbMinorVersion
;
5672 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5678 /* In this code we check that the keyboard has physical keys with names
5679 that start with BKSP (Backspace) and DELE (Delete), and that they
5680 generate keysym XK_BackSpace and XK_Delete respectively.
5681 This function is used to test if normal-erase-is-backspace should be
5683 An alternative approach would be to just check if XK_BackSpace and
5684 XK_Delete are mapped to any key. But if any of those are mapped to
5685 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5686 user doesn't know about it, it is better to return false here.
5687 It is more obvious to the user what to do if she/he has two keys
5688 clearly marked with names/symbols and one key does something not
5689 expected (i.e. she/he then tries the other).
5690 The cases where Backspace/Delete is mapped to some other key combination
5691 are rare, and in those cases, normal-erase-is-backspace can be turned on
5695 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5698 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5700 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5702 for (i
= kb
->min_key_code
;
5703 (i
< kb
->max_key_code
5704 && (delete_keycode
== 0 || backspace_keycode
== 0));
5707 /* The XKB symbolic key names can be seen most easily in
5708 the PS file generated by `xkbprint -label name
5710 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5712 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5713 backspace_keycode
= i
;
5716 XkbFreeNames (kb
, 0, True
);
5719 XkbFreeClientMap (kb
, 0, True
);
5722 && backspace_keycode
5723 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5724 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5729 #else /* not HAVE_XKBGETKEYBOARD */
5731 #endif /* not HAVE_XKBGETKEYBOARD */
5736 /***********************************************************************
5738 ***********************************************************************/
5740 /* Keep this list in the same order as frame_parms in frame.c.
5741 Use 0 for unsupported frame parameters. */
5743 frame_parm_handler x_frame_parm_handlers
[] =
5747 x_set_background_color
,
5753 x_set_foreground_color
,
5756 x_set_internal_border_width
,
5757 x_set_menu_bar_lines
,
5759 x_explicitly_set_name
,
5760 x_set_scroll_bar_width
,
5763 x_set_vertical_scroll_bars
,
5765 x_set_tool_bar_lines
,
5766 x_set_scroll_bar_foreground
,
5767 x_set_scroll_bar_background
,
5780 /* This is zero if not using X windows. */
5783 /* The section below is built by the lisp expression at the top of the file,
5784 just above where these variables are declared. */
5785 /*&&& init symbols here &&&*/
5786 Qnone
= intern ("none");
5788 Qsuppress_icon
= intern ("suppress-icon");
5789 staticpro (&Qsuppress_icon
);
5790 Qundefined_color
= intern ("undefined-color");
5791 staticpro (&Qundefined_color
);
5792 Qcompound_text
= intern ("compound-text");
5793 staticpro (&Qcompound_text
);
5794 Qcancel_timer
= intern ("cancel-timer");
5795 staticpro (&Qcancel_timer
);
5796 /* This is the end of symbol initialization. */
5798 /* Text property `display' should be nonsticky by default. */
5799 Vtext_property_default_nonsticky
5800 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5803 Fput (Qundefined_color
, Qerror_conditions
,
5804 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
5805 Fput (Qundefined_color
, Qerror_message
,
5806 build_string ("Undefined color"));
5808 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5809 doc
: /* The shape of the pointer when over text.
5810 Changing the value does not affect existing frames
5811 unless you set the mouse color. */);
5812 Vx_pointer_shape
= Qnil
;
5814 #if 0 /* This doesn't really do anything. */
5815 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5816 doc
: /* The shape of the pointer when not over text.
5817 This variable takes effect when you create a new frame
5818 or when you set the mouse color. */);
5820 Vx_nontext_pointer_shape
= Qnil
;
5822 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5823 doc
: /* The shape of the pointer when Emacs is busy.
5824 This variable takes effect when you create a new frame
5825 or when you set the mouse color. */);
5826 Vx_hourglass_pointer_shape
= Qnil
;
5828 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
5829 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
5830 display_hourglass_p
= 1;
5832 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
5833 doc
: /* *Seconds to wait before displaying an hourglass pointer.
5834 Value must be an integer or float. */);
5835 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
5837 #if 0 /* This doesn't really do anything. */
5838 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5839 doc
: /* The shape of the pointer when over the mode line.
5840 This variable takes effect when you create a new frame
5841 or when you set the mouse color. */);
5843 Vx_mode_pointer_shape
= Qnil
;
5845 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5846 &Vx_sensitive_text_pointer_shape
,
5847 doc
: /* The shape of the pointer when over mouse-sensitive text.
5848 This variable takes effect when you create a new frame
5849 or when you set the mouse color. */);
5850 Vx_sensitive_text_pointer_shape
= Qnil
;
5852 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5853 &Vx_window_horizontal_drag_shape
,
5854 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5855 This variable takes effect when you create a new frame
5856 or when you set the mouse color. */);
5857 Vx_window_horizontal_drag_shape
= Qnil
;
5859 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5860 doc
: /* A string indicating the foreground color of the cursor box. */);
5861 Vx_cursor_fore_pixel
= Qnil
;
5863 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5864 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5865 Text larger than this is clipped. */);
5866 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5868 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5869 doc
: /* Non-nil if no X window manager is in use.
5870 Emacs doesn't try to figure this out; this is always nil
5871 unless you set it to something else. */);
5872 /* We don't have any way to find this out, so set it to nil
5873 and maybe the user would like to set it to t. */
5874 Vx_no_window_manager
= Qnil
;
5876 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5877 &Vx_pixel_size_width_font_regexp
,
5878 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5880 Since Emacs gets width of a font matching with this regexp from
5881 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5882 such a font. This is especially effective for such large fonts as
5883 Chinese, Japanese, and Korean. */);
5884 Vx_pixel_size_width_font_regexp
= Qnil
;
5886 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5887 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", &x_gtk_use_old_file_dialog
,
5888 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5889 If nil or if the file selection dialog is not available, the new GTK file
5890 chooser is used instead. To turn off all file dialogs set the
5891 variable `use-file-dialog'. */);
5892 x_gtk_use_old_file_dialog
= 0;
5894 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5895 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5896 Note that this is just the default, there is a toggle button on the file
5897 chooser to show or not show hidden files on a case by case basis. */);
5898 x_gtk_show_hidden_files
= 0;
5900 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", &x_gtk_file_dialog_help_text
,
5901 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
5902 If more space for files in the file chooser dialog is wanted, set this to nil
5903 to turn the additional text off. */);
5904 x_gtk_file_dialog_help_text
= 1;
5906 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
5907 doc
: /* *If non-nil, a detached tool bar is shown in full.
5908 The default is to just show an arrow and pressing on that arrow shows
5909 the tool bar buttons. */);
5910 x_gtk_whole_detached_tool_bar
= 0;
5912 Fprovide (intern ("x"), Qnil
);
5914 #ifdef USE_X_TOOLKIT
5915 Fprovide (intern ("x-toolkit"), Qnil
);
5917 Fprovide (intern ("motif"), Qnil
);
5919 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5920 doc
: /* Version info for LessTif/Motif. */);
5921 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5922 #endif /* USE_MOTIF */
5923 #endif /* USE_X_TOOLKIT */
5926 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5927 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5928 But for a user it is a toolkit for X, and indeed, configure
5929 accepts --with-x-toolkit=gtk. */
5930 Fprovide (intern ("x-toolkit"), Qnil
);
5931 Fprovide (intern ("gtk"), Qnil
);
5933 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5934 doc
: /* Version info for GTK+. */);
5936 char gtk_version
[40];
5937 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5938 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5939 Vgtk_version_string
= build_string (gtk_version
);
5941 #endif /* USE_GTK */
5943 /* X window properties. */
5944 defsubr (&Sx_change_window_property
);
5945 defsubr (&Sx_delete_window_property
);
5946 defsubr (&Sx_window_property
);
5948 defsubr (&Sxw_display_color_p
);
5949 defsubr (&Sx_display_grayscale_p
);
5950 defsubr (&Sxw_color_defined_p
);
5951 defsubr (&Sxw_color_values
);
5952 defsubr (&Sx_server_max_request_size
);
5953 defsubr (&Sx_server_vendor
);
5954 defsubr (&Sx_server_version
);
5955 defsubr (&Sx_display_pixel_width
);
5956 defsubr (&Sx_display_pixel_height
);
5957 defsubr (&Sx_display_mm_width
);
5958 defsubr (&Sx_display_mm_height
);
5959 defsubr (&Sx_display_screens
);
5960 defsubr (&Sx_display_planes
);
5961 defsubr (&Sx_display_color_cells
);
5962 defsubr (&Sx_display_visual_class
);
5963 defsubr (&Sx_display_backing_store
);
5964 defsubr (&Sx_display_save_under
);
5965 defsubr (&Sx_create_frame
);
5966 defsubr (&Sx_open_connection
);
5967 defsubr (&Sx_close_connection
);
5968 defsubr (&Sx_display_list
);
5969 defsubr (&Sx_synchronize
);
5970 defsubr (&Sx_focus_frame
);
5971 defsubr (&Sx_backspace_delete_keys_p
);
5973 /* Setting callback functions for fontset handler. */
5974 check_window_system_func
= check_x
;
5976 hourglass_atimer
= NULL
;
5977 hourglass_shown_p
= 0;
5979 defsubr (&Sx_show_tip
);
5980 defsubr (&Sx_hide_tip
);
5982 staticpro (&tip_timer
);
5984 staticpro (&tip_frame
);
5986 last_show_tip_args
= Qnil
;
5987 staticpro (&last_show_tip_args
);
5989 defsubr (&Sx_uses_old_gtk_dialog
);
5990 #if defined (USE_MOTIF) || defined (USE_GTK)
5991 defsubr (&Sx_file_dialog
);
5995 #endif /* HAVE_X_WINDOWS */
5997 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
5998 (do not change this comment) */