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
;
211 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
212 char *x_last_font_name
;
216 /* Error if we are not connected to X. */
222 error ("X windows are not in use or not initialized");
225 /* Nonzero if we can use mouse menus.
226 You should not call this unless HAVE_MENUS is defined. */
234 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
235 and checking validity for X. */
238 check_x_frame (frame
)
244 frame
= selected_frame
;
245 CHECK_LIVE_FRAME (frame
);
248 error ("Non-X frame used");
252 /* Let the user specify an X display with a Lisp object.
253 OBJECT may be nil, a frame or a terminal object.
254 nil stands for the selected frame--or, if that is not an X frame,
255 the first X display on the list. */
257 struct x_display_info
*
258 check_x_display_info (object
)
261 struct x_display_info
*dpyinfo
= NULL
;
265 struct frame
*sf
= XFRAME (selected_frame
);
267 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
268 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
269 else if (x_display_list
!= 0)
270 dpyinfo
= x_display_list
;
272 error ("X windows are not in use or not initialized");
274 else if (TERMINALP (object
))
276 struct terminal
*t
= get_terminal (object
, 1);
278 if (t
->type
!= output_x_window
)
279 error ("Terminal %d is not an X display", XINT (object
));
281 dpyinfo
= t
->display_info
.x
;
283 else if (STRINGP (object
))
284 dpyinfo
= x_display_info_for_name (object
);
287 FRAME_PTR f
= check_x_frame (object
);
288 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
295 /* Return the Emacs frame-object corresponding to an X window.
296 It could be the frame's main window or an icon window. */
298 /* This function can be called during GC, so use GC_xxx type test macros. */
301 x_window_to_frame (dpyinfo
, wdesc
)
302 struct x_display_info
*dpyinfo
;
305 Lisp_Object tail
, frame
;
308 if (wdesc
== None
) return 0;
310 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
316 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
318 if (f
->output_data
.x
->hourglass_window
== wdesc
)
321 if ((f
->output_data
.x
->edit_widget
322 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
323 /* A tooltip frame? */
324 || (!f
->output_data
.x
->edit_widget
325 && FRAME_X_WINDOW (f
) == wdesc
)
326 || f
->output_data
.x
->icon_desc
== wdesc
)
328 #else /* not USE_X_TOOLKIT */
330 if (f
->output_data
.x
->edit_widget
)
332 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
333 struct x_output
*x
= f
->output_data
.x
;
334 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
338 if (FRAME_X_WINDOW (f
) == wdesc
339 || f
->output_data
.x
->icon_desc
== wdesc
)
341 #endif /* not USE_X_TOOLKIT */
346 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
347 /* Like x_window_to_frame but also compares the window with the widget's
351 x_any_window_to_frame (dpyinfo
, wdesc
)
352 struct x_display_info
*dpyinfo
;
355 Lisp_Object tail
, frame
;
356 struct frame
*f
, *found
;
359 if (wdesc
== None
) return NULL
;
362 for (tail
= Vframe_list
; CONSP (tail
) && !found
; tail
= XCDR (tail
))
369 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
371 /* This frame matches if the window is any of its widgets. */
372 x
= f
->output_data
.x
;
373 if (x
->hourglass_window
== wdesc
)
378 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
380 && (gwdesc
== x
->widget
381 || gwdesc
== x
->edit_widget
382 || gwdesc
== x
->vbox_widget
383 || gwdesc
== x
->menubar_widget
))
386 if (wdesc
== XtWindow (x
->widget
)
387 || wdesc
== XtWindow (x
->column_widget
)
388 || wdesc
== XtWindow (x
->edit_widget
))
390 /* Match if the window is this frame's menubar. */
391 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
395 else if (FRAME_X_WINDOW (f
) == wdesc
)
396 /* A tooltip frame. */
404 /* Likewise, but exclude the menu bar widget. */
407 x_non_menubar_window_to_frame (dpyinfo
, wdesc
)
408 struct x_display_info
*dpyinfo
;
411 Lisp_Object tail
, frame
;
415 if (wdesc
== None
) return 0;
417 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
423 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
425 x
= f
->output_data
.x
;
426 /* This frame matches if the window is any of its widgets. */
427 if (x
->hourglass_window
== wdesc
)
432 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
434 && (gwdesc
== x
->widget
435 || gwdesc
== x
->edit_widget
436 || gwdesc
== x
->vbox_widget
))
439 if (wdesc
== XtWindow (x
->widget
)
440 || wdesc
== XtWindow (x
->column_widget
)
441 || wdesc
== XtWindow (x
->edit_widget
))
445 else if (FRAME_X_WINDOW (f
) == wdesc
)
446 /* A tooltip frame. */
452 /* Likewise, but consider only the menu bar widget. */
455 x_menubar_window_to_frame (dpyinfo
, wdesc
)
456 struct x_display_info
*dpyinfo
;
459 Lisp_Object tail
, frame
;
463 if (wdesc
== None
) return 0;
465 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
471 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
473 x
= f
->output_data
.x
;
474 /* Match if the window is this frame's menubar. */
476 if (x
->menubar_widget
)
478 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
483 && (gwdesc
== x
->menubar_widget
484 || gtk_widget_get_parent (gwdesc
) == x
->menubar_widget
))
490 if (x
->menubar_widget
491 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
498 /* Return the frame whose principal (outermost) window is WDESC.
499 If WDESC is some other (smaller) window, we return 0. */
502 x_top_window_to_frame (dpyinfo
, wdesc
)
503 struct x_display_info
*dpyinfo
;
506 Lisp_Object tail
, frame
;
510 if (wdesc
== None
) return 0;
512 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
518 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
520 x
= f
->output_data
.x
;
524 /* This frame matches if the window is its topmost widget. */
526 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
527 if (gwdesc
== x
->widget
)
530 if (wdesc
== XtWindow (x
->widget
))
532 #if 0 /* I don't know why it did this,
533 but it seems logically wrong,
534 and it causes trouble for MapNotify events. */
535 /* Match if the window is this frame's menubar. */
536 if (x
->menubar_widget
537 && wdesc
== XtWindow (x
->menubar_widget
))
542 else if (FRAME_X_WINDOW (f
) == wdesc
)
548 #endif /* USE_X_TOOLKIT || USE_GTK */
552 static void x_default_font_parameter
P_ ((struct frame
*, Lisp_Object
));
554 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
555 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
557 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
558 static void x_set_wait_for_wm
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
559 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
560 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
561 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
562 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
563 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
564 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
565 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
566 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
567 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
568 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
569 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
570 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
572 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
574 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
581 /* Store the screen positions of frame F into XPTR and YPTR.
582 These are the positions of the containing window manager window,
583 not Emacs's own window. */
586 x_real_positions (f
, xptr
, yptr
)
590 int win_x
, win_y
, outer_x
, outer_y
;
591 int real_x
= 0, real_y
= 0;
593 Window win
= f
->output_data
.x
->parent_desc
;
597 x_catch_errors (FRAME_X_DISPLAY (f
));
599 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
600 win
= FRAME_OUTER_WINDOW (f
);
602 /* This loop traverses up the containment tree until we hit the root
603 window. Window managers may intersect many windows between our window
604 and the root window. The window we find just before the root window
605 should be the outer WM window. */
608 Window wm_window
, rootw
;
609 Window
*tmp_children
;
610 unsigned int tmp_nchildren
;
613 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
614 &wm_window
, &tmp_children
, &tmp_nchildren
);
616 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
618 /* Don't free tmp_children if XQueryTree failed. */
622 XFree ((char *) tmp_children
);
624 if (wm_window
== rootw
|| had_errors
)
635 /* Get the real coordinates for the WM window upper left corner */
636 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
637 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
639 /* Translate real coordinates to coordinates relative to our
640 window. For our window, the upper left corner is 0, 0.
641 Since the upper left corner of the WM window is outside
642 our window, win_x and win_y will be negative:
644 ------------------ ---> x
646 | ----------------- v y
649 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
651 /* From-window, to-window. */
652 FRAME_X_DISPLAY_INFO (f
)->root_window
,
655 /* From-position, to-position. */
656 real_x
, real_y
, &win_x
, &win_y
,
661 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
668 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
670 /* From-window, to-window. */
671 FRAME_X_DISPLAY_INFO (f
)->root_window
,
672 FRAME_OUTER_WINDOW (f
),
674 /* From-position, to-position. */
675 real_x
, real_y
, &outer_x
, &outer_y
,
681 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
688 if (had_errors
) return;
690 f
->x_pixels_diff
= -win_x
;
691 f
->y_pixels_diff
= -win_y
;
693 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
694 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
703 /* Gamma-correct COLOR on frame F. */
706 gamma_correct (f
, color
)
712 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
713 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
714 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
719 /* Decide if color named COLOR_NAME is valid for use on frame F. If
720 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
721 allocate the color. Value is zero if COLOR_NAME is invalid, or
722 no color could be allocated. */
725 x_defined_color (f
, color_name
, color
, alloc_p
)
732 Display
*dpy
= FRAME_X_DISPLAY (f
);
733 Colormap cmap
= FRAME_X_COLORMAP (f
);
736 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
737 if (success_p
&& alloc_p
)
738 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
745 /* Return the pixel color value for color COLOR_NAME on frame F. If F
746 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
747 Signal an error if color can't be allocated. */
750 x_decode_color (f
, color_name
, mono_color
)
752 Lisp_Object color_name
;
757 CHECK_STRING (color_name
);
759 #if 0 /* Don't do this. It's wrong when we're not using the default
760 colormap, it makes freeing difficult, and it's probably not
761 an important optimization. */
762 if (strcmp (SDATA (color_name
), "black") == 0)
763 return BLACK_PIX_DEFAULT (f
);
764 else if (strcmp (SDATA (color_name
), "white") == 0)
765 return WHITE_PIX_DEFAULT (f
);
768 /* Return MONO_COLOR for monochrome frames. */
769 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
772 /* x_defined_color is responsible for coping with failures
773 by looking for a near-miss. */
774 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
777 signal_error ("Undefined color", color_name
);
782 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
783 the previous value of that parameter, NEW_VALUE is the new value.
784 See also the comment of wait_for_wm in struct x_output. */
787 x_set_wait_for_wm (f
, new_value
, old_value
)
789 Lisp_Object new_value
, old_value
;
791 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
796 /* Set icon from FILE for frame F. By using GTK functions the icon
797 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
800 xg_set_icon (f
, file
)
807 found
= x_find_image_file (file
);
813 char *filename
= (char *) SDATA (found
);
816 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
820 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
822 g_object_unref (pixbuf
);
836 xg_set_icon_from_xpm_data (f
, data
)
841 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data ((const char **) data
);
846 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
847 g_object_unref (pixbuf
);
853 /* Functions called only from `x_set_frame_param'
854 to set individual parameters.
856 If FRAME_X_WINDOW (f) is 0,
857 the frame is being created and its X-window does not exist yet.
858 In that case, just record the parameter's new value
859 in the standard place; do not attempt to change the window. */
862 x_set_foreground_color (f
, arg
, oldval
)
864 Lisp_Object arg
, oldval
;
866 struct x_output
*x
= f
->output_data
.x
;
867 unsigned long fg
, old_fg
;
869 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
870 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
871 FRAME_FOREGROUND_PIXEL (f
) = fg
;
873 if (FRAME_X_WINDOW (f
) != 0)
875 Display
*dpy
= FRAME_X_DISPLAY (f
);
878 XSetForeground (dpy
, x
->normal_gc
, fg
);
879 XSetBackground (dpy
, x
->reverse_gc
, fg
);
881 if (x
->cursor_pixel
== old_fg
)
883 unload_color (f
, x
->cursor_pixel
);
884 x
->cursor_pixel
= x_copy_color (f
, fg
);
885 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
890 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
892 if (FRAME_VISIBLE_P (f
))
896 unload_color (f
, old_fg
);
900 x_set_background_color (f
, arg
, oldval
)
902 Lisp_Object arg
, oldval
;
904 struct x_output
*x
= f
->output_data
.x
;
907 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
908 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
909 FRAME_BACKGROUND_PIXEL (f
) = bg
;
911 if (FRAME_X_WINDOW (f
) != 0)
913 Display
*dpy
= FRAME_X_DISPLAY (f
);
916 XSetBackground (dpy
, x
->normal_gc
, bg
);
917 XSetForeground (dpy
, x
->reverse_gc
, bg
);
918 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
919 XSetForeground (dpy
, x
->cursor_gc
, bg
);
922 xg_set_background_color (f
, bg
);
925 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
926 toolkit scroll bars. */
929 for (bar
= FRAME_SCROLL_BARS (f
);
931 bar
= XSCROLL_BAR (bar
)->next
)
933 Window window
= XSCROLL_BAR (bar
)->x_window
;
934 XSetWindowBackground (dpy
, window
, bg
);
937 #endif /* USE_TOOLKIT_SCROLL_BARS */
940 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
942 if (FRAME_VISIBLE_P (f
))
948 make_invisible_cursor (f
)
951 Display
*dpy
= FRAME_X_DISPLAY (f
);
952 static char const no_data
[] = { 0 };
957 x_catch_errors (dpy
);
958 pix
= XCreateBitmapFromData (dpy
, FRAME_X_DISPLAY_INFO (f
)->root_window
,
960 if (! x_had_errors_p (dpy
) && pix
!= None
)
963 col
.red
= col
.green
= col
.blue
= 0;
964 col
.flags
= DoRed
| DoGreen
| DoBlue
;
965 c
= XCreatePixmapCursor (dpy
, pix
, pix
, &col
, &col
, 0, 0);
966 if (x_had_errors_p (dpy
) || c
== None
)
968 XFreePixmap (dpy
, pix
);
977 x_set_mouse_color (f
, arg
, oldval
)
979 Lisp_Object arg
, oldval
;
981 struct x_output
*x
= f
->output_data
.x
;
982 Display
*dpy
= FRAME_X_DISPLAY (f
);
983 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
984 Cursor hourglass_cursor
, horizontal_drag_cursor
;
985 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
986 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
988 /* Don't let pointers be invisible. */
989 if (mask_color
== pixel
)
991 x_free_colors (f
, &pixel
, 1);
992 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
995 unload_color (f
, x
->mouse_pixel
);
996 x
->mouse_pixel
= pixel
;
1000 /* It's not okay to crash if the user selects a screwy cursor. */
1001 x_catch_errors (dpy
);
1003 if (!NILP (Vx_pointer_shape
))
1005 CHECK_NUMBER (Vx_pointer_shape
);
1006 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
1009 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
1010 x_check_errors (dpy
, "bad text pointer cursor: %s");
1012 if (!NILP (Vx_nontext_pointer_shape
))
1014 CHECK_NUMBER (Vx_nontext_pointer_shape
);
1016 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
1019 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
1020 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
1022 if (!NILP (Vx_hourglass_pointer_shape
))
1024 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
1026 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
1029 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
1030 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
1032 if (!NILP (Vx_mode_pointer_shape
))
1034 CHECK_NUMBER (Vx_mode_pointer_shape
);
1035 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
1038 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
1039 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
1041 if (!NILP (Vx_sensitive_text_pointer_shape
))
1043 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
1045 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
1048 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
1050 if (!NILP (Vx_window_horizontal_drag_shape
))
1052 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1053 horizontal_drag_cursor
1054 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1057 horizontal_drag_cursor
1058 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1060 /* Check and report errors with the above calls. */
1061 x_check_errors (dpy
, "can't set cursor shape: %s");
1062 x_uncatch_errors ();
1065 XColor fore_color
, back_color
;
1067 fore_color
.pixel
= x
->mouse_pixel
;
1068 x_query_color (f
, &fore_color
);
1069 back_color
.pixel
= mask_color
;
1070 x_query_color (f
, &back_color
);
1072 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1073 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1074 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1075 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1076 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1077 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1080 if (FRAME_X_WINDOW (f
) != 0)
1081 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
1082 f
->output_data
.x
->current_cursor
= cursor
);
1084 if (FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
== 0)
1085 FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
= make_invisible_cursor (f
);
1087 if (cursor
!= x
->text_cursor
1088 && x
->text_cursor
!= 0)
1089 XFreeCursor (dpy
, x
->text_cursor
);
1090 x
->text_cursor
= cursor
;
1092 if (nontext_cursor
!= x
->nontext_cursor
1093 && x
->nontext_cursor
!= 0)
1094 XFreeCursor (dpy
, x
->nontext_cursor
);
1095 x
->nontext_cursor
= nontext_cursor
;
1097 if (hourglass_cursor
!= x
->hourglass_cursor
1098 && x
->hourglass_cursor
!= 0)
1099 XFreeCursor (dpy
, x
->hourglass_cursor
);
1100 x
->hourglass_cursor
= hourglass_cursor
;
1102 if (mode_cursor
!= x
->modeline_cursor
1103 && x
->modeline_cursor
!= 0)
1104 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1105 x
->modeline_cursor
= mode_cursor
;
1107 if (hand_cursor
!= x
->hand_cursor
1108 && x
->hand_cursor
!= 0)
1109 XFreeCursor (dpy
, x
->hand_cursor
);
1110 x
->hand_cursor
= hand_cursor
;
1112 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1113 && x
->horizontal_drag_cursor
!= 0)
1114 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1115 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1120 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1124 x_set_cursor_color (f
, arg
, oldval
)
1126 Lisp_Object arg
, oldval
;
1128 unsigned long fore_pixel
, pixel
;
1129 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1130 struct x_output
*x
= f
->output_data
.x
;
1132 if (!NILP (Vx_cursor_fore_pixel
))
1134 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1135 WHITE_PIX_DEFAULT (f
));
1136 fore_pixel_allocated_p
= 1;
1139 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1141 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1142 pixel_allocated_p
= 1;
1144 /* Make sure that the cursor color differs from the background color. */
1145 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1147 if (pixel_allocated_p
)
1149 x_free_colors (f
, &pixel
, 1);
1150 pixel_allocated_p
= 0;
1153 pixel
= x
->mouse_pixel
;
1154 if (pixel
== fore_pixel
)
1156 if (fore_pixel_allocated_p
)
1158 x_free_colors (f
, &fore_pixel
, 1);
1159 fore_pixel_allocated_p
= 0;
1161 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1165 unload_color (f
, x
->cursor_foreground_pixel
);
1166 if (!fore_pixel_allocated_p
)
1167 fore_pixel
= x_copy_color (f
, fore_pixel
);
1168 x
->cursor_foreground_pixel
= fore_pixel
;
1170 unload_color (f
, x
->cursor_pixel
);
1171 if (!pixel_allocated_p
)
1172 pixel
= x_copy_color (f
, pixel
);
1173 x
->cursor_pixel
= pixel
;
1175 if (FRAME_X_WINDOW (f
) != 0)
1178 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1179 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1182 if (FRAME_VISIBLE_P (f
))
1184 x_update_cursor (f
, 0);
1185 x_update_cursor (f
, 1);
1189 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1192 /* Set the border-color of frame F to pixel value PIX.
1193 Note that this does not fully take effect if done before
1194 F has an x-window. */
1197 x_set_border_pixel (f
, pix
)
1201 unload_color (f
, f
->output_data
.x
->border_pixel
);
1202 f
->output_data
.x
->border_pixel
= pix
;
1204 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1207 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1208 (unsigned long)pix
);
1211 if (FRAME_VISIBLE_P (f
))
1216 /* Set the border-color of frame F to value described by ARG.
1217 ARG can be a string naming a color.
1218 The border-color is used for the border that is drawn by the X server.
1219 Note that this does not fully take effect if done before
1220 F has an x-window; it must be redone when the window is created.
1222 Note: this is done in two routines because of the way X10 works.
1224 Note: under X11, this is normally the province of the window manager,
1225 and so emacs' border colors may be overridden. */
1228 x_set_border_color (f
, arg
, oldval
)
1230 Lisp_Object arg
, oldval
;
1235 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1236 x_set_border_pixel (f
, pix
);
1237 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1242 x_set_cursor_type (f
, arg
, oldval
)
1244 Lisp_Object arg
, oldval
;
1246 set_frame_cursor_types (f
, arg
);
1248 /* Make sure the cursor gets redrawn. */
1249 cursor_type_changed
= 1;
1253 x_set_icon_type (f
, arg
, oldval
)
1255 Lisp_Object arg
, oldval
;
1261 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1264 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1269 result
= x_text_icon (f
,
1270 (char *) SDATA ((!NILP (f
->icon_name
)
1274 result
= x_bitmap_icon (f
, arg
);
1279 error ("No icon window available");
1282 XFlush (FRAME_X_DISPLAY (f
));
1287 x_set_icon_name (f
, arg
, oldval
)
1289 Lisp_Object arg
, oldval
;
1295 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1298 else if (!NILP (arg
) || NILP (oldval
))
1303 if (f
->output_data
.x
->icon_bitmap
!= 0)
1308 result
= x_text_icon (f
,
1309 (char *) SDATA ((!NILP (f
->icon_name
)
1318 error ("No icon window available");
1321 XFlush (FRAME_X_DISPLAY (f
));
1327 x_set_menu_bar_lines (f
, value
, oldval
)
1329 Lisp_Object value
, oldval
;
1332 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1333 int olines
= FRAME_MENU_BAR_LINES (f
);
1336 /* Right now, menu bars don't work properly in minibuf-only frames;
1337 most of the commands try to apply themselves to the minibuffer
1338 frame itself, and get an error because you can't switch buffers
1339 in or split the minibuffer window. */
1340 if (FRAME_MINIBUF_ONLY_P (f
))
1343 if (INTEGERP (value
))
1344 nlines
= XINT (value
);
1348 /* Make sure we redisplay all windows in this frame. */
1349 windows_or_buffers_changed
++;
1351 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1352 FRAME_MENU_BAR_LINES (f
) = 0;
1355 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1356 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1357 /* Make sure next redisplay shows the menu bar. */
1358 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1362 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1363 free_frame_menubar (f
);
1364 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1366 f
->output_data
.x
->menubar_widget
= 0;
1368 #else /* not USE_X_TOOLKIT && not USE_GTK */
1369 FRAME_MENU_BAR_LINES (f
) = nlines
;
1370 change_window_heights (f
->root_window
, nlines
- olines
);
1371 #endif /* not USE_X_TOOLKIT */
1376 /* Set the number of lines used for the tool bar of frame F to VALUE.
1377 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1378 is the old number of tool bar lines. This function changes the
1379 height of all windows on frame F to match the new tool bar height.
1380 The frame's height doesn't change. */
1383 x_set_tool_bar_lines (f
, value
, oldval
)
1385 Lisp_Object value
, oldval
;
1387 int delta
, nlines
, root_height
;
1388 Lisp_Object root_window
;
1390 /* Treat tool bars like menu bars. */
1391 if (FRAME_MINIBUF_ONLY_P (f
))
1394 /* Use VALUE only if an integer >= 0. */
1395 if (INTEGERP (value
) && XINT (value
) >= 0)
1396 nlines
= XFASTINT (value
);
1401 FRAME_TOOL_BAR_LINES (f
) = 0;
1404 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1405 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1406 /* Make sure next redisplay shows the tool bar. */
1407 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1408 update_frame_tool_bar (f
);
1412 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1413 free_frame_tool_bar (f
);
1414 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1420 /* Make sure we redisplay all windows in this frame. */
1421 ++windows_or_buffers_changed
;
1423 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1425 /* Don't resize the tool-bar to more than we have room for. */
1426 root_window
= FRAME_ROOT_WINDOW (f
);
1427 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1428 if (root_height
- delta
< 1)
1430 delta
= root_height
- 1;
1431 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1434 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1435 change_window_heights (root_window
, delta
);
1438 /* We also have to make sure that the internal border at the top of
1439 the frame, below the menu bar or tool bar, is redrawn when the
1440 tool bar disappears. This is so because the internal border is
1441 below the tool bar if one is displayed, but is below the menu bar
1442 if there isn't a tool bar. The tool bar draws into the area
1443 below the menu bar. */
1444 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1447 clear_current_matrices (f
);
1450 /* If the tool bar gets smaller, the internal border below it
1451 has to be cleared. It was formerly part of the display
1452 of the larger tool bar, and updating windows won't clear it. */
1455 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1456 int width
= FRAME_PIXEL_WIDTH (f
);
1457 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1459 /* height can be zero here. */
1460 if (height
> 0 && width
> 0)
1463 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1464 0, y
, width
, height
, False
);
1468 if (WINDOWP (f
->tool_bar_window
))
1469 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1474 /* Set the foreground color for scroll bars on frame F to VALUE.
1475 VALUE should be a string, a color name. If it isn't a string or
1476 isn't a valid color name, do nothing. OLDVAL is the old value of
1477 the frame parameter. */
1480 x_set_scroll_bar_foreground (f
, value
, oldval
)
1482 Lisp_Object value
, oldval
;
1484 unsigned long pixel
;
1486 if (STRINGP (value
))
1487 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1491 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1492 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1494 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1495 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1497 /* Remove all scroll bars because they have wrong colors. */
1498 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1499 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1500 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1501 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1503 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1509 /* Set the background color for scroll bars on frame F to VALUE VALUE
1510 should be a string, a color name. If it isn't a string or isn't a
1511 valid color name, do nothing. OLDVAL is the old value of the frame
1515 x_set_scroll_bar_background (f
, value
, oldval
)
1517 Lisp_Object value
, oldval
;
1519 unsigned long pixel
;
1521 if (STRINGP (value
))
1522 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1526 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1527 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1529 #ifdef USE_TOOLKIT_SCROLL_BARS
1530 /* Scrollbar shadow colors. */
1531 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1533 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1534 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1536 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1538 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1539 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1541 #endif /* USE_TOOLKIT_SCROLL_BARS */
1543 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1544 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1546 /* Remove all scroll bars because they have wrong colors. */
1547 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1548 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1549 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1550 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1552 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1558 /* Encode Lisp string STRING as a text in a format appropriate for
1559 XICCC (X Inter Client Communication Conventions).
1561 This can call Lisp code, so callers must GCPRO.
1563 If STRING contains only ASCII characters, do no conversion and
1564 return the string data of STRING. Otherwise, encode the text by
1565 CODING_SYSTEM, and return a newly allocated memory area which
1566 should be freed by `xfree' by a caller.
1568 SELECTIONP non-zero means the string is being encoded for an X
1569 selection, so it is safe to run pre-write conversions (which
1572 Store the byte length of resulting text in *TEXT_BYTES.
1574 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1575 which means that the `encoding' of the result can be `STRING'.
1576 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1577 the result should be `COMPOUND_TEXT'. */
1579 static unsigned char *
1580 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
, freep
)
1581 Lisp_Object string
, coding_system
;
1582 int *text_bytes
, *stringp
;
1586 int result
= string_xstring_p (string
);
1587 struct coding_system coding
;
1591 /* No multibyte character in OBJ. We need not encode it. */
1592 *text_bytes
= SBYTES (string
);
1595 return SDATA (string
);
1598 setup_coding_system (coding_system
, &coding
);
1599 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1600 /* We suppress producing escape sequences for composition. */
1601 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1602 coding
.dst_bytes
= SCHARS (string
) * 2;
1603 coding
.destination
= (unsigned char *) xmalloc (coding
.dst_bytes
);
1604 encode_coding_object (&coding
, string
, 0, 0,
1605 SCHARS (string
), SBYTES (string
), Qnil
);
1606 *text_bytes
= coding
.produced
;
1607 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1609 return coding
.destination
;
1613 /* Set the WM name to NAME for frame F. Also set the icon name.
1614 If the frame already has an icon name, use that, otherwise set the
1615 icon name to NAME. */
1618 x_set_name_internal (f
, name
)
1622 if (FRAME_X_WINDOW (f
))
1626 XTextProperty text
, icon
;
1628 int do_free_icon_value
= 0, do_free_text_value
= 0;
1629 Lisp_Object coding_system
;
1631 Lisp_Object encoded_name
;
1632 struct gcpro gcpro1
;
1634 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1635 we use it before x_encode_text that may return string data. */
1637 encoded_name
= ENCODE_UTF_8 (name
);
1641 coding_system
= Qcompound_text
;
1642 /* Note: Encoding strategy
1644 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1645 text.encoding. But, there are non-internationalized window
1646 managers which don't support that encoding. So, if NAME
1647 contains only ASCII and 8859-1 characters, encode it by
1648 iso-latin-1, and use "STRING" in text.encoding hoping that
1649 such window managers at least analyze this format correctly,
1650 i.e. treat 8-bit bytes as 8859-1 characters.
1652 We may also be able to use "UTF8_STRING" in text.encoding
1653 in the future which can encode all Unicode characters.
1654 But, for the moment, there's no way to know that the
1655 current window manager supports it or not. */
1656 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1657 &do_free_text_value
);
1658 text
.encoding
= (stringp
? XA_STRING
1659 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1661 text
.nitems
= bytes
;
1663 if (!STRINGP (f
->icon_name
))
1669 /* See the above comment "Note: Encoding strategy". */
1670 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1671 &bytes
, &stringp
, &do_free_icon_value
);
1672 icon
.encoding
= (stringp
? XA_STRING
1673 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1675 icon
.nitems
= bytes
;
1679 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1680 (char *) SDATA (encoded_name
));
1681 #else /* not USE_GTK */
1682 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1683 #endif /* not USE_GTK */
1685 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1687 if (do_free_icon_value
)
1689 if (do_free_text_value
)
1696 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1699 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1700 name; if NAME is a string, set F's name to NAME and set
1701 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1703 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1704 suggesting a new name, which lisp code should override; if
1705 F->explicit_name is set, ignore the new name; otherwise, set it. */
1708 x_set_name (f
, name
, explicit)
1713 /* Make sure that requests from lisp code override requests from
1714 Emacs redisplay code. */
1717 /* If we're switching from explicit to implicit, we had better
1718 update the mode lines and thereby update the title. */
1719 if (f
->explicit_name
&& NILP (name
))
1720 update_mode_lines
= 1;
1722 f
->explicit_name
= ! NILP (name
);
1724 else if (f
->explicit_name
)
1727 /* If NAME is nil, set the name to the x_id_name. */
1730 /* Check for no change needed in this very common case
1731 before we do any consing. */
1732 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1735 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1738 CHECK_STRING (name
);
1740 /* Don't change the name if it's already NAME. */
1741 if (! NILP (Fstring_equal (name
, f
->name
)))
1746 /* For setting the frame title, the title parameter should override
1747 the name parameter. */
1748 if (! NILP (f
->title
))
1751 x_set_name_internal (f
, name
);
1754 /* This function should be called when the user's lisp code has
1755 specified a name for the frame; the name will override any set by the
1758 x_explicitly_set_name (f
, arg
, oldval
)
1760 Lisp_Object arg
, oldval
;
1762 x_set_name (f
, arg
, 1);
1765 /* This function should be called by Emacs redisplay code to set the
1766 name; names set this way will never override names set by the user's
1769 x_implicitly_set_name (f
, arg
, oldval
)
1771 Lisp_Object arg
, oldval
;
1773 x_set_name (f
, arg
, 0);
1776 /* Change the title of frame F to NAME.
1777 If NAME is nil, use the frame name as the title. */
1780 x_set_title (f
, name
, old_name
)
1782 Lisp_Object name
, old_name
;
1784 /* Don't change the title if it's already NAME. */
1785 if (EQ (name
, f
->title
))
1788 update_mode_lines
= 1;
1795 CHECK_STRING (name
);
1797 x_set_name_internal (f
, name
);
1801 x_set_scroll_bar_default_width (f
)
1804 int wid
= FRAME_COLUMN_WIDTH (f
);
1806 #ifdef USE_TOOLKIT_SCROLL_BARS
1807 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1808 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1809 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1810 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1812 /* Make the actual width at least 14 pixels and a multiple of a
1814 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1816 /* Use all of that space (aside from required margins) for the
1818 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1823 /* Record in frame F the specified or default value according to ALIST
1824 of the parameter named PROP (a Lisp symbol). If no value is
1825 specified for PROP, look for an X default for XPROP on the frame
1826 named NAME. If that is not found either, use the value DEFLT. */
1829 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1838 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1841 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1842 if (EQ (tem
, Qunbound
))
1844 #ifdef USE_TOOLKIT_SCROLL_BARS
1846 /* See if an X resource for the scroll bar color has been
1848 tem
= display_x_get_resource (dpyinfo
,
1849 build_string (foreground_p
1852 empty_unibyte_string
,
1853 build_string ("verticalScrollBar"),
1854 empty_unibyte_string
);
1857 /* If nothing has been specified, scroll bars will use a
1858 toolkit-dependent default. Because these defaults are
1859 difficult to get at without actually creating a scroll
1860 bar, use nil to indicate that no color has been
1865 #else /* not USE_TOOLKIT_SCROLL_BARS */
1869 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1872 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1879 #ifdef USE_X_TOOLKIT
1881 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1882 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1883 already be present because of the toolkit (Motif adds some of them,
1884 for example, but Xt doesn't). */
1887 hack_wm_protocols (f
, widget
)
1891 Display
*dpy
= XtDisplay (widget
);
1892 Window w
= XtWindow (widget
);
1893 int need_delete
= 1;
1900 unsigned char *catoms
;
1902 unsigned long nitems
= 0;
1903 unsigned long bytes_after
;
1905 if ((XGetWindowProperty (dpy
, w
,
1906 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1907 (long)0, (long)100, False
, XA_ATOM
,
1908 &type
, &format
, &nitems
, &bytes_after
,
1911 && format
== 32 && type
== XA_ATOM
)
1913 Atom
*atoms
= (Atom
*) catoms
;
1918 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1920 else if (atoms
[nitems
]
1921 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1923 else if (atoms
[nitems
]
1924 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1935 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1937 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1939 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1941 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1942 XA_ATOM
, 32, PropModeAppend
,
1943 (unsigned char *) props
, count
);
1951 /* Support routines for XIC (X Input Context). */
1955 static XFontSet xic_create_xfontset
P_ ((struct frame
*));
1956 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1959 /* Supported XIM styles, ordered by preference. */
1961 static XIMStyle supported_xim_styles
[] =
1963 XIMPreeditPosition
| XIMStatusArea
,
1964 XIMPreeditPosition
| XIMStatusNothing
,
1965 XIMPreeditPosition
| XIMStatusNone
,
1966 XIMPreeditNothing
| XIMStatusArea
,
1967 XIMPreeditNothing
| XIMStatusNothing
,
1968 XIMPreeditNothing
| XIMStatusNone
,
1969 XIMPreeditNone
| XIMStatusArea
,
1970 XIMPreeditNone
| XIMStatusNothing
,
1971 XIMPreeditNone
| XIMStatusNone
,
1976 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1978 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1980 /* Create an Xt fontset spec from the name of a base font.
1981 If `motif' is True use the Motif syntax. */
1983 xic_create_fontsetname (base_fontname
, motif
)
1984 char *base_fontname
;
1987 const char *sep
= motif
? ";" : ",";
1990 /* Make a fontset name from the base font name. */
1991 if (xic_defaut_fontset
== base_fontname
)
1992 { /* There is no base font name, use the default. */
1993 int len
= strlen (base_fontname
) + 2;
1994 fontsetname
= xmalloc (len
);
1995 bzero (fontsetname
, len
);
1996 strcpy (fontsetname
, base_fontname
);
2000 /* Make a fontset name from the base font name.
2001 The font set will be made of the following elements:
2003 - the base font where the charset spec is replaced by -*-*.
2004 - the same but with the family also replaced with -*-*-. */
2005 char *p
= base_fontname
;
2008 for (i
= 0; *p
; p
++)
2011 { /* As the font name doesn't conform to XLFD, we can't
2012 modify it to generalize it to allcs and allfamilies.
2013 Use the specified font plus the default. */
2014 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
2015 fontsetname
= xmalloc (len
);
2016 bzero (fontsetname
, len
);
2017 strcpy (fontsetname
, base_fontname
);
2018 strcat (fontsetname
, sep
);
2019 strcat (fontsetname
, xic_defaut_fontset
);
2024 char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
2025 char *font_allcs
= NULL
;
2026 char *font_allfamilies
= NULL
;
2027 char *font_all
= NULL
;
2028 char *allcs
= "*-*-*-*-*-*-*";
2029 char *allfamilies
= "-*-*-";
2030 char *all
= "*-*-*-*-";
2033 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
2046 /* If base_fontname specifies ADSTYLE, make it a
2050 int diff
= (p2
- p3
) - 2;
2052 base
= alloca (strlen (base_fontname
) + 1);
2053 bcopy (base_fontname
, base
, p3
- base_fontname
);
2054 base
[p3
- base_fontname
] = '*';
2055 base
[(p3
- base_fontname
) + 1] = '-';
2056 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
2057 p
= base
+ (p
- base_fontname
) - diff
;
2058 p1
= base
+ (p1
- base_fontname
);
2059 p2
= base
+ (p2
- base_fontname
) - diff
;
2060 base_fontname
= base
;
2063 /* Build the font spec that matches all charsets. */
2064 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2065 font_allcs
= (char *) alloca (len
);
2066 bzero (font_allcs
, len
);
2067 bcopy (base_fontname
, font_allcs
, p
- base_fontname
);
2068 strcat (font_allcs
, allcs
);
2070 /* Build the font spec that matches all families and
2072 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2073 font_allfamilies
= (char *) alloca (len
);
2074 bzero (font_allfamilies
, len
);
2075 strcpy (font_allfamilies
, allfamilies
);
2076 bcopy (p1
, font_allfamilies
+ strlen (allfamilies
), p
- p1
);
2077 strcat (font_allfamilies
, allcs
);
2079 /* Build the font spec that matches all. */
2080 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2081 font_all
= (char *) alloca (len
);
2082 bzero (font_all
, len
);
2083 strcpy (font_all
, allfamilies
);
2084 strcat (font_all
, all
);
2085 bcopy (p2
, font_all
+ strlen (all
) + strlen (allfamilies
), p
- p2
);
2086 strcat (font_all
, allcs
);
2088 /* Build the actual font set name. */
2089 len
= strlen (base_fontname
) + strlen (font_allcs
)
2090 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2091 fontsetname
= xmalloc (len
);
2092 bzero (fontsetname
, len
);
2093 strcpy (fontsetname
, base_fontname
);
2094 strcat (fontsetname
, sep
);
2095 strcat (fontsetname
, font_allcs
);
2096 strcat (fontsetname
, sep
);
2097 strcat (fontsetname
, font_allfamilies
);
2098 strcat (fontsetname
, sep
);
2099 strcat (fontsetname
, font_all
);
2103 strcat (fontsetname
, ":");
2107 #ifdef DEBUG_XIC_FONTSET
2109 print_fontset_result (xfs
, name
, missing_list
, missing_count
)
2112 char **missing_list
;
2116 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
2119 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
2120 while (missing_count
-- > 0)
2122 fprintf (stderr
, " missing: %s\n", *missing_list
);
2131 xic_create_xfontset (f
)
2134 XFontSet xfs
= NULL
;
2135 struct font
*font
= FRAME_FONT (f
);
2136 int pixel_size
= font
->pixel_size
;
2137 Lisp_Object rest
, frame
;
2139 /* See if there is another frame already using same fontset. */
2140 FOR_EACH_FRAME (rest
, frame
)
2142 struct frame
*cf
= XFRAME (frame
);
2144 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2145 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2147 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
2149 xfs
= FRAME_XIC_FONTSET (cf
);
2157 char **missing_list
;
2160 char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
2162 sprintf (buf
, xlfd_format
, pixel_size
);
2163 missing_list
= NULL
;
2164 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2165 &missing_list
, &missing_count
, &def_string
);
2166 #ifdef DEBUG_XIC_FONTSET
2167 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2170 XFreeStringList (missing_list
);
2173 /* List of pixel sizes most likely available. Find one that
2174 is closest to pixel_size. */
2175 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2176 int *smaller
, *larger
;
2178 for (smaller
= sizes
; smaller
[1]; smaller
++)
2179 if (smaller
[1] >= pixel_size
)
2181 larger
= smaller
+ 1;
2182 if (*larger
== pixel_size
)
2184 while (*smaller
|| *larger
)
2189 this_size
= *smaller
--;
2190 else if (! *smaller
)
2191 this_size
= *larger
++;
2192 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
2193 this_size
= *smaller
--;
2195 this_size
= *larger
++;
2196 sprintf (buf
, xlfd_format
, this_size
);
2197 missing_list
= NULL
;
2198 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2199 &missing_list
, &missing_count
, &def_string
);
2200 #ifdef DEBUG_XIC_FONTSET
2201 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2204 XFreeStringList (missing_list
);
2211 char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
2213 missing_list
= NULL
;
2214 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
2215 &missing_list
, &missing_count
, &def_string
);
2216 #ifdef DEBUG_XIC_FONTSET
2217 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
2220 XFreeStringList (missing_list
);
2228 /* Free the X fontset of frame F if it is the last frame using it. */
2231 xic_free_xfontset (f
)
2234 Lisp_Object rest
, frame
;
2237 if (!FRAME_XIC_FONTSET (f
))
2240 /* See if there is another frame sharing the same fontset. */
2241 FOR_EACH_FRAME (rest
, frame
)
2243 struct frame
*cf
= XFRAME (frame
);
2244 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2245 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2246 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2254 /* The fontset is not used anymore. It is safe to free it. */
2255 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2257 if (FRAME_XIC_BASE_FONTNAME (f
))
2258 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2259 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2260 FRAME_XIC_FONTSET (f
) = NULL
;
2264 /* Value is the best input style, given user preferences USER (already
2265 checked to be supported by Emacs), and styles supported by the
2266 input method XIM. */
2269 best_xim_style (user
, xim
)
2275 for (i
= 0; i
< user
->count_styles
; ++i
)
2276 for (j
= 0; j
< xim
->count_styles
; ++j
)
2277 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2278 return user
->supported_styles
[i
];
2280 /* Return the default style. */
2281 return XIMPreeditNothing
| XIMStatusNothing
;
2284 /* Create XIC for frame F. */
2286 static XIMStyle xic_style
;
2289 create_frame_xic (f
)
2294 XFontSet xfs
= NULL
;
2299 /* Create X fontset. */
2300 xfs
= xic_create_xfontset (f
);
2301 xim
= FRAME_X_XIM (f
);
2306 XVaNestedList preedit_attr
;
2307 XVaNestedList status_attr
;
2309 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2310 spot
.x
= 0; spot
.y
= 1;
2312 /* Determine XIC style. */
2315 XIMStyles supported_list
;
2316 supported_list
.count_styles
= (sizeof supported_xim_styles
2317 / sizeof supported_xim_styles
[0]);
2318 supported_list
.supported_styles
= supported_xim_styles
;
2319 xic_style
= best_xim_style (&supported_list
,
2320 FRAME_X_XIM_STYLES (f
));
2323 preedit_attr
= XVaCreateNestedList (0,
2326 FRAME_FOREGROUND_PIXEL (f
),
2328 FRAME_BACKGROUND_PIXEL (f
),
2329 (xic_style
& XIMPreeditPosition
2334 status_attr
= XVaCreateNestedList (0,
2340 FRAME_FOREGROUND_PIXEL (f
),
2342 FRAME_BACKGROUND_PIXEL (f
),
2345 xic
= XCreateIC (xim
,
2346 XNInputStyle
, xic_style
,
2347 XNClientWindow
, FRAME_X_WINDOW (f
),
2348 XNFocusWindow
, FRAME_X_WINDOW (f
),
2349 XNStatusAttributes
, status_attr
,
2350 XNPreeditAttributes
, preedit_attr
,
2352 XFree (preedit_attr
);
2353 XFree (status_attr
);
2356 FRAME_XIC (f
) = xic
;
2357 FRAME_XIC_STYLE (f
) = xic_style
;
2358 FRAME_XIC_FONTSET (f
) = xfs
;
2362 /* Destroy XIC and free XIC fontset of frame F, if any. */
2368 if (FRAME_XIC (f
) == NULL
)
2371 XDestroyIC (FRAME_XIC (f
));
2372 xic_free_xfontset (f
);
2374 FRAME_XIC (f
) = NULL
;
2378 /* Place preedit area for XIC of window W's frame to specified
2379 pixel position X/Y. X and Y are relative to window W. */
2382 xic_set_preeditarea (w
, x
, y
)
2386 struct frame
*f
= XFRAME (w
->frame
);
2390 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2391 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2392 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2393 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2398 /* Place status area for XIC in bottom right corner of frame F.. */
2401 xic_set_statusarea (f
)
2404 XIC xic
= FRAME_XIC (f
);
2409 /* Negotiate geometry of status area. If input method has existing
2410 status area, use its current size. */
2411 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2412 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2413 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2416 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2417 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2420 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2422 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2423 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2427 area
.width
= needed
->width
;
2428 area
.height
= needed
->height
;
2429 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2430 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2431 - FRAME_MENUBAR_HEIGHT (f
)
2432 - FRAME_TOOLBAR_HEIGHT (f
)
2433 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2436 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2437 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2442 /* Set X fontset for XIC of frame F, using base font name
2443 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2446 xic_set_xfontset (f
, base_fontname
)
2448 char *base_fontname
;
2453 xic_free_xfontset (f
);
2455 xfs
= xic_create_xfontset (f
);
2457 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2458 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2459 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2460 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2461 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2464 FRAME_XIC_FONTSET (f
) = xfs
;
2467 #endif /* HAVE_X_I18N */
2471 #ifdef USE_X_TOOLKIT
2473 /* Create and set up the X widget for frame F. */
2476 x_window (f
, window_prompting
, minibuffer_only
)
2478 long window_prompting
;
2479 int minibuffer_only
;
2481 XClassHint class_hints
;
2482 XSetWindowAttributes attributes
;
2483 unsigned long attribute_mask
;
2484 Widget shell_widget
;
2486 Widget frame_widget
;
2492 /* Use the resource name as the top-level widget name
2493 for looking up resources. Make a non-Lisp copy
2494 for the window manager, so GC relocation won't bother it.
2496 Elsewhere we specify the window name for the window manager. */
2499 char *str
= (char *) SDATA (Vx_resource_name
);
2500 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2501 strcpy (f
->namebuf
, str
);
2505 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2506 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2507 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2508 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2509 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2510 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2511 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2512 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2513 applicationShellWidgetClass
,
2514 FRAME_X_DISPLAY (f
), al
, ac
);
2516 f
->output_data
.x
->widget
= shell_widget
;
2517 /* maybe_set_screen_title_format (shell_widget); */
2519 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2520 (widget_value
*) NULL
,
2521 shell_widget
, False
,
2525 (lw_callback
) NULL
);
2528 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2529 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2530 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2531 XtSetValues (pane_widget
, al
, ac
);
2532 f
->output_data
.x
->column_widget
= pane_widget
;
2534 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2535 the emacs screen when changing menubar. This reduces flickering. */
2538 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2539 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2540 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2541 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2542 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2543 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2544 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2545 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2546 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2549 f
->output_data
.x
->edit_widget
= frame_widget
;
2551 XtManageChild (frame_widget
);
2553 /* Do some needed geometry management. */
2556 char *tem
, shell_position
[32];
2559 int extra_borders
= 0;
2561 = (f
->output_data
.x
->menubar_widget
2562 ? (f
->output_data
.x
->menubar_widget
->core
.height
2563 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2566 #if 0 /* Experimentally, we now get the right results
2567 for -geometry -0-0 without this. 24 Aug 96, rms. */
2568 if (FRAME_EXTERNAL_MENU_BAR (f
))
2571 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2572 menubar_size
+= ibw
;
2576 f
->output_data
.x
->menubar_height
= menubar_size
;
2579 /* Motif seems to need this amount added to the sizes
2580 specified for the shell widget. The Athena/Lucid widgets don't.
2581 Both conclusions reached experimentally. -- rms. */
2582 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2583 &extra_borders
, NULL
);
2587 /* Convert our geometry parameters into a geometry string
2589 Note that we do not specify here whether the position
2590 is a user-specified or program-specified one.
2591 We pass that information later, in x_wm_set_size_hints. */
2593 int left
= f
->left_pos
;
2594 int xneg
= window_prompting
& XNegative
;
2595 int top
= f
->top_pos
;
2596 int yneg
= window_prompting
& YNegative
;
2602 if (window_prompting
& USPosition
)
2603 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2604 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2605 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2606 (xneg
? '-' : '+'), left
,
2607 (yneg
? '-' : '+'), top
);
2610 sprintf (shell_position
, "=%dx%d",
2611 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2612 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2614 /* Setting x and y when the position is not specified in
2615 the geometry string will set program position in the WM hints.
2616 If Emacs had just one program position, we could set it in
2617 fallback resources, but since each make-frame call can specify
2618 different program positions, this is easier. */
2619 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2620 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2624 len
= strlen (shell_position
) + 1;
2625 /* We don't free this because we don't know whether
2626 it is safe to free it while the frame exists.
2627 It isn't worth the trouble of arranging to free it
2628 when the frame is deleted. */
2629 tem
= (char *) xmalloc (len
);
2630 strncpy (tem
, shell_position
, len
);
2631 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2632 XtSetValues (shell_widget
, al
, ac
);
2635 XtManageChild (pane_widget
);
2636 XtRealizeWidget (shell_widget
);
2638 if (FRAME_X_EMBEDDED_P (f
))
2639 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2640 f
->output_data
.x
->parent_desc
, 0, 0);
2642 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2644 validate_x_resource_name ();
2646 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2647 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2648 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2651 FRAME_XIC (f
) = NULL
;
2653 create_frame_xic (f
);
2656 f
->output_data
.x
->wm_hints
.input
= True
;
2657 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2658 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2659 &f
->output_data
.x
->wm_hints
);
2661 hack_wm_protocols (f
, shell_widget
);
2664 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2667 /* Do a stupid property change to force the server to generate a
2668 PropertyNotify event so that the event_stream server timestamp will
2669 be initialized to something relevant to the time we created the window.
2671 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2672 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2673 XA_ATOM
, 32, PropModeAppend
,
2674 (unsigned char*) NULL
, 0);
2676 /* Make all the standard events reach the Emacs frame. */
2677 attributes
.event_mask
= STANDARD_EVENT_SET
;
2682 /* XIM server might require some X events. */
2683 unsigned long fevent
= NoEventMask
;
2684 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2685 attributes
.event_mask
|= fevent
;
2687 #endif /* HAVE_X_I18N */
2689 attribute_mask
= CWEventMask
;
2690 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2691 attribute_mask
, &attributes
);
2693 XtMapWidget (frame_widget
);
2695 /* x_set_name normally ignores requests to set the name if the
2696 requested name is the same as the current name. This is the one
2697 place where that assumption isn't correct; f->name is set, but
2698 the X server hasn't been told. */
2701 int explicit = f
->explicit_name
;
2703 f
->explicit_name
= 0;
2706 x_set_name (f
, name
, explicit);
2709 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2710 f
->output_data
.x
->current_cursor
2711 = f
->output_data
.x
->text_cursor
);
2715 /* This is a no-op, except under Motif. Make sure main areas are
2716 set to something reasonable, in case we get an error later. */
2717 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2720 #else /* not USE_X_TOOLKIT */
2726 if (! xg_create_frame_widgets (f
))
2727 error ("Unable to create window");
2730 FRAME_XIC (f
) = NULL
;
2734 create_frame_xic (f
);
2737 /* XIM server might require some X events. */
2738 unsigned long fevent
= NoEventMask
;
2739 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2741 if (fevent
!= NoEventMask
)
2743 XSetWindowAttributes attributes
;
2744 XWindowAttributes wattr
;
2745 unsigned long attribute_mask
;
2747 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2749 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2750 attribute_mask
= CWEventMask
;
2751 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2752 attribute_mask
, &attributes
);
2760 #else /*! USE_GTK */
2761 /* Create and set up the X window for frame F. */
2768 XClassHint class_hints
;
2769 XSetWindowAttributes attributes
;
2770 unsigned long attribute_mask
;
2772 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2773 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2774 attributes
.bit_gravity
= StaticGravity
;
2775 attributes
.backing_store
= NotUseful
;
2776 attributes
.save_under
= True
;
2777 attributes
.event_mask
= STANDARD_EVENT_SET
;
2778 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2779 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2784 = XCreateWindow (FRAME_X_DISPLAY (f
),
2785 f
->output_data
.x
->parent_desc
,
2788 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2790 CopyFromParent
, /* depth */
2791 InputOutput
, /* class */
2793 attribute_mask
, &attributes
);
2798 create_frame_xic (f
);
2801 /* XIM server might require some X events. */
2802 unsigned long fevent
= NoEventMask
;
2803 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2804 attributes
.event_mask
|= fevent
;
2805 attribute_mask
= CWEventMask
;
2806 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2807 attribute_mask
, &attributes
);
2810 #endif /* HAVE_X_I18N */
2812 validate_x_resource_name ();
2814 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2815 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2816 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2818 /* The menubar is part of the ordinary display;
2819 it does not count in addition to the height of the window. */
2820 f
->output_data
.x
->menubar_height
= 0;
2822 /* This indicates that we use the "Passive Input" input model.
2823 Unless we do this, we don't get the Focus{In,Out} events that we
2824 need to draw the cursor correctly. Accursed bureaucrats.
2825 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2827 f
->output_data
.x
->wm_hints
.input
= True
;
2828 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2829 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2830 &f
->output_data
.x
->wm_hints
);
2831 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2833 /* Request "save yourself" and "delete window" commands from wm. */
2836 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2837 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2838 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2841 /* x_set_name normally ignores requests to set the name if the
2842 requested name is the same as the current name. This is the one
2843 place where that assumption isn't correct; f->name is set, but
2844 the X server hasn't been told. */
2847 int explicit = f
->explicit_name
;
2849 f
->explicit_name
= 0;
2852 x_set_name (f
, name
, explicit);
2855 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2856 f
->output_data
.x
->current_cursor
2857 = f
->output_data
.x
->text_cursor
);
2861 if (FRAME_X_WINDOW (f
) == 0)
2862 error ("Unable to create window");
2865 #endif /* not USE_GTK */
2866 #endif /* not USE_X_TOOLKIT */
2868 /* Verify that the icon position args for this window are valid. */
2871 x_icon_verify (f
, parms
)
2875 Lisp_Object icon_x
, icon_y
;
2877 /* Set the position of the icon. Note that twm groups all
2878 icons in an icon window. */
2879 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2880 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2881 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2883 CHECK_NUMBER (icon_x
);
2884 CHECK_NUMBER (icon_y
);
2886 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2887 error ("Both left and top icon corners of icon must be specified");
2890 /* Handle the icon stuff for this window. Perhaps later we might
2891 want an x_set_icon_position which can be called interactively as
2899 Lisp_Object icon_x
, icon_y
;
2901 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2904 /* Set the position of the icon. Note that twm groups all
2905 icons in an icon window. */
2906 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2907 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2908 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2910 CHECK_NUMBER (icon_x
);
2911 CHECK_NUMBER (icon_y
);
2913 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2914 error ("Both left and top icon corners of icon must be specified");
2918 if (! EQ (icon_x
, Qunbound
))
2919 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2921 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2922 but x_create_frame still needs it. */
2923 /* Start up iconic or window? */
2924 x_wm_set_window_state
2925 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2931 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2938 /* Make the GCs needed for this window, setting the
2939 background, border and mouse colors; also create the
2940 mouse cursor and the gray border tile. */
2942 static char cursor_bits
[] =
2944 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2945 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2946 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2947 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
2954 XGCValues gc_values
;
2958 /* Create the GCs of this frame.
2959 Note that many default values are used. */
2961 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2962 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2963 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2964 f
->output_data
.x
->normal_gc
2965 = XCreateGC (FRAME_X_DISPLAY (f
),
2967 GCLineWidth
| GCForeground
| GCBackground
,
2970 /* Reverse video style. */
2971 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2972 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2973 f
->output_data
.x
->reverse_gc
2974 = XCreateGC (FRAME_X_DISPLAY (f
),
2976 GCForeground
| GCBackground
| GCLineWidth
,
2979 /* Cursor has cursor-color background, background-color foreground. */
2980 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2981 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2982 gc_values
.fill_style
= FillOpaqueStippled
;
2983 f
->output_data
.x
->cursor_gc
2984 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2985 (GCForeground
| GCBackground
2986 | GCFillStyle
| GCLineWidth
),
2990 f
->output_data
.x
->white_relief
.gc
= 0;
2991 f
->output_data
.x
->black_relief
.gc
= 0;
2993 /* Create the gray border tile used when the pointer is not in
2994 the frame. Since this depends on the frame's pixel values,
2995 this must be done on a per-frame basis. */
2996 f
->output_data
.x
->border_tile
2997 = (XCreatePixmapFromBitmapData
2998 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2999 gray_bits
, gray_width
, gray_height
,
3000 FRAME_FOREGROUND_PIXEL (f
),
3001 FRAME_BACKGROUND_PIXEL (f
),
3002 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
3008 /* Free what was was allocated in x_make_gc. */
3014 Display
*dpy
= FRAME_X_DISPLAY (f
);
3018 if (f
->output_data
.x
->normal_gc
)
3020 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
3021 f
->output_data
.x
->normal_gc
= 0;
3024 if (f
->output_data
.x
->reverse_gc
)
3026 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
3027 f
->output_data
.x
->reverse_gc
= 0;
3030 if (f
->output_data
.x
->cursor_gc
)
3032 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
3033 f
->output_data
.x
->cursor_gc
= 0;
3036 if (f
->output_data
.x
->border_tile
)
3038 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
3039 f
->output_data
.x
->border_tile
= 0;
3046 /* Handler for signals raised during x_create_frame and
3047 x_create_top_frame. FRAME is the frame which is partially
3051 unwind_create_frame (frame
)
3054 struct frame
*f
= XFRAME (frame
);
3056 /* If frame is already dead, nothing to do. This can happen if the
3057 display is disconnected after the frame has become official, but
3058 before x_create_frame removes the unwind protect. */
3059 if (!FRAME_LIVE_P (f
))
3062 /* If frame is ``official'', nothing to do. */
3063 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
3066 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
3069 x_free_frame_resources (f
);
3072 /* Check that reference counts are indeed correct. */
3073 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
3074 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
3084 x_default_font_parameter (f
, parms
)
3088 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
3089 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
3092 if (EQ (font_param
, Qunbound
))
3094 font
= !NILP (font_param
) ? font_param
3095 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3097 if (! STRINGP (font
))
3102 /* This will find the normal Xft font. */
3105 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
3106 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3107 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3108 /* This was formerly the first thing tried, but it finds
3109 too many fonts and takes too long. */
3110 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
3111 /* If those didn't work, look for something which will
3113 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
3118 for (i
= 0; names
[i
]; i
++)
3120 font
= font_open_by_name (f
, names
[i
]);
3125 error ("No suitable font was found");
3127 else if (!NILP (font_param
))
3129 /* Remember the explicit font parameter, so we can re-apply it after
3130 we've applied the `default' face settings. */
3131 x_set_frame_parameters (f
, Fcons (Fcons (Qfont_param
, font_param
), Qnil
));
3133 x_default_parameter (f
, parms
, Qfont
, font
, "font", "Font", RES_TYPE_STRING
);
3137 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
3139 doc
: /* Send the size hints for frame FRAME to the window manager.
3140 If FRAME is nil, use the selected frame. */)
3146 frame
= selected_frame
;
3150 x_wm_set_size_hint (f
, 0, 0);
3155 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3157 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3158 Return an Emacs frame object.
3159 PARMS is an alist of frame parameters.
3160 If the parameters specify that the frame should not have a minibuffer,
3161 and do not specify a specific minibuffer window to use,
3162 then `default-minibuffer-frame' must be a frame whose minibuffer can
3163 be shared by the new frame.
3165 This function is an internal primitive--use `make-frame' instead. */)
3170 Lisp_Object frame
, tem
;
3172 int minibuffer_only
= 0;
3173 long window_prompting
= 0;
3175 int count
= SPECPDL_INDEX ();
3176 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3177 Lisp_Object display
;
3178 struct x_display_info
*dpyinfo
= NULL
;
3182 parms
= Fcopy_alist (parms
);
3184 /* Use this general default value to start with
3185 until we know if this frame has a specified name. */
3186 Vx_resource_name
= Vinvocation_name
;
3188 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3189 if (EQ (display
, Qunbound
))
3190 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3191 if (EQ (display
, Qunbound
))
3193 dpyinfo
= check_x_display_info (display
);
3194 kb
= dpyinfo
->terminal
->kboard
;
3196 if (!dpyinfo
->terminal
->name
)
3197 error ("Terminal is not live, can't create new frames on it");
3199 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3201 && ! EQ (name
, Qunbound
)
3203 error ("Invalid frame name--not a string or nil");
3206 Vx_resource_name
= name
;
3208 /* See if parent window is specified. */
3209 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3210 if (EQ (parent
, Qunbound
))
3212 if (! NILP (parent
))
3213 CHECK_NUMBER (parent
);
3215 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3216 /* No need to protect DISPLAY because that's not used after passing
3217 it to make_frame_without_minibuffer. */
3219 GCPRO4 (parms
, parent
, name
, frame
);
3220 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3222 if (EQ (tem
, Qnone
) || NILP (tem
))
3223 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3224 else if (EQ (tem
, Qonly
))
3226 f
= make_minibuffer_frame ();
3227 minibuffer_only
= 1;
3229 else if (WINDOWP (tem
))
3230 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3234 XSETFRAME (frame
, f
);
3236 /* Note that X Windows does support scroll bars. */
3237 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3239 f
->terminal
= dpyinfo
->terminal
;
3240 f
->terminal
->reference_count
++;
3242 f
->output_method
= output_x_window
;
3243 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3244 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3245 f
->output_data
.x
->icon_bitmap
= -1;
3246 FRAME_FONTSET (f
) = -1;
3247 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3248 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3249 #ifdef USE_TOOLKIT_SCROLL_BARS
3250 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3251 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3252 #endif /* USE_TOOLKIT_SCROLL_BARS */
3255 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3257 if (! STRINGP (f
->icon_name
))
3258 f
->icon_name
= Qnil
;
3260 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3262 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3263 record_unwind_protect (unwind_create_frame
, frame
);
3265 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
3266 dpyinfo_refcount
= dpyinfo
->reference_count
;
3267 #endif /* GLYPH_DEBUG */
3269 /* These colors will be set anyway later, but it's important
3270 to get the color reference counts right, so initialize them! */
3273 struct gcpro gcpro1
;
3275 /* Function x_decode_color can signal an error. Make
3276 sure to initialize color slots so that we won't try
3277 to free colors we haven't allocated. */
3278 FRAME_FOREGROUND_PIXEL (f
) = -1;
3279 FRAME_BACKGROUND_PIXEL (f
) = -1;
3280 f
->output_data
.x
->cursor_pixel
= -1;
3281 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3282 f
->output_data
.x
->border_pixel
= -1;
3283 f
->output_data
.x
->mouse_pixel
= -1;
3285 black
= build_string ("black");
3287 FRAME_FOREGROUND_PIXEL (f
)
3288 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3289 FRAME_BACKGROUND_PIXEL (f
)
3290 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3291 f
->output_data
.x
->cursor_pixel
3292 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3293 f
->output_data
.x
->cursor_foreground_pixel
3294 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3295 f
->output_data
.x
->border_pixel
3296 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3297 f
->output_data
.x
->mouse_pixel
3298 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3302 /* Specify the parent under which to make this X window. */
3306 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3307 f
->output_data
.x
->explicit_parent
= 1;
3311 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3312 f
->output_data
.x
->explicit_parent
= 0;
3315 /* Set the name; the functions to which we pass f expect the name to
3317 if (EQ (name
, Qunbound
) || NILP (name
))
3319 f
->name
= build_string (dpyinfo
->x_id_name
);
3320 f
->explicit_name
= 0;
3325 f
->explicit_name
= 1;
3326 /* use the frame's title when getting resources for this frame. */
3327 specbind (Qx_resource_name
, name
);
3330 f
->resx
= dpyinfo
->resx
;
3331 f
->resy
= dpyinfo
->resy
;
3333 #ifdef HAVE_FREETYPE
3335 register_font_driver (&xftfont_driver
, f
);
3336 #else /* not HAVE_XFT */
3337 register_font_driver (&ftxfont_driver
, f
);
3338 #endif /* not HAVE_XFT */
3339 #endif /* HAVE_FREETYPE */
3340 register_font_driver (&xfont_driver
, f
);
3342 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3343 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3345 /* Extract the window parameters from the supplied values
3346 that are needed to determine window geometry. */
3347 x_default_font_parameter (f
, parms
);
3348 if (!FRAME_FONT (f
))
3350 delete_frame (frame
, Qnoelisp
);
3351 error ("Invalid frame font");
3355 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3356 whereby it fails to get any font. */
3357 xlwmenu_default_font
= XLoadQueryFont (FRAME_X_DISPLAY (f
), "fixed");
3360 /* Frame contents get displaced if an embedded X window has a border. */
3361 if (! FRAME_X_EMBEDDED_P (f
))
3362 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3363 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3365 /* This defaults to 1 in order to match xterm. We recognize either
3366 internalBorderWidth or internalBorder (which is what xterm calls
3368 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3372 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3373 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3374 if (! EQ (value
, Qunbound
))
3375 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3378 x_default_parameter (f
, parms
, Qinternal_border_width
,
3379 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3384 "internalBorderWidth", "internalBorderWidth",
3386 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3387 "verticalScrollBars", "ScrollBars",
3390 /* Also do the stuff which must be set before the window exists. */
3391 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3392 "foreground", "Foreground", RES_TYPE_STRING
);
3393 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3394 "background", "Background", RES_TYPE_STRING
);
3395 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3396 "pointerColor", "Foreground", RES_TYPE_STRING
);
3397 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3398 "cursorColor", "Foreground", RES_TYPE_STRING
);
3399 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3400 "borderColor", "BorderColor", RES_TYPE_STRING
);
3401 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3402 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3403 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3404 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3405 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3406 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3407 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3408 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3410 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3411 "scrollBarForeground",
3412 "ScrollBarForeground", 1);
3413 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3414 "scrollBarBackground",
3415 "ScrollBarBackground", 0);
3417 /* Init faces before x_default_parameter is called for scroll-bar
3418 parameters because that function calls x_set_scroll_bar_width,
3419 which calls change_frame_size, which calls Fset_window_buffer,
3420 which runs hooks, which call Fvertical_motion. At the end, we
3421 end up in init_iterator with a null face cache, which should not
3423 init_frame_faces (f
);
3425 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3426 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3427 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3428 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3429 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3430 "bufferPredicate", "BufferPredicate",
3432 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3433 "title", "Title", RES_TYPE_STRING
);
3434 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3435 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3436 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3437 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3439 /* Compute the size of the X window. */
3440 window_prompting
= x_figure_window_size (f
, parms
, 1);
3442 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3443 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3445 x_icon_verify (f
, parms
);
3447 /* Create the X widget or window. */
3448 #ifdef USE_X_TOOLKIT
3449 x_window (f
, window_prompting
, minibuffer_only
);
3457 /* Now consider the frame official. */
3458 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3459 Vframe_list
= Fcons (frame
, Vframe_list
);
3461 /* We need to do this after creating the X window, so that the
3462 icon-creation functions can say whose icon they're describing. */
3463 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3464 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3466 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3467 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3468 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3469 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3470 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3471 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3472 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3473 "scrollBarWidth", "ScrollBarWidth",
3475 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3476 "alpha", "Alpha", RES_TYPE_NUMBER
);
3478 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3479 Change will not be effected unless different from the current
3481 width
= FRAME_COLS (f
);
3482 height
= FRAME_LINES (f
);
3484 SET_FRAME_COLS (f
, 0);
3485 FRAME_LINES (f
) = 0;
3486 change_frame_size (f
, height
, width
, 1, 0, 0);
3488 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3489 /* Create the menu bar. */
3490 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3492 /* If this signals an error, we haven't set size hints for the
3493 frame and we didn't make it visible. */
3494 initialize_frame_menubar (f
);
3497 /* This is a no-op, except under Motif where it arranges the
3498 main window for the widgets on it. */
3499 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3500 f
->output_data
.x
->menubar_widget
,
3501 f
->output_data
.x
->edit_widget
);
3502 #endif /* not USE_GTK */
3504 #endif /* USE_X_TOOLKIT || USE_GTK */
3506 /* Tell the server what size and position, etc, we want, and how
3507 badly we want them. This should be done after we have the menu
3508 bar so that its size can be taken into account. */
3510 x_wm_set_size_hint (f
, window_prompting
, 0);
3513 /* Make the window appear on the frame and enable display, unless
3514 the caller says not to. However, with explicit parent, Emacs
3515 cannot control visibility, so don't try. */
3516 if (! f
->output_data
.x
->explicit_parent
)
3518 Lisp_Object visibility
;
3520 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3522 if (EQ (visibility
, Qunbound
))
3525 if (EQ (visibility
, Qicon
))
3526 x_iconify_frame (f
);
3527 else if (! NILP (visibility
))
3528 x_make_frame_visible (f
);
3530 /* Must have been Qnil. */
3534 /* Set the WM leader property. GTK does this itself, so this is not
3535 needed when using GTK. */
3536 if (dpyinfo
->client_leader_window
!= 0)
3539 XChangeProperty (FRAME_X_DISPLAY (f
),
3540 FRAME_OUTER_WINDOW (f
),
3541 dpyinfo
->Xatom_wm_client_leader
,
3542 XA_WINDOW
, 32, PropModeReplace
,
3543 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3547 /* Initialize `default-minibuffer-frame' in case this is the first
3548 frame on this terminal. */
3549 if (FRAME_HAS_MINIBUF_P (f
)
3550 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3551 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3552 kb
->Vdefault_minibuffer_frame
= frame
;
3554 /* All remaining specified parameters, which have not been "used"
3555 by x_get_arg and friends, now go in the misc. alist of the frame. */
3556 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3557 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3558 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3562 /* Make sure windows on this frame appear in calls to next-window
3563 and similar functions. */
3564 Vwindow_list
= Qnil
;
3566 return unbind_to (count
, frame
);
3570 /* FRAME is used only to get a handle on the X display. We don't pass the
3571 display info directly because we're called from frame.c, which doesn't
3572 know about that structure. */
3575 x_get_focus_frame (frame
)
3576 struct frame
*frame
;
3578 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3580 if (! dpyinfo
->x_focus_frame
)
3583 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3588 /* In certain situations, when the window manager follows a
3589 click-to-focus policy, there seems to be no way around calling
3590 XSetInputFocus to give another frame the input focus .
3592 In an ideal world, XSetInputFocus should generally be avoided so
3593 that applications don't interfere with the window manager's focus
3594 policy. But I think it's okay to use when it's clearly done
3595 following a user-command. */
3597 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3598 doc
: /* Set the input focus to FRAME.
3599 FRAME nil means use the selected frame. */)
3603 struct frame
*f
= check_x_frame (frame
);
3604 Display
*dpy
= FRAME_X_DISPLAY (f
);
3607 x_catch_errors (dpy
);
3608 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3609 RevertToParent
, CurrentTime
);
3610 x_ewmh_activate_frame (f
);
3611 x_uncatch_errors ();
3618 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3619 doc
: /* Internal function called by `color-defined-p', which see. */)
3621 Lisp_Object color
, frame
;
3624 FRAME_PTR f
= check_x_frame (frame
);
3626 CHECK_STRING (color
);
3628 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3634 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3635 doc
: /* Internal function called by `color-values', which see. */)
3637 Lisp_Object color
, frame
;
3640 FRAME_PTR f
= check_x_frame (frame
);
3642 CHECK_STRING (color
);
3644 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3645 return list3 (make_number (foo
.red
),
3646 make_number (foo
.green
),
3647 make_number (foo
.blue
));
3652 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3653 doc
: /* Internal function called by `display-color-p', which see. */)
3655 Lisp_Object terminal
;
3657 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3659 if (dpyinfo
->n_planes
<= 2)
3662 switch (dpyinfo
->visual
->class)
3675 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3677 doc
: /* Return t if the X display supports shades of gray.
3678 Note that color displays do support shades of gray.
3679 The optional argument TERMINAL specifies which display to ask about.
3680 TERMINAL should be a terminal object, a frame or a display name (a string).
3681 If omitted or nil, that stands for the selected frame's display. */)
3683 Lisp_Object terminal
;
3685 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3687 if (dpyinfo
->n_planes
<= 1)
3690 switch (dpyinfo
->visual
->class)
3705 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3707 doc
: /* Return the width in pixels of the X display TERMINAL.
3708 The optional argument TERMINAL specifies which display to ask about.
3709 TERMINAL should be a terminal object, a frame or a display name (a string).
3710 If omitted or nil, that stands for the selected frame's display. */)
3712 Lisp_Object terminal
;
3714 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3716 return make_number (x_display_pixel_width (dpyinfo
));
3719 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3720 Sx_display_pixel_height
, 0, 1, 0,
3721 doc
: /* Return the height in pixels of the X display TERMINAL.
3722 The optional argument TERMINAL specifies which display to ask about.
3723 TERMINAL should be a terminal object, a frame or a display name (a string).
3724 If omitted or nil, that stands for the selected frame's display. */)
3726 Lisp_Object terminal
;
3728 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3730 return make_number (x_display_pixel_height (dpyinfo
));
3733 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3735 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3736 The optional argument TERMINAL specifies which display to ask about.
3737 TERMINAL should be a terminal object, a frame or a display name (a string).
3738 If omitted or nil, that stands for the selected frame's display. */)
3740 Lisp_Object terminal
;
3742 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3744 return make_number (dpyinfo
->n_planes
);
3747 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3749 doc
: /* Return the number of color cells of the X display TERMINAL.
3750 The optional argument TERMINAL specifies which display to ask about.
3751 TERMINAL should be a terminal object, a frame or a display name (a string).
3752 If omitted or nil, that stands for the selected frame's display. */)
3754 Lisp_Object terminal
;
3756 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3758 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3759 XScreenNumberOfScreen (dpyinfo
->screen
));
3761 /* Truncate nr_planes to 24 to avoid integer overflow.
3762 Some displays says 32, but only 24 bits are actually significant.
3763 There are only very few and rare video cards that have more than
3764 24 significant bits. Also 24 bits is more than 16 million colors,
3765 it "should be enough for everyone". */
3766 if (nr_planes
> 24) nr_planes
= 24;
3768 return make_number (1 << nr_planes
);
3771 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3772 Sx_server_max_request_size
,
3774 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3775 The optional argument TERMINAL specifies which display to ask about.
3776 TERMINAL should be a terminal object, a frame or a display name (a string).
3777 If omitted or nil, that stands for the selected frame's display. */)
3779 Lisp_Object terminal
;
3781 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3783 return make_number (MAXREQUEST (dpyinfo
->display
));
3786 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3787 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3788 \(Labelling every distributor as a "vendor" embodies the false assumption
3789 that operating systems cannot be developed and distributed noncommercially.)
3790 The optional argument TERMINAL specifies which display to ask about.
3791 TERMINAL should be a terminal object, a frame or a display name (a string).
3792 If omitted or nil, that stands for the selected frame's display. */)
3794 Lisp_Object terminal
;
3796 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3797 char *vendor
= ServerVendor (dpyinfo
->display
);
3799 if (! vendor
) vendor
= "";
3800 return build_string (vendor
);
3803 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3804 doc
: /* Return the version numbers of the X server of display TERMINAL.
3805 The value is a list of three integers: the major and minor
3806 version numbers of the X Protocol in use, and the distributor-specific release
3807 number. See also the function `x-server-vendor'.
3809 The optional argument TERMINAL specifies which display to ask about.
3810 TERMINAL should be a terminal object, a frame or a display name (a string).
3811 If omitted or nil, that stands for the selected frame's display. */)
3813 Lisp_Object terminal
;
3815 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3816 Display
*dpy
= dpyinfo
->display
;
3818 return Fcons (make_number (ProtocolVersion (dpy
)),
3819 Fcons (make_number (ProtocolRevision (dpy
)),
3820 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3823 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3824 doc
: /* Return the number of screens on the X server of display TERMINAL.
3825 The optional argument TERMINAL specifies which display to ask about.
3826 TERMINAL should be a terminal object, a frame or a display name (a string).
3827 If omitted or nil, that stands for the selected frame's display. */)
3829 Lisp_Object terminal
;
3831 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3833 return make_number (ScreenCount (dpyinfo
->display
));
3836 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3837 doc
: /* Return the height in millimeters of the X display TERMINAL.
3838 The optional argument TERMINAL specifies which display to ask about.
3839 TERMINAL should be a terminal object, a frame or a display name (a string).
3840 If omitted or nil, that stands for the selected frame's display. */)
3842 Lisp_Object terminal
;
3844 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3846 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3849 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3850 doc
: /* Return the width in millimeters of the X display TERMINAL.
3851 The optional argument TERMINAL specifies which display to ask about.
3852 TERMINAL should be a terminal object, a frame or a display name (a string).
3853 If omitted or nil, that stands for the selected frame's display. */)
3855 Lisp_Object terminal
;
3857 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3859 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3862 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3863 Sx_display_backing_store
, 0, 1, 0,
3864 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3865 The value may be `always', `when-mapped', or `not-useful'.
3866 The optional argument TERMINAL specifies which display to ask about.
3867 TERMINAL should be a terminal object, a frame or a display name (a string).
3868 If omitted or nil, that stands for the selected frame's display. */)
3870 Lisp_Object terminal
;
3872 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3875 switch (DoesBackingStore (dpyinfo
->screen
))
3878 result
= intern ("always");
3882 result
= intern ("when-mapped");
3886 result
= intern ("not-useful");
3890 error ("Strange value for BackingStore parameter of screen");
3897 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3898 Sx_display_visual_class
, 0, 1, 0,
3899 doc
: /* Return the visual class of the X display TERMINAL.
3900 The value is one of the symbols `static-gray', `gray-scale',
3901 `static-color', `pseudo-color', `true-color', or `direct-color'.
3903 The optional argument TERMINAL specifies which display to ask about.
3904 TERMINAL should a terminal object, a frame or a display name (a string).
3905 If omitted or nil, that stands for the selected frame's display. */)
3907 Lisp_Object terminal
;
3909 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3912 switch (dpyinfo
->visual
->class)
3915 result
= intern ("static-gray");
3918 result
= intern ("gray-scale");
3921 result
= intern ("static-color");
3924 result
= intern ("pseudo-color");
3927 result
= intern ("true-color");
3930 result
= intern ("direct-color");
3933 error ("Display has an unknown visual class");
3940 DEFUN ("x-display-save-under", Fx_display_save_under
,
3941 Sx_display_save_under
, 0, 1, 0,
3942 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3943 The optional argument TERMINAL specifies which display to ask about.
3944 TERMINAL should be a terminal object, a frame or a display name (a string).
3945 If omitted or nil, that stands for the selected frame's display. */)
3947 Lisp_Object terminal
;
3949 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3951 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3959 register struct frame
*f
;
3961 return FRAME_PIXEL_WIDTH (f
);
3966 register struct frame
*f
;
3968 return FRAME_PIXEL_HEIGHT (f
);
3973 register struct frame
*f
;
3975 return FRAME_COLUMN_WIDTH (f
);
3980 register struct frame
*f
;
3982 return FRAME_LINE_HEIGHT (f
);
3987 register struct frame
*f
;
3989 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3994 /************************************************************************
3996 ************************************************************************/
3999 /* Mapping visual names to visuals. */
4001 static struct visual_class
4008 {"StaticGray", StaticGray
},
4009 {"GrayScale", GrayScale
},
4010 {"StaticColor", StaticColor
},
4011 {"PseudoColor", PseudoColor
},
4012 {"TrueColor", TrueColor
},
4013 {"DirectColor", DirectColor
},
4018 #ifndef HAVE_XSCREENNUMBEROFSCREEN
4020 /* Value is the screen number of screen SCR. This is a substitute for
4021 the X function with the same name when that doesn't exist. */
4024 XScreenNumberOfScreen (scr
)
4025 register Screen
*scr
;
4027 Display
*dpy
= scr
->display
;
4030 for (i
= 0; i
< dpy
->nscreens
; ++i
)
4031 if (scr
== dpy
->screens
+ i
)
4037 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
4040 /* Select the visual that should be used on display DPYINFO. Set
4041 members of DPYINFO appropriately. Called from x_term_init. */
4044 select_visual (dpyinfo
)
4045 struct x_display_info
*dpyinfo
;
4047 Display
*dpy
= dpyinfo
->display
;
4048 Screen
*screen
= dpyinfo
->screen
;
4051 /* See if a visual is specified. */
4052 value
= display_x_get_resource (dpyinfo
,
4053 build_string ("visualClass"),
4054 build_string ("VisualClass"),
4056 if (STRINGP (value
))
4058 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
4059 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4060 depth, a decimal number. NAME is compared with case ignored. */
4061 char *s
= (char *) alloca (SBYTES (value
) + 1);
4066 strcpy (s
, SDATA (value
));
4067 dash
= index (s
, '-');
4070 dpyinfo
->n_planes
= atoi (dash
+ 1);
4074 /* We won't find a matching visual with depth 0, so that
4075 an error will be printed below. */
4076 dpyinfo
->n_planes
= 0;
4078 /* Determine the visual class. */
4079 for (i
= 0; visual_classes
[i
].name
; ++i
)
4080 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4082 class = visual_classes
[i
].class;
4086 /* Look up a matching visual for the specified class. */
4088 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4089 dpyinfo
->n_planes
, class, &vinfo
))
4090 fatal ("Invalid visual specification `%s'", SDATA (value
));
4092 dpyinfo
->visual
= vinfo
.visual
;
4097 XVisualInfo
*vinfo
, vinfo_template
;
4099 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4101 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4102 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4103 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4104 &vinfo_template
, &n_visuals
);
4106 fatal ("Can't get proper X visual info");
4108 dpyinfo
->n_planes
= vinfo
->depth
;
4109 XFree ((char *) vinfo
);
4114 /* Return the X display structure for the display named NAME.
4115 Open a new connection if necessary. */
4117 struct x_display_info
*
4118 x_display_info_for_name (name
)
4122 struct x_display_info
*dpyinfo
;
4124 CHECK_STRING (name
);
4127 if (! EQ (Vinitial_window_system
, intern ("x")))
4128 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4131 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4133 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4136 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4141 /* Use this general default value to start with. */
4142 Vx_resource_name
= Vinvocation_name
;
4144 validate_x_resource_name ();
4146 dpyinfo
= x_term_init (name
, (char *)0,
4147 (char *) SDATA (Vx_resource_name
));
4150 error ("Cannot connect to X server %s", SDATA (name
));
4153 XSETFASTINT (Vwindow_system_version
, 11);
4159 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4161 doc
: /* Open a connection to an X server.
4162 DISPLAY is the name of the display to connect to.
4163 Optional second arg XRM-STRING is a string of resources in xrdb format.
4164 If the optional third arg MUST-SUCCEED is non-nil,
4165 terminate Emacs if we can't open the connection. */)
4166 (display
, xrm_string
, must_succeed
)
4167 Lisp_Object display
, xrm_string
, must_succeed
;
4169 unsigned char *xrm_option
;
4170 struct x_display_info
*dpyinfo
;
4172 CHECK_STRING (display
);
4173 if (! NILP (xrm_string
))
4174 CHECK_STRING (xrm_string
);
4177 if (! EQ (Vinitial_window_system
, intern ("x")))
4178 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4181 if (! NILP (xrm_string
))
4182 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4184 xrm_option
= (unsigned char *) 0;
4186 validate_x_resource_name ();
4188 /* This is what opens the connection and sets x_current_display.
4189 This also initializes many symbols, such as those used for input. */
4190 dpyinfo
= x_term_init (display
, xrm_option
,
4191 (char *) SDATA (Vx_resource_name
));
4195 if (!NILP (must_succeed
))
4196 fatal ("Cannot connect to X server %s.\n\
4197 Check the DISPLAY environment variable or use `-d'.\n\
4198 Also use the `xauth' program to verify that you have the proper\n\
4199 authorization information needed to connect the X server.\n\
4200 An insecure way to solve the problem may be to use `xhost'.\n",
4203 error ("Cannot connect to X server %s", SDATA (display
));
4208 XSETFASTINT (Vwindow_system_version
, 11);
4212 DEFUN ("x-close-connection", Fx_close_connection
,
4213 Sx_close_connection
, 1, 1, 0,
4214 doc
: /* Close the connection to TERMINAL's X server.
4215 For TERMINAL, specify a terminal object, a frame or a display name (a
4216 string). If TERMINAL is nil, that stands for the selected frame's
4219 Lisp_Object terminal
;
4221 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4223 if (dpyinfo
->reference_count
> 0)
4224 error ("Display still has frames on it");
4226 x_delete_terminal (dpyinfo
->terminal
);
4231 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4232 doc
: /* Return the list of display names that Emacs has connections to. */)
4235 Lisp_Object tail
, result
;
4238 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4239 result
= Fcons (XCAR (XCAR (tail
)), result
);
4244 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4245 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4246 If ON is nil, allow buffering of requests.
4247 Turning on synchronization prohibits the Xlib routines from buffering
4248 requests and seriously degrades performance, but makes debugging much
4250 The optional second argument TERMINAL specifies which display to act on.
4251 TERMINAL should be a terminal object, a frame or a display name (a string).
4252 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4254 Lisp_Object terminal
, on
;
4256 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4258 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4263 /* Wait for responses to all X commands issued so far for frame F. */
4270 XSync (FRAME_X_DISPLAY (f
), False
);
4275 /***********************************************************************
4277 ***********************************************************************/
4279 DEFUN ("x-change-window-property", Fx_change_window_property
,
4280 Sx_change_window_property
, 2, 6, 0,
4281 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4282 PROP must be a string.
4283 VALUE may be a string or a list of conses, numbers and/or strings.
4284 If an element in the list is a string, it is converted to
4285 an Atom and the value of the Atom is used. If an element is a cons,
4286 it is converted to a 32 bit number where the car is the 16 top bits and the
4287 cdr is the lower 16 bits.
4288 FRAME nil or omitted means use the selected frame.
4289 If TYPE is given and non-nil, it is the name of the type of VALUE.
4290 If TYPE is not given or nil, the type is STRING.
4291 FORMAT gives the size in bits of each element if VALUE is a list.
4292 It must be one of 8, 16 or 32.
4293 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4294 If OUTER_P is non-nil, the property is changed for the outer X window of
4295 FRAME. Default is to change on the edit X window.
4298 (prop
, value
, frame
, type
, format
, outer_p
)
4299 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4301 struct frame
*f
= check_x_frame (frame
);
4303 Atom target_type
= XA_STRING
;
4304 int element_format
= 8;
4305 unsigned char *data
;
4309 CHECK_STRING (prop
);
4311 if (! NILP (format
))
4313 CHECK_NUMBER (format
);
4314 element_format
= XFASTINT (format
);
4316 if (element_format
!= 8 && element_format
!= 16
4317 && element_format
!= 32)
4318 error ("FORMAT must be one of 8, 16 or 32");
4323 nelements
= x_check_property_data (value
);
4324 if (nelements
== -1)
4325 error ("Bad data in VALUE, must be number, string or cons");
4327 if (element_format
== 8)
4328 data
= (unsigned char *) xmalloc (nelements
);
4329 else if (element_format
== 16)
4330 data
= (unsigned char *) xmalloc (nelements
*2);
4331 else /* format == 32 */
4332 /* The man page for XChangeProperty:
4333 "If the specified format is 32, the property data must be a
4335 This applies even if long is more than 64 bits. The X library
4336 converts to 32 bits before sending to the X server. */
4337 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4339 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4343 CHECK_STRING (value
);
4344 data
= SDATA (value
);
4345 nelements
= SCHARS (value
);
4349 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4352 CHECK_STRING (type
);
4353 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4356 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4357 else w
= FRAME_X_WINDOW (f
);
4359 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4360 prop_atom
, target_type
, element_format
, PropModeReplace
,
4363 if (CONSP (value
)) xfree (data
);
4365 /* Make sure the property is set when we return. */
4366 XFlush (FRAME_X_DISPLAY (f
));
4373 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4374 Sx_delete_window_property
, 1, 2, 0,
4375 doc
: /* Remove window property PROP from X window of FRAME.
4376 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4378 Lisp_Object prop
, frame
;
4380 struct frame
*f
= check_x_frame (frame
);
4383 CHECK_STRING (prop
);
4385 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4386 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4388 /* Make sure the property is removed when we return. */
4389 XFlush (FRAME_X_DISPLAY (f
));
4396 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4398 doc
: /* Value is the value of window property PROP on FRAME.
4399 If FRAME is nil or omitted, use the selected frame.
4400 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4401 is the name of the Atom that denotes the type expected.
4402 If SOURCE is non-nil, get the property on that window instead of from
4403 FRAME. The number 0 denotes the root window.
4404 If DELETE_P is non-nil, delete the property after retreiving it.
4405 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4407 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4408 no value of TYPE. */)
4409 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4410 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4412 struct frame
*f
= check_x_frame (frame
);
4415 Lisp_Object prop_value
= Qnil
;
4416 unsigned char *tmp_data
= NULL
;
4418 Atom target_type
= XA_STRING
;
4420 unsigned long actual_size
, bytes_remaining
;
4421 Window target_window
= FRAME_X_WINDOW (f
);
4422 struct gcpro gcpro1
;
4424 GCPRO1 (prop_value
);
4425 CHECK_STRING (prop
);
4427 if (! NILP (source
))
4429 if (NUMBERP (source
))
4431 if (FLOATP (source
))
4432 target_window
= (Window
) XFLOAT (source
);
4434 target_window
= XFASTINT (source
);
4436 if (target_window
== 0)
4437 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4439 else if (CONSP (source
))
4440 target_window
= cons_to_long (source
);
4446 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4447 target_type
= AnyPropertyType
;
4449 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4452 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4453 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4454 prop_atom
, 0, 0, False
, target_type
,
4455 &actual_type
, &actual_format
, &actual_size
,
4456 &bytes_remaining
, &tmp_data
);
4459 int size
= bytes_remaining
;
4464 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4465 prop_atom
, 0, bytes_remaining
,
4466 ! NILP (delete_p
), target_type
,
4467 &actual_type
, &actual_format
,
4468 &actual_size
, &bytes_remaining
,
4470 if (rc
== Success
&& tmp_data
)
4472 /* The man page for XGetWindowProperty says:
4473 "If the returned format is 32, the returned data is represented
4474 as a long array and should be cast to that type to obtain the
4476 This applies even if long is more than 32 bits, the X library
4477 converts from 32 bit elements received from the X server to long
4478 and passes the long array to us. Thus, for that case bcopy can not
4479 be used. We convert to a 32 bit type here, because so much code
4482 The bytes and offsets passed to XGetWindowProperty refers to the
4483 property and those are indeed in 32 bit quantities if format is
4486 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4489 int *idata
= (int *) tmp_data
;
4490 long *ldata
= (long *) tmp_data
;
4492 for (i
= 0; i
< actual_size
; ++i
)
4493 idata
[i
] = (int) ldata
[i
];
4496 if (NILP (vector_ret_p
))
4497 prop_value
= make_string (tmp_data
, size
);
4499 prop_value
= x_property_data_to_lisp (f
,
4506 if (tmp_data
) XFree (tmp_data
);
4516 /***********************************************************************
4518 ***********************************************************************/
4520 /* Timer function of hourglass_atimer. TIMER is equal to
4523 Display an hourglass pointer on all frames by mapping the frames'
4524 hourglass_window. Set the hourglass_p flag in the frames'
4525 output_data.x structure to indicate that an hourglass cursor is
4526 shown on the frames. */
4529 show_hourglass (timer
)
4530 struct atimer
*timer
;
4532 /* The timer implementation will cancel this timer automatically
4533 after this function has run. Set hourglass_atimer to null
4534 so that we know the timer doesn't have to be canceled. */
4535 hourglass_atimer
= NULL
;
4537 if (!hourglass_shown_p
)
4539 Lisp_Object rest
, frame
;
4543 FOR_EACH_FRAME (rest
, frame
)
4545 struct frame
*f
= XFRAME (frame
);
4547 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4549 Display
*dpy
= FRAME_X_DISPLAY (f
);
4551 #ifdef USE_X_TOOLKIT
4552 if (f
->output_data
.x
->widget
)
4554 if (FRAME_OUTER_WINDOW (f
))
4557 f
->output_data
.x
->hourglass_p
= 1;
4559 if (!f
->output_data
.x
->hourglass_window
)
4561 unsigned long mask
= CWCursor
;
4562 XSetWindowAttributes attrs
;
4564 Window parent
= FRAME_X_WINDOW (f
);
4566 Window parent
= FRAME_OUTER_WINDOW (f
);
4568 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4570 f
->output_data
.x
->hourglass_window
4571 = XCreateWindow (dpy
, parent
,
4572 0, 0, 32000, 32000, 0, 0,
4578 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4584 hourglass_shown_p
= 1;
4590 /* Hide the hourglass pointer on all frames, if it is currently
4596 if (hourglass_shown_p
)
4598 Lisp_Object rest
, frame
;
4601 FOR_EACH_FRAME (rest
, frame
)
4603 struct frame
*f
= XFRAME (frame
);
4606 /* Watch out for newly created frames. */
4607 && f
->output_data
.x
->hourglass_window
)
4609 XUnmapWindow (FRAME_X_DISPLAY (f
),
4610 f
->output_data
.x
->hourglass_window
);
4611 /* Sync here because XTread_socket looks at the
4612 hourglass_p flag that is reset to zero below. */
4613 XSync (FRAME_X_DISPLAY (f
), False
);
4614 f
->output_data
.x
->hourglass_p
= 0;
4618 hourglass_shown_p
= 0;
4625 /***********************************************************************
4627 ***********************************************************************/
4629 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4630 Lisp_Object
, Lisp_Object
));
4631 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4632 Lisp_Object
, int, int, int *, int *));
4634 /* The frame of a currently visible tooltip. */
4636 Lisp_Object tip_frame
;
4638 /* If non-nil, a timer started that hides the last tooltip when it
4641 Lisp_Object tip_timer
;
4644 /* If non-nil, a vector of 3 elements containing the last args
4645 with which x-show-tip was called. See there. */
4647 Lisp_Object last_show_tip_args
;
4649 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4651 Lisp_Object Vx_max_tooltip_size
;
4655 unwind_create_tip_frame (frame
)
4658 Lisp_Object deleted
;
4660 deleted
= unwind_create_frame (frame
);
4661 if (EQ (deleted
, Qt
))
4671 /* Create a frame for a tooltip on the display described by DPYINFO.
4672 PARMS is a list of frame parameters. TEXT is the string to
4673 display in the tip frame. Value is the frame.
4675 Note that functions called here, esp. x_default_parameter can
4676 signal errors, for instance when a specified color name is
4677 undefined. We have to make sure that we're in a consistent state
4678 when this happens. */
4681 x_create_tip_frame (dpyinfo
, parms
, text
)
4682 struct x_display_info
*dpyinfo
;
4683 Lisp_Object parms
, text
;
4686 Lisp_Object frame
, tem
;
4688 long window_prompting
= 0;
4690 int count
= SPECPDL_INDEX ();
4691 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4692 int face_change_count_before
= face_change_count
;
4694 struct buffer
*old_buffer
;
4698 if (!dpyinfo
->terminal
->name
)
4699 error ("Terminal is not live, can't create new frames on it");
4701 parms
= Fcopy_alist (parms
);
4703 /* Get the name of the frame to use for resource lookup. */
4704 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4706 && !EQ (name
, Qunbound
)
4708 error ("Invalid frame name--not a string or nil");
4711 GCPRO3 (parms
, name
, frame
);
4713 XSETFRAME (frame
, f
);
4715 buffer
= Fget_buffer_create (build_string (" *tip*"));
4716 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4717 old_buffer
= current_buffer
;
4718 set_buffer_internal_1 (XBUFFER (buffer
));
4719 current_buffer
->truncate_lines
= Qnil
;
4720 specbind (Qinhibit_read_only
, Qt
);
4721 specbind (Qinhibit_modification_hooks
, Qt
);
4724 set_buffer_internal_1 (old_buffer
);
4726 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4727 record_unwind_protect (unwind_create_tip_frame
, frame
);
4729 f
->terminal
= dpyinfo
->terminal
;
4730 f
->terminal
->reference_count
++;
4732 /* By setting the output method, we're essentially saying that
4733 the frame is live, as per FRAME_LIVE_P. If we get a signal
4734 from this point on, x_destroy_window might screw up reference
4736 f
->output_method
= output_x_window
;
4737 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4738 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4739 f
->output_data
.x
->icon_bitmap
= -1;
4740 FRAME_FONTSET (f
) = -1;
4741 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4742 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4743 #ifdef USE_TOOLKIT_SCROLL_BARS
4744 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4745 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4746 #endif /* USE_TOOLKIT_SCROLL_BARS */
4747 f
->icon_name
= Qnil
;
4748 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4750 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
4751 dpyinfo_refcount
= dpyinfo
->reference_count
;
4752 #endif /* GLYPH_DEBUG */
4753 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4754 f
->output_data
.x
->explicit_parent
= 0;
4756 /* These colors will be set anyway later, but it's important
4757 to get the color reference counts right, so initialize them! */
4760 struct gcpro gcpro1
;
4762 /* Function x_decode_color can signal an error. Make
4763 sure to initialize color slots so that we won't try
4764 to free colors we haven't allocated. */
4765 FRAME_FOREGROUND_PIXEL (f
) = -1;
4766 FRAME_BACKGROUND_PIXEL (f
) = -1;
4767 f
->output_data
.x
->cursor_pixel
= -1;
4768 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4769 f
->output_data
.x
->border_pixel
= -1;
4770 f
->output_data
.x
->mouse_pixel
= -1;
4772 black
= build_string ("black");
4774 FRAME_FOREGROUND_PIXEL (f
)
4775 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4776 FRAME_BACKGROUND_PIXEL (f
)
4777 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4778 f
->output_data
.x
->cursor_pixel
4779 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4780 f
->output_data
.x
->cursor_foreground_pixel
4781 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4782 f
->output_data
.x
->border_pixel
4783 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4784 f
->output_data
.x
->mouse_pixel
4785 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4789 /* Set the name; the functions to which we pass f expect the name to
4791 if (EQ (name
, Qunbound
) || NILP (name
))
4793 f
->name
= build_string (dpyinfo
->x_id_name
);
4794 f
->explicit_name
= 0;
4799 f
->explicit_name
= 1;
4800 /* use the frame's title when getting resources for this frame. */
4801 specbind (Qx_resource_name
, name
);
4804 f
->resx
= dpyinfo
->resx
;
4805 f
->resy
= dpyinfo
->resy
;
4807 register_font_driver (&xfont_driver
, f
);
4808 #ifdef HAVE_FREETYPE
4810 register_font_driver (&xftfont_driver
, f
);
4811 #else /* not HAVE_XFT */
4812 register_font_driver (&ftxfont_driver
, f
);
4813 #endif /* not HAVE_XFT */
4814 #endif /* HAVE_FREETYPE */
4816 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4817 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4819 /* Extract the window parameters from the supplied values that are
4820 needed to determine window geometry. */
4821 x_default_font_parameter (f
, parms
);
4823 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4824 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4826 /* This defaults to 2 in order to match xterm. We recognize either
4827 internalBorderWidth or internalBorder (which is what xterm calls
4829 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4833 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4834 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4835 if (! EQ (value
, Qunbound
))
4836 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4840 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4841 "internalBorderWidth", "internalBorderWidth",
4844 /* Also do the stuff which must be set before the window exists. */
4845 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4846 "foreground", "Foreground", RES_TYPE_STRING
);
4847 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4848 "background", "Background", RES_TYPE_STRING
);
4849 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4850 "pointerColor", "Foreground", RES_TYPE_STRING
);
4851 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4852 "cursorColor", "Foreground", RES_TYPE_STRING
);
4853 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4854 "borderColor", "BorderColor", RES_TYPE_STRING
);
4856 /* Init faces before x_default_parameter is called for scroll-bar
4857 parameters because that function calls x_set_scroll_bar_width,
4858 which calls change_frame_size, which calls Fset_window_buffer,
4859 which runs hooks, which call Fvertical_motion. At the end, we
4860 end up in init_iterator with a null face cache, which should not
4862 init_frame_faces (f
);
4864 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4866 window_prompting
= x_figure_window_size (f
, parms
, 0);
4869 XSetWindowAttributes attrs
;
4873 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4874 if (DoesSaveUnders (dpyinfo
->screen
))
4875 mask
|= CWSaveUnder
;
4877 /* Window managers look at the override-redirect flag to determine
4878 whether or net to give windows a decoration (Xlib spec, chapter
4880 attrs
.override_redirect
= True
;
4881 attrs
.save_under
= True
;
4882 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4883 /* Arrange for getting MapNotify and UnmapNotify events. */
4884 attrs
.event_mask
= StructureNotifyMask
;
4886 = FRAME_X_WINDOW (f
)
4887 = XCreateWindow (FRAME_X_DISPLAY (f
),
4888 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4889 /* x, y, width, height */
4893 CopyFromParent
, InputOutput
, CopyFromParent
,
4900 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4901 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4902 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4903 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4904 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4905 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4907 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4908 Change will not be effected unless different from the current
4910 width
= FRAME_COLS (f
);
4911 height
= FRAME_LINES (f
);
4912 SET_FRAME_COLS (f
, 0);
4913 FRAME_LINES (f
) = 0;
4914 change_frame_size (f
, height
, width
, 1, 0, 0);
4916 /* Add `tooltip' frame parameter's default value. */
4917 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4918 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4921 /* FIXME - can this be done in a similar way to normal frames?
4922 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
4924 /* Set the `display-type' frame parameter before setting up faces. */
4926 Lisp_Object disptype
;
4928 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4929 disptype
= intern ("mono");
4930 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
4931 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4932 disptype
= intern ("grayscale");
4934 disptype
= intern ("color");
4936 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4937 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4941 /* Set up faces after all frame parameters are known. This call
4942 also merges in face attributes specified for new frames.
4944 Frame parameters may be changed if .Xdefaults contains
4945 specifications for the default font. For example, if there is an
4946 `Emacs.default.attributeBackground: pink', the `background-color'
4947 attribute of the frame get's set, which let's the internal border
4948 of the tooltip frame appear in pink. Prevent this. */
4950 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4952 /* Set tip_frame here, so that */
4954 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
4956 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4957 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4965 /* It is now ok to make the frame official even if we get an error
4966 below. And the frame needs to be on Vframe_list or making it
4967 visible won't work. */
4968 Vframe_list
= Fcons (frame
, Vframe_list
);
4970 /* Now that the frame is official, it counts as a reference to
4972 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4974 /* Setting attributes of faces of the tooltip frame from resources
4975 and similar will increment face_change_count, which leads to the
4976 clearing of all current matrices. Since this isn't necessary
4977 here, avoid it by resetting face_change_count to the value it
4978 had before we created the tip frame. */
4979 face_change_count
= face_change_count_before
;
4981 /* Discard the unwind_protect. */
4982 return unbind_to (count
, frame
);
4986 /* Compute where to display tip frame F. PARMS is the list of frame
4987 parameters for F. DX and DY are specified offsets from the current
4988 location of the mouse. WIDTH and HEIGHT are the width and height
4989 of the tooltip. Return coordinates relative to the root window of
4990 the display in *ROOT_X, and *ROOT_Y. */
4993 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4995 Lisp_Object parms
, dx
, dy
;
4997 int *root_x
, *root_y
;
4999 Lisp_Object left
, top
;
5004 /* User-specified position? */
5005 left
= Fcdr (Fassq (Qleft
, parms
));
5006 top
= Fcdr (Fassq (Qtop
, parms
));
5008 /* Move the tooltip window where the mouse pointer is. Resize and
5010 if (!INTEGERP (left
) || !INTEGERP (top
))
5013 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
5014 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
5019 *root_y
= XINT (top
);
5020 else if (*root_y
+ XINT (dy
) <= 0)
5021 *root_y
= 0; /* Can happen for negative dy */
5022 else if (*root_y
+ XINT (dy
) + height
5023 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
5024 /* It fits below the pointer */
5025 *root_y
+= XINT (dy
);
5026 else if (height
+ XINT (dy
) <= *root_y
)
5027 /* It fits above the pointer. */
5028 *root_y
-= height
+ XINT (dy
);
5030 /* Put it on the top. */
5033 if (INTEGERP (left
))
5034 *root_x
= XINT (left
);
5035 else if (*root_x
+ XINT (dx
) <= 0)
5036 *root_x
= 0; /* Can happen for negative dx */
5037 else if (*root_x
+ XINT (dx
) + width
5038 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
5039 /* It fits to the right of the pointer. */
5040 *root_x
+= XINT (dx
);
5041 else if (width
+ XINT (dx
) <= *root_x
)
5042 /* It fits to the left of the pointer. */
5043 *root_x
-= width
+ XINT (dx
);
5045 /* Put it left-justified on the screen--it ought to fit that way. */
5050 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5051 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5052 A tooltip window is a small X window displaying a string.
5054 This is an internal function; Lisp code should call `tooltip-show'.
5056 FRAME nil or omitted means use the selected frame.
5058 PARMS is an optional list of frame parameters which can be used to
5059 change the tooltip's appearance.
5061 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5062 means use the default timeout of 5 seconds.
5064 If the list of frame parameters PARAMS contains a `left' parameters,
5065 the tooltip is displayed at that x-position. Otherwise it is
5066 displayed at the mouse position, with offset DX added (default is 5 if
5067 DX isn't specified). Likewise for the y-position; if a `top' frame
5068 parameter is specified, it determines the y-position of the tooltip
5069 window, otherwise it is displayed at the mouse position, with offset
5070 DY added (default is -10).
5072 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5073 Text larger than the specified size is clipped. */)
5074 (string
, frame
, parms
, timeout
, dx
, dy
)
5075 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
5080 struct buffer
*old_buffer
;
5081 struct text_pos pos
;
5082 int i
, width
, height
;
5083 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5084 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5085 int count
= SPECPDL_INDEX ();
5087 specbind (Qinhibit_redisplay
, Qt
);
5089 GCPRO4 (string
, parms
, frame
, timeout
);
5091 CHECK_STRING (string
);
5092 if (SCHARS (string
) == 0)
5093 string
= make_unibyte_string (" ", 1);
5095 f
= check_x_frame (frame
);
5097 timeout
= make_number (5);
5099 CHECK_NATNUM (timeout
);
5102 dx
= make_number (5);
5107 dy
= make_number (-10);
5111 if (NILP (last_show_tip_args
))
5112 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5114 if (!NILP (tip_frame
))
5116 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5117 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5118 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5120 if (EQ (frame
, last_frame
)
5121 && !NILP (Fequal (last_string
, string
))
5122 && !NILP (Fequal (last_parms
, parms
)))
5124 struct frame
*f
= XFRAME (tip_frame
);
5126 /* Only DX and DY have changed. */
5127 if (!NILP (tip_timer
))
5129 Lisp_Object timer
= tip_timer
;
5131 call1 (Qcancel_timer
, timer
);
5135 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5136 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5137 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5144 /* Hide a previous tip, if any. */
5147 ASET (last_show_tip_args
, 0, string
);
5148 ASET (last_show_tip_args
, 1, frame
);
5149 ASET (last_show_tip_args
, 2, parms
);
5151 /* Add default values to frame parameters. */
5152 if (NILP (Fassq (Qname
, parms
)))
5153 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5154 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5155 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5156 if (NILP (Fassq (Qborder_width
, parms
)))
5157 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5158 if (NILP (Fassq (Qborder_color
, parms
)))
5159 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5160 if (NILP (Fassq (Qbackground_color
, parms
)))
5161 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5164 /* Create a frame for the tooltip, and record it in the global
5165 variable tip_frame. */
5166 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5169 /* Set up the frame's root window. */
5170 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5171 w
->left_col
= w
->top_line
= make_number (0);
5173 if (CONSP (Vx_max_tooltip_size
)
5174 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5175 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5176 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5177 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5179 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5180 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5184 w
->total_cols
= make_number (80);
5185 w
->total_lines
= make_number (40);
5188 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5190 w
->pseudo_window_p
= 1;
5192 /* Display the tooltip text in a temporary buffer. */
5193 old_buffer
= current_buffer
;
5194 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5195 current_buffer
->truncate_lines
= Qnil
;
5196 clear_glyph_matrix (w
->desired_matrix
);
5197 clear_glyph_matrix (w
->current_matrix
);
5198 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5199 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5201 /* Compute width and height of the tooltip. */
5203 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5205 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5209 /* Stop at the first empty row at the end. */
5210 if (!row
->enabled_p
|| !row
->displays_text_p
)
5213 /* Let the row go over the full width of the frame. */
5214 row
->full_width_p
= 1;
5216 /* There's a glyph at the end of rows that is used to place
5217 the cursor there. Don't include the width of this glyph. */
5218 if (row
->used
[TEXT_AREA
])
5220 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5221 row_width
= row
->pixel_width
- last
->pixel_width
;
5224 row_width
= row
->pixel_width
;
5226 height
+= row
->height
;
5227 width
= max (width
, row_width
);
5230 /* Add the frame's internal border to the width and height the X
5231 window should have. */
5232 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5233 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5235 /* Move the tooltip window where the mouse pointer is. Resize and
5237 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5240 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5241 root_x
, root_y
, width
, height
);
5242 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5245 /* Draw into the window. */
5246 w
->must_be_updated_p
= 1;
5247 update_single_window (w
, 1);
5249 /* Restore original current buffer. */
5250 set_buffer_internal_1 (old_buffer
);
5251 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5254 /* Let the tip disappear after timeout seconds. */
5255 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5256 intern ("x-hide-tip"));
5259 return unbind_to (count
, Qnil
);
5263 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5264 doc
: /* Hide the current tooltip window, if there is any.
5265 Value is t if tooltip was open, nil otherwise. */)
5269 Lisp_Object deleted
, frame
, timer
;
5270 struct gcpro gcpro1
, gcpro2
;
5272 /* Return quickly if nothing to do. */
5273 if (NILP (tip_timer
) && NILP (tip_frame
))
5278 GCPRO2 (frame
, timer
);
5279 tip_frame
= tip_timer
= deleted
= Qnil
;
5281 count
= SPECPDL_INDEX ();
5282 specbind (Qinhibit_redisplay
, Qt
);
5283 specbind (Qinhibit_quit
, Qt
);
5286 call1 (Qcancel_timer
, timer
);
5290 delete_frame (frame
, Qnil
);
5294 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5295 redisplay procedure is not called when a tip frame over menu
5296 items is unmapped. Redisplay the menu manually... */
5298 struct frame
*f
= SELECTED_FRAME ();
5299 Widget w
= f
->output_data
.x
->menubar_widget
;
5300 extern void xlwmenu_redisplay
P_ ((Widget
));
5302 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5306 xlwmenu_redisplay (w
);
5310 #endif /* USE_LUCID */
5314 return unbind_to (count
, deleted
);
5319 /***********************************************************************
5320 File selection dialog
5321 ***********************************************************************/
5323 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5324 Sx_uses_old_gtk_dialog
,
5326 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5330 extern int use_dialog_box
;
5331 extern int use_file_dialog
;
5336 && xg_uses_old_file_dialog ())
5344 /* Callback for "OK" and "Cancel" on file selection dialog. */
5347 file_dialog_cb (widget
, client_data
, call_data
)
5349 XtPointer call_data
, client_data
;
5351 int *result
= (int *) client_data
;
5352 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5353 *result
= cb
->reason
;
5357 /* Callback for unmapping a file selection dialog. This is used to
5358 capture the case where a dialog is closed via a window manager's
5359 closer button, for example. Using a XmNdestroyCallback didn't work
5363 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5365 XtPointer call_data
, client_data
;
5367 int *result
= (int *) client_data
;
5368 *result
= XmCR_CANCEL
;
5372 clean_up_file_dialog (arg
)
5375 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5376 Widget dialog
= (Widget
) p
->pointer
;
5380 XtUnmanageChild (dialog
);
5381 XtDestroyWidget (dialog
);
5382 x_menu_set_in_use (0);
5389 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5390 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5391 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5392 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5393 or directory must exist. ONLY-DIR-P is ignored." */)
5394 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5395 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5398 struct frame
*f
= SELECTED_FRAME ();
5399 Lisp_Object file
= Qnil
;
5400 Lisp_Object decoded_file
;
5401 Widget dialog
, text
, help
;
5404 extern XtAppContext Xt_app_con
;
5405 XmString dir_xmstring
, pattern_xmstring
;
5406 int count
= SPECPDL_INDEX ();
5407 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5411 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5413 if (popup_activated ())
5414 error ("Trying to use a menu from within a menu-entry");
5416 CHECK_STRING (prompt
);
5419 /* Prevent redisplay. */
5420 specbind (Qinhibit_redisplay
, Qt
);
5424 /* Create the dialog with PROMPT as title, using DIR as initial
5425 directory and using "*" as pattern. */
5426 dir
= Fexpand_file_name (dir
, Qnil
);
5427 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5428 pattern_xmstring
= XmStringCreateLocalized ("*");
5430 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5431 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5432 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5433 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5434 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5435 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5437 XmStringFree (dir_xmstring
);
5438 XmStringFree (pattern_xmstring
);
5440 /* Add callbacks for OK and Cancel. */
5441 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5442 (XtPointer
) &result
);
5443 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5444 (XtPointer
) &result
);
5445 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5446 (XtPointer
) &result
);
5448 /* Remove the help button since we can't display help. */
5449 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5450 XtUnmanageChild (help
);
5452 /* Mark OK button as default. */
5453 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5454 XmNshowAsDefault
, True
, NULL
);
5456 /* If MUSTMATCH is non-nil, disable the file entry field of the
5457 dialog, so that the user must select a file from the files list
5458 box. We can't remove it because we wouldn't have a way to get at
5459 the result file name, then. */
5460 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5461 if (!NILP (mustmatch
))
5464 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5465 XtSetSensitive (text
, False
);
5466 XtSetSensitive (label
, False
);
5469 /* Manage the dialog, so that list boxes get filled. */
5470 XtManageChild (dialog
);
5472 if (STRINGP (default_filename
))
5474 XmString default_xmstring
;
5475 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5476 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5478 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5479 XmTextFieldReplace (wtext
, 0, last_pos
,
5480 (SDATA (Ffile_name_nondirectory (default_filename
))));
5482 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5483 must include the path for this to work. */
5485 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5487 if (XmListItemExists (list
, default_xmstring
))
5489 int item_pos
= XmListItemPos (list
, default_xmstring
);
5490 /* Select the item and scroll it into view. */
5491 XmListSelectPos (list
, item_pos
, True
);
5492 XmListSetPos (list
, item_pos
);
5495 XmStringFree (default_xmstring
);
5498 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5500 /* Process events until the user presses Cancel or OK. */
5501 x_menu_set_in_use (1);
5506 x_menu_wait_for_event (0);
5507 XtAppNextEvent (Xt_app_con
, &event
);
5508 if (event
.type
== KeyPress
5509 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5511 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5513 /* Pop down on C-g. */
5514 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5515 XtUnmanageChild (dialog
);
5518 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5521 /* Get the result. */
5522 if (result
== XmCR_OK
)
5527 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5528 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5529 XmStringFree (text
);
5530 file
= build_string (data
);
5539 /* Make "Cancel" equivalent to C-g. */
5541 Fsignal (Qquit
, Qnil
);
5543 decoded_file
= DECODE_FILE (file
);
5545 return unbind_to (count
, decoded_file
);
5548 #endif /* USE_MOTIF */
5553 clean_up_dialog (arg
)
5556 x_menu_set_in_use (0);
5561 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5562 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5563 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5564 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5565 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5567 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5568 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5570 FRAME_PTR f
= SELECTED_FRAME ();
5572 Lisp_Object file
= Qnil
;
5573 Lisp_Object decoded_file
;
5574 int count
= SPECPDL_INDEX ();
5575 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5580 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5582 if (popup_activated ())
5583 error ("Trying to use a menu from within a menu-entry");
5585 CHECK_STRING (prompt
);
5588 /* Prevent redisplay. */
5589 specbind (Qinhibit_redisplay
, Qt
);
5590 record_unwind_protect (clean_up_dialog
, Qnil
);
5594 if (STRINGP (default_filename
))
5595 cdef_file
= SDATA (default_filename
);
5597 cdef_file
= SDATA (dir
);
5599 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5601 ! NILP (only_dir_p
));
5605 file
= build_string (fn
);
5612 /* Make "Cancel" equivalent to C-g. */
5614 Fsignal (Qquit
, Qnil
);
5616 decoded_file
= DECODE_FILE (file
);
5618 return unbind_to (count
, decoded_file
);
5622 #ifdef HAVE_FREETYPE
5624 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5625 doc
: /* Read a font name using a GTK font selection dialog.
5626 Return a GTK-style font string corresponding to the selection.
5628 If FRAME is omitted or nil, it defaults to the selected frame. */)
5630 Lisp_Object frame
, ignored
;
5632 FRAME_PTR f
= check_x_frame (frame
);
5634 Lisp_Object default_font
, font
= Qnil
;
5635 Lisp_Object font_param
;
5636 char *default_name
= NULL
;
5637 struct gcpro gcpro1
;
5638 int count
= SPECPDL_INDEX ();
5642 if (popup_activated ())
5643 error ("Trying to use a menu from within a menu-entry");
5645 /* Prevent redisplay. */
5646 specbind (Qinhibit_redisplay
, Qt
);
5647 record_unwind_protect (clean_up_dialog
, Qnil
);
5652 font_param
= Fframe_parameter (frame
, Qfont_param
);
5654 if (x_last_font_name
!= NULL
)
5655 default_name
= x_last_font_name
;
5656 else if (STRINGP (font_param
))
5657 default_name
= SDATA (font_param
);
5658 else if (FONTP (default_font
))
5660 XSETFONT (default_font
, FRAME_FONT (f
));
5661 default_name
= alloca (256);
5662 if (font_unparse_gtkname (default_font
, f
, default_name
, 256) < 0)
5663 default_name
= NULL
;
5666 name
= xg_get_font_name (f
, default_name
);
5670 font
= build_string (name
);
5671 g_free (x_last_font_name
);
5672 x_last_font_name
= name
;
5678 Fsignal (Qquit
, Qnil
);
5680 return unbind_to (count
, font
);
5682 #endif /* HAVE_FREETYPE */
5684 #endif /* USE_GTK */
5687 /***********************************************************************
5689 ***********************************************************************/
5691 #ifdef HAVE_XKBGETKEYBOARD
5692 #include <X11/XKBlib.h>
5693 #include <X11/keysym.h>
5696 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5697 Sx_backspace_delete_keys_p
, 0, 1, 0,
5698 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5699 FRAME nil means use the selected frame.
5700 Value is t if we know that both keys are present, and are mapped to the
5701 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5702 present and mapped to the usual X keysyms. */)
5706 #ifdef HAVE_XKBGETKEYBOARD
5708 struct frame
*f
= check_x_frame (frame
);
5709 Display
*dpy
= FRAME_X_DISPLAY (f
);
5710 Lisp_Object have_keys
;
5711 int major
, minor
, op
, event
, error
;
5715 /* Check library version in case we're dynamically linked. */
5716 major
= XkbMajorVersion
;
5717 minor
= XkbMinorVersion
;
5718 if (!XkbLibraryVersion (&major
, &minor
))
5724 /* Check that the server supports XKB. */
5725 major
= XkbMajorVersion
;
5726 minor
= XkbMinorVersion
;
5727 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5733 /* In this code we check that the keyboard has physical keys with names
5734 that start with BKSP (Backspace) and DELE (Delete), and that they
5735 generate keysym XK_BackSpace and XK_Delete respectively.
5736 This function is used to test if normal-erase-is-backspace should be
5738 An alternative approach would be to just check if XK_BackSpace and
5739 XK_Delete are mapped to any key. But if any of those are mapped to
5740 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5741 user doesn't know about it, it is better to return false here.
5742 It is more obvious to the user what to do if she/he has two keys
5743 clearly marked with names/symbols and one key does something not
5744 expected (i.e. she/he then tries the other).
5745 The cases where Backspace/Delete is mapped to some other key combination
5746 are rare, and in those cases, normal-erase-is-backspace can be turned on
5750 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5753 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5755 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5757 for (i
= kb
->min_key_code
;
5758 (i
< kb
->max_key_code
5759 && (delete_keycode
== 0 || backspace_keycode
== 0));
5762 /* The XKB symbolic key names can be seen most easily in
5763 the PS file generated by `xkbprint -label name
5765 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5767 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5768 backspace_keycode
= i
;
5771 XkbFreeNames (kb
, 0, True
);
5774 XkbFreeClientMap (kb
, 0, True
);
5777 && backspace_keycode
5778 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5779 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5784 #else /* not HAVE_XKBGETKEYBOARD */
5786 #endif /* not HAVE_XKBGETKEYBOARD */
5791 /***********************************************************************
5793 ***********************************************************************/
5795 /* Keep this list in the same order as frame_parms in frame.c.
5796 Use 0 for unsupported frame parameters. */
5798 frame_parm_handler x_frame_parm_handlers
[] =
5802 x_set_background_color
,
5808 x_set_foreground_color
,
5811 x_set_internal_border_width
,
5812 x_set_menu_bar_lines
,
5814 x_explicitly_set_name
,
5815 x_set_scroll_bar_width
,
5818 x_set_vertical_scroll_bars
,
5820 x_set_tool_bar_lines
,
5821 x_set_scroll_bar_foreground
,
5822 x_set_scroll_bar_background
,
5837 /* This is zero if not using X windows. */
5840 /* The section below is built by the lisp expression at the top of the file,
5841 just above where these variables are declared. */
5842 /*&&& init symbols here &&&*/
5843 Qnone
= intern ("none");
5845 Qsuppress_icon
= intern ("suppress-icon");
5846 staticpro (&Qsuppress_icon
);
5847 Qundefined_color
= intern ("undefined-color");
5848 staticpro (&Qundefined_color
);
5849 Qcompound_text
= intern ("compound-text");
5850 staticpro (&Qcompound_text
);
5851 Qcancel_timer
= intern ("cancel-timer");
5852 staticpro (&Qcancel_timer
);
5853 Qfont_param
= intern ("font-parameter");
5854 staticpro (&Qfont_param
);
5855 /* This is the end of symbol initialization. */
5857 /* Text property `display' should be nonsticky by default. */
5858 Vtext_property_default_nonsticky
5859 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5862 Fput (Qundefined_color
, Qerror_conditions
,
5863 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
5864 Fput (Qundefined_color
, Qerror_message
,
5865 build_string ("Undefined color"));
5867 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5868 doc
: /* The shape of the pointer when over text.
5869 Changing the value does not affect existing frames
5870 unless you set the mouse color. */);
5871 Vx_pointer_shape
= Qnil
;
5873 #if 0 /* This doesn't really do anything. */
5874 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5875 doc
: /* The shape of the pointer when not over text.
5876 This variable takes effect when you create a new frame
5877 or when you set the mouse color. */);
5879 Vx_nontext_pointer_shape
= Qnil
;
5881 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5882 doc
: /* The shape of the pointer when Emacs is busy.
5883 This variable takes effect when you create a new frame
5884 or when you set the mouse color. */);
5885 Vx_hourglass_pointer_shape
= Qnil
;
5887 #if 0 /* This doesn't really do anything. */
5888 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5889 doc
: /* The shape of the pointer when over the mode line.
5890 This variable takes effect when you create a new frame
5891 or when you set the mouse color. */);
5893 Vx_mode_pointer_shape
= Qnil
;
5895 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5896 &Vx_sensitive_text_pointer_shape
,
5897 doc
: /* The shape of the pointer when over mouse-sensitive text.
5898 This variable takes effect when you create a new frame
5899 or when you set the mouse color. */);
5900 Vx_sensitive_text_pointer_shape
= Qnil
;
5902 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5903 &Vx_window_horizontal_drag_shape
,
5904 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5905 This variable takes effect when you create a new frame
5906 or when you set the mouse color. */);
5907 Vx_window_horizontal_drag_shape
= Qnil
;
5909 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5910 doc
: /* A string indicating the foreground color of the cursor box. */);
5911 Vx_cursor_fore_pixel
= Qnil
;
5913 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5914 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5915 Text larger than this is clipped. */);
5916 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5918 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5919 doc
: /* Non-nil if no X window manager is in use.
5920 Emacs doesn't try to figure this out; this is always nil
5921 unless you set it to something else. */);
5922 /* We don't have any way to find this out, so set it to nil
5923 and maybe the user would like to set it to t. */
5924 Vx_no_window_manager
= Qnil
;
5926 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5927 &Vx_pixel_size_width_font_regexp
,
5928 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5930 Since Emacs gets width of a font matching with this regexp from
5931 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5932 such a font. This is especially effective for such large fonts as
5933 Chinese, Japanese, and Korean. */);
5934 Vx_pixel_size_width_font_regexp
= Qnil
;
5936 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5937 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", &x_gtk_use_old_file_dialog
,
5938 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5939 If nil or if the file selection dialog is not available, the new GTK file
5940 chooser is used instead. To turn off all file dialogs set the
5941 variable `use-file-dialog'. */);
5942 x_gtk_use_old_file_dialog
= 0;
5944 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5945 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5946 Note that this is just the default, there is a toggle button on the file
5947 chooser to show or not show hidden files on a case by case basis. */);
5948 x_gtk_show_hidden_files
= 0;
5950 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", &x_gtk_file_dialog_help_text
,
5951 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
5952 If more space for files in the file chooser dialog is wanted, set this to nil
5953 to turn the additional text off. */);
5954 x_gtk_file_dialog_help_text
= 1;
5956 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
5957 doc
: /* *If non-nil, a detached tool bar is shown in full.
5958 The default is to just show an arrow and pressing on that arrow shows
5959 the tool bar buttons. */);
5960 x_gtk_whole_detached_tool_bar
= 0;
5962 Fprovide (intern ("x"), Qnil
);
5964 #ifdef USE_X_TOOLKIT
5965 Fprovide (intern ("x-toolkit"), Qnil
);
5967 Fprovide (intern ("motif"), Qnil
);
5969 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5970 doc
: /* Version info for LessTif/Motif. */);
5971 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5972 #endif /* USE_MOTIF */
5973 #endif /* USE_X_TOOLKIT */
5976 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5977 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5978 But for a user it is a toolkit for X, and indeed, configure
5979 accepts --with-x-toolkit=gtk. */
5980 Fprovide (intern ("x-toolkit"), Qnil
);
5981 Fprovide (intern ("gtk"), Qnil
);
5983 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5984 doc
: /* Version info for GTK+. */);
5986 char gtk_version
[40];
5987 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5988 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5989 Vgtk_version_string
= build_string (gtk_version
);
5991 #endif /* USE_GTK */
5993 /* X window properties. */
5994 defsubr (&Sx_change_window_property
);
5995 defsubr (&Sx_delete_window_property
);
5996 defsubr (&Sx_window_property
);
5998 defsubr (&Sxw_display_color_p
);
5999 defsubr (&Sx_display_grayscale_p
);
6000 defsubr (&Sxw_color_defined_p
);
6001 defsubr (&Sxw_color_values
);
6002 defsubr (&Sx_server_max_request_size
);
6003 defsubr (&Sx_server_vendor
);
6004 defsubr (&Sx_server_version
);
6005 defsubr (&Sx_display_pixel_width
);
6006 defsubr (&Sx_display_pixel_height
);
6007 defsubr (&Sx_display_mm_width
);
6008 defsubr (&Sx_display_mm_height
);
6009 defsubr (&Sx_display_screens
);
6010 defsubr (&Sx_display_planes
);
6011 defsubr (&Sx_display_color_cells
);
6012 defsubr (&Sx_display_visual_class
);
6013 defsubr (&Sx_display_backing_store
);
6014 defsubr (&Sx_display_save_under
);
6015 defsubr (&Sx_wm_set_size_hint
);
6016 defsubr (&Sx_create_frame
);
6017 defsubr (&Sx_open_connection
);
6018 defsubr (&Sx_close_connection
);
6019 defsubr (&Sx_display_list
);
6020 defsubr (&Sx_synchronize
);
6021 defsubr (&Sx_focus_frame
);
6022 defsubr (&Sx_backspace_delete_keys_p
);
6024 /* Setting callback functions for fontset handler. */
6025 check_window_system_func
= check_x
;
6027 defsubr (&Sx_show_tip
);
6028 defsubr (&Sx_hide_tip
);
6030 staticpro (&tip_timer
);
6032 staticpro (&tip_frame
);
6034 last_show_tip_args
= Qnil
;
6035 staticpro (&last_show_tip_args
);
6037 defsubr (&Sx_uses_old_gtk_dialog
);
6038 #if defined (USE_MOTIF) || defined (USE_GTK)
6039 defsubr (&Sx_file_dialog
);
6042 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
6043 defsubr (&Sx_select_font
);
6044 x_last_font_name
= NULL
;
6048 #endif /* HAVE_X_WINDOWS */
6050 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
6051 (do not change this comment) */