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 3, 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 (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
;
2878 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2881 /* Set the position of the icon. Note that twm groups all
2882 icons in an icon window. */
2883 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2884 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2885 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2887 CHECK_NUMBER (icon_x
);
2888 CHECK_NUMBER (icon_y
);
2890 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2891 error ("Both left and top icon corners of icon must be specified");
2895 if (! EQ (icon_x
, Qunbound
))
2896 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2898 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2899 but x_create_frame still needs it. */
2900 /* Start up iconic or window? */
2901 x_wm_set_window_state
2902 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2908 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2915 /* Make the GCs needed for this window, setting the
2916 background, border and mouse colors; also create the
2917 mouse cursor and the gray border tile. */
2919 static char cursor_bits
[] =
2921 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2922 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2923 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2924 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
2931 XGCValues gc_values
;
2935 /* Create the GCs of this frame.
2936 Note that many default values are used. */
2939 gc_values
.font
= FRAME_FONT (f
)->fid
;
2940 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2941 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2942 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2943 f
->output_data
.x
->normal_gc
2944 = XCreateGC (FRAME_X_DISPLAY (f
),
2946 GCLineWidth
| GCFont
| GCForeground
| GCBackground
,
2949 /* Reverse video style. */
2950 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2951 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2952 f
->output_data
.x
->reverse_gc
2953 = XCreateGC (FRAME_X_DISPLAY (f
),
2955 GCFont
| GCForeground
| GCBackground
| GCLineWidth
,
2958 /* Cursor has cursor-color background, background-color foreground. */
2959 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2960 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2961 gc_values
.fill_style
= FillOpaqueStippled
;
2963 = XCreateBitmapFromData (FRAME_X_DISPLAY (f
),
2964 FRAME_X_DISPLAY_INFO (f
)->root_window
,
2965 cursor_bits
, 16, 16);
2966 f
->output_data
.x
->cursor_gc
2967 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2968 (GCFont
| GCForeground
| GCBackground
2969 | GCFillStyle
/* | GCStipple */ | GCLineWidth
),
2973 f
->output_data
.x
->white_relief
.gc
= 0;
2974 f
->output_data
.x
->black_relief
.gc
= 0;
2976 /* Create the gray border tile used when the pointer is not in
2977 the frame. Since this depends on the frame's pixel values,
2978 this must be done on a per-frame basis. */
2979 f
->output_data
.x
->border_tile
2980 = (XCreatePixmapFromBitmapData
2981 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2982 gray_bits
, gray_width
, gray_height
,
2983 FRAME_FOREGROUND_PIXEL (f
),
2984 FRAME_BACKGROUND_PIXEL (f
),
2985 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2991 /* Free what was was allocated in x_make_gc. */
2997 Display
*dpy
= FRAME_X_DISPLAY (f
);
3001 if (f
->output_data
.x
->normal_gc
)
3003 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
3004 f
->output_data
.x
->normal_gc
= 0;
3007 if (f
->output_data
.x
->reverse_gc
)
3009 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
3010 f
->output_data
.x
->reverse_gc
= 0;
3013 if (f
->output_data
.x
->cursor_gc
)
3015 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
3016 f
->output_data
.x
->cursor_gc
= 0;
3019 if (f
->output_data
.x
->border_tile
)
3021 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
3022 f
->output_data
.x
->border_tile
= 0;
3029 /* Handler for signals raised during x_create_frame and
3030 x_create_top_frame. FRAME is the frame which is partially
3034 unwind_create_frame (frame
)
3037 struct frame
*f
= XFRAME (frame
);
3039 /* If frame is already dead, nothing to do. This can happen if the
3040 display is disconnected after the frame has become official, but
3041 before x_create_frame removes the unwind protect. */
3042 if (!FRAME_LIVE_P (f
))
3045 /* If frame is ``official'', nothing to do. */
3046 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
3049 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
3052 x_free_frame_resources (f
);
3055 /* Check that reference counts are indeed correct. */
3056 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
3057 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
3066 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3068 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3069 Returns an Emacs frame object.
3070 ALIST is an alist of frame parameters.
3071 If the parameters specify that the frame should not have a minibuffer,
3072 and do not specify a specific minibuffer window to use,
3073 then `default-minibuffer-frame' must be a frame whose minibuffer can
3074 be shared by the new frame.
3076 This function is an internal primitive--use `make-frame' instead. */)
3081 Lisp_Object frame
, tem
;
3083 int minibuffer_only
= 0;
3084 long window_prompting
= 0;
3086 int count
= SPECPDL_INDEX ();
3087 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3088 Lisp_Object display
;
3089 struct x_display_info
*dpyinfo
= NULL
;
3093 parms
= Fcopy_alist (parms
);
3095 /* Use this general default value to start with
3096 until we know if this frame has a specified name. */
3097 Vx_resource_name
= Vinvocation_name
;
3099 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3100 if (EQ (display
, Qunbound
))
3101 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3102 if (EQ (display
, Qunbound
))
3104 dpyinfo
= check_x_display_info (display
);
3106 kb
= dpyinfo
->terminal
->kboard
;
3108 kb
= &the_only_kboard
;
3111 if (!dpyinfo
->terminal
->name
)
3112 error ("Terminal is not live, can't create new frames on it");
3114 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3116 && ! EQ (name
, Qunbound
)
3118 error ("Invalid frame name--not a string or nil");
3121 Vx_resource_name
= name
;
3123 /* See if parent window is specified. */
3124 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3125 if (EQ (parent
, Qunbound
))
3127 if (! NILP (parent
))
3128 CHECK_NUMBER (parent
);
3130 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3131 /* No need to protect DISPLAY because that's not used after passing
3132 it to make_frame_without_minibuffer. */
3134 GCPRO4 (parms
, parent
, name
, frame
);
3135 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3137 if (EQ (tem
, Qnone
) || NILP (tem
))
3138 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3139 else if (EQ (tem
, Qonly
))
3141 f
= make_minibuffer_frame ();
3142 minibuffer_only
= 1;
3144 else if (WINDOWP (tem
))
3145 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3149 XSETFRAME (frame
, f
);
3151 /* Note that X Windows does support scroll bars. */
3152 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3154 f
->terminal
= dpyinfo
->terminal
;
3155 f
->terminal
->reference_count
++;
3157 f
->output_method
= output_x_window
;
3158 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3159 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3160 f
->output_data
.x
->icon_bitmap
= -1;
3161 FRAME_FONTSET (f
) = -1;
3162 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3163 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3164 #ifdef USE_TOOLKIT_SCROLL_BARS
3165 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3166 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3167 #endif /* USE_TOOLKIT_SCROLL_BARS */
3170 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3172 if (! STRINGP (f
->icon_name
))
3173 f
->icon_name
= Qnil
;
3175 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3177 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3178 record_unwind_protect (unwind_create_frame
, frame
);
3180 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
3181 dpyinfo_refcount
= dpyinfo
->reference_count
;
3182 #endif /* GLYPH_DEBUG */
3184 /* These colors will be set anyway later, but it's important
3185 to get the color reference counts right, so initialize them! */
3188 struct gcpro gcpro1
;
3190 /* Function x_decode_color can signal an error. Make
3191 sure to initialize color slots so that we won't try
3192 to free colors we haven't allocated. */
3193 FRAME_FOREGROUND_PIXEL (f
) = -1;
3194 FRAME_BACKGROUND_PIXEL (f
) = -1;
3195 f
->output_data
.x
->cursor_pixel
= -1;
3196 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3197 f
->output_data
.x
->border_pixel
= -1;
3198 f
->output_data
.x
->mouse_pixel
= -1;
3200 black
= build_string ("black");
3202 FRAME_FOREGROUND_PIXEL (f
)
3203 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3204 FRAME_BACKGROUND_PIXEL (f
)
3205 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3206 f
->output_data
.x
->cursor_pixel
3207 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3208 f
->output_data
.x
->cursor_foreground_pixel
3209 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3210 f
->output_data
.x
->border_pixel
3211 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3212 f
->output_data
.x
->mouse_pixel
3213 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3217 /* Specify the parent under which to make this X window. */
3221 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3222 f
->output_data
.x
->explicit_parent
= 1;
3226 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3227 f
->output_data
.x
->explicit_parent
= 0;
3230 /* Set the name; the functions to which we pass f expect the name to
3232 if (EQ (name
, Qunbound
) || NILP (name
))
3234 f
->name
= build_string (dpyinfo
->x_id_name
);
3235 f
->explicit_name
= 0;
3240 f
->explicit_name
= 1;
3241 /* use the frame's title when getting resources for this frame. */
3242 specbind (Qx_resource_name
, name
);
3245 /* Extract the window parameters from the supplied values
3246 that are needed to determine window geometry. */
3250 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3253 /* First, try whatever font the caller has specified. */
3256 tem
= Fquery_fontset (font
, Qnil
);
3258 font
= x_new_fontset (f
, SDATA (tem
));
3260 font
= x_new_font (f
, SDATA (font
));
3263 /* Try out a font which we hope has bold and italic variations. */
3264 if (!STRINGP (font
))
3265 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
3266 if (!STRINGP (font
))
3267 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3268 if (! STRINGP (font
))
3269 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3270 if (! STRINGP (font
))
3271 /* This was formerly the first thing tried, but it finds too many fonts
3272 and takes too long. */
3273 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
3274 /* If those didn't work, look for something which will at least work. */
3275 if (! STRINGP (font
))
3276 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
3278 if (! STRINGP (font
))
3279 font
= build_string ("fixed");
3281 x_set_frame_parameters (f
, Fcons (Fcons (Qfont
, font
), Qnil
));
3285 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3286 whereby it fails to get any font. */
3287 xlwmenu_default_font
= FRAME_FONT (f
);
3290 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3291 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3293 /* This defaults to 1 in order to match xterm. We recognize either
3294 internalBorderWidth or internalBorder (which is what xterm calls
3296 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3300 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3301 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3302 if (! EQ (value
, Qunbound
))
3303 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3306 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3307 "internalBorderWidth", "internalBorderWidth",
3309 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3310 "verticalScrollBars", "ScrollBars",
3313 /* Also do the stuff which must be set before the window exists. */
3314 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3315 "foreground", "Foreground", RES_TYPE_STRING
);
3316 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3317 "background", "Background", RES_TYPE_STRING
);
3318 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3319 "pointerColor", "Foreground", RES_TYPE_STRING
);
3320 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3321 "cursorColor", "Foreground", RES_TYPE_STRING
);
3322 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3323 "borderColor", "BorderColor", RES_TYPE_STRING
);
3324 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3325 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3326 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3327 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3328 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3329 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3330 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3331 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3333 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3334 "scrollBarForeground",
3335 "ScrollBarForeground", 1);
3336 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3337 "scrollBarBackground",
3338 "ScrollBarBackground", 0);
3340 /* Init faces before x_default_parameter is called for scroll-bar
3341 parameters because that function calls x_set_scroll_bar_width,
3342 which calls change_frame_size, which calls Fset_window_buffer,
3343 which runs hooks, which call Fvertical_motion. At the end, we
3344 end up in init_iterator with a null face cache, which should not
3346 init_frame_faces (f
);
3348 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3349 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3350 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3351 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3352 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3353 "bufferPredicate", "BufferPredicate",
3355 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3356 "title", "Title", RES_TYPE_STRING
);
3357 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3358 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3359 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3360 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3362 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3364 /* Compute the size of the X window. */
3365 window_prompting
= x_figure_window_size (f
, parms
, 1);
3367 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3368 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3370 x_icon_verify (f
, parms
);
3372 /* Create the X widget or window. */
3373 #ifdef USE_X_TOOLKIT
3374 x_window (f
, window_prompting
, minibuffer_only
);
3382 /* Now consider the frame official. */
3383 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3384 Vframe_list
= Fcons (frame
, Vframe_list
);
3386 /* We need to do this after creating the X window, so that the
3387 icon-creation functions can say whose icon they're describing. */
3388 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3389 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3391 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3392 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3393 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3394 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3395 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3396 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3397 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3398 "scrollBarWidth", "ScrollBarWidth",
3401 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3402 Change will not be effected unless different from the current
3404 width
= FRAME_COLS (f
);
3405 height
= FRAME_LINES (f
);
3407 SET_FRAME_COLS (f
, 0);
3408 FRAME_LINES (f
) = 0;
3409 change_frame_size (f
, height
, width
, 1, 0, 0);
3411 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3412 /* Create the menu bar. */
3413 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3415 /* If this signals an error, we haven't set size hints for the
3416 frame and we didn't make it visible. */
3417 initialize_frame_menubar (f
);
3420 /* This is a no-op, except under Motif where it arranges the
3421 main window for the widgets on it. */
3422 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3423 f
->output_data
.x
->menubar_widget
,
3424 f
->output_data
.x
->edit_widget
);
3425 #endif /* not USE_GTK */
3427 #endif /* USE_X_TOOLKIT || USE_GTK */
3429 /* Tell the server what size and position, etc, we want, and how
3430 badly we want them. This should be done after we have the menu
3431 bar so that its size can be taken into account. */
3433 x_wm_set_size_hint (f
, window_prompting
, 0);
3436 /* Make the window appear on the frame and enable display, unless
3437 the caller says not to. However, with explicit parent, Emacs
3438 cannot control visibility, so don't try. */
3439 if (! f
->output_data
.x
->explicit_parent
)
3441 Lisp_Object visibility
;
3443 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3445 if (EQ (visibility
, Qunbound
))
3448 if (EQ (visibility
, Qicon
))
3449 x_iconify_frame (f
);
3450 else if (! NILP (visibility
))
3451 x_make_frame_visible (f
);
3453 /* Must have been Qnil. */
3457 /* Set the WM leader property. GTK does this itself, so this is not
3458 needed when using GTK. */
3459 if (dpyinfo
->client_leader_window
!= 0)
3462 XChangeProperty (FRAME_X_DISPLAY (f
),
3463 FRAME_OUTER_WINDOW (f
),
3464 dpyinfo
->Xatom_wm_client_leader
,
3465 XA_WINDOW
, 32, PropModeReplace
,
3466 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3470 /* Initialize `default-minibuffer-frame' in case this is the first
3471 frame on this terminal. */
3472 if (FRAME_HAS_MINIBUF_P (f
)
3473 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3474 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3475 kb
->Vdefault_minibuffer_frame
= frame
;
3477 /* All remaining specified parameters, which have not been "used"
3478 by x_get_arg and friends, now go in the misc. alist of the frame. */
3479 for (tem
= parms
; !NILP (tem
); tem
= XCDR (tem
))
3480 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3481 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3483 store_frame_param (f
, Qwindow_system
, Qx
);
3487 /* Make sure windows on this frame appear in calls to next-window
3488 and similar functions. */
3489 Vwindow_list
= Qnil
;
3491 return unbind_to (count
, frame
);
3495 /* FRAME is used only to get a handle on the X display. We don't pass the
3496 display info directly because we're called from frame.c, which doesn't
3497 know about that structure. */
3500 x_get_focus_frame (frame
)
3501 struct frame
*frame
;
3503 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3505 if (! dpyinfo
->x_focus_frame
)
3508 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3513 /* In certain situations, when the window manager follows a
3514 click-to-focus policy, there seems to be no way around calling
3515 XSetInputFocus to give another frame the input focus .
3517 In an ideal world, XSetInputFocus should generally be avoided so
3518 that applications don't interfere with the window manager's focus
3519 policy. But I think it's okay to use when it's clearly done
3520 following a user-command. */
3522 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3523 doc
: /* Set the input focus to FRAME.
3524 FRAME nil means use the selected frame. */)
3528 struct frame
*f
= check_x_frame (frame
);
3529 Display
*dpy
= FRAME_X_DISPLAY (f
);
3532 x_catch_errors (dpy
);
3533 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3534 RevertToParent
, CurrentTime
);
3535 x_ewmh_activate_frame (f
);
3536 x_uncatch_errors ();
3543 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3544 doc
: /* Internal function called by `color-defined-p', which see. */)
3546 Lisp_Object color
, frame
;
3549 FRAME_PTR f
= check_x_frame (frame
);
3551 CHECK_STRING (color
);
3553 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3559 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3560 doc
: /* Internal function called by `color-values', which see. */)
3562 Lisp_Object color
, frame
;
3565 FRAME_PTR f
= check_x_frame (frame
);
3567 CHECK_STRING (color
);
3569 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3570 return list3 (make_number (foo
.red
),
3571 make_number (foo
.green
),
3572 make_number (foo
.blue
));
3577 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3578 doc
: /* Internal function called by `display-color-p', which see. */)
3580 Lisp_Object terminal
;
3582 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3584 if (dpyinfo
->n_planes
<= 2)
3587 switch (dpyinfo
->visual
->class)
3600 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3602 doc
: /* Return t if the X display supports shades of gray.
3603 Note that color displays do support shades of gray.
3604 The optional argument TERMINAL specifies which display to ask about.
3605 TERMINAL should be a terminal id, a frame or a display name (a string).
3606 If omitted or nil, that stands for the selected frame's display. */)
3608 Lisp_Object terminal
;
3610 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3612 if (dpyinfo
->n_planes
<= 1)
3615 switch (dpyinfo
->visual
->class)
3630 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3632 doc
: /* Returns the width in pixels of the X display TERMINAL.
3633 The optional argument TERMINAL specifies which display to ask about.
3634 TERMINAL should be a terminal id, a frame or a display name (a string).
3635 If omitted or nil, that stands for the selected frame's display. */)
3637 Lisp_Object terminal
;
3639 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3641 return make_number (dpyinfo
->width
);
3644 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3645 Sx_display_pixel_height
, 0, 1, 0,
3646 doc
: /* Returns the height in pixels of the X display TERMINAL.
3647 The optional argument TERMINAL specifies which display to ask about.
3648 TERMINAL should be a terminal id, a frame or a display name (a string).
3649 If omitted or nil, that stands for the selected frame's display. */)
3651 Lisp_Object terminal
;
3653 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3655 return make_number (dpyinfo
->height
);
3658 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3660 doc
: /* Returns the number of bitplanes of the X display TERMINAL.
3661 The optional argument TERMINAL specifies which display to ask about.
3662 TERMINAL should be a terminal id, a frame or a display name (a string).
3663 If omitted or nil, that stands for the selected frame's display. */)
3665 Lisp_Object terminal
;
3667 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3669 return make_number (dpyinfo
->n_planes
);
3672 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3674 doc
: /* Returns the number of color cells of the X display TERMINAL.
3675 The optional argument TERMINAL specifies which display to ask about.
3676 TERMINAL should be a terminal id, a frame or a display name (a string).
3677 If omitted or nil, that stands for the selected frame's display. */)
3679 Lisp_Object terminal
;
3681 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3683 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3684 XScreenNumberOfScreen (dpyinfo
->screen
));
3686 /* Truncate nr_planes to 24 to avoid integer overflow.
3687 Some displays says 32, but only 24 bits are actually significant.
3688 There are only very few and rare video cards that have more than
3689 24 significant bits. Also 24 bits is more than 16 million colors,
3690 it "should be enough for everyone". */
3691 if (nr_planes
> 24) nr_planes
= 24;
3693 return make_number (1 << nr_planes
);
3696 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3697 Sx_server_max_request_size
,
3699 doc
: /* Returns the maximum request size of the X server of display TERMINAL.
3700 The optional argument TERMINAL specifies which display to ask about.
3701 TERMINAL should be a terminal id, a frame or a display name (a string).
3702 If omitted or nil, that stands for the selected frame's display. */)
3704 Lisp_Object terminal
;
3706 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3708 return make_number (MAXREQUEST (dpyinfo
->display
));
3711 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3712 doc
: /* Returns the "vendor ID" string of the X server of display TERMINAL.
3713 \(Labelling every distributor as a "vendor" embodies the false assumption
3714 that operating systems cannot be developed and distributed noncommercially.)
3715 The optional argument TERMINAL specifies which display to ask about.
3716 TERMINAL should be a terminal id, a frame or a display name (a string).
3717 If omitted or nil, that stands for the selected frame's display. */)
3719 Lisp_Object terminal
;
3721 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3722 char *vendor
= ServerVendor (dpyinfo
->display
);
3724 if (! vendor
) vendor
= "";
3725 return build_string (vendor
);
3728 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3729 doc
: /* Returns the version numbers of the X server of display TERMINAL.
3730 The value is a list of three integers: the major and minor
3731 version numbers of the X Protocol in use, and the distributor-specific release
3732 number. See also the function `x-server-vendor'.
3734 The optional argument TERMINAL specifies which display to ask about.
3735 TERMINAL should be a terminal id, a frame or a display name (a string).
3736 If omitted or nil, that stands for the selected frame's display. */)
3738 Lisp_Object terminal
;
3740 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3741 Display
*dpy
= dpyinfo
->display
;
3743 return Fcons (make_number (ProtocolVersion (dpy
)),
3744 Fcons (make_number (ProtocolRevision (dpy
)),
3745 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3748 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3749 doc
: /* Return the number of screens on the X server of display TERMINAL.
3750 The optional argument TERMINAL specifies which display to ask about.
3751 TERMINAL should be a terminal id, a frame or a display name (a string).
3752 If omitted or nil, that stands for the selected frame's display. */)
3754 Lisp_Object terminal
;
3756 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3758 return make_number (ScreenCount (dpyinfo
->display
));
3761 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3762 doc
: /* Return the height in millimeters of the X display TERMINAL.
3763 The optional argument TERMINAL specifies which display to ask about.
3764 TERMINAL should be a terminal id, a frame or a display name (a string).
3765 If omitted or nil, that stands for the selected frame's display. */)
3767 Lisp_Object terminal
;
3769 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3771 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3774 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3775 doc
: /* Return the width in millimeters of the X display TERMINAL.
3776 The optional argument TERMINAL specifies which display to ask about.
3777 TERMINAL should be a terminal id, a frame or a display name (a string).
3778 If omitted or nil, that stands for the selected frame's display. */)
3780 Lisp_Object terminal
;
3782 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3784 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3787 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3788 Sx_display_backing_store
, 0, 1, 0,
3789 doc
: /* Returns an indication of whether X display TERMINAL does backing store.
3790 The value may be `always', `when-mapped', or `not-useful'.
3791 The optional argument TERMINAL specifies which display to ask about.
3792 TERMINAL should be a terminal id, a frame or a display name (a string).
3793 If omitted or nil, that stands for the selected frame's display. */)
3795 Lisp_Object terminal
;
3797 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3800 switch (DoesBackingStore (dpyinfo
->screen
))
3803 result
= intern ("always");
3807 result
= intern ("when-mapped");
3811 result
= intern ("not-useful");
3815 error ("Strange value for BackingStore parameter of screen");
3822 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3823 Sx_display_visual_class
, 0, 1, 0,
3824 doc
: /* Return the visual class of the X display TERMINAL.
3825 The value is one of the symbols `static-gray', `gray-scale',
3826 `static-color', `pseudo-color', `true-color', or `direct-color'.
3828 The optional argument TERMINAL specifies which display to ask about.
3829 TERMINAL should a terminal id, a frame or a display name (a string).
3830 If omitted or nil, that stands for the selected frame's display. */)
3832 Lisp_Object terminal
;
3834 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3837 switch (dpyinfo
->visual
->class)
3840 result
= intern ("static-gray");
3843 result
= intern ("gray-scale");
3846 result
= intern ("static-color");
3849 result
= intern ("pseudo-color");
3852 result
= intern ("true-color");
3855 result
= intern ("direct-color");
3858 error ("Display has an unknown visual class");
3865 DEFUN ("x-display-save-under", Fx_display_save_under
,
3866 Sx_display_save_under
, 0, 1, 0,
3867 doc
: /* Returns t if the X display TERMINAL supports the save-under feature.
3868 The optional argument TERMINAL specifies which display to ask about.
3869 TERMINAL should be a terminal id, a frame or a display name (a string).
3870 If omitted or nil, that stands for the selected frame's display. */)
3872 Lisp_Object terminal
;
3874 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3876 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3884 register struct frame
*f
;
3886 return FRAME_PIXEL_WIDTH (f
);
3891 register struct frame
*f
;
3893 return FRAME_PIXEL_HEIGHT (f
);
3898 register struct frame
*f
;
3900 return FRAME_COLUMN_WIDTH (f
);
3905 register struct frame
*f
;
3907 return FRAME_LINE_HEIGHT (f
);
3912 register struct frame
*f
;
3914 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3919 /************************************************************************
3921 ************************************************************************/
3924 /* Mapping visual names to visuals. */
3926 static struct visual_class
3933 {"StaticGray", StaticGray
},
3934 {"GrayScale", GrayScale
},
3935 {"StaticColor", StaticColor
},
3936 {"PseudoColor", PseudoColor
},
3937 {"TrueColor", TrueColor
},
3938 {"DirectColor", DirectColor
},
3943 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3945 /* Value is the screen number of screen SCR. This is a substitute for
3946 the X function with the same name when that doesn't exist. */
3949 XScreenNumberOfScreen (scr
)
3950 register Screen
*scr
;
3952 Display
*dpy
= scr
->display
;
3955 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3956 if (scr
== dpy
->screens
+ i
)
3962 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3965 /* Select the visual that should be used on display DPYINFO. Set
3966 members of DPYINFO appropriately. Called from x_term_init. */
3969 select_visual (dpyinfo
)
3970 struct x_display_info
*dpyinfo
;
3972 Display
*dpy
= dpyinfo
->display
;
3973 Screen
*screen
= dpyinfo
->screen
;
3976 /* See if a visual is specified. */
3977 value
= display_x_get_resource (dpyinfo
,
3978 build_string ("visualClass"),
3979 build_string ("VisualClass"),
3981 if (STRINGP (value
))
3983 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3984 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3985 depth, a decimal number. NAME is compared with case ignored. */
3986 char *s
= (char *) alloca (SBYTES (value
) + 1);
3991 strcpy (s
, SDATA (value
));
3992 dash
= index (s
, '-');
3995 dpyinfo
->n_planes
= atoi (dash
+ 1);
3999 /* We won't find a matching visual with depth 0, so that
4000 an error will be printed below. */
4001 dpyinfo
->n_planes
= 0;
4003 /* Determine the visual class. */
4004 for (i
= 0; visual_classes
[i
].name
; ++i
)
4005 if (xstricmp (s
, visual_classes
[i
].name
) == 0)
4007 class = visual_classes
[i
].class;
4011 /* Look up a matching visual for the specified class. */
4013 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4014 dpyinfo
->n_planes
, class, &vinfo
))
4015 fatal ("Invalid visual specification `%s'", SDATA (value
));
4017 dpyinfo
->visual
= vinfo
.visual
;
4022 XVisualInfo
*vinfo
, vinfo_template
;
4024 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4027 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4029 vinfo_template
.visualid
= dpyinfo
->visual
->visualid
;
4031 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4032 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4033 &vinfo_template
, &n_visuals
);
4035 fatal ("Can't get proper X visual info");
4037 dpyinfo
->n_planes
= vinfo
->depth
;
4038 XFree ((char *) vinfo
);
4043 /* Return the X display structure for the display named NAME.
4044 Open a new connection if necessary. */
4046 struct x_display_info
*
4047 x_display_info_for_name (name
)
4051 struct x_display_info
*dpyinfo
;
4053 CHECK_STRING (name
);
4056 if (! EQ (Vinitial_window_system
, intern ("x")))
4057 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4060 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4062 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4065 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4070 /* Use this general default value to start with. */
4071 Vx_resource_name
= Vinvocation_name
;
4073 validate_x_resource_name ();
4075 dpyinfo
= x_term_init (name
, (char *)0,
4076 (char *) SDATA (Vx_resource_name
));
4079 error ("Cannot connect to X server %s", SDATA (name
));
4082 XSETFASTINT (Vwindow_system_version
, 11);
4088 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4090 doc
: /* Open a connection to an X server.
4091 DISPLAY is the name of the display to connect to.
4092 Optional second arg XRM-STRING is a string of resources in xrdb format.
4093 If the optional third arg MUST-SUCCEED is non-nil,
4094 terminate Emacs if we can't open the connection. */)
4095 (display
, xrm_string
, must_succeed
)
4096 Lisp_Object display
, xrm_string
, must_succeed
;
4098 unsigned char *xrm_option
;
4099 struct x_display_info
*dpyinfo
;
4101 CHECK_STRING (display
);
4102 if (! NILP (xrm_string
))
4103 CHECK_STRING (xrm_string
);
4106 if (! EQ (Vinitial_window_system
, intern ("x")))
4107 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4110 if (! NILP (xrm_string
))
4111 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4113 xrm_option
= (unsigned char *) 0;
4115 validate_x_resource_name ();
4117 /* This is what opens the connection and sets x_current_display.
4118 This also initializes many symbols, such as those used for input. */
4119 dpyinfo
= x_term_init (display
, xrm_option
,
4120 (char *) SDATA (Vx_resource_name
));
4124 if (!NILP (must_succeed
))
4125 fatal ("Cannot connect to X server %s.\n\
4126 Check the DISPLAY environment variable or use `-d'.\n\
4127 Also use the `xauth' program to verify that you have the proper\n\
4128 authorization information needed to connect the X server.\n\
4129 An insecure way to solve the problem may be to use `xhost'.\n",
4132 error ("Cannot connect to X server %s", SDATA (display
));
4137 XSETFASTINT (Vwindow_system_version
, 11);
4141 DEFUN ("x-close-connection", Fx_close_connection
,
4142 Sx_close_connection
, 1, 1, 0,
4143 doc
: /* Close the connection to TERMINAL's X server.
4144 For TERMINAL, specify a terminal id, a frame or a display name (a
4145 string). If TERMINAL is nil, that stands for the selected frame's
4148 Lisp_Object terminal
;
4150 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4152 if (dpyinfo
->reference_count
> 0)
4153 error ("Display still has frames on it");
4155 x_delete_terminal (dpyinfo
->terminal
);
4160 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4161 doc
: /* Return the list of display names that Emacs has connections to. */)
4164 Lisp_Object tail
, result
;
4167 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
4168 result
= Fcons (XCAR (XCAR (tail
)), result
);
4173 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4174 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4175 If ON is nil, allow buffering of requests.
4176 Turning on synchronization prohibits the Xlib routines from buffering
4177 requests and seriously degrades performance, but makes debugging much
4179 The optional second argument TERMINAL specifies which display to act on.
4180 TERMINAL should be a terminal id, a frame or a display name (a string).
4181 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4183 Lisp_Object terminal
, on
;
4185 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4187 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4192 /* Wait for responses to all X commands issued so far for frame F. */
4199 XSync (FRAME_X_DISPLAY (f
), False
);
4204 /***********************************************************************
4206 ***********************************************************************/
4208 DEFUN ("x-change-window-property", Fx_change_window_property
,
4209 Sx_change_window_property
, 2, 6, 0,
4210 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4211 PROP must be a string.
4212 VALUE may be a string or a list of conses, numbers and/or strings.
4213 If an element in the list is a string, it is converted to
4214 an Atom and the value of the Atom is used. If an element is a cons,
4215 it is converted to a 32 bit number where the car is the 16 top bits and the
4216 cdr is the lower 16 bits.
4217 FRAME nil or omitted means use the selected frame.
4218 If TYPE is given and non-nil, it is the name of the type of VALUE.
4219 If TYPE is not given or nil, the type is STRING.
4220 FORMAT gives the size in bits of each element if VALUE is a list.
4221 It must be one of 8, 16 or 32.
4222 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4223 If OUTER_P is non-nil, the property is changed for the outer X window of
4224 FRAME. Default is to change on the edit X window.
4227 (prop
, value
, frame
, type
, format
, outer_p
)
4228 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4230 struct frame
*f
= check_x_frame (frame
);
4232 Atom target_type
= XA_STRING
;
4233 int element_format
= 8;
4234 unsigned char *data
;
4238 CHECK_STRING (prop
);
4240 if (! NILP (format
))
4242 CHECK_NUMBER (format
);
4243 element_format
= XFASTINT (format
);
4245 if (element_format
!= 8 && element_format
!= 16
4246 && element_format
!= 32)
4247 error ("FORMAT must be one of 8, 16 or 32");
4252 nelements
= x_check_property_data (value
);
4253 if (nelements
== -1)
4254 error ("Bad data in VALUE, must be number, string or cons");
4256 if (element_format
== 8)
4257 data
= (unsigned char *) xmalloc (nelements
);
4258 else if (element_format
== 16)
4259 data
= (unsigned char *) xmalloc (nelements
*2);
4260 else /* format == 32 */
4261 /* The man page for XChangeProperty:
4262 "If the specified format is 32, the property data must be a
4264 This applies even if long is more than 64 bits. The X library
4265 converts to 32 bits before sending to the X server. */
4266 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4268 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4272 CHECK_STRING (value
);
4273 data
= SDATA (value
);
4274 nelements
= SCHARS (value
);
4278 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4281 CHECK_STRING (type
);
4282 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4285 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4286 else w
= FRAME_X_WINDOW (f
);
4288 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4289 prop_atom
, target_type
, element_format
, PropModeReplace
,
4292 if (CONSP (value
)) xfree (data
);
4294 /* Make sure the property is set when we return. */
4295 XFlush (FRAME_X_DISPLAY (f
));
4302 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4303 Sx_delete_window_property
, 1, 2, 0,
4304 doc
: /* Remove window property PROP from X window of FRAME.
4305 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4307 Lisp_Object prop
, frame
;
4309 struct frame
*f
= check_x_frame (frame
);
4312 CHECK_STRING (prop
);
4314 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4315 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4317 /* Make sure the property is removed when we return. */
4318 XFlush (FRAME_X_DISPLAY (f
));
4325 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4327 doc
: /* Value is the value of window property PROP on FRAME.
4328 If FRAME is nil or omitted, use the selected frame.
4329 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4330 is the name of the Atom that denotes the type expected.
4331 If SOURCE is non-nil, get the property on that window instead of from
4332 FRAME. The number 0 denotes the root window.
4333 If DELETE_P is non-nil, delete the property after retreiving it.
4334 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4336 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4337 no value of TYPE. */)
4338 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4339 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4341 struct frame
*f
= check_x_frame (frame
);
4344 Lisp_Object prop_value
= Qnil
;
4345 unsigned char *tmp_data
= NULL
;
4347 Atom target_type
= XA_STRING
;
4349 unsigned long actual_size
, bytes_remaining
;
4350 Window target_window
= FRAME_X_WINDOW (f
);
4351 struct gcpro gcpro1
;
4353 GCPRO1 (prop_value
);
4354 CHECK_STRING (prop
);
4356 if (! NILP (source
))
4358 if (NUMBERP (source
))
4360 if (FLOATP (source
))
4361 target_window
= (Window
) XFLOAT (source
);
4363 target_window
= XFASTINT (source
);
4365 if (target_window
== 0)
4366 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4368 else if (CONSP (source
))
4369 target_window
= cons_to_long (source
);
4375 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4376 target_type
= AnyPropertyType
;
4378 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4381 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4382 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4383 prop_atom
, 0, 0, False
, target_type
,
4384 &actual_type
, &actual_format
, &actual_size
,
4385 &bytes_remaining
, &tmp_data
);
4388 int size
= bytes_remaining
;
4393 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4394 prop_atom
, 0, bytes_remaining
,
4395 ! NILP (delete_p
), target_type
,
4396 &actual_type
, &actual_format
,
4397 &actual_size
, &bytes_remaining
,
4399 if (rc
== Success
&& tmp_data
)
4401 /* The man page for XGetWindowProperty says:
4402 "If the returned format is 32, the returned data is represented
4403 as a long array and should be cast to that type to obtain the
4405 This applies even if long is more than 32 bits, the X library
4406 converts from 32 bit elements received from the X server to long
4407 and passes the long array to us. Thus, for that case bcopy can not
4408 be used. We convert to a 32 bit type here, because so much code
4411 The bytes and offsets passed to XGetWindowProperty refers to the
4412 property and those are indeed in 32 bit quantities if format is
4415 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4418 int *idata
= (int *) tmp_data
;
4419 long *ldata
= (long *) tmp_data
;
4421 for (i
= 0; i
< actual_size
; ++i
)
4422 idata
[i
] = (int) ldata
[i
];
4425 if (NILP (vector_ret_p
))
4426 prop_value
= make_string (tmp_data
, size
);
4428 prop_value
= x_property_data_to_lisp (f
,
4435 if (tmp_data
) XFree (tmp_data
);
4445 /***********************************************************************
4447 ***********************************************************************/
4449 /* If non-null, an asynchronous timer that, when it expires, displays
4450 an hourglass cursor on all frames. */
4452 static struct atimer
*hourglass_atimer
;
4454 /* Non-zero means an hourglass cursor is currently shown. */
4456 static int hourglass_shown_p
;
4458 /* Number of seconds to wait before displaying an hourglass cursor. */
4460 static Lisp_Object Vhourglass_delay
;
4462 /* Default number of seconds to wait before displaying an hourglass
4465 #define DEFAULT_HOURGLASS_DELAY 1
4467 /* Function prototypes. */
4469 static void show_hourglass
P_ ((struct atimer
*));
4470 static void hide_hourglass
P_ ((void));
4472 /* Return non-zero if houglass timer has been started or hourglass is shown. */
4475 hourglass_started ()
4477 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
4481 /* Cancel a currently active hourglass timer, and start a new one. */
4487 int secs
, usecs
= 0;
4489 cancel_hourglass ();
4491 if (INTEGERP (Vhourglass_delay
)
4492 && XINT (Vhourglass_delay
) > 0)
4493 secs
= XFASTINT (Vhourglass_delay
);
4494 else if (FLOATP (Vhourglass_delay
)
4495 && XFLOAT_DATA (Vhourglass_delay
) > 0)
4498 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
4499 secs
= XFASTINT (tem
);
4500 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
4503 secs
= DEFAULT_HOURGLASS_DELAY
;
4505 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
4506 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
4507 show_hourglass
, NULL
);
4511 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
4517 if (hourglass_atimer
)
4519 cancel_atimer (hourglass_atimer
);
4520 hourglass_atimer
= NULL
;
4523 if (hourglass_shown_p
)
4528 /* Timer function of hourglass_atimer. TIMER is equal to
4531 Display an hourglass pointer on all frames by mapping the frames'
4532 hourglass_window. Set the hourglass_p flag in the frames'
4533 output_data.x structure to indicate that an hourglass cursor is
4534 shown on the frames. */
4537 show_hourglass (timer
)
4538 struct atimer
*timer
;
4540 /* The timer implementation will cancel this timer automatically
4541 after this function has run. Set hourglass_atimer to null
4542 so that we know the timer doesn't have to be canceled. */
4543 hourglass_atimer
= NULL
;
4545 if (!hourglass_shown_p
)
4547 Lisp_Object rest
, frame
;
4551 FOR_EACH_FRAME (rest
, frame
)
4553 struct frame
*f
= XFRAME (frame
);
4555 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4557 Display
*dpy
= FRAME_X_DISPLAY (f
);
4559 #ifdef USE_X_TOOLKIT
4560 if (f
->output_data
.x
->widget
)
4562 if (FRAME_OUTER_WINDOW (f
))
4565 f
->output_data
.x
->hourglass_p
= 1;
4567 if (!f
->output_data
.x
->hourglass_window
)
4569 unsigned long mask
= CWCursor
;
4570 XSetWindowAttributes attrs
;
4572 Window parent
= FRAME_X_WINDOW (f
);
4574 Window parent
= FRAME_OUTER_WINDOW (f
);
4576 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4578 f
->output_data
.x
->hourglass_window
4579 = XCreateWindow (dpy
, parent
,
4580 0, 0, 32000, 32000, 0, 0,
4586 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4592 hourglass_shown_p
= 1;
4598 /* Hide the hourglass pointer on all frames, if it is currently
4604 if (hourglass_shown_p
)
4606 Lisp_Object rest
, frame
;
4609 FOR_EACH_FRAME (rest
, frame
)
4611 struct frame
*f
= XFRAME (frame
);
4614 /* Watch out for newly created frames. */
4615 && f
->output_data
.x
->hourglass_window
)
4617 XUnmapWindow (FRAME_X_DISPLAY (f
),
4618 f
->output_data
.x
->hourglass_window
);
4619 /* Sync here because XTread_socket looks at the
4620 hourglass_p flag that is reset to zero below. */
4621 XSync (FRAME_X_DISPLAY (f
), False
);
4622 f
->output_data
.x
->hourglass_p
= 0;
4626 hourglass_shown_p
= 0;
4633 /***********************************************************************
4635 ***********************************************************************/
4637 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4638 Lisp_Object
, Lisp_Object
));
4639 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4640 Lisp_Object
, int, int, int *, int *));
4642 /* The frame of a currently visible tooltip. */
4644 Lisp_Object tip_frame
;
4646 /* If non-nil, a timer started that hides the last tooltip when it
4649 Lisp_Object tip_timer
;
4652 /* If non-nil, a vector of 3 elements containing the last args
4653 with which x-show-tip was called. See there. */
4655 Lisp_Object last_show_tip_args
;
4657 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4659 Lisp_Object Vx_max_tooltip_size
;
4663 unwind_create_tip_frame (frame
)
4666 Lisp_Object deleted
;
4668 deleted
= unwind_create_frame (frame
);
4669 if (EQ (deleted
, Qt
))
4679 /* Create a frame for a tooltip on the display described by DPYINFO.
4680 PARMS is a list of frame parameters. TEXT is the string to
4681 display in the tip frame. Value is the frame.
4683 Note that functions called here, esp. x_default_parameter can
4684 signal errors, for instance when a specified color name is
4685 undefined. We have to make sure that we're in a consistent state
4686 when this happens. */
4689 x_create_tip_frame (dpyinfo
, parms
, text
)
4690 struct x_display_info
*dpyinfo
;
4691 Lisp_Object parms
, text
;
4694 Lisp_Object frame
, tem
;
4696 long window_prompting
= 0;
4698 int count
= SPECPDL_INDEX ();
4699 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4700 int face_change_count_before
= face_change_count
;
4702 struct buffer
*old_buffer
;
4706 if (!dpyinfo
->terminal
->name
)
4707 error ("Terminal is not live, can't create new frames on it");
4709 parms
= Fcopy_alist (parms
);
4711 /* Get the name of the frame to use for resource lookup. */
4712 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4714 && !EQ (name
, Qunbound
)
4716 error ("Invalid frame name--not a string or nil");
4719 GCPRO3 (parms
, name
, frame
);
4721 XSETFRAME (frame
, f
);
4723 buffer
= Fget_buffer_create (build_string (" *tip*"));
4724 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4725 old_buffer
= current_buffer
;
4726 set_buffer_internal_1 (XBUFFER (buffer
));
4727 current_buffer
->truncate_lines
= Qnil
;
4728 specbind (Qinhibit_read_only
, Qt
);
4729 specbind (Qinhibit_modification_hooks
, Qt
);
4732 set_buffer_internal_1 (old_buffer
);
4734 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4735 record_unwind_protect (unwind_create_tip_frame
, frame
);
4737 f
->terminal
= dpyinfo
->terminal
;
4738 f
->terminal
->reference_count
++;
4740 /* By setting the output method, we're essentially saying that
4741 the frame is live, as per FRAME_LIVE_P. If we get a signal
4742 from this point on, x_destroy_window might screw up reference
4744 f
->output_method
= output_x_window
;
4745 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4746 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4747 f
->output_data
.x
->icon_bitmap
= -1;
4748 FRAME_FONTSET (f
) = -1;
4749 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4750 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4751 #ifdef USE_TOOLKIT_SCROLL_BARS
4752 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4753 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4754 #endif /* USE_TOOLKIT_SCROLL_BARS */
4755 f
->icon_name
= Qnil
;
4756 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4758 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
4759 dpyinfo_refcount
= dpyinfo
->reference_count
;
4760 #endif /* GLYPH_DEBUG */
4761 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4762 f
->output_data
.x
->explicit_parent
= 0;
4764 /* These colors will be set anyway later, but it's important
4765 to get the color reference counts right, so initialize them! */
4768 struct gcpro gcpro1
;
4770 /* Function x_decode_color can signal an error. Make
4771 sure to initialize color slots so that we won't try
4772 to free colors we haven't allocated. */
4773 FRAME_FOREGROUND_PIXEL (f
) = -1;
4774 FRAME_BACKGROUND_PIXEL (f
) = -1;
4775 f
->output_data
.x
->cursor_pixel
= -1;
4776 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4777 f
->output_data
.x
->border_pixel
= -1;
4778 f
->output_data
.x
->mouse_pixel
= -1;
4780 black
= build_string ("black");
4782 FRAME_FOREGROUND_PIXEL (f
)
4783 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4784 FRAME_BACKGROUND_PIXEL (f
)
4785 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4786 f
->output_data
.x
->cursor_pixel
4787 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4788 f
->output_data
.x
->cursor_foreground_pixel
4789 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4790 f
->output_data
.x
->border_pixel
4791 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4792 f
->output_data
.x
->mouse_pixel
4793 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4797 /* Set the name; the functions to which we pass f expect the name to
4799 if (EQ (name
, Qunbound
) || NILP (name
))
4801 f
->name
= build_string (dpyinfo
->x_id_name
);
4802 f
->explicit_name
= 0;
4807 f
->explicit_name
= 1;
4808 /* use the frame's title when getting resources for this frame. */
4809 specbind (Qx_resource_name
, name
);
4812 /* Extract the window parameters from the supplied values that are
4813 needed to determine window geometry. */
4817 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
4820 /* First, try whatever font the caller has specified. */
4823 tem
= Fquery_fontset (font
, Qnil
);
4825 font
= x_new_fontset (f
, SDATA (tem
));
4827 font
= x_new_font (f
, SDATA (font
));
4830 /* Try out a font which we hope has bold and italic variations. */
4831 if (!STRINGP (font
))
4832 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
4833 if (!STRINGP (font
))
4834 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4835 if (! STRINGP (font
))
4836 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4837 if (! STRINGP (font
))
4838 /* This was formerly the first thing tried, but it finds too many fonts
4839 and takes too long. */
4840 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
4841 /* If those didn't work, look for something which will at least work. */
4842 if (! STRINGP (font
))
4843 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
4845 if (! STRINGP (font
))
4846 font
= build_string ("fixed");
4848 x_default_parameter (f
, parms
, Qfont
, font
,
4849 "font", "Font", RES_TYPE_STRING
);
4852 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4853 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4855 /* This defaults to 2 in order to match xterm. We recognize either
4856 internalBorderWidth or internalBorder (which is what xterm calls
4858 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4862 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4863 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4864 if (! EQ (value
, Qunbound
))
4865 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4869 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4870 "internalBorderWidth", "internalBorderWidth",
4873 /* Also do the stuff which must be set before the window exists. */
4874 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4875 "foreground", "Foreground", RES_TYPE_STRING
);
4876 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4877 "background", "Background", RES_TYPE_STRING
);
4878 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4879 "pointerColor", "Foreground", RES_TYPE_STRING
);
4880 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4881 "cursorColor", "Foreground", RES_TYPE_STRING
);
4882 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4883 "borderColor", "BorderColor", RES_TYPE_STRING
);
4885 /* Init faces before x_default_parameter is called for scroll-bar
4886 parameters because that function calls x_set_scroll_bar_width,
4887 which calls change_frame_size, which calls Fset_window_buffer,
4888 which runs hooks, which call Fvertical_motion. At the end, we
4889 end up in init_iterator with a null face cache, which should not
4891 init_frame_faces (f
);
4893 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4895 window_prompting
= x_figure_window_size (f
, parms
, 0);
4898 XSetWindowAttributes attrs
;
4902 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4903 if (DoesSaveUnders (dpyinfo
->screen
))
4904 mask
|= CWSaveUnder
;
4906 /* Window managers look at the override-redirect flag to determine
4907 whether or net to give windows a decoration (Xlib spec, chapter
4909 attrs
.override_redirect
= True
;
4910 attrs
.save_under
= True
;
4911 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4912 /* Arrange for getting MapNotify and UnmapNotify events. */
4913 attrs
.event_mask
= StructureNotifyMask
;
4915 = FRAME_X_WINDOW (f
)
4916 = XCreateWindow (FRAME_X_DISPLAY (f
),
4917 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4918 /* x, y, width, height */
4922 CopyFromParent
, InputOutput
, CopyFromParent
,
4929 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4930 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4931 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4932 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4933 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4934 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4936 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4937 Change will not be effected unless different from the current
4939 width
= FRAME_COLS (f
);
4940 height
= FRAME_LINES (f
);
4941 SET_FRAME_COLS (f
, 0);
4942 FRAME_LINES (f
) = 0;
4943 change_frame_size (f
, height
, width
, 1, 0, 0);
4945 /* Add `tooltip' frame parameter's default value. */
4946 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4947 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4950 /* Set the `display-type' frame parameter before setting up faces. */
4952 Lisp_Object disptype
;
4954 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4955 disptype
= intern ("mono");
4956 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
||
4957 FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4958 disptype
= intern ("grayscale");
4960 disptype
= intern ("color");
4962 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4963 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4967 /* Set up faces after all frame parameters are known. This call
4968 also merges in face attributes specified for new frames.
4970 Frame parameters may be changed if .Xdefaults contains
4971 specifications for the default font. For example, if there is an
4972 `Emacs.default.attributeBackground: pink', the `background-color'
4973 attribute of the frame get's set, which let's the internal border
4974 of the tooltip frame appear in pink. Prevent this. */
4976 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4978 /* Set tip_frame here, so that */
4980 call1 (Qface_set_after_frame_default
, frame
);
4982 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4983 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4987 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qwindow_system
, Qx
), Qnil
));
4993 /* It is now ok to make the frame official even if we get an error
4994 below. And the frame needs to be on Vframe_list or making it
4995 visible won't work. */
4996 Vframe_list
= Fcons (frame
, Vframe_list
);
4998 /* Now that the frame is official, it counts as a reference to
5000 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
5002 /* Setting attributes of faces of the tooltip frame from resources
5003 and similar will increment face_change_count, which leads to the
5004 clearing of all current matrices. Since this isn't necessary
5005 here, avoid it by resetting face_change_count to the value it
5006 had before we created the tip frame. */
5007 face_change_count
= face_change_count_before
;
5009 /* Discard the unwind_protect. */
5010 return unbind_to (count
, frame
);
5014 /* Compute where to display tip frame F. PARMS is the list of frame
5015 parameters for F. DX and DY are specified offsets from the current
5016 location of the mouse. WIDTH and HEIGHT are the width and height
5017 of the tooltip. Return coordinates relative to the root window of
5018 the display in *ROOT_X, and *ROOT_Y. */
5021 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
5023 Lisp_Object parms
, dx
, dy
;
5025 int *root_x
, *root_y
;
5027 Lisp_Object left
, top
;
5032 /* User-specified position? */
5033 left
= Fcdr (Fassq (Qleft
, parms
));
5034 top
= Fcdr (Fassq (Qtop
, parms
));
5036 /* Move the tooltip window where the mouse pointer is. Resize and
5038 if (!INTEGERP (left
) || !INTEGERP (top
))
5041 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
5042 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
5047 *root_y
= XINT (top
);
5048 else if (*root_y
+ XINT (dy
) <= 0)
5049 *root_y
= 0; /* Can happen for negative dy */
5050 else if (*root_y
+ XINT (dy
) + height
<= FRAME_X_DISPLAY_INFO (f
)->height
)
5051 /* It fits below the pointer */
5052 *root_y
+= XINT (dy
);
5053 else if (height
+ XINT (dy
) <= *root_y
)
5054 /* It fits above the pointer. */
5055 *root_y
-= height
+ XINT (dy
);
5057 /* Put it on the top. */
5060 if (INTEGERP (left
))
5061 *root_x
= XINT (left
);
5062 else if (*root_x
+ XINT (dx
) <= 0)
5063 *root_x
= 0; /* Can happen for negative dx */
5064 else if (*root_x
+ XINT (dx
) + width
<= FRAME_X_DISPLAY_INFO (f
)->width
)
5065 /* It fits to the right of the pointer. */
5066 *root_x
+= XINT (dx
);
5067 else if (width
+ XINT (dx
) <= *root_x
)
5068 /* It fits to the left of the pointer. */
5069 *root_x
-= width
+ XINT (dx
);
5071 /* Put it left-justified on the screen--it ought to fit that way. */
5076 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5077 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5078 A tooltip window is a small X window displaying a string.
5080 This is an internal function; Lisp code should call `tooltip-show'.
5082 FRAME nil or omitted means use the selected frame.
5084 PARMS is an optional list of frame parameters which can be used to
5085 change the tooltip's appearance.
5087 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5088 means use the default timeout of 5 seconds.
5090 If the list of frame parameters PARAMS contains a `left' parameters,
5091 the tooltip is displayed at that x-position. Otherwise it is
5092 displayed at the mouse position, with offset DX added (default is 5 if
5093 DX isn't specified). Likewise for the y-position; if a `top' frame
5094 parameter is specified, it determines the y-position of the tooltip
5095 window, otherwise it is displayed at the mouse position, with offset
5096 DY added (default is -10).
5098 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5099 Text larger than the specified size is clipped. */)
5100 (string
, frame
, parms
, timeout
, dx
, dy
)
5101 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
5106 struct buffer
*old_buffer
;
5107 struct text_pos pos
;
5108 int i
, width
, height
;
5109 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5110 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5111 int count
= SPECPDL_INDEX ();
5113 specbind (Qinhibit_redisplay
, Qt
);
5115 GCPRO4 (string
, parms
, frame
, timeout
);
5117 CHECK_STRING (string
);
5118 f
= check_x_frame (frame
);
5120 timeout
= make_number (5);
5122 CHECK_NATNUM (timeout
);
5125 dx
= make_number (5);
5130 dy
= make_number (-10);
5134 if (NILP (last_show_tip_args
))
5135 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5137 if (!NILP (tip_frame
))
5139 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5140 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5141 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5143 if (EQ (frame
, last_frame
)
5144 && !NILP (Fequal (last_string
, string
))
5145 && !NILP (Fequal (last_parms
, parms
)))
5147 struct frame
*f
= XFRAME (tip_frame
);
5149 /* Only DX and DY have changed. */
5150 if (!NILP (tip_timer
))
5152 Lisp_Object timer
= tip_timer
;
5154 call1 (Qcancel_timer
, timer
);
5158 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5159 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5160 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5167 /* Hide a previous tip, if any. */
5170 ASET (last_show_tip_args
, 0, string
);
5171 ASET (last_show_tip_args
, 1, frame
);
5172 ASET (last_show_tip_args
, 2, parms
);
5174 /* Add default values to frame parameters. */
5175 if (NILP (Fassq (Qname
, parms
)))
5176 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5177 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5178 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5179 if (NILP (Fassq (Qborder_width
, parms
)))
5180 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5181 if (NILP (Fassq (Qborder_color
, parms
)))
5182 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5183 if (NILP (Fassq (Qbackground_color
, parms
)))
5184 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5187 /* Create a frame for the tooltip, and record it in the global
5188 variable tip_frame. */
5189 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5192 /* Set up the frame's root window. */
5193 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5194 w
->left_col
= w
->top_line
= make_number (0);
5196 if (CONSP (Vx_max_tooltip_size
)
5197 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5198 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5199 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5200 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5202 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5203 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5207 w
->total_cols
= make_number (80);
5208 w
->total_lines
= make_number (40);
5211 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5213 w
->pseudo_window_p
= 1;
5215 /* Display the tooltip text in a temporary buffer. */
5216 old_buffer
= current_buffer
;
5217 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5218 current_buffer
->truncate_lines
= Qnil
;
5219 clear_glyph_matrix (w
->desired_matrix
);
5220 clear_glyph_matrix (w
->current_matrix
);
5221 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5222 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5224 /* Compute width and height of the tooltip. */
5226 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5228 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5232 /* Stop at the first empty row at the end. */
5233 if (!row
->enabled_p
|| !row
->displays_text_p
)
5236 /* Let the row go over the full width of the frame. */
5237 row
->full_width_p
= 1;
5239 /* There's a glyph at the end of rows that is used to place
5240 the cursor there. Don't include the width of this glyph. */
5241 if (row
->used
[TEXT_AREA
])
5243 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5244 row_width
= row
->pixel_width
- last
->pixel_width
;
5247 row_width
= row
->pixel_width
;
5249 height
+= row
->height
;
5250 width
= max (width
, row_width
);
5253 /* Add the frame's internal border to the width and height the X
5254 window should have. */
5255 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5256 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5258 /* Move the tooltip window where the mouse pointer is. Resize and
5260 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5263 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5264 root_x
, root_y
, width
, height
);
5265 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5268 /* Draw into the window. */
5269 w
->must_be_updated_p
= 1;
5270 update_single_window (w
, 1);
5272 /* Restore original current buffer. */
5273 set_buffer_internal_1 (old_buffer
);
5274 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5277 /* Let the tip disappear after timeout seconds. */
5278 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5279 intern ("x-hide-tip"));
5282 return unbind_to (count
, Qnil
);
5286 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5287 doc
: /* Hide the current tooltip window, if there is any.
5288 Value is t if tooltip was open, nil otherwise. */)
5292 Lisp_Object deleted
, frame
, timer
;
5293 struct gcpro gcpro1
, gcpro2
;
5295 /* Return quickly if nothing to do. */
5296 if (NILP (tip_timer
) && NILP (tip_frame
))
5301 GCPRO2 (frame
, timer
);
5302 tip_frame
= tip_timer
= deleted
= Qnil
;
5304 count
= SPECPDL_INDEX ();
5305 specbind (Qinhibit_redisplay
, Qt
);
5306 specbind (Qinhibit_quit
, Qt
);
5309 call1 (Qcancel_timer
, timer
);
5313 Fdelete_frame (frame
, Qnil
);
5317 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5318 redisplay procedure is not called when a tip frame over menu
5319 items is unmapped. Redisplay the menu manually... */
5321 struct frame
*f
= SELECTED_FRAME ();
5322 Widget w
= f
->output_data
.x
->menubar_widget
;
5323 extern void xlwmenu_redisplay
P_ ((Widget
));
5325 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5329 xlwmenu_redisplay (w
);
5333 #endif /* USE_LUCID */
5337 return unbind_to (count
, deleted
);
5342 /***********************************************************************
5343 File selection dialog
5344 ***********************************************************************/
5346 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5347 Sx_uses_old_gtk_dialog
,
5349 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5353 extern int use_dialog_box
;
5354 extern int use_file_dialog
;
5359 && xg_uses_old_file_dialog ())
5367 /* Callback for "OK" and "Cancel" on file selection dialog. */
5370 file_dialog_cb (widget
, client_data
, call_data
)
5372 XtPointer call_data
, client_data
;
5374 int *result
= (int *) client_data
;
5375 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5376 *result
= cb
->reason
;
5380 /* Callback for unmapping a file selection dialog. This is used to
5381 capture the case where a dialog is closed via a window manager's
5382 closer button, for example. Using a XmNdestroyCallback didn't work
5386 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5388 XtPointer call_data
, client_data
;
5390 int *result
= (int *) client_data
;
5391 *result
= XmCR_CANCEL
;
5395 clean_up_file_dialog (arg
)
5398 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5399 Widget dialog
= (Widget
) p
->pointer
;
5403 XtUnmanageChild (dialog
);
5404 XtDestroyWidget (dialog
);
5405 x_menu_set_in_use (0);
5412 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5413 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5414 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5415 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5416 or directory must exist. ONLY-DIR-P is ignored." */)
5417 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5418 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5421 struct frame
*f
= SELECTED_FRAME ();
5422 Lisp_Object file
= Qnil
;
5423 Lisp_Object decoded_file
;
5424 Widget dialog
, text
, help
;
5427 extern XtAppContext Xt_app_con
;
5428 XmString dir_xmstring
, pattern_xmstring
;
5429 int count
= SPECPDL_INDEX ();
5430 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5434 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5436 if (popup_activated ())
5437 error ("Trying to use a menu from within a menu-entry");
5439 CHECK_STRING (prompt
);
5442 /* Prevent redisplay. */
5443 specbind (Qinhibit_redisplay
, Qt
);
5447 /* Create the dialog with PROMPT as title, using DIR as initial
5448 directory and using "*" as pattern. */
5449 dir
= Fexpand_file_name (dir
, Qnil
);
5450 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5451 pattern_xmstring
= XmStringCreateLocalized ("*");
5453 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5454 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5455 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5456 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5457 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5458 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5460 XmStringFree (dir_xmstring
);
5461 XmStringFree (pattern_xmstring
);
5463 /* Add callbacks for OK and Cancel. */
5464 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5465 (XtPointer
) &result
);
5466 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5467 (XtPointer
) &result
);
5468 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5469 (XtPointer
) &result
);
5471 /* Remove the help button since we can't display help. */
5472 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5473 XtUnmanageChild (help
);
5475 /* Mark OK button as default. */
5476 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5477 XmNshowAsDefault
, True
, NULL
);
5479 /* If MUSTMATCH is non-nil, disable the file entry field of the
5480 dialog, so that the user must select a file from the files list
5481 box. We can't remove it because we wouldn't have a way to get at
5482 the result file name, then. */
5483 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5484 if (!NILP (mustmatch
))
5487 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5488 XtSetSensitive (text
, False
);
5489 XtSetSensitive (label
, False
);
5492 /* Manage the dialog, so that list boxes get filled. */
5493 XtManageChild (dialog
);
5495 if (STRINGP (default_filename
))
5497 XmString default_xmstring
;
5498 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5499 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5501 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5502 XmTextFieldReplace (wtext
, 0, last_pos
,
5503 (SDATA (Ffile_name_nondirectory (default_filename
))));
5505 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5506 must include the path for this to work. */
5508 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5510 if (XmListItemExists (list
, default_xmstring
))
5512 int item_pos
= XmListItemPos (list
, default_xmstring
);
5513 /* Select the item and scroll it into view. */
5514 XmListSelectPos (list
, item_pos
, True
);
5515 XmListSetPos (list
, item_pos
);
5518 XmStringFree (default_xmstring
);
5521 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5523 /* Process events until the user presses Cancel or OK. */
5524 x_menu_set_in_use (1);
5529 x_menu_wait_for_event (0);
5530 XtAppNextEvent (Xt_app_con
, &event
);
5531 if (event
.type
== KeyPress
5532 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5534 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5536 /* Pop down on C-g. */
5537 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5538 XtUnmanageChild (dialog
);
5541 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5544 /* Get the result. */
5545 if (result
== XmCR_OK
)
5550 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5551 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5552 XmStringFree (text
);
5553 file
= build_string (data
);
5562 /* Make "Cancel" equivalent to C-g. */
5564 Fsignal (Qquit
, Qnil
);
5566 decoded_file
= DECODE_FILE (file
);
5568 return unbind_to (count
, decoded_file
);
5571 #endif /* USE_MOTIF */
5576 clean_up_dialog (arg
)
5579 x_menu_set_in_use (0);
5584 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5585 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5586 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5587 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5588 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5590 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5591 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5593 FRAME_PTR f
= SELECTED_FRAME ();
5595 Lisp_Object file
= Qnil
;
5596 Lisp_Object decoded_file
;
5597 int count
= SPECPDL_INDEX ();
5598 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5603 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5605 if (popup_activated ())
5606 error ("Trying to use a menu from within a menu-entry");
5608 CHECK_STRING (prompt
);
5611 /* Prevent redisplay. */
5612 specbind (Qinhibit_redisplay
, Qt
);
5613 record_unwind_protect (clean_up_dialog
, Qnil
);
5617 if (STRINGP (default_filename
))
5618 cdef_file
= SDATA (default_filename
);
5620 cdef_file
= SDATA (dir
);
5622 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5624 ! NILP (only_dir_p
));
5628 file
= build_string (fn
);
5635 /* Make "Cancel" equivalent to C-g. */
5637 Fsignal (Qquit
, Qnil
);
5639 decoded_file
= DECODE_FILE (file
);
5641 return unbind_to (count
, decoded_file
);
5644 #endif /* USE_GTK */
5647 /***********************************************************************
5649 ***********************************************************************/
5651 #ifdef HAVE_XKBGETKEYBOARD
5652 #include <X11/XKBlib.h>
5653 #include <X11/keysym.h>
5656 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5657 Sx_backspace_delete_keys_p
, 0, 1, 0,
5658 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5659 FRAME nil means use the selected frame.
5660 Value is t if we know that both keys are present, and are mapped to the
5661 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5662 present and mapped to the usual X keysyms. */)
5666 #ifdef HAVE_XKBGETKEYBOARD
5668 struct frame
*f
= check_x_frame (frame
);
5669 Display
*dpy
= FRAME_X_DISPLAY (f
);
5670 Lisp_Object have_keys
;
5671 int major
, minor
, op
, event
, error
;
5675 /* Check library version in case we're dynamically linked. */
5676 major
= XkbMajorVersion
;
5677 minor
= XkbMinorVersion
;
5678 if (!XkbLibraryVersion (&major
, &minor
))
5684 /* Check that the server supports XKB. */
5685 major
= XkbMajorVersion
;
5686 minor
= XkbMinorVersion
;
5687 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5693 /* In this code we check that the keyboard has physical keys with names
5694 that start with BKSP (Backspace) and DELE (Delete), and that they
5695 generate keysym XK_BackSpace and XK_Delete respectively.
5696 This function is used to test if normal-erase-is-backspace should be
5698 An alternative approach would be to just check if XK_BackSpace and
5699 XK_Delete are mapped to any key. But if any of those are mapped to
5700 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5701 user doesn't know about it, it is better to return false here.
5702 It is more obvious to the user what to do if she/he has two keys
5703 clearly marked with names/symbols and one key does something not
5704 expected (i.e. she/he then tries the other).
5705 The cases where Backspace/Delete is mapped to some other key combination
5706 are rare, and in those cases, normal-erase-is-backspace can be turned on
5710 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5713 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5715 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5717 for (i
= kb
->min_key_code
;
5718 (i
< kb
->max_key_code
5719 && (delete_keycode
== 0 || backspace_keycode
== 0));
5722 /* The XKB symbolic key names can be seen most easily in
5723 the PS file generated by `xkbprint -label name
5725 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5727 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5728 backspace_keycode
= i
;
5731 XkbFreeNames (kb
, 0, True
);
5734 XkbFreeClientMap (kb
, 0, True
);
5737 && backspace_keycode
5738 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5739 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5744 #else /* not HAVE_XKBGETKEYBOARD */
5746 #endif /* not HAVE_XKBGETKEYBOARD */
5751 /***********************************************************************
5753 ***********************************************************************/
5755 /* Keep this list in the same order as frame_parms in frame.c.
5756 Use 0 for unsupported frame parameters. */
5758 frame_parm_handler x_frame_parm_handlers
[] =
5762 x_set_background_color
,
5768 x_set_foreground_color
,
5771 x_set_internal_border_width
,
5772 x_set_menu_bar_lines
,
5774 x_explicitly_set_name
,
5775 x_set_scroll_bar_width
,
5778 x_set_vertical_scroll_bars
,
5780 x_set_tool_bar_lines
,
5781 x_set_scroll_bar_foreground
,
5782 x_set_scroll_bar_background
,
5794 /* This is zero if not using X windows. */
5797 /* The section below is built by the lisp expression at the top of the file,
5798 just above where these variables are declared. */
5799 /*&&& init symbols here &&&*/
5800 Qnone
= intern ("none");
5802 Qsuppress_icon
= intern ("suppress-icon");
5803 staticpro (&Qsuppress_icon
);
5804 Qundefined_color
= intern ("undefined-color");
5805 staticpro (&Qundefined_color
);
5806 Qcompound_text
= intern ("compound-text");
5807 staticpro (&Qcompound_text
);
5808 Qcancel_timer
= intern ("cancel-timer");
5809 staticpro (&Qcancel_timer
);
5810 /* This is the end of symbol initialization. */
5812 /* Text property `display' should be nonsticky by default. */
5813 Vtext_property_default_nonsticky
5814 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5817 Fput (Qundefined_color
, Qerror_conditions
,
5818 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
5819 Fput (Qundefined_color
, Qerror_message
,
5820 build_string ("Undefined color"));
5822 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5823 doc
: /* The shape of the pointer when over text.
5824 Changing the value does not affect existing frames
5825 unless you set the mouse color. */);
5826 Vx_pointer_shape
= Qnil
;
5828 #if 0 /* This doesn't really do anything. */
5829 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5830 doc
: /* The shape of the pointer when not over text.
5831 This variable takes effect when you create a new frame
5832 or when you set the mouse color. */);
5834 Vx_nontext_pointer_shape
= Qnil
;
5836 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5837 doc
: /* The shape of the pointer when Emacs is busy.
5838 This variable takes effect when you create a new frame
5839 or when you set the mouse color. */);
5840 Vx_hourglass_pointer_shape
= Qnil
;
5842 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
5843 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
5844 display_hourglass_p
= 1;
5846 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
5847 doc
: /* *Seconds to wait before displaying an hourglass pointer.
5848 Value must be an integer or float. */);
5849 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
5851 #if 0 /* This doesn't really do anything. */
5852 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5853 doc
: /* The shape of the pointer when over the mode line.
5854 This variable takes effect when you create a new frame
5855 or when you set the mouse color. */);
5857 Vx_mode_pointer_shape
= Qnil
;
5859 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5860 &Vx_sensitive_text_pointer_shape
,
5861 doc
: /* The shape of the pointer when over mouse-sensitive text.
5862 This variable takes effect when you create a new frame
5863 or when you set the mouse color. */);
5864 Vx_sensitive_text_pointer_shape
= Qnil
;
5866 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5867 &Vx_window_horizontal_drag_shape
,
5868 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5869 This variable takes effect when you create a new frame
5870 or when you set the mouse color. */);
5871 Vx_window_horizontal_drag_shape
= Qnil
;
5873 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5874 doc
: /* A string indicating the foreground color of the cursor box. */);
5875 Vx_cursor_fore_pixel
= Qnil
;
5877 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5878 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5879 Text larger than this is clipped. */);
5880 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5882 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5883 doc
: /* Non-nil if no X window manager is in use.
5884 Emacs doesn't try to figure this out; this is always nil
5885 unless you set it to something else. */);
5886 /* We don't have any way to find this out, so set it to nil
5887 and maybe the user would like to set it to t. */
5888 Vx_no_window_manager
= Qnil
;
5890 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5891 &Vx_pixel_size_width_font_regexp
,
5892 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5894 Since Emacs gets width of a font matching with this regexp from
5895 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5896 such a font. This is especially effective for such large fonts as
5897 Chinese, Japanese, and Korean. */);
5898 Vx_pixel_size_width_font_regexp
= Qnil
;
5900 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5901 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", &x_gtk_use_old_file_dialog
,
5902 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5903 If nil or if the file selection dialog is not available, the new GTK file
5904 chooser is used instead. To turn off all file dialogs set the
5905 variable `use-file-dialog'. */);
5906 x_gtk_use_old_file_dialog
= 0;
5908 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5909 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5910 Note that this is just the default, there is a toggle button on the file
5911 chooser to show or not show hidden files on a case by case basis. */);
5912 x_gtk_show_hidden_files
= 0;
5914 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", &x_gtk_file_dialog_help_text
,
5915 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
5916 If more space for files in the file chooser dialog is wanted, set this to nil
5917 to turn the additional text off. */);
5918 x_gtk_file_dialog_help_text
= 1;
5920 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
5921 doc
: /* *If non-nil, a detached tool bar is shown in full.
5922 The default is to just show an arrow and pressing on that arrow shows
5923 the tool bar buttons. */);
5924 x_gtk_whole_detached_tool_bar
= 0;
5926 Fprovide (intern ("x"), Qnil
);
5928 #ifdef USE_X_TOOLKIT
5929 Fprovide (intern ("x-toolkit"), Qnil
);
5931 Fprovide (intern ("motif"), Qnil
);
5933 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5934 doc
: /* Version info for LessTif/Motif. */);
5935 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5936 #endif /* USE_MOTIF */
5937 #endif /* USE_X_TOOLKIT */
5940 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5941 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5942 But for a user it is a toolkit for X, and indeed, configure
5943 accepts --with-x-toolkit=gtk. */
5944 Fprovide (intern ("x-toolkit"), Qnil
);
5945 Fprovide (intern ("gtk"), Qnil
);
5947 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5948 doc
: /* Version info for GTK+. */);
5950 char gtk_version
[40];
5951 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5952 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5953 Vgtk_version_string
= build_string (gtk_version
);
5955 #endif /* USE_GTK */
5957 /* X window properties. */
5958 defsubr (&Sx_change_window_property
);
5959 defsubr (&Sx_delete_window_property
);
5960 defsubr (&Sx_window_property
);
5962 defsubr (&Sxw_display_color_p
);
5963 defsubr (&Sx_display_grayscale_p
);
5964 defsubr (&Sxw_color_defined_p
);
5965 defsubr (&Sxw_color_values
);
5966 defsubr (&Sx_server_max_request_size
);
5967 defsubr (&Sx_server_vendor
);
5968 defsubr (&Sx_server_version
);
5969 defsubr (&Sx_display_pixel_width
);
5970 defsubr (&Sx_display_pixel_height
);
5971 defsubr (&Sx_display_mm_width
);
5972 defsubr (&Sx_display_mm_height
);
5973 defsubr (&Sx_display_screens
);
5974 defsubr (&Sx_display_planes
);
5975 defsubr (&Sx_display_color_cells
);
5976 defsubr (&Sx_display_visual_class
);
5977 defsubr (&Sx_display_backing_store
);
5978 defsubr (&Sx_display_save_under
);
5979 defsubr (&Sx_create_frame
);
5980 defsubr (&Sx_open_connection
);
5981 defsubr (&Sx_close_connection
);
5982 defsubr (&Sx_display_list
);
5983 defsubr (&Sx_synchronize
);
5984 defsubr (&Sx_focus_frame
);
5985 defsubr (&Sx_backspace_delete_keys_p
);
5987 /* Setting callback functions for fontset handler. */
5988 get_font_info_func
= x_get_font_info
;
5990 #if 0 /* This function pointer doesn't seem to be used anywhere.
5991 And the pointer assigned has the wrong type, anyway. */
5992 list_fonts_func
= x_list_fonts
;
5995 load_font_func
= x_load_font
;
5996 find_ccl_program_func
= x_find_ccl_program
;
5997 query_font_func
= x_query_font
;
5998 set_frame_fontset_func
= x_set_font
;
5999 check_window_system_func
= check_x
;
6001 hourglass_atimer
= NULL
;
6002 hourglass_shown_p
= 0;
6004 defsubr (&Sx_show_tip
);
6005 defsubr (&Sx_hide_tip
);
6007 staticpro (&tip_timer
);
6009 staticpro (&tip_frame
);
6011 last_show_tip_args
= Qnil
;
6012 staticpro (&last_show_tip_args
);
6014 defsubr (&Sx_uses_old_gtk_dialog
);
6015 #if defined (USE_MOTIF) || defined (USE_GTK)
6016 defsubr (&Sx_file_dialog
);
6020 #endif /* HAVE_X_WINDOWS */
6022 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
6023 (do not change this comment) */