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 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 Boston, MA 02110-1301, USA. */
30 /* This makes the fields of a Display accessible, in Xlib header files. */
32 #define XLIB_ILLEGAL_ACCESS
39 #include "intervals.h"
40 #include "dispextern.h"
42 #include "blockinput.h"
48 #include "termhooks.h"
55 #include <sys/types.h>
59 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
60 #include "bitmaps/gray.xbm"
62 #include <X11/bitmaps/gray>
65 #include "[.bitmaps]gray.xbm"
73 #include <X11/Shell.h>
77 #include <X11/Xaw3d/Paned.h>
78 #include <X11/Xaw3d/Label.h>
79 #else /* !HAVE_XAW3D */
80 #include <X11/Xaw/Paned.h>
81 #include <X11/Xaw/Label.h>
82 #endif /* HAVE_XAW3D */
83 #endif /* USE_MOTIF */
86 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
95 #include "../lwlib/lwlib.h"
99 #include <Xm/DialogS.h>
100 #include <Xm/FileSB.h>
103 /* Do the EDITRES protocol if running X11R5
104 Exception: HP-UX (at least version A.09.05) has X11R5 without EditRes */
106 #if (XtSpecificationRelease >= 5) && !defined(NO_EDITRES)
108 extern void _XEditResCheckMessages ();
109 #endif /* R5 + Athena */
111 /* Unique id counter for widgets created by the Lucid Widget Library. */
113 extern LWLIB_ID widget_id_tick
;
116 /* This is part of a kludge--see lwlib/xlwmenu.c. */
117 extern XFontStruct
*xlwmenu_default_font
;
120 extern void free_frame_menubar ();
121 extern double atof ();
125 /* LessTif/Motif version info. */
127 static Lisp_Object Vmotif_version_string
;
129 #endif /* USE_MOTIF */
131 #endif /* USE_X_TOOLKIT */
135 /* GTK+ version info */
137 static Lisp_Object Vgtk_version_string
;
142 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
144 #define MAXREQUEST(dpy) ((dpy)->max_request_size)
147 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
148 it, and including `bitmaps/gray' more than once is a problem when
149 config.h defines `static' as an empty replacement string. */
151 int gray_bitmap_width
= gray_width
;
152 int gray_bitmap_height
= gray_height
;
153 char *gray_bitmap_bits
= gray_bits
;
155 /* Non-zero means we're allowed to display an hourglass cursor. */
157 int display_hourglass_p
;
159 /* Non-zero means prompt with the old GTK file selection dialog. */
161 int x_gtk_use_old_file_dialog
;
163 /* If non-zero, by default show hidden files in the GTK file chooser. */
165 int x_gtk_show_hidden_files
;
167 /* If non-zero, don't show additional help text in the GTK file chooser. */
169 int x_gtk_file_dialog_help_text
;
171 /* If non-zero, don't collapse to tool bar when it is detached. */
173 int x_gtk_whole_detached_tool_bar
;
175 /* The background and shape of the mouse pointer, and shape when not
176 over text or in the modeline. */
178 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
179 Lisp_Object Vx_hourglass_pointer_shape
;
181 /* The shape when over mouse-sensitive text. */
183 Lisp_Object Vx_sensitive_text_pointer_shape
;
185 /* If non-nil, the pointer shape to indicate that windows can be
186 dragged horizontally. */
188 Lisp_Object Vx_window_horizontal_drag_shape
;
190 /* Color of chars displayed in cursor box. */
192 Lisp_Object Vx_cursor_fore_pixel
;
194 /* Nonzero if using X. */
198 /* Non nil if no window manager is in use. */
200 Lisp_Object Vx_no_window_manager
;
202 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
204 Lisp_Object Vx_pixel_size_width_font_regexp
;
207 Lisp_Object Qsuppress_icon
;
208 Lisp_Object Qundefined_color
;
209 Lisp_Object Qcompound_text
, Qcancel_timer
;
213 extern Lisp_Object Vwindow_system_version
;
215 /* The below are defined in frame.c. */
218 int image_cache_refcount
, dpyinfo_refcount
;
223 /* Error if we are not connected to X. */
229 error ("X windows are not in use or not initialized");
232 /* Nonzero if we can use mouse menus.
233 You should not call this unless HAVE_MENUS is defined. */
241 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
242 and checking validity for X. */
245 check_x_frame (frame
)
251 frame
= selected_frame
;
252 CHECK_LIVE_FRAME (frame
);
255 error ("Non-X frame used");
259 /* Let the user specify an X display with a Lisp object.
260 OBJECT may be nil, a frame or a terminal id.
261 nil stands for the selected frame--or, if that is not an X frame,
262 the first X display on the list. */
264 struct x_display_info
*
265 check_x_display_info (object
)
268 struct x_display_info
*dpyinfo
= NULL
;
272 struct frame
*sf
= XFRAME (selected_frame
);
274 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
275 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
276 else if (x_display_list
!= 0)
277 dpyinfo
= x_display_list
;
279 error ("X windows are not in use or not initialized");
281 else if (INTEGERP (object
))
283 struct terminal
*t
= get_terminal (XINT (object
), 1);
285 if (t
->type
!= output_x_window
)
286 error ("Terminal %d is not an X display", XINT (object
));
288 dpyinfo
= t
->display_info
.x
;
290 else if (STRINGP (object
))
291 dpyinfo
= x_display_info_for_name (object
);
294 FRAME_PTR f
= check_x_frame (object
);
295 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
302 /* Return the Emacs frame-object corresponding to an X window.
303 It could be the frame's main window or an icon window. */
305 /* This function can be called during GC, so use GC_xxx type test macros. */
308 x_window_to_frame (dpyinfo
, wdesc
)
309 struct x_display_info
*dpyinfo
;
312 Lisp_Object tail
, frame
;
315 if (wdesc
== None
) return 0;
317 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
320 if (!GC_FRAMEP (frame
))
323 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
325 if (f
->output_data
.x
->hourglass_window
== wdesc
)
328 if ((f
->output_data
.x
->edit_widget
329 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
330 /* A tooltip frame? */
331 || (!f
->output_data
.x
->edit_widget
332 && FRAME_X_WINDOW (f
) == wdesc
)
333 || f
->output_data
.x
->icon_desc
== wdesc
)
335 #else /* not USE_X_TOOLKIT */
337 if (f
->output_data
.x
->edit_widget
)
339 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
340 struct x_output
*x
= f
->output_data
.x
;
341 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
345 if (FRAME_X_WINDOW (f
) == wdesc
346 || f
->output_data
.x
->icon_desc
== wdesc
)
348 #endif /* not USE_X_TOOLKIT */
353 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
354 /* Like x_window_to_frame but also compares the window with the widget's
358 x_any_window_to_frame (dpyinfo
, wdesc
)
359 struct x_display_info
*dpyinfo
;
362 Lisp_Object tail
, frame
;
363 struct frame
*f
, *found
;
366 if (wdesc
== None
) return NULL
;
369 for (tail
= Vframe_list
; GC_CONSP (tail
) && !found
; tail
= XCDR (tail
))
372 if (!GC_FRAMEP (frame
))
376 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
378 /* This frame matches if the window is any of its widgets. */
379 x
= f
->output_data
.x
;
380 if (x
->hourglass_window
== wdesc
)
385 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
387 && (gwdesc
== x
->widget
388 || gwdesc
== x
->edit_widget
389 || gwdesc
== x
->vbox_widget
390 || gwdesc
== x
->menubar_widget
))
393 if (wdesc
== XtWindow (x
->widget
)
394 || wdesc
== XtWindow (x
->column_widget
)
395 || wdesc
== XtWindow (x
->edit_widget
))
397 /* Match if the window is this frame's menubar. */
398 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
402 else if (FRAME_X_WINDOW (f
) == wdesc
)
403 /* A tooltip frame. */
411 /* Likewise, but exclude the menu bar widget. */
414 x_non_menubar_window_to_frame (dpyinfo
, wdesc
)
415 struct x_display_info
*dpyinfo
;
418 Lisp_Object tail
, frame
;
422 if (wdesc
== None
) return 0;
424 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
427 if (!GC_FRAMEP (frame
))
430 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
432 x
= f
->output_data
.x
;
433 /* This frame matches if the window is any of its widgets. */
434 if (x
->hourglass_window
== wdesc
)
439 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
441 && (gwdesc
== x
->widget
442 || gwdesc
== x
->edit_widget
443 || gwdesc
== x
->vbox_widget
))
446 if (wdesc
== XtWindow (x
->widget
)
447 || wdesc
== XtWindow (x
->column_widget
)
448 || wdesc
== XtWindow (x
->edit_widget
))
452 else if (FRAME_X_WINDOW (f
) == wdesc
)
453 /* A tooltip frame. */
459 /* Likewise, but consider only the menu bar widget. */
462 x_menubar_window_to_frame (dpyinfo
, wdesc
)
463 struct x_display_info
*dpyinfo
;
466 Lisp_Object tail
, frame
;
470 if (wdesc
== None
) return 0;
472 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
475 if (!GC_FRAMEP (frame
))
478 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
480 x
= f
->output_data
.x
;
481 /* Match if the window is this frame's menubar. */
483 if (x
->menubar_widget
)
485 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
490 && (gwdesc
== x
->menubar_widget
491 || gtk_widget_get_parent (gwdesc
) == x
->menubar_widget
))
497 if (x
->menubar_widget
498 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
505 /* Return the frame whose principal (outermost) window is WDESC.
506 If WDESC is some other (smaller) window, we return 0. */
509 x_top_window_to_frame (dpyinfo
, wdesc
)
510 struct x_display_info
*dpyinfo
;
513 Lisp_Object tail
, frame
;
517 if (wdesc
== None
) return 0;
519 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
522 if (!GC_FRAMEP (frame
))
525 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
527 x
= f
->output_data
.x
;
531 /* This frame matches if the window is its topmost widget. */
533 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
534 if (gwdesc
== x
->widget
)
537 if (wdesc
== XtWindow (x
->widget
))
539 #if 0 /* I don't know why it did this,
540 but it seems logically wrong,
541 and it causes trouble for MapNotify events. */
542 /* Match if the window is this frame's menubar. */
543 if (x
->menubar_widget
544 && wdesc
== XtWindow (x
->menubar_widget
))
549 else if (FRAME_X_WINDOW (f
) == wdesc
)
555 #endif /* USE_X_TOOLKIT || USE_GTK */
559 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
560 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
562 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
563 static void x_set_wait_for_wm
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
564 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
565 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
566 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
567 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
568 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
569 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
570 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
571 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
572 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
573 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
574 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
575 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
577 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
579 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
586 /* Store the screen positions of frame F into XPTR and YPTR.
587 These are the positions of the containing window manager window,
588 not Emacs's own window. */
591 x_real_positions (f
, xptr
, yptr
)
595 int win_x
, win_y
, outer_x
, outer_y
;
596 int real_x
= 0, real_y
= 0;
598 Window win
= f
->output_data
.x
->parent_desc
;
602 x_catch_errors (FRAME_X_DISPLAY (f
));
604 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
605 win
= FRAME_OUTER_WINDOW (f
);
607 /* This loop traverses up the containment tree until we hit the root
608 window. Window managers may intersect many windows between our window
609 and the root window. The window we find just before the root window
610 should be the outer WM window. */
613 Window wm_window
, rootw
;
614 Window
*tmp_children
;
615 unsigned int tmp_nchildren
;
618 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
619 &wm_window
, &tmp_children
, &tmp_nchildren
);
621 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
623 /* Don't free tmp_children if XQueryTree failed. */
627 XFree ((char *) tmp_children
);
629 if (wm_window
== rootw
|| had_errors
)
640 /* Get the real coordinates for the WM window upper left corner */
641 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
642 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
644 /* Translate real coordinates to coordinates relative to our
645 window. For our window, the upper left corner is 0, 0.
646 Since the upper left corner of the WM window is outside
647 our window, win_x and win_y will be negative:
649 ------------------ ---> x
651 | ----------------- v y
654 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
656 /* From-window, to-window. */
657 FRAME_X_DISPLAY_INFO (f
)->root_window
,
660 /* From-position, to-position. */
661 real_x
, real_y
, &win_x
, &win_y
,
666 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
673 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
675 /* From-window, to-window. */
676 FRAME_X_DISPLAY_INFO (f
)->root_window
,
677 FRAME_OUTER_WINDOW (f
),
679 /* From-position, to-position. */
680 real_x
, real_y
, &outer_x
, &outer_y
,
686 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
693 if (had_errors
) return;
695 f
->x_pixels_diff
= -win_x
;
696 f
->y_pixels_diff
= -win_y
;
698 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
699 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
708 /* Gamma-correct COLOR on frame F. */
711 gamma_correct (f
, color
)
717 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
718 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
719 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
724 /* Decide if color named COLOR_NAME is valid for use on frame F. If
725 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
726 allocate the color. Value is zero if COLOR_NAME is invalid, or
727 no color could be allocated. */
730 x_defined_color (f
, color_name
, color
, alloc_p
)
737 Display
*dpy
= FRAME_X_DISPLAY (f
);
738 Colormap cmap
= FRAME_X_COLORMAP (f
);
741 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
742 if (success_p
&& alloc_p
)
743 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
750 /* Return the pixel color value for color COLOR_NAME on frame F. If F
751 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
752 Signal an error if color can't be allocated. */
755 x_decode_color (f
, color_name
, mono_color
)
757 Lisp_Object color_name
;
762 CHECK_STRING (color_name
);
764 #if 0 /* Don't do this. It's wrong when we're not using the default
765 colormap, it makes freeing difficult, and it's probably not
766 an important optimization. */
767 if (strcmp (SDATA (color_name
), "black") == 0)
768 return BLACK_PIX_DEFAULT (f
);
769 else if (strcmp (SDATA (color_name
), "white") == 0)
770 return WHITE_PIX_DEFAULT (f
);
773 /* Return MONO_COLOR for monochrome frames. */
774 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
777 /* x_defined_color is responsible for coping with failures
778 by looking for a near-miss. */
779 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
782 signal_error ("Undefined color", color_name
);
787 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
788 the previous value of that parameter, NEW_VALUE is the new value.
789 See also the comment of wait_for_wm in struct x_output. */
792 x_set_wait_for_wm (f
, new_value
, old_value
)
794 Lisp_Object new_value
, old_value
;
796 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
801 /* Set icon from FILE for frame F. By using GTK functions the icon
802 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
805 xg_set_icon (f
, file
)
812 found
= x_find_image_file (file
);
818 char *filename
= (char *) SDATA (found
);
821 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
825 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
827 g_object_unref (pixbuf
);
841 xg_set_icon_from_xpm_data (f
, data
)
846 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data ((const char **) data
);
851 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
852 g_object_unref (pixbuf
);
858 /* Functions called only from `x_set_frame_param'
859 to set individual parameters.
861 If FRAME_X_WINDOW (f) is 0,
862 the frame is being created and its X-window does not exist yet.
863 In that case, just record the parameter's new value
864 in the standard place; do not attempt to change the window. */
867 x_set_foreground_color (f
, arg
, oldval
)
869 Lisp_Object arg
, oldval
;
871 struct x_output
*x
= f
->output_data
.x
;
872 unsigned long fg
, old_fg
;
874 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
875 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
876 FRAME_FOREGROUND_PIXEL (f
) = fg
;
878 if (FRAME_X_WINDOW (f
) != 0)
880 Display
*dpy
= FRAME_X_DISPLAY (f
);
883 XSetForeground (dpy
, x
->normal_gc
, fg
);
884 XSetBackground (dpy
, x
->reverse_gc
, fg
);
886 if (x
->cursor_pixel
== old_fg
)
888 unload_color (f
, x
->cursor_pixel
);
889 x
->cursor_pixel
= x_copy_color (f
, fg
);
890 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
895 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
897 if (FRAME_VISIBLE_P (f
))
901 unload_color (f
, old_fg
);
905 x_set_background_color (f
, arg
, oldval
)
907 Lisp_Object arg
, oldval
;
909 struct x_output
*x
= f
->output_data
.x
;
912 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
913 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
914 FRAME_BACKGROUND_PIXEL (f
) = bg
;
916 if (FRAME_X_WINDOW (f
) != 0)
918 Display
*dpy
= FRAME_X_DISPLAY (f
);
921 XSetBackground (dpy
, x
->normal_gc
, bg
);
922 XSetForeground (dpy
, x
->reverse_gc
, bg
);
923 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
924 XSetForeground (dpy
, x
->cursor_gc
, bg
);
927 xg_set_background_color (f
, bg
);
930 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
931 toolkit scroll bars. */
934 for (bar
= FRAME_SCROLL_BARS (f
);
936 bar
= XSCROLL_BAR (bar
)->next
)
938 Window window
= SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar
));
939 XSetWindowBackground (dpy
, window
, bg
);
942 #endif /* USE_TOOLKIT_SCROLL_BARS */
945 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
947 if (FRAME_VISIBLE_P (f
))
953 x_set_mouse_color (f
, arg
, oldval
)
955 Lisp_Object arg
, oldval
;
957 struct x_output
*x
= f
->output_data
.x
;
958 Display
*dpy
= FRAME_X_DISPLAY (f
);
959 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
960 Cursor hourglass_cursor
, horizontal_drag_cursor
;
961 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
962 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
964 /* Don't let pointers be invisible. */
965 if (mask_color
== pixel
)
967 x_free_colors (f
, &pixel
, 1);
968 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
971 unload_color (f
, x
->mouse_pixel
);
972 x
->mouse_pixel
= pixel
;
976 /* It's not okay to crash if the user selects a screwy cursor. */
977 x_catch_errors (dpy
);
979 if (!NILP (Vx_pointer_shape
))
981 CHECK_NUMBER (Vx_pointer_shape
);
982 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
985 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
986 x_check_errors (dpy
, "bad text pointer cursor: %s");
988 if (!NILP (Vx_nontext_pointer_shape
))
990 CHECK_NUMBER (Vx_nontext_pointer_shape
);
992 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
995 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
996 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
998 if (!NILP (Vx_hourglass_pointer_shape
))
1000 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
1002 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
1005 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
1006 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
1008 if (!NILP (Vx_mode_pointer_shape
))
1010 CHECK_NUMBER (Vx_mode_pointer_shape
);
1011 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
1014 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
1015 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
1017 if (!NILP (Vx_sensitive_text_pointer_shape
))
1019 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
1021 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
1024 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
1026 if (!NILP (Vx_window_horizontal_drag_shape
))
1028 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1029 horizontal_drag_cursor
1030 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1033 horizontal_drag_cursor
1034 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1036 /* Check and report errors with the above calls. */
1037 x_check_errors (dpy
, "can't set cursor shape: %s");
1038 x_uncatch_errors ();
1041 XColor fore_color
, back_color
;
1043 fore_color
.pixel
= x
->mouse_pixel
;
1044 x_query_color (f
, &fore_color
);
1045 back_color
.pixel
= mask_color
;
1046 x_query_color (f
, &back_color
);
1048 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1049 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1050 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1051 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1052 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1053 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1056 if (FRAME_X_WINDOW (f
) != 0)
1057 XDefineCursor (dpy
, FRAME_X_WINDOW (f
), cursor
);
1059 if (cursor
!= x
->text_cursor
1060 && x
->text_cursor
!= 0)
1061 XFreeCursor (dpy
, x
->text_cursor
);
1062 x
->text_cursor
= cursor
;
1064 if (nontext_cursor
!= x
->nontext_cursor
1065 && x
->nontext_cursor
!= 0)
1066 XFreeCursor (dpy
, x
->nontext_cursor
);
1067 x
->nontext_cursor
= nontext_cursor
;
1069 if (hourglass_cursor
!= x
->hourglass_cursor
1070 && x
->hourglass_cursor
!= 0)
1071 XFreeCursor (dpy
, x
->hourglass_cursor
);
1072 x
->hourglass_cursor
= hourglass_cursor
;
1074 if (mode_cursor
!= x
->modeline_cursor
1075 && x
->modeline_cursor
!= 0)
1076 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1077 x
->modeline_cursor
= mode_cursor
;
1079 if (hand_cursor
!= x
->hand_cursor
1080 && x
->hand_cursor
!= 0)
1081 XFreeCursor (dpy
, x
->hand_cursor
);
1082 x
->hand_cursor
= hand_cursor
;
1084 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1085 && x
->horizontal_drag_cursor
!= 0)
1086 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1087 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1092 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1096 x_set_cursor_color (f
, arg
, oldval
)
1098 Lisp_Object arg
, oldval
;
1100 unsigned long fore_pixel
, pixel
;
1101 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1102 struct x_output
*x
= f
->output_data
.x
;
1104 if (!NILP (Vx_cursor_fore_pixel
))
1106 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1107 WHITE_PIX_DEFAULT (f
));
1108 fore_pixel_allocated_p
= 1;
1111 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1113 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1114 pixel_allocated_p
= 1;
1116 /* Make sure that the cursor color differs from the background color. */
1117 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1119 if (pixel_allocated_p
)
1121 x_free_colors (f
, &pixel
, 1);
1122 pixel_allocated_p
= 0;
1125 pixel
= x
->mouse_pixel
;
1126 if (pixel
== fore_pixel
)
1128 if (fore_pixel_allocated_p
)
1130 x_free_colors (f
, &fore_pixel
, 1);
1131 fore_pixel_allocated_p
= 0;
1133 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1137 unload_color (f
, x
->cursor_foreground_pixel
);
1138 if (!fore_pixel_allocated_p
)
1139 fore_pixel
= x_copy_color (f
, fore_pixel
);
1140 x
->cursor_foreground_pixel
= fore_pixel
;
1142 unload_color (f
, x
->cursor_pixel
);
1143 if (!pixel_allocated_p
)
1144 pixel
= x_copy_color (f
, pixel
);
1145 x
->cursor_pixel
= pixel
;
1147 if (FRAME_X_WINDOW (f
) != 0)
1150 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1151 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1154 if (FRAME_VISIBLE_P (f
))
1156 x_update_cursor (f
, 0);
1157 x_update_cursor (f
, 1);
1161 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1164 /* Set the border-color of frame F to pixel value PIX.
1165 Note that this does not fully take effect if done before
1166 F has an x-window. */
1169 x_set_border_pixel (f
, pix
)
1173 unload_color (f
, f
->output_data
.x
->border_pixel
);
1174 f
->output_data
.x
->border_pixel
= pix
;
1176 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1179 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1180 (unsigned long)pix
);
1183 if (FRAME_VISIBLE_P (f
))
1188 /* Set the border-color of frame F to value described by ARG.
1189 ARG can be a string naming a color.
1190 The border-color is used for the border that is drawn by the X server.
1191 Note that this does not fully take effect if done before
1192 F has an x-window; it must be redone when the window is created.
1194 Note: this is done in two routines because of the way X10 works.
1196 Note: under X11, this is normally the province of the window manager,
1197 and so emacs' border colors may be overridden. */
1200 x_set_border_color (f
, arg
, oldval
)
1202 Lisp_Object arg
, oldval
;
1207 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1208 x_set_border_pixel (f
, pix
);
1209 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1214 x_set_cursor_type (f
, arg
, oldval
)
1216 Lisp_Object arg
, oldval
;
1218 set_frame_cursor_types (f
, arg
);
1220 /* Make sure the cursor gets redrawn. */
1221 cursor_type_changed
= 1;
1225 x_set_icon_type (f
, arg
, oldval
)
1227 Lisp_Object arg
, oldval
;
1233 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1236 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1241 result
= x_text_icon (f
,
1242 (char *) SDATA ((!NILP (f
->icon_name
)
1246 result
= x_bitmap_icon (f
, arg
);
1251 error ("No icon window available");
1254 XFlush (FRAME_X_DISPLAY (f
));
1259 x_set_icon_name (f
, arg
, oldval
)
1261 Lisp_Object arg
, oldval
;
1267 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1270 else if (!NILP (arg
) || NILP (oldval
))
1275 if (f
->output_data
.x
->icon_bitmap
!= 0)
1280 result
= x_text_icon (f
,
1281 (char *) SDATA ((!NILP (f
->icon_name
)
1290 error ("No icon window available");
1293 XFlush (FRAME_X_DISPLAY (f
));
1299 x_set_menu_bar_lines (f
, value
, oldval
)
1301 Lisp_Object value
, oldval
;
1304 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1305 int olines
= FRAME_MENU_BAR_LINES (f
);
1308 /* Right now, menu bars don't work properly in minibuf-only frames;
1309 most of the commands try to apply themselves to the minibuffer
1310 frame itself, and get an error because you can't switch buffers
1311 in or split the minibuffer window. */
1312 if (FRAME_MINIBUF_ONLY_P (f
))
1315 if (INTEGERP (value
))
1316 nlines
= XINT (value
);
1320 /* Make sure we redisplay all windows in this frame. */
1321 windows_or_buffers_changed
++;
1323 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1324 FRAME_MENU_BAR_LINES (f
) = 0;
1327 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1328 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1329 /* Make sure next redisplay shows the menu bar. */
1330 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1334 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1335 free_frame_menubar (f
);
1336 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1338 f
->output_data
.x
->menubar_widget
= 0;
1340 #else /* not USE_X_TOOLKIT && not USE_GTK */
1341 FRAME_MENU_BAR_LINES (f
) = nlines
;
1342 change_window_heights (f
->root_window
, nlines
- olines
);
1343 #endif /* not USE_X_TOOLKIT */
1348 /* Set the number of lines used for the tool bar of frame F to VALUE.
1349 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1350 is the old number of tool bar lines. This function changes the
1351 height of all windows on frame F to match the new tool bar height.
1352 The frame's height doesn't change. */
1355 x_set_tool_bar_lines (f
, value
, oldval
)
1357 Lisp_Object value
, oldval
;
1359 int delta
, nlines
, root_height
;
1360 Lisp_Object root_window
;
1362 /* Treat tool bars like menu bars. */
1363 if (FRAME_MINIBUF_ONLY_P (f
))
1366 /* Use VALUE only if an integer >= 0. */
1367 if (INTEGERP (value
) && XINT (value
) >= 0)
1368 nlines
= XFASTINT (value
);
1373 FRAME_TOOL_BAR_LINES (f
) = 0;
1376 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1377 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1378 /* Make sure next redisplay shows the tool bar. */
1379 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1380 update_frame_tool_bar (f
);
1384 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1385 free_frame_tool_bar (f
);
1386 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1392 /* Make sure we redisplay all windows in this frame. */
1393 ++windows_or_buffers_changed
;
1395 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1397 /* Don't resize the tool-bar to more than we have room for. */
1398 root_window
= FRAME_ROOT_WINDOW (f
);
1399 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1400 if (root_height
- delta
< 1)
1402 delta
= root_height
- 1;
1403 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1406 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1407 change_window_heights (root_window
, delta
);
1410 /* We also have to make sure that the internal border at the top of
1411 the frame, below the menu bar or tool bar, is redrawn when the
1412 tool bar disappears. This is so because the internal border is
1413 below the tool bar if one is displayed, but is below the menu bar
1414 if there isn't a tool bar. The tool bar draws into the area
1415 below the menu bar. */
1416 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1419 clear_current_matrices (f
);
1422 /* If the tool bar gets smaller, the internal border below it
1423 has to be cleared. It was formerly part of the display
1424 of the larger tool bar, and updating windows won't clear it. */
1427 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1428 int width
= FRAME_PIXEL_WIDTH (f
);
1429 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1431 /* height can be zero here. */
1432 if (height
> 0 && width
> 0)
1435 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1436 0, y
, width
, height
, False
);
1440 if (WINDOWP (f
->tool_bar_window
))
1441 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1446 /* Set the foreground color for scroll bars on frame F to VALUE.
1447 VALUE should be a string, a color name. If it isn't a string or
1448 isn't a valid color name, do nothing. OLDVAL is the old value of
1449 the frame parameter. */
1452 x_set_scroll_bar_foreground (f
, value
, oldval
)
1454 Lisp_Object value
, oldval
;
1456 unsigned long pixel
;
1458 if (STRINGP (value
))
1459 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1463 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1464 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1466 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1467 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1469 /* Remove all scroll bars because they have wrong colors. */
1470 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1471 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1472 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1473 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1475 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1481 /* Set the background color for scroll bars on frame F to VALUE VALUE
1482 should be a string, a color name. If it isn't a string or isn't a
1483 valid color name, do nothing. OLDVAL is the old value of the frame
1487 x_set_scroll_bar_background (f
, value
, oldval
)
1489 Lisp_Object value
, oldval
;
1491 unsigned long pixel
;
1493 if (STRINGP (value
))
1494 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1498 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1499 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1501 #ifdef USE_TOOLKIT_SCROLL_BARS
1502 /* Scrollbar shadow colors. */
1503 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1505 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1506 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1508 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1510 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1511 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1513 #endif /* USE_TOOLKIT_SCROLL_BARS */
1515 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1516 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1518 /* Remove all scroll bars because they have wrong colors. */
1519 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1520 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1521 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1522 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1524 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1530 /* Encode Lisp string STRING as a text in a format appropriate for
1531 XICCC (X Inter Client Communication Conventions).
1533 This can call Lisp code, so callers must GCPRO.
1535 If STRING contains only ASCII characters, do no conversion and
1536 return the string data of STRING. Otherwise, encode the text by
1537 CODING_SYSTEM, and return a newly allocated memory area which
1538 should be freed by `xfree' by a caller.
1540 SELECTIONP non-zero means the string is being encoded for an X
1541 selection, so it is safe to run pre-write conversions (which
1544 Store the byte length of resulting text in *TEXT_BYTES.
1546 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1547 which means that the `encoding' of the result can be `STRING'.
1548 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1549 the result should be `COMPOUND_TEXT'. */
1551 static unsigned char *
1552 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
, freep
)
1553 Lisp_Object string
, coding_system
;
1554 int *text_bytes
, *stringp
;
1558 unsigned char *str
= SDATA (string
);
1559 int chars
= SCHARS (string
);
1560 int bytes
= SBYTES (string
);
1564 struct coding_system coding
;
1565 extern Lisp_Object Qcompound_text_with_extensions
;
1567 charset_info
= find_charset_in_text (str
, chars
, bytes
, NULL
, Qnil
);
1568 if (charset_info
== 0)
1570 /* No multibyte character in OBJ. We need not encode it. */
1571 *text_bytes
= bytes
;
1577 setup_coding_system (coding_system
, &coding
);
1579 && SYMBOLP (coding
.pre_write_conversion
)
1580 && !NILP (Ffboundp (coding
.pre_write_conversion
)))
1582 struct gcpro gcpro1
;
1583 /* We don't need to GCPRO string. */
1584 GCPRO1 (coding_system
);
1585 string
= run_pre_post_conversion_on_str (string
, &coding
, 1);
1587 str
= SDATA (string
);
1588 chars
= SCHARS (string
);
1589 bytes
= SBYTES (string
);
1591 coding
.src_multibyte
= 1;
1592 coding
.dst_multibyte
= 0;
1593 coding
.mode
|= CODING_MODE_LAST_BLOCK
;
1594 if (coding
.type
== coding_type_iso2022
)
1595 coding
.flags
|= CODING_FLAG_ISO_SAFE
;
1596 /* We suppress producing escape sequences for composition. */
1597 coding
.composing
= COMPOSITION_DISABLED
;
1598 bufsize
= encoding_buffer_size (&coding
, bytes
);
1599 buf
= (unsigned char *) xmalloc (bufsize
);
1600 encode_coding (&coding
, str
, buf
, bytes
, bufsize
);
1601 *text_bytes
= coding
.produced
;
1602 *stringp
= (charset_info
== 1
1603 || (!EQ (coding_system
, Qcompound_text
)
1604 && !EQ (coding_system
, Qcompound_text_with_extensions
)));
1610 /* Set the WM name to NAME for frame F. Also set the icon name.
1611 If the frame already has an icon name, use that, otherwise set the
1612 icon name to NAME. */
1615 x_set_name_internal (f
, name
)
1619 if (FRAME_X_WINDOW (f
))
1624 XTextProperty text
, icon
;
1626 int do_free_icon_value
= 0, do_free_text_value
= 0;
1627 Lisp_Object coding_system
;
1629 Lisp_Object encoded_name
;
1630 struct gcpro gcpro1
;
1632 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1633 we use it before x_encode_text that may return string data. */
1635 encoded_name
= ENCODE_UTF_8 (name
);
1639 coding_system
= Qcompound_text
;
1640 /* Note: Encoding strategy
1642 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1643 text.encoding. But, there are non-internationalized window
1644 managers which don't support that encoding. So, if NAME
1645 contains only ASCII and 8859-1 characters, encode it by
1646 iso-latin-1, and use "STRING" in text.encoding hoping that
1647 such window managers at least analyze this format correctly,
1648 i.e. treat 8-bit bytes as 8859-1 characters.
1650 We may also be able to use "UTF8_STRING" in text.encoding
1651 in the future which can encode all Unicode characters.
1652 But, for the moment, there's no way to know that the
1653 current window manager supports it or not. */
1654 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1655 &do_free_text_value
);
1656 text
.encoding
= (stringp
? XA_STRING
1657 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1659 text
.nitems
= bytes
;
1661 if (!STRINGP (f
->icon_name
))
1667 /* See the above comment "Note: Encoding strategy". */
1668 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1669 &bytes
, &stringp
, &do_free_icon_value
);
1670 icon
.encoding
= (stringp
? XA_STRING
1671 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1673 icon
.nitems
= bytes
;
1677 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1678 (char *) SDATA (encoded_name
));
1679 #else /* not USE_GTK */
1680 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1681 #endif /* not USE_GTK */
1683 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1685 if (do_free_icon_value
)
1687 if (do_free_text_value
)
1690 #else /* not HAVE_X11R4 */
1691 XSetIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1693 XStoreName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1695 #endif /* not HAVE_X11R4 */
1700 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1703 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1704 name; if NAME is a string, set F's name to NAME and set
1705 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1707 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1708 suggesting a new name, which lisp code should override; if
1709 F->explicit_name is set, ignore the new name; otherwise, set it. */
1712 x_set_name (f
, name
, explicit)
1717 /* Make sure that requests from lisp code override requests from
1718 Emacs redisplay code. */
1721 /* If we're switching from explicit to implicit, we had better
1722 update the mode lines and thereby update the title. */
1723 if (f
->explicit_name
&& NILP (name
))
1724 update_mode_lines
= 1;
1726 f
->explicit_name
= ! NILP (name
);
1728 else if (f
->explicit_name
)
1731 /* If NAME is nil, set the name to the x_id_name. */
1734 /* Check for no change needed in this very common case
1735 before we do any consing. */
1736 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1739 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1742 CHECK_STRING (name
);
1744 /* Don't change the name if it's already NAME. */
1745 if (! NILP (Fstring_equal (name
, f
->name
)))
1750 /* For setting the frame title, the title parameter should override
1751 the name parameter. */
1752 if (! NILP (f
->title
))
1755 x_set_name_internal (f
, name
);
1758 /* This function should be called when the user's lisp code has
1759 specified a name for the frame; the name will override any set by the
1762 x_explicitly_set_name (f
, arg
, oldval
)
1764 Lisp_Object arg
, oldval
;
1766 x_set_name (f
, arg
, 1);
1769 /* This function should be called by Emacs redisplay code to set the
1770 name; names set this way will never override names set by the user's
1773 x_implicitly_set_name (f
, arg
, oldval
)
1775 Lisp_Object arg
, oldval
;
1777 x_set_name (f
, arg
, 0);
1780 /* Change the title of frame F to NAME.
1781 If NAME is nil, use the frame name as the title.
1783 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1784 name; if NAME is a string, set F's name to NAME and set
1785 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1787 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1788 suggesting a new name, which lisp code should override; if
1789 F->explicit_name is set, ignore the new name; otherwise, set it. */
1792 x_set_title (f
, name
, old_name
)
1794 Lisp_Object name
, old_name
;
1796 /* Don't change the title if it's already NAME. */
1797 if (EQ (name
, f
->title
))
1800 update_mode_lines
= 1;
1807 CHECK_STRING (name
);
1809 x_set_name_internal (f
, name
);
1813 x_set_scroll_bar_default_width (f
)
1816 int wid
= FRAME_COLUMN_WIDTH (f
);
1818 #ifdef USE_TOOLKIT_SCROLL_BARS
1819 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1820 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1821 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1822 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1824 /* Make the actual width at least 14 pixels and a multiple of a
1826 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1828 /* Use all of that space (aside from required margins) for the
1830 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1835 /* Record in frame F the specified or default value according to ALIST
1836 of the parameter named PROP (a Lisp symbol). If no value is
1837 specified for PROP, look for an X default for XPROP on the frame
1838 named NAME. If that is not found either, use the value DEFLT. */
1841 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1850 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1853 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1854 if (EQ (tem
, Qunbound
))
1856 #ifdef USE_TOOLKIT_SCROLL_BARS
1858 /* See if an X resource for the scroll bar color has been
1860 tem
= display_x_get_resource (dpyinfo
,
1861 build_string (foreground_p
1864 empty_unibyte_string
,
1865 build_string ("verticalScrollBar"),
1866 empty_unibyte_string
);
1869 /* If nothing has been specified, scroll bars will use a
1870 toolkit-dependent default. Because these defaults are
1871 difficult to get at without actually creating a scroll
1872 bar, use nil to indicate that no color has been
1877 #else /* not USE_TOOLKIT_SCROLL_BARS */
1881 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1884 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1890 #if !defined (HAVE_X11R4) && !defined (HAVE_XSETWMPROTOCOLS)
1893 XSetWMProtocols (dpy
, w
, protocols
, count
)
1900 prop
= XInternAtom (dpy
, "WM_PROTOCOLS", False
);
1901 if (prop
== None
) return False
;
1902 XChangeProperty (dpy
, w
, prop
, XA_ATOM
, 32, PropModeReplace
,
1903 (unsigned char *) protocols
, count
);
1906 #endif /* not HAVE_X11R4 && not HAVE_XSETWMPROTOCOLS */
1908 #ifdef USE_X_TOOLKIT
1910 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1911 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1912 already be present because of the toolkit (Motif adds some of them,
1913 for example, but Xt doesn't). */
1916 hack_wm_protocols (f
, widget
)
1920 Display
*dpy
= XtDisplay (widget
);
1921 Window w
= XtWindow (widget
);
1922 int need_delete
= 1;
1929 unsigned char *catoms
;
1931 unsigned long nitems
= 0;
1932 unsigned long bytes_after
;
1934 if ((XGetWindowProperty (dpy
, w
,
1935 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1936 (long)0, (long)100, False
, XA_ATOM
,
1937 &type
, &format
, &nitems
, &bytes_after
,
1940 && format
== 32 && type
== XA_ATOM
)
1942 Atom
*atoms
= (Atom
*) catoms
;
1947 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1949 else if (atoms
[nitems
]
1950 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1952 else if (atoms
[nitems
]
1953 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1964 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1966 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1968 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1970 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1971 XA_ATOM
, 32, PropModeAppend
,
1972 (unsigned char *) props
, count
);
1980 /* Support routines for XIC (X Input Context). */
1984 static XFontSet xic_create_xfontset
P_ ((struct frame
*, char *));
1985 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1988 /* Supported XIM styles, ordered by preference. */
1990 static XIMStyle supported_xim_styles
[] =
1992 XIMPreeditPosition
| XIMStatusArea
,
1993 XIMPreeditPosition
| XIMStatusNothing
,
1994 XIMPreeditPosition
| XIMStatusNone
,
1995 XIMPreeditNothing
| XIMStatusArea
,
1996 XIMPreeditNothing
| XIMStatusNothing
,
1997 XIMPreeditNothing
| XIMStatusNone
,
1998 XIMPreeditNone
| XIMStatusArea
,
1999 XIMPreeditNone
| XIMStatusNothing
,
2000 XIMPreeditNone
| XIMStatusNone
,
2005 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
2007 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
2009 /* Create an Xt fontset spec from the name of a base font.
2010 If `motif' is True use the Motif syntax. */
2012 xic_create_fontsetname (base_fontname
, motif
)
2013 char *base_fontname
;
2016 const char *sep
= motif
? ";" : ",";
2019 /* Make a fontset name from the base font name. */
2020 if (xic_defaut_fontset
== base_fontname
)
2021 { /* There is no base font name, use the default. */
2022 int len
= strlen (base_fontname
) + 2;
2023 fontsetname
= xmalloc (len
);
2024 bzero (fontsetname
, len
);
2025 strcpy (fontsetname
, base_fontname
);
2029 /* Make a fontset name from the base font name.
2030 The font set will be made of the following elements:
2032 - the base font where the charset spec is replaced by -*-*.
2033 - the same but with the family also replaced with -*-*-. */
2034 char *p
= base_fontname
;
2037 for (i
= 0; *p
; p
++)
2040 { /* As the font name doesn't conform to XLFD, we can't
2041 modify it to generalize it to allcs and allfamilies.
2042 Use the specified font plus the default. */
2043 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
2044 fontsetname
= xmalloc (len
);
2045 bzero (fontsetname
, len
);
2046 strcpy (fontsetname
, base_fontname
);
2047 strcat (fontsetname
, sep
);
2048 strcat (fontsetname
, xic_defaut_fontset
);
2053 char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
2054 char *font_allcs
= NULL
;
2055 char *font_allfamilies
= NULL
;
2056 char *font_all
= NULL
;
2057 char *allcs
= "*-*-*-*-*-*-*";
2058 char *allfamilies
= "-*-*-";
2059 char *all
= "*-*-*-*-";
2062 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
2075 /* If base_fontname specifies ADSTYLE, make it a
2079 int diff
= (p2
- p3
) - 2;
2081 base
= alloca (strlen (base_fontname
) + 1);
2082 bcopy (base_fontname
, base
, p3
- base_fontname
);
2083 base
[p3
- base_fontname
] = '*';
2084 base
[(p3
- base_fontname
) + 1] = '-';
2085 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
2086 p
= base
+ (p
- base_fontname
) - diff
;
2087 p1
= base
+ (p1
- base_fontname
);
2088 p2
= base
+ (p2
- base_fontname
) - diff
;
2089 base_fontname
= base
;
2092 /* Build the font spec that matches all charsets. */
2093 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2094 font_allcs
= (char *) alloca (len
);
2095 bzero (font_allcs
, len
);
2096 bcopy (base_fontname
, font_allcs
, p
- base_fontname
);
2097 strcat (font_allcs
, allcs
);
2099 /* Build the font spec that matches all families and
2101 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2102 font_allfamilies
= (char *) alloca (len
);
2103 bzero (font_allfamilies
, len
);
2104 strcpy (font_allfamilies
, allfamilies
);
2105 bcopy (p1
, font_allfamilies
+ strlen (allfamilies
), p
- p1
);
2106 strcat (font_allfamilies
, allcs
);
2108 /* Build the font spec that matches all. */
2109 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2110 font_all
= (char *) alloca (len
);
2111 bzero (font_all
, len
);
2112 strcpy (font_all
, allfamilies
);
2113 strcat (font_all
, all
);
2114 bcopy (p2
, font_all
+ strlen (all
) + strlen (allfamilies
), p
- p2
);
2115 strcat (font_all
, allcs
);
2117 /* Build the actual font set name. */
2118 len
= strlen (base_fontname
) + strlen (font_allcs
)
2119 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2120 fontsetname
= xmalloc (len
);
2121 bzero (fontsetname
, len
);
2122 strcpy (fontsetname
, base_fontname
);
2123 strcat (fontsetname
, sep
);
2124 strcat (fontsetname
, font_allcs
);
2125 strcat (fontsetname
, sep
);
2126 strcat (fontsetname
, font_allfamilies
);
2127 strcat (fontsetname
, sep
);
2128 strcat (fontsetname
, font_all
);
2132 strcat (fontsetname
, ":");
2137 xic_create_xfontset (f
, base_fontname
)
2139 char *base_fontname
;
2141 XFontSet xfs
= NULL
;
2142 char **missing_list
= NULL
;
2145 Lisp_Object rest
, frame
;
2148 base_fontname
= xic_defaut_fontset
;
2150 /* See if there is another frame already using same fontset. */
2151 FOR_EACH_FRAME (rest
, frame
)
2153 struct frame
*cf
= XFRAME (frame
);
2154 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2155 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2156 && FRAME_XIC_BASE_FONTNAME (cf
)
2157 && !strcmp (FRAME_XIC_BASE_FONTNAME (cf
), base_fontname
))
2159 xfs
= FRAME_XIC_FONTSET (cf
);
2166 char *fontsetname
= xic_create_fontsetname (base_fontname
, False
);
2169 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
),
2170 fontsetname
, &missing_list
,
2171 &missing_count
, &def_string
);
2173 XFreeStringList (missing_list
);
2176 /* FONTSETNAME contains a list of font names (specific fonts
2177 first, general fonts last), but giving that to
2178 XCreateFontSet at once occasionally fails (bug of X?).
2179 So, we try to call XCreateFontSet for each fontname. */
2180 char *p0
= fontsetname
, *p1
;
2184 p1
= strchr (p0
, ',');
2187 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
),
2189 &missing_count
, &def_string
);
2191 XFreeStringList (missing_list
);
2194 p0
= p1
? p1
+ 1 : NULL
;
2197 xfree (fontsetname
);
2200 if (FRAME_XIC_BASE_FONTNAME (f
))
2201 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2202 FRAME_XIC_BASE_FONTNAME (f
) = xstrdup (base_fontname
);
2204 /* No need to free def_string. */
2208 /* Free the X fontset of frame F if it is the last frame using it. */
2211 xic_free_xfontset (f
)
2214 Lisp_Object rest
, frame
;
2217 if (!FRAME_XIC_FONTSET (f
))
2220 /* See if there is another frame sharing the same fontset. */
2221 FOR_EACH_FRAME (rest
, frame
)
2223 struct frame
*cf
= XFRAME (frame
);
2224 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2225 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2226 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2234 /* The fontset is not used anymore. It is safe to free it. */
2235 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2237 if (FRAME_XIC_BASE_FONTNAME (f
))
2238 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2239 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2240 FRAME_XIC_FONTSET (f
) = NULL
;
2244 /* Value is the best input style, given user preferences USER (already
2245 checked to be supported by Emacs), and styles supported by the
2246 input method XIM. */
2249 best_xim_style (user
, xim
)
2255 for (i
= 0; i
< user
->count_styles
; ++i
)
2256 for (j
= 0; j
< xim
->count_styles
; ++j
)
2257 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2258 return user
->supported_styles
[i
];
2260 /* Return the default style. */
2261 return XIMPreeditNothing
| XIMStatusNothing
;
2264 /* Create XIC for frame F. */
2266 static XIMStyle xic_style
;
2269 create_frame_xic (f
)
2274 XFontSet xfs
= NULL
;
2279 /* Create X fontset. */
2280 xfs
= xic_create_xfontset
2281 (f
, (FRAME_FONTSET (f
) < 0) ? NULL
2282 : (char *) SDATA (fontset_ascii (FRAME_FONTSET (f
))));
2284 xim
= FRAME_X_XIM (f
);
2289 XVaNestedList preedit_attr
;
2290 XVaNestedList status_attr
;
2292 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2293 spot
.x
= 0; spot
.y
= 1;
2295 /* Determine XIC style. */
2298 XIMStyles supported_list
;
2299 supported_list
.count_styles
= (sizeof supported_xim_styles
2300 / sizeof supported_xim_styles
[0]);
2301 supported_list
.supported_styles
= supported_xim_styles
;
2302 xic_style
= best_xim_style (&supported_list
,
2303 FRAME_X_XIM_STYLES (f
));
2306 preedit_attr
= XVaCreateNestedList (0,
2309 FRAME_FOREGROUND_PIXEL (f
),
2311 FRAME_BACKGROUND_PIXEL (f
),
2312 (xic_style
& XIMPreeditPosition
2317 status_attr
= XVaCreateNestedList (0,
2323 FRAME_FOREGROUND_PIXEL (f
),
2325 FRAME_BACKGROUND_PIXEL (f
),
2328 xic
= XCreateIC (xim
,
2329 XNInputStyle
, xic_style
,
2330 XNClientWindow
, FRAME_X_WINDOW (f
),
2331 XNFocusWindow
, FRAME_X_WINDOW (f
),
2332 XNStatusAttributes
, status_attr
,
2333 XNPreeditAttributes
, preedit_attr
,
2335 XFree (preedit_attr
);
2336 XFree (status_attr
);
2339 FRAME_XIC (f
) = xic
;
2340 FRAME_XIC_STYLE (f
) = xic_style
;
2341 FRAME_XIC_FONTSET (f
) = xfs
;
2345 /* Destroy XIC and free XIC fontset of frame F, if any. */
2351 if (FRAME_XIC (f
) == NULL
)
2354 XDestroyIC (FRAME_XIC (f
));
2355 xic_free_xfontset (f
);
2357 FRAME_XIC (f
) = NULL
;
2361 /* Place preedit area for XIC of window W's frame to specified
2362 pixel position X/Y. X and Y are relative to window W. */
2365 xic_set_preeditarea (w
, x
, y
)
2369 struct frame
*f
= XFRAME (w
->frame
);
2373 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2374 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2375 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2376 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2381 /* Place status area for XIC in bottom right corner of frame F.. */
2384 xic_set_statusarea (f
)
2387 XIC xic
= FRAME_XIC (f
);
2392 /* Negotiate geometry of status area. If input method has existing
2393 status area, use its current size. */
2394 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2395 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2396 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2399 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2400 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2403 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2405 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2406 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2410 area
.width
= needed
->width
;
2411 area
.height
= needed
->height
;
2412 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2413 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2414 - FRAME_MENUBAR_HEIGHT (f
)
2415 - FRAME_TOOLBAR_HEIGHT (f
)
2416 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2419 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2420 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2425 /* Set X fontset for XIC of frame F, using base font name
2426 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2429 xic_set_xfontset (f
, base_fontname
)
2431 char *base_fontname
;
2436 xic_free_xfontset (f
);
2438 xfs
= xic_create_xfontset (f
, base_fontname
);
2440 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2441 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2442 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2443 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2444 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2447 FRAME_XIC_FONTSET (f
) = xfs
;
2450 #endif /* HAVE_X_I18N */
2454 #ifdef USE_X_TOOLKIT
2456 /* Create and set up the X widget for frame F. */
2459 x_window (f
, window_prompting
, minibuffer_only
)
2461 long window_prompting
;
2462 int minibuffer_only
;
2464 XClassHint class_hints
;
2465 XSetWindowAttributes attributes
;
2466 unsigned long attribute_mask
;
2467 Widget shell_widget
;
2469 Widget frame_widget
;
2475 /* Use the resource name as the top-level widget name
2476 for looking up resources. Make a non-Lisp copy
2477 for the window manager, so GC relocation won't bother it.
2479 Elsewhere we specify the window name for the window manager. */
2482 char *str
= (char *) SDATA (Vx_resource_name
);
2483 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2484 strcpy (f
->namebuf
, str
);
2488 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2489 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2490 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2491 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2492 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2493 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2494 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2495 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2496 applicationShellWidgetClass
,
2497 FRAME_X_DISPLAY (f
), al
, ac
);
2499 f
->output_data
.x
->widget
= shell_widget
;
2500 /* maybe_set_screen_title_format (shell_widget); */
2502 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2503 (widget_value
*) NULL
,
2504 shell_widget
, False
,
2508 (lw_callback
) NULL
);
2511 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2512 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2513 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2514 XtSetValues (pane_widget
, al
, ac
);
2515 f
->output_data
.x
->column_widget
= pane_widget
;
2517 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2518 the emacs screen when changing menubar. This reduces flickering. */
2521 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2522 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2523 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2524 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2525 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2526 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2527 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2528 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2529 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2532 f
->output_data
.x
->edit_widget
= frame_widget
;
2534 XtManageChild (frame_widget
);
2536 /* Do some needed geometry management. */
2539 char *tem
, shell_position
[32];
2542 int extra_borders
= 0;
2544 = (f
->output_data
.x
->menubar_widget
2545 ? (f
->output_data
.x
->menubar_widget
->core
.height
2546 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2549 #if 0 /* Experimentally, we now get the right results
2550 for -geometry -0-0 without this. 24 Aug 96, rms. */
2551 if (FRAME_EXTERNAL_MENU_BAR (f
))
2554 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2555 menubar_size
+= ibw
;
2559 f
->output_data
.x
->menubar_height
= menubar_size
;
2562 /* Motif seems to need this amount added to the sizes
2563 specified for the shell widget. The Athena/Lucid widgets don't.
2564 Both conclusions reached experimentally. -- rms. */
2565 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2566 &extra_borders
, NULL
);
2570 /* Convert our geometry parameters into a geometry string
2572 Note that we do not specify here whether the position
2573 is a user-specified or program-specified one.
2574 We pass that information later, in x_wm_set_size_hints. */
2576 int left
= f
->left_pos
;
2577 int xneg
= window_prompting
& XNegative
;
2578 int top
= f
->top_pos
;
2579 int yneg
= window_prompting
& YNegative
;
2585 if (window_prompting
& USPosition
)
2586 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2587 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2588 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2589 (xneg
? '-' : '+'), left
,
2590 (yneg
? '-' : '+'), top
);
2593 sprintf (shell_position
, "=%dx%d",
2594 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2595 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2597 /* Setting x and y when the position is not specified in
2598 the geometry string will set program position in the WM hints.
2599 If Emacs had just one program position, we could set it in
2600 fallback resources, but since each make-frame call can specify
2601 different program positions, this is easier. */
2602 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2603 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2607 len
= strlen (shell_position
) + 1;
2608 /* We don't free this because we don't know whether
2609 it is safe to free it while the frame exists.
2610 It isn't worth the trouble of arranging to free it
2611 when the frame is deleted. */
2612 tem
= (char *) xmalloc (len
);
2613 strncpy (tem
, shell_position
, len
);
2614 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2615 XtSetValues (shell_widget
, al
, ac
);
2618 XtManageChild (pane_widget
);
2619 XtRealizeWidget (shell_widget
);
2621 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2623 validate_x_resource_name ();
2625 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2626 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2627 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2630 FRAME_XIC (f
) = NULL
;
2632 create_frame_xic (f
);
2635 f
->output_data
.x
->wm_hints
.input
= True
;
2636 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2637 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2638 &f
->output_data
.x
->wm_hints
);
2640 hack_wm_protocols (f
, shell_widget
);
2643 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2646 /* Do a stupid property change to force the server to generate a
2647 PropertyNotify event so that the event_stream server timestamp will
2648 be initialized to something relevant to the time we created the window.
2650 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2651 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2652 XA_ATOM
, 32, PropModeAppend
,
2653 (unsigned char*) NULL
, 0);
2655 /* Make all the standard events reach the Emacs frame. */
2656 attributes
.event_mask
= STANDARD_EVENT_SET
;
2661 /* XIM server might require some X events. */
2662 unsigned long fevent
= NoEventMask
;
2663 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2664 attributes
.event_mask
|= fevent
;
2666 #endif /* HAVE_X_I18N */
2668 attribute_mask
= CWEventMask
;
2669 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2670 attribute_mask
, &attributes
);
2672 XtMapWidget (frame_widget
);
2674 /* x_set_name normally ignores requests to set the name if the
2675 requested name is the same as the current name. This is the one
2676 place where that assumption isn't correct; f->name is set, but
2677 the X server hasn't been told. */
2680 int explicit = f
->explicit_name
;
2682 f
->explicit_name
= 0;
2685 x_set_name (f
, name
, explicit);
2688 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2689 f
->output_data
.x
->text_cursor
);
2693 /* This is a no-op, except under Motif. Make sure main areas are
2694 set to something reasonable, in case we get an error later. */
2695 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2698 #else /* not USE_X_TOOLKIT */
2704 if (! xg_create_frame_widgets (f
))
2705 error ("Unable to create window");
2708 FRAME_XIC (f
) = NULL
;
2712 create_frame_xic (f
);
2715 /* XIM server might require some X events. */
2716 unsigned long fevent
= NoEventMask
;
2717 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2719 if (fevent
!= NoEventMask
)
2721 XSetWindowAttributes attributes
;
2722 XWindowAttributes wattr
;
2723 unsigned long attribute_mask
;
2725 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2727 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2728 attribute_mask
= CWEventMask
;
2729 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2730 attribute_mask
, &attributes
);
2738 #else /*! USE_GTK */
2739 /* Create and set up the X window for frame F. */
2746 XClassHint class_hints
;
2747 XSetWindowAttributes attributes
;
2748 unsigned long attribute_mask
;
2750 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2751 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2752 attributes
.bit_gravity
= StaticGravity
;
2753 attributes
.backing_store
= NotUseful
;
2754 attributes
.save_under
= True
;
2755 attributes
.event_mask
= STANDARD_EVENT_SET
;
2756 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2757 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2762 = XCreateWindow (FRAME_X_DISPLAY (f
),
2763 f
->output_data
.x
->parent_desc
,
2766 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2768 CopyFromParent
, /* depth */
2769 InputOutput
, /* class */
2771 attribute_mask
, &attributes
);
2776 create_frame_xic (f
);
2779 /* XIM server might require some X events. */
2780 unsigned long fevent
= NoEventMask
;
2781 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2782 attributes
.event_mask
|= fevent
;
2783 attribute_mask
= CWEventMask
;
2784 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2785 attribute_mask
, &attributes
);
2788 #endif /* HAVE_X_I18N */
2790 validate_x_resource_name ();
2792 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2793 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2794 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2796 /* The menubar is part of the ordinary display;
2797 it does not count in addition to the height of the window. */
2798 f
->output_data
.x
->menubar_height
= 0;
2800 /* This indicates that we use the "Passive Input" input model.
2801 Unless we do this, we don't get the Focus{In,Out} events that we
2802 need to draw the cursor correctly. Accursed bureaucrats.
2803 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2805 f
->output_data
.x
->wm_hints
.input
= True
;
2806 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2807 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2808 &f
->output_data
.x
->wm_hints
);
2809 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2811 /* Request "save yourself" and "delete window" commands from wm. */
2814 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2815 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2816 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2819 /* x_set_name normally ignores requests to set the name if the
2820 requested name is the same as the current name. This is the one
2821 place where that assumption isn't correct; f->name is set, but
2822 the X server hasn't been told. */
2825 int explicit = f
->explicit_name
;
2827 f
->explicit_name
= 0;
2830 x_set_name (f
, name
, explicit);
2833 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2834 f
->output_data
.x
->text_cursor
);
2838 if (FRAME_X_WINDOW (f
) == 0)
2839 error ("Unable to create window");
2842 #endif /* not USE_GTK */
2843 #endif /* not USE_X_TOOLKIT */
2845 /* Verify that the icon position args for this window are valid. */
2848 x_icon_verify (f
, parms
)
2852 Lisp_Object icon_x
, icon_y
;
2854 /* Set the position of the icon. Note that twm groups all
2855 icons in an icon window. */
2856 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2857 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2858 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2860 CHECK_NUMBER (icon_x
);
2861 CHECK_NUMBER (icon_y
);
2863 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2864 error ("Both left and top icon corners of icon must be specified");
2867 /* Handle the icon stuff for this window. Perhaps later we might
2868 want an x_set_icon_position which can be called interactively as
2876 Lisp_Object icon_x
, icon_y
;
2877 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2879 /* Set the position of the icon. Note that twm groups all
2880 icons in an icon window. */
2881 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2882 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2883 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2885 CHECK_NUMBER (icon_x
);
2886 CHECK_NUMBER (icon_y
);
2888 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2889 error ("Both left and top icon corners of icon must be specified");
2893 if (! EQ (icon_x
, Qunbound
))
2894 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2896 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2897 but x_create_frame still needs it. */
2898 /* Start up iconic or window? */
2899 x_wm_set_window_state
2900 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2906 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2913 /* Make the GCs needed for this window, setting the
2914 background, border and mouse colors; also create the
2915 mouse cursor and the gray border tile. */
2917 static char cursor_bits
[] =
2919 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2920 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2921 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2922 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
2929 XGCValues gc_values
;
2933 /* Create the GCs of this frame.
2934 Note that many default values are used. */
2937 gc_values
.font
= FRAME_FONT (f
)->fid
;
2938 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2939 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2940 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2941 f
->output_data
.x
->normal_gc
2942 = XCreateGC (FRAME_X_DISPLAY (f
),
2944 GCLineWidth
| GCFont
| GCForeground
| GCBackground
,
2947 /* Reverse video style. */
2948 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2949 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2950 f
->output_data
.x
->reverse_gc
2951 = XCreateGC (FRAME_X_DISPLAY (f
),
2953 GCFont
| GCForeground
| GCBackground
| GCLineWidth
,
2956 /* Cursor has cursor-color background, background-color foreground. */
2957 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2958 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2959 gc_values
.fill_style
= FillOpaqueStippled
;
2961 = XCreateBitmapFromData (FRAME_X_DISPLAY (f
),
2962 FRAME_X_DISPLAY_INFO (f
)->root_window
,
2963 cursor_bits
, 16, 16);
2964 f
->output_data
.x
->cursor_gc
2965 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2966 (GCFont
| GCForeground
| GCBackground
2967 | GCFillStyle
/* | GCStipple */ | GCLineWidth
),
2971 f
->output_data
.x
->white_relief
.gc
= 0;
2972 f
->output_data
.x
->black_relief
.gc
= 0;
2974 /* Create the gray border tile used when the pointer is not in
2975 the frame. Since this depends on the frame's pixel values,
2976 this must be done on a per-frame basis. */
2977 f
->output_data
.x
->border_tile
2978 = (XCreatePixmapFromBitmapData
2979 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2980 gray_bits
, gray_width
, gray_height
,
2981 FRAME_FOREGROUND_PIXEL (f
),
2982 FRAME_BACKGROUND_PIXEL (f
),
2983 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2989 /* Free what was was allocated in x_make_gc. */
2995 Display
*dpy
= FRAME_X_DISPLAY (f
);
2999 if (f
->output_data
.x
->normal_gc
)
3001 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
3002 f
->output_data
.x
->normal_gc
= 0;
3005 if (f
->output_data
.x
->reverse_gc
)
3007 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
3008 f
->output_data
.x
->reverse_gc
= 0;
3011 if (f
->output_data
.x
->cursor_gc
)
3013 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
3014 f
->output_data
.x
->cursor_gc
= 0;
3017 if (f
->output_data
.x
->border_tile
)
3019 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
3020 f
->output_data
.x
->border_tile
= 0;
3027 /* Handler for signals raised during x_create_frame and
3028 x_create_top_frame. FRAME is the frame which is partially
3032 unwind_create_frame (frame
)
3035 struct frame
*f
= XFRAME (frame
);
3037 /* If frame is already dead, nothing to do. This can happen if the
3038 display is disconnected after the frame has become official, but
3039 before x_create_frame removes the unwind protect. */
3040 if (!FRAME_LIVE_P (f
))
3043 /* If frame is ``official'', nothing to do. */
3044 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
3047 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
3050 x_free_frame_resources (f
);
3053 /* Check that reference counts are indeed correct. */
3054 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
3055 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
3064 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3066 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3067 Returns an Emacs frame object.
3068 ALIST is an alist of frame parameters.
3069 If the parameters specify that the frame should not have a minibuffer,
3070 and do not specify a specific minibuffer window to use,
3071 then `default-minibuffer-frame' must be a frame whose minibuffer can
3072 be shared by the new frame.
3074 This function is an internal primitive--use `make-frame' instead. */)
3079 Lisp_Object frame
, tem
;
3081 int minibuffer_only
= 0;
3082 long window_prompting
= 0;
3084 int count
= SPECPDL_INDEX ();
3085 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3086 Lisp_Object display
;
3087 struct x_display_info
*dpyinfo
= NULL
;
3091 parms
= Fcopy_alist (parms
);
3093 /* Use this general default value to start with
3094 until we know if this frame has a specified name. */
3095 Vx_resource_name
= Vinvocation_name
;
3097 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3098 if (EQ (display
, Qunbound
))
3099 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3100 if (EQ (display
, Qunbound
))
3102 dpyinfo
= check_x_display_info (display
);
3104 kb
= dpyinfo
->terminal
->kboard
;
3106 kb
= &the_only_kboard
;
3109 if (dpyinfo
->terminal
->deleted
)
3110 error ("Terminal is being deleted, can't create new frames on it");
3112 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3114 && ! EQ (name
, Qunbound
)
3116 error ("Invalid frame name--not a string or nil");
3119 Vx_resource_name
= name
;
3121 /* See if parent window is specified. */
3122 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3123 if (EQ (parent
, Qunbound
))
3125 if (! NILP (parent
))
3126 CHECK_NUMBER (parent
);
3128 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3129 /* No need to protect DISPLAY because that's not used after passing
3130 it to make_frame_without_minibuffer. */
3132 GCPRO4 (parms
, parent
, name
, frame
);
3133 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3135 if (EQ (tem
, Qnone
) || NILP (tem
))
3136 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3137 else if (EQ (tem
, Qonly
))
3139 f
= make_minibuffer_frame ();
3140 minibuffer_only
= 1;
3142 else if (WINDOWP (tem
))
3143 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3147 XSETFRAME (frame
, f
);
3149 /* Note that X Windows does support scroll bars. */
3150 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3152 f
->terminal
= dpyinfo
->terminal
;
3153 f
->terminal
->reference_count
++;
3155 f
->output_method
= output_x_window
;
3156 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3157 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3158 f
->output_data
.x
->icon_bitmap
= -1;
3159 FRAME_FONTSET (f
) = -1;
3160 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3161 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3162 #ifdef USE_TOOLKIT_SCROLL_BARS
3163 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3164 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3165 #endif /* USE_TOOLKIT_SCROLL_BARS */
3168 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3170 if (! STRINGP (f
->icon_name
))
3171 f
->icon_name
= Qnil
;
3173 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3175 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3176 record_unwind_protect (unwind_create_frame
, frame
);
3178 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
3179 dpyinfo_refcount
= dpyinfo
->reference_count
;
3180 #endif /* GLYPH_DEBUG */
3182 /* These colors will be set anyway later, but it's important
3183 to get the color reference counts right, so initialize them! */
3186 struct gcpro gcpro1
;
3188 /* Function x_decode_color can signal an error. Make
3189 sure to initialize color slots so that we won't try
3190 to free colors we haven't allocated. */
3191 FRAME_FOREGROUND_PIXEL (f
) = -1;
3192 FRAME_BACKGROUND_PIXEL (f
) = -1;
3193 f
->output_data
.x
->cursor_pixel
= -1;
3194 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3195 f
->output_data
.x
->border_pixel
= -1;
3196 f
->output_data
.x
->mouse_pixel
= -1;
3198 black
= build_string ("black");
3200 FRAME_FOREGROUND_PIXEL (f
)
3201 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3202 FRAME_BACKGROUND_PIXEL (f
)
3203 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3204 f
->output_data
.x
->cursor_pixel
3205 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3206 f
->output_data
.x
->cursor_foreground_pixel
3207 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3208 f
->output_data
.x
->border_pixel
3209 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3210 f
->output_data
.x
->mouse_pixel
3211 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3215 /* Specify the parent under which to make this X window. */
3219 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3220 f
->output_data
.x
->explicit_parent
= 1;
3224 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3225 f
->output_data
.x
->explicit_parent
= 0;
3228 /* Set the name; the functions to which we pass f expect the name to
3230 if (EQ (name
, Qunbound
) || NILP (name
))
3232 f
->name
= build_string (dpyinfo
->x_id_name
);
3233 f
->explicit_name
= 0;
3238 f
->explicit_name
= 1;
3239 /* use the frame's title when getting resources for this frame. */
3240 specbind (Qx_resource_name
, name
);
3243 /* Extract the window parameters from the supplied values
3244 that are needed to determine window geometry. */
3248 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3251 /* First, try whatever font the caller has specified. */
3254 tem
= Fquery_fontset (font
, Qnil
);
3256 font
= x_new_fontset (f
, SDATA (tem
));
3258 font
= x_new_font (f
, SDATA (font
));
3261 /* Try out a font which we hope has bold and italic variations. */
3262 if (!STRINGP (font
))
3263 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
3264 if (!STRINGP (font
))
3265 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3266 if (! STRINGP (font
))
3267 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3268 if (! STRINGP (font
))
3269 /* This was formerly the first thing tried, but it finds too many fonts
3270 and takes too long. */
3271 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
3272 /* If those didn't work, look for something which will at least work. */
3273 if (! STRINGP (font
))
3274 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
3276 if (! STRINGP (font
))
3277 font
= build_string ("fixed");
3279 x_set_frame_parameters (f
, Fcons (Fcons (Qfont
, font
), Qnil
));
3283 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3284 whereby it fails to get any font. */
3285 xlwmenu_default_font
= FRAME_FONT (f
);
3288 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3289 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3291 /* This defaults to 1 in order to match xterm. We recognize either
3292 internalBorderWidth or internalBorder (which is what xterm calls
3294 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3298 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3299 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3300 if (! EQ (value
, Qunbound
))
3301 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3304 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3305 "internalBorderWidth", "internalBorderWidth",
3307 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3308 "verticalScrollBars", "ScrollBars",
3311 /* Also do the stuff which must be set before the window exists. */
3312 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3313 "foreground", "Foreground", RES_TYPE_STRING
);
3314 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3315 "background", "Background", RES_TYPE_STRING
);
3316 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3317 "pointerColor", "Foreground", RES_TYPE_STRING
);
3318 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3319 "cursorColor", "Foreground", RES_TYPE_STRING
);
3320 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3321 "borderColor", "BorderColor", RES_TYPE_STRING
);
3322 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3323 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3324 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3325 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3326 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3327 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3328 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3329 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3331 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3332 "scrollBarForeground",
3333 "ScrollBarForeground", 1);
3334 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3335 "scrollBarBackground",
3336 "ScrollBarBackground", 0);
3338 /* Init faces before x_default_parameter is called for scroll-bar
3339 parameters because that function calls x_set_scroll_bar_width,
3340 which calls change_frame_size, which calls Fset_window_buffer,
3341 which runs hooks, which call Fvertical_motion. At the end, we
3342 end up in init_iterator with a null face cache, which should not
3344 init_frame_faces (f
);
3346 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3347 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3348 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3349 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3350 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3351 "bufferPredicate", "BufferPredicate",
3353 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3354 "title", "Title", RES_TYPE_STRING
);
3355 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3356 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3357 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3358 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3360 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3362 /* Compute the size of the X window. */
3363 window_prompting
= x_figure_window_size (f
, parms
, 1);
3365 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3366 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3368 x_icon_verify (f
, parms
);
3370 /* Create the X widget or window. */
3371 #ifdef USE_X_TOOLKIT
3372 x_window (f
, window_prompting
, minibuffer_only
);
3380 /* Now consider the frame official. */
3381 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3382 Vframe_list
= Fcons (frame
, Vframe_list
);
3384 /* We need to do this after creating the X window, so that the
3385 icon-creation functions can say whose icon they're describing. */
3386 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3387 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3389 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3390 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3391 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3392 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3393 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3394 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3395 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3396 "scrollBarWidth", "ScrollBarWidth",
3399 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3400 Change will not be effected unless different from the current
3402 width
= FRAME_COLS (f
);
3403 height
= FRAME_LINES (f
);
3405 SET_FRAME_COLS (f
, 0);
3406 FRAME_LINES (f
) = 0;
3407 change_frame_size (f
, height
, width
, 1, 0, 0);
3409 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3410 /* Create the menu bar. */
3411 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3413 /* If this signals an error, we haven't set size hints for the
3414 frame and we didn't make it visible. */
3415 initialize_frame_menubar (f
);
3418 /* This is a no-op, except under Motif where it arranges the
3419 main window for the widgets on it. */
3420 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3421 f
->output_data
.x
->menubar_widget
,
3422 f
->output_data
.x
->edit_widget
);
3423 #endif /* not USE_GTK */
3425 #endif /* USE_X_TOOLKIT || USE_GTK */
3427 /* Tell the server what size and position, etc, we want, and how
3428 badly we want them. This should be done after we have the menu
3429 bar so that its size can be taken into account. */
3431 x_wm_set_size_hint (f
, window_prompting
, 0);
3434 /* Make the window appear on the frame and enable display, unless
3435 the caller says not to. However, with explicit parent, Emacs
3436 cannot control visibility, so don't try. */
3437 if (! f
->output_data
.x
->explicit_parent
)
3439 Lisp_Object visibility
;
3441 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3443 if (EQ (visibility
, Qunbound
))
3446 if (EQ (visibility
, Qicon
))
3447 x_iconify_frame (f
);
3448 else if (! NILP (visibility
))
3449 x_make_frame_visible (f
);
3451 /* Must have been Qnil. */
3455 /* Set the WM leader property. GTK does this itself, so this is not
3456 needed when using GTK. */
3457 if (dpyinfo
->client_leader_window
!= 0)
3460 XChangeProperty (FRAME_X_DISPLAY (f
),
3461 FRAME_OUTER_WINDOW (f
),
3462 dpyinfo
->Xatom_wm_client_leader
,
3463 XA_WINDOW
, 32, PropModeReplace
,
3464 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3468 /* Initialize `default-minibuffer-frame' in case this is the first
3469 frame on this terminal. */
3470 if (FRAME_HAS_MINIBUF_P (f
)
3471 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3472 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3473 kb
->Vdefault_minibuffer_frame
= frame
;
3475 /* All remaining specified parameters, which have not been "used"
3476 by x_get_arg and friends, now go in the misc. alist of the frame. */
3477 for (tem
= parms
; !NILP (tem
); tem
= XCDR (tem
))
3478 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3479 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3481 store_frame_param (f
, Qwindow_system
, Qx
);
3485 /* Make sure windows on this frame appear in calls to next-window
3486 and similar functions. */
3487 Vwindow_list
= Qnil
;
3489 return unbind_to (count
, frame
);
3493 /* FRAME is used only to get a handle on the X display. We don't pass the
3494 display info directly because we're called from frame.c, which doesn't
3495 know about that structure. */
3498 x_get_focus_frame (frame
)
3499 struct frame
*frame
;
3501 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3503 if (! dpyinfo
->x_focus_frame
)
3506 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3511 /* In certain situations, when the window manager follows a
3512 click-to-focus policy, there seems to be no way around calling
3513 XSetInputFocus to give another frame the input focus .
3515 In an ideal world, XSetInputFocus should generally be avoided so
3516 that applications don't interfere with the window manager's focus
3517 policy. But I think it's okay to use when it's clearly done
3518 following a user-command. */
3520 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3521 doc
: /* Set the input focus to FRAME.
3522 FRAME nil means use the selected frame. */)
3526 struct frame
*f
= check_x_frame (frame
);
3527 Display
*dpy
= FRAME_X_DISPLAY (f
);
3530 x_catch_errors (dpy
);
3531 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3532 RevertToParent
, CurrentTime
);
3533 x_ewmh_activate_frame (f
);
3534 x_uncatch_errors ();
3541 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3542 doc
: /* Internal function called by `color-defined-p', which see. */)
3544 Lisp_Object color
, frame
;
3547 FRAME_PTR f
= check_x_frame (frame
);
3549 CHECK_STRING (color
);
3551 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3557 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3558 doc
: /* Internal function called by `color-values', which see. */)
3560 Lisp_Object color
, frame
;
3563 FRAME_PTR f
= check_x_frame (frame
);
3565 CHECK_STRING (color
);
3567 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3568 return list3 (make_number (foo
.red
),
3569 make_number (foo
.green
),
3570 make_number (foo
.blue
));
3575 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3576 doc
: /* Internal function called by `display-color-p', which see. */)
3578 Lisp_Object terminal
;
3580 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3582 if (dpyinfo
->n_planes
<= 2)
3585 switch (dpyinfo
->visual
->class)
3598 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3600 doc
: /* Return t if the X display supports shades of gray.
3601 Note that color displays do support shades of gray.
3602 The optional argument TERMINAL specifies which display to ask about.
3603 TERMINAL should be a terminal id, a frame or a display name (a string).
3604 If omitted or nil, that stands for the selected frame's display. */)
3606 Lisp_Object terminal
;
3608 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3610 if (dpyinfo
->n_planes
<= 1)
3613 switch (dpyinfo
->visual
->class)
3628 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3630 doc
: /* Returns the width in pixels of the X display TERMINAL.
3631 The optional argument TERMINAL specifies which display to ask about.
3632 TERMINAL should be a terminal id, a frame or a display name (a string).
3633 If omitted or nil, that stands for the selected frame's display. */)
3635 Lisp_Object terminal
;
3637 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3639 return make_number (dpyinfo
->width
);
3642 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3643 Sx_display_pixel_height
, 0, 1, 0,
3644 doc
: /* Returns the height in pixels of the X display TERMINAL.
3645 The optional argument TERMINAL specifies which display to ask about.
3646 TERMINAL should be a terminal id, a frame or a display name (a string).
3647 If omitted or nil, that stands for the selected frame's display. */)
3649 Lisp_Object terminal
;
3651 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3653 return make_number (dpyinfo
->height
);
3656 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3658 doc
: /* Returns the number of bitplanes of the X display TERMINAL.
3659 The optional argument TERMINAL specifies which display to ask about.
3660 TERMINAL should be a terminal id, a frame or a display name (a string).
3661 If omitted or nil, that stands for the selected frame's display. */)
3663 Lisp_Object terminal
;
3665 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3667 return make_number (dpyinfo
->n_planes
);
3670 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3672 doc
: /* Returns the number of color cells of the X display TERMINAL.
3673 The optional argument TERMINAL specifies which display to ask about.
3674 TERMINAL should be a terminal id, a frame or a display name (a string).
3675 If omitted or nil, that stands for the selected frame's display. */)
3677 Lisp_Object terminal
;
3679 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3681 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3682 XScreenNumberOfScreen (dpyinfo
->screen
));
3684 /* Truncate nr_planes to 24 to avoid integer overflow.
3685 Some displays says 32, but only 24 bits are actually significant.
3686 There are only very few and rare video cards that have more than
3687 24 significant bits. Also 24 bits is more than 16 million colors,
3688 it "should be enough for everyone". */
3689 if (nr_planes
> 24) nr_planes
= 24;
3691 return make_number (1 << nr_planes
);
3694 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3695 Sx_server_max_request_size
,
3697 doc
: /* Returns the maximum request size of the X server of display TERMINAL.
3698 The optional argument TERMINAL specifies which display to ask about.
3699 TERMINAL should be a terminal id, a frame or a display name (a string).
3700 If omitted or nil, that stands for the selected frame's display. */)
3702 Lisp_Object terminal
;
3704 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3706 return make_number (MAXREQUEST (dpyinfo
->display
));
3709 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3710 doc
: /* Returns the "vendor ID" string of the X server of display TERMINAL.
3711 \(Labelling every distributor as a "vendor" embodies the false assumption
3712 that operating systems cannot be developed and distributed noncommercially.)
3713 The optional argument TERMINAL specifies which display to ask about.
3714 TERMINAL should be a terminal id, a frame or a display name (a string).
3715 If omitted or nil, that stands for the selected frame's display. */)
3717 Lisp_Object terminal
;
3719 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3720 char *vendor
= ServerVendor (dpyinfo
->display
);
3722 if (! vendor
) vendor
= "";
3723 return build_string (vendor
);
3726 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3727 doc
: /* Returns the version numbers of the X server of display TERMINAL.
3728 The value is a list of three integers: the major and minor
3729 version numbers of the X Protocol in use, and the distributor-specific release
3730 number. See also the function `x-server-vendor'.
3732 The optional argument TERMINAL specifies which display to ask about.
3733 TERMINAL should be a terminal id, a frame or a display name (a string).
3734 If omitted or nil, that stands for the selected frame's display. */)
3736 Lisp_Object terminal
;
3738 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3739 Display
*dpy
= dpyinfo
->display
;
3741 return Fcons (make_number (ProtocolVersion (dpy
)),
3742 Fcons (make_number (ProtocolRevision (dpy
)),
3743 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3746 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3747 doc
: /* Return the number of screens on the X server of display TERMINAL.
3748 The optional argument TERMINAL specifies which display to ask about.
3749 TERMINAL should be a terminal id, a frame or a display name (a string).
3750 If omitted or nil, that stands for the selected frame's display. */)
3752 Lisp_Object terminal
;
3754 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3756 return make_number (ScreenCount (dpyinfo
->display
));
3759 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3760 doc
: /* Return the height in millimeters of the X display TERMINAL.
3761 The optional argument TERMINAL specifies which display to ask about.
3762 TERMINAL should be a terminal id, a frame or a display name (a string).
3763 If omitted or nil, that stands for the selected frame's display. */)
3765 Lisp_Object terminal
;
3767 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3769 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3772 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3773 doc
: /* Return the width in millimeters of the X display TERMINAL.
3774 The optional argument TERMINAL specifies which display to ask about.
3775 TERMINAL should be a terminal id, a frame or a display name (a string).
3776 If omitted or nil, that stands for the selected frame's display. */)
3778 Lisp_Object terminal
;
3780 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3782 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3785 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3786 Sx_display_backing_store
, 0, 1, 0,
3787 doc
: /* Returns an indication of whether X display TERMINAL does backing store.
3788 The value may be `always', `when-mapped', or `not-useful'.
3789 The optional argument TERMINAL specifies which display to ask about.
3790 TERMINAL should be a terminal id, a frame or a display name (a string).
3791 If omitted or nil, that stands for the selected frame's display. */)
3793 Lisp_Object terminal
;
3795 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3798 switch (DoesBackingStore (dpyinfo
->screen
))
3801 result
= intern ("always");
3805 result
= intern ("when-mapped");
3809 result
= intern ("not-useful");
3813 error ("Strange value for BackingStore parameter of screen");
3820 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3821 Sx_display_visual_class
, 0, 1, 0,
3822 doc
: /* Return the visual class of the X display TERMINAL.
3823 The value is one of the symbols `static-gray', `gray-scale',
3824 `static-color', `pseudo-color', `true-color', or `direct-color'.
3826 The optional argument TERMINAL specifies which display to ask about.
3827 TERMINAL should a terminal id, a frame or a display name (a string).
3828 If omitted or nil, that stands for the selected frame's display. */)
3830 Lisp_Object terminal
;
3832 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3835 switch (dpyinfo
->visual
->class)
3838 result
= intern ("static-gray");
3841 result
= intern ("gray-scale");
3844 result
= intern ("static-color");
3847 result
= intern ("pseudo-color");
3850 result
= intern ("true-color");
3853 result
= intern ("direct-color");
3856 error ("Display has an unknown visual class");
3863 DEFUN ("x-display-save-under", Fx_display_save_under
,
3864 Sx_display_save_under
, 0, 1, 0,
3865 doc
: /* Returns t if the X display TERMINAL supports the save-under feature.
3866 The optional argument TERMINAL specifies which display to ask about.
3867 TERMINAL should be a terminal id, a frame or a display name (a string).
3868 If omitted or nil, that stands for the selected frame's display. */)
3870 Lisp_Object terminal
;
3872 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3874 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3882 register struct frame
*f
;
3884 return FRAME_PIXEL_WIDTH (f
);
3889 register struct frame
*f
;
3891 return FRAME_PIXEL_HEIGHT (f
);
3896 register struct frame
*f
;
3898 return FRAME_COLUMN_WIDTH (f
);
3903 register struct frame
*f
;
3905 return FRAME_LINE_HEIGHT (f
);
3910 register struct frame
*f
;
3912 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3917 /************************************************************************
3919 ************************************************************************/
3922 /* Mapping visual names to visuals. */
3924 static struct visual_class
3931 {"StaticGray", StaticGray
},
3932 {"GrayScale", GrayScale
},
3933 {"StaticColor", StaticColor
},
3934 {"PseudoColor", PseudoColor
},
3935 {"TrueColor", TrueColor
},
3936 {"DirectColor", DirectColor
},
3941 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3943 /* Value is the screen number of screen SCR. This is a substitute for
3944 the X function with the same name when that doesn't exist. */
3947 XScreenNumberOfScreen (scr
)
3948 register Screen
*scr
;
3950 Display
*dpy
= scr
->display
;
3953 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3954 if (scr
== dpy
->screens
+ i
)
3960 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3963 /* Select the visual that should be used on display DPYINFO. Set
3964 members of DPYINFO appropriately. Called from x_term_init. */
3967 select_visual (dpyinfo
)
3968 struct x_display_info
*dpyinfo
;
3970 Display
*dpy
= dpyinfo
->display
;
3971 Screen
*screen
= dpyinfo
->screen
;
3974 /* See if a visual is specified. */
3975 value
= display_x_get_resource (dpyinfo
,
3976 build_string ("visualClass"),
3977 build_string ("VisualClass"),
3979 if (STRINGP (value
))
3981 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3982 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3983 depth, a decimal number. NAME is compared with case ignored. */
3984 char *s
= (char *) alloca (SBYTES (value
) + 1);
3989 strcpy (s
, SDATA (value
));
3990 dash
= index (s
, '-');
3993 dpyinfo
->n_planes
= atoi (dash
+ 1);
3997 /* We won't find a matching visual with depth 0, so that
3998 an error will be printed below. */
3999 dpyinfo
->n_planes
= 0;
4001 /* Determine the visual class. */
4002 for (i
= 0; visual_classes
[i
].name
; ++i
)
4003 if (xstricmp (s
, visual_classes
[i
].name
) == 0)
4005 class = visual_classes
[i
].class;
4009 /* Look up a matching visual for the specified class. */
4011 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4012 dpyinfo
->n_planes
, class, &vinfo
))
4013 fatal ("Invalid visual specification `%s'", SDATA (value
));
4015 dpyinfo
->visual
= vinfo
.visual
;
4020 XVisualInfo
*vinfo
, vinfo_template
;
4022 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4025 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4027 vinfo_template
.visualid
= dpyinfo
->visual
->visualid
;
4029 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4030 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4031 &vinfo_template
, &n_visuals
);
4033 fatal ("Can't get proper X visual info");
4035 dpyinfo
->n_planes
= vinfo
->depth
;
4036 XFree ((char *) vinfo
);
4041 /* Return the X display structure for the display named NAME.
4042 Open a new connection if necessary. */
4044 struct x_display_info
*
4045 x_display_info_for_name (name
)
4049 struct x_display_info
*dpyinfo
;
4051 CHECK_STRING (name
);
4054 if (! EQ (Vinitial_window_system
, intern ("x")))
4055 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4058 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4060 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4063 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4068 /* Use this general default value to start with. */
4069 Vx_resource_name
= Vinvocation_name
;
4071 validate_x_resource_name ();
4073 dpyinfo
= x_term_init (name
, (char *)0,
4074 (char *) SDATA (Vx_resource_name
));
4077 error ("Cannot connect to X server %s", SDATA (name
));
4080 XSETFASTINT (Vwindow_system_version
, 11);
4086 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4088 doc
: /* Open a connection to an X server.
4089 DISPLAY is the name of the display to connect to.
4090 Optional second arg XRM-STRING is a string of resources in xrdb format.
4091 If the optional third arg MUST-SUCCEED is non-nil,
4092 terminate Emacs if we can't open the connection. */)
4093 (display
, xrm_string
, must_succeed
)
4094 Lisp_Object display
, xrm_string
, must_succeed
;
4096 unsigned char *xrm_option
;
4097 struct x_display_info
*dpyinfo
;
4099 CHECK_STRING (display
);
4100 if (! NILP (xrm_string
))
4101 CHECK_STRING (xrm_string
);
4104 if (! EQ (Vinitial_window_system
, intern ("x")))
4105 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4108 if (! NILP (xrm_string
))
4109 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4111 xrm_option
= (unsigned char *) 0;
4113 validate_x_resource_name ();
4115 /* This is what opens the connection and sets x_current_display.
4116 This also initializes many symbols, such as those used for input. */
4117 dpyinfo
= x_term_init (display
, xrm_option
,
4118 (char *) SDATA (Vx_resource_name
));
4122 if (!NILP (must_succeed
))
4123 fatal ("Cannot connect to X server %s.\n\
4124 Check the DISPLAY environment variable or use `-d'.\n\
4125 Also use the `xauth' program to verify that you have the proper\n\
4126 authorization information needed to connect the X server.\n\
4127 An insecure way to solve the problem may be to use `xhost'.\n",
4130 error ("Cannot connect to X server %s", SDATA (display
));
4135 XSETFASTINT (Vwindow_system_version
, 11);
4139 DEFUN ("x-close-connection", Fx_close_connection
,
4140 Sx_close_connection
, 1, 1, 0,
4141 doc
: /* Close the connection to TERMINAL's X server.
4142 For TERMINAL, specify a terminal id, a frame or a display name (a
4143 string). If TERMINAL is nil, that stands for the selected frame's
4146 Lisp_Object terminal
;
4148 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4150 if (dpyinfo
->reference_count
> 0)
4151 error ("Display still has frames on it");
4153 x_delete_terminal (dpyinfo
->terminal
);
4158 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4159 doc
: /* Return the list of display names that Emacs has connections to. */)
4162 Lisp_Object tail
, result
;
4165 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
4166 result
= Fcons (XCAR (XCAR (tail
)), result
);
4171 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4172 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4173 If ON is nil, allow buffering of requests.
4174 Turning on synchronization prohibits the Xlib routines from buffering
4175 requests and seriously degrades performance, but makes debugging much
4177 The optional second argument TERMINAL specifies which display to act on.
4178 TERMINAL should be a terminal id, a frame or a display name (a string).
4179 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4181 Lisp_Object terminal
, on
;
4183 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4185 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4190 /* Wait for responses to all X commands issued so far for frame F. */
4197 XSync (FRAME_X_DISPLAY (f
), False
);
4202 /***********************************************************************
4204 ***********************************************************************/
4206 DEFUN ("x-change-window-property", Fx_change_window_property
,
4207 Sx_change_window_property
, 2, 6, 0,
4208 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4209 PROP must be a string.
4210 VALUE may be a string or a list of conses, numbers and/or strings.
4211 If an element in the list is a string, it is converted to
4212 an Atom and the value of the Atom is used. If an element is a cons,
4213 it is converted to a 32 bit number where the car is the 16 top bits and the
4214 cdr is the lower 16 bits.
4215 FRAME nil or omitted means use the selected frame.
4216 If TYPE is given and non-nil, it is the name of the type of VALUE.
4217 If TYPE is not given or nil, the type is STRING.
4218 FORMAT gives the size in bits of each element if VALUE is a list.
4219 It must be one of 8, 16 or 32.
4220 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4221 If OUTER_P is non-nil, the property is changed for the outer X window of
4222 FRAME. Default is to change on the edit X window.
4225 (prop
, value
, frame
, type
, format
, outer_p
)
4226 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4228 struct frame
*f
= check_x_frame (frame
);
4230 Atom target_type
= XA_STRING
;
4231 int element_format
= 8;
4232 unsigned char *data
;
4236 CHECK_STRING (prop
);
4238 if (! NILP (format
))
4240 CHECK_NUMBER (format
);
4241 element_format
= XFASTINT (format
);
4243 if (element_format
!= 8 && element_format
!= 16
4244 && element_format
!= 32)
4245 error ("FORMAT must be one of 8, 16 or 32");
4250 nelements
= x_check_property_data (value
);
4251 if (nelements
== -1)
4252 error ("Bad data in VALUE, must be number, string or cons");
4254 if (element_format
== 8)
4255 data
= (unsigned char *) xmalloc (nelements
);
4256 else if (element_format
== 16)
4257 data
= (unsigned char *) xmalloc (nelements
*2);
4258 else /* format == 32 */
4259 /* The man page for XChangeProperty:
4260 "If the specified format is 32, the property data must be a
4262 This applies even if long is more than 64 bits. The X library
4263 converts to 32 bits before sending to the X server. */
4264 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4266 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4270 CHECK_STRING (value
);
4271 data
= SDATA (value
);
4272 nelements
= SCHARS (value
);
4276 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4279 CHECK_STRING (type
);
4280 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4283 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4284 else w
= FRAME_X_WINDOW (f
);
4286 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4287 prop_atom
, target_type
, element_format
, PropModeReplace
,
4290 if (CONSP (value
)) xfree (data
);
4292 /* Make sure the property is set when we return. */
4293 XFlush (FRAME_X_DISPLAY (f
));
4300 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4301 Sx_delete_window_property
, 1, 2, 0,
4302 doc
: /* Remove window property PROP from X window of FRAME.
4303 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4305 Lisp_Object prop
, frame
;
4307 struct frame
*f
= check_x_frame (frame
);
4310 CHECK_STRING (prop
);
4312 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4313 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4315 /* Make sure the property is removed when we return. */
4316 XFlush (FRAME_X_DISPLAY (f
));
4323 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4325 doc
: /* Value is the value of window property PROP on FRAME.
4326 If FRAME is nil or omitted, use the selected frame.
4327 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4328 is the name of the Atom that denotes the type expected.
4329 If SOURCE is non-nil, get the property on that window instead of from
4330 FRAME. The number 0 denotes the root window.
4331 If DELETE_P is non-nil, delete the property after retreiving it.
4332 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4334 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4335 no value of TYPE. */)
4336 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4337 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4339 struct frame
*f
= check_x_frame (frame
);
4342 Lisp_Object prop_value
= Qnil
;
4343 unsigned char *tmp_data
= NULL
;
4345 Atom target_type
= XA_STRING
;
4347 unsigned long actual_size
, bytes_remaining
;
4348 Window target_window
= FRAME_X_WINDOW (f
);
4349 struct gcpro gcpro1
;
4351 GCPRO1 (prop_value
);
4352 CHECK_STRING (prop
);
4354 if (! NILP (source
))
4356 if (NUMBERP (source
))
4358 if (FLOATP (source
))
4359 target_window
= (Window
) XFLOAT (source
);
4361 target_window
= XFASTINT (source
);
4363 if (target_window
== 0)
4364 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4366 else if (CONSP (source
))
4367 target_window
= cons_to_long (source
);
4373 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4374 target_type
= AnyPropertyType
;
4376 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4379 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4380 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4381 prop_atom
, 0, 0, False
, target_type
,
4382 &actual_type
, &actual_format
, &actual_size
,
4383 &bytes_remaining
, &tmp_data
);
4386 int size
= bytes_remaining
;
4391 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4392 prop_atom
, 0, bytes_remaining
,
4393 ! NILP (delete_p
), target_type
,
4394 &actual_type
, &actual_format
,
4395 &actual_size
, &bytes_remaining
,
4397 if (rc
== Success
&& tmp_data
)
4399 /* The man page for XGetWindowProperty says:
4400 "If the returned format is 32, the returned data is represented
4401 as a long array and should be cast to that type to obtain the
4403 This applies even if long is more than 32 bits, the X library
4404 converts from 32 bit elements received from the X server to long
4405 and passes the long array to us. Thus, for that case bcopy can not
4406 be used. We convert to a 32 bit type here, because so much code
4409 The bytes and offsets passed to XGetWindowProperty refers to the
4410 property and those are indeed in 32 bit quantities if format is
4413 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4416 int *idata
= (int *) tmp_data
;
4417 long *ldata
= (long *) tmp_data
;
4419 for (i
= 0; i
< actual_size
; ++i
)
4420 idata
[i
] = (int) ldata
[i
];
4423 if (NILP (vector_ret_p
))
4424 prop_value
= make_string (tmp_data
, size
);
4426 prop_value
= x_property_data_to_lisp (f
,
4433 if (tmp_data
) XFree (tmp_data
);
4443 /***********************************************************************
4445 ***********************************************************************/
4447 /* If non-null, an asynchronous timer that, when it expires, displays
4448 an hourglass cursor on all frames. */
4450 static struct atimer
*hourglass_atimer
;
4452 /* Non-zero means an hourglass cursor is currently shown. */
4454 static int hourglass_shown_p
;
4456 /* Number of seconds to wait before displaying an hourglass cursor. */
4458 static Lisp_Object Vhourglass_delay
;
4460 /* Default number of seconds to wait before displaying an hourglass
4463 #define DEFAULT_HOURGLASS_DELAY 1
4465 /* Function prototypes. */
4467 static void show_hourglass
P_ ((struct atimer
*));
4468 static void hide_hourglass
P_ ((void));
4470 /* Return non-zero if houglass timer has been started or hourglass is shown. */
4473 hourglass_started ()
4475 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
4479 /* Cancel a currently active hourglass timer, and start a new one. */
4485 int secs
, usecs
= 0;
4487 cancel_hourglass ();
4489 if (INTEGERP (Vhourglass_delay
)
4490 && XINT (Vhourglass_delay
) > 0)
4491 secs
= XFASTINT (Vhourglass_delay
);
4492 else if (FLOATP (Vhourglass_delay
)
4493 && XFLOAT_DATA (Vhourglass_delay
) > 0)
4496 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
4497 secs
= XFASTINT (tem
);
4498 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
4501 secs
= DEFAULT_HOURGLASS_DELAY
;
4503 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
4504 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
4505 show_hourglass
, NULL
);
4509 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
4515 if (hourglass_atimer
)
4517 cancel_atimer (hourglass_atimer
);
4518 hourglass_atimer
= NULL
;
4521 if (hourglass_shown_p
)
4526 /* Timer function of hourglass_atimer. TIMER is equal to
4529 Display an hourglass pointer on all frames by mapping the frames'
4530 hourglass_window. Set the hourglass_p flag in the frames'
4531 output_data.x structure to indicate that an hourglass cursor is
4532 shown on the frames. */
4535 show_hourglass (timer
)
4536 struct atimer
*timer
;
4538 /* The timer implementation will cancel this timer automatically
4539 after this function has run. Set hourglass_atimer to null
4540 so that we know the timer doesn't have to be canceled. */
4541 hourglass_atimer
= NULL
;
4543 if (!hourglass_shown_p
)
4545 Lisp_Object rest
, frame
;
4549 FOR_EACH_FRAME (rest
, frame
)
4551 struct frame
*f
= XFRAME (frame
);
4553 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4555 Display
*dpy
= FRAME_X_DISPLAY (f
);
4557 #ifdef USE_X_TOOLKIT
4558 if (f
->output_data
.x
->widget
)
4560 if (FRAME_OUTER_WINDOW (f
))
4563 f
->output_data
.x
->hourglass_p
= 1;
4565 if (!f
->output_data
.x
->hourglass_window
)
4567 unsigned long mask
= CWCursor
;
4568 XSetWindowAttributes attrs
;
4570 Window parent
= FRAME_X_WINDOW (f
);
4572 Window parent
= FRAME_OUTER_WINDOW (f
);
4574 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4576 f
->output_data
.x
->hourglass_window
4577 = XCreateWindow (dpy
, parent
,
4578 0, 0, 32000, 32000, 0, 0,
4584 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4590 hourglass_shown_p
= 1;
4596 /* Hide the hourglass pointer on all frames, if it is currently
4602 if (hourglass_shown_p
)
4604 Lisp_Object rest
, frame
;
4607 FOR_EACH_FRAME (rest
, frame
)
4609 struct frame
*f
= XFRAME (frame
);
4612 /* Watch out for newly created frames. */
4613 && f
->output_data
.x
->hourglass_window
)
4615 XUnmapWindow (FRAME_X_DISPLAY (f
),
4616 f
->output_data
.x
->hourglass_window
);
4617 /* Sync here because XTread_socket looks at the
4618 hourglass_p flag that is reset to zero below. */
4619 XSync (FRAME_X_DISPLAY (f
), False
);
4620 f
->output_data
.x
->hourglass_p
= 0;
4624 hourglass_shown_p
= 0;
4631 /***********************************************************************
4633 ***********************************************************************/
4635 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4636 Lisp_Object
, Lisp_Object
));
4637 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4638 Lisp_Object
, int, int, int *, int *));
4640 /* The frame of a currently visible tooltip. */
4642 Lisp_Object tip_frame
;
4644 /* If non-nil, a timer started that hides the last tooltip when it
4647 Lisp_Object tip_timer
;
4650 /* If non-nil, a vector of 3 elements containing the last args
4651 with which x-show-tip was called. See there. */
4653 Lisp_Object last_show_tip_args
;
4655 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4657 Lisp_Object Vx_max_tooltip_size
;
4661 unwind_create_tip_frame (frame
)
4664 Lisp_Object deleted
;
4666 deleted
= unwind_create_frame (frame
);
4667 if (EQ (deleted
, Qt
))
4677 /* Create a frame for a tooltip on the display described by DPYINFO.
4678 PARMS is a list of frame parameters. TEXT is the string to
4679 display in the tip frame. Value is the frame.
4681 Note that functions called here, esp. x_default_parameter can
4682 signal errors, for instance when a specified color name is
4683 undefined. We have to make sure that we're in a consistent state
4684 when this happens. */
4687 x_create_tip_frame (dpyinfo
, parms
, text
)
4688 struct x_display_info
*dpyinfo
;
4689 Lisp_Object parms
, text
;
4692 Lisp_Object frame
, tem
;
4694 long window_prompting
= 0;
4696 int count
= SPECPDL_INDEX ();
4697 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4698 int face_change_count_before
= face_change_count
;
4700 struct buffer
*old_buffer
;
4704 if (dpyinfo
->terminal
->deleted
)
4705 error ("Terminal is being deleted, can't create new frames on it");
4707 parms
= Fcopy_alist (parms
);
4709 /* Get the name of the frame to use for resource lookup. */
4710 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4712 && !EQ (name
, Qunbound
)
4714 error ("Invalid frame name--not a string or nil");
4717 GCPRO3 (parms
, name
, frame
);
4719 XSETFRAME (frame
, f
);
4721 buffer
= Fget_buffer_create (build_string (" *tip*"));
4722 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4723 old_buffer
= current_buffer
;
4724 set_buffer_internal_1 (XBUFFER (buffer
));
4725 current_buffer
->truncate_lines
= Qnil
;
4726 specbind (Qinhibit_read_only
, Qt
);
4727 specbind (Qinhibit_modification_hooks
, Qt
);
4730 set_buffer_internal_1 (old_buffer
);
4732 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4733 record_unwind_protect (unwind_create_tip_frame
, frame
);
4735 f
->terminal
= dpyinfo
->terminal
;
4736 f
->terminal
->reference_count
++;
4738 /* By setting the output method, we're essentially saying that
4739 the frame is live, as per FRAME_LIVE_P. If we get a signal
4740 from this point on, x_destroy_window might screw up reference
4742 f
->output_method
= output_x_window
;
4743 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4744 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4745 f
->output_data
.x
->icon_bitmap
= -1;
4746 FRAME_FONTSET (f
) = -1;
4747 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4748 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4749 #ifdef USE_TOOLKIT_SCROLL_BARS
4750 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4751 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4752 #endif /* USE_TOOLKIT_SCROLL_BARS */
4753 f
->icon_name
= Qnil
;
4754 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4756 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
4757 dpyinfo_refcount
= dpyinfo
->reference_count
;
4758 #endif /* GLYPH_DEBUG */
4759 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4760 f
->output_data
.x
->explicit_parent
= 0;
4762 /* These colors will be set anyway later, but it's important
4763 to get the color reference counts right, so initialize them! */
4766 struct gcpro gcpro1
;
4768 /* Function x_decode_color can signal an error. Make
4769 sure to initialize color slots so that we won't try
4770 to free colors we haven't allocated. */
4771 FRAME_FOREGROUND_PIXEL (f
) = -1;
4772 FRAME_BACKGROUND_PIXEL (f
) = -1;
4773 f
->output_data
.x
->cursor_pixel
= -1;
4774 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4775 f
->output_data
.x
->border_pixel
= -1;
4776 f
->output_data
.x
->mouse_pixel
= -1;
4778 black
= build_string ("black");
4780 FRAME_FOREGROUND_PIXEL (f
)
4781 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4782 FRAME_BACKGROUND_PIXEL (f
)
4783 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4784 f
->output_data
.x
->cursor_pixel
4785 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4786 f
->output_data
.x
->cursor_foreground_pixel
4787 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4788 f
->output_data
.x
->border_pixel
4789 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4790 f
->output_data
.x
->mouse_pixel
4791 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4795 /* Set the name; the functions to which we pass f expect the name to
4797 if (EQ (name
, Qunbound
) || NILP (name
))
4799 f
->name
= build_string (dpyinfo
->x_id_name
);
4800 f
->explicit_name
= 0;
4805 f
->explicit_name
= 1;
4806 /* use the frame's title when getting resources for this frame. */
4807 specbind (Qx_resource_name
, name
);
4810 /* Extract the window parameters from the supplied values that are
4811 needed to determine window geometry. */
4815 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
4818 /* First, try whatever font the caller has specified. */
4821 tem
= Fquery_fontset (font
, Qnil
);
4823 font
= x_new_fontset (f
, SDATA (tem
));
4825 font
= x_new_font (f
, SDATA (font
));
4828 /* Try out a font which we hope has bold and italic variations. */
4829 if (!STRINGP (font
))
4830 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
4831 if (!STRINGP (font
))
4832 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4833 if (! STRINGP (font
))
4834 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4835 if (! STRINGP (font
))
4836 /* This was formerly the first thing tried, but it finds too many fonts
4837 and takes too long. */
4838 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
4839 /* If those didn't work, look for something which will at least work. */
4840 if (! STRINGP (font
))
4841 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
4843 if (! STRINGP (font
))
4844 font
= build_string ("fixed");
4846 x_default_parameter (f
, parms
, Qfont
, font
,
4847 "font", "Font", RES_TYPE_STRING
);
4850 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4851 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4853 /* This defaults to 2 in order to match xterm. We recognize either
4854 internalBorderWidth or internalBorder (which is what xterm calls
4856 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4860 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4861 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4862 if (! EQ (value
, Qunbound
))
4863 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4867 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4868 "internalBorderWidth", "internalBorderWidth",
4871 /* Also do the stuff which must be set before the window exists. */
4872 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4873 "foreground", "Foreground", RES_TYPE_STRING
);
4874 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4875 "background", "Background", RES_TYPE_STRING
);
4876 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4877 "pointerColor", "Foreground", RES_TYPE_STRING
);
4878 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4879 "cursorColor", "Foreground", RES_TYPE_STRING
);
4880 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4881 "borderColor", "BorderColor", RES_TYPE_STRING
);
4883 /* Init faces before x_default_parameter is called for scroll-bar
4884 parameters because that function calls x_set_scroll_bar_width,
4885 which calls change_frame_size, which calls Fset_window_buffer,
4886 which runs hooks, which call Fvertical_motion. At the end, we
4887 end up in init_iterator with a null face cache, which should not
4889 init_frame_faces (f
);
4891 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4893 window_prompting
= x_figure_window_size (f
, parms
, 0);
4896 XSetWindowAttributes attrs
;
4900 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4901 if (DoesSaveUnders (dpyinfo
->screen
))
4902 mask
|= CWSaveUnder
;
4904 /* Window managers look at the override-redirect flag to determine
4905 whether or net to give windows a decoration (Xlib spec, chapter
4907 attrs
.override_redirect
= True
;
4908 attrs
.save_under
= True
;
4909 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4910 /* Arrange for getting MapNotify and UnmapNotify events. */
4911 attrs
.event_mask
= StructureNotifyMask
;
4913 = FRAME_X_WINDOW (f
)
4914 = XCreateWindow (FRAME_X_DISPLAY (f
),
4915 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4916 /* x, y, width, height */
4920 CopyFromParent
, InputOutput
, CopyFromParent
,
4927 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4928 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4929 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4930 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4931 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4932 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4934 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4935 Change will not be effected unless different from the current
4937 width
= FRAME_COLS (f
);
4938 height
= FRAME_LINES (f
);
4939 SET_FRAME_COLS (f
, 0);
4940 FRAME_LINES (f
) = 0;
4941 change_frame_size (f
, height
, width
, 1, 0, 0);
4943 /* Add `tooltip' frame parameter's default value. */
4944 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4945 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4948 /* Set up faces after all frame parameters are known. This call
4949 also merges in face attributes specified for new frames.
4951 Frame parameters may be changed if .Xdefaults contains
4952 specifications for the default font. For example, if there is an
4953 `Emacs.default.attributeBackground: pink', the `background-color'
4954 attribute of the frame get's set, which let's the internal border
4955 of the tooltip frame appear in pink. Prevent this. */
4957 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4959 /* Set tip_frame here, so that */
4961 call1 (Qface_set_after_frame_default
, frame
);
4963 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4964 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4968 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qwindow_system
, Qx
), Qnil
));
4974 /* It is now ok to make the frame official even if we get an error
4975 below. And the frame needs to be on Vframe_list or making it
4976 visible won't work. */
4977 Vframe_list
= Fcons (frame
, Vframe_list
);
4979 /* Now that the frame is official, it counts as a reference to
4981 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4983 /* Setting attributes of faces of the tooltip frame from resources
4984 and similar will increment face_change_count, which leads to the
4985 clearing of all current matrices. Since this isn't necessary
4986 here, avoid it by resetting face_change_count to the value it
4987 had before we created the tip frame. */
4988 face_change_count
= face_change_count_before
;
4990 /* Discard the unwind_protect. */
4991 return unbind_to (count
, frame
);
4995 /* Compute where to display tip frame F. PARMS is the list of frame
4996 parameters for F. DX and DY are specified offsets from the current
4997 location of the mouse. WIDTH and HEIGHT are the width and height
4998 of the tooltip. Return coordinates relative to the root window of
4999 the display in *ROOT_X, and *ROOT_Y. */
5002 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
5004 Lisp_Object parms
, dx
, dy
;
5006 int *root_x
, *root_y
;
5008 Lisp_Object left
, top
;
5013 /* User-specified position? */
5014 left
= Fcdr (Fassq (Qleft
, parms
));
5015 top
= Fcdr (Fassq (Qtop
, parms
));
5017 /* Move the tooltip window where the mouse pointer is. Resize and
5019 if (!INTEGERP (left
) || !INTEGERP (top
))
5022 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
5023 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
5028 *root_y
= XINT (top
);
5029 else if (*root_y
+ XINT (dy
) <= 0)
5030 *root_y
= 0; /* Can happen for negative dy */
5031 else if (*root_y
+ XINT (dy
) + height
<= FRAME_X_DISPLAY_INFO (f
)->height
)
5032 /* It fits below the pointer */
5033 *root_y
+= XINT (dy
);
5034 else if (height
+ XINT (dy
) <= *root_y
)
5035 /* It fits above the pointer. */
5036 *root_y
-= height
+ XINT (dy
);
5038 /* Put it on the top. */
5041 if (INTEGERP (left
))
5042 *root_x
= XINT (left
);
5043 else if (*root_x
+ XINT (dx
) <= 0)
5044 *root_x
= 0; /* Can happen for negative dx */
5045 else if (*root_x
+ XINT (dx
) + width
<= FRAME_X_DISPLAY_INFO (f
)->width
)
5046 /* It fits to the right of the pointer. */
5047 *root_x
+= XINT (dx
);
5048 else if (width
+ XINT (dx
) <= *root_x
)
5049 /* It fits to the left of the pointer. */
5050 *root_x
-= width
+ XINT (dx
);
5052 /* Put it left-justified on the screen--it ought to fit that way. */
5057 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5058 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5059 A tooltip window is a small X window displaying a string.
5061 This is an internal function; Lisp code should call `tooltip-show'.
5063 FRAME nil or omitted means use the selected frame.
5065 PARMS is an optional list of frame parameters which can be used to
5066 change the tooltip's appearance.
5068 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5069 means use the default timeout of 5 seconds.
5071 If the list of frame parameters PARAMS contains a `left' parameters,
5072 the tooltip is displayed at that x-position. Otherwise it is
5073 displayed at the mouse position, with offset DX added (default is 5 if
5074 DX isn't specified). Likewise for the y-position; if a `top' frame
5075 parameter is specified, it determines the y-position of the tooltip
5076 window, otherwise it is displayed at the mouse position, with offset
5077 DY added (default is -10).
5079 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5080 Text larger than the specified size is clipped. */)
5081 (string
, frame
, parms
, timeout
, dx
, dy
)
5082 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
5087 struct buffer
*old_buffer
;
5088 struct text_pos pos
;
5089 int i
, width
, height
;
5090 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5091 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5092 int count
= SPECPDL_INDEX ();
5094 specbind (Qinhibit_redisplay
, Qt
);
5096 GCPRO4 (string
, parms
, frame
, timeout
);
5098 CHECK_STRING (string
);
5099 f
= check_x_frame (frame
);
5101 timeout
= make_number (5);
5103 CHECK_NATNUM (timeout
);
5106 dx
= make_number (5);
5111 dy
= make_number (-10);
5115 if (NILP (last_show_tip_args
))
5116 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5118 if (!NILP (tip_frame
))
5120 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5121 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5122 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5124 if (EQ (frame
, last_frame
)
5125 && !NILP (Fequal (last_string
, string
))
5126 && !NILP (Fequal (last_parms
, parms
)))
5128 struct frame
*f
= XFRAME (tip_frame
);
5130 /* Only DX and DY have changed. */
5131 if (!NILP (tip_timer
))
5133 Lisp_Object timer
= tip_timer
;
5135 call1 (Qcancel_timer
, timer
);
5139 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5140 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5141 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5148 /* Hide a previous tip, if any. */
5151 ASET (last_show_tip_args
, 0, string
);
5152 ASET (last_show_tip_args
, 1, frame
);
5153 ASET (last_show_tip_args
, 2, parms
);
5155 /* Add default values to frame parameters. */
5156 if (NILP (Fassq (Qname
, parms
)))
5157 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5158 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5159 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5160 if (NILP (Fassq (Qborder_width
, parms
)))
5161 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5162 if (NILP (Fassq (Qborder_color
, parms
)))
5163 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5164 if (NILP (Fassq (Qbackground_color
, parms
)))
5165 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5168 /* Create a frame for the tooltip, and record it in the global
5169 variable tip_frame. */
5170 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5173 /* Set up the frame's root window. */
5174 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5175 w
->left_col
= w
->top_line
= make_number (0);
5177 if (CONSP (Vx_max_tooltip_size
)
5178 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5179 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5180 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5181 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5183 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5184 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5188 w
->total_cols
= make_number (80);
5189 w
->total_lines
= make_number (40);
5192 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5194 w
->pseudo_window_p
= 1;
5196 /* Display the tooltip text in a temporary buffer. */
5197 old_buffer
= current_buffer
;
5198 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5199 current_buffer
->truncate_lines
= Qnil
;
5200 clear_glyph_matrix (w
->desired_matrix
);
5201 clear_glyph_matrix (w
->current_matrix
);
5202 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5203 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5205 /* Compute width and height of the tooltip. */
5207 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5209 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5213 /* Stop at the first empty row at the end. */
5214 if (!row
->enabled_p
|| !row
->displays_text_p
)
5217 /* Let the row go over the full width of the frame. */
5218 row
->full_width_p
= 1;
5220 /* There's a glyph at the end of rows that is used to place
5221 the cursor there. Don't include the width of this glyph. */
5222 if (row
->used
[TEXT_AREA
])
5224 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5225 row_width
= row
->pixel_width
- last
->pixel_width
;
5228 row_width
= row
->pixel_width
;
5230 height
+= row
->height
;
5231 width
= max (width
, row_width
);
5234 /* Add the frame's internal border to the width and height the X
5235 window should have. */
5236 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5237 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5239 /* Move the tooltip window where the mouse pointer is. Resize and
5241 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5244 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5245 root_x
, root_y
, width
, height
);
5246 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5249 /* Draw into the window. */
5250 w
->must_be_updated_p
= 1;
5251 update_single_window (w
, 1);
5253 /* Restore original current buffer. */
5254 set_buffer_internal_1 (old_buffer
);
5255 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5258 /* Let the tip disappear after timeout seconds. */
5259 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5260 intern ("x-hide-tip"));
5263 return unbind_to (count
, Qnil
);
5267 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5268 doc
: /* Hide the current tooltip window, if there is any.
5269 Value is t if tooltip was open, nil otherwise. */)
5273 Lisp_Object deleted
, frame
, timer
;
5274 struct gcpro gcpro1
, gcpro2
;
5276 /* Return quickly if nothing to do. */
5277 if (NILP (tip_timer
) && NILP (tip_frame
))
5282 GCPRO2 (frame
, timer
);
5283 tip_frame
= tip_timer
= deleted
= Qnil
;
5285 count
= SPECPDL_INDEX ();
5286 specbind (Qinhibit_redisplay
, Qt
);
5287 specbind (Qinhibit_quit
, Qt
);
5290 call1 (Qcancel_timer
, timer
);
5294 Fdelete_frame (frame
, Qnil
);
5298 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5299 redisplay procedure is not called when a tip frame over menu
5300 items is unmapped. Redisplay the menu manually... */
5302 struct frame
*f
= SELECTED_FRAME ();
5303 Widget w
= f
->output_data
.x
->menubar_widget
;
5304 extern void xlwmenu_redisplay
P_ ((Widget
));
5306 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5310 xlwmenu_redisplay (w
);
5314 #endif /* USE_LUCID */
5318 return unbind_to (count
, deleted
);
5323 /***********************************************************************
5324 File selection dialog
5325 ***********************************************************************/
5327 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5328 Sx_uses_old_gtk_dialog
,
5330 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5334 extern int use_dialog_box
;
5335 extern int use_file_dialog
;
5340 && xg_uses_old_file_dialog ())
5348 /* Callback for "OK" and "Cancel" on file selection dialog. */
5351 file_dialog_cb (widget
, client_data
, call_data
)
5353 XtPointer call_data
, client_data
;
5355 int *result
= (int *) client_data
;
5356 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5357 *result
= cb
->reason
;
5361 /* Callback for unmapping a file selection dialog. This is used to
5362 capture the case where a dialog is closed via a window manager's
5363 closer button, for example. Using a XmNdestroyCallback didn't work
5367 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5369 XtPointer call_data
, client_data
;
5371 int *result
= (int *) client_data
;
5372 *result
= XmCR_CANCEL
;
5376 clean_up_file_dialog (arg
)
5379 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5380 Widget dialog
= (Widget
) p
->pointer
;
5384 XtUnmanageChild (dialog
);
5385 XtDestroyWidget (dialog
);
5386 x_menu_set_in_use (0);
5393 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5394 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5395 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5396 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5397 or directory must exist. ONLY-DIR-P is ignored." */)
5398 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5399 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5402 struct frame
*f
= SELECTED_FRAME ();
5403 Lisp_Object file
= Qnil
;
5404 Lisp_Object decoded_file
;
5405 Widget dialog
, text
, help
;
5408 extern XtAppContext Xt_app_con
;
5409 XmString dir_xmstring
, pattern_xmstring
;
5410 int count
= SPECPDL_INDEX ();
5411 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5415 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5417 if (popup_activated ())
5418 error ("Trying to use a menu from within a menu-entry");
5420 CHECK_STRING (prompt
);
5423 /* Prevent redisplay. */
5424 specbind (Qinhibit_redisplay
, Qt
);
5428 /* Create the dialog with PROMPT as title, using DIR as initial
5429 directory and using "*" as pattern. */
5430 dir
= Fexpand_file_name (dir
, Qnil
);
5431 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5432 pattern_xmstring
= XmStringCreateLocalized ("*");
5434 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5435 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5436 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5437 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5438 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5439 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5441 XmStringFree (dir_xmstring
);
5442 XmStringFree (pattern_xmstring
);
5444 /* Add callbacks for OK and Cancel. */
5445 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5446 (XtPointer
) &result
);
5447 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5448 (XtPointer
) &result
);
5449 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5450 (XtPointer
) &result
);
5452 /* Remove the help button since we can't display help. */
5453 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5454 XtUnmanageChild (help
);
5456 /* Mark OK button as default. */
5457 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5458 XmNshowAsDefault
, True
, NULL
);
5460 /* If MUSTMATCH is non-nil, disable the file entry field of the
5461 dialog, so that the user must select a file from the files list
5462 box. We can't remove it because we wouldn't have a way to get at
5463 the result file name, then. */
5464 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5465 if (!NILP (mustmatch
))
5468 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5469 XtSetSensitive (text
, False
);
5470 XtSetSensitive (label
, False
);
5473 /* Manage the dialog, so that list boxes get filled. */
5474 XtManageChild (dialog
);
5476 if (STRINGP (default_filename
))
5478 XmString default_xmstring
;
5479 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5480 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5482 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5483 XmTextFieldReplace (wtext
, 0, last_pos
,
5484 (SDATA (Ffile_name_nondirectory (default_filename
))));
5486 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5487 must include the path for this to work. */
5489 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5491 if (XmListItemExists (list
, default_xmstring
))
5493 int item_pos
= XmListItemPos (list
, default_xmstring
);
5494 /* Select the item and scroll it into view. */
5495 XmListSelectPos (list
, item_pos
, True
);
5496 XmListSetPos (list
, item_pos
);
5499 XmStringFree (default_xmstring
);
5502 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5504 /* Process events until the user presses Cancel or OK. */
5505 x_menu_set_in_use (1);
5510 x_menu_wait_for_event (0);
5511 XtAppNextEvent (Xt_app_con
, &event
);
5512 if (event
.type
== KeyPress
5513 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5515 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5517 /* Pop down on C-g. */
5518 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5519 XtUnmanageChild (dialog
);
5522 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5525 /* Get the result. */
5526 if (result
== XmCR_OK
)
5531 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5532 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5533 XmStringFree (text
);
5534 file
= build_string (data
);
5543 /* Make "Cancel" equivalent to C-g. */
5545 Fsignal (Qquit
, Qnil
);
5547 decoded_file
= DECODE_FILE (file
);
5549 return unbind_to (count
, decoded_file
);
5552 #endif /* USE_MOTIF */
5557 clean_up_dialog (arg
)
5560 x_menu_set_in_use (0);
5565 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5566 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5567 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5568 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5569 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5571 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5572 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5574 FRAME_PTR f
= SELECTED_FRAME ();
5576 Lisp_Object file
= Qnil
;
5577 Lisp_Object decoded_file
;
5578 int count
= SPECPDL_INDEX ();
5579 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5584 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5586 if (popup_activated ())
5587 error ("Trying to use a menu from within a menu-entry");
5589 CHECK_STRING (prompt
);
5592 /* Prevent redisplay. */
5593 specbind (Qinhibit_redisplay
, Qt
);
5594 record_unwind_protect (clean_up_dialog
, Qnil
);
5598 if (STRINGP (default_filename
))
5599 cdef_file
= SDATA (default_filename
);
5601 cdef_file
= SDATA (dir
);
5603 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5605 ! NILP (only_dir_p
));
5609 file
= build_string (fn
);
5616 /* Make "Cancel" equivalent to C-g. */
5618 Fsignal (Qquit
, Qnil
);
5620 decoded_file
= DECODE_FILE (file
);
5622 return unbind_to (count
, decoded_file
);
5625 #endif /* USE_GTK */
5628 /***********************************************************************
5630 ***********************************************************************/
5632 #ifdef HAVE_XKBGETKEYBOARD
5633 #include <X11/XKBlib.h>
5634 #include <X11/keysym.h>
5637 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5638 Sx_backspace_delete_keys_p
, 0, 1, 0,
5639 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5640 FRAME nil means use the selected frame.
5641 Value is t if we know that both keys are present, and are mapped to the
5642 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5643 present and mapped to the usual X keysyms. */)
5647 #ifdef HAVE_XKBGETKEYBOARD
5649 struct frame
*f
= check_x_frame (frame
);
5650 Display
*dpy
= FRAME_X_DISPLAY (f
);
5651 Lisp_Object have_keys
;
5652 int major
, minor
, op
, event
, error
;
5656 /* Check library version in case we're dynamically linked. */
5657 major
= XkbMajorVersion
;
5658 minor
= XkbMinorVersion
;
5659 if (!XkbLibraryVersion (&major
, &minor
))
5665 /* Check that the server supports XKB. */
5666 major
= XkbMajorVersion
;
5667 minor
= XkbMinorVersion
;
5668 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5674 /* In this code we check that the keyboard has physical keys with names
5675 that start with BKSP (Backspace) and DELE (Delete), and that they
5676 generate keysym XK_BackSpace and XK_Delete respectively.
5677 This function is used to test if normal-erase-is-backspace should be
5679 An alternative approach would be to just check if XK_BackSpace and
5680 XK_Delete are mapped to any key. But if any of those are mapped to
5681 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5682 user doesn't know about it, it is better to return false here.
5683 It is more obvious to the user what to do if she/he has two keys
5684 clearly marked with names/symbols and one key does something not
5685 expected (i.e. she/he then tries the other).
5686 The cases where Backspace/Delete is mapped to some other key combination
5687 are rare, and in those cases, normal-erase-is-backspace can be turned on
5691 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5694 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5696 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5698 for (i
= kb
->min_key_code
;
5699 (i
< kb
->max_key_code
5700 && (delete_keycode
== 0 || backspace_keycode
== 0));
5703 /* The XKB symbolic key names can be seen most easily in
5704 the PS file generated by `xkbprint -label name
5706 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5708 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5709 backspace_keycode
= i
;
5712 XkbFreeNames (kb
, 0, True
);
5715 XkbFreeClientMap (kb
, 0, True
);
5718 && backspace_keycode
5719 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5720 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5725 #else /* not HAVE_XKBGETKEYBOARD */
5727 #endif /* not HAVE_XKBGETKEYBOARD */
5732 /***********************************************************************
5734 ***********************************************************************/
5736 /* Keep this list in the same order as frame_parms in frame.c.
5737 Use 0 for unsupported frame parameters. */
5739 frame_parm_handler x_frame_parm_handlers
[] =
5743 x_set_background_color
,
5749 x_set_foreground_color
,
5752 x_set_internal_border_width
,
5753 x_set_menu_bar_lines
,
5755 x_explicitly_set_name
,
5756 x_set_scroll_bar_width
,
5759 x_set_vertical_scroll_bars
,
5761 x_set_tool_bar_lines
,
5762 x_set_scroll_bar_foreground
,
5763 x_set_scroll_bar_background
,
5775 /* This is zero if not using X windows. */
5778 /* The section below is built by the lisp expression at the top of the file,
5779 just above where these variables are declared. */
5780 /*&&& init symbols here &&&*/
5781 Qnone
= intern ("none");
5783 Qsuppress_icon
= intern ("suppress-icon");
5784 staticpro (&Qsuppress_icon
);
5785 Qundefined_color
= intern ("undefined-color");
5786 staticpro (&Qundefined_color
);
5787 Qcompound_text
= intern ("compound-text");
5788 staticpro (&Qcompound_text
);
5789 Qcancel_timer
= intern ("cancel-timer");
5790 staticpro (&Qcancel_timer
);
5791 /* This is the end of symbol initialization. */
5793 /* Text property `display' should be nonsticky by default. */
5794 Vtext_property_default_nonsticky
5795 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5798 Fput (Qundefined_color
, Qerror_conditions
,
5799 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
5800 Fput (Qundefined_color
, Qerror_message
,
5801 build_string ("Undefined color"));
5803 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5804 doc
: /* The shape of the pointer when over text.
5805 Changing the value does not affect existing frames
5806 unless you set the mouse color. */);
5807 Vx_pointer_shape
= Qnil
;
5809 #if 0 /* This doesn't really do anything. */
5810 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5811 doc
: /* The shape of the pointer when not over text.
5812 This variable takes effect when you create a new frame
5813 or when you set the mouse color. */);
5815 Vx_nontext_pointer_shape
= Qnil
;
5817 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5818 doc
: /* The shape of the pointer when Emacs is busy.
5819 This variable takes effect when you create a new frame
5820 or when you set the mouse color. */);
5821 Vx_hourglass_pointer_shape
= Qnil
;
5823 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
5824 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
5825 display_hourglass_p
= 1;
5827 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
5828 doc
: /* *Seconds to wait before displaying an hourglass pointer.
5829 Value must be an integer or float. */);
5830 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
5832 #if 0 /* This doesn't really do anything. */
5833 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5834 doc
: /* The shape of the pointer when over the mode line.
5835 This variable takes effect when you create a new frame
5836 or when you set the mouse color. */);
5838 Vx_mode_pointer_shape
= Qnil
;
5840 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5841 &Vx_sensitive_text_pointer_shape
,
5842 doc
: /* The shape of the pointer when over mouse-sensitive text.
5843 This variable takes effect when you create a new frame
5844 or when you set the mouse color. */);
5845 Vx_sensitive_text_pointer_shape
= Qnil
;
5847 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5848 &Vx_window_horizontal_drag_shape
,
5849 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5850 This variable takes effect when you create a new frame
5851 or when you set the mouse color. */);
5852 Vx_window_horizontal_drag_shape
= Qnil
;
5854 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5855 doc
: /* A string indicating the foreground color of the cursor box. */);
5856 Vx_cursor_fore_pixel
= Qnil
;
5858 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5859 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5860 Text larger than this is clipped. */);
5861 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5863 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5864 doc
: /* Non-nil if no X window manager is in use.
5865 Emacs doesn't try to figure this out; this is always nil
5866 unless you set it to something else. */);
5867 /* We don't have any way to find this out, so set it to nil
5868 and maybe the user would like to set it to t. */
5869 Vx_no_window_manager
= Qnil
;
5871 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5872 &Vx_pixel_size_width_font_regexp
,
5873 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5875 Since Emacs gets width of a font matching with this regexp from
5876 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5877 such a font. This is especially effective for such large fonts as
5878 Chinese, Japanese, and Korean. */);
5879 Vx_pixel_size_width_font_regexp
= Qnil
;
5881 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5882 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", &x_gtk_use_old_file_dialog
,
5883 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5884 If nil or if the file selection dialog is not available, the new GTK file
5885 chooser is used instead. To turn off all file dialogs set the
5886 variable `use-file-dialog'. */);
5887 x_gtk_use_old_file_dialog
= 0;
5889 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5890 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5891 Note that this is just the default, there is a toggle button on the file
5892 chooser to show or not show hidden files on a case by case basis. */);
5893 x_gtk_show_hidden_files
= 0;
5895 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", &x_gtk_file_dialog_help_text
,
5896 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
5897 If more space for files in the file chooser dialog is wanted, set this to nil
5898 to turn the additional text off. */);
5899 x_gtk_file_dialog_help_text
= 1;
5901 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
5902 doc
: /* *If non-nil, a detached tool bar is shown in full.
5903 The default is to just show an arrow and pressing on that arrow shows
5904 the tool bar buttons. */);
5905 x_gtk_whole_detached_tool_bar
= 0;
5907 Fprovide (intern ("x"), Qnil
);
5909 #ifdef USE_X_TOOLKIT
5910 Fprovide (intern ("x-toolkit"), Qnil
);
5912 Fprovide (intern ("motif"), Qnil
);
5914 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5915 doc
: /* Version info for LessTif/Motif. */);
5916 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5917 #endif /* USE_MOTIF */
5918 #endif /* USE_X_TOOLKIT */
5921 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5922 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5923 But for a user it is a toolkit for X, and indeed, configure
5924 accepts --with-x-toolkit=gtk. */
5925 Fprovide (intern ("x-toolkit"), Qnil
);
5926 Fprovide (intern ("gtk"), Qnil
);
5928 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5929 doc
: /* Version info for GTK+. */);
5931 char gtk_version
[40];
5932 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5933 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5934 Vgtk_version_string
= build_string (gtk_version
);
5936 #endif /* USE_GTK */
5938 /* X window properties. */
5939 defsubr (&Sx_change_window_property
);
5940 defsubr (&Sx_delete_window_property
);
5941 defsubr (&Sx_window_property
);
5943 defsubr (&Sxw_display_color_p
);
5944 defsubr (&Sx_display_grayscale_p
);
5945 defsubr (&Sxw_color_defined_p
);
5946 defsubr (&Sxw_color_values
);
5947 defsubr (&Sx_server_max_request_size
);
5948 defsubr (&Sx_server_vendor
);
5949 defsubr (&Sx_server_version
);
5950 defsubr (&Sx_display_pixel_width
);
5951 defsubr (&Sx_display_pixel_height
);
5952 defsubr (&Sx_display_mm_width
);
5953 defsubr (&Sx_display_mm_height
);
5954 defsubr (&Sx_display_screens
);
5955 defsubr (&Sx_display_planes
);
5956 defsubr (&Sx_display_color_cells
);
5957 defsubr (&Sx_display_visual_class
);
5958 defsubr (&Sx_display_backing_store
);
5959 defsubr (&Sx_display_save_under
);
5960 defsubr (&Sx_create_frame
);
5961 defsubr (&Sx_open_connection
);
5962 defsubr (&Sx_close_connection
);
5963 defsubr (&Sx_display_list
);
5964 defsubr (&Sx_synchronize
);
5965 defsubr (&Sx_focus_frame
);
5966 defsubr (&Sx_backspace_delete_keys_p
);
5968 /* Setting callback functions for fontset handler. */
5969 get_font_info_func
= x_get_font_info
;
5971 #if 0 /* This function pointer doesn't seem to be used anywhere.
5972 And the pointer assigned has the wrong type, anyway. */
5973 list_fonts_func
= x_list_fonts
;
5976 load_font_func
= x_load_font
;
5977 find_ccl_program_func
= x_find_ccl_program
;
5978 query_font_func
= x_query_font
;
5979 set_frame_fontset_func
= x_set_font
;
5980 check_window_system_func
= check_x
;
5982 hourglass_atimer
= NULL
;
5983 hourglass_shown_p
= 0;
5985 defsubr (&Sx_show_tip
);
5986 defsubr (&Sx_hide_tip
);
5988 staticpro (&tip_timer
);
5990 staticpro (&tip_frame
);
5992 last_show_tip_args
= Qnil
;
5993 staticpro (&last_show_tip_args
);
5995 defsubr (&Sx_uses_old_gtk_dialog
);
5996 #if defined (USE_MOTIF) || defined (USE_GTK)
5997 defsubr (&Sx_file_dialog
);
6001 #endif /* HAVE_X_WINDOWS */
6003 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
6004 (do not change this comment) */