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/>. */
30 /* This makes the fields of a Display accessible, in Xlib header files. */
32 #define XLIB_ILLEGAL_ACCESS
39 #include "intervals.h"
40 #include "dispextern.h"
42 #include "blockinput.h"
44 #include "character.h"
49 #include "termhooks.h"
57 #include <sys/types.h>
60 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
61 #include "bitmaps/gray.xbm"
63 #include <X11/bitmaps/gray>
71 #include <X11/Shell.h>
75 #include <X11/Xaw3d/Paned.h>
76 #include <X11/Xaw3d/Label.h>
77 #else /* !HAVE_XAW3D */
78 #include <X11/Xaw/Paned.h>
79 #include <X11/Xaw/Label.h>
80 #endif /* HAVE_XAW3D */
81 #endif /* USE_MOTIF */
84 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
93 #include "../lwlib/lwlib.h"
97 #include <Xm/DialogS.h>
98 #include <Xm/FileSB.h>
101 #include "xsettings.h"
103 #if !defined(NO_EDITRES)
105 extern void _XEditResCheckMessages ();
106 #endif /* not defined NO_EDITRES */
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 && gtk_widget_get_toplevel (gwdesc
) == x
->widget
)
383 if (wdesc
== XtWindow (x
->widget
)
384 || wdesc
== XtWindow (x
->column_widget
)
385 || wdesc
== XtWindow (x
->edit_widget
))
387 /* Match if the window is this frame's menubar. */
388 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
392 else if (FRAME_X_WINDOW (f
) == wdesc
)
393 /* A tooltip frame. */
401 /* Likewise, but consider only the menu bar widget. */
404 x_menubar_window_to_frame (dpyinfo
, wdesc
)
405 struct x_display_info
*dpyinfo
;
408 Lisp_Object tail
, frame
;
412 if (wdesc
== None
) return 0;
414 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
420 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
422 x
= f
->output_data
.x
;
423 /* Match if the window is this frame's menubar. */
425 if (x
->menubar_widget
)
427 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
429 /* This gives false positives, but the rectangle check in xterm.c
430 where this is called takes care of that. */
432 && (gwdesc
== x
->menubar_widget
433 || gtk_widget_is_ancestor (x
->menubar_widget
, gwdesc
)
434 || gtk_widget_is_ancestor (gwdesc
, x
->menubar_widget
)))
438 if (x
->menubar_widget
439 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
446 /* Return the frame whose principal (outermost) window is WDESC.
447 If WDESC is some other (smaller) window, we return 0. */
450 x_top_window_to_frame (dpyinfo
, wdesc
)
451 struct x_display_info
*dpyinfo
;
454 Lisp_Object tail
, frame
;
458 if (wdesc
== None
) return 0;
460 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
466 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
468 x
= f
->output_data
.x
;
472 /* This frame matches if the window is its topmost widget. */
474 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
475 if (gwdesc
== x
->widget
)
478 if (wdesc
== XtWindow (x
->widget
))
480 #if 0 /* I don't know why it did this,
481 but it seems logically wrong,
482 and it causes trouble for MapNotify events. */
483 /* Match if the window is this frame's menubar. */
484 if (x
->menubar_widget
485 && wdesc
== XtWindow (x
->menubar_widget
))
490 else if (FRAME_X_WINDOW (f
) == wdesc
)
496 #endif /* USE_X_TOOLKIT || USE_GTK */
500 static void x_default_font_parameter
P_ ((struct frame
*, Lisp_Object
));
502 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
503 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
505 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
506 static void x_set_wait_for_wm
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
507 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
508 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
509 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
510 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
511 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
512 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
513 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
514 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
515 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
516 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
517 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
518 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
520 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
522 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
529 /* Store the screen positions of frame F into XPTR and YPTR.
530 These are the positions of the containing window manager window,
531 not Emacs's own window. */
534 x_real_positions (f
, xptr
, yptr
)
538 int win_x
, win_y
, outer_x
, outer_y
;
539 int real_x
= 0, real_y
= 0;
541 Window win
= f
->output_data
.x
->parent_desc
;
545 x_catch_errors (FRAME_X_DISPLAY (f
));
547 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
548 win
= FRAME_OUTER_WINDOW (f
);
550 /* This loop traverses up the containment tree until we hit the root
551 window. Window managers may intersect many windows between our window
552 and the root window. The window we find just before the root window
553 should be the outer WM window. */
556 Window wm_window
, rootw
;
557 Window
*tmp_children
;
558 unsigned int tmp_nchildren
;
561 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
562 &wm_window
, &tmp_children
, &tmp_nchildren
);
564 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
566 /* Don't free tmp_children if XQueryTree failed. */
570 XFree ((char *) tmp_children
);
572 if (wm_window
== rootw
|| had_errors
)
583 /* Get the real coordinates for the WM window upper left corner */
584 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
585 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
587 /* Translate real coordinates to coordinates relative to our
588 window. For our window, the upper left corner is 0, 0.
589 Since the upper left corner of the WM window is outside
590 our window, win_x and win_y will be negative:
592 ------------------ ---> x
594 | ----------------- v y
597 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
599 /* From-window, to-window. */
600 FRAME_X_DISPLAY_INFO (f
)->root_window
,
603 /* From-position, to-position. */
604 real_x
, real_y
, &win_x
, &win_y
,
609 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
616 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
618 /* From-window, to-window. */
619 FRAME_X_DISPLAY_INFO (f
)->root_window
,
620 FRAME_OUTER_WINDOW (f
),
622 /* From-position, to-position. */
623 real_x
, real_y
, &outer_x
, &outer_y
,
629 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
636 if (had_errors
) return;
638 f
->x_pixels_diff
= -win_x
;
639 f
->y_pixels_diff
= -win_y
;
641 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
642 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
651 /* Gamma-correct COLOR on frame F. */
654 gamma_correct (f
, color
)
660 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
661 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
662 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
667 /* Decide if color named COLOR_NAME is valid for use on frame F. If
668 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
669 allocate the color. Value is zero if COLOR_NAME is invalid, or
670 no color could be allocated. */
673 x_defined_color (f
, color_name
, color
, alloc_p
)
680 Display
*dpy
= FRAME_X_DISPLAY (f
);
681 Colormap cmap
= FRAME_X_COLORMAP (f
);
684 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
685 if (success_p
&& alloc_p
)
686 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
693 /* Return the pixel color value for color COLOR_NAME on frame F. If F
694 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
695 Signal an error if color can't be allocated. */
698 x_decode_color (f
, color_name
, mono_color
)
700 Lisp_Object color_name
;
705 CHECK_STRING (color_name
);
707 #if 0 /* Don't do this. It's wrong when we're not using the default
708 colormap, it makes freeing difficult, and it's probably not
709 an important optimization. */
710 if (strcmp (SDATA (color_name
), "black") == 0)
711 return BLACK_PIX_DEFAULT (f
);
712 else if (strcmp (SDATA (color_name
), "white") == 0)
713 return WHITE_PIX_DEFAULT (f
);
716 /* Return MONO_COLOR for monochrome frames. */
717 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
720 /* x_defined_color is responsible for coping with failures
721 by looking for a near-miss. */
722 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
725 signal_error ("Undefined color", color_name
);
730 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
731 the previous value of that parameter, NEW_VALUE is the new value.
732 See also the comment of wait_for_wm in struct x_output. */
735 x_set_wait_for_wm (f
, new_value
, old_value
)
737 Lisp_Object new_value
, old_value
;
739 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
744 /* Set icon from FILE for frame F. By using GTK functions the icon
745 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
748 xg_set_icon (f
, file
)
755 found
= x_find_image_file (file
);
761 char *filename
= (char *) SDATA (found
);
764 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
768 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
770 g_object_unref (pixbuf
);
784 xg_set_icon_from_xpm_data (f
, data
)
789 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data ((const char **) data
);
794 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
795 g_object_unref (pixbuf
);
801 /* Functions called only from `x_set_frame_param'
802 to set individual parameters.
804 If FRAME_X_WINDOW (f) is 0,
805 the frame is being created and its X-window does not exist yet.
806 In that case, just record the parameter's new value
807 in the standard place; do not attempt to change the window. */
810 x_set_foreground_color (f
, arg
, oldval
)
812 Lisp_Object arg
, oldval
;
814 struct x_output
*x
= f
->output_data
.x
;
815 unsigned long fg
, old_fg
;
817 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
818 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
819 FRAME_FOREGROUND_PIXEL (f
) = fg
;
821 if (FRAME_X_WINDOW (f
) != 0)
823 Display
*dpy
= FRAME_X_DISPLAY (f
);
826 XSetForeground (dpy
, x
->normal_gc
, fg
);
827 XSetBackground (dpy
, x
->reverse_gc
, fg
);
829 if (x
->cursor_pixel
== old_fg
)
831 unload_color (f
, x
->cursor_pixel
);
832 x
->cursor_pixel
= x_copy_color (f
, fg
);
833 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
838 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
840 if (FRAME_VISIBLE_P (f
))
844 unload_color (f
, old_fg
);
848 x_set_background_color (f
, arg
, oldval
)
850 Lisp_Object arg
, oldval
;
852 struct x_output
*x
= f
->output_data
.x
;
855 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
856 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
857 FRAME_BACKGROUND_PIXEL (f
) = bg
;
859 if (FRAME_X_WINDOW (f
) != 0)
861 Display
*dpy
= FRAME_X_DISPLAY (f
);
864 XSetBackground (dpy
, x
->normal_gc
, bg
);
865 XSetForeground (dpy
, x
->reverse_gc
, bg
);
866 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
867 XSetForeground (dpy
, x
->cursor_gc
, bg
);
870 xg_set_background_color (f
, bg
);
873 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
874 toolkit scroll bars. */
877 for (bar
= FRAME_SCROLL_BARS (f
);
879 bar
= XSCROLL_BAR (bar
)->next
)
881 Window window
= XSCROLL_BAR (bar
)->x_window
;
882 XSetWindowBackground (dpy
, window
, bg
);
885 #endif /* USE_TOOLKIT_SCROLL_BARS */
888 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
890 if (FRAME_VISIBLE_P (f
))
896 make_invisible_cursor (f
)
899 Display
*dpy
= FRAME_X_DISPLAY (f
);
900 static char const no_data
[] = { 0 };
905 x_catch_errors (dpy
);
906 pix
= XCreateBitmapFromData (dpy
, FRAME_X_DISPLAY_INFO (f
)->root_window
,
908 if (! x_had_errors_p (dpy
) && pix
!= None
)
911 col
.red
= col
.green
= col
.blue
= 0;
912 col
.flags
= DoRed
| DoGreen
| DoBlue
;
913 c
= XCreatePixmapCursor (dpy
, pix
, pix
, &col
, &col
, 0, 0);
914 if (x_had_errors_p (dpy
) || c
== None
)
916 XFreePixmap (dpy
, pix
);
925 x_set_mouse_color (f
, arg
, oldval
)
927 Lisp_Object arg
, oldval
;
929 struct x_output
*x
= f
->output_data
.x
;
930 Display
*dpy
= FRAME_X_DISPLAY (f
);
931 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
932 Cursor hourglass_cursor
, horizontal_drag_cursor
;
933 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
934 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
936 /* Don't let pointers be invisible. */
937 if (mask_color
== pixel
)
939 x_free_colors (f
, &pixel
, 1);
940 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
943 unload_color (f
, x
->mouse_pixel
);
944 x
->mouse_pixel
= pixel
;
948 /* It's not okay to crash if the user selects a screwy cursor. */
949 x_catch_errors (dpy
);
951 if (!NILP (Vx_pointer_shape
))
953 CHECK_NUMBER (Vx_pointer_shape
);
954 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
957 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
958 x_check_errors (dpy
, "bad text pointer cursor: %s");
960 if (!NILP (Vx_nontext_pointer_shape
))
962 CHECK_NUMBER (Vx_nontext_pointer_shape
);
964 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
967 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
968 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
970 if (!NILP (Vx_hourglass_pointer_shape
))
972 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
974 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
977 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
978 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
980 if (!NILP (Vx_mode_pointer_shape
))
982 CHECK_NUMBER (Vx_mode_pointer_shape
);
983 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
986 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
987 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
989 if (!NILP (Vx_sensitive_text_pointer_shape
))
991 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
993 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
996 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
998 if (!NILP (Vx_window_horizontal_drag_shape
))
1000 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1001 horizontal_drag_cursor
1002 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1005 horizontal_drag_cursor
1006 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1008 /* Check and report errors with the above calls. */
1009 x_check_errors (dpy
, "can't set cursor shape: %s");
1010 x_uncatch_errors ();
1013 XColor fore_color
, back_color
;
1015 fore_color
.pixel
= x
->mouse_pixel
;
1016 x_query_color (f
, &fore_color
);
1017 back_color
.pixel
= mask_color
;
1018 x_query_color (f
, &back_color
);
1020 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1021 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1022 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1023 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1024 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1025 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1028 if (FRAME_X_WINDOW (f
) != 0)
1029 XDefineCursor (dpy
, FRAME_X_WINDOW (f
),
1030 f
->output_data
.x
->current_cursor
= cursor
);
1032 if (FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
== 0)
1033 FRAME_X_DISPLAY_INFO (f
)->invisible_cursor
= make_invisible_cursor (f
);
1035 if (cursor
!= x
->text_cursor
1036 && x
->text_cursor
!= 0)
1037 XFreeCursor (dpy
, x
->text_cursor
);
1038 x
->text_cursor
= cursor
;
1040 if (nontext_cursor
!= x
->nontext_cursor
1041 && x
->nontext_cursor
!= 0)
1042 XFreeCursor (dpy
, x
->nontext_cursor
);
1043 x
->nontext_cursor
= nontext_cursor
;
1045 if (hourglass_cursor
!= x
->hourglass_cursor
1046 && x
->hourglass_cursor
!= 0)
1047 XFreeCursor (dpy
, x
->hourglass_cursor
);
1048 x
->hourglass_cursor
= hourglass_cursor
;
1050 if (mode_cursor
!= x
->modeline_cursor
1051 && x
->modeline_cursor
!= 0)
1052 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1053 x
->modeline_cursor
= mode_cursor
;
1055 if (hand_cursor
!= x
->hand_cursor
1056 && x
->hand_cursor
!= 0)
1057 XFreeCursor (dpy
, x
->hand_cursor
);
1058 x
->hand_cursor
= hand_cursor
;
1060 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1061 && x
->horizontal_drag_cursor
!= 0)
1062 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1063 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1068 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1072 x_set_cursor_color (f
, arg
, oldval
)
1074 Lisp_Object arg
, oldval
;
1076 unsigned long fore_pixel
, pixel
;
1077 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1078 struct x_output
*x
= f
->output_data
.x
;
1080 if (!NILP (Vx_cursor_fore_pixel
))
1082 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1083 WHITE_PIX_DEFAULT (f
));
1084 fore_pixel_allocated_p
= 1;
1087 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1089 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1090 pixel_allocated_p
= 1;
1092 /* Make sure that the cursor color differs from the background color. */
1093 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1095 if (pixel_allocated_p
)
1097 x_free_colors (f
, &pixel
, 1);
1098 pixel_allocated_p
= 0;
1101 pixel
= x
->mouse_pixel
;
1102 if (pixel
== fore_pixel
)
1104 if (fore_pixel_allocated_p
)
1106 x_free_colors (f
, &fore_pixel
, 1);
1107 fore_pixel_allocated_p
= 0;
1109 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1113 unload_color (f
, x
->cursor_foreground_pixel
);
1114 if (!fore_pixel_allocated_p
)
1115 fore_pixel
= x_copy_color (f
, fore_pixel
);
1116 x
->cursor_foreground_pixel
= fore_pixel
;
1118 unload_color (f
, x
->cursor_pixel
);
1119 if (!pixel_allocated_p
)
1120 pixel
= x_copy_color (f
, pixel
);
1121 x
->cursor_pixel
= pixel
;
1123 if (FRAME_X_WINDOW (f
) != 0)
1126 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1127 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1130 if (FRAME_VISIBLE_P (f
))
1132 x_update_cursor (f
, 0);
1133 x_update_cursor (f
, 1);
1137 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1140 /* Set the border-color of frame F to pixel value PIX.
1141 Note that this does not fully take effect if done before
1142 F has an x-window. */
1145 x_set_border_pixel (f
, pix
)
1149 unload_color (f
, f
->output_data
.x
->border_pixel
);
1150 f
->output_data
.x
->border_pixel
= pix
;
1152 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1155 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1156 (unsigned long)pix
);
1159 if (FRAME_VISIBLE_P (f
))
1164 /* Set the border-color of frame F to value described by ARG.
1165 ARG can be a string naming a color.
1166 The border-color is used for the border that is drawn by the X server.
1167 Note that this does not fully take effect if done before
1168 F has an x-window; it must be redone when the window is created.
1170 Note: this is done in two routines because of the way X10 works.
1172 Note: under X11, this is normally the province of the window manager,
1173 and so emacs' border colors may be overridden. */
1176 x_set_border_color (f
, arg
, oldval
)
1178 Lisp_Object arg
, oldval
;
1183 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1184 x_set_border_pixel (f
, pix
);
1185 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1190 x_set_cursor_type (f
, arg
, oldval
)
1192 Lisp_Object arg
, oldval
;
1194 set_frame_cursor_types (f
, arg
);
1196 /* Make sure the cursor gets redrawn. */
1197 cursor_type_changed
= 1;
1201 x_set_icon_type (f
, arg
, oldval
)
1203 Lisp_Object arg
, oldval
;
1209 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1212 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1217 result
= x_text_icon (f
,
1218 (char *) SDATA ((!NILP (f
->icon_name
)
1222 result
= x_bitmap_icon (f
, arg
);
1227 error ("No icon window available");
1230 XFlush (FRAME_X_DISPLAY (f
));
1235 x_set_icon_name (f
, arg
, oldval
)
1237 Lisp_Object arg
, oldval
;
1243 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1246 else if (!NILP (arg
) || NILP (oldval
))
1251 if (f
->output_data
.x
->icon_bitmap
!= 0)
1256 result
= x_text_icon (f
,
1257 (char *) SDATA ((!NILP (f
->icon_name
)
1266 error ("No icon window available");
1269 XFlush (FRAME_X_DISPLAY (f
));
1275 x_set_menu_bar_lines (f
, value
, oldval
)
1277 Lisp_Object value
, oldval
;
1280 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1281 int olines
= FRAME_MENU_BAR_LINES (f
);
1284 /* Right now, menu bars don't work properly in minibuf-only frames;
1285 most of the commands try to apply themselves to the minibuffer
1286 frame itself, and get an error because you can't switch buffers
1287 in or split the minibuffer window. */
1288 if (FRAME_MINIBUF_ONLY_P (f
))
1291 if (INTEGERP (value
))
1292 nlines
= XINT (value
);
1296 /* Make sure we redisplay all windows in this frame. */
1297 windows_or_buffers_changed
++;
1299 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1300 FRAME_MENU_BAR_LINES (f
) = 0;
1303 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1304 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1305 /* Make sure next redisplay shows the menu bar. */
1306 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1310 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1311 free_frame_menubar (f
);
1312 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1314 f
->output_data
.x
->menubar_widget
= 0;
1316 #else /* not USE_X_TOOLKIT && not USE_GTK */
1317 FRAME_MENU_BAR_LINES (f
) = nlines
;
1318 change_window_heights (f
->root_window
, nlines
- olines
);
1319 #endif /* not USE_X_TOOLKIT */
1324 /* Set the number of lines used for the tool bar of frame F to VALUE.
1325 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1326 is the old number of tool bar lines. This function changes the
1327 height of all windows on frame F to match the new tool bar height.
1328 The frame's height doesn't change. */
1331 x_set_tool_bar_lines (f
, value
, oldval
)
1333 Lisp_Object value
, oldval
;
1335 int delta
, nlines
, root_height
;
1336 Lisp_Object root_window
;
1338 /* Treat tool bars like menu bars. */
1339 if (FRAME_MINIBUF_ONLY_P (f
))
1342 /* Use VALUE only if an integer >= 0. */
1343 if (INTEGERP (value
) && XINT (value
) >= 0)
1344 nlines
= XFASTINT (value
);
1349 FRAME_TOOL_BAR_LINES (f
) = 0;
1352 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1353 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1354 /* Make sure next redisplay shows the tool bar. */
1355 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1356 update_frame_tool_bar (f
);
1360 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1361 free_frame_tool_bar (f
);
1362 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1368 /* Make sure we redisplay all windows in this frame. */
1369 ++windows_or_buffers_changed
;
1371 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1373 /* Don't resize the tool-bar to more than we have room for. */
1374 root_window
= FRAME_ROOT_WINDOW (f
);
1375 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1376 if (root_height
- delta
< 1)
1378 delta
= root_height
- 1;
1379 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1382 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1383 change_window_heights (root_window
, delta
);
1386 /* We also have to make sure that the internal border at the top of
1387 the frame, below the menu bar or tool bar, is redrawn when the
1388 tool bar disappears. This is so because the internal border is
1389 below the tool bar if one is displayed, but is below the menu bar
1390 if there isn't a tool bar. The tool bar draws into the area
1391 below the menu bar. */
1392 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1395 clear_current_matrices (f
);
1398 /* If the tool bar gets smaller, the internal border below it
1399 has to be cleared. It was formerly part of the display
1400 of the larger tool bar, and updating windows won't clear it. */
1403 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1404 int width
= FRAME_PIXEL_WIDTH (f
);
1405 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1407 /* height can be zero here. */
1408 if (height
> 0 && width
> 0)
1411 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1412 0, y
, width
, height
, False
);
1416 if (WINDOWP (f
->tool_bar_window
))
1417 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1422 /* Set the foreground color for scroll bars on frame F to VALUE.
1423 VALUE should be a string, a color name. If it isn't a string or
1424 isn't a valid color name, do nothing. OLDVAL is the old value of
1425 the frame parameter. */
1428 x_set_scroll_bar_foreground (f
, value
, oldval
)
1430 Lisp_Object value
, oldval
;
1432 unsigned long pixel
;
1434 if (STRINGP (value
))
1435 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1439 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1440 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1442 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1443 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1445 /* Remove all scroll bars because they have wrong colors. */
1446 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1447 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1448 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1449 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1451 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1457 /* Set the background color for scroll bars on frame F to VALUE VALUE
1458 should be a string, a color name. If it isn't a string or isn't a
1459 valid color name, do nothing. OLDVAL is the old value of the frame
1463 x_set_scroll_bar_background (f
, value
, oldval
)
1465 Lisp_Object value
, oldval
;
1467 unsigned long pixel
;
1469 if (STRINGP (value
))
1470 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1474 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1475 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1477 #ifdef USE_TOOLKIT_SCROLL_BARS
1478 /* Scrollbar shadow colors. */
1479 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1481 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1482 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1484 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1486 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1487 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1489 #endif /* USE_TOOLKIT_SCROLL_BARS */
1491 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1492 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1494 /* Remove all scroll bars because they have wrong colors. */
1495 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1496 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1497 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1498 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1500 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1506 /* Encode Lisp string STRING as a text in a format appropriate for
1507 XICCC (X Inter Client Communication Conventions).
1509 This can call Lisp code, so callers must GCPRO.
1511 If STRING contains only ASCII characters, do no conversion and
1512 return the string data of STRING. Otherwise, encode the text by
1513 CODING_SYSTEM, and return a newly allocated memory area which
1514 should be freed by `xfree' by a caller.
1516 SELECTIONP non-zero means the string is being encoded for an X
1517 selection, so it is safe to run pre-write conversions (which
1520 Store the byte length of resulting text in *TEXT_BYTES.
1522 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1523 which means that the `encoding' of the result can be `STRING'.
1524 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1525 the result should be `COMPOUND_TEXT'. */
1527 static unsigned char *
1528 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
, freep
)
1529 Lisp_Object string
, coding_system
;
1530 int *text_bytes
, *stringp
;
1534 int result
= string_xstring_p (string
);
1535 struct coding_system coding
;
1539 /* No multibyte character in OBJ. We need not encode it. */
1540 *text_bytes
= SBYTES (string
);
1543 return SDATA (string
);
1546 setup_coding_system (coding_system
, &coding
);
1547 coding
.mode
|= (CODING_MODE_SAFE_ENCODING
| CODING_MODE_LAST_BLOCK
);
1548 /* We suppress producing escape sequences for composition. */
1549 coding
.common_flags
&= ~CODING_ANNOTATION_MASK
;
1550 coding
.dst_bytes
= SCHARS (string
) * 2;
1551 coding
.destination
= (unsigned char *) xmalloc (coding
.dst_bytes
);
1552 encode_coding_object (&coding
, string
, 0, 0,
1553 SCHARS (string
), SBYTES (string
), Qnil
);
1554 *text_bytes
= coding
.produced
;
1555 *stringp
= (result
== 1 || !EQ (coding_system
, Qcompound_text
));
1557 return coding
.destination
;
1561 /* Set the WM name to NAME for frame F. Also set the icon name.
1562 If the frame already has an icon name, use that, otherwise set the
1563 icon name to NAME. */
1566 x_set_name_internal (f
, name
)
1570 if (FRAME_X_WINDOW (f
))
1574 XTextProperty text
, icon
;
1576 int do_free_icon_value
= 0, do_free_text_value
= 0;
1577 Lisp_Object coding_system
;
1579 Lisp_Object encoded_name
;
1580 struct gcpro gcpro1
;
1582 /* As ENCODE_UTF_8 may cause GC and relocation of string data,
1583 we use it before x_encode_text that may return string data. */
1585 encoded_name
= ENCODE_UTF_8 (name
);
1589 coding_system
= Qcompound_text
;
1590 /* Note: Encoding strategy
1592 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1593 text.encoding. But, there are non-internationalized window
1594 managers which don't support that encoding. So, if NAME
1595 contains only ASCII and 8859-1 characters, encode it by
1596 iso-latin-1, and use "STRING" in text.encoding hoping that
1597 such window managers at least analyze this format correctly,
1598 i.e. treat 8-bit bytes as 8859-1 characters.
1600 We may also be able to use "UTF8_STRING" in text.encoding
1601 in the future which can encode all Unicode characters.
1602 But, for the moment, there's no way to know that the
1603 current window manager supports it or not. */
1604 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1605 &do_free_text_value
);
1606 text
.encoding
= (stringp
? XA_STRING
1607 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1609 text
.nitems
= bytes
;
1611 if (!STRINGP (f
->icon_name
))
1617 /* See the above comment "Note: Encoding strategy". */
1618 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1619 &bytes
, &stringp
, &do_free_icon_value
);
1620 icon
.encoding
= (stringp
? XA_STRING
1621 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1623 icon
.nitems
= bytes
;
1627 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1628 (char *) SDATA (encoded_name
));
1629 #else /* not USE_GTK */
1630 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1631 #endif /* not USE_GTK */
1633 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1635 if (do_free_icon_value
)
1637 if (do_free_text_value
)
1644 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1647 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1648 name; if NAME is a string, set F's name to NAME and set
1649 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1651 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1652 suggesting a new name, which lisp code should override; if
1653 F->explicit_name is set, ignore the new name; otherwise, set it. */
1656 x_set_name (f
, name
, explicit)
1661 /* Make sure that requests from lisp code override requests from
1662 Emacs redisplay code. */
1665 /* If we're switching from explicit to implicit, we had better
1666 update the mode lines and thereby update the title. */
1667 if (f
->explicit_name
&& NILP (name
))
1668 update_mode_lines
= 1;
1670 f
->explicit_name
= ! NILP (name
);
1672 else if (f
->explicit_name
)
1675 /* If NAME is nil, set the name to the x_id_name. */
1678 /* Check for no change needed in this very common case
1679 before we do any consing. */
1680 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1683 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1686 CHECK_STRING (name
);
1688 /* Don't change the name if it's already NAME. */
1689 if (! NILP (Fstring_equal (name
, f
->name
)))
1694 /* For setting the frame title, the title parameter should override
1695 the name parameter. */
1696 if (! NILP (f
->title
))
1699 x_set_name_internal (f
, name
);
1702 /* This function should be called when the user's lisp code has
1703 specified a name for the frame; the name will override any set by the
1706 x_explicitly_set_name (f
, arg
, oldval
)
1708 Lisp_Object arg
, oldval
;
1710 x_set_name (f
, arg
, 1);
1713 /* This function should be called by Emacs redisplay code to set the
1714 name; names set this way will never override names set by the user's
1717 x_implicitly_set_name (f
, arg
, oldval
)
1719 Lisp_Object arg
, oldval
;
1721 x_set_name (f
, arg
, 0);
1724 /* Change the title of frame F to NAME.
1725 If NAME is nil, use the frame name as the title. */
1728 x_set_title (f
, name
, old_name
)
1730 Lisp_Object name
, old_name
;
1732 /* Don't change the title if it's already NAME. */
1733 if (EQ (name
, f
->title
))
1736 update_mode_lines
= 1;
1743 CHECK_STRING (name
);
1745 x_set_name_internal (f
, name
);
1749 x_set_scroll_bar_default_width (f
)
1752 int wid
= FRAME_COLUMN_WIDTH (f
);
1754 #ifdef USE_TOOLKIT_SCROLL_BARS
1755 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1756 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1757 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1758 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1760 /* Make the actual width at least 14 pixels and a multiple of a
1762 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1764 /* Use all of that space (aside from required margins) for the
1766 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1771 /* Record in frame F the specified or default value according to ALIST
1772 of the parameter named PROP (a Lisp symbol). If no value is
1773 specified for PROP, look for an X default for XPROP on the frame
1774 named NAME. If that is not found either, use the value DEFLT. */
1777 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1786 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1789 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1790 if (EQ (tem
, Qunbound
))
1792 #ifdef USE_TOOLKIT_SCROLL_BARS
1794 /* See if an X resource for the scroll bar color has been
1796 tem
= display_x_get_resource (dpyinfo
,
1797 build_string (foreground_p
1800 empty_unibyte_string
,
1801 build_string ("verticalScrollBar"),
1802 empty_unibyte_string
);
1805 /* If nothing has been specified, scroll bars will use a
1806 toolkit-dependent default. Because these defaults are
1807 difficult to get at without actually creating a scroll
1808 bar, use nil to indicate that no color has been
1813 #else /* not USE_TOOLKIT_SCROLL_BARS */
1817 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1820 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1827 #ifdef USE_X_TOOLKIT
1829 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1830 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1831 already be present because of the toolkit (Motif adds some of them,
1832 for example, but Xt doesn't). */
1835 hack_wm_protocols (f
, widget
)
1839 Display
*dpy
= XtDisplay (widget
);
1840 Window w
= XtWindow (widget
);
1841 int need_delete
= 1;
1848 unsigned char *catoms
;
1850 unsigned long nitems
= 0;
1851 unsigned long bytes_after
;
1853 if ((XGetWindowProperty (dpy
, w
,
1854 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1855 (long)0, (long)100, False
, XA_ATOM
,
1856 &type
, &format
, &nitems
, &bytes_after
,
1859 && format
== 32 && type
== XA_ATOM
)
1861 Atom
*atoms
= (Atom
*) catoms
;
1866 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1868 else if (atoms
[nitems
]
1869 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1871 else if (atoms
[nitems
]
1872 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1883 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1885 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1887 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1889 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1890 XA_ATOM
, 32, PropModeAppend
,
1891 (unsigned char *) props
, count
);
1899 /* Support routines for XIC (X Input Context). */
1903 static XFontSet xic_create_xfontset
P_ ((struct frame
*));
1904 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1907 /* Supported XIM styles, ordered by preference. */
1909 static XIMStyle supported_xim_styles
[] =
1911 XIMPreeditPosition
| XIMStatusArea
,
1912 XIMPreeditPosition
| XIMStatusNothing
,
1913 XIMPreeditPosition
| XIMStatusNone
,
1914 XIMPreeditNothing
| XIMStatusArea
,
1915 XIMPreeditNothing
| XIMStatusNothing
,
1916 XIMPreeditNothing
| XIMStatusNone
,
1917 XIMPreeditNone
| XIMStatusArea
,
1918 XIMPreeditNone
| XIMStatusNothing
,
1919 XIMPreeditNone
| XIMStatusNone
,
1924 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1926 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1928 /* Create an Xt fontset spec from the name of a base font.
1929 If `motif' is True use the Motif syntax. */
1931 xic_create_fontsetname (base_fontname
, motif
)
1932 char *base_fontname
;
1935 const char *sep
= motif
? ";" : ",";
1938 /* Make a fontset name from the base font name. */
1939 if (xic_defaut_fontset
== base_fontname
)
1940 { /* There is no base font name, use the default. */
1941 int len
= strlen (base_fontname
) + 2;
1942 fontsetname
= xmalloc (len
);
1943 bzero (fontsetname
, len
);
1944 strcpy (fontsetname
, base_fontname
);
1948 /* Make a fontset name from the base font name.
1949 The font set will be made of the following elements:
1951 - the base font where the charset spec is replaced by -*-*.
1952 - the same but with the family also replaced with -*-*-. */
1953 char *p
= base_fontname
;
1956 for (i
= 0; *p
; p
++)
1959 { /* As the font name doesn't conform to XLFD, we can't
1960 modify it to generalize it to allcs and allfamilies.
1961 Use the specified font plus the default. */
1962 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
1963 fontsetname
= xmalloc (len
);
1964 bzero (fontsetname
, len
);
1965 strcpy (fontsetname
, base_fontname
);
1966 strcat (fontsetname
, sep
);
1967 strcat (fontsetname
, xic_defaut_fontset
);
1972 char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
1973 char *font_allcs
= NULL
;
1974 char *font_allfamilies
= NULL
;
1975 char *font_all
= NULL
;
1976 char *allcs
= "*-*-*-*-*-*-*";
1977 char *allfamilies
= "-*-*-";
1978 char *all
= "*-*-*-*-";
1981 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
1994 /* If base_fontname specifies ADSTYLE, make it a
1998 int diff
= (p2
- p3
) - 2;
2000 base
= alloca (strlen (base_fontname
) + 1);
2001 bcopy (base_fontname
, base
, p3
- base_fontname
);
2002 base
[p3
- base_fontname
] = '*';
2003 base
[(p3
- base_fontname
) + 1] = '-';
2004 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
2005 p
= base
+ (p
- base_fontname
) - diff
;
2006 p1
= base
+ (p1
- base_fontname
);
2007 p2
= base
+ (p2
- base_fontname
) - diff
;
2008 base_fontname
= base
;
2011 /* Build the font spec that matches all charsets. */
2012 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2013 font_allcs
= (char *) alloca (len
);
2014 bzero (font_allcs
, len
);
2015 bcopy (base_fontname
, font_allcs
, p
- base_fontname
);
2016 strcat (font_allcs
, allcs
);
2018 /* Build the font spec that matches all families and
2020 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2021 font_allfamilies
= (char *) alloca (len
);
2022 bzero (font_allfamilies
, len
);
2023 strcpy (font_allfamilies
, allfamilies
);
2024 bcopy (p1
, font_allfamilies
+ strlen (allfamilies
), p
- p1
);
2025 strcat (font_allfamilies
, allcs
);
2027 /* Build the font spec that matches all. */
2028 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2029 font_all
= (char *) alloca (len
);
2030 bzero (font_all
, len
);
2031 strcpy (font_all
, allfamilies
);
2032 strcat (font_all
, all
);
2033 bcopy (p2
, font_all
+ strlen (all
) + strlen (allfamilies
), p
- p2
);
2034 strcat (font_all
, allcs
);
2036 /* Build the actual font set name. */
2037 len
= strlen (base_fontname
) + strlen (font_allcs
)
2038 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2039 fontsetname
= xmalloc (len
);
2040 bzero (fontsetname
, len
);
2041 strcpy (fontsetname
, base_fontname
);
2042 strcat (fontsetname
, sep
);
2043 strcat (fontsetname
, font_allcs
);
2044 strcat (fontsetname
, sep
);
2045 strcat (fontsetname
, font_allfamilies
);
2046 strcat (fontsetname
, sep
);
2047 strcat (fontsetname
, font_all
);
2051 strcat (fontsetname
, ":");
2055 #ifdef DEBUG_XIC_FONTSET
2057 print_fontset_result (xfs
, name
, missing_list
, missing_count
)
2060 char **missing_list
;
2064 fprintf (stderr
, "XIC Fontset created: %s\n", name
);
2067 fprintf (stderr
, "XIC Fontset failed: %s\n", name
);
2068 while (missing_count
-- > 0)
2070 fprintf (stderr
, " missing: %s\n", *missing_list
);
2079 xic_create_xfontset (f
)
2082 XFontSet xfs
= NULL
;
2083 struct font
*font
= FRAME_FONT (f
);
2084 int pixel_size
= font
->pixel_size
;
2085 Lisp_Object rest
, frame
;
2087 /* See if there is another frame already using same fontset. */
2088 FOR_EACH_FRAME (rest
, frame
)
2090 struct frame
*cf
= XFRAME (frame
);
2092 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2093 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2095 && FRAME_FONT (f
)->pixel_size
== pixel_size
)
2097 xfs
= FRAME_XIC_FONTSET (cf
);
2105 char **missing_list
;
2108 char *xlfd_format
= "-*-*-medium-r-normal--%d-*-*-*-*-*";
2110 sprintf (buf
, xlfd_format
, pixel_size
);
2111 missing_list
= NULL
;
2112 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2113 &missing_list
, &missing_count
, &def_string
);
2114 #ifdef DEBUG_XIC_FONTSET
2115 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2118 XFreeStringList (missing_list
);
2121 /* List of pixel sizes most likely available. Find one that
2122 is closest to pixel_size. */
2123 int sizes
[] = {0, 8, 10, 11, 12, 14, 17, 18, 20, 24, 26, 34, 0};
2124 int *smaller
, *larger
;
2126 for (smaller
= sizes
; smaller
[1]; smaller
++)
2127 if (smaller
[1] >= pixel_size
)
2129 larger
= smaller
+ 1;
2130 if (*larger
== pixel_size
)
2132 while (*smaller
|| *larger
)
2137 this_size
= *smaller
--;
2138 else if (! *smaller
)
2139 this_size
= *larger
++;
2140 else if (pixel_size
- *smaller
< *larger
- pixel_size
)
2141 this_size
= *smaller
--;
2143 this_size
= *larger
++;
2144 sprintf (buf
, xlfd_format
, this_size
);
2145 missing_list
= NULL
;
2146 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), buf
,
2147 &missing_list
, &missing_count
, &def_string
);
2148 #ifdef DEBUG_XIC_FONTSET
2149 print_fontset_result (xfs
, buf
, missing_list
, missing_count
);
2152 XFreeStringList (missing_list
);
2159 char *last_resort
= "-*-*-*-r-normal--*-*-*-*-*-*";
2161 missing_list
= NULL
;
2162 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
), last_resort
,
2163 &missing_list
, &missing_count
, &def_string
);
2164 #ifdef DEBUG_XIC_FONTSET
2165 print_fontset_result (xfs
, last_resort
, missing_list
, missing_count
);
2168 XFreeStringList (missing_list
);
2176 /* Free the X fontset of frame F if it is the last frame using it. */
2179 xic_free_xfontset (f
)
2182 Lisp_Object rest
, frame
;
2185 if (!FRAME_XIC_FONTSET (f
))
2188 /* See if there is another frame sharing the same fontset. */
2189 FOR_EACH_FRAME (rest
, frame
)
2191 struct frame
*cf
= XFRAME (frame
);
2192 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2193 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2194 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2202 /* The fontset is not used anymore. It is safe to free it. */
2203 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2205 if (FRAME_XIC_BASE_FONTNAME (f
))
2206 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2207 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2208 FRAME_XIC_FONTSET (f
) = NULL
;
2212 /* Value is the best input style, given user preferences USER (already
2213 checked to be supported by Emacs), and styles supported by the
2214 input method XIM. */
2217 best_xim_style (user
, xim
)
2223 for (i
= 0; i
< user
->count_styles
; ++i
)
2224 for (j
= 0; j
< xim
->count_styles
; ++j
)
2225 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2226 return user
->supported_styles
[i
];
2228 /* Return the default style. */
2229 return XIMPreeditNothing
| XIMStatusNothing
;
2232 /* Create XIC for frame F. */
2234 static XIMStyle xic_style
;
2237 create_frame_xic (f
)
2242 XFontSet xfs
= NULL
;
2247 /* Create X fontset. */
2248 xfs
= xic_create_xfontset (f
);
2249 xim
= FRAME_X_XIM (f
);
2254 XVaNestedList preedit_attr
;
2255 XVaNestedList status_attr
;
2257 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2258 spot
.x
= 0; spot
.y
= 1;
2260 /* Determine XIC style. */
2263 XIMStyles supported_list
;
2264 supported_list
.count_styles
= (sizeof supported_xim_styles
2265 / sizeof supported_xim_styles
[0]);
2266 supported_list
.supported_styles
= supported_xim_styles
;
2267 xic_style
= best_xim_style (&supported_list
,
2268 FRAME_X_XIM_STYLES (f
));
2271 preedit_attr
= XVaCreateNestedList (0,
2274 FRAME_FOREGROUND_PIXEL (f
),
2276 FRAME_BACKGROUND_PIXEL (f
),
2277 (xic_style
& XIMPreeditPosition
2282 status_attr
= XVaCreateNestedList (0,
2288 FRAME_FOREGROUND_PIXEL (f
),
2290 FRAME_BACKGROUND_PIXEL (f
),
2293 xic
= XCreateIC (xim
,
2294 XNInputStyle
, xic_style
,
2295 XNClientWindow
, FRAME_X_WINDOW (f
),
2296 XNFocusWindow
, FRAME_X_WINDOW (f
),
2297 XNStatusAttributes
, status_attr
,
2298 XNPreeditAttributes
, preedit_attr
,
2300 XFree (preedit_attr
);
2301 XFree (status_attr
);
2304 FRAME_XIC (f
) = xic
;
2305 FRAME_XIC_STYLE (f
) = xic_style
;
2306 FRAME_XIC_FONTSET (f
) = xfs
;
2310 /* Destroy XIC and free XIC fontset of frame F, if any. */
2316 if (FRAME_XIC (f
) == NULL
)
2319 XDestroyIC (FRAME_XIC (f
));
2320 xic_free_xfontset (f
);
2322 FRAME_XIC (f
) = NULL
;
2326 /* Place preedit area for XIC of window W's frame to specified
2327 pixel position X/Y. X and Y are relative to window W. */
2330 xic_set_preeditarea (w
, x
, y
)
2334 struct frame
*f
= XFRAME (w
->frame
);
2338 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2339 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2340 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2341 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2346 /* Place status area for XIC in bottom right corner of frame F.. */
2349 xic_set_statusarea (f
)
2352 XIC xic
= FRAME_XIC (f
);
2357 /* Negotiate geometry of status area. If input method has existing
2358 status area, use its current size. */
2359 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2360 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2361 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2364 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2365 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2368 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2370 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2371 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2375 area
.width
= needed
->width
;
2376 area
.height
= needed
->height
;
2377 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2378 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2379 - FRAME_MENUBAR_HEIGHT (f
)
2380 - FRAME_TOOLBAR_HEIGHT (f
)
2381 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2384 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2385 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2390 /* Set X fontset for XIC of frame F, using base font name
2391 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2394 xic_set_xfontset (f
, base_fontname
)
2396 char *base_fontname
;
2401 xic_free_xfontset (f
);
2403 xfs
= xic_create_xfontset (f
);
2405 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2406 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2407 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2408 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2409 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2412 FRAME_XIC_FONTSET (f
) = xfs
;
2415 #endif /* HAVE_X_I18N */
2419 #ifdef USE_X_TOOLKIT
2421 /* Create and set up the X widget for frame F. */
2424 x_window (f
, window_prompting
, minibuffer_only
)
2426 long window_prompting
;
2427 int minibuffer_only
;
2429 XClassHint class_hints
;
2430 XSetWindowAttributes attributes
;
2431 unsigned long attribute_mask
;
2432 Widget shell_widget
;
2434 Widget frame_widget
;
2440 /* Use the resource name as the top-level widget name
2441 for looking up resources. Make a non-Lisp copy
2442 for the window manager, so GC relocation won't bother it.
2444 Elsewhere we specify the window name for the window manager. */
2447 char *str
= (char *) SDATA (Vx_resource_name
);
2448 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2449 strcpy (f
->namebuf
, str
);
2453 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2454 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2455 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2456 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2457 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2458 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2459 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2460 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2461 applicationShellWidgetClass
,
2462 FRAME_X_DISPLAY (f
), al
, ac
);
2464 f
->output_data
.x
->widget
= shell_widget
;
2465 /* maybe_set_screen_title_format (shell_widget); */
2467 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2468 (widget_value
*) NULL
,
2469 shell_widget
, False
,
2473 (lw_callback
) NULL
);
2476 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2477 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2478 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2479 XtSetValues (pane_widget
, al
, ac
);
2480 f
->output_data
.x
->column_widget
= pane_widget
;
2482 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2483 the emacs screen when changing menubar. This reduces flickering. */
2486 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2487 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2488 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2489 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2490 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2491 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2492 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2493 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2494 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2497 f
->output_data
.x
->edit_widget
= frame_widget
;
2499 XtManageChild (frame_widget
);
2501 /* Do some needed geometry management. */
2504 char *tem
, shell_position
[32];
2507 int extra_borders
= 0;
2509 = (f
->output_data
.x
->menubar_widget
2510 ? (f
->output_data
.x
->menubar_widget
->core
.height
2511 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2514 #if 0 /* Experimentally, we now get the right results
2515 for -geometry -0-0 without this. 24 Aug 96, rms. */
2516 if (FRAME_EXTERNAL_MENU_BAR (f
))
2519 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2520 menubar_size
+= ibw
;
2524 f
->output_data
.x
->menubar_height
= menubar_size
;
2527 /* Motif seems to need this amount added to the sizes
2528 specified for the shell widget. The Athena/Lucid widgets don't.
2529 Both conclusions reached experimentally. -- rms. */
2530 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2531 &extra_borders
, NULL
);
2535 /* Convert our geometry parameters into a geometry string
2537 Note that we do not specify here whether the position
2538 is a user-specified or program-specified one.
2539 We pass that information later, in x_wm_set_size_hints. */
2541 int left
= f
->left_pos
;
2542 int xneg
= window_prompting
& XNegative
;
2543 int top
= f
->top_pos
;
2544 int yneg
= window_prompting
& YNegative
;
2550 if (window_prompting
& USPosition
)
2551 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2552 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2553 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2554 (xneg
? '-' : '+'), left
,
2555 (yneg
? '-' : '+'), top
);
2558 sprintf (shell_position
, "=%dx%d",
2559 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2560 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2562 /* Setting x and y when the position is not specified in
2563 the geometry string will set program position in the WM hints.
2564 If Emacs had just one program position, we could set it in
2565 fallback resources, but since each make-frame call can specify
2566 different program positions, this is easier. */
2567 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2568 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2572 len
= strlen (shell_position
) + 1;
2573 /* We don't free this because we don't know whether
2574 it is safe to free it while the frame exists.
2575 It isn't worth the trouble of arranging to free it
2576 when the frame is deleted. */
2577 tem
= (char *) xmalloc (len
);
2578 strncpy (tem
, shell_position
, len
);
2579 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2580 XtSetValues (shell_widget
, al
, ac
);
2583 XtManageChild (pane_widget
);
2584 XtRealizeWidget (shell_widget
);
2586 if (FRAME_X_EMBEDDED_P (f
))
2587 XReparentWindow (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
),
2588 f
->output_data
.x
->parent_desc
, 0, 0);
2590 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2592 validate_x_resource_name ();
2594 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2595 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2596 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2599 FRAME_XIC (f
) = NULL
;
2601 create_frame_xic (f
);
2604 f
->output_data
.x
->wm_hints
.input
= True
;
2605 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2606 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2607 &f
->output_data
.x
->wm_hints
);
2609 hack_wm_protocols (f
, shell_widget
);
2612 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2615 /* Do a stupid property change to force the server to generate a
2616 PropertyNotify event so that the event_stream server timestamp will
2617 be initialized to something relevant to the time we created the window.
2619 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2620 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2621 XA_ATOM
, 32, PropModeAppend
,
2622 (unsigned char*) NULL
, 0);
2624 /* Make all the standard events reach the Emacs frame. */
2625 attributes
.event_mask
= STANDARD_EVENT_SET
;
2630 /* XIM server might require some X events. */
2631 unsigned long fevent
= NoEventMask
;
2632 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2633 attributes
.event_mask
|= fevent
;
2635 #endif /* HAVE_X_I18N */
2637 attribute_mask
= CWEventMask
;
2638 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2639 attribute_mask
, &attributes
);
2641 XtMapWidget (frame_widget
);
2643 /* x_set_name normally ignores requests to set the name if the
2644 requested name is the same as the current name. This is the one
2645 place where that assumption isn't correct; f->name is set, but
2646 the X server hasn't been told. */
2649 int explicit = f
->explicit_name
;
2651 f
->explicit_name
= 0;
2654 x_set_name (f
, name
, explicit);
2657 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2658 f
->output_data
.x
->current_cursor
2659 = f
->output_data
.x
->text_cursor
);
2663 /* This is a no-op, except under Motif. Make sure main areas are
2664 set to something reasonable, in case we get an error later. */
2665 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2668 #else /* not USE_X_TOOLKIT */
2674 if (! xg_create_frame_widgets (f
))
2675 error ("Unable to create window");
2678 FRAME_XIC (f
) = NULL
;
2682 create_frame_xic (f
);
2685 /* XIM server might require some X events. */
2686 unsigned long fevent
= NoEventMask
;
2687 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2689 if (fevent
!= NoEventMask
)
2691 XSetWindowAttributes attributes
;
2692 XWindowAttributes wattr
;
2693 unsigned long attribute_mask
;
2695 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2697 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2698 attribute_mask
= CWEventMask
;
2699 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2700 attribute_mask
, &attributes
);
2708 #else /*! USE_GTK */
2709 /* Create and set up the X window for frame F. */
2716 XClassHint class_hints
;
2717 XSetWindowAttributes attributes
;
2718 unsigned long attribute_mask
;
2720 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2721 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2722 attributes
.bit_gravity
= StaticGravity
;
2723 attributes
.backing_store
= NotUseful
;
2724 attributes
.save_under
= True
;
2725 attributes
.event_mask
= STANDARD_EVENT_SET
;
2726 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2727 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2732 = XCreateWindow (FRAME_X_DISPLAY (f
),
2733 f
->output_data
.x
->parent_desc
,
2736 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2738 CopyFromParent
, /* depth */
2739 InputOutput
, /* class */
2741 attribute_mask
, &attributes
);
2746 create_frame_xic (f
);
2749 /* XIM server might require some X events. */
2750 unsigned long fevent
= NoEventMask
;
2751 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2752 attributes
.event_mask
|= fevent
;
2753 attribute_mask
= CWEventMask
;
2754 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2755 attribute_mask
, &attributes
);
2758 #endif /* HAVE_X_I18N */
2760 validate_x_resource_name ();
2762 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2763 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2764 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2766 /* The menubar is part of the ordinary display;
2767 it does not count in addition to the height of the window. */
2768 f
->output_data
.x
->menubar_height
= 0;
2770 /* This indicates that we use the "Passive Input" input model.
2771 Unless we do this, we don't get the Focus{In,Out} events that we
2772 need to draw the cursor correctly. Accursed bureaucrats.
2773 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2775 f
->output_data
.x
->wm_hints
.input
= True
;
2776 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2777 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2778 &f
->output_data
.x
->wm_hints
);
2779 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2781 /* Request "save yourself" and "delete window" commands from wm. */
2784 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2785 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2786 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2789 /* x_set_name normally ignores requests to set the name if the
2790 requested name is the same as the current name. This is the one
2791 place where that assumption isn't correct; f->name is set, but
2792 the X server hasn't been told. */
2795 int explicit = f
->explicit_name
;
2797 f
->explicit_name
= 0;
2800 x_set_name (f
, name
, explicit);
2803 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2804 f
->output_data
.x
->current_cursor
2805 = f
->output_data
.x
->text_cursor
);
2809 if (FRAME_X_WINDOW (f
) == 0)
2810 error ("Unable to create window");
2813 #endif /* not USE_GTK */
2814 #endif /* not USE_X_TOOLKIT */
2816 /* Verify that the icon position args for this window are valid. */
2819 x_icon_verify (f
, parms
)
2823 Lisp_Object icon_x
, icon_y
;
2825 /* Set the position of the icon. Note that twm groups all
2826 icons in an icon window. */
2827 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2828 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2829 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2831 CHECK_NUMBER (icon_x
);
2832 CHECK_NUMBER (icon_y
);
2834 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2835 error ("Both left and top icon corners of icon must be specified");
2838 /* Handle the icon stuff for this window. Perhaps later we might
2839 want an x_set_icon_position which can be called interactively as
2847 Lisp_Object icon_x
, icon_y
;
2849 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2852 /* Set the position of the icon. Note that twm groups all
2853 icons in an icon window. */
2854 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2855 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2856 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2858 CHECK_NUMBER (icon_x
);
2859 CHECK_NUMBER (icon_y
);
2861 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2862 error ("Both left and top icon corners of icon must be specified");
2866 if (! EQ (icon_x
, Qunbound
))
2867 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2869 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2870 but x_create_frame still needs it. */
2871 /* Start up iconic or window? */
2872 x_wm_set_window_state
2873 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2879 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2886 /* Make the GCs needed for this window, setting the
2887 background, border and mouse colors; also create the
2888 mouse cursor and the gray border tile. */
2894 XGCValues gc_values
;
2898 /* Create the GCs of this frame.
2899 Note that many default values are used. */
2901 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2902 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2903 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2904 f
->output_data
.x
->normal_gc
2905 = XCreateGC (FRAME_X_DISPLAY (f
),
2907 GCLineWidth
| GCForeground
| GCBackground
,
2910 /* Reverse video style. */
2911 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2912 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2913 f
->output_data
.x
->reverse_gc
2914 = XCreateGC (FRAME_X_DISPLAY (f
),
2916 GCForeground
| GCBackground
| GCLineWidth
,
2919 /* Cursor has cursor-color background, background-color foreground. */
2920 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2921 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2922 gc_values
.fill_style
= FillOpaqueStippled
;
2923 f
->output_data
.x
->cursor_gc
2924 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2925 (GCForeground
| GCBackground
2926 | GCFillStyle
| GCLineWidth
),
2930 f
->output_data
.x
->white_relief
.gc
= 0;
2931 f
->output_data
.x
->black_relief
.gc
= 0;
2933 /* Create the gray border tile used when the pointer is not in
2934 the frame. Since this depends on the frame's pixel values,
2935 this must be done on a per-frame basis. */
2936 f
->output_data
.x
->border_tile
2937 = (XCreatePixmapFromBitmapData
2938 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2939 gray_bits
, gray_width
, gray_height
,
2940 FRAME_FOREGROUND_PIXEL (f
),
2941 FRAME_BACKGROUND_PIXEL (f
),
2942 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2948 /* Free what was allocated in x_make_gc. */
2954 Display
*dpy
= FRAME_X_DISPLAY (f
);
2958 if (f
->output_data
.x
->normal_gc
)
2960 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2961 f
->output_data
.x
->normal_gc
= 0;
2964 if (f
->output_data
.x
->reverse_gc
)
2966 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2967 f
->output_data
.x
->reverse_gc
= 0;
2970 if (f
->output_data
.x
->cursor_gc
)
2972 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2973 f
->output_data
.x
->cursor_gc
= 0;
2976 if (f
->output_data
.x
->border_tile
)
2978 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2979 f
->output_data
.x
->border_tile
= 0;
2986 /* Handler for signals raised during x_create_frame and
2987 x_create_top_frame. FRAME is the frame which is partially
2991 unwind_create_frame (frame
)
2994 struct frame
*f
= XFRAME (frame
);
2996 /* If frame is already dead, nothing to do. This can happen if the
2997 display is disconnected after the frame has become official, but
2998 before x_create_frame removes the unwind protect. */
2999 if (!FRAME_LIVE_P (f
))
3002 /* If frame is ``official'', nothing to do. */
3003 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
3006 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
3009 x_free_frame_resources (f
);
3012 /* Check that reference counts are indeed correct. */
3013 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
3014 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
3024 x_default_font_parameter (f
, parms
)
3028 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
3029 Lisp_Object font_param
= x_get_arg (dpyinfo
, parms
, Qfont
, NULL
, NULL
,
3032 int got_from_gconf
= 0;
3033 if (EQ (font_param
, Qunbound
))
3036 font_param
= Ffont_get_system_font();
3037 got_from_gconf
= !NILP (font_param
);
3040 font
= !NILP (font_param
) ? font_param
3041 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3043 if (! STRINGP (font
))
3048 /* This will find the normal Xft font. */
3051 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
3052 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3053 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3054 /* This was formerly the first thing tried, but it finds
3055 too many fonts and takes too long. */
3056 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
3057 /* If those didn't work, look for something which will
3059 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
3064 for (i
= 0; names
[i
]; i
++)
3066 font
= font_open_by_name (f
, names
[i
]);
3071 error ("No suitable font was found");
3073 else if (!NILP (font_param
))
3075 /* Remember the explicit font parameter, so we can re-apply it after
3076 we've applied the `default' face settings. */
3077 x_set_frame_parameters (f
, Fcons (Fcons (Qfont_param
, font_param
), Qnil
));
3080 x_default_parameter (f
, parms
, Qfont
, font
,
3081 got_from_gconf
? NULL
: "font",
3082 got_from_gconf
? NULL
: "Font",
3087 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
3089 doc
: /* Send the size hints for frame FRAME to the window manager.
3090 If FRAME is nil, use the selected frame. */)
3096 frame
= selected_frame
;
3100 x_wm_set_size_hint (f
, 0, 0);
3105 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3107 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3108 Return an Emacs frame object.
3109 PARMS is an alist of frame parameters.
3110 If the parameters specify that the frame should not have a minibuffer,
3111 and do not specify a specific minibuffer window to use,
3112 then `default-minibuffer-frame' must be a frame whose minibuffer can
3113 be shared by the new frame.
3115 This function is an internal primitive--use `make-frame' instead. */)
3120 Lisp_Object frame
, tem
;
3122 int minibuffer_only
= 0;
3123 long window_prompting
= 0;
3125 int count
= SPECPDL_INDEX ();
3126 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3127 Lisp_Object display
;
3128 struct x_display_info
*dpyinfo
= NULL
;
3132 parms
= Fcopy_alist (parms
);
3134 /* Use this general default value to start with
3135 until we know if this frame has a specified name. */
3136 Vx_resource_name
= Vinvocation_name
;
3138 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3139 if (EQ (display
, Qunbound
))
3140 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3141 if (EQ (display
, Qunbound
))
3143 dpyinfo
= check_x_display_info (display
);
3144 kb
= dpyinfo
->terminal
->kboard
;
3146 if (!dpyinfo
->terminal
->name
)
3147 error ("Terminal is not live, can't create new frames on it");
3149 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3151 && ! EQ (name
, Qunbound
)
3153 error ("Invalid frame name--not a string or nil");
3156 Vx_resource_name
= name
;
3158 /* See if parent window is specified. */
3159 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3160 if (EQ (parent
, Qunbound
))
3162 if (! NILP (parent
))
3163 CHECK_NUMBER (parent
);
3165 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3166 /* No need to protect DISPLAY because that's not used after passing
3167 it to make_frame_without_minibuffer. */
3169 GCPRO4 (parms
, parent
, name
, frame
);
3170 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3172 if (EQ (tem
, Qnone
) || NILP (tem
))
3173 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3174 else if (EQ (tem
, Qonly
))
3176 f
= make_minibuffer_frame ();
3177 minibuffer_only
= 1;
3179 else if (WINDOWP (tem
))
3180 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3184 XSETFRAME (frame
, f
);
3186 /* Note that X Windows does support scroll bars. */
3187 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3189 f
->terminal
= dpyinfo
->terminal
;
3190 f
->terminal
->reference_count
++;
3192 f
->output_method
= output_x_window
;
3193 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3194 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3195 f
->output_data
.x
->icon_bitmap
= -1;
3196 FRAME_FONTSET (f
) = -1;
3197 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3198 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3199 #ifdef USE_TOOLKIT_SCROLL_BARS
3200 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3201 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3202 #endif /* USE_TOOLKIT_SCROLL_BARS */
3205 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3207 if (! STRINGP (f
->icon_name
))
3208 f
->icon_name
= Qnil
;
3210 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3212 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3213 record_unwind_protect (unwind_create_frame
, frame
);
3215 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
3216 dpyinfo_refcount
= dpyinfo
->reference_count
;
3217 #endif /* GLYPH_DEBUG */
3219 /* These colors will be set anyway later, but it's important
3220 to get the color reference counts right, so initialize them! */
3223 struct gcpro gcpro1
;
3225 /* Function x_decode_color can signal an error. Make
3226 sure to initialize color slots so that we won't try
3227 to free colors we haven't allocated. */
3228 FRAME_FOREGROUND_PIXEL (f
) = -1;
3229 FRAME_BACKGROUND_PIXEL (f
) = -1;
3230 f
->output_data
.x
->cursor_pixel
= -1;
3231 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3232 f
->output_data
.x
->border_pixel
= -1;
3233 f
->output_data
.x
->mouse_pixel
= -1;
3235 black
= build_string ("black");
3237 FRAME_FOREGROUND_PIXEL (f
)
3238 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3239 FRAME_BACKGROUND_PIXEL (f
)
3240 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3241 f
->output_data
.x
->cursor_pixel
3242 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3243 f
->output_data
.x
->cursor_foreground_pixel
3244 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3245 f
->output_data
.x
->border_pixel
3246 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3247 f
->output_data
.x
->mouse_pixel
3248 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3252 /* Specify the parent under which to make this X window. */
3256 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3257 f
->output_data
.x
->explicit_parent
= 1;
3261 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3262 f
->output_data
.x
->explicit_parent
= 0;
3265 /* Set the name; the functions to which we pass f expect the name to
3267 if (EQ (name
, Qunbound
) || NILP (name
))
3269 f
->name
= build_string (dpyinfo
->x_id_name
);
3270 f
->explicit_name
= 0;
3275 f
->explicit_name
= 1;
3276 /* use the frame's title when getting resources for this frame. */
3277 specbind (Qx_resource_name
, name
);
3280 f
->resx
= dpyinfo
->resx
;
3281 f
->resy
= dpyinfo
->resy
;
3283 #ifdef HAVE_FREETYPE
3285 register_font_driver (&xftfont_driver
, f
);
3286 #else /* not HAVE_XFT */
3287 register_font_driver (&ftxfont_driver
, f
);
3288 #endif /* not HAVE_XFT */
3289 #endif /* HAVE_FREETYPE */
3290 register_font_driver (&xfont_driver
, f
);
3292 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3293 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3295 /* Extract the window parameters from the supplied values
3296 that are needed to determine window geometry. */
3297 x_default_font_parameter (f
, parms
);
3298 if (!FRAME_FONT (f
))
3300 delete_frame (frame
, Qnoelisp
);
3301 error ("Invalid frame font");
3305 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3306 whereby it fails to get any font. */
3307 xlwmenu_default_font
= XLoadQueryFont (FRAME_X_DISPLAY (f
), "fixed");
3310 /* Frame contents get displaced if an embedded X window has a border. */
3311 if (! FRAME_X_EMBEDDED_P (f
))
3312 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3313 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3315 /* This defaults to 1 in order to match xterm. We recognize either
3316 internalBorderWidth or internalBorder (which is what xterm calls
3318 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3322 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3323 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3324 if (! EQ (value
, Qunbound
))
3325 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3328 x_default_parameter (f
, parms
, Qinternal_border_width
,
3329 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3334 "internalBorderWidth", "internalBorderWidth",
3336 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3337 "verticalScrollBars", "ScrollBars",
3340 /* Also do the stuff which must be set before the window exists. */
3341 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3342 "foreground", "Foreground", RES_TYPE_STRING
);
3343 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3344 "background", "Background", RES_TYPE_STRING
);
3345 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3346 "pointerColor", "Foreground", RES_TYPE_STRING
);
3347 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3348 "cursorColor", "Foreground", RES_TYPE_STRING
);
3349 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3350 "borderColor", "BorderColor", RES_TYPE_STRING
);
3351 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3352 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3353 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3354 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3355 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3356 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3357 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3358 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3360 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3361 "scrollBarForeground",
3362 "ScrollBarForeground", 1);
3363 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3364 "scrollBarBackground",
3365 "ScrollBarBackground", 0);
3367 /* Init faces before x_default_parameter is called for scroll-bar
3368 parameters because that function calls x_set_scroll_bar_width,
3369 which calls change_frame_size, which calls Fset_window_buffer,
3370 which runs hooks, which call Fvertical_motion. At the end, we
3371 end up in init_iterator with a null face cache, which should not
3373 init_frame_faces (f
);
3375 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3376 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3377 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3378 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3379 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3380 "bufferPredicate", "BufferPredicate",
3382 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3383 "title", "Title", RES_TYPE_STRING
);
3384 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3385 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3386 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3387 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3389 /* Compute the size of the X window. */
3390 window_prompting
= x_figure_window_size (f
, parms
, 1);
3392 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3393 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3395 x_icon_verify (f
, parms
);
3397 /* Create the X widget or window. */
3398 #ifdef USE_X_TOOLKIT
3399 x_window (f
, window_prompting
, minibuffer_only
);
3407 /* Now consider the frame official. */
3408 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3409 Vframe_list
= Fcons (frame
, Vframe_list
);
3411 /* We need to do this after creating the X window, so that the
3412 icon-creation functions can say whose icon they're describing. */
3413 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3414 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3416 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3417 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3418 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3419 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3420 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3421 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3422 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3423 "scrollBarWidth", "ScrollBarWidth",
3425 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3426 "alpha", "Alpha", RES_TYPE_NUMBER
);
3428 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3429 Change will not be effected unless different from the current
3431 width
= FRAME_COLS (f
);
3432 height
= FRAME_LINES (f
);
3434 SET_FRAME_COLS (f
, 0);
3435 FRAME_LINES (f
) = 0;
3436 change_frame_size (f
, height
, width
, 1, 0, 0);
3438 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3439 /* Create the menu bar. */
3440 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3442 /* If this signals an error, we haven't set size hints for the
3443 frame and we didn't make it visible. */
3444 initialize_frame_menubar (f
);
3447 /* This is a no-op, except under Motif where it arranges the
3448 main window for the widgets on it. */
3449 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3450 f
->output_data
.x
->menubar_widget
,
3451 f
->output_data
.x
->edit_widget
);
3452 #endif /* not USE_GTK */
3454 #endif /* USE_X_TOOLKIT || USE_GTK */
3456 /* Tell the server what size and position, etc, we want, and how
3457 badly we want them. This should be done after we have the menu
3458 bar so that its size can be taken into account. */
3460 x_wm_set_size_hint (f
, window_prompting
, 0);
3463 /* Make the window appear on the frame and enable display, unless
3464 the caller says not to. However, with explicit parent, Emacs
3465 cannot control visibility, so don't try. */
3466 if (! f
->output_data
.x
->explicit_parent
)
3468 Lisp_Object visibility
;
3470 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3472 if (EQ (visibility
, Qunbound
))
3475 if (EQ (visibility
, Qicon
))
3476 x_iconify_frame (f
);
3477 else if (! NILP (visibility
))
3478 x_make_frame_visible (f
);
3480 /* Must have been Qnil. */
3484 /* Set the WM leader property. GTK does this itself, so this is not
3485 needed when using GTK. */
3486 if (dpyinfo
->client_leader_window
!= 0)
3489 XChangeProperty (FRAME_X_DISPLAY (f
),
3490 FRAME_OUTER_WINDOW (f
),
3491 dpyinfo
->Xatom_wm_client_leader
,
3492 XA_WINDOW
, 32, PropModeReplace
,
3493 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3497 /* Initialize `default-minibuffer-frame' in case this is the first
3498 frame on this terminal. */
3499 if (FRAME_HAS_MINIBUF_P (f
)
3500 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3501 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3502 kb
->Vdefault_minibuffer_frame
= frame
;
3504 /* All remaining specified parameters, which have not been "used"
3505 by x_get_arg and friends, now go in the misc. alist of the frame. */
3506 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3507 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3508 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3512 /* Make sure windows on this frame appear in calls to next-window
3513 and similar functions. */
3514 Vwindow_list
= Qnil
;
3516 return unbind_to (count
, frame
);
3520 /* FRAME is used only to get a handle on the X display. We don't pass the
3521 display info directly because we're called from frame.c, which doesn't
3522 know about that structure. */
3525 x_get_focus_frame (frame
)
3526 struct frame
*frame
;
3528 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3530 if (! dpyinfo
->x_focus_frame
)
3533 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3538 /* In certain situations, when the window manager follows a
3539 click-to-focus policy, there seems to be no way around calling
3540 XSetInputFocus to give another frame the input focus .
3542 In an ideal world, XSetInputFocus should generally be avoided so
3543 that applications don't interfere with the window manager's focus
3544 policy. But I think it's okay to use when it's clearly done
3545 following a user-command. */
3547 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3548 doc
: /* Set the input focus to FRAME.
3549 FRAME nil means use the selected frame. */)
3553 struct frame
*f
= check_x_frame (frame
);
3554 Display
*dpy
= FRAME_X_DISPLAY (f
);
3557 x_catch_errors (dpy
);
3558 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3559 RevertToParent
, CurrentTime
);
3560 x_ewmh_activate_frame (f
);
3561 x_uncatch_errors ();
3568 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3569 doc
: /* Internal function called by `color-defined-p', which see. */)
3571 Lisp_Object color
, frame
;
3574 FRAME_PTR f
= check_x_frame (frame
);
3576 CHECK_STRING (color
);
3578 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3584 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3585 doc
: /* Internal function called by `color-values', which see. */)
3587 Lisp_Object color
, frame
;
3590 FRAME_PTR f
= check_x_frame (frame
);
3592 CHECK_STRING (color
);
3594 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3595 return list3 (make_number (foo
.red
),
3596 make_number (foo
.green
),
3597 make_number (foo
.blue
));
3602 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3603 doc
: /* Internal function called by `display-color-p', which see. */)
3605 Lisp_Object terminal
;
3607 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3609 if (dpyinfo
->n_planes
<= 2)
3612 switch (dpyinfo
->visual
->class)
3625 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3627 doc
: /* Return t if the X display supports shades of gray.
3628 Note that color displays do support shades of gray.
3629 The optional argument TERMINAL specifies which display to ask about.
3630 TERMINAL should be a terminal object, a frame or a display name (a string).
3631 If omitted or nil, that stands for the selected frame's display. */)
3633 Lisp_Object terminal
;
3635 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3637 if (dpyinfo
->n_planes
<= 1)
3640 switch (dpyinfo
->visual
->class)
3655 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3657 doc
: /* Return the width in pixels of the X display TERMINAL.
3658 The optional argument TERMINAL specifies which display to ask about.
3659 TERMINAL should be a terminal object, a frame or a display name (a string).
3660 If omitted or nil, that stands for the selected frame's display. */)
3662 Lisp_Object terminal
;
3664 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3666 return make_number (x_display_pixel_width (dpyinfo
));
3669 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3670 Sx_display_pixel_height
, 0, 1, 0,
3671 doc
: /* Return the height in pixels of the X display TERMINAL.
3672 The optional argument TERMINAL specifies which display to ask about.
3673 TERMINAL should be a terminal object, a frame or a display name (a string).
3674 If omitted or nil, that stands for the selected frame's display. */)
3676 Lisp_Object terminal
;
3678 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3680 return make_number (x_display_pixel_height (dpyinfo
));
3683 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3685 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3686 The optional argument TERMINAL specifies which display to ask about.
3687 TERMINAL should be a terminal object, a frame or a display name (a string).
3688 If omitted or nil, that stands for the selected frame's display. */)
3690 Lisp_Object terminal
;
3692 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3694 return make_number (dpyinfo
->n_planes
);
3697 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3699 doc
: /* Return the number of color cells of the X display TERMINAL.
3700 The optional argument TERMINAL specifies which display to ask about.
3701 TERMINAL should be a terminal object, a frame or a display name (a string).
3702 If omitted or nil, that stands for the selected frame's display. */)
3704 Lisp_Object terminal
;
3706 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3708 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3709 XScreenNumberOfScreen (dpyinfo
->screen
));
3711 /* Truncate nr_planes to 24 to avoid integer overflow.
3712 Some displays says 32, but only 24 bits are actually significant.
3713 There are only very few and rare video cards that have more than
3714 24 significant bits. Also 24 bits is more than 16 million colors,
3715 it "should be enough for everyone". */
3716 if (nr_planes
> 24) nr_planes
= 24;
3718 return make_number (1 << nr_planes
);
3721 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3722 Sx_server_max_request_size
,
3724 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3725 The optional argument TERMINAL specifies which display to ask about.
3726 TERMINAL should be a terminal object, a frame or a display name (a string).
3727 If omitted or nil, that stands for the selected frame's display. */)
3729 Lisp_Object terminal
;
3731 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3733 return make_number (MAXREQUEST (dpyinfo
->display
));
3736 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3737 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3738 \(Labelling every distributor as a "vendor" embodies the false assumption
3739 that operating systems cannot be developed and distributed noncommercially.)
3740 The optional argument TERMINAL specifies which display to ask about.
3741 TERMINAL should be a terminal object, a frame or a display name (a string).
3742 If omitted or nil, that stands for the selected frame's display. */)
3744 Lisp_Object terminal
;
3746 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3747 char *vendor
= ServerVendor (dpyinfo
->display
);
3749 if (! vendor
) vendor
= "";
3750 return build_string (vendor
);
3753 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3754 doc
: /* Return the version numbers of the X server of display TERMINAL.
3755 The value is a list of three integers: the major and minor
3756 version numbers of the X Protocol in use, and the distributor-specific release
3757 number. See also the function `x-server-vendor'.
3759 The optional argument TERMINAL specifies which display to ask about.
3760 TERMINAL should be a terminal object, a frame or a display name (a string).
3761 If omitted or nil, that stands for the selected frame's display. */)
3763 Lisp_Object terminal
;
3765 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3766 Display
*dpy
= dpyinfo
->display
;
3768 return Fcons (make_number (ProtocolVersion (dpy
)),
3769 Fcons (make_number (ProtocolRevision (dpy
)),
3770 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3773 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3774 doc
: /* Return the number of screens on 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 (ScreenCount (dpyinfo
->display
));
3786 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3787 doc
: /* Return the height in millimeters of the X display TERMINAL.
3788 The optional argument TERMINAL specifies which display to ask about.
3789 TERMINAL should be a terminal object, a frame or a display name (a string).
3790 If omitted or nil, that stands for the selected frame's display. */)
3792 Lisp_Object terminal
;
3794 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3796 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3799 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3800 doc
: /* Return the width in millimeters of the X display TERMINAL.
3801 The optional argument TERMINAL specifies which display to ask about.
3802 TERMINAL should be a terminal object, a frame or a display name (a string).
3803 If omitted or nil, that stands for the selected frame's display. */)
3805 Lisp_Object terminal
;
3807 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3809 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3812 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3813 Sx_display_backing_store
, 0, 1, 0,
3814 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3815 The value may be `always', `when-mapped', or `not-useful'.
3816 The optional argument TERMINAL specifies which display to ask about.
3817 TERMINAL should be a terminal object, a frame or a display name (a string).
3818 If omitted or nil, that stands for the selected frame's display. */)
3820 Lisp_Object terminal
;
3822 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3825 switch (DoesBackingStore (dpyinfo
->screen
))
3828 result
= intern ("always");
3832 result
= intern ("when-mapped");
3836 result
= intern ("not-useful");
3840 error ("Strange value for BackingStore parameter of screen");
3847 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3848 Sx_display_visual_class
, 0, 1, 0,
3849 doc
: /* Return the visual class of the X display TERMINAL.
3850 The value is one of the symbols `static-gray', `gray-scale',
3851 `static-color', `pseudo-color', `true-color', or `direct-color'.
3853 The optional argument TERMINAL specifies which display to ask about.
3854 TERMINAL should a terminal object, a frame or a display name (a string).
3855 If omitted or nil, that stands for the selected frame's display. */)
3857 Lisp_Object terminal
;
3859 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3862 switch (dpyinfo
->visual
->class)
3865 result
= intern ("static-gray");
3868 result
= intern ("gray-scale");
3871 result
= intern ("static-color");
3874 result
= intern ("pseudo-color");
3877 result
= intern ("true-color");
3880 result
= intern ("direct-color");
3883 error ("Display has an unknown visual class");
3890 DEFUN ("x-display-save-under", Fx_display_save_under
,
3891 Sx_display_save_under
, 0, 1, 0,
3892 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3893 The optional argument TERMINAL specifies which display to ask about.
3894 TERMINAL should be a terminal object, a frame or a display name (a string).
3895 If omitted or nil, that stands for the selected frame's display. */)
3897 Lisp_Object terminal
;
3899 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3901 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3909 register struct frame
*f
;
3911 return FRAME_PIXEL_WIDTH (f
);
3916 register struct frame
*f
;
3918 return FRAME_PIXEL_HEIGHT (f
);
3923 register struct frame
*f
;
3925 return FRAME_COLUMN_WIDTH (f
);
3930 register struct frame
*f
;
3932 return FRAME_LINE_HEIGHT (f
);
3937 register struct frame
*f
;
3939 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3944 /************************************************************************
3946 ************************************************************************/
3949 /* Mapping visual names to visuals. */
3951 static struct visual_class
3958 {"StaticGray", StaticGray
},
3959 {"GrayScale", GrayScale
},
3960 {"StaticColor", StaticColor
},
3961 {"PseudoColor", PseudoColor
},
3962 {"TrueColor", TrueColor
},
3963 {"DirectColor", DirectColor
},
3968 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3970 /* Value is the screen number of screen SCR. This is a substitute for
3971 the X function with the same name when that doesn't exist. */
3974 XScreenNumberOfScreen (scr
)
3975 register Screen
*scr
;
3977 Display
*dpy
= scr
->display
;
3980 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3981 if (scr
== dpy
->screens
+ i
)
3987 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3990 /* Select the visual that should be used on display DPYINFO. Set
3991 members of DPYINFO appropriately. Called from x_term_init. */
3994 select_visual (dpyinfo
)
3995 struct x_display_info
*dpyinfo
;
3997 Display
*dpy
= dpyinfo
->display
;
3998 Screen
*screen
= dpyinfo
->screen
;
4001 /* See if a visual is specified. */
4002 value
= display_x_get_resource (dpyinfo
,
4003 build_string ("visualClass"),
4004 build_string ("VisualClass"),
4006 if (STRINGP (value
))
4008 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
4009 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4010 depth, a decimal number. NAME is compared with case ignored. */
4011 char *s
= (char *) alloca (SBYTES (value
) + 1);
4016 strcpy (s
, SDATA (value
));
4017 dash
= index (s
, '-');
4020 dpyinfo
->n_planes
= atoi (dash
+ 1);
4024 /* We won't find a matching visual with depth 0, so that
4025 an error will be printed below. */
4026 dpyinfo
->n_planes
= 0;
4028 /* Determine the visual class. */
4029 for (i
= 0; visual_classes
[i
].name
; ++i
)
4030 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4032 class = visual_classes
[i
].class;
4036 /* Look up a matching visual for the specified class. */
4038 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4039 dpyinfo
->n_planes
, class, &vinfo
))
4040 fatal ("Invalid visual specification `%s'", SDATA (value
));
4042 dpyinfo
->visual
= vinfo
.visual
;
4047 XVisualInfo
*vinfo
, vinfo_template
;
4049 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4051 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4052 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4053 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4054 &vinfo_template
, &n_visuals
);
4056 fatal ("Can't get proper X visual info");
4058 dpyinfo
->n_planes
= vinfo
->depth
;
4059 XFree ((char *) vinfo
);
4064 /* Return the X display structure for the display named NAME.
4065 Open a new connection if necessary. */
4067 struct x_display_info
*
4068 x_display_info_for_name (name
)
4072 struct x_display_info
*dpyinfo
;
4074 CHECK_STRING (name
);
4077 if (! EQ (Vinitial_window_system
, intern ("x")))
4078 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4081 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4083 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4086 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4091 /* Use this general default value to start with. */
4092 Vx_resource_name
= Vinvocation_name
;
4094 validate_x_resource_name ();
4096 dpyinfo
= x_term_init (name
, (char *)0,
4097 (char *) SDATA (Vx_resource_name
));
4100 error ("Cannot connect to X server %s", SDATA (name
));
4103 XSETFASTINT (Vwindow_system_version
, 11);
4109 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4111 doc
: /* Open a connection to an X server.
4112 DISPLAY is the name of the display to connect to.
4113 Optional second arg XRM-STRING is a string of resources in xrdb format.
4114 If the optional third arg MUST-SUCCEED is non-nil,
4115 terminate Emacs if we can't open the connection. */)
4116 (display
, xrm_string
, must_succeed
)
4117 Lisp_Object display
, xrm_string
, must_succeed
;
4119 unsigned char *xrm_option
;
4120 struct x_display_info
*dpyinfo
;
4122 CHECK_STRING (display
);
4123 if (! NILP (xrm_string
))
4124 CHECK_STRING (xrm_string
);
4127 if (! EQ (Vinitial_window_system
, intern ("x")))
4128 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4131 if (! NILP (xrm_string
))
4132 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4134 xrm_option
= (unsigned char *) 0;
4136 validate_x_resource_name ();
4138 /* This is what opens the connection and sets x_current_display.
4139 This also initializes many symbols, such as those used for input. */
4140 dpyinfo
= x_term_init (display
, xrm_option
,
4141 (char *) SDATA (Vx_resource_name
));
4145 if (!NILP (must_succeed
))
4146 fatal ("Cannot connect to X server %s.\n\
4147 Check the DISPLAY environment variable or use `-d'.\n\
4148 Also use the `xauth' program to verify that you have the proper\n\
4149 authorization information needed to connect the X server.\n\
4150 An insecure way to solve the problem may be to use `xhost'.\n",
4153 error ("Cannot connect to X server %s", SDATA (display
));
4158 XSETFASTINT (Vwindow_system_version
, 11);
4162 DEFUN ("x-close-connection", Fx_close_connection
,
4163 Sx_close_connection
, 1, 1, 0,
4164 doc
: /* Close the connection to TERMINAL's X server.
4165 For TERMINAL, specify a terminal object, a frame or a display name (a
4166 string). If TERMINAL is nil, that stands for the selected frame's
4169 Lisp_Object terminal
;
4171 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4173 if (dpyinfo
->reference_count
> 0)
4174 error ("Display still has frames on it");
4176 x_delete_terminal (dpyinfo
->terminal
);
4181 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4182 doc
: /* Return the list of display names that Emacs has connections to. */)
4185 Lisp_Object tail
, result
;
4188 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4189 result
= Fcons (XCAR (XCAR (tail
)), result
);
4194 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4195 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4196 If ON is nil, allow buffering of requests.
4197 Turning on synchronization prohibits the Xlib routines from buffering
4198 requests and seriously degrades performance, but makes debugging much
4200 The optional second argument TERMINAL specifies which display to act on.
4201 TERMINAL should be a terminal object, a frame or a display name (a string).
4202 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4204 Lisp_Object terminal
, on
;
4206 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4208 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4213 /* Wait for responses to all X commands issued so far for frame F. */
4220 XSync (FRAME_X_DISPLAY (f
), False
);
4225 /***********************************************************************
4227 ***********************************************************************/
4229 DEFUN ("x-change-window-property", Fx_change_window_property
,
4230 Sx_change_window_property
, 2, 6, 0,
4231 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4232 PROP must be a string.
4233 VALUE may be a string or a list of conses, numbers and/or strings.
4234 If an element in the list is a string, it is converted to
4235 an Atom and the value of the Atom is used. If an element is a cons,
4236 it is converted to a 32 bit number where the car is the 16 top bits and the
4237 cdr is the lower 16 bits.
4238 FRAME nil or omitted means use the selected frame.
4239 If TYPE is given and non-nil, it is the name of the type of VALUE.
4240 If TYPE is not given or nil, the type is STRING.
4241 FORMAT gives the size in bits of each element if VALUE is a list.
4242 It must be one of 8, 16 or 32.
4243 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4244 If OUTER_P is non-nil, the property is changed for the outer X window of
4245 FRAME. Default is to change on the edit X window.
4248 (prop
, value
, frame
, type
, format
, outer_p
)
4249 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4251 struct frame
*f
= check_x_frame (frame
);
4253 Atom target_type
= XA_STRING
;
4254 int element_format
= 8;
4255 unsigned char *data
;
4259 CHECK_STRING (prop
);
4261 if (! NILP (format
))
4263 CHECK_NUMBER (format
);
4264 element_format
= XFASTINT (format
);
4266 if (element_format
!= 8 && element_format
!= 16
4267 && element_format
!= 32)
4268 error ("FORMAT must be one of 8, 16 or 32");
4273 nelements
= x_check_property_data (value
);
4274 if (nelements
== -1)
4275 error ("Bad data in VALUE, must be number, string or cons");
4277 if (element_format
== 8)
4278 data
= (unsigned char *) xmalloc (nelements
);
4279 else if (element_format
== 16)
4280 data
= (unsigned char *) xmalloc (nelements
*2);
4281 else /* format == 32 */
4282 /* The man page for XChangeProperty:
4283 "If the specified format is 32, the property data must be a
4285 This applies even if long is more than 64 bits. The X library
4286 converts to 32 bits before sending to the X server. */
4287 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4289 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4293 CHECK_STRING (value
);
4294 data
= SDATA (value
);
4295 nelements
= SCHARS (value
);
4299 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4302 CHECK_STRING (type
);
4303 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4306 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4307 else w
= FRAME_X_WINDOW (f
);
4309 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4310 prop_atom
, target_type
, element_format
, PropModeReplace
,
4313 if (CONSP (value
)) xfree (data
);
4315 /* Make sure the property is set when we return. */
4316 XFlush (FRAME_X_DISPLAY (f
));
4323 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4324 Sx_delete_window_property
, 1, 2, 0,
4325 doc
: /* Remove window property PROP from X window of FRAME.
4326 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4328 Lisp_Object prop
, frame
;
4330 struct frame
*f
= check_x_frame (frame
);
4333 CHECK_STRING (prop
);
4335 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4336 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4338 /* Make sure the property is removed when we return. */
4339 XFlush (FRAME_X_DISPLAY (f
));
4346 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4348 doc
: /* Value is the value of window property PROP on FRAME.
4349 If FRAME is nil or omitted, use the selected frame.
4350 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4351 is the name of the Atom that denotes the type expected.
4352 If SOURCE is non-nil, get the property on that window instead of from
4353 FRAME. The number 0 denotes the root window.
4354 If DELETE_P is non-nil, delete the property after retreiving it.
4355 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4357 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4358 no value of TYPE. */)
4359 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4360 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4362 struct frame
*f
= check_x_frame (frame
);
4365 Lisp_Object prop_value
= Qnil
;
4366 unsigned char *tmp_data
= NULL
;
4368 Atom target_type
= XA_STRING
;
4370 unsigned long actual_size
, bytes_remaining
;
4371 Window target_window
= FRAME_X_WINDOW (f
);
4372 struct gcpro gcpro1
;
4374 GCPRO1 (prop_value
);
4375 CHECK_STRING (prop
);
4377 if (! NILP (source
))
4379 if (NUMBERP (source
))
4381 if (FLOATP (source
))
4382 target_window
= (Window
) XFLOAT (source
);
4384 target_window
= XFASTINT (source
);
4386 if (target_window
== 0)
4387 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4389 else if (CONSP (source
))
4390 target_window
= cons_to_long (source
);
4396 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4397 target_type
= AnyPropertyType
;
4399 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4402 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4403 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4404 prop_atom
, 0, 0, False
, target_type
,
4405 &actual_type
, &actual_format
, &actual_size
,
4406 &bytes_remaining
, &tmp_data
);
4409 int size
= bytes_remaining
;
4414 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4415 prop_atom
, 0, bytes_remaining
,
4416 ! NILP (delete_p
), target_type
,
4417 &actual_type
, &actual_format
,
4418 &actual_size
, &bytes_remaining
,
4420 if (rc
== Success
&& tmp_data
)
4422 /* The man page for XGetWindowProperty says:
4423 "If the returned format is 32, the returned data is represented
4424 as a long array and should be cast to that type to obtain the
4426 This applies even if long is more than 32 bits, the X library
4427 converts from 32 bit elements received from the X server to long
4428 and passes the long array to us. Thus, for that case bcopy can not
4429 be used. We convert to a 32 bit type here, because so much code
4432 The bytes and offsets passed to XGetWindowProperty refers to the
4433 property and those are indeed in 32 bit quantities if format is
4436 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4439 int *idata
= (int *) tmp_data
;
4440 long *ldata
= (long *) tmp_data
;
4442 for (i
= 0; i
< actual_size
; ++i
)
4443 idata
[i
] = (int) ldata
[i
];
4446 if (NILP (vector_ret_p
))
4447 prop_value
= make_string (tmp_data
, size
);
4449 prop_value
= x_property_data_to_lisp (f
,
4456 if (tmp_data
) XFree (tmp_data
);
4466 /***********************************************************************
4468 ***********************************************************************/
4470 /* Timer function of hourglass_atimer. TIMER is equal to
4473 Display an hourglass pointer on all frames by mapping the frames'
4474 hourglass_window. Set the hourglass_p flag in the frames'
4475 output_data.x structure to indicate that an hourglass cursor is
4476 shown on the frames. */
4479 show_hourglass (timer
)
4480 struct atimer
*timer
;
4482 /* The timer implementation will cancel this timer automatically
4483 after this function has run. Set hourglass_atimer to null
4484 so that we know the timer doesn't have to be canceled. */
4485 hourglass_atimer
= NULL
;
4487 if (!hourglass_shown_p
)
4489 Lisp_Object rest
, frame
;
4493 FOR_EACH_FRAME (rest
, frame
)
4495 struct frame
*f
= XFRAME (frame
);
4497 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4499 Display
*dpy
= FRAME_X_DISPLAY (f
);
4501 #ifdef USE_X_TOOLKIT
4502 if (f
->output_data
.x
->widget
)
4504 if (FRAME_OUTER_WINDOW (f
))
4507 f
->output_data
.x
->hourglass_p
= 1;
4509 if (!f
->output_data
.x
->hourglass_window
)
4511 unsigned long mask
= CWCursor
;
4512 XSetWindowAttributes attrs
;
4514 Window parent
= FRAME_X_WINDOW (f
);
4516 Window parent
= FRAME_OUTER_WINDOW (f
);
4518 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4520 f
->output_data
.x
->hourglass_window
4521 = XCreateWindow (dpy
, parent
,
4522 0, 0, 32000, 32000, 0, 0,
4528 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4534 hourglass_shown_p
= 1;
4540 /* Hide the hourglass pointer on all frames, if it is currently
4546 if (hourglass_shown_p
)
4548 Lisp_Object rest
, frame
;
4551 FOR_EACH_FRAME (rest
, frame
)
4553 struct frame
*f
= XFRAME (frame
);
4556 /* Watch out for newly created frames. */
4557 && f
->output_data
.x
->hourglass_window
)
4559 XUnmapWindow (FRAME_X_DISPLAY (f
),
4560 f
->output_data
.x
->hourglass_window
);
4561 /* Sync here because XTread_socket looks at the
4562 hourglass_p flag that is reset to zero below. */
4563 XSync (FRAME_X_DISPLAY (f
), False
);
4564 f
->output_data
.x
->hourglass_p
= 0;
4568 hourglass_shown_p
= 0;
4575 /***********************************************************************
4577 ***********************************************************************/
4579 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4580 Lisp_Object
, Lisp_Object
));
4581 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4582 Lisp_Object
, int, int, int *, int *));
4584 /* The frame of a currently visible tooltip. */
4586 Lisp_Object tip_frame
;
4588 /* If non-nil, a timer started that hides the last tooltip when it
4591 Lisp_Object tip_timer
;
4594 /* If non-nil, a vector of 3 elements containing the last args
4595 with which x-show-tip was called. See there. */
4597 Lisp_Object last_show_tip_args
;
4599 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4601 Lisp_Object Vx_max_tooltip_size
;
4605 unwind_create_tip_frame (frame
)
4608 Lisp_Object deleted
;
4610 deleted
= unwind_create_frame (frame
);
4611 if (EQ (deleted
, Qt
))
4621 /* Create a frame for a tooltip on the display described by DPYINFO.
4622 PARMS is a list of frame parameters. TEXT is the string to
4623 display in the tip frame. Value is the frame.
4625 Note that functions called here, esp. x_default_parameter can
4626 signal errors, for instance when a specified color name is
4627 undefined. We have to make sure that we're in a consistent state
4628 when this happens. */
4631 x_create_tip_frame (dpyinfo
, parms
, text
)
4632 struct x_display_info
*dpyinfo
;
4633 Lisp_Object parms
, text
;
4636 Lisp_Object frame
, tem
;
4638 long window_prompting
= 0;
4640 int count
= SPECPDL_INDEX ();
4641 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4642 int face_change_count_before
= face_change_count
;
4644 struct buffer
*old_buffer
;
4648 if (!dpyinfo
->terminal
->name
)
4649 error ("Terminal is not live, can't create new frames on it");
4651 parms
= Fcopy_alist (parms
);
4653 /* Get the name of the frame to use for resource lookup. */
4654 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4656 && !EQ (name
, Qunbound
)
4658 error ("Invalid frame name--not a string or nil");
4661 GCPRO3 (parms
, name
, frame
);
4663 XSETFRAME (frame
, f
);
4665 buffer
= Fget_buffer_create (build_string (" *tip*"));
4666 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4667 old_buffer
= current_buffer
;
4668 set_buffer_internal_1 (XBUFFER (buffer
));
4669 current_buffer
->truncate_lines
= Qnil
;
4670 specbind (Qinhibit_read_only
, Qt
);
4671 specbind (Qinhibit_modification_hooks
, Qt
);
4674 set_buffer_internal_1 (old_buffer
);
4676 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4677 record_unwind_protect (unwind_create_tip_frame
, frame
);
4679 f
->terminal
= dpyinfo
->terminal
;
4680 f
->terminal
->reference_count
++;
4682 /* By setting the output method, we're essentially saying that
4683 the frame is live, as per FRAME_LIVE_P. If we get a signal
4684 from this point on, x_destroy_window might screw up reference
4686 f
->output_method
= output_x_window
;
4687 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4688 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4689 f
->output_data
.x
->icon_bitmap
= -1;
4690 FRAME_FONTSET (f
) = -1;
4691 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4692 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4693 #ifdef USE_TOOLKIT_SCROLL_BARS
4694 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4695 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4696 #endif /* USE_TOOLKIT_SCROLL_BARS */
4697 f
->icon_name
= Qnil
;
4698 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4700 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
4701 dpyinfo_refcount
= dpyinfo
->reference_count
;
4702 #endif /* GLYPH_DEBUG */
4703 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4704 f
->output_data
.x
->explicit_parent
= 0;
4706 /* These colors will be set anyway later, but it's important
4707 to get the color reference counts right, so initialize them! */
4710 struct gcpro gcpro1
;
4712 /* Function x_decode_color can signal an error. Make
4713 sure to initialize color slots so that we won't try
4714 to free colors we haven't allocated. */
4715 FRAME_FOREGROUND_PIXEL (f
) = -1;
4716 FRAME_BACKGROUND_PIXEL (f
) = -1;
4717 f
->output_data
.x
->cursor_pixel
= -1;
4718 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4719 f
->output_data
.x
->border_pixel
= -1;
4720 f
->output_data
.x
->mouse_pixel
= -1;
4722 black
= build_string ("black");
4724 FRAME_FOREGROUND_PIXEL (f
)
4725 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4726 FRAME_BACKGROUND_PIXEL (f
)
4727 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4728 f
->output_data
.x
->cursor_pixel
4729 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4730 f
->output_data
.x
->cursor_foreground_pixel
4731 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4732 f
->output_data
.x
->border_pixel
4733 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4734 f
->output_data
.x
->mouse_pixel
4735 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4739 /* Set the name; the functions to which we pass f expect the name to
4741 if (EQ (name
, Qunbound
) || NILP (name
))
4743 f
->name
= build_string (dpyinfo
->x_id_name
);
4744 f
->explicit_name
= 0;
4749 f
->explicit_name
= 1;
4750 /* use the frame's title when getting resources for this frame. */
4751 specbind (Qx_resource_name
, name
);
4754 f
->resx
= dpyinfo
->resx
;
4755 f
->resy
= dpyinfo
->resy
;
4757 register_font_driver (&xfont_driver
, f
);
4758 #ifdef HAVE_FREETYPE
4760 register_font_driver (&xftfont_driver
, f
);
4761 #else /* not HAVE_XFT */
4762 register_font_driver (&ftxfont_driver
, f
);
4763 #endif /* not HAVE_XFT */
4764 #endif /* HAVE_FREETYPE */
4766 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4767 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4769 /* Extract the window parameters from the supplied values that are
4770 needed to determine window geometry. */
4771 x_default_font_parameter (f
, parms
);
4773 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4774 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4776 /* This defaults to 2 in order to match xterm. We recognize either
4777 internalBorderWidth or internalBorder (which is what xterm calls
4779 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4783 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4784 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4785 if (! EQ (value
, Qunbound
))
4786 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4790 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4791 "internalBorderWidth", "internalBorderWidth",
4794 /* Also do the stuff which must be set before the window exists. */
4795 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4796 "foreground", "Foreground", RES_TYPE_STRING
);
4797 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4798 "background", "Background", RES_TYPE_STRING
);
4799 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4800 "pointerColor", "Foreground", RES_TYPE_STRING
);
4801 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4802 "cursorColor", "Foreground", RES_TYPE_STRING
);
4803 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4804 "borderColor", "BorderColor", RES_TYPE_STRING
);
4806 /* Init faces before x_default_parameter is called for scroll-bar
4807 parameters because that function calls x_set_scroll_bar_width,
4808 which calls change_frame_size, which calls Fset_window_buffer,
4809 which runs hooks, which call Fvertical_motion. At the end, we
4810 end up in init_iterator with a null face cache, which should not
4812 init_frame_faces (f
);
4814 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4816 window_prompting
= x_figure_window_size (f
, parms
, 0);
4819 XSetWindowAttributes attrs
;
4823 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4824 if (DoesSaveUnders (dpyinfo
->screen
))
4825 mask
|= CWSaveUnder
;
4827 /* Window managers look at the override-redirect flag to determine
4828 whether or net to give windows a decoration (Xlib spec, chapter
4830 attrs
.override_redirect
= True
;
4831 attrs
.save_under
= True
;
4832 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4833 /* Arrange for getting MapNotify and UnmapNotify events. */
4834 attrs
.event_mask
= StructureNotifyMask
;
4836 = FRAME_X_WINDOW (f
)
4837 = XCreateWindow (FRAME_X_DISPLAY (f
),
4838 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4839 /* x, y, width, height */
4843 CopyFromParent
, InputOutput
, CopyFromParent
,
4850 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4851 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4852 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4853 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4854 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4855 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4857 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4858 Change will not be effected unless different from the current
4860 width
= FRAME_COLS (f
);
4861 height
= FRAME_LINES (f
);
4862 SET_FRAME_COLS (f
, 0);
4863 FRAME_LINES (f
) = 0;
4864 change_frame_size (f
, height
, width
, 1, 0, 0);
4866 /* Add `tooltip' frame parameter's default value. */
4867 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4868 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4871 /* FIXME - can this be done in a similar way to normal frames?
4872 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
4874 /* Set the `display-type' frame parameter before setting up faces. */
4876 Lisp_Object disptype
;
4878 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4879 disptype
= intern ("mono");
4880 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
4881 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4882 disptype
= intern ("grayscale");
4884 disptype
= intern ("color");
4886 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4887 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4891 /* Set up faces after all frame parameters are known. This call
4892 also merges in face attributes specified for new frames.
4894 Frame parameters may be changed if .Xdefaults contains
4895 specifications for the default font. For example, if there is an
4896 `Emacs.default.attributeBackground: pink', the `background-color'
4897 attribute of the frame get's set, which let's the internal border
4898 of the tooltip frame appear in pink. Prevent this. */
4900 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4902 /* Set tip_frame here, so that */
4904 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
4906 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4907 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4915 /* It is now ok to make the frame official even if we get an error
4916 below. And the frame needs to be on Vframe_list or making it
4917 visible won't work. */
4918 Vframe_list
= Fcons (frame
, Vframe_list
);
4920 /* Now that the frame is official, it counts as a reference to
4922 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4924 /* Setting attributes of faces of the tooltip frame from resources
4925 and similar will increment face_change_count, which leads to the
4926 clearing of all current matrices. Since this isn't necessary
4927 here, avoid it by resetting face_change_count to the value it
4928 had before we created the tip frame. */
4929 face_change_count
= face_change_count_before
;
4931 /* Discard the unwind_protect. */
4932 return unbind_to (count
, frame
);
4936 /* Compute where to display tip frame F. PARMS is the list of frame
4937 parameters for F. DX and DY are specified offsets from the current
4938 location of the mouse. WIDTH and HEIGHT are the width and height
4939 of the tooltip. Return coordinates relative to the root window of
4940 the display in *ROOT_X, and *ROOT_Y. */
4943 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4945 Lisp_Object parms
, dx
, dy
;
4947 int *root_x
, *root_y
;
4949 Lisp_Object left
, top
;
4954 /* User-specified position? */
4955 left
= Fcdr (Fassq (Qleft
, parms
));
4956 top
= Fcdr (Fassq (Qtop
, parms
));
4958 /* Move the tooltip window where the mouse pointer is. Resize and
4960 if (!INTEGERP (left
) || !INTEGERP (top
))
4963 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4964 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4969 *root_y
= XINT (top
);
4970 else if (*root_y
+ XINT (dy
) <= 0)
4971 *root_y
= 0; /* Can happen for negative dy */
4972 else if (*root_y
+ XINT (dy
) + height
4973 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
4974 /* It fits below the pointer */
4975 *root_y
+= XINT (dy
);
4976 else if (height
+ XINT (dy
) <= *root_y
)
4977 /* It fits above the pointer. */
4978 *root_y
-= height
+ XINT (dy
);
4980 /* Put it on the top. */
4983 if (INTEGERP (left
))
4984 *root_x
= XINT (left
);
4985 else if (*root_x
+ XINT (dx
) <= 0)
4986 *root_x
= 0; /* Can happen for negative dx */
4987 else if (*root_x
+ XINT (dx
) + width
4988 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
4989 /* It fits to the right of the pointer. */
4990 *root_x
+= XINT (dx
);
4991 else if (width
+ XINT (dx
) <= *root_x
)
4992 /* It fits to the left of the pointer. */
4993 *root_x
-= width
+ XINT (dx
);
4995 /* Put it left-justified on the screen--it ought to fit that way. */
5000 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5001 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5002 A tooltip window is a small X window displaying a string.
5004 This is an internal function; Lisp code should call `tooltip-show'.
5006 FRAME nil or omitted means use the selected frame.
5008 PARMS is an optional list of frame parameters which can be used to
5009 change the tooltip's appearance.
5011 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5012 means use the default timeout of 5 seconds.
5014 If the list of frame parameters PARAMS contains a `left' parameters,
5015 the tooltip is displayed at that x-position. Otherwise it is
5016 displayed at the mouse position, with offset DX added (default is 5 if
5017 DX isn't specified). Likewise for the y-position; if a `top' frame
5018 parameter is specified, it determines the y-position of the tooltip
5019 window, otherwise it is displayed at the mouse position, with offset
5020 DY added (default is -10).
5022 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5023 Text larger than the specified size is clipped. */)
5024 (string
, frame
, parms
, timeout
, dx
, dy
)
5025 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
5030 struct buffer
*old_buffer
;
5031 struct text_pos pos
;
5032 int i
, width
, height
;
5033 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5034 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5035 int count
= SPECPDL_INDEX ();
5037 specbind (Qinhibit_redisplay
, Qt
);
5039 GCPRO4 (string
, parms
, frame
, timeout
);
5041 CHECK_STRING (string
);
5042 if (SCHARS (string
) == 0)
5043 string
= make_unibyte_string (" ", 1);
5045 f
= check_x_frame (frame
);
5047 timeout
= make_number (5);
5049 CHECK_NATNUM (timeout
);
5052 dx
= make_number (5);
5057 dy
= make_number (-10);
5061 if (NILP (last_show_tip_args
))
5062 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5064 if (!NILP (tip_frame
))
5066 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5067 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5068 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5070 if (EQ (frame
, last_frame
)
5071 && !NILP (Fequal (last_string
, string
))
5072 && !NILP (Fequal (last_parms
, parms
)))
5074 struct frame
*f
= XFRAME (tip_frame
);
5076 /* Only DX and DY have changed. */
5077 if (!NILP (tip_timer
))
5079 Lisp_Object timer
= tip_timer
;
5081 call1 (Qcancel_timer
, timer
);
5085 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5086 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5087 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5094 /* Hide a previous tip, if any. */
5097 ASET (last_show_tip_args
, 0, string
);
5098 ASET (last_show_tip_args
, 1, frame
);
5099 ASET (last_show_tip_args
, 2, parms
);
5101 /* Add default values to frame parameters. */
5102 if (NILP (Fassq (Qname
, parms
)))
5103 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5104 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5105 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5106 if (NILP (Fassq (Qborder_width
, parms
)))
5107 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5108 if (NILP (Fassq (Qborder_color
, parms
)))
5109 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5110 if (NILP (Fassq (Qbackground_color
, parms
)))
5111 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5114 /* Create a frame for the tooltip, and record it in the global
5115 variable tip_frame. */
5116 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5119 /* Set up the frame's root window. */
5120 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5121 w
->left_col
= w
->top_line
= make_number (0);
5123 if (CONSP (Vx_max_tooltip_size
)
5124 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5125 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5126 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5127 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5129 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5130 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5134 w
->total_cols
= make_number (80);
5135 w
->total_lines
= make_number (40);
5138 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5140 w
->pseudo_window_p
= 1;
5142 /* Display the tooltip text in a temporary buffer. */
5143 old_buffer
= current_buffer
;
5144 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5145 current_buffer
->truncate_lines
= Qnil
;
5146 clear_glyph_matrix (w
->desired_matrix
);
5147 clear_glyph_matrix (w
->current_matrix
);
5148 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5149 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5151 /* Compute width and height of the tooltip. */
5153 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5155 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5159 /* Stop at the first empty row at the end. */
5160 if (!row
->enabled_p
|| !row
->displays_text_p
)
5163 /* Let the row go over the full width of the frame. */
5164 row
->full_width_p
= 1;
5166 /* There's a glyph at the end of rows that is used to place
5167 the cursor there. Don't include the width of this glyph. */
5168 if (row
->used
[TEXT_AREA
])
5170 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5171 row_width
= row
->pixel_width
- last
->pixel_width
;
5174 row_width
= row
->pixel_width
;
5176 height
+= row
->height
;
5177 width
= max (width
, row_width
);
5180 /* Add the frame's internal border to the width and height the X
5181 window should have. */
5182 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5183 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5185 /* Move the tooltip window where the mouse pointer is. Resize and
5187 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5190 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5191 root_x
, root_y
, width
, height
);
5192 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5195 /* Draw into the window. */
5196 w
->must_be_updated_p
= 1;
5197 update_single_window (w
, 1);
5199 /* Restore original current buffer. */
5200 set_buffer_internal_1 (old_buffer
);
5201 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5204 /* Let the tip disappear after timeout seconds. */
5205 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5206 intern ("x-hide-tip"));
5209 return unbind_to (count
, Qnil
);
5213 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5214 doc
: /* Hide the current tooltip window, if there is any.
5215 Value is t if tooltip was open, nil otherwise. */)
5219 Lisp_Object deleted
, frame
, timer
;
5220 struct gcpro gcpro1
, gcpro2
;
5222 /* Return quickly if nothing to do. */
5223 if (NILP (tip_timer
) && NILP (tip_frame
))
5228 GCPRO2 (frame
, timer
);
5229 tip_frame
= tip_timer
= deleted
= Qnil
;
5231 count
= SPECPDL_INDEX ();
5232 specbind (Qinhibit_redisplay
, Qt
);
5233 specbind (Qinhibit_quit
, Qt
);
5236 call1 (Qcancel_timer
, timer
);
5240 delete_frame (frame
, Qnil
);
5244 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5245 redisplay procedure is not called when a tip frame over menu
5246 items is unmapped. Redisplay the menu manually... */
5248 struct frame
*f
= SELECTED_FRAME ();
5249 Widget w
= f
->output_data
.x
->menubar_widget
;
5250 extern void xlwmenu_redisplay
P_ ((Widget
));
5252 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5256 xlwmenu_redisplay (w
);
5260 #endif /* USE_LUCID */
5264 return unbind_to (count
, deleted
);
5269 /***********************************************************************
5270 File selection dialog
5271 ***********************************************************************/
5273 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5274 Sx_uses_old_gtk_dialog
,
5276 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5280 extern int use_dialog_box
;
5281 extern int use_file_dialog
;
5286 && xg_uses_old_file_dialog ())
5294 /* Callback for "OK" and "Cancel" on file selection dialog. */
5297 file_dialog_cb (widget
, client_data
, call_data
)
5299 XtPointer call_data
, client_data
;
5301 int *result
= (int *) client_data
;
5302 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5303 *result
= cb
->reason
;
5307 /* Callback for unmapping a file selection dialog. This is used to
5308 capture the case where a dialog is closed via a window manager's
5309 closer button, for example. Using a XmNdestroyCallback didn't work
5313 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5315 XtPointer call_data
, client_data
;
5317 int *result
= (int *) client_data
;
5318 *result
= XmCR_CANCEL
;
5322 clean_up_file_dialog (arg
)
5325 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5326 Widget dialog
= (Widget
) p
->pointer
;
5330 XtUnmanageChild (dialog
);
5331 XtDestroyWidget (dialog
);
5332 x_menu_set_in_use (0);
5339 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5340 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5341 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5342 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5343 or directory must exist. ONLY-DIR-P is ignored." */)
5344 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5345 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5348 struct frame
*f
= SELECTED_FRAME ();
5349 Lisp_Object file
= Qnil
;
5350 Lisp_Object decoded_file
;
5351 Widget dialog
, text
, help
;
5354 extern XtAppContext Xt_app_con
;
5355 XmString dir_xmstring
, pattern_xmstring
;
5356 int count
= SPECPDL_INDEX ();
5357 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5361 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5363 if (popup_activated ())
5364 error ("Trying to use a menu from within a menu-entry");
5366 CHECK_STRING (prompt
);
5369 /* Prevent redisplay. */
5370 specbind (Qinhibit_redisplay
, Qt
);
5374 /* Create the dialog with PROMPT as title, using DIR as initial
5375 directory and using "*" as pattern. */
5376 dir
= Fexpand_file_name (dir
, Qnil
);
5377 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5378 pattern_xmstring
= XmStringCreateLocalized ("*");
5380 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5381 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5382 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5383 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5384 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5385 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5387 XmStringFree (dir_xmstring
);
5388 XmStringFree (pattern_xmstring
);
5390 /* Add callbacks for OK and Cancel. */
5391 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5392 (XtPointer
) &result
);
5393 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5394 (XtPointer
) &result
);
5395 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5396 (XtPointer
) &result
);
5398 /* Remove the help button since we can't display help. */
5399 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5400 XtUnmanageChild (help
);
5402 /* Mark OK button as default. */
5403 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5404 XmNshowAsDefault
, True
, NULL
);
5406 /* If MUSTMATCH is non-nil, disable the file entry field of the
5407 dialog, so that the user must select a file from the files list
5408 box. We can't remove it because we wouldn't have a way to get at
5409 the result file name, then. */
5410 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5411 if (!NILP (mustmatch
))
5414 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5415 XtSetSensitive (text
, False
);
5416 XtSetSensitive (label
, False
);
5419 /* Manage the dialog, so that list boxes get filled. */
5420 XtManageChild (dialog
);
5422 if (STRINGP (default_filename
))
5424 XmString default_xmstring
;
5425 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5426 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5428 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5429 XmTextFieldReplace (wtext
, 0, last_pos
,
5430 (SDATA (Ffile_name_nondirectory (default_filename
))));
5432 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5433 must include the path for this to work. */
5435 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5437 if (XmListItemExists (list
, default_xmstring
))
5439 int item_pos
= XmListItemPos (list
, default_xmstring
);
5440 /* Select the item and scroll it into view. */
5441 XmListSelectPos (list
, item_pos
, True
);
5442 XmListSetPos (list
, item_pos
);
5445 XmStringFree (default_xmstring
);
5448 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5450 /* Process events until the user presses Cancel or OK. */
5451 x_menu_set_in_use (1);
5456 x_menu_wait_for_event (0);
5457 XtAppNextEvent (Xt_app_con
, &event
);
5458 if (event
.type
== KeyPress
5459 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5461 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5463 /* Pop down on C-g. */
5464 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5465 XtUnmanageChild (dialog
);
5468 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5471 /* Get the result. */
5472 if (result
== XmCR_OK
)
5477 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5478 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5479 XmStringFree (text
);
5480 file
= build_string (data
);
5489 /* Make "Cancel" equivalent to C-g. */
5491 Fsignal (Qquit
, Qnil
);
5493 decoded_file
= DECODE_FILE (file
);
5495 return unbind_to (count
, decoded_file
);
5498 #endif /* USE_MOTIF */
5503 clean_up_dialog (arg
)
5506 x_menu_set_in_use (0);
5511 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5512 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5513 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5514 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5515 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5517 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5518 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5520 FRAME_PTR f
= SELECTED_FRAME ();
5522 Lisp_Object file
= Qnil
;
5523 Lisp_Object decoded_file
;
5524 int count
= SPECPDL_INDEX ();
5525 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5530 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5532 if (popup_activated ())
5533 error ("Trying to use a menu from within a menu-entry");
5535 CHECK_STRING (prompt
);
5538 /* Prevent redisplay. */
5539 specbind (Qinhibit_redisplay
, Qt
);
5540 record_unwind_protect (clean_up_dialog
, Qnil
);
5544 if (STRINGP (default_filename
))
5545 cdef_file
= SDATA (default_filename
);
5547 cdef_file
= SDATA (dir
);
5549 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5551 ! NILP (only_dir_p
));
5555 file
= build_string (fn
);
5562 /* Make "Cancel" equivalent to C-g. */
5564 Fsignal (Qquit
, Qnil
);
5566 decoded_file
= DECODE_FILE (file
);
5568 return unbind_to (count
, decoded_file
);
5572 #ifdef HAVE_FREETYPE
5574 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5575 doc
: /* Read a font name using a GTK font selection dialog.
5576 Return a GTK-style font string corresponding to the selection.
5578 If FRAME is omitted or nil, it defaults to the selected frame. */)
5580 Lisp_Object frame
, ignored
;
5582 FRAME_PTR f
= check_x_frame (frame
);
5585 Lisp_Object font_param
;
5586 char *default_name
= NULL
;
5587 struct gcpro gcpro1
, gcpro2
;
5588 int count
= SPECPDL_INDEX ();
5592 if (popup_activated ())
5593 error ("Trying to use a menu from within a menu-entry");
5595 /* Prevent redisplay. */
5596 specbind (Qinhibit_redisplay
, Qt
);
5597 record_unwind_protect (clean_up_dialog
, Qnil
);
5601 GCPRO2(font_param
, font
);
5603 XSETFONT (font
, FRAME_FONT (f
));
5604 font_param
= Ffont_get (font
, intern_c_string (":name"));
5605 if (STRINGP (font_param
))
5606 default_name
= SDATA (font_param
);
5609 font_param
= Fframe_parameter (frame
, Qfont_param
);
5610 if (STRINGP (font_param
))
5611 default_name
= SDATA (font_param
);
5614 if (default_name
== NULL
&& x_last_font_name
!= NULL
)
5615 default_name
= x_last_font_name
;
5617 name
= xg_get_font_name (f
, default_name
);
5621 font
= build_string (name
);
5622 g_free (x_last_font_name
);
5623 x_last_font_name
= name
;
5629 Fsignal (Qquit
, Qnil
);
5631 return unbind_to (count
, font
);
5633 #endif /* HAVE_FREETYPE */
5635 #endif /* USE_GTK */
5638 /***********************************************************************
5640 ***********************************************************************/
5642 #ifdef HAVE_XKBGETKEYBOARD
5643 #include <X11/XKBlib.h>
5644 #include <X11/keysym.h>
5647 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5648 Sx_backspace_delete_keys_p
, 0, 1, 0,
5649 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5650 FRAME nil means use the selected frame.
5651 Value is t if we know that both keys are present, and are mapped to the
5652 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5653 present and mapped to the usual X keysyms. */)
5657 #ifdef HAVE_XKBGETKEYBOARD
5659 struct frame
*f
= check_x_frame (frame
);
5660 Display
*dpy
= FRAME_X_DISPLAY (f
);
5661 Lisp_Object have_keys
;
5662 int major
, minor
, op
, event
, error
;
5666 /* Check library version in case we're dynamically linked. */
5667 major
= XkbMajorVersion
;
5668 minor
= XkbMinorVersion
;
5669 if (!XkbLibraryVersion (&major
, &minor
))
5675 /* Check that the server supports XKB. */
5676 major
= XkbMajorVersion
;
5677 minor
= XkbMinorVersion
;
5678 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5684 /* In this code we check that the keyboard has physical keys with names
5685 that start with BKSP (Backspace) and DELE (Delete), and that they
5686 generate keysym XK_BackSpace and XK_Delete respectively.
5687 This function is used to test if normal-erase-is-backspace should be
5689 An alternative approach would be to just check if XK_BackSpace and
5690 XK_Delete are mapped to any key. But if any of those are mapped to
5691 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5692 user doesn't know about it, it is better to return false here.
5693 It is more obvious to the user what to do if she/he has two keys
5694 clearly marked with names/symbols and one key does something not
5695 expected (i.e. she/he then tries the other).
5696 The cases where Backspace/Delete is mapped to some other key combination
5697 are rare, and in those cases, normal-erase-is-backspace can be turned on
5701 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5704 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5706 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5708 for (i
= kb
->min_key_code
;
5709 (i
< kb
->max_key_code
5710 && (delete_keycode
== 0 || backspace_keycode
== 0));
5713 /* The XKB symbolic key names can be seen most easily in
5714 the PS file generated by `xkbprint -label name
5716 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5718 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5719 backspace_keycode
= i
;
5722 XkbFreeNames (kb
, 0, True
);
5725 XkbFreeClientMap (kb
, 0, True
);
5728 && backspace_keycode
5729 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5730 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5735 #else /* not HAVE_XKBGETKEYBOARD */
5737 #endif /* not HAVE_XKBGETKEYBOARD */
5742 /***********************************************************************
5744 ***********************************************************************/
5746 /* Keep this list in the same order as frame_parms in frame.c.
5747 Use 0 for unsupported frame parameters. */
5749 frame_parm_handler x_frame_parm_handlers
[] =
5753 x_set_background_color
,
5759 x_set_foreground_color
,
5762 x_set_internal_border_width
,
5763 x_set_menu_bar_lines
,
5765 x_explicitly_set_name
,
5766 x_set_scroll_bar_width
,
5769 x_set_vertical_scroll_bars
,
5771 x_set_tool_bar_lines
,
5772 x_set_scroll_bar_foreground
,
5773 x_set_scroll_bar_background
,
5788 /* This is zero if not using X windows. */
5791 /* The section below is built by the lisp expression at the top of the file,
5792 just above where these variables are declared. */
5793 /*&&& init symbols here &&&*/
5794 Qnone
= intern_c_string ("none");
5796 Qsuppress_icon
= intern_c_string ("suppress-icon");
5797 staticpro (&Qsuppress_icon
);
5798 Qundefined_color
= intern_c_string ("undefined-color");
5799 staticpro (&Qundefined_color
);
5800 Qcompound_text
= intern_c_string ("compound-text");
5801 staticpro (&Qcompound_text
);
5802 Qcancel_timer
= intern_c_string ("cancel-timer");
5803 staticpro (&Qcancel_timer
);
5804 Qfont_param
= intern_c_string ("font-parameter");
5805 staticpro (&Qfont_param
);
5806 /* This is the end of symbol initialization. */
5808 /* Text property `display' should be nonsticky by default. */
5809 Vtext_property_default_nonsticky
5810 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5813 Fput (Qundefined_color
, Qerror_conditions
,
5814 pure_cons (Qundefined_color
, pure_cons (Qerror
, Qnil
)));
5815 Fput (Qundefined_color
, Qerror_message
,
5816 make_pure_c_string ("Undefined color"));
5818 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5819 doc
: /* The shape of the pointer when over text.
5820 Changing the value does not affect existing frames
5821 unless you set the mouse color. */);
5822 Vx_pointer_shape
= Qnil
;
5824 #if 0 /* This doesn't really do anything. */
5825 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5826 doc
: /* The shape of the pointer when not over text.
5827 This variable takes effect when you create a new frame
5828 or when you set the mouse color. */);
5830 Vx_nontext_pointer_shape
= Qnil
;
5832 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5833 doc
: /* The shape of the pointer when Emacs is busy.
5834 This variable takes effect when you create a new frame
5835 or when you set the mouse color. */);
5836 Vx_hourglass_pointer_shape
= Qnil
;
5838 #if 0 /* This doesn't really do anything. */
5839 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5840 doc
: /* The shape of the pointer when over the mode line.
5841 This variable takes effect when you create a new frame
5842 or when you set the mouse color. */);
5844 Vx_mode_pointer_shape
= Qnil
;
5846 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5847 &Vx_sensitive_text_pointer_shape
,
5848 doc
: /* The shape of the pointer when over mouse-sensitive text.
5849 This variable takes effect when you create a new frame
5850 or when you set the mouse color. */);
5851 Vx_sensitive_text_pointer_shape
= Qnil
;
5853 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5854 &Vx_window_horizontal_drag_shape
,
5855 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5856 This variable takes effect when you create a new frame
5857 or when you set the mouse color. */);
5858 Vx_window_horizontal_drag_shape
= Qnil
;
5860 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5861 doc
: /* A string indicating the foreground color of the cursor box. */);
5862 Vx_cursor_fore_pixel
= Qnil
;
5864 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5865 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5866 Text larger than this is clipped. */);
5867 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5869 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5870 doc
: /* Non-nil if no X window manager is in use.
5871 Emacs doesn't try to figure this out; this is always nil
5872 unless you set it to something else. */);
5873 /* We don't have any way to find this out, so set it to nil
5874 and maybe the user would like to set it to t. */
5875 Vx_no_window_manager
= Qnil
;
5877 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5878 &Vx_pixel_size_width_font_regexp
,
5879 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5881 Since Emacs gets width of a font matching with this regexp from
5882 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5883 such a font. This is especially effective for such large fonts as
5884 Chinese, Japanese, and Korean. */);
5885 Vx_pixel_size_width_font_regexp
= Qnil
;
5887 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5888 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", &x_gtk_use_old_file_dialog
,
5889 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5890 If nil or if the file selection dialog is not available, the new GTK file
5891 chooser is used instead. To turn off all file dialogs set the
5892 variable `use-file-dialog'. */);
5893 x_gtk_use_old_file_dialog
= 0;
5895 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5896 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5897 Note that this is just the default, there is a toggle button on the file
5898 chooser to show or not show hidden files on a case by case basis. */);
5899 x_gtk_show_hidden_files
= 0;
5901 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", &x_gtk_file_dialog_help_text
,
5902 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
5903 If more space for files in the file chooser dialog is wanted, set this to nil
5904 to turn the additional text off. */);
5905 x_gtk_file_dialog_help_text
= 1;
5907 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
5908 doc
: /* *If non-nil, a detached tool bar is shown in full.
5909 The default is to just show an arrow and pressing on that arrow shows
5910 the tool bar buttons. */);
5911 x_gtk_whole_detached_tool_bar
= 0;
5913 Fprovide (intern_c_string ("x"), Qnil
);
5915 #ifdef USE_X_TOOLKIT
5916 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5918 Fprovide (intern_c_string ("motif"), Qnil
);
5920 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5921 doc
: /* Version info for LessTif/Motif. */);
5922 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5923 #endif /* USE_MOTIF */
5924 #endif /* USE_X_TOOLKIT */
5927 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5928 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5929 But for a user it is a toolkit for X, and indeed, configure
5930 accepts --with-x-toolkit=gtk. */
5931 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5932 Fprovide (intern_c_string ("gtk"), Qnil
);
5934 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5935 doc
: /* Version info for GTK+. */);
5937 char gtk_version
[40];
5938 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5939 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5940 Vgtk_version_string
= make_pure_string (gtk_version
, strlen (gtk_version
), strlen (gtk_version
), 0);
5942 #endif /* USE_GTK */
5944 /* X window properties. */
5945 defsubr (&Sx_change_window_property
);
5946 defsubr (&Sx_delete_window_property
);
5947 defsubr (&Sx_window_property
);
5949 defsubr (&Sxw_display_color_p
);
5950 defsubr (&Sx_display_grayscale_p
);
5951 defsubr (&Sxw_color_defined_p
);
5952 defsubr (&Sxw_color_values
);
5953 defsubr (&Sx_server_max_request_size
);
5954 defsubr (&Sx_server_vendor
);
5955 defsubr (&Sx_server_version
);
5956 defsubr (&Sx_display_pixel_width
);
5957 defsubr (&Sx_display_pixel_height
);
5958 defsubr (&Sx_display_mm_width
);
5959 defsubr (&Sx_display_mm_height
);
5960 defsubr (&Sx_display_screens
);
5961 defsubr (&Sx_display_planes
);
5962 defsubr (&Sx_display_color_cells
);
5963 defsubr (&Sx_display_visual_class
);
5964 defsubr (&Sx_display_backing_store
);
5965 defsubr (&Sx_display_save_under
);
5966 defsubr (&Sx_wm_set_size_hint
);
5967 defsubr (&Sx_create_frame
);
5968 defsubr (&Sx_open_connection
);
5969 defsubr (&Sx_close_connection
);
5970 defsubr (&Sx_display_list
);
5971 defsubr (&Sx_synchronize
);
5972 defsubr (&Sx_focus_frame
);
5973 defsubr (&Sx_backspace_delete_keys_p
);
5975 /* Setting callback functions for fontset handler. */
5976 check_window_system_func
= check_x
;
5978 defsubr (&Sx_show_tip
);
5979 defsubr (&Sx_hide_tip
);
5981 staticpro (&tip_timer
);
5983 staticpro (&tip_frame
);
5985 last_show_tip_args
= Qnil
;
5986 staticpro (&last_show_tip_args
);
5988 defsubr (&Sx_uses_old_gtk_dialog
);
5989 #if defined (USE_MOTIF) || defined (USE_GTK)
5990 defsubr (&Sx_file_dialog
);
5993 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
5994 defsubr (&Sx_select_font
);
5995 x_last_font_name
= NULL
;
5999 #endif /* HAVE_X_WINDOWS */
6001 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
6002 (do not change this comment) */