1 /* Functions for the X window system.
2 Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
3 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
4 Free Software Foundation, Inc.
6 This file is part of GNU Emacs.
8 GNU Emacs is free software: you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation, either version 3 of the License, or
11 (at your option) any later version.
13 GNU Emacs is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
29 /* This makes the fields of a Display accessible, in Xlib header files. */
31 #define XLIB_ILLEGAL_ACCESS
38 #include "intervals.h"
39 #include "dispextern.h"
41 #include "blockinput.h"
43 #include "character.h"
48 #include "termhooks.h"
56 #include <sys/types.h>
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>
70 #include <X11/Shell.h>
74 #include <X11/Xaw3d/Paned.h>
75 #include <X11/Xaw3d/Label.h>
76 #else /* !HAVE_XAW3D */
77 #include <X11/Xaw/Paned.h>
78 #include <X11/Xaw/Label.h>
79 #endif /* HAVE_XAW3D */
80 #endif /* USE_MOTIF */
83 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
92 #include "../lwlib/lwlib.h"
96 #include <Xm/DialogS.h>
97 #include <Xm/FileSB.h>
100 /* Do the EDITRES protocol if running X11R5
101 Exception: HP-UX (at least version A.09.05) has X11R5 without EditRes */
103 #if (XtSpecificationRelease >= 5) && !defined(NO_EDITRES)
105 extern void _XEditResCheckMessages ();
106 #endif /* R5 + Athena */
108 /* Unique id counter for widgets created by the Lucid Widget Library. */
110 extern LWLIB_ID widget_id_tick
;
113 /* This is part of a kludge--see lwlib/xlwmenu.c. */
114 extern XFontStruct
*xlwmenu_default_font
;
117 extern void free_frame_menubar ();
118 extern double atof ();
122 /* LessTif/Motif version info. */
124 static Lisp_Object Vmotif_version_string
;
126 #endif /* USE_MOTIF */
128 #endif /* USE_X_TOOLKIT */
132 /* GTK+ version info */
134 static Lisp_Object Vgtk_version_string
;
138 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
140 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
141 it, and including `bitmaps/gray' more than once is a problem when
142 config.h defines `static' as an empty replacement string. */
144 int gray_bitmap_width
= gray_width
;
145 int gray_bitmap_height
= gray_height
;
146 char *gray_bitmap_bits
= gray_bits
;
148 /* Non-zero means prompt with the old GTK file selection dialog. */
150 int x_gtk_use_old_file_dialog
;
152 /* If non-zero, by default show hidden files in the GTK file chooser. */
154 int x_gtk_show_hidden_files
;
156 /* If non-zero, don't show additional help text in the GTK file chooser. */
158 int x_gtk_file_dialog_help_text
;
160 /* If non-zero, don't collapse to tool bar when it is detached. */
162 int x_gtk_whole_detached_tool_bar
;
164 /* The background and shape of the mouse pointer, and shape when not
165 over text or in the modeline. */
167 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
168 Lisp_Object Vx_hourglass_pointer_shape
;
170 /* The shape when over mouse-sensitive text. */
172 Lisp_Object Vx_sensitive_text_pointer_shape
;
174 /* If non-nil, the pointer shape to indicate that windows can be
175 dragged horizontally. */
177 Lisp_Object Vx_window_horizontal_drag_shape
;
179 /* Color of chars displayed in cursor box. */
181 Lisp_Object Vx_cursor_fore_pixel
;
183 /* Nonzero if using X. */
187 /* Non nil if no window manager is in use. */
189 Lisp_Object Vx_no_window_manager
;
191 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
193 Lisp_Object Vx_pixel_size_width_font_regexp
;
196 Lisp_Object Qsuppress_icon
;
197 Lisp_Object Qundefined_color
;
198 Lisp_Object Qcompound_text
, Qcancel_timer
;
199 static Lisp_Object Qfont_param
;
203 extern Lisp_Object Vwindow_system_version
;
205 /* The below are defined in frame.c. */
208 int image_cache_refcount
, dpyinfo_refcount
;
213 /* Error if we are not connected to X. */
219 error ("X windows are not in use or not initialized");
222 /* Nonzero if we can use mouse menus.
223 You should not call this unless HAVE_MENUS is defined. */
231 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
232 and checking validity for X. */
235 check_x_frame (frame
)
241 frame
= selected_frame
;
242 CHECK_LIVE_FRAME (frame
);
245 error ("Non-X frame used");
249 /* Let the user specify an X display with a Lisp object.
250 OBJECT may be nil, a frame or a terminal object.
251 nil stands for the selected frame--or, if that is not an X frame,
252 the first X display on the list. */
254 struct x_display_info
*
255 check_x_display_info (object
)
258 struct x_display_info
*dpyinfo
= NULL
;
262 struct frame
*sf
= XFRAME (selected_frame
);
264 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
265 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
266 else if (x_display_list
!= 0)
267 dpyinfo
= x_display_list
;
269 error ("X windows are not in use or not initialized");
271 else if (TERMINALP (object
))
273 struct terminal
*t
= get_terminal (object
, 1);
275 if (t
->type
!= output_x_window
)
276 error ("Terminal %d is not an X display", XINT (object
));
278 dpyinfo
= t
->display_info
.x
;
280 else if (STRINGP (object
))
281 dpyinfo
= x_display_info_for_name (object
);
284 FRAME_PTR f
= check_x_frame (object
);
285 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
292 /* Return the Emacs frame-object corresponding to an X window.
293 It could be the frame's main window or an icon window. */
295 /* This function can be called during GC, so use GC_xxx type test macros. */
298 x_window_to_frame (dpyinfo
, wdesc
)
299 struct x_display_info
*dpyinfo
;
302 Lisp_Object tail
, frame
;
305 if (wdesc
== None
) return 0;
307 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
313 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
315 if (f
->output_data
.x
->hourglass_window
== wdesc
)
318 if ((f
->output_data
.x
->edit_widget
319 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
320 /* A tooltip frame? */
321 || (!f
->output_data
.x
->edit_widget
322 && FRAME_X_WINDOW (f
) == wdesc
)
323 || f
->output_data
.x
->icon_desc
== wdesc
)
325 #else /* not USE_X_TOOLKIT */
327 if (f
->output_data
.x
->edit_widget
)
329 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
330 struct x_output
*x
= f
->output_data
.x
;
331 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
335 if (FRAME_X_WINDOW (f
) == wdesc
336 || f
->output_data
.x
->icon_desc
== wdesc
)
338 #endif /* not USE_X_TOOLKIT */
343 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
344 /* Like x_window_to_frame but also compares the window with the widget's
348 x_any_window_to_frame (dpyinfo
, wdesc
)
349 struct x_display_info
*dpyinfo
;
352 Lisp_Object tail
, frame
;
353 struct frame
*f
, *found
;
356 if (wdesc
== None
) return NULL
;
359 for (tail
= Vframe_list
; CONSP (tail
) && !found
; tail
= XCDR (tail
))
366 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
368 /* This frame matches if the window is any of its widgets. */
369 x
= f
->output_data
.x
;
370 if (x
->hourglass_window
== wdesc
)
375 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
377 && (gwdesc
== x
->widget
378 || gwdesc
== x
->edit_widget
379 || gwdesc
== x
->vbox_widget
380 || gwdesc
== x
->menubar_widget
))
383 if (wdesc
== XtWindow (x
->widget
)
384 || wdesc
== XtWindow (x
->column_widget
)
385 || wdesc
== XtWindow (x
->edit_widget
))
387 /* Match if the window is this frame's menubar. */
388 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
392 else if (FRAME_X_WINDOW (f
) == wdesc
)
393 /* A tooltip frame. */
401 /* Likewise, but exclude the menu bar widget. */
404 x_non_menubar_window_to_frame (dpyinfo
, wdesc
)
405 struct x_display_info
*dpyinfo
;
408 Lisp_Object tail
, frame
;
412 if (wdesc
== None
) return 0;
414 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
420 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
422 x
= f
->output_data
.x
;
423 /* This frame matches if the window is any of its widgets. */
424 if (x
->hourglass_window
== wdesc
)
429 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
431 && (gwdesc
== x
->widget
432 || gwdesc
== x
->edit_widget
433 || gwdesc
== x
->vbox_widget
))
436 if (wdesc
== XtWindow (x
->widget
)
437 || wdesc
== XtWindow (x
->column_widget
)
438 || wdesc
== XtWindow (x
->edit_widget
))
442 else if (FRAME_X_WINDOW (f
) == wdesc
)
443 /* A tooltip frame. */
449 /* Likewise, but consider only the menu bar widget. */
452 x_menubar_window_to_frame (dpyinfo
, wdesc
)
453 struct x_display_info
*dpyinfo
;
456 Lisp_Object tail
, frame
;
460 if (wdesc
== None
) return 0;
462 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
468 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
470 x
= f
->output_data
.x
;
471 /* Match if the window is this frame's menubar. */
473 if (x
->menubar_widget
)
475 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
480 && (gwdesc
== x
->menubar_widget
481 || gtk_widget_get_parent (gwdesc
) == x
->menubar_widget
))
487 if (x
->menubar_widget
488 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
495 /* Return the frame whose principal (outermost) window is WDESC.
496 If WDESC is some other (smaller) window, we return 0. */
499 x_top_window_to_frame (dpyinfo
, wdesc
)
500 struct x_display_info
*dpyinfo
;
503 Lisp_Object tail
, frame
;
507 if (wdesc
== None
) return 0;
509 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
515 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
517 x
= f
->output_data
.x
;
521 /* This frame matches if the window is its topmost widget. */
523 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
524 if (gwdesc
== x
->widget
)
527 if (wdesc
== XtWindow (x
->widget
))
529 #if 0 /* I don't know why it did this,
530 but it seems logically wrong,
531 and it causes trouble for MapNotify events. */
532 /* Match if the window is this frame's menubar. */
533 if (x
->menubar_widget
534 && wdesc
== XtWindow (x
->menubar_widget
))
539 else if (FRAME_X_WINDOW (f
) == wdesc
)
545 #endif /* USE_X_TOOLKIT || USE_GTK */
549 static void x_default_font_parameter
P_ ((struct frame
*, Lisp_Object
));
551 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
552 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
554 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
555 static void x_set_wait_for_wm
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
556 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
557 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
558 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
559 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
560 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
561 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
562 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
563 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
564 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
565 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
566 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
567 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
569 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
571 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
578 /* Store the screen positions of frame F into XPTR and YPTR.
579 These are the positions of the containing window manager window,
580 not Emacs's own window. */
583 x_real_positions (f
, xptr
, yptr
)
587 int win_x
, win_y
, outer_x
, outer_y
;
588 int real_x
= 0, real_y
= 0;
590 Window win
= f
->output_data
.x
->parent_desc
;
594 x_catch_errors (FRAME_X_DISPLAY (f
));
596 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
597 win
= FRAME_OUTER_WINDOW (f
);
599 /* This loop traverses up the containment tree until we hit the root
600 window. Window managers may intersect many windows between our window
601 and the root window. The window we find just before the root window
602 should be the outer WM window. */
605 Window wm_window
, rootw
;
606 Window
*tmp_children
;
607 unsigned int tmp_nchildren
;
610 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
611 &wm_window
, &tmp_children
, &tmp_nchildren
);
613 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
615 /* Don't free tmp_children if XQueryTree failed. */
619 XFree ((char *) tmp_children
);
621 if (wm_window
== rootw
|| had_errors
)
632 /* Get the real coordinates for the WM window upper left corner */
633 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
634 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
636 /* Translate real coordinates to coordinates relative to our
637 window. For our window, the upper left corner is 0, 0.
638 Since the upper left corner of the WM window is outside
639 our window, win_x and win_y will be negative:
641 ------------------ ---> x
643 | ----------------- v y
646 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
648 /* From-window, to-window. */
649 FRAME_X_DISPLAY_INFO (f
)->root_window
,
652 /* From-position, to-position. */
653 real_x
, real_y
, &win_x
, &win_y
,
658 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
665 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
667 /* From-window, to-window. */
668 FRAME_X_DISPLAY_INFO (f
)->root_window
,
669 FRAME_OUTER_WINDOW (f
),
671 /* From-position, to-position. */
672 real_x
, real_y
, &outer_x
, &outer_y
,
678 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
685 if (had_errors
) return;
687 f
->x_pixels_diff
= -win_x
;
688 f
->y_pixels_diff
= -win_y
;
690 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
691 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
700 /* Gamma-correct COLOR on frame F. */
703 gamma_correct (f
, color
)
709 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
710 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
711 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
716 /* Decide if color named COLOR_NAME is valid for use on frame F. If
717 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
718 allocate the color. Value is zero if COLOR_NAME is invalid, or
719 no color could be allocated. */
722 x_defined_color (f
, color_name
, color
, alloc_p
)
729 Display
*dpy
= FRAME_X_DISPLAY (f
);
730 Colormap cmap
= FRAME_X_COLORMAP (f
);
733 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
734 if (success_p
&& alloc_p
)
735 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
742 /* Return the pixel color value for color COLOR_NAME on frame F. If F
743 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
744 Signal an error if color can't be allocated. */
747 x_decode_color (f
, color_name
, mono_color
)
749 Lisp_Object color_name
;
754 CHECK_STRING (color_name
);
756 #if 0 /* Don't do this. It's wrong when we're not using the default
757 colormap, it makes freeing difficult, and it's probably not
758 an important optimization. */
759 if (strcmp (SDATA (color_name
), "black") == 0)
760 return BLACK_PIX_DEFAULT (f
);
761 else if (strcmp (SDATA (color_name
), "white") == 0)
762 return WHITE_PIX_DEFAULT (f
);
765 /* Return MONO_COLOR for monochrome frames. */
766 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
769 /* x_defined_color is responsible for coping with failures
770 by looking for a near-miss. */
771 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
774 signal_error ("Undefined color", color_name
);
779 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
780 the previous value of that parameter, NEW_VALUE is the new value.
781 See also the comment of wait_for_wm in struct x_output. */
784 x_set_wait_for_wm (f
, new_value
, old_value
)
786 Lisp_Object new_value
, old_value
;
788 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
793 /* Set icon from FILE for frame F. By using GTK functions the icon
794 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
797 xg_set_icon (f
, file
)
804 found
= x_find_image_file (file
);
810 char *filename
= (char *) SDATA (found
);
813 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
817 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
819 g_object_unref (pixbuf
);
833 xg_set_icon_from_xpm_data (f
, data
)
838 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data ((const char **) data
);
843 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
844 g_object_unref (pixbuf
);
850 /* Functions called only from `x_set_frame_param'
851 to set individual parameters.
853 If FRAME_X_WINDOW (f) is 0,
854 the frame is being created and its X-window does not exist yet.
855 In that case, just record the parameter's new value
856 in the standard place; do not attempt to change the window. */
859 x_set_foreground_color (f
, arg
, oldval
)
861 Lisp_Object arg
, oldval
;
863 struct x_output
*x
= f
->output_data
.x
;
864 unsigned long fg
, old_fg
;
866 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
867 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
868 FRAME_FOREGROUND_PIXEL (f
) = fg
;
870 if (FRAME_X_WINDOW (f
) != 0)
872 Display
*dpy
= FRAME_X_DISPLAY (f
);
875 XSetForeground (dpy
, x
->normal_gc
, fg
);
876 XSetBackground (dpy
, x
->reverse_gc
, fg
);
878 if (x
->cursor_pixel
== old_fg
)
880 unload_color (f
, x
->cursor_pixel
);
881 x
->cursor_pixel
= x_copy_color (f
, fg
);
882 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
887 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
889 if (FRAME_VISIBLE_P (f
))
893 unload_color (f
, old_fg
);
897 x_set_background_color (f
, arg
, oldval
)
899 Lisp_Object arg
, oldval
;
901 struct x_output
*x
= f
->output_data
.x
;
904 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
905 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
906 FRAME_BACKGROUND_PIXEL (f
) = bg
;
908 if (FRAME_X_WINDOW (f
) != 0)
910 Display
*dpy
= FRAME_X_DISPLAY (f
);
913 XSetBackground (dpy
, x
->normal_gc
, bg
);
914 XSetForeground (dpy
, x
->reverse_gc
, bg
);
915 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
916 XSetForeground (dpy
, x
->cursor_gc
, bg
);
919 xg_set_background_color (f
, bg
);
922 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
923 toolkit scroll bars. */
926 for (bar
= FRAME_SCROLL_BARS (f
);
928 bar
= XSCROLL_BAR (bar
)->next
)
930 Window window
= XSCROLL_BAR (bar
)->x_window
;
931 XSetWindowBackground (dpy
, window
, bg
);
934 #endif /* USE_TOOLKIT_SCROLL_BARS */
937 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
939 if (FRAME_VISIBLE_P (f
))
945 make_invisible_cursor (f
)
948 Display
*dpy
= FRAME_X_DISPLAY (f
);
949 static char const no_data
[] = { 0 };
954 x_catch_errors (dpy
);
955 pix
= XCreateBitmapFromData (dpy
, FRAME_X_DISPLAY_INFO (f
)->root_window
,
957 if (! x_had_errors_p (dpy
) && pix
!= None
)
960 col
.red
= col
.green
= col
.blue
= 0;
961 col
.flags
= DoRed
| DoGreen
| DoBlue
;
962 c
= XCreatePixmapCursor (dpy
, pix
, pix
, &col
, &col
, 0, 0);
963 if (x_had_errors_p (dpy
) || c
== None
)
965 XFreePixmap (dpy
, pix
);
974 x_set_mouse_color (f
, arg
, oldval
)
976 Lisp_Object arg
, oldval
;
978 struct x_output
*x
= f
->output_data
.x
;
979 Display
*dpy
= FRAME_X_DISPLAY (f
);
980 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
981 Cursor hourglass_cursor
, horizontal_drag_cursor
;
982 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
983 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
985 /* Don't let pointers be invisible. */
986 if (mask_color
== pixel
)
988 x_free_colors (f
, &pixel
, 1);
989 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
992 unload_color (f
, x
->mouse_pixel
);
993 x
->mouse_pixel
= pixel
;
997 /* It's not okay to crash if the user selects a screwy cursor. */
998 x_catch_errors (dpy
);
1000 if (!NILP (Vx_pointer_shape
))
1002 CHECK_NUMBER (Vx_pointer_shape
);
1003 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
1006 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
1007 x_check_errors (dpy
, "bad text pointer cursor: %s");
1009 if (!NILP (Vx_nontext_pointer_shape
))
1011 CHECK_NUMBER (Vx_nontext_pointer_shape
);
1013 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
1016 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
1017 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
1019 if (!NILP (Vx_hourglass_pointer_shape
))
1021 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
1023 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
1026 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
1027 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
1029 if (!NILP (Vx_mode_pointer_shape
))
1031 CHECK_NUMBER (Vx_mode_pointer_shape
);
1032 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
1035 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
1036 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
1038 if (!NILP (Vx_sensitive_text_pointer_shape
))
1040 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
1042 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
1045 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
1047 if (!NILP (Vx_window_horizontal_drag_shape
))
1049 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1050 horizontal_drag_cursor
1051 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1054 horizontal_drag_cursor
1055 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1057 /* Check and report errors with the above calls. */
1058 x_check_errors (dpy
, "can't set cursor shape: %s");
1059 x_uncatch_errors ();
1062 XColor fore_color
, back_color
;
1064 fore_color
.pixel
= x
->mouse_pixel
;
1065 x_query_color (f
, &fore_color
);
1066 back_color
.pixel
= mask_color
;
1067 x_query_color (f
, &back_color
);
1069 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1070 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1071 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1072 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1073 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1074 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1077 if (FRAME_X_WINDOW (f
) != 0)
1078 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
1079 f
->output_data
.x
->current_cursor
= cursor
);
1081 if (FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
== 0)
1082 FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
= make_invisible_cursor (f
);
1084 if (cursor
!= x
->text_cursor
1085 && x
->text_cursor
!= 0)
1086 XFreeCursor (dpy
, x
->text_cursor
);
1087 x
->text_cursor
= cursor
;
1089 if (nontext_cursor
!= x
->nontext_cursor
1090 && x
->nontext_cursor
!= 0)
1091 XFreeCursor (dpy
, x
->nontext_cursor
);
1092 x
->nontext_cursor
= nontext_cursor
;
1094 if (hourglass_cursor
!= x
->hourglass_cursor
1095 && x
->hourglass_cursor
!= 0)
1096 XFreeCursor (dpy
, x
->hourglass_cursor
);
1097 x
->hourglass_cursor
= hourglass_cursor
;
1099 if (mode_cursor
!= x
->modeline_cursor
1100 && x
->modeline_cursor
!= 0)
1101 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1102 x
->modeline_cursor
= mode_cursor
;
1104 if (hand_cursor
!= x
->hand_cursor
1105 && x
->hand_cursor
!= 0)
1106 XFreeCursor (dpy
, x
->hand_cursor
);
1107 x
->hand_cursor
= hand_cursor
;
1109 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1110 && x
->horizontal_drag_cursor
!= 0)
1111 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1112 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1117 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1121 x_set_cursor_color (f
, arg
, oldval
)
1123 Lisp_Object arg
, oldval
;
1125 unsigned long fore_pixel
, pixel
;
1126 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1127 struct x_output
*x
= f
->output_data
.x
;
1129 if (!NILP (Vx_cursor_fore_pixel
))
1131 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1132 WHITE_PIX_DEFAULT (f
));
1133 fore_pixel_allocated_p
= 1;
1136 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1138 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1139 pixel_allocated_p
= 1;
1141 /* Make sure that the cursor color differs from the background color. */
1142 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1144 if (pixel_allocated_p
)
1146 x_free_colors (f
, &pixel
, 1);
1147 pixel_allocated_p
= 0;
1150 pixel
= x
->mouse_pixel
;
1151 if (pixel
== fore_pixel
)
1153 if (fore_pixel_allocated_p
)
1155 x_free_colors (f
, &fore_pixel
, 1);
1156 fore_pixel_allocated_p
= 0;
1158 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1162 unload_color (f
, x
->cursor_foreground_pixel
);
1163 if (!fore_pixel_allocated_p
)
1164 fore_pixel
= x_copy_color (f
, fore_pixel
);
1165 x
->cursor_foreground_pixel
= fore_pixel
;
1167 unload_color (f
, x
->cursor_pixel
);
1168 if (!pixel_allocated_p
)
1169 pixel
= x_copy_color (f
, pixel
);
1170 x
->cursor_pixel
= pixel
;
1172 if (FRAME_X_WINDOW (f
) != 0)
1175 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1176 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1179 if (FRAME_VISIBLE_P (f
))
1181 x_update_cursor (f
, 0);
1182 x_update_cursor (f
, 1);
1186 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1189 /* Set the border-color of frame F to pixel value PIX.
1190 Note that this does not fully take effect if done before
1191 F has an x-window. */
1194 x_set_border_pixel (f
, pix
)
1198 unload_color (f
, f
->output_data
.x
->border_pixel
);
1199 f
->output_data
.x
->border_pixel
= pix
;
1201 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1204 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1205 (unsigned long)pix
);
1208 if (FRAME_VISIBLE_P (f
))
1213 /* Set the border-color of frame F to value described by ARG.
1214 ARG can be a string naming a color.
1215 The border-color is used for the border that is drawn by the X server.
1216 Note that this does not fully take effect if done before
1217 F has an x-window; it must be redone when the window is created.
1219 Note: this is done in two routines because of the way X10 works.
1221 Note: under X11, this is normally the province of the window manager,
1222 and so emacs' border colors may be overridden. */
1225 x_set_border_color (f
, arg
, oldval
)
1227 Lisp_Object arg
, oldval
;
1232 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1233 x_set_border_pixel (f
, pix
);
1234 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1239 x_set_cursor_type (f
, arg
, oldval
)
1241 Lisp_Object arg
, oldval
;
1243 set_frame_cursor_types (f
, arg
);
1245 /* Make sure the cursor gets redrawn. */
1246 cursor_type_changed
= 1;
1250 x_set_icon_type (f
, arg
, oldval
)
1252 Lisp_Object arg
, oldval
;
1258 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1261 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1266 result
= x_text_icon (f
,
1267 (char *) SDATA ((!NILP (f
->icon_name
)
1271 result
= x_bitmap_icon (f
, arg
);
1276 error ("No icon window available");
1279 XFlush (FRAME_X_DISPLAY (f
));
1284 x_set_icon_name (f
, arg
, oldval
)
1286 Lisp_Object arg
, oldval
;
1292 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1295 else if (!NILP (arg
) || NILP (oldval
))
1300 if (f
->output_data
.x
->icon_bitmap
!= 0)
1305 result
= x_text_icon (f
,
1306 (char *) SDATA ((!NILP (f
->icon_name
)
1315 error ("No icon window available");
1318 XFlush (FRAME_X_DISPLAY (f
));
1324 x_set_menu_bar_lines (f
, value
, oldval
)
1326 Lisp_Object value
, oldval
;
1329 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1330 int olines
= FRAME_MENU_BAR_LINES (f
);
1333 /* Right now, menu bars don't work properly in minibuf-only frames;
1334 most of the commands try to apply themselves to the minibuffer
1335 frame itself, and get an error because you can't switch buffers
1336 in or split the minibuffer window. */
1337 if (FRAME_MINIBUF_ONLY_P (f
))
1340 if (INTEGERP (value
))
1341 nlines
= XINT (value
);
1345 /* Make sure we redisplay all windows in this frame. */
1346 windows_or_buffers_changed
++;
1348 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1349 FRAME_MENU_BAR_LINES (f
) = 0;
1352 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1353 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1354 /* Make sure next redisplay shows the menu bar. */
1355 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1359 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1360 free_frame_menubar (f
);
1361 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1363 f
->output_data
.x
->menubar_widget
= 0;
1365 #else /* not USE_X_TOOLKIT && not USE_GTK */
1366 FRAME_MENU_BAR_LINES (f
) = nlines
;
1367 change_window_heights (f
->root_window
, nlines
- olines
);
1368 #endif /* not USE_X_TOOLKIT */
1373 /* Set the number of lines used for the tool bar of frame F to VALUE.
1374 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1375 is the old number of tool bar lines. This function changes the
1376 height of all windows on frame F to match the new tool bar height.
1377 The frame's height doesn't change. */
1380 x_set_tool_bar_lines (f
, value
, oldval
)
1382 Lisp_Object value
, oldval
;
1384 int delta
, nlines
, root_height
;
1385 Lisp_Object root_window
;
1387 /* Treat tool bars like menu bars. */
1388 if (FRAME_MINIBUF_ONLY_P (f
))
1391 /* Use VALUE only if an integer >= 0. */
1392 if (INTEGERP (value
) && XINT (value
) >= 0)
1393 nlines
= XFASTINT (value
);
1398 FRAME_TOOL_BAR_LINES (f
) = 0;
1401 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1402 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1403 /* Make sure next redisplay shows the tool bar. */
1404 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1405 update_frame_tool_bar (f
);
1409 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1410 free_frame_tool_bar (f
);
1411 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1417 /* Make sure we redisplay all windows in this frame. */
1418 ++windows_or_buffers_changed
;
1420 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1422 /* Don't resize the tool-bar to more than we have room for. */
1423 root_window
= FRAME_ROOT_WINDOW (f
);
1424 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1425 if (root_height
- delta
< 1)
1427 delta
= root_height
- 1;
1428 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1431 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1432 change_window_heights (root_window
, delta
);
1435 /* We also have to make sure that the internal border at the top of
1436 the frame, below the menu bar or tool bar, is redrawn when the
1437 tool bar disappears. This is so because the internal border is
1438 below the tool bar if one is displayed, but is below the menu bar
1439 if there isn't a tool bar. The tool bar draws into the area
1440 below the menu bar. */
1441 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1444 clear_current_matrices (f
);
1447 /* If the tool bar gets smaller, the internal border below it
1448 has to be cleared. It was formerly part of the display
1449 of the larger tool bar, and updating windows won't clear it. */
1452 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1453 int width
= FRAME_PIXEL_WIDTH (f
);
1454 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1456 /* height can be zero here. */
1457 if (height
> 0 && width
> 0)
1460 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1461 0, y
, width
, height
, False
);
1465 if (WINDOWP (f
->tool_bar_window
))
1466 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1471 /* Set the foreground color for scroll bars on frame F to VALUE.
1472 VALUE should be a string, a color name. If it isn't a string or
1473 isn't a valid color name, do nothing. OLDVAL is the old value of
1474 the frame parameter. */
1477 x_set_scroll_bar_foreground (f
, value
, oldval
)
1479 Lisp_Object value
, oldval
;
1481 unsigned long pixel
;
1483 if (STRINGP (value
))
1484 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1488 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1489 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1491 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1492 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1494 /* Remove all scroll bars because they have wrong colors. */
1495 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1496 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1497 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1498 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1500 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1506 /* Set the background color for scroll bars on frame F to VALUE VALUE
1507 should be a string, a color name. If it isn't a string or isn't a
1508 valid color name, do nothing. OLDVAL is the old value of the frame
1512 x_set_scroll_bar_background (f
, value
, oldval
)
1514 Lisp_Object value
, oldval
;
1516 unsigned long pixel
;
1518 if (STRINGP (value
))
1519 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1523 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1524 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1526 #ifdef USE_TOOLKIT_SCROLL_BARS
1527 /* Scrollbar shadow colors. */
1528 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1530 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1531 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1533 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1535 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1536 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1538 #endif /* USE_TOOLKIT_SCROLL_BARS */
1540 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1541 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1543 /* Remove all scroll bars because they have wrong colors. */
1544 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1545 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1546 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1547 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1549 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1555 /* Encode Lisp string STRING as a text in a format appropriate for
1556 XICCC (X Inter Client Communication Conventions).
1558 This can call Lisp code, so callers must GCPRO.
1560 If STRING contains only ASCII characters, do no conversion and
1561 return the string data of STRING. Otherwise, encode the text by
1562 CODING_SYSTEM, and return a newly allocated memory area which
1563 should be freed by `xfree' by a caller.
1565 SELECTIONP non-zero means the string is being encoded for an X
1566 selection, so it is safe to run pre-write conversions (which
1569 Store the byte length of resulting text in *TEXT_BYTES.
1571 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1572 which means that the `encoding' of the result can be `STRING'.
1573 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1574 the result should be `COMPOUND_TEXT'. */
1576 static unsigned char *
1577 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
, freep
)
1578 Lisp_Object string
, coding_system
;
1579 int *text_bytes
, *stringp
;
1583 int result
= string_xstring_p (string
);
1584 struct coding_system coding
;
1588 /* No multibyte character in OBJ. We need not encode it. */
1589 *text_bytes
= SBYTES (string
);
1592 return SDATA (string
);
1595 setup_coding_system (coding_system
, &coding
);
1596 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1597 /* We suppress producing escape sequences for composition. */
1598 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1599 coding
.dst_bytes
= SCHARS (string
) * 2;
1600 coding
.destination
= (unsigned char *) xmalloc (coding
.dst_bytes
);
1601 encode_coding_object (&coding
, string
, 0, 0,
1602 SCHARS (string
), SBYTES (string
), Qnil
);
1603 *text_bytes
= coding
.produced
;
1604 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1606 return coding
.destination
;
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
))
1623 XTextProperty text
, icon
;
1625 int do_free_icon_value
= 0, do_free_text_value
= 0;
1626 Lisp_Object coding_system
;
1628 Lisp_Object encoded_name
;
1629 struct gcpro gcpro1
;
1631 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1632 we use it before x_encode_text that may return string data. */
1634 encoded_name
= ENCODE_UTF_8 (name
);
1638 coding_system
= Qcompound_text
;
1639 /* Note: Encoding strategy
1641 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1642 text.encoding. But, there are non-internationalized window
1643 managers which don't support that encoding. So, if NAME
1644 contains only ASCII and 8859-1 characters, encode it by
1645 iso-latin-1, and use "STRING" in text.encoding hoping that
1646 such window managers at least analyze this format correctly,
1647 i.e. treat 8-bit bytes as 8859-1 characters.
1649 We may also be able to use "UTF8_STRING" in text.encoding
1650 in the future which can encode all Unicode characters.
1651 But, for the moment, there's no way to know that the
1652 current window manager supports it or not. */
1653 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1654 &do_free_text_value
);
1655 text
.encoding
= (stringp
? XA_STRING
1656 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1658 text
.nitems
= bytes
;
1660 if (!STRINGP (f
->icon_name
))
1666 /* See the above comment "Note: Encoding strategy". */
1667 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1668 &bytes
, &stringp
, &do_free_icon_value
);
1669 icon
.encoding
= (stringp
? XA_STRING
1670 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1672 icon
.nitems
= bytes
;
1676 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1677 (char *) SDATA (encoded_name
));
1678 #else /* not USE_GTK */
1679 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1680 #endif /* not USE_GTK */
1682 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1684 if (do_free_icon_value
)
1686 if (do_free_text_value
)
1693 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1696 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1697 name; if NAME is a string, set F's name to NAME and set
1698 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1700 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1701 suggesting a new name, which lisp code should override; if
1702 F->explicit_name is set, ignore the new name; otherwise, set it. */
1705 x_set_name (f
, name
, explicit)
1710 /* Make sure that requests from lisp code override requests from
1711 Emacs redisplay code. */
1714 /* If we're switching from explicit to implicit, we had better
1715 update the mode lines and thereby update the title. */
1716 if (f
->explicit_name
&& NILP (name
))
1717 update_mode_lines
= 1;
1719 f
->explicit_name
= ! NILP (name
);
1721 else if (f
->explicit_name
)
1724 /* If NAME is nil, set the name to the x_id_name. */
1727 /* Check for no change needed in this very common case
1728 before we do any consing. */
1729 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1732 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1735 CHECK_STRING (name
);
1737 /* Don't change the name if it's already NAME. */
1738 if (! NILP (Fstring_equal (name
, f
->name
)))
1743 /* For setting the frame title, the title parameter should override
1744 the name parameter. */
1745 if (! NILP (f
->title
))
1748 x_set_name_internal (f
, name
);
1751 /* This function should be called when the user's lisp code has
1752 specified a name for the frame; the name will override any set by the
1755 x_explicitly_set_name (f
, arg
, oldval
)
1757 Lisp_Object arg
, oldval
;
1759 x_set_name (f
, arg
, 1);
1762 /* This function should be called by Emacs redisplay code to set the
1763 name; names set this way will never override names set by the user's
1766 x_implicitly_set_name (f
, arg
, oldval
)
1768 Lisp_Object arg
, oldval
;
1770 x_set_name (f
, arg
, 0);
1773 /* Change the title of frame F to NAME.
1774 If NAME is nil, use the frame name as the title. */
1777 x_set_title (f
, name
, old_name
)
1779 Lisp_Object name
, old_name
;
1781 /* Don't change the title if it's already NAME. */
1782 if (EQ (name
, f
->title
))
1785 update_mode_lines
= 1;
1792 CHECK_STRING (name
);
1794 x_set_name_internal (f
, name
);
1798 x_set_scroll_bar_default_width (f
)
1801 int wid
= FRAME_COLUMN_WIDTH (f
);
1803 #ifdef USE_TOOLKIT_SCROLL_BARS
1804 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1805 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1806 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1807 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1809 /* Make the actual width at least 14 pixels and a multiple of a
1811 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1813 /* Use all of that space (aside from required margins) for the
1815 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1820 /* Record in frame F the specified or default value according to ALIST
1821 of the parameter named PROP (a Lisp symbol). If no value is
1822 specified for PROP, look for an X default for XPROP on the frame
1823 named NAME. If that is not found either, use the value DEFLT. */
1826 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1835 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1838 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1839 if (EQ (tem
, Qunbound
))
1841 #ifdef USE_TOOLKIT_SCROLL_BARS
1843 /* See if an X resource for the scroll bar color has been
1845 tem
= display_x_get_resource (dpyinfo
,
1846 build_string (foreground_p
1849 empty_unibyte_string
,
1850 build_string ("verticalScrollBar"),
1851 empty_unibyte_string
);
1854 /* If nothing has been specified, scroll bars will use a
1855 toolkit-dependent default. Because these defaults are
1856 difficult to get at without actually creating a scroll
1857 bar, use nil to indicate that no color has been
1862 #else /* not USE_TOOLKIT_SCROLL_BARS */
1866 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1869 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1876 #ifdef USE_X_TOOLKIT
1878 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1879 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1880 already be present because of the toolkit (Motif adds some of them,
1881 for example, but Xt doesn't). */
1884 hack_wm_protocols (f
, widget
)
1888 Display
*dpy
= XtDisplay (widget
);
1889 Window w
= XtWindow (widget
);
1890 int need_delete
= 1;
1897 unsigned char *catoms
;
1899 unsigned long nitems
= 0;
1900 unsigned long bytes_after
;
1902 if ((XGetWindowProperty (dpy
, w
,
1903 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1904 (long)0, (long)100, False
, XA_ATOM
,
1905 &type
, &format
, &nitems
, &bytes_after
,
1908 && format
== 32 && type
== XA_ATOM
)
1910 Atom
*atoms
= (Atom
*) catoms
;
1915 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1917 else if (atoms
[nitems
]
1918 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1920 else if (atoms
[nitems
]
1921 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1932 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1934 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1936 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1938 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1939 XA_ATOM
, 32, PropModeAppend
,
1940 (unsigned char *) props
, count
);
1948 /* Support routines for XIC (X Input Context). */
1952 static XFontSet xic_create_xfontset
P_ ((struct frame
*));
1953 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1956 /* Supported XIM styles, ordered by preference. */
1958 static XIMStyle supported_xim_styles
[] =
1960 XIMPreeditPosition
| XIMStatusArea
,
1961 XIMPreeditPosition
| XIMStatusNothing
,
1962 XIMPreeditPosition
| XIMStatusNone
,
1963 XIMPreeditNothing
| XIMStatusArea
,
1964 XIMPreeditNothing
| XIMStatusNothing
,
1965 XIMPreeditNothing
| XIMStatusNone
,
1966 XIMPreeditNone
| XIMStatusArea
,
1967 XIMPreeditNone
| XIMStatusNothing
,
1968 XIMPreeditNone
| XIMStatusNone
,
1973 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1975 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1977 /* Create an Xt fontset spec from the name of a base font.
1978 If `motif' is True use the Motif syntax. */
1980 xic_create_fontsetname (base_fontname
, motif
)
1981 char *base_fontname
;
1984 const char *sep
= motif
? ";" : ",";
1987 /* Make a fontset name from the base font name. */
1988 if (xic_defaut_fontset
== base_fontname
)
1989 { /* There is no base font name, use the default. */
1990 int len
= strlen (base_fontname
) + 2;
1991 fontsetname
= xmalloc (len
);
1992 bzero (fontsetname
, len
);
1993 strcpy (fontsetname
, base_fontname
);
1997 /* Make a fontset name from the base font name.
1998 The font set will be made of the following elements:
2000 - the base font where the charset spec is replaced by -*-*.
2001 - the same but with the family also replaced with -*-*-. */
2002 char *p
= base_fontname
;
2005 for (i
= 0; *p
; p
++)
2008 { /* As the font name doesn't conform to XLFD, we can't
2009 modify it to generalize it to allcs and allfamilies.
2010 Use the specified font plus the default. */
2011 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
2012 fontsetname
= xmalloc (len
);
2013 bzero (fontsetname
, len
);
2014 strcpy (fontsetname
, base_fontname
);
2015 strcat (fontsetname
, sep
);
2016 strcat (fontsetname
, xic_defaut_fontset
);
2021 char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
2022 char *font_allcs
= NULL
;
2023 char *font_allfamilies
= NULL
;
2024 char *font_all
= NULL
;
2025 char *allcs
= "*-*-*-*-*-*-*";
2026 char *allfamilies
= "-*-*-";
2027 char *all
= "*-*-*-*-";
2030 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
2043 /* If base_fontname specifies ADSTYLE, make it a
2047 int diff
= (p2
- p3
) - 2;
2049 base
= alloca (strlen (base_fontname
) + 1);
2050 bcopy (base_fontname
, base
, p3
- base_fontname
);
2051 base
[p3
- base_fontname
] = '*';
2052 base
[(p3
- base_fontname
) + 1] = '-';
2053 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
2054 p
= base
+ (p
- base_fontname
) - diff
;
2055 p1
= base
+ (p1
- base_fontname
);
2056 p2
= base
+ (p2
- base_fontname
) - diff
;
2057 base_fontname
= base
;
2060 /* Build the font spec that matches all charsets. */
2061 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2062 font_allcs
= (char *) alloca (len
);
2063 bzero (font_allcs
, len
);
2064 bcopy (base_fontname
, font_allcs
, p
- base_fontname
);
2065 strcat (font_allcs
, allcs
);
2067 /* Build the font spec that matches all families and
2069 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2070 font_allfamilies
= (char *) alloca (len
);
2071 bzero (font_allfamilies
, len
);
2072 strcpy (font_allfamilies
, allfamilies
);
2073 bcopy (p1
, font_allfamilies
+ strlen (allfamilies
), p
- p1
);
2074 strcat (font_allfamilies
, allcs
);
2076 /* Build the font spec that matches all. */
2077 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2078 font_all
= (char *) alloca (len
);
2079 bzero (font_all
, len
);
2080 strcpy (font_all
, allfamilies
);
2081 strcat (font_all
, all
);
2082 bcopy (p2
, font_all
+ strlen (all
) + strlen (allfamilies
), p
- p2
);
2083 strcat (font_all
, allcs
);
2085 /* Build the actual font set name. */
2086 len
= strlen (base_fontname
) + strlen (font_allcs
)
2087 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2088 fontsetname
= xmalloc (len
);
2089 bzero (fontsetname
, len
);
2090 strcpy (fontsetname
, base_fontname
);
2091 strcat (fontsetname
, sep
);
2092 strcat (fontsetname
, font_allcs
);
2093 strcat (fontsetname
, sep
);
2094 strcat (fontsetname
, font_allfamilies
);
2095 strcat (fontsetname
, sep
);
2096 strcat (fontsetname
, font_all
);
2100 strcat (fontsetname
, ":");
2104 #ifdef DEBUG_XIC_FONTSET
2106 print_fontset_result (xfs
, name
, missing_list
, missing_count
)
2109 char **missing_list
;
2113 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
2116 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
2117 while (missing_count
-- > 0)
2119 fprintf (stderr
, " missing: %s\n", *missing_list
);
2128 xic_create_xfontset (f
)
2131 XFontSet xfs
= NULL
;
2132 struct font
*font
= FRAME_FONT (f
);
2133 int pixel_size
= font
->pixel_size
;
2134 Lisp_Object rest
, frame
;
2136 /* See if there is another frame already using same fontset. */
2137 FOR_EACH_FRAME (rest
, frame
)
2139 struct frame
*cf
= XFRAME (frame
);
2141 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2142 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2144 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
2146 xfs
= FRAME_XIC_FONTSET (cf
);
2154 char **missing_list
;
2157 char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
2159 sprintf (buf
, xlfd_format
, pixel_size
);
2160 missing_list
= NULL
;
2161 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2162 &missing_list
, &missing_count
, &def_string
);
2163 #ifdef DEBUG_XIC_FONTSET
2164 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2167 XFreeStringList (missing_list
);
2170 /* List of pixel sizes most likely available. Find one that
2171 is closest to pixel_size. */
2172 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2173 int *smaller
, *larger
;
2175 for (smaller
= sizes
; smaller
[1]; smaller
++)
2176 if (smaller
[1] >= pixel_size
)
2178 larger
= smaller
+ 1;
2179 if (*larger
== pixel_size
)
2181 while (*smaller
|| *larger
)
2186 this_size
= *smaller
--;
2187 else if (! *smaller
)
2188 this_size
= *larger
++;
2189 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
2190 this_size
= *smaller
--;
2192 this_size
= *larger
++;
2193 sprintf (buf
, xlfd_format
, this_size
);
2194 missing_list
= NULL
;
2195 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2196 &missing_list
, &missing_count
, &def_string
);
2197 #ifdef DEBUG_XIC_FONTSET
2198 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2201 XFreeStringList (missing_list
);
2208 char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
2210 missing_list
= NULL
;
2211 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
2212 &missing_list
, &missing_count
, &def_string
);
2213 #ifdef DEBUG_XIC_FONTSET
2214 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
2217 XFreeStringList (missing_list
);
2225 /* Free the X fontset of frame F if it is the last frame using it. */
2228 xic_free_xfontset (f
)
2231 Lisp_Object rest
, frame
;
2234 if (!FRAME_XIC_FONTSET (f
))
2237 /* See if there is another frame sharing the same fontset. */
2238 FOR_EACH_FRAME (rest
, frame
)
2240 struct frame
*cf
= XFRAME (frame
);
2241 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2242 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2243 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2251 /* The fontset is not used anymore. It is safe to free it. */
2252 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2254 if (FRAME_XIC_BASE_FONTNAME (f
))
2255 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2256 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2257 FRAME_XIC_FONTSET (f
) = NULL
;
2261 /* Value is the best input style, given user preferences USER (already
2262 checked to be supported by Emacs), and styles supported by the
2263 input method XIM. */
2266 best_xim_style (user
, xim
)
2272 for (i
= 0; i
< user
->count_styles
; ++i
)
2273 for (j
= 0; j
< xim
->count_styles
; ++j
)
2274 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2275 return user
->supported_styles
[i
];
2277 /* Return the default style. */
2278 return XIMPreeditNothing
| XIMStatusNothing
;
2281 /* Create XIC for frame F. */
2283 static XIMStyle xic_style
;
2286 create_frame_xic (f
)
2291 XFontSet xfs
= NULL
;
2296 /* Create X fontset. */
2297 xfs
= xic_create_xfontset (f
);
2298 xim
= FRAME_X_XIM (f
);
2303 XVaNestedList preedit_attr
;
2304 XVaNestedList status_attr
;
2306 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2307 spot
.x
= 0; spot
.y
= 1;
2309 /* Determine XIC style. */
2312 XIMStyles supported_list
;
2313 supported_list
.count_styles
= (sizeof supported_xim_styles
2314 / sizeof supported_xim_styles
[0]);
2315 supported_list
.supported_styles
= supported_xim_styles
;
2316 xic_style
= best_xim_style (&supported_list
,
2317 FRAME_X_XIM_STYLES (f
));
2320 preedit_attr
= XVaCreateNestedList (0,
2323 FRAME_FOREGROUND_PIXEL (f
),
2325 FRAME_BACKGROUND_PIXEL (f
),
2326 (xic_style
& XIMPreeditPosition
2331 status_attr
= XVaCreateNestedList (0,
2337 FRAME_FOREGROUND_PIXEL (f
),
2339 FRAME_BACKGROUND_PIXEL (f
),
2342 xic
= XCreateIC (xim
,
2343 XNInputStyle
, xic_style
,
2344 XNClientWindow
, FRAME_X_WINDOW (f
),
2345 XNFocusWindow
, FRAME_X_WINDOW (f
),
2346 XNStatusAttributes
, status_attr
,
2347 XNPreeditAttributes
, preedit_attr
,
2349 XFree (preedit_attr
);
2350 XFree (status_attr
);
2353 FRAME_XIC (f
) = xic
;
2354 FRAME_XIC_STYLE (f
) = xic_style
;
2355 FRAME_XIC_FONTSET (f
) = xfs
;
2359 /* Destroy XIC and free XIC fontset of frame F, if any. */
2365 if (FRAME_XIC (f
) == NULL
)
2368 XDestroyIC (FRAME_XIC (f
));
2369 xic_free_xfontset (f
);
2371 FRAME_XIC (f
) = NULL
;
2375 /* Place preedit area for XIC of window W's frame to specified
2376 pixel position X/Y. X and Y are relative to window W. */
2379 xic_set_preeditarea (w
, x
, y
)
2383 struct frame
*f
= XFRAME (w
->frame
);
2387 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2388 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2389 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2390 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2395 /* Place status area for XIC in bottom right corner of frame F.. */
2398 xic_set_statusarea (f
)
2401 XIC xic
= FRAME_XIC (f
);
2406 /* Negotiate geometry of status area. If input method has existing
2407 status area, use its current size. */
2408 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2409 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2410 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2413 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2414 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2417 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2419 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2420 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2424 area
.width
= needed
->width
;
2425 area
.height
= needed
->height
;
2426 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2427 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2428 - FRAME_MENUBAR_HEIGHT (f
)
2429 - FRAME_TOOLBAR_HEIGHT (f
)
2430 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2433 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2434 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2439 /* Set X fontset for XIC of frame F, using base font name
2440 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2443 xic_set_xfontset (f
, base_fontname
)
2445 char *base_fontname
;
2450 xic_free_xfontset (f
);
2452 xfs
= xic_create_xfontset (f
);
2454 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2455 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2456 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2457 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2458 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2461 FRAME_XIC_FONTSET (f
) = xfs
;
2464 #endif /* HAVE_X_I18N */
2468 #ifdef USE_X_TOOLKIT
2470 /* Create and set up the X widget for frame F. */
2473 x_window (f
, window_prompting
, minibuffer_only
)
2475 long window_prompting
;
2476 int minibuffer_only
;
2478 XClassHint class_hints
;
2479 XSetWindowAttributes attributes
;
2480 unsigned long attribute_mask
;
2481 Widget shell_widget
;
2483 Widget frame_widget
;
2489 /* Use the resource name as the top-level widget name
2490 for looking up resources. Make a non-Lisp copy
2491 for the window manager, so GC relocation won't bother it.
2493 Elsewhere we specify the window name for the window manager. */
2496 char *str
= (char *) SDATA (Vx_resource_name
);
2497 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2498 strcpy (f
->namebuf
, str
);
2502 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2503 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2504 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2505 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2506 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2507 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2508 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2509 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2510 applicationShellWidgetClass
,
2511 FRAME_X_DISPLAY (f
), al
, ac
);
2513 f
->output_data
.x
->widget
= shell_widget
;
2514 /* maybe_set_screen_title_format (shell_widget); */
2516 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2517 (widget_value
*) NULL
,
2518 shell_widget
, False
,
2522 (lw_callback
) NULL
);
2525 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2526 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2527 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2528 XtSetValues (pane_widget
, al
, ac
);
2529 f
->output_data
.x
->column_widget
= pane_widget
;
2531 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2532 the emacs screen when changing menubar. This reduces flickering. */
2535 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2536 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2537 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2538 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2539 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2540 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2541 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2542 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2543 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2546 f
->output_data
.x
->edit_widget
= frame_widget
;
2548 XtManageChild (frame_widget
);
2550 /* Do some needed geometry management. */
2553 char *tem
, shell_position
[32];
2556 int extra_borders
= 0;
2558 = (f
->output_data
.x
->menubar_widget
2559 ? (f
->output_data
.x
->menubar_widget
->core
.height
2560 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2563 #if 0 /* Experimentally, we now get the right results
2564 for -geometry -0-0 without this. 24 Aug 96, rms. */
2565 if (FRAME_EXTERNAL_MENU_BAR (f
))
2568 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2569 menubar_size
+= ibw
;
2573 f
->output_data
.x
->menubar_height
= menubar_size
;
2576 /* Motif seems to need this amount added to the sizes
2577 specified for the shell widget. The Athena/Lucid widgets don't.
2578 Both conclusions reached experimentally. -- rms. */
2579 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2580 &extra_borders
, NULL
);
2584 /* Convert our geometry parameters into a geometry string
2586 Note that we do not specify here whether the position
2587 is a user-specified or program-specified one.
2588 We pass that information later, in x_wm_set_size_hints. */
2590 int left
= f
->left_pos
;
2591 int xneg
= window_prompting
& XNegative
;
2592 int top
= f
->top_pos
;
2593 int yneg
= window_prompting
& YNegative
;
2599 if (window_prompting
& USPosition
)
2600 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2601 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2602 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2603 (xneg
? '-' : '+'), left
,
2604 (yneg
? '-' : '+'), top
);
2607 sprintf (shell_position
, "=%dx%d",
2608 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2609 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2611 /* Setting x and y when the position is not specified in
2612 the geometry string will set program position in the WM hints.
2613 If Emacs had just one program position, we could set it in
2614 fallback resources, but since each make-frame call can specify
2615 different program positions, this is easier. */
2616 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2617 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2621 len
= strlen (shell_position
) + 1;
2622 /* We don't free this because we don't know whether
2623 it is safe to free it while the frame exists.
2624 It isn't worth the trouble of arranging to free it
2625 when the frame is deleted. */
2626 tem
= (char *) xmalloc (len
);
2627 strncpy (tem
, shell_position
, len
);
2628 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2629 XtSetValues (shell_widget
, al
, ac
);
2632 XtManageChild (pane_widget
);
2633 XtRealizeWidget (shell_widget
);
2635 if (FRAME_X_EMBEDDED_P (f
))
2636 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2637 f
->output_data
.x
->parent_desc
, 0, 0);
2639 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2641 validate_x_resource_name ();
2643 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2644 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2645 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2648 FRAME_XIC (f
) = NULL
;
2650 create_frame_xic (f
);
2653 f
->output_data
.x
->wm_hints
.input
= True
;
2654 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2655 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2656 &f
->output_data
.x
->wm_hints
);
2658 hack_wm_protocols (f
, shell_widget
);
2661 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2664 /* Do a stupid property change to force the server to generate a
2665 PropertyNotify event so that the event_stream server timestamp will
2666 be initialized to something relevant to the time we created the window.
2668 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2669 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2670 XA_ATOM
, 32, PropModeAppend
,
2671 (unsigned char*) NULL
, 0);
2673 /* Make all the standard events reach the Emacs frame. */
2674 attributes
.event_mask
= STANDARD_EVENT_SET
;
2679 /* XIM server might require some X events. */
2680 unsigned long fevent
= NoEventMask
;
2681 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2682 attributes
.event_mask
|= fevent
;
2684 #endif /* HAVE_X_I18N */
2686 attribute_mask
= CWEventMask
;
2687 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2688 attribute_mask
, &attributes
);
2690 XtMapWidget (frame_widget
);
2692 /* x_set_name normally ignores requests to set the name if the
2693 requested name is the same as the current name. This is the one
2694 place where that assumption isn't correct; f->name is set, but
2695 the X server hasn't been told. */
2698 int explicit = f
->explicit_name
;
2700 f
->explicit_name
= 0;
2703 x_set_name (f
, name
, explicit);
2706 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2707 f
->output_data
.x
->current_cursor
2708 = f
->output_data
.x
->text_cursor
);
2712 /* This is a no-op, except under Motif. Make sure main areas are
2713 set to something reasonable, in case we get an error later. */
2714 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2717 #else /* not USE_X_TOOLKIT */
2723 if (! xg_create_frame_widgets (f
))
2724 error ("Unable to create window");
2727 FRAME_XIC (f
) = NULL
;
2731 create_frame_xic (f
);
2734 /* XIM server might require some X events. */
2735 unsigned long fevent
= NoEventMask
;
2736 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2738 if (fevent
!= NoEventMask
)
2740 XSetWindowAttributes attributes
;
2741 XWindowAttributes wattr
;
2742 unsigned long attribute_mask
;
2744 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2746 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2747 attribute_mask
= CWEventMask
;
2748 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2749 attribute_mask
, &attributes
);
2757 #else /*! USE_GTK */
2758 /* Create and set up the X window for frame F. */
2765 XClassHint class_hints
;
2766 XSetWindowAttributes attributes
;
2767 unsigned long attribute_mask
;
2769 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2770 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2771 attributes
.bit_gravity
= StaticGravity
;
2772 attributes
.backing_store
= NotUseful
;
2773 attributes
.save_under
= True
;
2774 attributes
.event_mask
= STANDARD_EVENT_SET
;
2775 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2776 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2781 = XCreateWindow (FRAME_X_DISPLAY (f
),
2782 f
->output_data
.x
->parent_desc
,
2785 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2787 CopyFromParent
, /* depth */
2788 InputOutput
, /* class */
2790 attribute_mask
, &attributes
);
2795 create_frame_xic (f
);
2798 /* XIM server might require some X events. */
2799 unsigned long fevent
= NoEventMask
;
2800 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2801 attributes
.event_mask
|= fevent
;
2802 attribute_mask
= CWEventMask
;
2803 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2804 attribute_mask
, &attributes
);
2807 #endif /* HAVE_X_I18N */
2809 validate_x_resource_name ();
2811 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2812 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2813 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2815 /* The menubar is part of the ordinary display;
2816 it does not count in addition to the height of the window. */
2817 f
->output_data
.x
->menubar_height
= 0;
2819 /* This indicates that we use the "Passive Input" input model.
2820 Unless we do this, we don't get the Focus{In,Out} events that we
2821 need to draw the cursor correctly. Accursed bureaucrats.
2822 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2824 f
->output_data
.x
->wm_hints
.input
= True
;
2825 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2826 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2827 &f
->output_data
.x
->wm_hints
);
2828 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2830 /* Request "save yourself" and "delete window" commands from wm. */
2833 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2834 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2835 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2838 /* x_set_name normally ignores requests to set the name if the
2839 requested name is the same as the current name. This is the one
2840 place where that assumption isn't correct; f->name is set, but
2841 the X server hasn't been told. */
2844 int explicit = f
->explicit_name
;
2846 f
->explicit_name
= 0;
2849 x_set_name (f
, name
, explicit);
2852 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2853 f
->output_data
.x
->current_cursor
2854 = f
->output_data
.x
->text_cursor
);
2858 if (FRAME_X_WINDOW (f
) == 0)
2859 error ("Unable to create window");
2862 #endif /* not USE_GTK */
2863 #endif /* not USE_X_TOOLKIT */
2865 /* Verify that the icon position args for this window are valid. */
2868 x_icon_verify (f
, parms
)
2872 Lisp_Object icon_x
, icon_y
;
2874 /* Set the position of the icon. Note that twm groups all
2875 icons in an icon window. */
2876 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2877 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2878 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2880 CHECK_NUMBER (icon_x
);
2881 CHECK_NUMBER (icon_y
);
2883 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2884 error ("Both left and top icon corners of icon must be specified");
2887 /* Handle the icon stuff for this window. Perhaps later we might
2888 want an x_set_icon_position which can be called interactively as
2896 Lisp_Object icon_x
, icon_y
;
2898 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2901 /* Set the position of the icon. Note that twm groups all
2902 icons in an icon window. */
2903 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2904 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2905 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2907 CHECK_NUMBER (icon_x
);
2908 CHECK_NUMBER (icon_y
);
2910 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2911 error ("Both left and top icon corners of icon must be specified");
2915 if (! EQ (icon_x
, Qunbound
))
2916 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2918 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2919 but x_create_frame still needs it. */
2920 /* Start up iconic or window? */
2921 x_wm_set_window_state
2922 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2928 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2935 /* Make the GCs needed for this window, setting the
2936 background, border and mouse colors; also create the
2937 mouse cursor and the gray border tile. */
2939 static char cursor_bits
[] =
2941 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2942 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2943 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2944 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
2951 XGCValues gc_values
;
2955 /* Create the GCs of this frame.
2956 Note that many default values are used. */
2958 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2959 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2960 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2961 f
->output_data
.x
->normal_gc
2962 = XCreateGC (FRAME_X_DISPLAY (f
),
2964 GCLineWidth
| GCForeground
| GCBackground
,
2967 /* Reverse video style. */
2968 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2969 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2970 f
->output_data
.x
->reverse_gc
2971 = XCreateGC (FRAME_X_DISPLAY (f
),
2973 GCForeground
| GCBackground
| GCLineWidth
,
2976 /* Cursor has cursor-color background, background-color foreground. */
2977 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2978 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2979 gc_values
.fill_style
= FillOpaqueStippled
;
2980 f
->output_data
.x
->cursor_gc
2981 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2982 (GCForeground
| GCBackground
2983 | GCFillStyle
| GCLineWidth
),
2987 f
->output_data
.x
->white_relief
.gc
= 0;
2988 f
->output_data
.x
->black_relief
.gc
= 0;
2990 /* Create the gray border tile used when the pointer is not in
2991 the frame. Since this depends on the frame's pixel values,
2992 this must be done on a per-frame basis. */
2993 f
->output_data
.x
->border_tile
2994 = (XCreatePixmapFromBitmapData
2995 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2996 gray_bits
, gray_width
, gray_height
,
2997 FRAME_FOREGROUND_PIXEL (f
),
2998 FRAME_BACKGROUND_PIXEL (f
),
2999 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
3005 /* Free what was was allocated in x_make_gc. */
3011 Display
*dpy
= FRAME_X_DISPLAY (f
);
3015 if (f
->output_data
.x
->normal_gc
)
3017 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
3018 f
->output_data
.x
->normal_gc
= 0;
3021 if (f
->output_data
.x
->reverse_gc
)
3023 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
3024 f
->output_data
.x
->reverse_gc
= 0;
3027 if (f
->output_data
.x
->cursor_gc
)
3029 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
3030 f
->output_data
.x
->cursor_gc
= 0;
3033 if (f
->output_data
.x
->border_tile
)
3035 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
3036 f
->output_data
.x
->border_tile
= 0;
3043 /* Handler for signals raised during x_create_frame and
3044 x_create_top_frame. FRAME is the frame which is partially
3048 unwind_create_frame (frame
)
3051 struct frame
*f
= XFRAME (frame
);
3053 /* If frame is already dead, nothing to do. This can happen if the
3054 display is disconnected after the frame has become official, but
3055 before x_create_frame removes the unwind protect. */
3056 if (!FRAME_LIVE_P (f
))
3059 /* If frame is ``official'', nothing to do. */
3060 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
3063 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
3066 x_free_frame_resources (f
);
3069 /* Check that reference counts are indeed correct. */
3070 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
3071 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
3081 x_default_font_parameter (f
, parms
)
3085 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
3086 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
3089 if (EQ (font_param
, Qunbound
))
3091 font
= !NILP (font_param
) ? font_param
3092 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3094 if (! STRINGP (font
))
3099 /* This will find the normal Xft font. */
3102 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
3103 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3104 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3105 /* This was formerly the first thing tried, but it finds
3106 too many fonts and takes too long. */
3107 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
3108 /* If those didn't work, look for something which will
3110 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
3115 for (i
= 0; names
[i
]; i
++)
3117 font
= font_open_by_name (f
, names
[i
]);
3122 error ("No suitable font was found");
3124 else if (!NILP (font_param
))
3126 /* Remember the explicit font parameter, so we can re-apply it after
3127 we've applied the `default' face settings. */
3128 x_set_frame_parameters (f
, Fcons (Fcons (Qfont_param
, font_param
), Qnil
));
3130 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
3134 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
3136 doc
: /* Send the size hints for frame FRAME to the window manager.
3137 If FRAME is nil, use the selected frame. */)
3143 frame
= selected_frame
;
3147 x_wm_set_size_hint (f
, 0, 0);
3152 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3154 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3155 Return an Emacs frame object.
3156 PARMS is an alist of frame parameters.
3157 If the parameters specify that the frame should not have a minibuffer,
3158 and do not specify a specific minibuffer window to use,
3159 then `default-minibuffer-frame' must be a frame whose minibuffer can
3160 be shared by the new frame.
3162 This function is an internal primitive--use `make-frame' instead. */)
3167 Lisp_Object frame
, tem
;
3169 int minibuffer_only
= 0;
3170 long window_prompting
= 0;
3172 int count
= SPECPDL_INDEX ();
3173 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3174 Lisp_Object display
;
3175 struct x_display_info
*dpyinfo
= NULL
;
3179 parms
= Fcopy_alist (parms
);
3181 /* Use this general default value to start with
3182 until we know if this frame has a specified name. */
3183 Vx_resource_name
= Vinvocation_name
;
3185 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3186 if (EQ (display
, Qunbound
))
3187 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3188 if (EQ (display
, Qunbound
))
3190 dpyinfo
= check_x_display_info (display
);
3191 kb
= dpyinfo
->terminal
->kboard
;
3193 if (!dpyinfo
->terminal
->name
)
3194 error ("Terminal is not live, can't create new frames on it");
3196 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3198 && ! EQ (name
, Qunbound
)
3200 error ("Invalid frame name--not a string or nil");
3203 Vx_resource_name
= name
;
3205 /* See if parent window is specified. */
3206 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3207 if (EQ (parent
, Qunbound
))
3209 if (! NILP (parent
))
3210 CHECK_NUMBER (parent
);
3212 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3213 /* No need to protect DISPLAY because that's not used after passing
3214 it to make_frame_without_minibuffer. */
3216 GCPRO4 (parms
, parent
, name
, frame
);
3217 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3219 if (EQ (tem
, Qnone
) || NILP (tem
))
3220 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3221 else if (EQ (tem
, Qonly
))
3223 f
= make_minibuffer_frame ();
3224 minibuffer_only
= 1;
3226 else if (WINDOWP (tem
))
3227 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3231 XSETFRAME (frame
, f
);
3233 /* Note that X Windows does support scroll bars. */
3234 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3236 f
->terminal
= dpyinfo
->terminal
;
3237 f
->terminal
->reference_count
++;
3239 f
->output_method
= output_x_window
;
3240 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3241 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3242 f
->output_data
.x
->icon_bitmap
= -1;
3243 FRAME_FONTSET (f
) = -1;
3244 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3245 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3246 #ifdef USE_TOOLKIT_SCROLL_BARS
3247 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3248 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3249 #endif /* USE_TOOLKIT_SCROLL_BARS */
3252 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3254 if (! STRINGP (f
->icon_name
))
3255 f
->icon_name
= Qnil
;
3257 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3259 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3260 record_unwind_protect (unwind_create_frame
, frame
);
3262 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
3263 dpyinfo_refcount
= dpyinfo
->reference_count
;
3264 #endif /* GLYPH_DEBUG */
3266 /* These colors will be set anyway later, but it's important
3267 to get the color reference counts right, so initialize them! */
3270 struct gcpro gcpro1
;
3272 /* Function x_decode_color can signal an error. Make
3273 sure to initialize color slots so that we won't try
3274 to free colors we haven't allocated. */
3275 FRAME_FOREGROUND_PIXEL (f
) = -1;
3276 FRAME_BACKGROUND_PIXEL (f
) = -1;
3277 f
->output_data
.x
->cursor_pixel
= -1;
3278 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3279 f
->output_data
.x
->border_pixel
= -1;
3280 f
->output_data
.x
->mouse_pixel
= -1;
3282 black
= build_string ("black");
3284 FRAME_FOREGROUND_PIXEL (f
)
3285 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3286 FRAME_BACKGROUND_PIXEL (f
)
3287 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3288 f
->output_data
.x
->cursor_pixel
3289 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3290 f
->output_data
.x
->cursor_foreground_pixel
3291 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3292 f
->output_data
.x
->border_pixel
3293 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3294 f
->output_data
.x
->mouse_pixel
3295 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3299 /* Specify the parent under which to make this X window. */
3303 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3304 f
->output_data
.x
->explicit_parent
= 1;
3308 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3309 f
->output_data
.x
->explicit_parent
= 0;
3312 /* Set the name; the functions to which we pass f expect the name to
3314 if (EQ (name
, Qunbound
) || NILP (name
))
3316 f
->name
= build_string (dpyinfo
->x_id_name
);
3317 f
->explicit_name
= 0;
3322 f
->explicit_name
= 1;
3323 /* use the frame's title when getting resources for this frame. */
3324 specbind (Qx_resource_name
, name
);
3327 f
->resx
= dpyinfo
->resx
;
3328 f
->resy
= dpyinfo
->resy
;
3330 #ifdef HAVE_FREETYPE
3332 register_font_driver (&xftfont_driver
, f
);
3333 #else /* not HAVE_XFT */
3334 register_font_driver (&ftxfont_driver
, f
);
3335 #endif /* not HAVE_XFT */
3336 #endif /* HAVE_FREETYPE */
3337 register_font_driver (&xfont_driver
, f
);
3339 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3340 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3342 /* Extract the window parameters from the supplied values
3343 that are needed to determine window geometry. */
3344 x_default_font_parameter (f
, parms
);
3345 if (!FRAME_FONT (f
))
3347 delete_frame (frame
, Qnoelisp
);
3348 error ("Invalid frame font");
3352 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3353 whereby it fails to get any font. */
3354 xlwmenu_default_font
= XLoadQueryFont (FRAME_X_DISPLAY (f
), "fixed");
3357 /* Frame contents get displaced if an embedded X window has a border. */
3358 if (! FRAME_X_EMBEDDED_P (f
))
3359 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3360 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3362 /* This defaults to 1 in order to match xterm. We recognize either
3363 internalBorderWidth or internalBorder (which is what xterm calls
3365 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3369 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3370 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3371 if (! EQ (value
, Qunbound
))
3372 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3375 x_default_parameter (f
, parms
, Qinternal_border_width
,
3376 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3381 "internalBorderWidth", "internalBorderWidth",
3383 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3384 "verticalScrollBars", "ScrollBars",
3387 /* Also do the stuff which must be set before the window exists. */
3388 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3389 "foreground", "Foreground", RES_TYPE_STRING
);
3390 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3391 "background", "Background", RES_TYPE_STRING
);
3392 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3393 "pointerColor", "Foreground", RES_TYPE_STRING
);
3394 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3395 "cursorColor", "Foreground", RES_TYPE_STRING
);
3396 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3397 "borderColor", "BorderColor", RES_TYPE_STRING
);
3398 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3399 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3400 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3401 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3402 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3403 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3404 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3405 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3407 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3408 "scrollBarForeground",
3409 "ScrollBarForeground", 1);
3410 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3411 "scrollBarBackground",
3412 "ScrollBarBackground", 0);
3414 /* Init faces before x_default_parameter is called for scroll-bar
3415 parameters because that function calls x_set_scroll_bar_width,
3416 which calls change_frame_size, which calls Fset_window_buffer,
3417 which runs hooks, which call Fvertical_motion. At the end, we
3418 end up in init_iterator with a null face cache, which should not
3420 init_frame_faces (f
);
3422 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3423 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3424 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3425 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3426 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3427 "bufferPredicate", "BufferPredicate",
3429 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3430 "title", "Title", RES_TYPE_STRING
);
3431 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3432 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3433 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3434 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3436 /* Compute the size of the X window. */
3437 window_prompting
= x_figure_window_size (f
, parms
, 1);
3439 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3440 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3442 x_icon_verify (f
, parms
);
3444 /* Create the X widget or window. */
3445 #ifdef USE_X_TOOLKIT
3446 x_window (f
, window_prompting
, minibuffer_only
);
3454 /* Now consider the frame official. */
3455 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3456 Vframe_list
= Fcons (frame
, Vframe_list
);
3458 /* We need to do this after creating the X window, so that the
3459 icon-creation functions can say whose icon they're describing. */
3460 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3461 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3463 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3464 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3465 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3466 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3467 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3468 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3469 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3470 "scrollBarWidth", "ScrollBarWidth",
3472 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3473 "alpha", "Alpha", RES_TYPE_NUMBER
);
3475 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3476 Change will not be effected unless different from the current
3478 width
= FRAME_COLS (f
);
3479 height
= FRAME_LINES (f
);
3481 SET_FRAME_COLS (f
, 0);
3482 FRAME_LINES (f
) = 0;
3483 change_frame_size (f
, height
, width
, 1, 0, 0);
3485 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3486 /* Create the menu bar. */
3487 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3489 /* If this signals an error, we haven't set size hints for the
3490 frame and we didn't make it visible. */
3491 initialize_frame_menubar (f
);
3494 /* This is a no-op, except under Motif where it arranges the
3495 main window for the widgets on it. */
3496 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3497 f
->output_data
.x
->menubar_widget
,
3498 f
->output_data
.x
->edit_widget
);
3499 #endif /* not USE_GTK */
3501 #endif /* USE_X_TOOLKIT || USE_GTK */
3503 /* Tell the server what size and position, etc, we want, and how
3504 badly we want them. This should be done after we have the menu
3505 bar so that its size can be taken into account. */
3507 x_wm_set_size_hint (f
, window_prompting
, 0);
3510 /* Make the window appear on the frame and enable display, unless
3511 the caller says not to. However, with explicit parent, Emacs
3512 cannot control visibility, so don't try. */
3513 if (! f
->output_data
.x
->explicit_parent
)
3515 Lisp_Object visibility
;
3517 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3519 if (EQ (visibility
, Qunbound
))
3522 if (EQ (visibility
, Qicon
))
3523 x_iconify_frame (f
);
3524 else if (! NILP (visibility
))
3525 x_make_frame_visible (f
);
3527 /* Must have been Qnil. */
3531 /* Set the WM leader property. GTK does this itself, so this is not
3532 needed when using GTK. */
3533 if (dpyinfo
->client_leader_window
!= 0)
3536 XChangeProperty (FRAME_X_DISPLAY (f
),
3537 FRAME_OUTER_WINDOW (f
),
3538 dpyinfo
->Xatom_wm_client_leader
,
3539 XA_WINDOW
, 32, PropModeReplace
,
3540 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3544 /* Initialize `default-minibuffer-frame' in case this is the first
3545 frame on this terminal. */
3546 if (FRAME_HAS_MINIBUF_P (f
)
3547 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3548 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3549 kb
->Vdefault_minibuffer_frame
= frame
;
3551 /* All remaining specified parameters, which have not been "used"
3552 by x_get_arg and friends, now go in the misc. alist of the frame. */
3553 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3554 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3555 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3559 /* Make sure windows on this frame appear in calls to next-window
3560 and similar functions. */
3561 Vwindow_list
= Qnil
;
3563 return unbind_to (count
, frame
);
3567 /* FRAME is used only to get a handle on the X display. We don't pass the
3568 display info directly because we're called from frame.c, which doesn't
3569 know about that structure. */
3572 x_get_focus_frame (frame
)
3573 struct frame
*frame
;
3575 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3577 if (! dpyinfo
->x_focus_frame
)
3580 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3585 /* In certain situations, when the window manager follows a
3586 click-to-focus policy, there seems to be no way around calling
3587 XSetInputFocus to give another frame the input focus .
3589 In an ideal world, XSetInputFocus should generally be avoided so
3590 that applications don't interfere with the window manager's focus
3591 policy. But I think it's okay to use when it's clearly done
3592 following a user-command. */
3594 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3595 doc
: /* Set the input focus to FRAME.
3596 FRAME nil means use the selected frame. */)
3600 struct frame
*f
= check_x_frame (frame
);
3601 Display
*dpy
= FRAME_X_DISPLAY (f
);
3604 x_catch_errors (dpy
);
3605 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3606 RevertToParent
, CurrentTime
);
3607 x_ewmh_activate_frame (f
);
3608 x_uncatch_errors ();
3615 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3616 doc
: /* Internal function called by `color-defined-p', which see. */)
3618 Lisp_Object color
, frame
;
3621 FRAME_PTR f
= check_x_frame (frame
);
3623 CHECK_STRING (color
);
3625 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3631 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3632 doc
: /* Internal function called by `color-values', which see. */)
3634 Lisp_Object color
, frame
;
3637 FRAME_PTR f
= check_x_frame (frame
);
3639 CHECK_STRING (color
);
3641 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3642 return list3 (make_number (foo
.red
),
3643 make_number (foo
.green
),
3644 make_number (foo
.blue
));
3649 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3650 doc
: /* Internal function called by `display-color-p', which see. */)
3652 Lisp_Object terminal
;
3654 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3656 if (dpyinfo
->n_planes
<= 2)
3659 switch (dpyinfo
->visual
->class)
3672 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3674 doc
: /* Return t if the X display supports shades of gray.
3675 Note that color displays do support shades of gray.
3676 The optional argument TERMINAL specifies which display to ask about.
3677 TERMINAL should be a terminal object, a frame or a display name (a string).
3678 If omitted or nil, that stands for the selected frame's display. */)
3680 Lisp_Object terminal
;
3682 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3684 if (dpyinfo
->n_planes
<= 1)
3687 switch (dpyinfo
->visual
->class)
3702 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3704 doc
: /* Return the width in pixels of the X display TERMINAL.
3705 The optional argument TERMINAL specifies which display to ask about.
3706 TERMINAL should be a terminal object, a frame or a display name (a string).
3707 If omitted or nil, that stands for the selected frame's display. */)
3709 Lisp_Object terminal
;
3711 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3713 return make_number (x_display_pixel_width (dpyinfo
));
3716 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3717 Sx_display_pixel_height
, 0, 1, 0,
3718 doc
: /* Return the height in pixels of the X display TERMINAL.
3719 The optional argument TERMINAL specifies which display to ask about.
3720 TERMINAL should be a terminal object, a frame or a display name (a string).
3721 If omitted or nil, that stands for the selected frame's display. */)
3723 Lisp_Object terminal
;
3725 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3727 return make_number (x_display_pixel_height (dpyinfo
));
3730 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3732 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3733 The optional argument TERMINAL specifies which display to ask about.
3734 TERMINAL should be a terminal object, a frame or a display name (a string).
3735 If omitted or nil, that stands for the selected frame's display. */)
3737 Lisp_Object terminal
;
3739 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3741 return make_number (dpyinfo
->n_planes
);
3744 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3746 doc
: /* Return the number of color cells of the X display TERMINAL.
3747 The optional argument TERMINAL specifies which display to ask about.
3748 TERMINAL should be a terminal object, a frame or a display name (a string).
3749 If omitted or nil, that stands for the selected frame's display. */)
3751 Lisp_Object terminal
;
3753 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3755 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3756 XScreenNumberOfScreen (dpyinfo
->screen
));
3758 /* Truncate nr_planes to 24 to avoid integer overflow.
3759 Some displays says 32, but only 24 bits are actually significant.
3760 There are only very few and rare video cards that have more than
3761 24 significant bits. Also 24 bits is more than 16 million colors,
3762 it "should be enough for everyone". */
3763 if (nr_planes
> 24) nr_planes
= 24;
3765 return make_number (1 << nr_planes
);
3768 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3769 Sx_server_max_request_size
,
3771 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3772 The optional argument TERMINAL specifies which display to ask about.
3773 TERMINAL should be a terminal object, a frame or a display name (a string).
3774 If omitted or nil, that stands for the selected frame's display. */)
3776 Lisp_Object terminal
;
3778 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3780 return make_number (MAXREQUEST (dpyinfo
->display
));
3783 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3784 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3785 \(Labelling every distributor as a "vendor" embodies the false assumption
3786 that operating systems cannot be developed and distributed noncommercially.)
3787 The optional argument TERMINAL specifies which display to ask about.
3788 TERMINAL should be a terminal object, a frame or a display name (a string).
3789 If omitted or nil, that stands for the selected frame's display. */)
3791 Lisp_Object terminal
;
3793 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3794 char *vendor
= ServerVendor (dpyinfo
->display
);
3796 if (! vendor
) vendor
= "";
3797 return build_string (vendor
);
3800 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3801 doc
: /* Return the version numbers of the X server of display TERMINAL.
3802 The value is a list of three integers: the major and minor
3803 version numbers of the X Protocol in use, and the distributor-specific release
3804 number. See also the function `x-server-vendor'.
3806 The optional argument TERMINAL specifies which display to ask about.
3807 TERMINAL should be a terminal object, a frame or a display name (a string).
3808 If omitted or nil, that stands for the selected frame's display. */)
3810 Lisp_Object terminal
;
3812 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3813 Display
*dpy
= dpyinfo
->display
;
3815 return Fcons (make_number (ProtocolVersion (dpy
)),
3816 Fcons (make_number (ProtocolRevision (dpy
)),
3817 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3820 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3821 doc
: /* Return the number of screens on the X server of display TERMINAL.
3822 The optional argument TERMINAL specifies which display to ask about.
3823 TERMINAL should be a terminal object, a frame or a display name (a string).
3824 If omitted or nil, that stands for the selected frame's display. */)
3826 Lisp_Object terminal
;
3828 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3830 return make_number (ScreenCount (dpyinfo
->display
));
3833 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3834 doc
: /* Return the height in millimeters of the X display TERMINAL.
3835 The optional argument TERMINAL specifies which display to ask about.
3836 TERMINAL should be a terminal object, a frame or a display name (a string).
3837 If omitted or nil, that stands for the selected frame's display. */)
3839 Lisp_Object terminal
;
3841 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3843 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3846 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3847 doc
: /* Return the width in millimeters of the X display TERMINAL.
3848 The optional argument TERMINAL specifies which display to ask about.
3849 TERMINAL should be a terminal object, a frame or a display name (a string).
3850 If omitted or nil, that stands for the selected frame's display. */)
3852 Lisp_Object terminal
;
3854 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3856 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3859 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3860 Sx_display_backing_store
, 0, 1, 0,
3861 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3862 The value may be `always', `when-mapped', or `not-useful'.
3863 The optional argument TERMINAL specifies which display to ask about.
3864 TERMINAL should be a terminal object, a frame or a display name (a string).
3865 If omitted or nil, that stands for the selected frame's display. */)
3867 Lisp_Object terminal
;
3869 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3872 switch (DoesBackingStore (dpyinfo
->screen
))
3875 result
= intern ("always");
3879 result
= intern ("when-mapped");
3883 result
= intern ("not-useful");
3887 error ("Strange value for BackingStore parameter of screen");
3894 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3895 Sx_display_visual_class
, 0, 1, 0,
3896 doc
: /* Return the visual class of the X display TERMINAL.
3897 The value is one of the symbols `static-gray', `gray-scale',
3898 `static-color', `pseudo-color', `true-color', or `direct-color'.
3900 The optional argument TERMINAL specifies which display to ask about.
3901 TERMINAL should a terminal object, a frame or a display name (a string).
3902 If omitted or nil, that stands for the selected frame's display. */)
3904 Lisp_Object terminal
;
3906 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3909 switch (dpyinfo
->visual
->class)
3912 result
= intern ("static-gray");
3915 result
= intern ("gray-scale");
3918 result
= intern ("static-color");
3921 result
= intern ("pseudo-color");
3924 result
= intern ("true-color");
3927 result
= intern ("direct-color");
3930 error ("Display has an unknown visual class");
3937 DEFUN ("x-display-save-under", Fx_display_save_under
,
3938 Sx_display_save_under
, 0, 1, 0,
3939 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3940 The optional argument TERMINAL specifies which display to ask about.
3941 TERMINAL should be a terminal object, a frame or a display name (a string).
3942 If omitted or nil, that stands for the selected frame's display. */)
3944 Lisp_Object terminal
;
3946 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3948 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3956 register struct frame
*f
;
3958 return FRAME_PIXEL_WIDTH (f
);
3963 register struct frame
*f
;
3965 return FRAME_PIXEL_HEIGHT (f
);
3970 register struct frame
*f
;
3972 return FRAME_COLUMN_WIDTH (f
);
3977 register struct frame
*f
;
3979 return FRAME_LINE_HEIGHT (f
);
3984 register struct frame
*f
;
3986 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3991 /************************************************************************
3993 ************************************************************************/
3996 /* Mapping visual names to visuals. */
3998 static struct visual_class
4005 {"StaticGray", StaticGray
},
4006 {"GrayScale", GrayScale
},
4007 {"StaticColor", StaticColor
},
4008 {"PseudoColor", PseudoColor
},
4009 {"TrueColor", TrueColor
},
4010 {"DirectColor", DirectColor
},
4015 #ifndef HAVE_XSCREENNUMBEROFSCREEN
4017 /* Value is the screen number of screen SCR. This is a substitute for
4018 the X function with the same name when that doesn't exist. */
4021 XScreenNumberOfScreen (scr
)
4022 register Screen
*scr
;
4024 Display
*dpy
= scr
->display
;
4027 for (i
= 0; i
< dpy
->nscreens
; ++i
)
4028 if (scr
== dpy
->screens
+ i
)
4034 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
4037 /* Select the visual that should be used on display DPYINFO. Set
4038 members of DPYINFO appropriately. Called from x_term_init. */
4041 select_visual (dpyinfo
)
4042 struct x_display_info
*dpyinfo
;
4044 Display
*dpy
= dpyinfo
->display
;
4045 Screen
*screen
= dpyinfo
->screen
;
4048 /* See if a visual is specified. */
4049 value
= display_x_get_resource (dpyinfo
,
4050 build_string ("visualClass"),
4051 build_string ("VisualClass"),
4053 if (STRINGP (value
))
4055 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
4056 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4057 depth, a decimal number. NAME is compared with case ignored. */
4058 char *s
= (char *) alloca (SBYTES (value
) + 1);
4063 strcpy (s
, SDATA (value
));
4064 dash
= index (s
, '-');
4067 dpyinfo
->n_planes
= atoi (dash
+ 1);
4071 /* We won't find a matching visual with depth 0, so that
4072 an error will be printed below. */
4073 dpyinfo
->n_planes
= 0;
4075 /* Determine the visual class. */
4076 for (i
= 0; visual_classes
[i
].name
; ++i
)
4077 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4079 class = visual_classes
[i
].class;
4083 /* Look up a matching visual for the specified class. */
4085 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4086 dpyinfo
->n_planes
, class, &vinfo
))
4087 fatal ("Invalid visual specification `%s'", SDATA (value
));
4089 dpyinfo
->visual
= vinfo
.visual
;
4094 XVisualInfo
*vinfo
, vinfo_template
;
4096 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4098 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4099 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4100 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4101 &vinfo_template
, &n_visuals
);
4103 fatal ("Can't get proper X visual info");
4105 dpyinfo
->n_planes
= vinfo
->depth
;
4106 XFree ((char *) vinfo
);
4111 /* Return the X display structure for the display named NAME.
4112 Open a new connection if necessary. */
4114 struct x_display_info
*
4115 x_display_info_for_name (name
)
4119 struct x_display_info
*dpyinfo
;
4121 CHECK_STRING (name
);
4124 if (! EQ (Vinitial_window_system
, intern ("x")))
4125 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4128 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4130 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4133 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4138 /* Use this general default value to start with. */
4139 Vx_resource_name
= Vinvocation_name
;
4141 validate_x_resource_name ();
4143 dpyinfo
= x_term_init (name
, (char *)0,
4144 (char *) SDATA (Vx_resource_name
));
4147 error ("Cannot connect to X server %s", SDATA (name
));
4150 XSETFASTINT (Vwindow_system_version
, 11);
4156 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4158 doc
: /* Open a connection to an X server.
4159 DISPLAY is the name of the display to connect to.
4160 Optional second arg XRM-STRING is a string of resources in xrdb format.
4161 If the optional third arg MUST-SUCCEED is non-nil,
4162 terminate Emacs if we can't open the connection. */)
4163 (display
, xrm_string
, must_succeed
)
4164 Lisp_Object display
, xrm_string
, must_succeed
;
4166 unsigned char *xrm_option
;
4167 struct x_display_info
*dpyinfo
;
4169 CHECK_STRING (display
);
4170 if (! NILP (xrm_string
))
4171 CHECK_STRING (xrm_string
);
4174 if (! EQ (Vinitial_window_system
, intern ("x")))
4175 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4178 if (! NILP (xrm_string
))
4179 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4181 xrm_option
= (unsigned char *) 0;
4183 validate_x_resource_name ();
4185 /* This is what opens the connection and sets x_current_display.
4186 This also initializes many symbols, such as those used for input. */
4187 dpyinfo
= x_term_init (display
, xrm_option
,
4188 (char *) SDATA (Vx_resource_name
));
4192 if (!NILP (must_succeed
))
4193 fatal ("Cannot connect to X server %s.\n\
4194 Check the DISPLAY environment variable or use `-d'.\n\
4195 Also use the `xauth' program to verify that you have the proper\n\
4196 authorization information needed to connect the X server.\n\
4197 An insecure way to solve the problem may be to use `xhost'.\n",
4200 error ("Cannot connect to X server %s", SDATA (display
));
4205 XSETFASTINT (Vwindow_system_version
, 11);
4209 DEFUN ("x-close-connection", Fx_close_connection
,
4210 Sx_close_connection
, 1, 1, 0,
4211 doc
: /* Close the connection to TERMINAL's X server.
4212 For TERMINAL, specify a terminal object, a frame or a display name (a
4213 string). If TERMINAL is nil, that stands for the selected frame's
4216 Lisp_Object terminal
;
4218 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4220 if (dpyinfo
->reference_count
> 0)
4221 error ("Display still has frames on it");
4223 x_delete_terminal (dpyinfo
->terminal
);
4228 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4229 doc
: /* Return the list of display names that Emacs has connections to. */)
4232 Lisp_Object tail
, result
;
4235 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4236 result
= Fcons (XCAR (XCAR (tail
)), result
);
4241 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4242 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4243 If ON is nil, allow buffering of requests.
4244 Turning on synchronization prohibits the Xlib routines from buffering
4245 requests and seriously degrades performance, but makes debugging much
4247 The optional second argument TERMINAL specifies which display to act on.
4248 TERMINAL should be a terminal object, a frame or a display name (a string).
4249 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4251 Lisp_Object terminal
, on
;
4253 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4255 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4260 /* Wait for responses to all X commands issued so far for frame F. */
4267 XSync (FRAME_X_DISPLAY (f
), False
);
4272 /***********************************************************************
4274 ***********************************************************************/
4276 DEFUN ("x-change-window-property", Fx_change_window_property
,
4277 Sx_change_window_property
, 2, 6, 0,
4278 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4279 PROP must be a string.
4280 VALUE may be a string or a list of conses, numbers and/or strings.
4281 If an element in the list is a string, it is converted to
4282 an Atom and the value of the Atom is used. If an element is a cons,
4283 it is converted to a 32 bit number where the car is the 16 top bits and the
4284 cdr is the lower 16 bits.
4285 FRAME nil or omitted means use the selected frame.
4286 If TYPE is given and non-nil, it is the name of the type of VALUE.
4287 If TYPE is not given or nil, the type is STRING.
4288 FORMAT gives the size in bits of each element if VALUE is a list.
4289 It must be one of 8, 16 or 32.
4290 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4291 If OUTER_P is non-nil, the property is changed for the outer X window of
4292 FRAME. Default is to change on the edit X window.
4295 (prop
, value
, frame
, type
, format
, outer_p
)
4296 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4298 struct frame
*f
= check_x_frame (frame
);
4300 Atom target_type
= XA_STRING
;
4301 int element_format
= 8;
4302 unsigned char *data
;
4306 CHECK_STRING (prop
);
4308 if (! NILP (format
))
4310 CHECK_NUMBER (format
);
4311 element_format
= XFASTINT (format
);
4313 if (element_format
!= 8 && element_format
!= 16
4314 && element_format
!= 32)
4315 error ("FORMAT must be one of 8, 16 or 32");
4320 nelements
= x_check_property_data (value
);
4321 if (nelements
== -1)
4322 error ("Bad data in VALUE, must be number, string or cons");
4324 if (element_format
== 8)
4325 data
= (unsigned char *) xmalloc (nelements
);
4326 else if (element_format
== 16)
4327 data
= (unsigned char *) xmalloc (nelements
*2);
4328 else /* format == 32 */
4329 /* The man page for XChangeProperty:
4330 "If the specified format is 32, the property data must be a
4332 This applies even if long is more than 64 bits. The X library
4333 converts to 32 bits before sending to the X server. */
4334 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4336 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4340 CHECK_STRING (value
);
4341 data
= SDATA (value
);
4342 nelements
= SCHARS (value
);
4346 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4349 CHECK_STRING (type
);
4350 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4353 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4354 else w
= FRAME_X_WINDOW (f
);
4356 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4357 prop_atom
, target_type
, element_format
, PropModeReplace
,
4360 if (CONSP (value
)) xfree (data
);
4362 /* Make sure the property is set when we return. */
4363 XFlush (FRAME_X_DISPLAY (f
));
4370 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4371 Sx_delete_window_property
, 1, 2, 0,
4372 doc
: /* Remove window property PROP from X window of FRAME.
4373 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4375 Lisp_Object prop
, frame
;
4377 struct frame
*f
= check_x_frame (frame
);
4380 CHECK_STRING (prop
);
4382 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4383 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4385 /* Make sure the property is removed when we return. */
4386 XFlush (FRAME_X_DISPLAY (f
));
4393 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4395 doc
: /* Value is the value of window property PROP on FRAME.
4396 If FRAME is nil or omitted, use the selected frame.
4397 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4398 is the name of the Atom that denotes the type expected.
4399 If SOURCE is non-nil, get the property on that window instead of from
4400 FRAME. The number 0 denotes the root window.
4401 If DELETE_P is non-nil, delete the property after retreiving it.
4402 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4404 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4405 no value of TYPE. */)
4406 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4407 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4409 struct frame
*f
= check_x_frame (frame
);
4412 Lisp_Object prop_value
= Qnil
;
4413 unsigned char *tmp_data
= NULL
;
4415 Atom target_type
= XA_STRING
;
4417 unsigned long actual_size
, bytes_remaining
;
4418 Window target_window
= FRAME_X_WINDOW (f
);
4419 struct gcpro gcpro1
;
4421 GCPRO1 (prop_value
);
4422 CHECK_STRING (prop
);
4424 if (! NILP (source
))
4426 if (NUMBERP (source
))
4428 if (FLOATP (source
))
4429 target_window
= (Window
) XFLOAT (source
);
4431 target_window
= XFASTINT (source
);
4433 if (target_window
== 0)
4434 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4436 else if (CONSP (source
))
4437 target_window
= cons_to_long (source
);
4443 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4444 target_type
= AnyPropertyType
;
4446 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4449 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4450 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4451 prop_atom
, 0, 0, False
, target_type
,
4452 &actual_type
, &actual_format
, &actual_size
,
4453 &bytes_remaining
, &tmp_data
);
4456 int size
= bytes_remaining
;
4461 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4462 prop_atom
, 0, bytes_remaining
,
4463 ! NILP (delete_p
), target_type
,
4464 &actual_type
, &actual_format
,
4465 &actual_size
, &bytes_remaining
,
4467 if (rc
== Success
&& tmp_data
)
4469 /* The man page for XGetWindowProperty says:
4470 "If the returned format is 32, the returned data is represented
4471 as a long array and should be cast to that type to obtain the
4473 This applies even if long is more than 32 bits, the X library
4474 converts from 32 bit elements received from the X server to long
4475 and passes the long array to us. Thus, for that case bcopy can not
4476 be used. We convert to a 32 bit type here, because so much code
4479 The bytes and offsets passed to XGetWindowProperty refers to the
4480 property and those are indeed in 32 bit quantities if format is
4483 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4486 int *idata
= (int *) tmp_data
;
4487 long *ldata
= (long *) tmp_data
;
4489 for (i
= 0; i
< actual_size
; ++i
)
4490 idata
[i
] = (int) ldata
[i
];
4493 if (NILP (vector_ret_p
))
4494 prop_value
= make_string (tmp_data
, size
);
4496 prop_value
= x_property_data_to_lisp (f
,
4503 if (tmp_data
) XFree (tmp_data
);
4513 /***********************************************************************
4515 ***********************************************************************/
4517 /* Timer function of hourglass_atimer. TIMER is equal to
4520 Display an hourglass pointer on all frames by mapping the frames'
4521 hourglass_window. Set the hourglass_p flag in the frames'
4522 output_data.x structure to indicate that an hourglass cursor is
4523 shown on the frames. */
4526 show_hourglass (timer
)
4527 struct atimer
*timer
;
4529 /* The timer implementation will cancel this timer automatically
4530 after this function has run. Set hourglass_atimer to null
4531 so that we know the timer doesn't have to be canceled. */
4532 hourglass_atimer
= NULL
;
4534 if (!hourglass_shown_p
)
4536 Lisp_Object rest
, frame
;
4540 FOR_EACH_FRAME (rest
, frame
)
4542 struct frame
*f
= XFRAME (frame
);
4544 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4546 Display
*dpy
= FRAME_X_DISPLAY (f
);
4548 #ifdef USE_X_TOOLKIT
4549 if (f
->output_data
.x
->widget
)
4551 if (FRAME_OUTER_WINDOW (f
))
4554 f
->output_data
.x
->hourglass_p
= 1;
4556 if (!f
->output_data
.x
->hourglass_window
)
4558 unsigned long mask
= CWCursor
;
4559 XSetWindowAttributes attrs
;
4561 Window parent
= FRAME_X_WINDOW (f
);
4563 Window parent
= FRAME_OUTER_WINDOW (f
);
4565 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4567 f
->output_data
.x
->hourglass_window
4568 = XCreateWindow (dpy
, parent
,
4569 0, 0, 32000, 32000, 0, 0,
4575 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4581 hourglass_shown_p
= 1;
4587 /* Hide the hourglass pointer on all frames, if it is currently
4593 if (hourglass_shown_p
)
4595 Lisp_Object rest
, frame
;
4598 FOR_EACH_FRAME (rest
, frame
)
4600 struct frame
*f
= XFRAME (frame
);
4603 /* Watch out for newly created frames. */
4604 && f
->output_data
.x
->hourglass_window
)
4606 XUnmapWindow (FRAME_X_DISPLAY (f
),
4607 f
->output_data
.x
->hourglass_window
);
4608 /* Sync here because XTread_socket looks at the
4609 hourglass_p flag that is reset to zero below. */
4610 XSync (FRAME_X_DISPLAY (f
), False
);
4611 f
->output_data
.x
->hourglass_p
= 0;
4615 hourglass_shown_p
= 0;
4622 /***********************************************************************
4624 ***********************************************************************/
4626 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4627 Lisp_Object
, Lisp_Object
));
4628 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4629 Lisp_Object
, int, int, int *, int *));
4631 /* The frame of a currently visible tooltip. */
4633 Lisp_Object tip_frame
;
4635 /* If non-nil, a timer started that hides the last tooltip when it
4638 Lisp_Object tip_timer
;
4641 /* If non-nil, a vector of 3 elements containing the last args
4642 with which x-show-tip was called. See there. */
4644 Lisp_Object last_show_tip_args
;
4646 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4648 Lisp_Object Vx_max_tooltip_size
;
4652 unwind_create_tip_frame (frame
)
4655 Lisp_Object deleted
;
4657 deleted
= unwind_create_frame (frame
);
4658 if (EQ (deleted
, Qt
))
4668 /* Create a frame for a tooltip on the display described by DPYINFO.
4669 PARMS is a list of frame parameters. TEXT is the string to
4670 display in the tip frame. Value is the frame.
4672 Note that functions called here, esp. x_default_parameter can
4673 signal errors, for instance when a specified color name is
4674 undefined. We have to make sure that we're in a consistent state
4675 when this happens. */
4678 x_create_tip_frame (dpyinfo
, parms
, text
)
4679 struct x_display_info
*dpyinfo
;
4680 Lisp_Object parms
, text
;
4683 Lisp_Object frame
, tem
;
4685 long window_prompting
= 0;
4687 int count
= SPECPDL_INDEX ();
4688 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4689 int face_change_count_before
= face_change_count
;
4691 struct buffer
*old_buffer
;
4695 if (!dpyinfo
->terminal
->name
)
4696 error ("Terminal is not live, can't create new frames on it");
4698 parms
= Fcopy_alist (parms
);
4700 /* Get the name of the frame to use for resource lookup. */
4701 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4703 && !EQ (name
, Qunbound
)
4705 error ("Invalid frame name--not a string or nil");
4708 GCPRO3 (parms
, name
, frame
);
4710 XSETFRAME (frame
, f
);
4712 buffer
= Fget_buffer_create (build_string (" *tip*"));
4713 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4714 old_buffer
= current_buffer
;
4715 set_buffer_internal_1 (XBUFFER (buffer
));
4716 current_buffer
->truncate_lines
= Qnil
;
4717 specbind (Qinhibit_read_only
, Qt
);
4718 specbind (Qinhibit_modification_hooks
, Qt
);
4721 set_buffer_internal_1 (old_buffer
);
4723 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4724 record_unwind_protect (unwind_create_tip_frame
, frame
);
4726 f
->terminal
= dpyinfo
->terminal
;
4727 f
->terminal
->reference_count
++;
4729 /* By setting the output method, we're essentially saying that
4730 the frame is live, as per FRAME_LIVE_P. If we get a signal
4731 from this point on, x_destroy_window might screw up reference
4733 f
->output_method
= output_x_window
;
4734 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4735 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4736 f
->output_data
.x
->icon_bitmap
= -1;
4737 FRAME_FONTSET (f
) = -1;
4738 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4739 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4740 #ifdef USE_TOOLKIT_SCROLL_BARS
4741 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4742 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4743 #endif /* USE_TOOLKIT_SCROLL_BARS */
4744 f
->icon_name
= Qnil
;
4745 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4747 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
4748 dpyinfo_refcount
= dpyinfo
->reference_count
;
4749 #endif /* GLYPH_DEBUG */
4750 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4751 f
->output_data
.x
->explicit_parent
= 0;
4753 /* These colors will be set anyway later, but it's important
4754 to get the color reference counts right, so initialize them! */
4757 struct gcpro gcpro1
;
4759 /* Function x_decode_color can signal an error. Make
4760 sure to initialize color slots so that we won't try
4761 to free colors we haven't allocated. */
4762 FRAME_FOREGROUND_PIXEL (f
) = -1;
4763 FRAME_BACKGROUND_PIXEL (f
) = -1;
4764 f
->output_data
.x
->cursor_pixel
= -1;
4765 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4766 f
->output_data
.x
->border_pixel
= -1;
4767 f
->output_data
.x
->mouse_pixel
= -1;
4769 black
= build_string ("black");
4771 FRAME_FOREGROUND_PIXEL (f
)
4772 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4773 FRAME_BACKGROUND_PIXEL (f
)
4774 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4775 f
->output_data
.x
->cursor_pixel
4776 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4777 f
->output_data
.x
->cursor_foreground_pixel
4778 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4779 f
->output_data
.x
->border_pixel
4780 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4781 f
->output_data
.x
->mouse_pixel
4782 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4786 /* Set the name; the functions to which we pass f expect the name to
4788 if (EQ (name
, Qunbound
) || NILP (name
))
4790 f
->name
= build_string (dpyinfo
->x_id_name
);
4791 f
->explicit_name
= 0;
4796 f
->explicit_name
= 1;
4797 /* use the frame's title when getting resources for this frame. */
4798 specbind (Qx_resource_name
, name
);
4801 f
->resx
= dpyinfo
->resx
;
4802 f
->resy
= dpyinfo
->resy
;
4804 register_font_driver (&xfont_driver
, f
);
4805 #ifdef HAVE_FREETYPE
4807 register_font_driver (&xftfont_driver
, f
);
4808 #else /* not HAVE_XFT */
4809 register_font_driver (&ftxfont_driver
, f
);
4810 #endif /* not HAVE_XFT */
4811 #endif /* HAVE_FREETYPE */
4813 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4814 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4816 /* Extract the window parameters from the supplied values that are
4817 needed to determine window geometry. */
4818 x_default_font_parameter (f
, parms
);
4820 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4821 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4823 /* This defaults to 2 in order to match xterm. We recognize either
4824 internalBorderWidth or internalBorder (which is what xterm calls
4826 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4830 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4831 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4832 if (! EQ (value
, Qunbound
))
4833 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4837 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4838 "internalBorderWidth", "internalBorderWidth",
4841 /* Also do the stuff which must be set before the window exists. */
4842 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4843 "foreground", "Foreground", RES_TYPE_STRING
);
4844 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4845 "background", "Background", RES_TYPE_STRING
);
4846 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4847 "pointerColor", "Foreground", RES_TYPE_STRING
);
4848 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4849 "cursorColor", "Foreground", RES_TYPE_STRING
);
4850 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4851 "borderColor", "BorderColor", RES_TYPE_STRING
);
4853 /* Init faces before x_default_parameter is called for scroll-bar
4854 parameters because that function calls x_set_scroll_bar_width,
4855 which calls change_frame_size, which calls Fset_window_buffer,
4856 which runs hooks, which call Fvertical_motion. At the end, we
4857 end up in init_iterator with a null face cache, which should not
4859 init_frame_faces (f
);
4861 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4863 window_prompting
= x_figure_window_size (f
, parms
, 0);
4866 XSetWindowAttributes attrs
;
4870 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4871 if (DoesSaveUnders (dpyinfo
->screen
))
4872 mask
|= CWSaveUnder
;
4874 /* Window managers look at the override-redirect flag to determine
4875 whether or net to give windows a decoration (Xlib spec, chapter
4877 attrs
.override_redirect
= True
;
4878 attrs
.save_under
= True
;
4879 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4880 /* Arrange for getting MapNotify and UnmapNotify events. */
4881 attrs
.event_mask
= StructureNotifyMask
;
4883 = FRAME_X_WINDOW (f
)
4884 = XCreateWindow (FRAME_X_DISPLAY (f
),
4885 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4886 /* x, y, width, height */
4890 CopyFromParent
, InputOutput
, CopyFromParent
,
4897 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4898 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4899 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4900 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4901 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4902 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4904 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4905 Change will not be effected unless different from the current
4907 width
= FRAME_COLS (f
);
4908 height
= FRAME_LINES (f
);
4909 SET_FRAME_COLS (f
, 0);
4910 FRAME_LINES (f
) = 0;
4911 change_frame_size (f
, height
, width
, 1, 0, 0);
4913 /* Add `tooltip' frame parameter's default value. */
4914 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4915 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4918 /* FIXME - can this be done in a similar way to normal frames?
4919 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
4921 /* Set the `display-type' frame parameter before setting up faces. */
4923 Lisp_Object disptype
;
4925 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4926 disptype
= intern ("mono");
4927 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
4928 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4929 disptype
= intern ("grayscale");
4931 disptype
= intern ("color");
4933 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4934 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4938 /* Set up faces after all frame parameters are known. This call
4939 also merges in face attributes specified for new frames.
4941 Frame parameters may be changed if .Xdefaults contains
4942 specifications for the default font. For example, if there is an
4943 `Emacs.default.attributeBackground: pink', the `background-color'
4944 attribute of the frame get's set, which let's the internal border
4945 of the tooltip frame appear in pink. Prevent this. */
4947 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4949 /* Set tip_frame here, so that */
4951 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
4953 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4954 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4962 /* It is now ok to make the frame official even if we get an error
4963 below. And the frame needs to be on Vframe_list or making it
4964 visible won't work. */
4965 Vframe_list
= Fcons (frame
, Vframe_list
);
4967 /* Now that the frame is official, it counts as a reference to
4969 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4971 /* Setting attributes of faces of the tooltip frame from resources
4972 and similar will increment face_change_count, which leads to the
4973 clearing of all current matrices. Since this isn't necessary
4974 here, avoid it by resetting face_change_count to the value it
4975 had before we created the tip frame. */
4976 face_change_count
= face_change_count_before
;
4978 /* Discard the unwind_protect. */
4979 return unbind_to (count
, frame
);
4983 /* Compute where to display tip frame F. PARMS is the list of frame
4984 parameters for F. DX and DY are specified offsets from the current
4985 location of the mouse. WIDTH and HEIGHT are the width and height
4986 of the tooltip. Return coordinates relative to the root window of
4987 the display in *ROOT_X, and *ROOT_Y. */
4990 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4992 Lisp_Object parms
, dx
, dy
;
4994 int *root_x
, *root_y
;
4996 Lisp_Object left
, top
;
5001 /* User-specified position? */
5002 left
= Fcdr (Fassq (Qleft
, parms
));
5003 top
= Fcdr (Fassq (Qtop
, parms
));
5005 /* Move the tooltip window where the mouse pointer is. Resize and
5007 if (!INTEGERP (left
) || !INTEGERP (top
))
5010 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
5011 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
5016 *root_y
= XINT (top
);
5017 else if (*root_y
+ XINT (dy
) <= 0)
5018 *root_y
= 0; /* Can happen for negative dy */
5019 else if (*root_y
+ XINT (dy
) + height
5020 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
5021 /* It fits below the pointer */
5022 *root_y
+= XINT (dy
);
5023 else if (height
+ XINT (dy
) <= *root_y
)
5024 /* It fits above the pointer. */
5025 *root_y
-= height
+ XINT (dy
);
5027 /* Put it on the top. */
5030 if (INTEGERP (left
))
5031 *root_x
= XINT (left
);
5032 else if (*root_x
+ XINT (dx
) <= 0)
5033 *root_x
= 0; /* Can happen for negative dx */
5034 else if (*root_x
+ XINT (dx
) + width
5035 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
5036 /* It fits to the right of the pointer. */
5037 *root_x
+= XINT (dx
);
5038 else if (width
+ XINT (dx
) <= *root_x
)
5039 /* It fits to the left of the pointer. */
5040 *root_x
-= width
+ XINT (dx
);
5042 /* Put it left-justified on the screen--it ought to fit that way. */
5047 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5048 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5049 A tooltip window is a small X window displaying a string.
5051 This is an internal function; Lisp code should call `tooltip-show'.
5053 FRAME nil or omitted means use the selected frame.
5055 PARMS is an optional list of frame parameters which can be used to
5056 change the tooltip's appearance.
5058 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5059 means use the default timeout of 5 seconds.
5061 If the list of frame parameters PARAMS contains a `left' parameters,
5062 the tooltip is displayed at that x-position. Otherwise it is
5063 displayed at the mouse position, with offset DX added (default is 5 if
5064 DX isn't specified). Likewise for the y-position; if a `top' frame
5065 parameter is specified, it determines the y-position of the tooltip
5066 window, otherwise it is displayed at the mouse position, with offset
5067 DY added (default is -10).
5069 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5070 Text larger than the specified size is clipped. */)
5071 (string
, frame
, parms
, timeout
, dx
, dy
)
5072 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
5077 struct buffer
*old_buffer
;
5078 struct text_pos pos
;
5079 int i
, width
, height
;
5080 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5081 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5082 int count
= SPECPDL_INDEX ();
5084 specbind (Qinhibit_redisplay
, Qt
);
5086 GCPRO4 (string
, parms
, frame
, timeout
);
5088 CHECK_STRING (string
);
5089 if (SCHARS (string
) == 0)
5090 string
= make_unibyte_string (" ", 1);
5092 f
= check_x_frame (frame
);
5094 timeout
= make_number (5);
5096 CHECK_NATNUM (timeout
);
5099 dx
= make_number (5);
5104 dy
= make_number (-10);
5108 if (NILP (last_show_tip_args
))
5109 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5111 if (!NILP (tip_frame
))
5113 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5114 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5115 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5117 if (EQ (frame
, last_frame
)
5118 && !NILP (Fequal (last_string
, string
))
5119 && !NILP (Fequal (last_parms
, parms
)))
5121 struct frame
*f
= XFRAME (tip_frame
);
5123 /* Only DX and DY have changed. */
5124 if (!NILP (tip_timer
))
5126 Lisp_Object timer
= tip_timer
;
5128 call1 (Qcancel_timer
, timer
);
5132 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5133 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5134 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5141 /* Hide a previous tip, if any. */
5144 ASET (last_show_tip_args
, 0, string
);
5145 ASET (last_show_tip_args
, 1, frame
);
5146 ASET (last_show_tip_args
, 2, parms
);
5148 /* Add default values to frame parameters. */
5149 if (NILP (Fassq (Qname
, parms
)))
5150 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5151 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5152 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5153 if (NILP (Fassq (Qborder_width
, parms
)))
5154 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5155 if (NILP (Fassq (Qborder_color
, parms
)))
5156 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5157 if (NILP (Fassq (Qbackground_color
, parms
)))
5158 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5161 /* Create a frame for the tooltip, and record it in the global
5162 variable tip_frame. */
5163 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5166 /* Set up the frame's root window. */
5167 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5168 w
->left_col
= w
->top_line
= make_number (0);
5170 if (CONSP (Vx_max_tooltip_size
)
5171 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5172 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5173 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5174 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5176 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5177 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5181 w
->total_cols
= make_number (80);
5182 w
->total_lines
= make_number (40);
5185 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5187 w
->pseudo_window_p
= 1;
5189 /* Display the tooltip text in a temporary buffer. */
5190 old_buffer
= current_buffer
;
5191 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5192 current_buffer
->truncate_lines
= Qnil
;
5193 clear_glyph_matrix (w
->desired_matrix
);
5194 clear_glyph_matrix (w
->current_matrix
);
5195 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5196 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5198 /* Compute width and height of the tooltip. */
5200 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5202 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5206 /* Stop at the first empty row at the end. */
5207 if (!row
->enabled_p
|| !row
->displays_text_p
)
5210 /* Let the row go over the full width of the frame. */
5211 row
->full_width_p
= 1;
5213 /* There's a glyph at the end of rows that is used to place
5214 the cursor there. Don't include the width of this glyph. */
5215 if (row
->used
[TEXT_AREA
])
5217 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5218 row_width
= row
->pixel_width
- last
->pixel_width
;
5221 row_width
= row
->pixel_width
;
5223 height
+= row
->height
;
5224 width
= max (width
, row_width
);
5227 /* Add the frame's internal border to the width and height the X
5228 window should have. */
5229 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5230 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5232 /* Move the tooltip window where the mouse pointer is. Resize and
5234 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5237 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5238 root_x
, root_y
, width
, height
);
5239 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5242 /* Draw into the window. */
5243 w
->must_be_updated_p
= 1;
5244 update_single_window (w
, 1);
5246 /* Restore original current buffer. */
5247 set_buffer_internal_1 (old_buffer
);
5248 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5251 /* Let the tip disappear after timeout seconds. */
5252 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5253 intern ("x-hide-tip"));
5256 return unbind_to (count
, Qnil
);
5260 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5261 doc
: /* Hide the current tooltip window, if there is any.
5262 Value is t if tooltip was open, nil otherwise. */)
5266 Lisp_Object deleted
, frame
, timer
;
5267 struct gcpro gcpro1
, gcpro2
;
5269 /* Return quickly if nothing to do. */
5270 if (NILP (tip_timer
) && NILP (tip_frame
))
5275 GCPRO2 (frame
, timer
);
5276 tip_frame
= tip_timer
= deleted
= Qnil
;
5278 count
= SPECPDL_INDEX ();
5279 specbind (Qinhibit_redisplay
, Qt
);
5280 specbind (Qinhibit_quit
, Qt
);
5283 call1 (Qcancel_timer
, timer
);
5287 delete_frame (frame
, Qnil
);
5291 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5292 redisplay procedure is not called when a tip frame over menu
5293 items is unmapped. Redisplay the menu manually... */
5295 struct frame
*f
= SELECTED_FRAME ();
5296 Widget w
= f
->output_data
.x
->menubar_widget
;
5297 extern void xlwmenu_redisplay
P_ ((Widget
));
5299 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5303 xlwmenu_redisplay (w
);
5307 #endif /* USE_LUCID */
5311 return unbind_to (count
, deleted
);
5316 /***********************************************************************
5317 File selection dialog
5318 ***********************************************************************/
5320 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5321 Sx_uses_old_gtk_dialog
,
5323 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5327 extern int use_dialog_box
;
5328 extern int use_file_dialog
;
5333 && xg_uses_old_file_dialog ())
5341 /* Callback for "OK" and "Cancel" on file selection dialog. */
5344 file_dialog_cb (widget
, client_data
, call_data
)
5346 XtPointer call_data
, client_data
;
5348 int *result
= (int *) client_data
;
5349 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5350 *result
= cb
->reason
;
5354 /* Callback for unmapping a file selection dialog. This is used to
5355 capture the case where a dialog is closed via a window manager's
5356 closer button, for example. Using a XmNdestroyCallback didn't work
5360 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5362 XtPointer call_data
, client_data
;
5364 int *result
= (int *) client_data
;
5365 *result
= XmCR_CANCEL
;
5369 clean_up_file_dialog (arg
)
5372 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5373 Widget dialog
= (Widget
) p
->pointer
;
5377 XtUnmanageChild (dialog
);
5378 XtDestroyWidget (dialog
);
5379 x_menu_set_in_use (0);
5386 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5387 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5388 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5389 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5390 or directory must exist. ONLY-DIR-P is ignored." */)
5391 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5392 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5395 struct frame
*f
= SELECTED_FRAME ();
5396 Lisp_Object file
= Qnil
;
5397 Lisp_Object decoded_file
;
5398 Widget dialog
, text
, help
;
5401 extern XtAppContext Xt_app_con
;
5402 XmString dir_xmstring
, pattern_xmstring
;
5403 int count
= SPECPDL_INDEX ();
5404 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5408 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5410 if (popup_activated ())
5411 error ("Trying to use a menu from within a menu-entry");
5413 CHECK_STRING (prompt
);
5416 /* Prevent redisplay. */
5417 specbind (Qinhibit_redisplay
, Qt
);
5421 /* Create the dialog with PROMPT as title, using DIR as initial
5422 directory and using "*" as pattern. */
5423 dir
= Fexpand_file_name (dir
, Qnil
);
5424 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5425 pattern_xmstring
= XmStringCreateLocalized ("*");
5427 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5428 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5429 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5430 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5431 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5432 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5434 XmStringFree (dir_xmstring
);
5435 XmStringFree (pattern_xmstring
);
5437 /* Add callbacks for OK and Cancel. */
5438 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5439 (XtPointer
) &result
);
5440 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5441 (XtPointer
) &result
);
5442 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5443 (XtPointer
) &result
);
5445 /* Remove the help button since we can't display help. */
5446 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5447 XtUnmanageChild (help
);
5449 /* Mark OK button as default. */
5450 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5451 XmNshowAsDefault
, True
, NULL
);
5453 /* If MUSTMATCH is non-nil, disable the file entry field of the
5454 dialog, so that the user must select a file from the files list
5455 box. We can't remove it because we wouldn't have a way to get at
5456 the result file name, then. */
5457 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5458 if (!NILP (mustmatch
))
5461 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5462 XtSetSensitive (text
, False
);
5463 XtSetSensitive (label
, False
);
5466 /* Manage the dialog, so that list boxes get filled. */
5467 XtManageChild (dialog
);
5469 if (STRINGP (default_filename
))
5471 XmString default_xmstring
;
5472 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5473 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5475 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5476 XmTextFieldReplace (wtext
, 0, last_pos
,
5477 (SDATA (Ffile_name_nondirectory (default_filename
))));
5479 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5480 must include the path for this to work. */
5482 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5484 if (XmListItemExists (list
, default_xmstring
))
5486 int item_pos
= XmListItemPos (list
, default_xmstring
);
5487 /* Select the item and scroll it into view. */
5488 XmListSelectPos (list
, item_pos
, True
);
5489 XmListSetPos (list
, item_pos
);
5492 XmStringFree (default_xmstring
);
5495 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5497 /* Process events until the user presses Cancel or OK. */
5498 x_menu_set_in_use (1);
5503 x_menu_wait_for_event (0);
5504 XtAppNextEvent (Xt_app_con
, &event
);
5505 if (event
.type
== KeyPress
5506 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5508 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5510 /* Pop down on C-g. */
5511 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5512 XtUnmanageChild (dialog
);
5515 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5518 /* Get the result. */
5519 if (result
== XmCR_OK
)
5524 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5525 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5526 XmStringFree (text
);
5527 file
= build_string (data
);
5536 /* Make "Cancel" equivalent to C-g. */
5538 Fsignal (Qquit
, Qnil
);
5540 decoded_file
= DECODE_FILE (file
);
5542 return unbind_to (count
, decoded_file
);
5545 #endif /* USE_MOTIF */
5550 clean_up_dialog (arg
)
5553 x_menu_set_in_use (0);
5558 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5559 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5560 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5561 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5562 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5564 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5565 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5567 FRAME_PTR f
= SELECTED_FRAME ();
5569 Lisp_Object file
= Qnil
;
5570 Lisp_Object decoded_file
;
5571 int count
= SPECPDL_INDEX ();
5572 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5577 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5579 if (popup_activated ())
5580 error ("Trying to use a menu from within a menu-entry");
5582 CHECK_STRING (prompt
);
5585 /* Prevent redisplay. */
5586 specbind (Qinhibit_redisplay
, Qt
);
5587 record_unwind_protect (clean_up_dialog
, Qnil
);
5591 if (STRINGP (default_filename
))
5592 cdef_file
= SDATA (default_filename
);
5594 cdef_file
= SDATA (dir
);
5596 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5598 ! NILP (only_dir_p
));
5602 file
= build_string (fn
);
5609 /* Make "Cancel" equivalent to C-g. */
5611 Fsignal (Qquit
, Qnil
);
5613 decoded_file
= DECODE_FILE (file
);
5615 return unbind_to (count
, decoded_file
);
5619 #ifdef HAVE_FREETYPE
5621 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5622 doc
: /* Read a font name using a GTK font selection dialog.
5623 Return a GTK-style font string corresponding to the selection.
5625 If FRAME is omitted or nil, it defaults to the selected frame. */)
5627 Lisp_Object frame
, ignored
;
5629 FRAME_PTR f
= check_x_frame (frame
);
5631 Lisp_Object default_font
, font
= Qnil
;
5632 int count
= SPECPDL_INDEX ();
5636 if (popup_activated ())
5637 error ("Trying to use a menu from within a menu-entry");
5639 /* Prevent redisplay. */
5640 specbind (Qinhibit_redisplay
, Qt
);
5641 record_unwind_protect (clean_up_dialog
, Qnil
);
5645 XSETFONT (default_font
, FRAME_FONT (f
));
5646 if (FONTP (default_font
))
5648 char *default_name
= alloca (256);
5649 if (font_unparse_gtkname (default_font
, f
, default_name
, 256) < 0)
5650 default_name
= NULL
;
5651 name
= xg_get_font_name (f
, default_name
);
5654 name
= xg_get_font_name (f
, NULL
);
5658 font
= build_string (name
);
5665 Fsignal (Qquit
, Qnil
);
5667 return unbind_to (count
, font
);
5669 #endif /* HAVE_FREETYPE */
5671 #endif /* USE_GTK */
5674 /***********************************************************************
5676 ***********************************************************************/
5678 #ifdef HAVE_XKBGETKEYBOARD
5679 #include <X11/XKBlib.h>
5680 #include <X11/keysym.h>
5683 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5684 Sx_backspace_delete_keys_p
, 0, 1, 0,
5685 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5686 FRAME nil means use the selected frame.
5687 Value is t if we know that both keys are present, and are mapped to the
5688 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5689 present and mapped to the usual X keysyms. */)
5693 #ifdef HAVE_XKBGETKEYBOARD
5695 struct frame
*f
= check_x_frame (frame
);
5696 Display
*dpy
= FRAME_X_DISPLAY (f
);
5697 Lisp_Object have_keys
;
5698 int major
, minor
, op
, event
, error
;
5702 /* Check library version in case we're dynamically linked. */
5703 major
= XkbMajorVersion
;
5704 minor
= XkbMinorVersion
;
5705 if (!XkbLibraryVersion (&major
, &minor
))
5711 /* Check that the server supports XKB. */
5712 major
= XkbMajorVersion
;
5713 minor
= XkbMinorVersion
;
5714 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5720 /* In this code we check that the keyboard has physical keys with names
5721 that start with BKSP (Backspace) and DELE (Delete), and that they
5722 generate keysym XK_BackSpace and XK_Delete respectively.
5723 This function is used to test if normal-erase-is-backspace should be
5725 An alternative approach would be to just check if XK_BackSpace and
5726 XK_Delete are mapped to any key. But if any of those are mapped to
5727 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5728 user doesn't know about it, it is better to return false here.
5729 It is more obvious to the user what to do if she/he has two keys
5730 clearly marked with names/symbols and one key does something not
5731 expected (i.e. she/he then tries the other).
5732 The cases where Backspace/Delete is mapped to some other key combination
5733 are rare, and in those cases, normal-erase-is-backspace can be turned on
5737 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5740 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5742 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5744 for (i
= kb
->min_key_code
;
5745 (i
< kb
->max_key_code
5746 && (delete_keycode
== 0 || backspace_keycode
== 0));
5749 /* The XKB symbolic key names can be seen most easily in
5750 the PS file generated by `xkbprint -label name
5752 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5754 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5755 backspace_keycode
= i
;
5758 XkbFreeNames (kb
, 0, True
);
5761 XkbFreeClientMap (kb
, 0, True
);
5764 && backspace_keycode
5765 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5766 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5771 #else /* not HAVE_XKBGETKEYBOARD */
5773 #endif /* not HAVE_XKBGETKEYBOARD */
5778 /***********************************************************************
5780 ***********************************************************************/
5782 /* Keep this list in the same order as frame_parms in frame.c.
5783 Use 0 for unsupported frame parameters. */
5785 frame_parm_handler x_frame_parm_handlers
[] =
5789 x_set_background_color
,
5795 x_set_foreground_color
,
5798 x_set_internal_border_width
,
5799 x_set_menu_bar_lines
,
5801 x_explicitly_set_name
,
5802 x_set_scroll_bar_width
,
5805 x_set_vertical_scroll_bars
,
5807 x_set_tool_bar_lines
,
5808 x_set_scroll_bar_foreground
,
5809 x_set_scroll_bar_background
,
5824 /* This is zero if not using X windows. */
5827 /* The section below is built by the lisp expression at the top of the file,
5828 just above where these variables are declared. */
5829 /*&&& init symbols here &&&*/
5830 Qnone
= intern ("none");
5832 Qsuppress_icon
= intern ("suppress-icon");
5833 staticpro (&Qsuppress_icon
);
5834 Qundefined_color
= intern ("undefined-color");
5835 staticpro (&Qundefined_color
);
5836 Qcompound_text
= intern ("compound-text");
5837 staticpro (&Qcompound_text
);
5838 Qcancel_timer
= intern ("cancel-timer");
5839 staticpro (&Qcancel_timer
);
5840 Qfont_param
= intern ("font-parameter");
5841 staticpro (&Qfont_param
);
5842 /* This is the end of symbol initialization. */
5844 /* Text property `display' should be nonsticky by default. */
5845 Vtext_property_default_nonsticky
5846 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5849 Fput (Qundefined_color
, Qerror_conditions
,
5850 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
5851 Fput (Qundefined_color
, Qerror_message
,
5852 build_string ("Undefined color"));
5854 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5855 doc
: /* The shape of the pointer when over text.
5856 Changing the value does not affect existing frames
5857 unless you set the mouse color. */);
5858 Vx_pointer_shape
= Qnil
;
5860 #if 0 /* This doesn't really do anything. */
5861 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5862 doc
: /* The shape of the pointer when not over text.
5863 This variable takes effect when you create a new frame
5864 or when you set the mouse color. */);
5866 Vx_nontext_pointer_shape
= Qnil
;
5868 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5869 doc
: /* The shape of the pointer when Emacs is busy.
5870 This variable takes effect when you create a new frame
5871 or when you set the mouse color. */);
5872 Vx_hourglass_pointer_shape
= Qnil
;
5874 #if 0 /* This doesn't really do anything. */
5875 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5876 doc
: /* The shape of the pointer when over the mode line.
5877 This variable takes effect when you create a new frame
5878 or when you set the mouse color. */);
5880 Vx_mode_pointer_shape
= Qnil
;
5882 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5883 &Vx_sensitive_text_pointer_shape
,
5884 doc
: /* The shape of the pointer when over mouse-sensitive text.
5885 This variable takes effect when you create a new frame
5886 or when you set the mouse color. */);
5887 Vx_sensitive_text_pointer_shape
= Qnil
;
5889 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5890 &Vx_window_horizontal_drag_shape
,
5891 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5892 This variable takes effect when you create a new frame
5893 or when you set the mouse color. */);
5894 Vx_window_horizontal_drag_shape
= Qnil
;
5896 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5897 doc
: /* A string indicating the foreground color of the cursor box. */);
5898 Vx_cursor_fore_pixel
= Qnil
;
5900 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5901 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5902 Text larger than this is clipped. */);
5903 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5905 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5906 doc
: /* Non-nil if no X window manager is in use.
5907 Emacs doesn't try to figure this out; this is always nil
5908 unless you set it to something else. */);
5909 /* We don't have any way to find this out, so set it to nil
5910 and maybe the user would like to set it to t. */
5911 Vx_no_window_manager
= Qnil
;
5913 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5914 &Vx_pixel_size_width_font_regexp
,
5915 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5917 Since Emacs gets width of a font matching with this regexp from
5918 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5919 such a font. This is especially effective for such large fonts as
5920 Chinese, Japanese, and Korean. */);
5921 Vx_pixel_size_width_font_regexp
= Qnil
;
5923 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5924 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", &x_gtk_use_old_file_dialog
,
5925 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5926 If nil or if the file selection dialog is not available, the new GTK file
5927 chooser is used instead. To turn off all file dialogs set the
5928 variable `use-file-dialog'. */);
5929 x_gtk_use_old_file_dialog
= 0;
5931 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5932 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5933 Note that this is just the default, there is a toggle button on the file
5934 chooser to show or not show hidden files on a case by case basis. */);
5935 x_gtk_show_hidden_files
= 0;
5937 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", &x_gtk_file_dialog_help_text
,
5938 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
5939 If more space for files in the file chooser dialog is wanted, set this to nil
5940 to turn the additional text off. */);
5941 x_gtk_file_dialog_help_text
= 1;
5943 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
5944 doc
: /* *If non-nil, a detached tool bar is shown in full.
5945 The default is to just show an arrow and pressing on that arrow shows
5946 the tool bar buttons. */);
5947 x_gtk_whole_detached_tool_bar
= 0;
5949 Fprovide (intern ("x"), Qnil
);
5951 #ifdef USE_X_TOOLKIT
5952 Fprovide (intern ("x-toolkit"), Qnil
);
5954 Fprovide (intern ("motif"), Qnil
);
5956 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5957 doc
: /* Version info for LessTif/Motif. */);
5958 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5959 #endif /* USE_MOTIF */
5960 #endif /* USE_X_TOOLKIT */
5963 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5964 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5965 But for a user it is a toolkit for X, and indeed, configure
5966 accepts --with-x-toolkit=gtk. */
5967 Fprovide (intern ("x-toolkit"), Qnil
);
5968 Fprovide (intern ("gtk"), Qnil
);
5970 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5971 doc
: /* Version info for GTK+. */);
5973 char gtk_version
[40];
5974 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5975 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5976 Vgtk_version_string
= build_string (gtk_version
);
5978 #endif /* USE_GTK */
5980 /* X window properties. */
5981 defsubr (&Sx_change_window_property
);
5982 defsubr (&Sx_delete_window_property
);
5983 defsubr (&Sx_window_property
);
5985 defsubr (&Sxw_display_color_p
);
5986 defsubr (&Sx_display_grayscale_p
);
5987 defsubr (&Sxw_color_defined_p
);
5988 defsubr (&Sxw_color_values
);
5989 defsubr (&Sx_server_max_request_size
);
5990 defsubr (&Sx_server_vendor
);
5991 defsubr (&Sx_server_version
);
5992 defsubr (&Sx_display_pixel_width
);
5993 defsubr (&Sx_display_pixel_height
);
5994 defsubr (&Sx_display_mm_width
);
5995 defsubr (&Sx_display_mm_height
);
5996 defsubr (&Sx_display_screens
);
5997 defsubr (&Sx_display_planes
);
5998 defsubr (&Sx_display_color_cells
);
5999 defsubr (&Sx_display_visual_class
);
6000 defsubr (&Sx_display_backing_store
);
6001 defsubr (&Sx_display_save_under
);
6002 defsubr (&Sx_wm_set_size_hint
);
6003 defsubr (&Sx_create_frame
);
6004 defsubr (&Sx_open_connection
);
6005 defsubr (&Sx_close_connection
);
6006 defsubr (&Sx_display_list
);
6007 defsubr (&Sx_synchronize
);
6008 defsubr (&Sx_focus_frame
);
6009 defsubr (&Sx_backspace_delete_keys_p
);
6011 /* Setting callback functions for fontset handler. */
6012 check_window_system_func
= check_x
;
6014 defsubr (&Sx_show_tip
);
6015 defsubr (&Sx_hide_tip
);
6017 staticpro (&tip_timer
);
6019 staticpro (&tip_frame
);
6021 last_show_tip_args
= Qnil
;
6022 staticpro (&last_show_tip_args
);
6024 defsubr (&Sx_uses_old_gtk_dialog
);
6025 #if defined (USE_MOTIF) || defined (USE_GTK)
6026 defsubr (&Sx_file_dialog
);
6029 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
6030 defsubr (&Sx_select_font
);
6034 #endif /* HAVE_X_WINDOWS */
6036 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
6037 (do not change this comment) */