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
))
3035 font_param
= Ffont_get_system_font();
3036 got_from_gconf
= !NILP (font_param
);
3039 font
= !NILP (font_param
) ? font_param
3040 : x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3042 if (! STRINGP (font
))
3047 /* This will find the normal Xft font. */
3050 "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1",
3051 "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3052 "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1",
3053 /* This was formerly the first thing tried, but it finds
3054 too many fonts and takes too long. */
3055 "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1",
3056 /* If those didn't work, look for something which will
3058 "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1",
3063 for (i
= 0; names
[i
]; i
++)
3065 font
= font_open_by_name (f
, names
[i
]);
3070 error ("No suitable font was found");
3072 else if (!NILP (font_param
))
3074 /* Remember the explicit font parameter, so we can re-apply it after
3075 we've applied the `default' face settings. */
3076 x_set_frame_parameters (f
, Fcons (Fcons (Qfont_param
, font_param
), Qnil
));
3079 x_default_parameter (f
, parms
, Qfont
, font
,
3080 got_from_gconf
? NULL
: "font",
3081 got_from_gconf
? NULL
: "Font",
3086 DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint
, Sx_wm_set_size_hint
,
3088 doc
: /* Send the size hints for frame FRAME to the window manager.
3089 If FRAME is nil, use the selected frame. */)
3095 frame
= selected_frame
;
3099 x_wm_set_size_hint (f
, 0, 0);
3104 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3106 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3107 Return an Emacs frame object.
3108 PARMS is an alist of frame parameters.
3109 If the parameters specify that the frame should not have a minibuffer,
3110 and do not specify a specific minibuffer window to use,
3111 then `default-minibuffer-frame' must be a frame whose minibuffer can
3112 be shared by the new frame.
3114 This function is an internal primitive--use `make-frame' instead. */)
3119 Lisp_Object frame
, tem
;
3121 int minibuffer_only
= 0;
3122 long window_prompting
= 0;
3124 int count
= SPECPDL_INDEX ();
3125 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3126 Lisp_Object display
;
3127 struct x_display_info
*dpyinfo
= NULL
;
3131 parms
= Fcopy_alist (parms
);
3133 /* Use this general default value to start with
3134 until we know if this frame has a specified name. */
3135 Vx_resource_name
= Vinvocation_name
;
3137 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3138 if (EQ (display
, Qunbound
))
3139 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3140 if (EQ (display
, Qunbound
))
3142 dpyinfo
= check_x_display_info (display
);
3143 kb
= dpyinfo
->terminal
->kboard
;
3145 if (!dpyinfo
->terminal
->name
)
3146 error ("Terminal is not live, can't create new frames on it");
3148 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3150 && ! EQ (name
, Qunbound
)
3152 error ("Invalid frame name--not a string or nil");
3155 Vx_resource_name
= name
;
3157 /* See if parent window is specified. */
3158 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3159 if (EQ (parent
, Qunbound
))
3161 if (! NILP (parent
))
3162 CHECK_NUMBER (parent
);
3164 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3165 /* No need to protect DISPLAY because that's not used after passing
3166 it to make_frame_without_minibuffer. */
3168 GCPRO4 (parms
, parent
, name
, frame
);
3169 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3171 if (EQ (tem
, Qnone
) || NILP (tem
))
3172 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3173 else if (EQ (tem
, Qonly
))
3175 f
= make_minibuffer_frame ();
3176 minibuffer_only
= 1;
3178 else if (WINDOWP (tem
))
3179 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3183 XSETFRAME (frame
, f
);
3185 /* Note that X Windows does support scroll bars. */
3186 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3188 f
->terminal
= dpyinfo
->terminal
;
3189 f
->terminal
->reference_count
++;
3191 f
->output_method
= output_x_window
;
3192 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3193 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3194 f
->output_data
.x
->icon_bitmap
= -1;
3195 FRAME_FONTSET (f
) = -1;
3196 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3197 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3198 #ifdef USE_TOOLKIT_SCROLL_BARS
3199 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3200 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3201 #endif /* USE_TOOLKIT_SCROLL_BARS */
3204 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3206 if (! STRINGP (f
->icon_name
))
3207 f
->icon_name
= Qnil
;
3209 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3211 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3212 record_unwind_protect (unwind_create_frame
, frame
);
3214 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
3215 dpyinfo_refcount
= dpyinfo
->reference_count
;
3216 #endif /* GLYPH_DEBUG */
3218 /* These colors will be set anyway later, but it's important
3219 to get the color reference counts right, so initialize them! */
3222 struct gcpro gcpro1
;
3224 /* Function x_decode_color can signal an error. Make
3225 sure to initialize color slots so that we won't try
3226 to free colors we haven't allocated. */
3227 FRAME_FOREGROUND_PIXEL (f
) = -1;
3228 FRAME_BACKGROUND_PIXEL (f
) = -1;
3229 f
->output_data
.x
->cursor_pixel
= -1;
3230 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3231 f
->output_data
.x
->border_pixel
= -1;
3232 f
->output_data
.x
->mouse_pixel
= -1;
3234 black
= build_string ("black");
3236 FRAME_FOREGROUND_PIXEL (f
)
3237 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3238 FRAME_BACKGROUND_PIXEL (f
)
3239 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3240 f
->output_data
.x
->cursor_pixel
3241 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3242 f
->output_data
.x
->cursor_foreground_pixel
3243 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3244 f
->output_data
.x
->border_pixel
3245 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3246 f
->output_data
.x
->mouse_pixel
3247 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3251 /* Specify the parent under which to make this X window. */
3255 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3256 f
->output_data
.x
->explicit_parent
= 1;
3260 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3261 f
->output_data
.x
->explicit_parent
= 0;
3264 /* Set the name; the functions to which we pass f expect the name to
3266 if (EQ (name
, Qunbound
) || NILP (name
))
3268 f
->name
= build_string (dpyinfo
->x_id_name
);
3269 f
->explicit_name
= 0;
3274 f
->explicit_name
= 1;
3275 /* use the frame's title when getting resources for this frame. */
3276 specbind (Qx_resource_name
, name
);
3279 f
->resx
= dpyinfo
->resx
;
3280 f
->resy
= dpyinfo
->resy
;
3282 #ifdef HAVE_FREETYPE
3284 register_font_driver (&xftfont_driver
, f
);
3285 #else /* not HAVE_XFT */
3286 register_font_driver (&ftxfont_driver
, f
);
3287 #endif /* not HAVE_XFT */
3288 #endif /* HAVE_FREETYPE */
3289 register_font_driver (&xfont_driver
, f
);
3291 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
3292 "fontBackend", "FontBackend", RES_TYPE_STRING
);
3294 /* Extract the window parameters from the supplied values
3295 that are needed to determine window geometry. */
3296 x_default_font_parameter (f
, parms
);
3297 if (!FRAME_FONT (f
))
3299 delete_frame (frame
, Qnoelisp
);
3300 error ("Invalid frame font");
3304 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3305 whereby it fails to get any font. */
3306 xlwmenu_default_font
= XLoadQueryFont (FRAME_X_DISPLAY (f
), "fixed");
3309 /* Frame contents get displaced if an embedded X window has a border. */
3310 if (! FRAME_X_EMBEDDED_P (f
))
3311 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3312 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3314 /* This defaults to 1 in order to match xterm. We recognize either
3315 internalBorderWidth or internalBorder (which is what xterm calls
3317 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3321 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3322 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3323 if (! EQ (value
, Qunbound
))
3324 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3327 x_default_parameter (f
, parms
, Qinternal_border_width
,
3328 #ifdef USE_GTK /* We used to impose 0 in xg_create_frame_widgets. */
3333 "internalBorderWidth", "internalBorderWidth",
3335 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3336 "verticalScrollBars", "ScrollBars",
3339 /* Also do the stuff which must be set before the window exists. */
3340 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3341 "foreground", "Foreground", RES_TYPE_STRING
);
3342 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3343 "background", "Background", RES_TYPE_STRING
);
3344 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3345 "pointerColor", "Foreground", RES_TYPE_STRING
);
3346 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3347 "cursorColor", "Foreground", RES_TYPE_STRING
);
3348 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3349 "borderColor", "BorderColor", RES_TYPE_STRING
);
3350 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3351 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3352 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3353 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3354 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3355 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3356 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3357 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3359 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3360 "scrollBarForeground",
3361 "ScrollBarForeground", 1);
3362 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3363 "scrollBarBackground",
3364 "ScrollBarBackground", 0);
3366 /* Init faces before x_default_parameter is called for scroll-bar
3367 parameters because that function calls x_set_scroll_bar_width,
3368 which calls change_frame_size, which calls Fset_window_buffer,
3369 which runs hooks, which call Fvertical_motion. At the end, we
3370 end up in init_iterator with a null face cache, which should not
3372 init_frame_faces (f
);
3374 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3375 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3376 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3377 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3378 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3379 "bufferPredicate", "BufferPredicate",
3381 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3382 "title", "Title", RES_TYPE_STRING
);
3383 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3384 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3385 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3386 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3388 /* Compute the size of the X window. */
3389 window_prompting
= x_figure_window_size (f
, parms
, 1);
3391 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3392 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3394 x_icon_verify (f
, parms
);
3396 /* Create the X widget or window. */
3397 #ifdef USE_X_TOOLKIT
3398 x_window (f
, window_prompting
, minibuffer_only
);
3406 /* Now consider the frame official. */
3407 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3408 Vframe_list
= Fcons (frame
, Vframe_list
);
3410 /* We need to do this after creating the X window, so that the
3411 icon-creation functions can say whose icon they're describing. */
3412 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3413 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3415 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3416 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3417 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3418 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3419 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3420 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3421 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3422 "scrollBarWidth", "ScrollBarWidth",
3424 x_default_parameter (f
, parms
, Qalpha
, Qnil
,
3425 "alpha", "Alpha", RES_TYPE_NUMBER
);
3427 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3428 Change will not be effected unless different from the current
3430 width
= FRAME_COLS (f
);
3431 height
= FRAME_LINES (f
);
3433 SET_FRAME_COLS (f
, 0);
3434 FRAME_LINES (f
) = 0;
3435 change_frame_size (f
, height
, width
, 1, 0, 0);
3437 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3438 /* Create the menu bar. */
3439 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3441 /* If this signals an error, we haven't set size hints for the
3442 frame and we didn't make it visible. */
3443 initialize_frame_menubar (f
);
3446 /* This is a no-op, except under Motif where it arranges the
3447 main window for the widgets on it. */
3448 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3449 f
->output_data
.x
->menubar_widget
,
3450 f
->output_data
.x
->edit_widget
);
3451 #endif /* not USE_GTK */
3453 #endif /* USE_X_TOOLKIT || USE_GTK */
3455 /* Tell the server what size and position, etc, we want, and how
3456 badly we want them. This should be done after we have the menu
3457 bar so that its size can be taken into account. */
3459 x_wm_set_size_hint (f
, window_prompting
, 0);
3462 /* Make the window appear on the frame and enable display, unless
3463 the caller says not to. However, with explicit parent, Emacs
3464 cannot control visibility, so don't try. */
3465 if (! f
->output_data
.x
->explicit_parent
)
3467 Lisp_Object visibility
;
3469 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3471 if (EQ (visibility
, Qunbound
))
3474 if (EQ (visibility
, Qicon
))
3475 x_iconify_frame (f
);
3476 else if (! NILP (visibility
))
3477 x_make_frame_visible (f
);
3479 /* Must have been Qnil. */
3483 /* Set the WM leader property. GTK does this itself, so this is not
3484 needed when using GTK. */
3485 if (dpyinfo
->client_leader_window
!= 0)
3488 XChangeProperty (FRAME_X_DISPLAY (f
),
3489 FRAME_OUTER_WINDOW (f
),
3490 dpyinfo
->Xatom_wm_client_leader
,
3491 XA_WINDOW
, 32, PropModeReplace
,
3492 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3496 /* Initialize `default-minibuffer-frame' in case this is the first
3497 frame on this terminal. */
3498 if (FRAME_HAS_MINIBUF_P (f
)
3499 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3500 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3501 kb
->Vdefault_minibuffer_frame
= frame
;
3503 /* All remaining specified parameters, which have not been "used"
3504 by x_get_arg and friends, now go in the misc. alist of the frame. */
3505 for (tem
= parms
; CONSP (tem
); tem
= XCDR (tem
))
3506 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3507 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3511 /* Make sure windows on this frame appear in calls to next-window
3512 and similar functions. */
3513 Vwindow_list
= Qnil
;
3515 return unbind_to (count
, frame
);
3519 /* FRAME is used only to get a handle on the X display. We don't pass the
3520 display info directly because we're called from frame.c, which doesn't
3521 know about that structure. */
3524 x_get_focus_frame (frame
)
3525 struct frame
*frame
;
3527 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3529 if (! dpyinfo
->x_focus_frame
)
3532 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3537 /* In certain situations, when the window manager follows a
3538 click-to-focus policy, there seems to be no way around calling
3539 XSetInputFocus to give another frame the input focus .
3541 In an ideal world, XSetInputFocus should generally be avoided so
3542 that applications don't interfere with the window manager's focus
3543 policy. But I think it's okay to use when it's clearly done
3544 following a user-command. */
3546 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3547 doc
: /* Set the input focus to FRAME.
3548 FRAME nil means use the selected frame. */)
3552 struct frame
*f
= check_x_frame (frame
);
3553 Display
*dpy
= FRAME_X_DISPLAY (f
);
3556 x_catch_errors (dpy
);
3557 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3558 RevertToParent
, CurrentTime
);
3559 x_ewmh_activate_frame (f
);
3560 x_uncatch_errors ();
3567 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3568 doc
: /* Internal function called by `color-defined-p', which see. */)
3570 Lisp_Object color
, frame
;
3573 FRAME_PTR f
= check_x_frame (frame
);
3575 CHECK_STRING (color
);
3577 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3583 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3584 doc
: /* Internal function called by `color-values', which see. */)
3586 Lisp_Object color
, frame
;
3589 FRAME_PTR f
= check_x_frame (frame
);
3591 CHECK_STRING (color
);
3593 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3594 return list3 (make_number (foo
.red
),
3595 make_number (foo
.green
),
3596 make_number (foo
.blue
));
3601 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3602 doc
: /* Internal function called by `display-color-p', which see. */)
3604 Lisp_Object terminal
;
3606 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3608 if (dpyinfo
->n_planes
<= 2)
3611 switch (dpyinfo
->visual
->class)
3624 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3626 doc
: /* Return t if the X display supports shades of gray.
3627 Note that color displays do support shades of gray.
3628 The optional argument TERMINAL specifies which display to ask about.
3629 TERMINAL should be a terminal object, a frame or a display name (a string).
3630 If omitted or nil, that stands for the selected frame's display. */)
3632 Lisp_Object terminal
;
3634 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3636 if (dpyinfo
->n_planes
<= 1)
3639 switch (dpyinfo
->visual
->class)
3654 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3656 doc
: /* Return the width in pixels of the X display TERMINAL.
3657 The optional argument TERMINAL specifies which display to ask about.
3658 TERMINAL should be a terminal object, a frame or a display name (a string).
3659 If omitted or nil, that stands for the selected frame's display. */)
3661 Lisp_Object terminal
;
3663 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3665 return make_number (x_display_pixel_width (dpyinfo
));
3668 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3669 Sx_display_pixel_height
, 0, 1, 0,
3670 doc
: /* Return the height in pixels of the X display TERMINAL.
3671 The optional argument TERMINAL specifies which display to ask about.
3672 TERMINAL should be a terminal object, a frame or a display name (a string).
3673 If omitted or nil, that stands for the selected frame's display. */)
3675 Lisp_Object terminal
;
3677 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3679 return make_number (x_display_pixel_height (dpyinfo
));
3682 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3684 doc
: /* Return the number of bitplanes of the X display TERMINAL.
3685 The optional argument TERMINAL specifies which display to ask about.
3686 TERMINAL should be a terminal object, a frame or a display name (a string).
3687 If omitted or nil, that stands for the selected frame's display. */)
3689 Lisp_Object terminal
;
3691 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3693 return make_number (dpyinfo
->n_planes
);
3696 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3698 doc
: /* Return the number of color cells of the X display TERMINAL.
3699 The optional argument TERMINAL specifies which display to ask about.
3700 TERMINAL should be a terminal object, a frame or a display name (a string).
3701 If omitted or nil, that stands for the selected frame's display. */)
3703 Lisp_Object terminal
;
3705 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3707 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3708 XScreenNumberOfScreen (dpyinfo
->screen
));
3710 /* Truncate nr_planes to 24 to avoid integer overflow.
3711 Some displays says 32, but only 24 bits are actually significant.
3712 There are only very few and rare video cards that have more than
3713 24 significant bits. Also 24 bits is more than 16 million colors,
3714 it "should be enough for everyone". */
3715 if (nr_planes
> 24) nr_planes
= 24;
3717 return make_number (1 << nr_planes
);
3720 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3721 Sx_server_max_request_size
,
3723 doc
: /* Return the maximum request size of the X server of display TERMINAL.
3724 The optional argument TERMINAL specifies which display to ask about.
3725 TERMINAL should be a terminal object, a frame or a display name (a string).
3726 If omitted or nil, that stands for the selected frame's display. */)
3728 Lisp_Object terminal
;
3730 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3732 return make_number (MAXREQUEST (dpyinfo
->display
));
3735 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3736 doc
: /* Return the "vendor ID" string of the X server of display TERMINAL.
3737 \(Labelling every distributor as a "vendor" embodies the false assumption
3738 that operating systems cannot be developed and distributed noncommercially.)
3739 The optional argument TERMINAL specifies which display to ask about.
3740 TERMINAL should be a terminal object, a frame or a display name (a string).
3741 If omitted or nil, that stands for the selected frame's display. */)
3743 Lisp_Object terminal
;
3745 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3746 char *vendor
= ServerVendor (dpyinfo
->display
);
3748 if (! vendor
) vendor
= "";
3749 return build_string (vendor
);
3752 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3753 doc
: /* Return the version numbers of the X server of display TERMINAL.
3754 The value is a list of three integers: the major and minor
3755 version numbers of the X Protocol in use, and the distributor-specific release
3756 number. See also the function `x-server-vendor'.
3758 The optional argument TERMINAL specifies which display to ask about.
3759 TERMINAL should be a terminal object, a frame or a display name (a string).
3760 If omitted or nil, that stands for the selected frame's display. */)
3762 Lisp_Object terminal
;
3764 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3765 Display
*dpy
= dpyinfo
->display
;
3767 return Fcons (make_number (ProtocolVersion (dpy
)),
3768 Fcons (make_number (ProtocolRevision (dpy
)),
3769 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3772 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3773 doc
: /* Return the number of screens on the X server of display TERMINAL.
3774 The optional argument TERMINAL specifies which display to ask about.
3775 TERMINAL should be a terminal object, a frame or a display name (a string).
3776 If omitted or nil, that stands for the selected frame's display. */)
3778 Lisp_Object terminal
;
3780 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3782 return make_number (ScreenCount (dpyinfo
->display
));
3785 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3786 doc
: /* Return the height in millimeters of the X display TERMINAL.
3787 The optional argument TERMINAL specifies which display to ask about.
3788 TERMINAL should be a terminal object, a frame or a display name (a string).
3789 If omitted or nil, that stands for the selected frame's display. */)
3791 Lisp_Object terminal
;
3793 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3795 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3798 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3799 doc
: /* Return the width in millimeters of the X display TERMINAL.
3800 The optional argument TERMINAL specifies which display to ask about.
3801 TERMINAL should be a terminal object, a frame or a display name (a string).
3802 If omitted or nil, that stands for the selected frame's display. */)
3804 Lisp_Object terminal
;
3806 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3808 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3811 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3812 Sx_display_backing_store
, 0, 1, 0,
3813 doc
: /* Return an indication of whether X display TERMINAL does backing store.
3814 The value may be `always', `when-mapped', or `not-useful'.
3815 The optional argument TERMINAL specifies which display to ask about.
3816 TERMINAL should be a terminal object, a frame or a display name (a string).
3817 If omitted or nil, that stands for the selected frame's display. */)
3819 Lisp_Object terminal
;
3821 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3824 switch (DoesBackingStore (dpyinfo
->screen
))
3827 result
= intern ("always");
3831 result
= intern ("when-mapped");
3835 result
= intern ("not-useful");
3839 error ("Strange value for BackingStore parameter of screen");
3846 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3847 Sx_display_visual_class
, 0, 1, 0,
3848 doc
: /* Return the visual class of the X display TERMINAL.
3849 The value is one of the symbols `static-gray', `gray-scale',
3850 `static-color', `pseudo-color', `true-color', or `direct-color'.
3852 The optional argument TERMINAL specifies which display to ask about.
3853 TERMINAL should a terminal object, a frame or a display name (a string).
3854 If omitted or nil, that stands for the selected frame's display. */)
3856 Lisp_Object terminal
;
3858 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3861 switch (dpyinfo
->visual
->class)
3864 result
= intern ("static-gray");
3867 result
= intern ("gray-scale");
3870 result
= intern ("static-color");
3873 result
= intern ("pseudo-color");
3876 result
= intern ("true-color");
3879 result
= intern ("direct-color");
3882 error ("Display has an unknown visual class");
3889 DEFUN ("x-display-save-under", Fx_display_save_under
,
3890 Sx_display_save_under
, 0, 1, 0,
3891 doc
: /* Return t if the X display TERMINAL supports the save-under feature.
3892 The optional argument TERMINAL specifies which display to ask about.
3893 TERMINAL should be a terminal object, a frame or a display name (a string).
3894 If omitted or nil, that stands for the selected frame's display. */)
3896 Lisp_Object terminal
;
3898 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3900 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3908 register struct frame
*f
;
3910 return FRAME_PIXEL_WIDTH (f
);
3915 register struct frame
*f
;
3917 return FRAME_PIXEL_HEIGHT (f
);
3922 register struct frame
*f
;
3924 return FRAME_COLUMN_WIDTH (f
);
3929 register struct frame
*f
;
3931 return FRAME_LINE_HEIGHT (f
);
3936 register struct frame
*f
;
3938 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3943 /************************************************************************
3945 ************************************************************************/
3948 /* Mapping visual names to visuals. */
3950 static struct visual_class
3957 {"StaticGray", StaticGray
},
3958 {"GrayScale", GrayScale
},
3959 {"StaticColor", StaticColor
},
3960 {"PseudoColor", PseudoColor
},
3961 {"TrueColor", TrueColor
},
3962 {"DirectColor", DirectColor
},
3967 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3969 /* Value is the screen number of screen SCR. This is a substitute for
3970 the X function with the same name when that doesn't exist. */
3973 XScreenNumberOfScreen (scr
)
3974 register Screen
*scr
;
3976 Display
*dpy
= scr
->display
;
3979 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3980 if (scr
== dpy
->screens
+ i
)
3986 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3989 /* Select the visual that should be used on display DPYINFO. Set
3990 members of DPYINFO appropriately. Called from x_term_init. */
3993 select_visual (dpyinfo
)
3994 struct x_display_info
*dpyinfo
;
3996 Display
*dpy
= dpyinfo
->display
;
3997 Screen
*screen
= dpyinfo
->screen
;
4000 /* See if a visual is specified. */
4001 value
= display_x_get_resource (dpyinfo
,
4002 build_string ("visualClass"),
4003 build_string ("VisualClass"),
4005 if (STRINGP (value
))
4007 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
4008 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
4009 depth, a decimal number. NAME is compared with case ignored. */
4010 char *s
= (char *) alloca (SBYTES (value
) + 1);
4015 strcpy (s
, SDATA (value
));
4016 dash
= index (s
, '-');
4019 dpyinfo
->n_planes
= atoi (dash
+ 1);
4023 /* We won't find a matching visual with depth 0, so that
4024 an error will be printed below. */
4025 dpyinfo
->n_planes
= 0;
4027 /* Determine the visual class. */
4028 for (i
= 0; visual_classes
[i
].name
; ++i
)
4029 if (xstrcasecmp (s
, visual_classes
[i
].name
) == 0)
4031 class = visual_classes
[i
].class;
4035 /* Look up a matching visual for the specified class. */
4037 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
4038 dpyinfo
->n_planes
, class, &vinfo
))
4039 fatal ("Invalid visual specification `%s'", SDATA (value
));
4041 dpyinfo
->visual
= vinfo
.visual
;
4046 XVisualInfo
*vinfo
, vinfo_template
;
4048 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4050 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4051 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4052 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4053 &vinfo_template
, &n_visuals
);
4055 fatal ("Can't get proper X visual info");
4057 dpyinfo
->n_planes
= vinfo
->depth
;
4058 XFree ((char *) vinfo
);
4063 /* Return the X display structure for the display named NAME.
4064 Open a new connection if necessary. */
4066 struct x_display_info
*
4067 x_display_info_for_name (name
)
4071 struct x_display_info
*dpyinfo
;
4073 CHECK_STRING (name
);
4076 if (! EQ (Vinitial_window_system
, intern ("x")))
4077 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4080 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4082 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4085 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4090 /* Use this general default value to start with. */
4091 Vx_resource_name
= Vinvocation_name
;
4093 validate_x_resource_name ();
4095 dpyinfo
= x_term_init (name
, (char *)0,
4096 (char *) SDATA (Vx_resource_name
));
4099 error ("Cannot connect to X server %s", SDATA (name
));
4102 XSETFASTINT (Vwindow_system_version
, 11);
4108 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4110 doc
: /* Open a connection to an X server.
4111 DISPLAY is the name of the display to connect to.
4112 Optional second arg XRM-STRING is a string of resources in xrdb format.
4113 If the optional third arg MUST-SUCCEED is non-nil,
4114 terminate Emacs if we can't open the connection. */)
4115 (display
, xrm_string
, must_succeed
)
4116 Lisp_Object display
, xrm_string
, must_succeed
;
4118 unsigned char *xrm_option
;
4119 struct x_display_info
*dpyinfo
;
4121 CHECK_STRING (display
);
4122 if (! NILP (xrm_string
))
4123 CHECK_STRING (xrm_string
);
4126 if (! EQ (Vinitial_window_system
, intern ("x")))
4127 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4130 if (! NILP (xrm_string
))
4131 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4133 xrm_option
= (unsigned char *) 0;
4135 validate_x_resource_name ();
4137 /* This is what opens the connection and sets x_current_display.
4138 This also initializes many symbols, such as those used for input. */
4139 dpyinfo
= x_term_init (display
, xrm_option
,
4140 (char *) SDATA (Vx_resource_name
));
4144 if (!NILP (must_succeed
))
4145 fatal ("Cannot connect to X server %s.\n\
4146 Check the DISPLAY environment variable or use `-d'.\n\
4147 Also use the `xauth' program to verify that you have the proper\n\
4148 authorization information needed to connect the X server.\n\
4149 An insecure way to solve the problem may be to use `xhost'.\n",
4152 error ("Cannot connect to X server %s", SDATA (display
));
4157 XSETFASTINT (Vwindow_system_version
, 11);
4161 DEFUN ("x-close-connection", Fx_close_connection
,
4162 Sx_close_connection
, 1, 1, 0,
4163 doc
: /* Close the connection to TERMINAL's X server.
4164 For TERMINAL, specify a terminal object, a frame or a display name (a
4165 string). If TERMINAL is nil, that stands for the selected frame's
4168 Lisp_Object terminal
;
4170 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4172 if (dpyinfo
->reference_count
> 0)
4173 error ("Display still has frames on it");
4175 x_delete_terminal (dpyinfo
->terminal
);
4180 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4181 doc
: /* Return the list of display names that Emacs has connections to. */)
4184 Lisp_Object tail
, result
;
4187 for (tail
= x_display_name_list
; CONSP (tail
); tail
= XCDR (tail
))
4188 result
= Fcons (XCAR (XCAR (tail
)), result
);
4193 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4194 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4195 If ON is nil, allow buffering of requests.
4196 Turning on synchronization prohibits the Xlib routines from buffering
4197 requests and seriously degrades performance, but makes debugging much
4199 The optional second argument TERMINAL specifies which display to act on.
4200 TERMINAL should be a terminal object, a frame or a display name (a string).
4201 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4203 Lisp_Object terminal
, on
;
4205 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4207 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4212 /* Wait for responses to all X commands issued so far for frame F. */
4219 XSync (FRAME_X_DISPLAY (f
), False
);
4224 /***********************************************************************
4226 ***********************************************************************/
4228 DEFUN ("x-change-window-property", Fx_change_window_property
,
4229 Sx_change_window_property
, 2, 6, 0,
4230 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4231 PROP must be a string.
4232 VALUE may be a string or a list of conses, numbers and/or strings.
4233 If an element in the list is a string, it is converted to
4234 an Atom and the value of the Atom is used. If an element is a cons,
4235 it is converted to a 32 bit number where the car is the 16 top bits and the
4236 cdr is the lower 16 bits.
4237 FRAME nil or omitted means use the selected frame.
4238 If TYPE is given and non-nil, it is the name of the type of VALUE.
4239 If TYPE is not given or nil, the type is STRING.
4240 FORMAT gives the size in bits of each element if VALUE is a list.
4241 It must be one of 8, 16 or 32.
4242 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4243 If OUTER_P is non-nil, the property is changed for the outer X window of
4244 FRAME. Default is to change on the edit X window.
4247 (prop
, value
, frame
, type
, format
, outer_p
)
4248 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4250 struct frame
*f
= check_x_frame (frame
);
4252 Atom target_type
= XA_STRING
;
4253 int element_format
= 8;
4254 unsigned char *data
;
4258 CHECK_STRING (prop
);
4260 if (! NILP (format
))
4262 CHECK_NUMBER (format
);
4263 element_format
= XFASTINT (format
);
4265 if (element_format
!= 8 && element_format
!= 16
4266 && element_format
!= 32)
4267 error ("FORMAT must be one of 8, 16 or 32");
4272 nelements
= x_check_property_data (value
);
4273 if (nelements
== -1)
4274 error ("Bad data in VALUE, must be number, string or cons");
4276 if (element_format
== 8)
4277 data
= (unsigned char *) xmalloc (nelements
);
4278 else if (element_format
== 16)
4279 data
= (unsigned char *) xmalloc (nelements
*2);
4280 else /* format == 32 */
4281 /* The man page for XChangeProperty:
4282 "If the specified format is 32, the property data must be a
4284 This applies even if long is more than 64 bits. The X library
4285 converts to 32 bits before sending to the X server. */
4286 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4288 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4292 CHECK_STRING (value
);
4293 data
= SDATA (value
);
4294 nelements
= SCHARS (value
);
4298 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4301 CHECK_STRING (type
);
4302 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4305 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4306 else w
= FRAME_X_WINDOW (f
);
4308 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4309 prop_atom
, target_type
, element_format
, PropModeReplace
,
4312 if (CONSP (value
)) xfree (data
);
4314 /* Make sure the property is set when we return. */
4315 XFlush (FRAME_X_DISPLAY (f
));
4322 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4323 Sx_delete_window_property
, 1, 2, 0,
4324 doc
: /* Remove window property PROP from X window of FRAME.
4325 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4327 Lisp_Object prop
, frame
;
4329 struct frame
*f
= check_x_frame (frame
);
4332 CHECK_STRING (prop
);
4334 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4335 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4337 /* Make sure the property is removed when we return. */
4338 XFlush (FRAME_X_DISPLAY (f
));
4345 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4347 doc
: /* Value is the value of window property PROP on FRAME.
4348 If FRAME is nil or omitted, use the selected frame.
4349 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4350 is the name of the Atom that denotes the type expected.
4351 If SOURCE is non-nil, get the property on that window instead of from
4352 FRAME. The number 0 denotes the root window.
4353 If DELETE_P is non-nil, delete the property after retreiving it.
4354 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4356 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4357 no value of TYPE. */)
4358 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4359 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4361 struct frame
*f
= check_x_frame (frame
);
4364 Lisp_Object prop_value
= Qnil
;
4365 unsigned char *tmp_data
= NULL
;
4367 Atom target_type
= XA_STRING
;
4369 unsigned long actual_size
, bytes_remaining
;
4370 Window target_window
= FRAME_X_WINDOW (f
);
4371 struct gcpro gcpro1
;
4373 GCPRO1 (prop_value
);
4374 CHECK_STRING (prop
);
4376 if (! NILP (source
))
4378 if (NUMBERP (source
))
4380 if (FLOATP (source
))
4381 target_window
= (Window
) XFLOAT (source
);
4383 target_window
= XFASTINT (source
);
4385 if (target_window
== 0)
4386 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4388 else if (CONSP (source
))
4389 target_window
= cons_to_long (source
);
4395 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4396 target_type
= AnyPropertyType
;
4398 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4401 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4402 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4403 prop_atom
, 0, 0, False
, target_type
,
4404 &actual_type
, &actual_format
, &actual_size
,
4405 &bytes_remaining
, &tmp_data
);
4408 int size
= bytes_remaining
;
4413 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4414 prop_atom
, 0, bytes_remaining
,
4415 ! NILP (delete_p
), target_type
,
4416 &actual_type
, &actual_format
,
4417 &actual_size
, &bytes_remaining
,
4419 if (rc
== Success
&& tmp_data
)
4421 /* The man page for XGetWindowProperty says:
4422 "If the returned format is 32, the returned data is represented
4423 as a long array and should be cast to that type to obtain the
4425 This applies even if long is more than 32 bits, the X library
4426 converts from 32 bit elements received from the X server to long
4427 and passes the long array to us. Thus, for that case bcopy can not
4428 be used. We convert to a 32 bit type here, because so much code
4431 The bytes and offsets passed to XGetWindowProperty refers to the
4432 property and those are indeed in 32 bit quantities if format is
4435 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4438 int *idata
= (int *) tmp_data
;
4439 long *ldata
= (long *) tmp_data
;
4441 for (i
= 0; i
< actual_size
; ++i
)
4442 idata
[i
] = (int) ldata
[i
];
4445 if (NILP (vector_ret_p
))
4446 prop_value
= make_string (tmp_data
, size
);
4448 prop_value
= x_property_data_to_lisp (f
,
4455 if (tmp_data
) XFree (tmp_data
);
4465 /***********************************************************************
4467 ***********************************************************************/
4469 /* Timer function of hourglass_atimer. TIMER is equal to
4472 Display an hourglass pointer on all frames by mapping the frames'
4473 hourglass_window. Set the hourglass_p flag in the frames'
4474 output_data.x structure to indicate that an hourglass cursor is
4475 shown on the frames. */
4478 show_hourglass (timer
)
4479 struct atimer
*timer
;
4481 /* The timer implementation will cancel this timer automatically
4482 after this function has run. Set hourglass_atimer to null
4483 so that we know the timer doesn't have to be canceled. */
4484 hourglass_atimer
= NULL
;
4486 if (!hourglass_shown_p
)
4488 Lisp_Object rest
, frame
;
4492 FOR_EACH_FRAME (rest
, frame
)
4494 struct frame
*f
= XFRAME (frame
);
4496 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4498 Display
*dpy
= FRAME_X_DISPLAY (f
);
4500 #ifdef USE_X_TOOLKIT
4501 if (f
->output_data
.x
->widget
)
4503 if (FRAME_OUTER_WINDOW (f
))
4506 f
->output_data
.x
->hourglass_p
= 1;
4508 if (!f
->output_data
.x
->hourglass_window
)
4510 unsigned long mask
= CWCursor
;
4511 XSetWindowAttributes attrs
;
4513 Window parent
= FRAME_X_WINDOW (f
);
4515 Window parent
= FRAME_OUTER_WINDOW (f
);
4517 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4519 f
->output_data
.x
->hourglass_window
4520 = XCreateWindow (dpy
, parent
,
4521 0, 0, 32000, 32000, 0, 0,
4527 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4533 hourglass_shown_p
= 1;
4539 /* Hide the hourglass pointer on all frames, if it is currently
4545 if (hourglass_shown_p
)
4547 Lisp_Object rest
, frame
;
4550 FOR_EACH_FRAME (rest
, frame
)
4552 struct frame
*f
= XFRAME (frame
);
4555 /* Watch out for newly created frames. */
4556 && f
->output_data
.x
->hourglass_window
)
4558 XUnmapWindow (FRAME_X_DISPLAY (f
),
4559 f
->output_data
.x
->hourglass_window
);
4560 /* Sync here because XTread_socket looks at the
4561 hourglass_p flag that is reset to zero below. */
4562 XSync (FRAME_X_DISPLAY (f
), False
);
4563 f
->output_data
.x
->hourglass_p
= 0;
4567 hourglass_shown_p
= 0;
4574 /***********************************************************************
4576 ***********************************************************************/
4578 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4579 Lisp_Object
, Lisp_Object
));
4580 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4581 Lisp_Object
, int, int, int *, int *));
4583 /* The frame of a currently visible tooltip. */
4585 Lisp_Object tip_frame
;
4587 /* If non-nil, a timer started that hides the last tooltip when it
4590 Lisp_Object tip_timer
;
4593 /* If non-nil, a vector of 3 elements containing the last args
4594 with which x-show-tip was called. See there. */
4596 Lisp_Object last_show_tip_args
;
4598 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4600 Lisp_Object Vx_max_tooltip_size
;
4604 unwind_create_tip_frame (frame
)
4607 Lisp_Object deleted
;
4609 deleted
= unwind_create_frame (frame
);
4610 if (EQ (deleted
, Qt
))
4620 /* Create a frame for a tooltip on the display described by DPYINFO.
4621 PARMS is a list of frame parameters. TEXT is the string to
4622 display in the tip frame. Value is the frame.
4624 Note that functions called here, esp. x_default_parameter can
4625 signal errors, for instance when a specified color name is
4626 undefined. We have to make sure that we're in a consistent state
4627 when this happens. */
4630 x_create_tip_frame (dpyinfo
, parms
, text
)
4631 struct x_display_info
*dpyinfo
;
4632 Lisp_Object parms
, text
;
4635 Lisp_Object frame
, tem
;
4637 long window_prompting
= 0;
4639 int count
= SPECPDL_INDEX ();
4640 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4641 int face_change_count_before
= face_change_count
;
4643 struct buffer
*old_buffer
;
4647 if (!dpyinfo
->terminal
->name
)
4648 error ("Terminal is not live, can't create new frames on it");
4650 parms
= Fcopy_alist (parms
);
4652 /* Get the name of the frame to use for resource lookup. */
4653 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4655 && !EQ (name
, Qunbound
)
4657 error ("Invalid frame name--not a string or nil");
4660 GCPRO3 (parms
, name
, frame
);
4662 XSETFRAME (frame
, f
);
4664 buffer
= Fget_buffer_create (build_string (" *tip*"));
4665 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4666 old_buffer
= current_buffer
;
4667 set_buffer_internal_1 (XBUFFER (buffer
));
4668 current_buffer
->truncate_lines
= Qnil
;
4669 specbind (Qinhibit_read_only
, Qt
);
4670 specbind (Qinhibit_modification_hooks
, Qt
);
4673 set_buffer_internal_1 (old_buffer
);
4675 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4676 record_unwind_protect (unwind_create_tip_frame
, frame
);
4678 f
->terminal
= dpyinfo
->terminal
;
4679 f
->terminal
->reference_count
++;
4681 /* By setting the output method, we're essentially saying that
4682 the frame is live, as per FRAME_LIVE_P. If we get a signal
4683 from this point on, x_destroy_window might screw up reference
4685 f
->output_method
= output_x_window
;
4686 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4687 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4688 f
->output_data
.x
->icon_bitmap
= -1;
4689 FRAME_FONTSET (f
) = -1;
4690 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4691 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4692 #ifdef USE_TOOLKIT_SCROLL_BARS
4693 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4694 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4695 #endif /* USE_TOOLKIT_SCROLL_BARS */
4696 f
->icon_name
= Qnil
;
4697 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4699 image_cache_refcount
= FRAME_IMAGE_CACHE (f
)->refcount
;
4700 dpyinfo_refcount
= dpyinfo
->reference_count
;
4701 #endif /* GLYPH_DEBUG */
4702 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4703 f
->output_data
.x
->explicit_parent
= 0;
4705 /* These colors will be set anyway later, but it's important
4706 to get the color reference counts right, so initialize them! */
4709 struct gcpro gcpro1
;
4711 /* Function x_decode_color can signal an error. Make
4712 sure to initialize color slots so that we won't try
4713 to free colors we haven't allocated. */
4714 FRAME_FOREGROUND_PIXEL (f
) = -1;
4715 FRAME_BACKGROUND_PIXEL (f
) = -1;
4716 f
->output_data
.x
->cursor_pixel
= -1;
4717 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4718 f
->output_data
.x
->border_pixel
= -1;
4719 f
->output_data
.x
->mouse_pixel
= -1;
4721 black
= build_string ("black");
4723 FRAME_FOREGROUND_PIXEL (f
)
4724 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4725 FRAME_BACKGROUND_PIXEL (f
)
4726 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4727 f
->output_data
.x
->cursor_pixel
4728 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4729 f
->output_data
.x
->cursor_foreground_pixel
4730 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4731 f
->output_data
.x
->border_pixel
4732 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4733 f
->output_data
.x
->mouse_pixel
4734 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4738 /* Set the name; the functions to which we pass f expect the name to
4740 if (EQ (name
, Qunbound
) || NILP (name
))
4742 f
->name
= build_string (dpyinfo
->x_id_name
);
4743 f
->explicit_name
= 0;
4748 f
->explicit_name
= 1;
4749 /* use the frame's title when getting resources for this frame. */
4750 specbind (Qx_resource_name
, name
);
4753 f
->resx
= dpyinfo
->resx
;
4754 f
->resy
= dpyinfo
->resy
;
4756 register_font_driver (&xfont_driver
, f
);
4757 #ifdef HAVE_FREETYPE
4759 register_font_driver (&xftfont_driver
, f
);
4760 #else /* not HAVE_XFT */
4761 register_font_driver (&ftxfont_driver
, f
);
4762 #endif /* not HAVE_XFT */
4763 #endif /* HAVE_FREETYPE */
4765 x_default_parameter (f
, parms
, Qfont_backend
, Qnil
,
4766 "fontBackend", "FontBackend", RES_TYPE_STRING
);
4768 /* Extract the window parameters from the supplied values that are
4769 needed to determine window geometry. */
4770 x_default_font_parameter (f
, parms
);
4772 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4773 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4775 /* This defaults to 2 in order to match xterm. We recognize either
4776 internalBorderWidth or internalBorder (which is what xterm calls
4778 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4782 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4783 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4784 if (! EQ (value
, Qunbound
))
4785 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4789 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4790 "internalBorderWidth", "internalBorderWidth",
4793 /* Also do the stuff which must be set before the window exists. */
4794 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4795 "foreground", "Foreground", RES_TYPE_STRING
);
4796 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4797 "background", "Background", RES_TYPE_STRING
);
4798 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4799 "pointerColor", "Foreground", RES_TYPE_STRING
);
4800 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4801 "cursorColor", "Foreground", RES_TYPE_STRING
);
4802 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4803 "borderColor", "BorderColor", RES_TYPE_STRING
);
4805 /* Init faces before x_default_parameter is called for scroll-bar
4806 parameters because that function calls x_set_scroll_bar_width,
4807 which calls change_frame_size, which calls Fset_window_buffer,
4808 which runs hooks, which call Fvertical_motion. At the end, we
4809 end up in init_iterator with a null face cache, which should not
4811 init_frame_faces (f
);
4813 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4815 window_prompting
= x_figure_window_size (f
, parms
, 0);
4818 XSetWindowAttributes attrs
;
4822 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4823 if (DoesSaveUnders (dpyinfo
->screen
))
4824 mask
|= CWSaveUnder
;
4826 /* Window managers look at the override-redirect flag to determine
4827 whether or net to give windows a decoration (Xlib spec, chapter
4829 attrs
.override_redirect
= True
;
4830 attrs
.save_under
= True
;
4831 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4832 /* Arrange for getting MapNotify and UnmapNotify events. */
4833 attrs
.event_mask
= StructureNotifyMask
;
4835 = FRAME_X_WINDOW (f
)
4836 = XCreateWindow (FRAME_X_DISPLAY (f
),
4837 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4838 /* x, y, width, height */
4842 CopyFromParent
, InputOutput
, CopyFromParent
,
4849 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4850 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4851 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4852 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4853 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4854 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4856 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4857 Change will not be effected unless different from the current
4859 width
= FRAME_COLS (f
);
4860 height
= FRAME_LINES (f
);
4861 SET_FRAME_COLS (f
, 0);
4862 FRAME_LINES (f
) = 0;
4863 change_frame_size (f
, height
, width
, 1, 0, 0);
4865 /* Add `tooltip' frame parameter's default value. */
4866 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4867 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4870 /* FIXME - can this be done in a similar way to normal frames?
4871 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
4873 /* Set the `display-type' frame parameter before setting up faces. */
4875 Lisp_Object disptype
;
4877 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
4878 disptype
= intern ("mono");
4879 else if (FRAME_X_DISPLAY_INFO (f
)->visual
->class == GrayScale
4880 || FRAME_X_DISPLAY_INFO (f
)->visual
->class == StaticGray
)
4881 disptype
= intern ("grayscale");
4883 disptype
= intern ("color");
4885 if (NILP (Fframe_parameter (frame
, Qdisplay_type
)))
4886 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qdisplay_type
, disptype
),
4890 /* Set up faces after all frame parameters are known. This call
4891 also merges in face attributes specified for new frames.
4893 Frame parameters may be changed if .Xdefaults contains
4894 specifications for the default font. For example, if there is an
4895 `Emacs.default.attributeBackground: pink', the `background-color'
4896 attribute of the frame get's set, which let's the internal border
4897 of the tooltip frame appear in pink. Prevent this. */
4899 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4901 /* Set tip_frame here, so that */
4903 call2 (Qface_set_after_frame_default
, frame
, Qnil
);
4905 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4906 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4914 /* It is now ok to make the frame official even if we get an error
4915 below. And the frame needs to be on Vframe_list or making it
4916 visible won't work. */
4917 Vframe_list
= Fcons (frame
, Vframe_list
);
4919 /* Now that the frame is official, it counts as a reference to
4921 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4923 /* Setting attributes of faces of the tooltip frame from resources
4924 and similar will increment face_change_count, which leads to the
4925 clearing of all current matrices. Since this isn't necessary
4926 here, avoid it by resetting face_change_count to the value it
4927 had before we created the tip frame. */
4928 face_change_count
= face_change_count_before
;
4930 /* Discard the unwind_protect. */
4931 return unbind_to (count
, frame
);
4935 /* Compute where to display tip frame F. PARMS is the list of frame
4936 parameters for F. DX and DY are specified offsets from the current
4937 location of the mouse. WIDTH and HEIGHT are the width and height
4938 of the tooltip. Return coordinates relative to the root window of
4939 the display in *ROOT_X, and *ROOT_Y. */
4942 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4944 Lisp_Object parms
, dx
, dy
;
4946 int *root_x
, *root_y
;
4948 Lisp_Object left
, top
;
4953 /* User-specified position? */
4954 left
= Fcdr (Fassq (Qleft
, parms
));
4955 top
= Fcdr (Fassq (Qtop
, parms
));
4957 /* Move the tooltip window where the mouse pointer is. Resize and
4959 if (!INTEGERP (left
) || !INTEGERP (top
))
4962 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
4963 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
4968 *root_y
= XINT (top
);
4969 else if (*root_y
+ XINT (dy
) <= 0)
4970 *root_y
= 0; /* Can happen for negative dy */
4971 else if (*root_y
+ XINT (dy
) + height
4972 <= x_display_pixel_height (FRAME_X_DISPLAY_INFO (f
)))
4973 /* It fits below the pointer */
4974 *root_y
+= XINT (dy
);
4975 else if (height
+ XINT (dy
) <= *root_y
)
4976 /* It fits above the pointer. */
4977 *root_y
-= height
+ XINT (dy
);
4979 /* Put it on the top. */
4982 if (INTEGERP (left
))
4983 *root_x
= XINT (left
);
4984 else if (*root_x
+ XINT (dx
) <= 0)
4985 *root_x
= 0; /* Can happen for negative dx */
4986 else if (*root_x
+ XINT (dx
) + width
4987 <= x_display_pixel_width (FRAME_X_DISPLAY_INFO (f
)))
4988 /* It fits to the right of the pointer. */
4989 *root_x
+= XINT (dx
);
4990 else if (width
+ XINT (dx
) <= *root_x
)
4991 /* It fits to the left of the pointer. */
4992 *root_x
-= width
+ XINT (dx
);
4994 /* Put it left-justified on the screen--it ought to fit that way. */
4999 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5000 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5001 A tooltip window is a small X window displaying a string.
5003 This is an internal function; Lisp code should call `tooltip-show'.
5005 FRAME nil or omitted means use the selected frame.
5007 PARMS is an optional list of frame parameters which can be used to
5008 change the tooltip's appearance.
5010 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5011 means use the default timeout of 5 seconds.
5013 If the list of frame parameters PARAMS contains a `left' parameters,
5014 the tooltip is displayed at that x-position. Otherwise it is
5015 displayed at the mouse position, with offset DX added (default is 5 if
5016 DX isn't specified). Likewise for the y-position; if a `top' frame
5017 parameter is specified, it determines the y-position of the tooltip
5018 window, otherwise it is displayed at the mouse position, with offset
5019 DY added (default is -10).
5021 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5022 Text larger than the specified size is clipped. */)
5023 (string
, frame
, parms
, timeout
, dx
, dy
)
5024 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
5029 struct buffer
*old_buffer
;
5030 struct text_pos pos
;
5031 int i
, width
, height
;
5032 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5033 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5034 int count
= SPECPDL_INDEX ();
5036 specbind (Qinhibit_redisplay
, Qt
);
5038 GCPRO4 (string
, parms
, frame
, timeout
);
5040 CHECK_STRING (string
);
5041 if (SCHARS (string
) == 0)
5042 string
= make_unibyte_string (" ", 1);
5044 f
= check_x_frame (frame
);
5046 timeout
= make_number (5);
5048 CHECK_NATNUM (timeout
);
5051 dx
= make_number (5);
5056 dy
= make_number (-10);
5060 if (NILP (last_show_tip_args
))
5061 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5063 if (!NILP (tip_frame
))
5065 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5066 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5067 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5069 if (EQ (frame
, last_frame
)
5070 && !NILP (Fequal (last_string
, string
))
5071 && !NILP (Fequal (last_parms
, parms
)))
5073 struct frame
*f
= XFRAME (tip_frame
);
5075 /* Only DX and DY have changed. */
5076 if (!NILP (tip_timer
))
5078 Lisp_Object timer
= tip_timer
;
5080 call1 (Qcancel_timer
, timer
);
5084 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5085 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5086 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5093 /* Hide a previous tip, if any. */
5096 ASET (last_show_tip_args
, 0, string
);
5097 ASET (last_show_tip_args
, 1, frame
);
5098 ASET (last_show_tip_args
, 2, parms
);
5100 /* Add default values to frame parameters. */
5101 if (NILP (Fassq (Qname
, parms
)))
5102 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5103 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5104 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5105 if (NILP (Fassq (Qborder_width
, parms
)))
5106 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5107 if (NILP (Fassq (Qborder_color
, parms
)))
5108 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5109 if (NILP (Fassq (Qbackground_color
, parms
)))
5110 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5113 /* Create a frame for the tooltip, and record it in the global
5114 variable tip_frame. */
5115 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5118 /* Set up the frame's root window. */
5119 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5120 w
->left_col
= w
->top_line
= make_number (0);
5122 if (CONSP (Vx_max_tooltip_size
)
5123 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5124 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5125 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5126 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5128 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5129 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5133 w
->total_cols
= make_number (80);
5134 w
->total_lines
= make_number (40);
5137 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5139 w
->pseudo_window_p
= 1;
5141 /* Display the tooltip text in a temporary buffer. */
5142 old_buffer
= current_buffer
;
5143 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5144 current_buffer
->truncate_lines
= Qnil
;
5145 clear_glyph_matrix (w
->desired_matrix
);
5146 clear_glyph_matrix (w
->current_matrix
);
5147 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5148 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5150 /* Compute width and height of the tooltip. */
5152 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5154 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5158 /* Stop at the first empty row at the end. */
5159 if (!row
->enabled_p
|| !row
->displays_text_p
)
5162 /* Let the row go over the full width of the frame. */
5163 row
->full_width_p
= 1;
5165 /* There's a glyph at the end of rows that is used to place
5166 the cursor there. Don't include the width of this glyph. */
5167 if (row
->used
[TEXT_AREA
])
5169 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5170 row_width
= row
->pixel_width
- last
->pixel_width
;
5173 row_width
= row
->pixel_width
;
5175 height
+= row
->height
;
5176 width
= max (width
, row_width
);
5179 /* Add the frame's internal border to the width and height the X
5180 window should have. */
5181 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5182 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5184 /* Move the tooltip window where the mouse pointer is. Resize and
5186 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5189 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5190 root_x
, root_y
, width
, height
);
5191 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5194 /* Draw into the window. */
5195 w
->must_be_updated_p
= 1;
5196 update_single_window (w
, 1);
5198 /* Restore original current buffer. */
5199 set_buffer_internal_1 (old_buffer
);
5200 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5203 /* Let the tip disappear after timeout seconds. */
5204 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5205 intern ("x-hide-tip"));
5208 return unbind_to (count
, Qnil
);
5212 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5213 doc
: /* Hide the current tooltip window, if there is any.
5214 Value is t if tooltip was open, nil otherwise. */)
5218 Lisp_Object deleted
, frame
, timer
;
5219 struct gcpro gcpro1
, gcpro2
;
5221 /* Return quickly if nothing to do. */
5222 if (NILP (tip_timer
) && NILP (tip_frame
))
5227 GCPRO2 (frame
, timer
);
5228 tip_frame
= tip_timer
= deleted
= Qnil
;
5230 count
= SPECPDL_INDEX ();
5231 specbind (Qinhibit_redisplay
, Qt
);
5232 specbind (Qinhibit_quit
, Qt
);
5235 call1 (Qcancel_timer
, timer
);
5239 delete_frame (frame
, Qnil
);
5243 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5244 redisplay procedure is not called when a tip frame over menu
5245 items is unmapped. Redisplay the menu manually... */
5247 struct frame
*f
= SELECTED_FRAME ();
5248 Widget w
= f
->output_data
.x
->menubar_widget
;
5249 extern void xlwmenu_redisplay
P_ ((Widget
));
5251 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5255 xlwmenu_redisplay (w
);
5259 #endif /* USE_LUCID */
5263 return unbind_to (count
, deleted
);
5268 /***********************************************************************
5269 File selection dialog
5270 ***********************************************************************/
5272 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5273 Sx_uses_old_gtk_dialog
,
5275 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5279 extern int use_dialog_box
;
5280 extern int use_file_dialog
;
5285 && xg_uses_old_file_dialog ())
5293 /* Callback for "OK" and "Cancel" on file selection dialog. */
5296 file_dialog_cb (widget
, client_data
, call_data
)
5298 XtPointer call_data
, client_data
;
5300 int *result
= (int *) client_data
;
5301 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5302 *result
= cb
->reason
;
5306 /* Callback for unmapping a file selection dialog. This is used to
5307 capture the case where a dialog is closed via a window manager's
5308 closer button, for example. Using a XmNdestroyCallback didn't work
5312 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5314 XtPointer call_data
, client_data
;
5316 int *result
= (int *) client_data
;
5317 *result
= XmCR_CANCEL
;
5321 clean_up_file_dialog (arg
)
5324 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5325 Widget dialog
= (Widget
) p
->pointer
;
5329 XtUnmanageChild (dialog
);
5330 XtDestroyWidget (dialog
);
5331 x_menu_set_in_use (0);
5338 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5339 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5340 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5341 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5342 or directory must exist. ONLY-DIR-P is ignored." */)
5343 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5344 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5347 struct frame
*f
= SELECTED_FRAME ();
5348 Lisp_Object file
= Qnil
;
5349 Lisp_Object decoded_file
;
5350 Widget dialog
, text
, help
;
5353 extern XtAppContext Xt_app_con
;
5354 XmString dir_xmstring
, pattern_xmstring
;
5355 int count
= SPECPDL_INDEX ();
5356 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5360 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5362 if (popup_activated ())
5363 error ("Trying to use a menu from within a menu-entry");
5365 CHECK_STRING (prompt
);
5368 /* Prevent redisplay. */
5369 specbind (Qinhibit_redisplay
, Qt
);
5373 /* Create the dialog with PROMPT as title, using DIR as initial
5374 directory and using "*" as pattern. */
5375 dir
= Fexpand_file_name (dir
, Qnil
);
5376 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5377 pattern_xmstring
= XmStringCreateLocalized ("*");
5379 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5380 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5381 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5382 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5383 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5384 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5386 XmStringFree (dir_xmstring
);
5387 XmStringFree (pattern_xmstring
);
5389 /* Add callbacks for OK and Cancel. */
5390 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5391 (XtPointer
) &result
);
5392 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5393 (XtPointer
) &result
);
5394 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5395 (XtPointer
) &result
);
5397 /* Remove the help button since we can't display help. */
5398 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5399 XtUnmanageChild (help
);
5401 /* Mark OK button as default. */
5402 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5403 XmNshowAsDefault
, True
, NULL
);
5405 /* If MUSTMATCH is non-nil, disable the file entry field of the
5406 dialog, so that the user must select a file from the files list
5407 box. We can't remove it because we wouldn't have a way to get at
5408 the result file name, then. */
5409 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5410 if (!NILP (mustmatch
))
5413 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5414 XtSetSensitive (text
, False
);
5415 XtSetSensitive (label
, False
);
5418 /* Manage the dialog, so that list boxes get filled. */
5419 XtManageChild (dialog
);
5421 if (STRINGP (default_filename
))
5423 XmString default_xmstring
;
5424 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5425 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5427 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5428 XmTextFieldReplace (wtext
, 0, last_pos
,
5429 (SDATA (Ffile_name_nondirectory (default_filename
))));
5431 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5432 must include the path for this to work. */
5434 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5436 if (XmListItemExists (list
, default_xmstring
))
5438 int item_pos
= XmListItemPos (list
, default_xmstring
);
5439 /* Select the item and scroll it into view. */
5440 XmListSelectPos (list
, item_pos
, True
);
5441 XmListSetPos (list
, item_pos
);
5444 XmStringFree (default_xmstring
);
5447 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5449 /* Process events until the user presses Cancel or OK. */
5450 x_menu_set_in_use (1);
5455 x_menu_wait_for_event (0);
5456 XtAppNextEvent (Xt_app_con
, &event
);
5457 if (event
.type
== KeyPress
5458 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5460 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5462 /* Pop down on C-g. */
5463 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5464 XtUnmanageChild (dialog
);
5467 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5470 /* Get the result. */
5471 if (result
== XmCR_OK
)
5476 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5477 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5478 XmStringFree (text
);
5479 file
= build_string (data
);
5488 /* Make "Cancel" equivalent to C-g. */
5490 Fsignal (Qquit
, Qnil
);
5492 decoded_file
= DECODE_FILE (file
);
5494 return unbind_to (count
, decoded_file
);
5497 #endif /* USE_MOTIF */
5502 clean_up_dialog (arg
)
5505 x_menu_set_in_use (0);
5510 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5511 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5512 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5513 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5514 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5516 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5517 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5519 FRAME_PTR f
= SELECTED_FRAME ();
5521 Lisp_Object file
= Qnil
;
5522 Lisp_Object decoded_file
;
5523 int count
= SPECPDL_INDEX ();
5524 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5529 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5531 if (popup_activated ())
5532 error ("Trying to use a menu from within a menu-entry");
5534 CHECK_STRING (prompt
);
5537 /* Prevent redisplay. */
5538 specbind (Qinhibit_redisplay
, Qt
);
5539 record_unwind_protect (clean_up_dialog
, Qnil
);
5543 if (STRINGP (default_filename
))
5544 cdef_file
= SDATA (default_filename
);
5546 cdef_file
= SDATA (dir
);
5548 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5550 ! NILP (only_dir_p
));
5554 file
= build_string (fn
);
5561 /* Make "Cancel" equivalent to C-g. */
5563 Fsignal (Qquit
, Qnil
);
5565 decoded_file
= DECODE_FILE (file
);
5567 return unbind_to (count
, decoded_file
);
5571 #ifdef HAVE_FREETYPE
5573 DEFUN ("x-select-font", Fx_select_font
, Sx_select_font
, 0, 2, 0,
5574 doc
: /* Read a font name using a GTK font selection dialog.
5575 Return a GTK-style font string corresponding to the selection.
5577 If FRAME is omitted or nil, it defaults to the selected frame. */)
5579 Lisp_Object frame
, ignored
;
5581 FRAME_PTR f
= check_x_frame (frame
);
5584 Lisp_Object font_param
;
5585 char *default_name
= NULL
;
5586 struct gcpro gcpro1
, gcpro2
;
5587 int count
= SPECPDL_INDEX ();
5591 if (popup_activated ())
5592 error ("Trying to use a menu from within a menu-entry");
5594 /* Prevent redisplay. */
5595 specbind (Qinhibit_redisplay
, Qt
);
5596 record_unwind_protect (clean_up_dialog
, Qnil
);
5600 GCPRO2(font_param
, font
);
5602 XSETFONT (font
, FRAME_FONT (f
));
5603 font_param
= Ffont_get (font
, intern_c_string (":name"));
5604 if (STRINGP (font_param
))
5605 default_name
= SDATA (font_param
);
5608 font_param
= Fframe_parameter (frame
, Qfont_param
);
5609 if (STRINGP (font_param
))
5610 default_name
= SDATA (font_param
);
5613 if (default_name
== NULL
&& x_last_font_name
!= NULL
)
5614 default_name
= x_last_font_name
;
5616 name
= xg_get_font_name (f
, default_name
);
5620 font
= build_string (name
);
5621 g_free (x_last_font_name
);
5622 x_last_font_name
= name
;
5628 Fsignal (Qquit
, Qnil
);
5630 return unbind_to (count
, font
);
5632 #endif /* HAVE_FREETYPE */
5634 #endif /* USE_GTK */
5637 /***********************************************************************
5639 ***********************************************************************/
5641 #ifdef HAVE_XKBGETKEYBOARD
5642 #include <X11/XKBlib.h>
5643 #include <X11/keysym.h>
5646 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5647 Sx_backspace_delete_keys_p
, 0, 1, 0,
5648 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5649 FRAME nil means use the selected frame.
5650 Value is t if we know that both keys are present, and are mapped to the
5651 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5652 present and mapped to the usual X keysyms. */)
5656 #ifdef HAVE_XKBGETKEYBOARD
5658 struct frame
*f
= check_x_frame (frame
);
5659 Display
*dpy
= FRAME_X_DISPLAY (f
);
5660 Lisp_Object have_keys
;
5661 int major
, minor
, op
, event
, error
;
5665 /* Check library version in case we're dynamically linked. */
5666 major
= XkbMajorVersion
;
5667 minor
= XkbMinorVersion
;
5668 if (!XkbLibraryVersion (&major
, &minor
))
5674 /* Check that the server supports XKB. */
5675 major
= XkbMajorVersion
;
5676 minor
= XkbMinorVersion
;
5677 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5683 /* In this code we check that the keyboard has physical keys with names
5684 that start with BKSP (Backspace) and DELE (Delete), and that they
5685 generate keysym XK_BackSpace and XK_Delete respectively.
5686 This function is used to test if normal-erase-is-backspace should be
5688 An alternative approach would be to just check if XK_BackSpace and
5689 XK_Delete are mapped to any key. But if any of those are mapped to
5690 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5691 user doesn't know about it, it is better to return false here.
5692 It is more obvious to the user what to do if she/he has two keys
5693 clearly marked with names/symbols and one key does something not
5694 expected (i.e. she/he then tries the other).
5695 The cases where Backspace/Delete is mapped to some other key combination
5696 are rare, and in those cases, normal-erase-is-backspace can be turned on
5700 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5703 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5705 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5707 for (i
= kb
->min_key_code
;
5708 (i
< kb
->max_key_code
5709 && (delete_keycode
== 0 || backspace_keycode
== 0));
5712 /* The XKB symbolic key names can be seen most easily in
5713 the PS file generated by `xkbprint -label name
5715 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5717 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5718 backspace_keycode
= i
;
5721 XkbFreeNames (kb
, 0, True
);
5724 XkbFreeClientMap (kb
, 0, True
);
5727 && backspace_keycode
5728 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5729 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5734 #else /* not HAVE_XKBGETKEYBOARD */
5736 #endif /* not HAVE_XKBGETKEYBOARD */
5741 /***********************************************************************
5743 ***********************************************************************/
5745 /* Keep this list in the same order as frame_parms in frame.c.
5746 Use 0 for unsupported frame parameters. */
5748 frame_parm_handler x_frame_parm_handlers
[] =
5752 x_set_background_color
,
5758 x_set_foreground_color
,
5761 x_set_internal_border_width
,
5762 x_set_menu_bar_lines
,
5764 x_explicitly_set_name
,
5765 x_set_scroll_bar_width
,
5768 x_set_vertical_scroll_bars
,
5770 x_set_tool_bar_lines
,
5771 x_set_scroll_bar_foreground
,
5772 x_set_scroll_bar_background
,
5787 /* This is zero if not using X windows. */
5790 /* The section below is built by the lisp expression at the top of the file,
5791 just above where these variables are declared. */
5792 /*&&& init symbols here &&&*/
5793 Qnone
= intern_c_string ("none");
5795 Qsuppress_icon
= intern_c_string ("suppress-icon");
5796 staticpro (&Qsuppress_icon
);
5797 Qundefined_color
= intern_c_string ("undefined-color");
5798 staticpro (&Qundefined_color
);
5799 Qcompound_text
= intern_c_string ("compound-text");
5800 staticpro (&Qcompound_text
);
5801 Qcancel_timer
= intern_c_string ("cancel-timer");
5802 staticpro (&Qcancel_timer
);
5803 Qfont_param
= intern_c_string ("font-parameter");
5804 staticpro (&Qfont_param
);
5805 /* This is the end of symbol initialization. */
5807 /* Text property `display' should be nonsticky by default. */
5808 Vtext_property_default_nonsticky
5809 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5812 Fput (Qundefined_color
, Qerror_conditions
,
5813 pure_cons (Qundefined_color
, pure_cons (Qerror
, Qnil
)));
5814 Fput (Qundefined_color
, Qerror_message
,
5815 make_pure_c_string ("Undefined color"));
5817 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5818 doc
: /* The shape of the pointer when over text.
5819 Changing the value does not affect existing frames
5820 unless you set the mouse color. */);
5821 Vx_pointer_shape
= Qnil
;
5823 #if 0 /* This doesn't really do anything. */
5824 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5825 doc
: /* The shape of the pointer when not over text.
5826 This variable takes effect when you create a new frame
5827 or when you set the mouse color. */);
5829 Vx_nontext_pointer_shape
= Qnil
;
5831 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5832 doc
: /* The shape of the pointer when Emacs is busy.
5833 This variable takes effect when you create a new frame
5834 or when you set the mouse color. */);
5835 Vx_hourglass_pointer_shape
= Qnil
;
5837 #if 0 /* This doesn't really do anything. */
5838 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5839 doc
: /* The shape of the pointer when over the mode line.
5840 This variable takes effect when you create a new frame
5841 or when you set the mouse color. */);
5843 Vx_mode_pointer_shape
= Qnil
;
5845 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5846 &Vx_sensitive_text_pointer_shape
,
5847 doc
: /* The shape of the pointer when over mouse-sensitive text.
5848 This variable takes effect when you create a new frame
5849 or when you set the mouse color. */);
5850 Vx_sensitive_text_pointer_shape
= Qnil
;
5852 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5853 &Vx_window_horizontal_drag_shape
,
5854 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5855 This variable takes effect when you create a new frame
5856 or when you set the mouse color. */);
5857 Vx_window_horizontal_drag_shape
= Qnil
;
5859 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5860 doc
: /* A string indicating the foreground color of the cursor box. */);
5861 Vx_cursor_fore_pixel
= Qnil
;
5863 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5864 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5865 Text larger than this is clipped. */);
5866 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5868 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5869 doc
: /* Non-nil if no X window manager is in use.
5870 Emacs doesn't try to figure this out; this is always nil
5871 unless you set it to something else. */);
5872 /* We don't have any way to find this out, so set it to nil
5873 and maybe the user would like to set it to t. */
5874 Vx_no_window_manager
= Qnil
;
5876 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5877 &Vx_pixel_size_width_font_regexp
,
5878 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5880 Since Emacs gets width of a font matching with this regexp from
5881 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5882 such a font. This is especially effective for such large fonts as
5883 Chinese, Japanese, and Korean. */);
5884 Vx_pixel_size_width_font_regexp
= Qnil
;
5886 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5887 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", &x_gtk_use_old_file_dialog
,
5888 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5889 If nil or if the file selection dialog is not available, the new GTK file
5890 chooser is used instead. To turn off all file dialogs set the
5891 variable `use-file-dialog'. */);
5892 x_gtk_use_old_file_dialog
= 0;
5894 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5895 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5896 Note that this is just the default, there is a toggle button on the file
5897 chooser to show or not show hidden files on a case by case basis. */);
5898 x_gtk_show_hidden_files
= 0;
5900 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", &x_gtk_file_dialog_help_text
,
5901 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
5902 If more space for files in the file chooser dialog is wanted, set this to nil
5903 to turn the additional text off. */);
5904 x_gtk_file_dialog_help_text
= 1;
5906 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
5907 doc
: /* *If non-nil, a detached tool bar is shown in full.
5908 The default is to just show an arrow and pressing on that arrow shows
5909 the tool bar buttons. */);
5910 x_gtk_whole_detached_tool_bar
= 0;
5912 Fprovide (intern_c_string ("x"), Qnil
);
5914 #ifdef USE_X_TOOLKIT
5915 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5917 Fprovide (intern_c_string ("motif"), Qnil
);
5919 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5920 doc
: /* Version info for LessTif/Motif. */);
5921 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5922 #endif /* USE_MOTIF */
5923 #endif /* USE_X_TOOLKIT */
5926 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5927 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5928 But for a user it is a toolkit for X, and indeed, configure
5929 accepts --with-x-toolkit=gtk. */
5930 Fprovide (intern_c_string ("x-toolkit"), Qnil
);
5931 Fprovide (intern_c_string ("gtk"), Qnil
);
5933 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5934 doc
: /* Version info for GTK+. */);
5936 char gtk_version
[40];
5937 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5938 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5939 Vgtk_version_string
= make_pure_string (gtk_version
, strlen (gtk_version
), strlen (gtk_version
), 0);
5941 #endif /* USE_GTK */
5943 /* X window properties. */
5944 defsubr (&Sx_change_window_property
);
5945 defsubr (&Sx_delete_window_property
);
5946 defsubr (&Sx_window_property
);
5948 defsubr (&Sxw_display_color_p
);
5949 defsubr (&Sx_display_grayscale_p
);
5950 defsubr (&Sxw_color_defined_p
);
5951 defsubr (&Sxw_color_values
);
5952 defsubr (&Sx_server_max_request_size
);
5953 defsubr (&Sx_server_vendor
);
5954 defsubr (&Sx_server_version
);
5955 defsubr (&Sx_display_pixel_width
);
5956 defsubr (&Sx_display_pixel_height
);
5957 defsubr (&Sx_display_mm_width
);
5958 defsubr (&Sx_display_mm_height
);
5959 defsubr (&Sx_display_screens
);
5960 defsubr (&Sx_display_planes
);
5961 defsubr (&Sx_display_color_cells
);
5962 defsubr (&Sx_display_visual_class
);
5963 defsubr (&Sx_display_backing_store
);
5964 defsubr (&Sx_display_save_under
);
5965 defsubr (&Sx_wm_set_size_hint
);
5966 defsubr (&Sx_create_frame
);
5967 defsubr (&Sx_open_connection
);
5968 defsubr (&Sx_close_connection
);
5969 defsubr (&Sx_display_list
);
5970 defsubr (&Sx_synchronize
);
5971 defsubr (&Sx_focus_frame
);
5972 defsubr (&Sx_backspace_delete_keys_p
);
5974 /* Setting callback functions for fontset handler. */
5975 check_window_system_func
= check_x
;
5977 defsubr (&Sx_show_tip
);
5978 defsubr (&Sx_hide_tip
);
5980 staticpro (&tip_timer
);
5982 staticpro (&tip_frame
);
5984 last_show_tip_args
= Qnil
;
5985 staticpro (&last_show_tip_args
);
5987 defsubr (&Sx_uses_old_gtk_dialog
);
5988 #if defined (USE_MOTIF) || defined (USE_GTK)
5989 defsubr (&Sx_file_dialog
);
5992 #if defined (USE_GTK) && defined (HAVE_FREETYPE)
5993 defsubr (&Sx_select_font
);
5994 x_last_font_name
= NULL
;
5998 #endif /* HAVE_X_WINDOWS */
6000 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
6001 (do not change this comment) */