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 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 Boston, MA 02110-1301, USA. */
30 /* This makes the fields of a Display accessible, in Xlib header files. */
32 #define XLIB_ILLEGAL_ACCESS
39 #include "intervals.h"
40 #include "dispextern.h"
42 #include "blockinput.h"
48 #include "termhooks.h"
55 #include <sys/types.h>
59 #if 1 /* Used to be #ifdef EMACS_BITMAP_FILES, but this should always work. */
60 #include "bitmaps/gray.xbm"
62 #include <X11/bitmaps/gray>
65 #include "[.bitmaps]gray.xbm"
73 #include <X11/Shell.h>
76 #include <X11/Xaw/Paned.h>
77 #include <X11/Xaw/Label.h>
78 #endif /* USE_MOTIF */
81 #undef USG /* ####KLUDGE for Solaris 2.2 and up */
90 #include "../lwlib/lwlib.h"
94 #include <Xm/DialogS.h>
95 #include <Xm/FileSB.h>
98 /* Do the EDITRES protocol if running X11R5
99 Exception: HP-UX (at least version A.09.05) has X11R5 without EditRes */
101 #if (XtSpecificationRelease >= 5) && !defined(NO_EDITRES)
103 extern void _XEditResCheckMessages ();
104 #endif /* R5 + Athena */
106 /* Unique id counter for widgets created by the Lucid Widget Library. */
108 extern LWLIB_ID widget_id_tick
;
111 /* This is part of a kludge--see lwlib/xlwmenu.c. */
112 extern XFontStruct
*xlwmenu_default_font
;
115 extern void free_frame_menubar ();
116 extern double atof ();
120 /* LessTif/Motif version info. */
122 static Lisp_Object Vmotif_version_string
;
124 #endif /* USE_MOTIF */
126 #endif /* USE_X_TOOLKIT */
130 /* GTK+ version info */
132 static Lisp_Object Vgtk_version_string
;
137 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
139 #define MAXREQUEST(dpy) ((dpy)->max_request_size)
142 /* The gray bitmap `bitmaps/gray'. This is done because xterm.c uses
143 it, and including `bitmaps/gray' more than once is a problem when
144 config.h defines `static' as an empty replacement string. */
146 int gray_bitmap_width
= gray_width
;
147 int gray_bitmap_height
= gray_height
;
148 char *gray_bitmap_bits
= gray_bits
;
150 /* Non-zero means we're allowed to display an hourglass cursor. */
152 int display_hourglass_p
;
154 /* Non-zero means prompt with the old GTK file selection dialog. */
156 int x_gtk_use_old_file_dialog
;
158 /* If non-zero, by default show hidden files in the GTK file chooser. */
160 int x_gtk_show_hidden_files
;
162 /* If non-zero, don't show additional help text in the GTK file chooser. */
164 int x_gtk_file_dialog_help_text
;
166 /* If non-zero, don't collapse to tool bar when it is detached. */
168 int x_gtk_whole_detached_tool_bar
;
170 /* The background and shape of the mouse pointer, and shape when not
171 over text or in the modeline. */
173 Lisp_Object Vx_pointer_shape
, Vx_nontext_pointer_shape
, Vx_mode_pointer_shape
;
174 Lisp_Object Vx_hourglass_pointer_shape
;
176 /* The shape when over mouse-sensitive text. */
178 Lisp_Object Vx_sensitive_text_pointer_shape
;
180 /* If non-nil, the pointer shape to indicate that windows can be
181 dragged horizontally. */
183 Lisp_Object Vx_window_horizontal_drag_shape
;
185 /* Color of chars displayed in cursor box. */
187 Lisp_Object Vx_cursor_fore_pixel
;
189 /* Nonzero if using X. */
193 /* Non nil if no window manager is in use. */
195 Lisp_Object Vx_no_window_manager
;
197 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */
199 Lisp_Object Vx_pixel_size_width_font_regexp
;
202 Lisp_Object Qsuppress_icon
;
203 Lisp_Object Qundefined_color
;
204 Lisp_Object Qcompound_text
, Qcancel_timer
;
208 extern Lisp_Object Vwindow_system_version
;
210 /* The below are defined in frame.c. */
213 int image_cache_refcount
, dpyinfo_refcount
;
218 /* Error if we are not connected to X. */
224 error ("X windows are not in use or not initialized");
227 /* Nonzero if we can use mouse menus.
228 You should not call this unless HAVE_MENUS is defined. */
236 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
237 and checking validity for X. */
240 check_x_frame (frame
)
246 frame
= selected_frame
;
247 CHECK_LIVE_FRAME (frame
);
250 error ("Non-X frame used");
254 /* Let the user specify an X display with a Lisp object.
255 OBJECT may be nil, a frame or a terminal id.
256 nil stands for the selected frame--or, if that is not an X frame,
257 the first X display on the list. */
259 struct x_display_info
*
260 check_x_display_info (object
)
263 struct x_display_info
*dpyinfo
= NULL
;
267 struct frame
*sf
= XFRAME (selected_frame
);
269 if (FRAME_X_P (sf
) && FRAME_LIVE_P (sf
))
270 dpyinfo
= FRAME_X_DISPLAY_INFO (sf
);
271 else if (x_display_list
!= 0)
272 dpyinfo
= x_display_list
;
274 error ("X windows are not in use or not initialized");
276 else if (INTEGERP (object
))
278 struct terminal
*t
= get_terminal (XINT (object
), 1);
280 if (t
->type
!= output_x_window
)
281 error ("Terminal %d is not an X display", XINT (object
));
283 dpyinfo
= t
->display_info
.x
;
285 else if (STRINGP (object
))
286 dpyinfo
= x_display_info_for_name (object
);
289 FRAME_PTR f
= check_x_frame (object
);
290 dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
297 /* Return the Emacs frame-object corresponding to an X window.
298 It could be the frame's main window or an icon window. */
300 /* This function can be called during GC, so use GC_xxx type test macros. */
303 x_window_to_frame (dpyinfo
, wdesc
)
304 struct x_display_info
*dpyinfo
;
307 Lisp_Object tail
, frame
;
310 if (wdesc
== None
) return 0;
312 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
315 if (!GC_FRAMEP (frame
))
318 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
320 if (f
->output_data
.x
->hourglass_window
== wdesc
)
323 if ((f
->output_data
.x
->edit_widget
324 && XtWindow (f
->output_data
.x
->edit_widget
) == wdesc
)
325 /* A tooltip frame? */
326 || (!f
->output_data
.x
->edit_widget
327 && FRAME_X_WINDOW (f
) == wdesc
)
328 || f
->output_data
.x
->icon_desc
== wdesc
)
330 #else /* not USE_X_TOOLKIT */
332 if (f
->output_data
.x
->edit_widget
)
334 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
335 struct x_output
*x
= f
->output_data
.x
;
336 if (gwdesc
!= 0 && gwdesc
== x
->edit_widget
)
340 if (FRAME_X_WINDOW (f
) == wdesc
341 || f
->output_data
.x
->icon_desc
== wdesc
)
343 #endif /* not USE_X_TOOLKIT */
348 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
349 /* Like x_window_to_frame but also compares the window with the widget's
353 x_any_window_to_frame (dpyinfo
, wdesc
)
354 struct x_display_info
*dpyinfo
;
357 Lisp_Object tail
, frame
;
358 struct frame
*f
, *found
;
361 if (wdesc
== None
) return NULL
;
364 for (tail
= Vframe_list
; GC_CONSP (tail
) && !found
; tail
= XCDR (tail
))
367 if (!GC_FRAMEP (frame
))
371 if (FRAME_X_P (f
) && FRAME_X_DISPLAY_INFO (f
) == dpyinfo
)
373 /* This frame matches if the window is any of its widgets. */
374 x
= f
->output_data
.x
;
375 if (x
->hourglass_window
== wdesc
)
380 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
382 && (gwdesc
== x
->widget
383 || gwdesc
== x
->edit_widget
384 || gwdesc
== x
->vbox_widget
385 || gwdesc
== x
->menubar_widget
))
388 if (wdesc
== XtWindow (x
->widget
)
389 || wdesc
== XtWindow (x
->column_widget
)
390 || wdesc
== XtWindow (x
->edit_widget
))
392 /* Match if the window is this frame's menubar. */
393 else if (lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
397 else if (FRAME_X_WINDOW (f
) == wdesc
)
398 /* A tooltip frame. */
406 /* Likewise, but exclude the menu bar widget. */
409 x_non_menubar_window_to_frame (dpyinfo
, wdesc
)
410 struct x_display_info
*dpyinfo
;
413 Lisp_Object tail
, frame
;
417 if (wdesc
== None
) return 0;
419 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
422 if (!GC_FRAMEP (frame
))
425 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
427 x
= f
->output_data
.x
;
428 /* This frame matches if the window is any of its widgets. */
429 if (x
->hourglass_window
== wdesc
)
434 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
436 && (gwdesc
== x
->widget
437 || gwdesc
== x
->edit_widget
438 || gwdesc
== x
->vbox_widget
))
441 if (wdesc
== XtWindow (x
->widget
)
442 || wdesc
== XtWindow (x
->column_widget
)
443 || wdesc
== XtWindow (x
->edit_widget
))
447 else if (FRAME_X_WINDOW (f
) == wdesc
)
448 /* A tooltip frame. */
454 /* Likewise, but consider only the menu bar widget. */
457 x_menubar_window_to_frame (dpyinfo
, wdesc
)
458 struct x_display_info
*dpyinfo
;
461 Lisp_Object tail
, frame
;
465 if (wdesc
== None
) return 0;
467 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
470 if (!GC_FRAMEP (frame
))
473 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
475 x
= f
->output_data
.x
;
476 /* Match if the window is this frame's menubar. */
478 if (x
->menubar_widget
)
480 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
485 && (gwdesc
== x
->menubar_widget
486 || gtk_widget_get_parent (gwdesc
) == x
->menubar_widget
))
492 if (x
->menubar_widget
493 && lw_window_is_in_menubar (wdesc
, x
->menubar_widget
))
500 /* Return the frame whose principal (outermost) window is WDESC.
501 If WDESC is some other (smaller) window, we return 0. */
504 x_top_window_to_frame (dpyinfo
, wdesc
)
505 struct x_display_info
*dpyinfo
;
508 Lisp_Object tail
, frame
;
512 if (wdesc
== None
) return 0;
514 for (tail
= Vframe_list
; GC_CONSP (tail
); tail
= XCDR (tail
))
517 if (!GC_FRAMEP (frame
))
520 if (!FRAME_X_P (f
) || FRAME_X_DISPLAY_INFO (f
) != dpyinfo
)
522 x
= f
->output_data
.x
;
526 /* This frame matches if the window is its topmost widget. */
528 GtkWidget
*gwdesc
= xg_win_to_widget (dpyinfo
->display
, wdesc
);
529 if (gwdesc
== x
->widget
)
532 if (wdesc
== XtWindow (x
->widget
))
534 #if 0 /* I don't know why it did this,
535 but it seems logically wrong,
536 and it causes trouble for MapNotify events. */
537 /* Match if the window is this frame's menubar. */
538 if (x
->menubar_widget
539 && wdesc
== XtWindow (x
->menubar_widget
))
544 else if (FRAME_X_WINDOW (f
) == wdesc
)
550 #endif /* USE_X_TOOLKIT || USE_GTK */
554 static Lisp_Object unwind_create_frame
P_ ((Lisp_Object
));
555 static Lisp_Object unwind_create_tip_frame
P_ ((Lisp_Object
));
557 void x_set_foreground_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
558 static void x_set_wait_for_wm
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
559 void x_set_background_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
560 void x_set_mouse_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
561 void x_set_cursor_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
562 void x_set_border_color
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
563 void x_set_cursor_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
564 void x_set_icon_type
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
565 void x_set_icon_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
566 void x_explicitly_set_name
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
567 void x_set_menu_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
568 void x_set_title
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
569 void x_set_tool_bar_lines
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
));
570 void x_set_scroll_bar_foreground
P_ ((struct frame
*, Lisp_Object
,
572 void x_set_scroll_bar_background
P_ ((struct frame
*, Lisp_Object
,
574 static Lisp_Object x_default_scroll_bar_color_parameter
P_ ((struct frame
*,
581 /* Store the screen positions of frame F into XPTR and YPTR.
582 These are the positions of the containing window manager window,
583 not Emacs's own window. */
586 x_real_positions (f
, xptr
, yptr
)
590 int win_x
, win_y
, outer_x
, outer_y
;
591 int real_x
= 0, real_y
= 0;
593 Window win
= f
->output_data
.x
->parent_desc
;
597 x_catch_errors (FRAME_X_DISPLAY (f
));
599 if (win
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
600 win
= FRAME_OUTER_WINDOW (f
);
602 /* This loop traverses up the containment tree until we hit the root
603 window. Window managers may intersect many windows between our window
604 and the root window. The window we find just before the root window
605 should be the outer WM window. */
608 Window wm_window
, rootw
;
609 Window
*tmp_children
;
610 unsigned int tmp_nchildren
;
613 success
= XQueryTree (FRAME_X_DISPLAY (f
), win
, &rootw
,
614 &wm_window
, &tmp_children
, &tmp_nchildren
);
616 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
618 /* Don't free tmp_children if XQueryTree failed. */
622 XFree ((char *) tmp_children
);
624 if (wm_window
== rootw
|| had_errors
)
635 /* Get the real coordinates for the WM window upper left corner */
636 XGetGeometry (FRAME_X_DISPLAY (f
), win
,
637 &rootw
, &real_x
, &real_y
, &ign
, &ign
, &ign
, &ign
);
639 /* Translate real coordinates to coordinates relative to our
640 window. For our window, the upper left corner is 0, 0.
641 Since the upper left corner of the WM window is outside
642 our window, win_x and win_y will be negative:
644 ------------------ ---> x
646 | ----------------- v y
649 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
651 /* From-window, to-window. */
652 FRAME_X_DISPLAY_INFO (f
)->root_window
,
655 /* From-position, to-position. */
656 real_x
, real_y
, &win_x
, &win_y
,
661 if (FRAME_X_WINDOW (f
) == FRAME_OUTER_WINDOW (f
))
668 XTranslateCoordinates (FRAME_X_DISPLAY (f
),
670 /* From-window, to-window. */
671 FRAME_X_DISPLAY_INFO (f
)->root_window
,
672 FRAME_OUTER_WINDOW (f
),
674 /* From-position, to-position. */
675 real_x
, real_y
, &outer_x
, &outer_y
,
681 had_errors
= x_had_errors_p (FRAME_X_DISPLAY (f
));
688 if (had_errors
) return;
690 f
->x_pixels_diff
= -win_x
;
691 f
->y_pixels_diff
= -win_y
;
693 FRAME_X_OUTPUT (f
)->x_pixels_outer_diff
= -outer_x
;
694 FRAME_X_OUTPUT (f
)->y_pixels_outer_diff
= -outer_y
;
703 /* Gamma-correct COLOR on frame F. */
706 gamma_correct (f
, color
)
712 color
->red
= pow (color
->red
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
713 color
->green
= pow (color
->green
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
714 color
->blue
= pow (color
->blue
/ 65535.0, f
->gamma
) * 65535.0 + 0.5;
719 /* Decide if color named COLOR_NAME is valid for use on frame F. If
720 so, return the RGB values in COLOR. If ALLOC_P is non-zero,
721 allocate the color. Value is zero if COLOR_NAME is invalid, or
722 no color could be allocated. */
725 x_defined_color (f
, color_name
, color
, alloc_p
)
732 Display
*dpy
= FRAME_X_DISPLAY (f
);
733 Colormap cmap
= FRAME_X_COLORMAP (f
);
736 success_p
= XParseColor (dpy
, cmap
, color_name
, color
);
737 if (success_p
&& alloc_p
)
738 success_p
= x_alloc_nearest_color (f
, cmap
, color
);
745 /* Return the pixel color value for color COLOR_NAME on frame F. If F
746 is a monochrome frame, return MONO_COLOR regardless of what ARG says.
747 Signal an error if color can't be allocated. */
750 x_decode_color (f
, color_name
, mono_color
)
752 Lisp_Object color_name
;
757 CHECK_STRING (color_name
);
759 #if 0 /* Don't do this. It's wrong when we're not using the default
760 colormap, it makes freeing difficult, and it's probably not
761 an important optimization. */
762 if (strcmp (SDATA (color_name
), "black") == 0)
763 return BLACK_PIX_DEFAULT (f
);
764 else if (strcmp (SDATA (color_name
), "white") == 0)
765 return WHITE_PIX_DEFAULT (f
);
768 /* Return MONO_COLOR for monochrome frames. */
769 if (FRAME_X_DISPLAY_INFO (f
)->n_planes
== 1)
772 /* x_defined_color is responsible for coping with failures
773 by looking for a near-miss. */
774 if (x_defined_color (f
, SDATA (color_name
), &cdef
, 1))
777 signal_error ("Undefined color", color_name
);
782 /* Change the `wait-for-wm' frame parameter of frame F. OLD_VALUE is
783 the previous value of that parameter, NEW_VALUE is the new value.
784 See also the comment of wait_for_wm in struct x_output. */
787 x_set_wait_for_wm (f
, new_value
, old_value
)
789 Lisp_Object new_value
, old_value
;
791 f
->output_data
.x
->wait_for_wm
= !NILP (new_value
);
796 /* Set icon from FILE for frame F. By using GTK functions the icon
797 may be any format that GdkPixbuf knows about, i.e. not just bitmaps. */
800 xg_set_icon (f
, file
)
807 found
= x_find_image_file (file
);
813 char *filename
= (char *) SDATA (found
);
816 pixbuf
= gdk_pixbuf_new_from_file (filename
, &err
);
820 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
822 g_object_unref (pixbuf
);
836 xg_set_icon_from_xpm_data (f
, data
)
841 GdkPixbuf
*pixbuf
= gdk_pixbuf_new_from_xpm_data ((const char **) data
);
846 gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)), pixbuf
);
847 g_object_unref (pixbuf
);
853 /* Functions called only from `x_set_frame_param'
854 to set individual parameters.
856 If FRAME_X_WINDOW (f) is 0,
857 the frame is being created and its X-window does not exist yet.
858 In that case, just record the parameter's new value
859 in the standard place; do not attempt to change the window. */
862 x_set_foreground_color (f
, arg
, oldval
)
864 Lisp_Object arg
, oldval
;
866 struct x_output
*x
= f
->output_data
.x
;
867 unsigned long fg
, old_fg
;
869 fg
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
870 old_fg
= FRAME_FOREGROUND_PIXEL (f
);
871 FRAME_FOREGROUND_PIXEL (f
) = fg
;
873 if (FRAME_X_WINDOW (f
) != 0)
875 Display
*dpy
= FRAME_X_DISPLAY (f
);
878 XSetForeground (dpy
, x
->normal_gc
, fg
);
879 XSetBackground (dpy
, x
->reverse_gc
, fg
);
881 if (x
->cursor_pixel
== old_fg
)
883 unload_color (f
, x
->cursor_pixel
);
884 x
->cursor_pixel
= x_copy_color (f
, fg
);
885 XSetBackground (dpy
, x
->cursor_gc
, x
->cursor_pixel
);
890 update_face_from_frame_parameter (f
, Qforeground_color
, arg
);
892 if (FRAME_VISIBLE_P (f
))
896 unload_color (f
, old_fg
);
900 x_set_background_color (f
, arg
, oldval
)
902 Lisp_Object arg
, oldval
;
904 struct x_output
*x
= f
->output_data
.x
;
907 bg
= x_decode_color (f
, arg
, WHITE_PIX_DEFAULT (f
));
908 unload_color (f
, FRAME_BACKGROUND_PIXEL (f
));
909 FRAME_BACKGROUND_PIXEL (f
) = bg
;
911 if (FRAME_X_WINDOW (f
) != 0)
913 Display
*dpy
= FRAME_X_DISPLAY (f
);
916 XSetBackground (dpy
, x
->normal_gc
, bg
);
917 XSetForeground (dpy
, x
->reverse_gc
, bg
);
918 XSetWindowBackground (dpy
, FRAME_X_WINDOW (f
), bg
);
919 XSetForeground (dpy
, x
->cursor_gc
, bg
);
922 xg_set_background_color (f
, bg
);
925 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
926 toolkit scroll bars. */
929 for (bar
= FRAME_SCROLL_BARS (f
);
931 bar
= XSCROLL_BAR (bar
)->next
)
933 Window window
= SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar
));
934 XSetWindowBackground (dpy
, window
, bg
);
937 #endif /* USE_TOOLKIT_SCROLL_BARS */
940 update_face_from_frame_parameter (f
, Qbackground_color
, arg
);
942 if (FRAME_VISIBLE_P (f
))
948 x_set_mouse_color (f
, arg
, oldval
)
950 Lisp_Object arg
, oldval
;
952 struct x_output
*x
= f
->output_data
.x
;
953 Display
*dpy
= FRAME_X_DISPLAY (f
);
954 Cursor cursor
, nontext_cursor
, mode_cursor
, hand_cursor
;
955 Cursor hourglass_cursor
, horizontal_drag_cursor
;
956 unsigned long pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
957 unsigned long mask_color
= FRAME_BACKGROUND_PIXEL (f
);
959 /* Don't let pointers be invisible. */
960 if (mask_color
== pixel
)
962 x_free_colors (f
, &pixel
, 1);
963 pixel
= x_copy_color (f
, FRAME_FOREGROUND_PIXEL (f
));
966 unload_color (f
, x
->mouse_pixel
);
967 x
->mouse_pixel
= pixel
;
971 /* It's not okay to crash if the user selects a screwy cursor. */
972 x_catch_errors (dpy
);
974 if (!NILP (Vx_pointer_shape
))
976 CHECK_NUMBER (Vx_pointer_shape
);
977 cursor
= XCreateFontCursor (dpy
, XINT (Vx_pointer_shape
));
980 cursor
= XCreateFontCursor (dpy
, XC_xterm
);
981 x_check_errors (dpy
, "bad text pointer cursor: %s");
983 if (!NILP (Vx_nontext_pointer_shape
))
985 CHECK_NUMBER (Vx_nontext_pointer_shape
);
987 = XCreateFontCursor (dpy
, XINT (Vx_nontext_pointer_shape
));
990 nontext_cursor
= XCreateFontCursor (dpy
, XC_left_ptr
);
991 x_check_errors (dpy
, "bad nontext pointer cursor: %s");
993 if (!NILP (Vx_hourglass_pointer_shape
))
995 CHECK_NUMBER (Vx_hourglass_pointer_shape
);
997 = XCreateFontCursor (dpy
, XINT (Vx_hourglass_pointer_shape
));
1000 hourglass_cursor
= XCreateFontCursor (dpy
, XC_watch
);
1001 x_check_errors (dpy
, "bad hourglass pointer cursor: %s");
1003 if (!NILP (Vx_mode_pointer_shape
))
1005 CHECK_NUMBER (Vx_mode_pointer_shape
);
1006 mode_cursor
= XCreateFontCursor (dpy
, XINT (Vx_mode_pointer_shape
));
1009 mode_cursor
= XCreateFontCursor (dpy
, XC_xterm
);
1010 x_check_errors (dpy
, "bad modeline pointer cursor: %s");
1012 if (!NILP (Vx_sensitive_text_pointer_shape
))
1014 CHECK_NUMBER (Vx_sensitive_text_pointer_shape
);
1016 = XCreateFontCursor (dpy
, XINT (Vx_sensitive_text_pointer_shape
));
1019 hand_cursor
= XCreateFontCursor (dpy
, XC_hand2
);
1021 if (!NILP (Vx_window_horizontal_drag_shape
))
1023 CHECK_NUMBER (Vx_window_horizontal_drag_shape
);
1024 horizontal_drag_cursor
1025 = XCreateFontCursor (dpy
, XINT (Vx_window_horizontal_drag_shape
));
1028 horizontal_drag_cursor
1029 = XCreateFontCursor (dpy
, XC_sb_h_double_arrow
);
1031 /* Check and report errors with the above calls. */
1032 x_check_errors (dpy
, "can't set cursor shape: %s");
1033 x_uncatch_errors ();
1036 XColor fore_color
, back_color
;
1038 fore_color
.pixel
= x
->mouse_pixel
;
1039 x_query_color (f
, &fore_color
);
1040 back_color
.pixel
= mask_color
;
1041 x_query_color (f
, &back_color
);
1043 XRecolorCursor (dpy
, cursor
, &fore_color
, &back_color
);
1044 XRecolorCursor (dpy
, nontext_cursor
, &fore_color
, &back_color
);
1045 XRecolorCursor (dpy
, mode_cursor
, &fore_color
, &back_color
);
1046 XRecolorCursor (dpy
, hand_cursor
, &fore_color
, &back_color
);
1047 XRecolorCursor (dpy
, hourglass_cursor
, &fore_color
, &back_color
);
1048 XRecolorCursor (dpy
, horizontal_drag_cursor
, &fore_color
, &back_color
);
1051 if (FRAME_X_WINDOW (f
) != 0)
1052 XDefineCursor (dpy
, FRAME_X_WINDOW (f
), cursor
);
1054 if (cursor
!= x
->text_cursor
1055 && x
->text_cursor
!= 0)
1056 XFreeCursor (dpy
, x
->text_cursor
);
1057 x
->text_cursor
= cursor
;
1059 if (nontext_cursor
!= x
->nontext_cursor
1060 && x
->nontext_cursor
!= 0)
1061 XFreeCursor (dpy
, x
->nontext_cursor
);
1062 x
->nontext_cursor
= nontext_cursor
;
1064 if (hourglass_cursor
!= x
->hourglass_cursor
1065 && x
->hourglass_cursor
!= 0)
1066 XFreeCursor (dpy
, x
->hourglass_cursor
);
1067 x
->hourglass_cursor
= hourglass_cursor
;
1069 if (mode_cursor
!= x
->modeline_cursor
1070 && x
->modeline_cursor
!= 0)
1071 XFreeCursor (dpy
, f
->output_data
.x
->modeline_cursor
);
1072 x
->modeline_cursor
= mode_cursor
;
1074 if (hand_cursor
!= x
->hand_cursor
1075 && x
->hand_cursor
!= 0)
1076 XFreeCursor (dpy
, x
->hand_cursor
);
1077 x
->hand_cursor
= hand_cursor
;
1079 if (horizontal_drag_cursor
!= x
->horizontal_drag_cursor
1080 && x
->horizontal_drag_cursor
!= 0)
1081 XFreeCursor (dpy
, x
->horizontal_drag_cursor
);
1082 x
->horizontal_drag_cursor
= horizontal_drag_cursor
;
1087 update_face_from_frame_parameter (f
, Qmouse_color
, arg
);
1091 x_set_cursor_color (f
, arg
, oldval
)
1093 Lisp_Object arg
, oldval
;
1095 unsigned long fore_pixel
, pixel
;
1096 int fore_pixel_allocated_p
= 0, pixel_allocated_p
= 0;
1097 struct x_output
*x
= f
->output_data
.x
;
1099 if (!NILP (Vx_cursor_fore_pixel
))
1101 fore_pixel
= x_decode_color (f
, Vx_cursor_fore_pixel
,
1102 WHITE_PIX_DEFAULT (f
));
1103 fore_pixel_allocated_p
= 1;
1106 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1108 pixel
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1109 pixel_allocated_p
= 1;
1111 /* Make sure that the cursor color differs from the background color. */
1112 if (pixel
== FRAME_BACKGROUND_PIXEL (f
))
1114 if (pixel_allocated_p
)
1116 x_free_colors (f
, &pixel
, 1);
1117 pixel_allocated_p
= 0;
1120 pixel
= x
->mouse_pixel
;
1121 if (pixel
== fore_pixel
)
1123 if (fore_pixel_allocated_p
)
1125 x_free_colors (f
, &fore_pixel
, 1);
1126 fore_pixel_allocated_p
= 0;
1128 fore_pixel
= FRAME_BACKGROUND_PIXEL (f
);
1132 unload_color (f
, x
->cursor_foreground_pixel
);
1133 if (!fore_pixel_allocated_p
)
1134 fore_pixel
= x_copy_color (f
, fore_pixel
);
1135 x
->cursor_foreground_pixel
= fore_pixel
;
1137 unload_color (f
, x
->cursor_pixel
);
1138 if (!pixel_allocated_p
)
1139 pixel
= x_copy_color (f
, pixel
);
1140 x
->cursor_pixel
= pixel
;
1142 if (FRAME_X_WINDOW (f
) != 0)
1145 XSetBackground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, x
->cursor_pixel
);
1146 XSetForeground (FRAME_X_DISPLAY (f
), x
->cursor_gc
, fore_pixel
);
1149 if (FRAME_VISIBLE_P (f
))
1151 x_update_cursor (f
, 0);
1152 x_update_cursor (f
, 1);
1156 update_face_from_frame_parameter (f
, Qcursor_color
, arg
);
1159 /* Set the border-color of frame F to pixel value PIX.
1160 Note that this does not fully take effect if done before
1161 F has an x-window. */
1164 x_set_border_pixel (f
, pix
)
1168 unload_color (f
, f
->output_data
.x
->border_pixel
);
1169 f
->output_data
.x
->border_pixel
= pix
;
1171 if (FRAME_X_WINDOW (f
) != 0 && f
->border_width
> 0)
1174 XSetWindowBorder (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1175 (unsigned long)pix
);
1178 if (FRAME_VISIBLE_P (f
))
1183 /* Set the border-color of frame F to value described by ARG.
1184 ARG can be a string naming a color.
1185 The border-color is used for the border that is drawn by the X server.
1186 Note that this does not fully take effect if done before
1187 F has an x-window; it must be redone when the window is created.
1189 Note: this is done in two routines because of the way X10 works.
1191 Note: under X11, this is normally the province of the window manager,
1192 and so emacs' border colors may be overridden. */
1195 x_set_border_color (f
, arg
, oldval
)
1197 Lisp_Object arg
, oldval
;
1202 pix
= x_decode_color (f
, arg
, BLACK_PIX_DEFAULT (f
));
1203 x_set_border_pixel (f
, pix
);
1204 update_face_from_frame_parameter (f
, Qborder_color
, arg
);
1209 x_set_cursor_type (f
, arg
, oldval
)
1211 Lisp_Object arg
, oldval
;
1213 set_frame_cursor_types (f
, arg
);
1215 /* Make sure the cursor gets redrawn. */
1216 cursor_type_changed
= 1;
1220 x_set_icon_type (f
, arg
, oldval
)
1222 Lisp_Object arg
, oldval
;
1228 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1231 else if (!STRINGP (oldval
) && EQ (oldval
, Qnil
) == EQ (arg
, Qnil
))
1236 result
= x_text_icon (f
,
1237 (char *) SDATA ((!NILP (f
->icon_name
)
1241 result
= x_bitmap_icon (f
, arg
);
1246 error ("No icon window available");
1249 XFlush (FRAME_X_DISPLAY (f
));
1254 x_set_icon_name (f
, arg
, oldval
)
1256 Lisp_Object arg
, oldval
;
1262 if (STRINGP (oldval
) && EQ (Fstring_equal (oldval
, arg
), Qt
))
1265 else if (!NILP (arg
) || NILP (oldval
))
1270 if (f
->output_data
.x
->icon_bitmap
!= 0)
1275 result
= x_text_icon (f
,
1276 (char *) SDATA ((!NILP (f
->icon_name
)
1285 error ("No icon window available");
1288 XFlush (FRAME_X_DISPLAY (f
));
1294 x_set_menu_bar_lines (f
, value
, oldval
)
1296 Lisp_Object value
, oldval
;
1299 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
1300 int olines
= FRAME_MENU_BAR_LINES (f
);
1303 /* Right now, menu bars don't work properly in minibuf-only frames;
1304 most of the commands try to apply themselves to the minibuffer
1305 frame itself, and get an error because you can't switch buffers
1306 in or split the minibuffer window. */
1307 if (FRAME_MINIBUF_ONLY_P (f
))
1310 if (INTEGERP (value
))
1311 nlines
= XINT (value
);
1315 /* Make sure we redisplay all windows in this frame. */
1316 windows_or_buffers_changed
++;
1318 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
1319 FRAME_MENU_BAR_LINES (f
) = 0;
1322 FRAME_EXTERNAL_MENU_BAR (f
) = 1;
1323 if (FRAME_X_P (f
) && f
->output_data
.x
->menubar_widget
== 0)
1324 /* Make sure next redisplay shows the menu bar. */
1325 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1329 if (FRAME_EXTERNAL_MENU_BAR (f
) == 1)
1330 free_frame_menubar (f
);
1331 FRAME_EXTERNAL_MENU_BAR (f
) = 0;
1333 f
->output_data
.x
->menubar_widget
= 0;
1335 #else /* not USE_X_TOOLKIT && not USE_GTK */
1336 FRAME_MENU_BAR_LINES (f
) = nlines
;
1337 change_window_heights (f
->root_window
, nlines
- olines
);
1338 #endif /* not USE_X_TOOLKIT */
1343 /* Set the number of lines used for the tool bar of frame F to VALUE.
1344 VALUE not an integer, or < 0 means set the lines to zero. OLDVAL
1345 is the old number of tool bar lines. This function changes the
1346 height of all windows on frame F to match the new tool bar height.
1347 The frame's height doesn't change. */
1350 x_set_tool_bar_lines (f
, value
, oldval
)
1352 Lisp_Object value
, oldval
;
1354 int delta
, nlines
, root_height
;
1355 Lisp_Object root_window
;
1357 /* Treat tool bars like menu bars. */
1358 if (FRAME_MINIBUF_ONLY_P (f
))
1361 /* Use VALUE only if an integer >= 0. */
1362 if (INTEGERP (value
) && XINT (value
) >= 0)
1363 nlines
= XFASTINT (value
);
1368 FRAME_TOOL_BAR_LINES (f
) = 0;
1371 FRAME_EXTERNAL_TOOL_BAR (f
) = 1;
1372 if (FRAME_X_P (f
) && f
->output_data
.x
->toolbar_widget
== 0)
1373 /* Make sure next redisplay shows the tool bar. */
1374 XWINDOW (FRAME_SELECTED_WINDOW (f
))->update_mode_line
= Qt
;
1375 update_frame_tool_bar (f
);
1379 if (FRAME_EXTERNAL_TOOL_BAR (f
))
1380 free_frame_tool_bar (f
);
1381 FRAME_EXTERNAL_TOOL_BAR (f
) = 0;
1387 /* Make sure we redisplay all windows in this frame. */
1388 ++windows_or_buffers_changed
;
1390 delta
= nlines
- FRAME_TOOL_BAR_LINES (f
);
1392 /* Don't resize the tool-bar to more than we have room for. */
1393 root_window
= FRAME_ROOT_WINDOW (f
);
1394 root_height
= WINDOW_TOTAL_LINES (XWINDOW (root_window
));
1395 if (root_height
- delta
< 1)
1397 delta
= root_height
- 1;
1398 nlines
= FRAME_TOOL_BAR_LINES (f
) + delta
;
1401 FRAME_TOOL_BAR_LINES (f
) = nlines
;
1402 change_window_heights (root_window
, delta
);
1405 /* We also have to make sure that the internal border at the top of
1406 the frame, below the menu bar or tool bar, is redrawn when the
1407 tool bar disappears. This is so because the internal border is
1408 below the tool bar if one is displayed, but is below the menu bar
1409 if there isn't a tool bar. The tool bar draws into the area
1410 below the menu bar. */
1411 if (FRAME_X_WINDOW (f
) && FRAME_TOOL_BAR_LINES (f
) == 0)
1414 clear_current_matrices (f
);
1417 /* If the tool bar gets smaller, the internal border below it
1418 has to be cleared. It was formerly part of the display
1419 of the larger tool bar, and updating windows won't clear it. */
1422 int height
= FRAME_INTERNAL_BORDER_WIDTH (f
);
1423 int width
= FRAME_PIXEL_WIDTH (f
);
1424 int y
= nlines
* FRAME_LINE_HEIGHT (f
);
1426 /* height can be zero here. */
1427 if (height
> 0 && width
> 0)
1430 x_clear_area (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1431 0, y
, width
, height
, False
);
1435 if (WINDOWP (f
->tool_bar_window
))
1436 clear_glyph_matrix (XWINDOW (f
->tool_bar_window
)->current_matrix
);
1441 /* Set the foreground color for scroll bars on frame F to VALUE.
1442 VALUE should be a string, a color name. If it isn't a string or
1443 isn't a valid color name, do nothing. OLDVAL is the old value of
1444 the frame parameter. */
1447 x_set_scroll_bar_foreground (f
, value
, oldval
)
1449 Lisp_Object value
, oldval
;
1451 unsigned long pixel
;
1453 if (STRINGP (value
))
1454 pixel
= x_decode_color (f
, value
, BLACK_PIX_DEFAULT (f
));
1458 if (f
->output_data
.x
->scroll_bar_foreground_pixel
!= -1)
1459 unload_color (f
, f
->output_data
.x
->scroll_bar_foreground_pixel
);
1461 f
->output_data
.x
->scroll_bar_foreground_pixel
= pixel
;
1462 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1464 /* Remove all scroll bars because they have wrong colors. */
1465 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1466 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1467 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1468 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1470 update_face_from_frame_parameter (f
, Qscroll_bar_foreground
, value
);
1476 /* Set the background color for scroll bars on frame F to VALUE VALUE
1477 should be a string, a color name. If it isn't a string or isn't a
1478 valid color name, do nothing. OLDVAL is the old value of the frame
1482 x_set_scroll_bar_background (f
, value
, oldval
)
1484 Lisp_Object value
, oldval
;
1486 unsigned long pixel
;
1488 if (STRINGP (value
))
1489 pixel
= x_decode_color (f
, value
, WHITE_PIX_DEFAULT (f
));
1493 if (f
->output_data
.x
->scroll_bar_background_pixel
!= -1)
1494 unload_color (f
, f
->output_data
.x
->scroll_bar_background_pixel
);
1496 #ifdef USE_TOOLKIT_SCROLL_BARS
1497 /* Scrollbar shadow colors. */
1498 if (f
->output_data
.x
->scroll_bar_top_shadow_pixel
!= -1)
1500 unload_color (f
, f
->output_data
.x
->scroll_bar_top_shadow_pixel
);
1501 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
1503 if (f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
!= -1)
1505 unload_color (f
, f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
);
1506 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
1508 #endif /* USE_TOOLKIT_SCROLL_BARS */
1510 f
->output_data
.x
->scroll_bar_background_pixel
= pixel
;
1511 if (FRAME_X_WINDOW (f
) && FRAME_VISIBLE_P (f
))
1513 /* Remove all scroll bars because they have wrong colors. */
1514 if (FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
)
1515 (*FRAME_TERMINAL (f
)->condemn_scroll_bars_hook
) (f
);
1516 if (FRAME_TERMINAL (f
)->judge_scroll_bars_hook
)
1517 (*FRAME_TERMINAL (f
)->judge_scroll_bars_hook
) (f
);
1519 update_face_from_frame_parameter (f
, Qscroll_bar_background
, value
);
1525 /* Encode Lisp string STRING as a text in a format appropriate for
1526 XICCC (X Inter Client Communication Conventions).
1528 If STRING contains only ASCII characters, do no conversion and
1529 return the string data of STRING. Otherwise, encode the text by
1530 CODING_SYSTEM, and return a newly allocated memory area which
1531 should be freed by `xfree' by a caller.
1533 SELECTIONP non-zero means the string is being encoded for an X
1534 selection, so it is safe to run pre-write conversions (which
1537 Store the byte length of resulting text in *TEXT_BYTES.
1539 If the text contains only ASCII and Latin-1, store 1 in *STRING_P,
1540 which means that the `encoding' of the result can be `STRING'.
1541 Otherwise store 0 in *STRINGP, which means that the `encoding' of
1542 the result should be `COMPOUND_TEXT'. */
1544 static unsigned char *
1545 x_encode_text (string
, coding_system
, selectionp
, text_bytes
, stringp
, freep
)
1546 Lisp_Object string
, coding_system
;
1547 int *text_bytes
, *stringp
;
1551 unsigned char *str
= SDATA (string
);
1552 int chars
= SCHARS (string
);
1553 int bytes
= SBYTES (string
);
1557 struct coding_system coding
;
1558 extern Lisp_Object Qcompound_text_with_extensions
;
1560 charset_info
= find_charset_in_text (str
, chars
, bytes
, NULL
, Qnil
);
1561 if (charset_info
== 0)
1563 /* No multibyte character in OBJ. We need not encode it. */
1564 *text_bytes
= bytes
;
1570 setup_coding_system (coding_system
, &coding
);
1572 && SYMBOLP (coding
.pre_write_conversion
)
1573 && !NILP (Ffboundp (coding
.pre_write_conversion
)))
1575 string
= run_pre_post_conversion_on_str (string
, &coding
, 1);
1576 str
= SDATA (string
);
1577 chars
= SCHARS (string
);
1578 bytes
= SBYTES (string
);
1580 coding
.src_multibyte
= 1;
1581 coding
.dst_multibyte
= 0;
1582 coding
.mode
|= CODING_MODE_LAST_BLOCK
;
1583 if (coding
.type
== coding_type_iso2022
)
1584 coding
.flags
|= CODING_FLAG_ISO_SAFE
;
1585 /* We suppress producing escape sequences for composition. */
1586 coding
.composing
= COMPOSITION_DISABLED
;
1587 bufsize
= encoding_buffer_size (&coding
, bytes
);
1588 buf
= (unsigned char *) xmalloc (bufsize
);
1589 encode_coding (&coding
, str
, buf
, bytes
, bufsize
);
1590 *text_bytes
= coding
.produced
;
1591 *stringp
= (charset_info
== 1
1592 || (!EQ (coding_system
, Qcompound_text
)
1593 && !EQ (coding_system
, Qcompound_text_with_extensions
)));
1599 /* Set the WM name to NAME for frame F. Also set the icon name.
1600 If the frame already has an icon name, use that, otherwise set the
1601 icon name to NAME. */
1604 x_set_name_internal (f
, name
)
1608 if (FRAME_X_WINDOW (f
))
1613 XTextProperty text
, icon
;
1615 int do_free_icon_value
= 0, do_free_text_value
= 0;
1616 Lisp_Object coding_system
;
1618 coding_system
= Qcompound_text
;
1619 /* Note: Encoding strategy
1621 We encode NAME by compound-text and use "COMPOUND-TEXT" in
1622 text.encoding. But, there are non-internationalized window
1623 managers which don't support that encoding. So, if NAME
1624 contains only ASCII and 8859-1 characters, encode it by
1625 iso-latin-1, and use "STRING" in text.encoding hoping that
1626 such window managers at least analyze this format correctly,
1627 i.e. treat 8-bit bytes as 8859-1 characters.
1629 We may also be able to use "UTF8_STRING" in text.encoding
1630 in the future which can encode all Unicode characters.
1631 But, for the moment, there's no way to know that the
1632 current window manager supports it or not. */
1633 text
.value
= x_encode_text (name
, coding_system
, 0, &bytes
, &stringp
,
1634 &do_free_text_value
);
1635 text
.encoding
= (stringp
? XA_STRING
1636 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1638 text
.nitems
= bytes
;
1640 if (!STRINGP (f
->icon_name
))
1646 /* See the above comment "Note: Encoding strategy". */
1647 icon
.value
= x_encode_text (f
->icon_name
, coding_system
, 0,
1648 &bytes
, &stringp
, &do_free_icon_value
);
1649 icon
.encoding
= (stringp
? XA_STRING
1650 : FRAME_X_DISPLAY_INFO (f
)->Xatom_COMPOUND_TEXT
);
1652 icon
.nitems
= bytes
;
1656 gtk_window_set_title (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f
)),
1657 (char *) SDATA (ENCODE_UTF_8 (name
)));
1658 #else /* not USE_GTK */
1659 XSetWMName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &text
);
1660 #endif /* not USE_GTK */
1662 XSetWMIconName (FRAME_X_DISPLAY (f
), FRAME_OUTER_WINDOW (f
), &icon
);
1664 if (do_free_icon_value
)
1666 if (do_free_text_value
)
1669 #else /* not HAVE_X11R4 */
1670 XSetIconName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1672 XStoreName (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
1674 #endif /* not HAVE_X11R4 */
1679 /* Change the name of frame F to NAME. If NAME is nil, set F's name to
1682 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1683 name; if NAME is a string, set F's name to NAME and set
1684 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1686 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1687 suggesting a new name, which lisp code should override; if
1688 F->explicit_name is set, ignore the new name; otherwise, set it. */
1691 x_set_name (f
, name
, explicit)
1696 /* Make sure that requests from lisp code override requests from
1697 Emacs redisplay code. */
1700 /* If we're switching from explicit to implicit, we had better
1701 update the mode lines and thereby update the title. */
1702 if (f
->explicit_name
&& NILP (name
))
1703 update_mode_lines
= 1;
1705 f
->explicit_name
= ! NILP (name
);
1707 else if (f
->explicit_name
)
1710 /* If NAME is nil, set the name to the x_id_name. */
1713 /* Check for no change needed in this very common case
1714 before we do any consing. */
1715 if (!strcmp (FRAME_X_DISPLAY_INFO (f
)->x_id_name
,
1718 name
= build_string (FRAME_X_DISPLAY_INFO (f
)->x_id_name
);
1721 CHECK_STRING (name
);
1723 /* Don't change the name if it's already NAME. */
1724 if (! NILP (Fstring_equal (name
, f
->name
)))
1729 /* For setting the frame title, the title parameter should override
1730 the name parameter. */
1731 if (! NILP (f
->title
))
1734 x_set_name_internal (f
, name
);
1737 /* This function should be called when the user's lisp code has
1738 specified a name for the frame; the name will override any set by the
1741 x_explicitly_set_name (f
, arg
, oldval
)
1743 Lisp_Object arg
, oldval
;
1745 x_set_name (f
, arg
, 1);
1748 /* This function should be called by Emacs redisplay code to set the
1749 name; names set this way will never override names set by the user's
1752 x_implicitly_set_name (f
, arg
, oldval
)
1754 Lisp_Object arg
, oldval
;
1756 x_set_name (f
, arg
, 0);
1759 /* Change the title of frame F to NAME.
1760 If NAME is nil, use the frame name as the title.
1762 If EXPLICIT is non-zero, that indicates that lisp code is setting the
1763 name; if NAME is a string, set F's name to NAME and set
1764 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
1766 If EXPLICIT is zero, that indicates that Emacs redisplay code is
1767 suggesting a new name, which lisp code should override; if
1768 F->explicit_name is set, ignore the new name; otherwise, set it. */
1771 x_set_title (f
, name
, old_name
)
1773 Lisp_Object name
, old_name
;
1775 /* Don't change the title if it's already NAME. */
1776 if (EQ (name
, f
->title
))
1779 update_mode_lines
= 1;
1786 CHECK_STRING (name
);
1788 x_set_name_internal (f
, name
);
1792 x_set_scroll_bar_default_width (f
)
1795 int wid
= FRAME_COLUMN_WIDTH (f
);
1797 #ifdef USE_TOOLKIT_SCROLL_BARS
1798 /* A minimum width of 14 doesn't look good for toolkit scroll bars. */
1799 int width
= 16 + 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
;
1800 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (width
+ wid
- 1) / wid
;
1801 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = width
;
1803 /* Make the actual width at least 14 pixels and a multiple of a
1805 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (14 + wid
- 1) / wid
;
1807 /* Use all of that space (aside from required margins) for the
1809 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = 0;
1814 /* Record in frame F the specified or default value according to ALIST
1815 of the parameter named PROP (a Lisp symbol). If no value is
1816 specified for PROP, look for an X default for XPROP on the frame
1817 named NAME. If that is not found either, use the value DEFLT. */
1820 x_default_scroll_bar_color_parameter (f
, alist
, prop
, xprop
, xclass
,
1829 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
1832 tem
= x_get_arg (dpyinfo
, alist
, prop
, xprop
, xclass
, RES_TYPE_STRING
);
1833 if (EQ (tem
, Qunbound
))
1835 #ifdef USE_TOOLKIT_SCROLL_BARS
1837 /* See if an X resource for the scroll bar color has been
1839 tem
= display_x_get_resource (dpyinfo
,
1840 build_string (foreground_p
1844 build_string ("verticalScrollBar"),
1848 /* If nothing has been specified, scroll bars will use a
1849 toolkit-dependent default. Because these defaults are
1850 difficult to get at without actually creating a scroll
1851 bar, use nil to indicate that no color has been
1856 #else /* not USE_TOOLKIT_SCROLL_BARS */
1860 #endif /* not USE_TOOLKIT_SCROLL_BARS */
1863 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
1869 #if !defined (HAVE_X11R4) && !defined (HAVE_XSETWMPROTOCOLS)
1872 XSetWMProtocols (dpy
, w
, protocols
, count
)
1879 prop
= XInternAtom (dpy
, "WM_PROTOCOLS", False
);
1880 if (prop
== None
) return False
;
1881 XChangeProperty (dpy
, w
, prop
, XA_ATOM
, 32, PropModeReplace
,
1882 (unsigned char *) protocols
, count
);
1885 #endif /* not HAVE_X11R4 && not HAVE_XSETWMPROTOCOLS */
1887 #ifdef USE_X_TOOLKIT
1889 /* If the WM_PROTOCOLS property does not already contain WM_TAKE_FOCUS,
1890 WM_DELETE_WINDOW, and WM_SAVE_YOURSELF, then add them. (They may
1891 already be present because of the toolkit (Motif adds some of them,
1892 for example, but Xt doesn't). */
1895 hack_wm_protocols (f
, widget
)
1899 Display
*dpy
= XtDisplay (widget
);
1900 Window w
= XtWindow (widget
);
1901 int need_delete
= 1;
1908 unsigned char *catoms
;
1910 unsigned long nitems
= 0;
1911 unsigned long bytes_after
;
1913 if ((XGetWindowProperty (dpy
, w
,
1914 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1915 (long)0, (long)100, False
, XA_ATOM
,
1916 &type
, &format
, &nitems
, &bytes_after
,
1919 && format
== 32 && type
== XA_ATOM
)
1921 Atom
*atoms
= (Atom
*) catoms
;
1926 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
)
1928 else if (atoms
[nitems
]
1929 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
)
1931 else if (atoms
[nitems
]
1932 == FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
)
1943 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
1945 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_take_focus
;
1947 props
[count
++] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
1949 XChangeProperty (dpy
, w
, FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
1950 XA_ATOM
, 32, PropModeAppend
,
1951 (unsigned char *) props
, count
);
1959 /* Support routines for XIC (X Input Context). */
1963 static XFontSet xic_create_xfontset
P_ ((struct frame
*, char *));
1964 static XIMStyle best_xim_style
P_ ((XIMStyles
*, XIMStyles
*));
1967 /* Supported XIM styles, ordered by preference. */
1969 static XIMStyle supported_xim_styles
[] =
1971 XIMPreeditPosition
| XIMStatusArea
,
1972 XIMPreeditPosition
| XIMStatusNothing
,
1973 XIMPreeditPosition
| XIMStatusNone
,
1974 XIMPreeditNothing
| XIMStatusArea
,
1975 XIMPreeditNothing
| XIMStatusNothing
,
1976 XIMPreeditNothing
| XIMStatusNone
,
1977 XIMPreeditNone
| XIMStatusArea
,
1978 XIMPreeditNone
| XIMStatusNothing
,
1979 XIMPreeditNone
| XIMStatusNone
,
1984 /* Create an X fontset on frame F with base font name BASE_FONTNAME. */
1986 char xic_defaut_fontset
[] = "-*-*-*-r-normal--14-*-*-*-*-*-*-*";
1988 /* Create an Xt fontset spec from the name of a base font.
1989 If `motif' is True use the Motif syntax. */
1991 xic_create_fontsetname (base_fontname
, motif
)
1992 char *base_fontname
;
1995 const char *sep
= motif
? ";" : ",";
1998 /* Make a fontset name from the base font name. */
1999 if (xic_defaut_fontset
== base_fontname
)
2000 { /* There is no base font name, use the default. */
2001 int len
= strlen (base_fontname
) + 2;
2002 fontsetname
= xmalloc (len
);
2003 bzero (fontsetname
, len
);
2004 strcpy (fontsetname
, base_fontname
);
2008 /* Make a fontset name from the base font name.
2009 The font set will be made of the following elements:
2011 - the base font where the charset spec is replaced by -*-*.
2012 - the same but with the family also replaced with -*-*-. */
2013 char *p
= base_fontname
;
2016 for (i
= 0; *p
; p
++)
2019 { /* As the font name doesn't conform to XLFD, we can't
2020 modify it to generalize it to allcs and allfamilies.
2021 Use the specified font plus the default. */
2022 int len
= strlen (base_fontname
) + strlen (xic_defaut_fontset
) + 3;
2023 fontsetname
= xmalloc (len
);
2024 bzero (fontsetname
, len
);
2025 strcpy (fontsetname
, base_fontname
);
2026 strcat (fontsetname
, sep
);
2027 strcat (fontsetname
, xic_defaut_fontset
);
2032 char *p1
= NULL
, *p2
= NULL
, *p3
= NULL
;
2033 char *font_allcs
= NULL
;
2034 char *font_allfamilies
= NULL
;
2035 char *font_all
= NULL
;
2036 char *allcs
= "*-*-*-*-*-*-*";
2037 char *allfamilies
= "-*-*-";
2038 char *all
= "*-*-*-*-";
2041 for (i
= 0, p
= base_fontname
; i
< 8; p
++)
2054 /* If base_fontname specifies ADSTYLE, make it a
2058 int diff
= (p2
- p3
) - 2;
2060 base
= alloca (strlen (base_fontname
) + 1);
2061 bcopy (base_fontname
, base
, p3
- base_fontname
);
2062 base
[p3
- base_fontname
] = '*';
2063 base
[(p3
- base_fontname
) + 1] = '-';
2064 strcpy (base
+ (p3
- base_fontname
) + 2, p2
);
2065 p
= base
+ (p
- base_fontname
) - diff
;
2066 p1
= base
+ (p1
- base_fontname
);
2067 p2
= base
+ (p2
- base_fontname
) - diff
;
2068 base_fontname
= base
;
2071 /* Build the font spec that matches all charsets. */
2072 len
= p
- base_fontname
+ strlen (allcs
) + 1;
2073 font_allcs
= (char *) alloca (len
);
2074 bzero (font_allcs
, len
);
2075 bcopy (base_fontname
, font_allcs
, p
- base_fontname
);
2076 strcat (font_allcs
, allcs
);
2078 /* Build the font spec that matches all families and
2080 len
= p
- p1
+ strlen (allcs
) + strlen (allfamilies
) + 1;
2081 font_allfamilies
= (char *) alloca (len
);
2082 bzero (font_allfamilies
, len
);
2083 strcpy (font_allfamilies
, allfamilies
);
2084 bcopy (p1
, font_allfamilies
+ strlen (allfamilies
), p
- p1
);
2085 strcat (font_allfamilies
, allcs
);
2087 /* Build the font spec that matches all. */
2088 len
= p
- p2
+ strlen (allcs
) + strlen (all
) + strlen (allfamilies
) + 1;
2089 font_all
= (char *) alloca (len
);
2090 bzero (font_all
, len
);
2091 strcpy (font_all
, allfamilies
);
2092 strcat (font_all
, all
);
2093 bcopy (p2
, font_all
+ strlen (all
) + strlen (allfamilies
), p
- p2
);
2094 strcat (font_all
, allcs
);
2096 /* Build the actual font set name. */
2097 len
= strlen (base_fontname
) + strlen (font_allcs
)
2098 + strlen (font_allfamilies
) + strlen (font_all
) + 5;
2099 fontsetname
= xmalloc (len
);
2100 bzero (fontsetname
, len
);
2101 strcpy (fontsetname
, base_fontname
);
2102 strcat (fontsetname
, sep
);
2103 strcat (fontsetname
, font_allcs
);
2104 strcat (fontsetname
, sep
);
2105 strcat (fontsetname
, font_allfamilies
);
2106 strcat (fontsetname
, sep
);
2107 strcat (fontsetname
, font_all
);
2111 strcat (fontsetname
, ":");
2116 xic_create_xfontset (f
, base_fontname
)
2118 char *base_fontname
;
2120 XFontSet xfs
= NULL
;
2121 char **missing_list
= NULL
;
2124 Lisp_Object rest
, frame
;
2127 base_fontname
= xic_defaut_fontset
;
2129 /* See if there is another frame already using same fontset. */
2130 FOR_EACH_FRAME (rest
, frame
)
2132 struct frame
*cf
= XFRAME (frame
);
2133 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2134 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2135 && FRAME_XIC_BASE_FONTNAME (cf
)
2136 && !strcmp (FRAME_XIC_BASE_FONTNAME (cf
), base_fontname
))
2138 xfs
= FRAME_XIC_FONTSET (cf
);
2145 char *fontsetname
= xic_create_fontsetname (base_fontname
, False
);
2148 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
),
2149 fontsetname
, &missing_list
,
2150 &missing_count
, &def_string
);
2152 XFreeStringList (missing_list
);
2155 /* FONTSETNAME contains a list of font names (specific fonts
2156 first, general fonts last), but giving that to
2157 XCreateFontSet at once occasionally fails (bug of X?).
2158 So, we try to call XCreateFontSet for each fontname. */
2159 char *p0
= fontsetname
, *p1
;
2163 p1
= strchr (p0
, ',');
2166 xfs
= XCreateFontSet (FRAME_X_DISPLAY (f
),
2168 &missing_count
, &def_string
);
2170 XFreeStringList (missing_list
);
2173 p0
= p1
? p1
+ 1 : NULL
;
2176 xfree (fontsetname
);
2179 if (FRAME_XIC_BASE_FONTNAME (f
))
2180 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2181 FRAME_XIC_BASE_FONTNAME (f
) = xstrdup (base_fontname
);
2183 /* No need to free def_string. */
2187 /* Free the X fontset of frame F if it is the last frame using it. */
2190 xic_free_xfontset (f
)
2193 Lisp_Object rest
, frame
;
2196 if (!FRAME_XIC_FONTSET (f
))
2199 /* See if there is another frame sharing the same fontset. */
2200 FOR_EACH_FRAME (rest
, frame
)
2202 struct frame
*cf
= XFRAME (frame
);
2203 if (cf
!= f
&& FRAME_LIVE_P (f
) && FRAME_X_P (cf
)
2204 && FRAME_X_DISPLAY_INFO (cf
) == FRAME_X_DISPLAY_INFO (f
)
2205 && FRAME_XIC_FONTSET (cf
) == FRAME_XIC_FONTSET (f
))
2213 /* The fontset is not used anymore. It is safe to free it. */
2214 XFreeFontSet (FRAME_X_DISPLAY (f
), FRAME_XIC_FONTSET (f
));
2216 if (FRAME_XIC_BASE_FONTNAME (f
))
2217 xfree (FRAME_XIC_BASE_FONTNAME (f
));
2218 FRAME_XIC_BASE_FONTNAME (f
) = NULL
;
2219 FRAME_XIC_FONTSET (f
) = NULL
;
2223 /* Value is the best input style, given user preferences USER (already
2224 checked to be supported by Emacs), and styles supported by the
2225 input method XIM. */
2228 best_xim_style (user
, xim
)
2234 for (i
= 0; i
< user
->count_styles
; ++i
)
2235 for (j
= 0; j
< xim
->count_styles
; ++j
)
2236 if (user
->supported_styles
[i
] == xim
->supported_styles
[j
])
2237 return user
->supported_styles
[i
];
2239 /* Return the default style. */
2240 return XIMPreeditNothing
| XIMStatusNothing
;
2243 /* Create XIC for frame F. */
2245 static XIMStyle xic_style
;
2248 create_frame_xic (f
)
2253 XFontSet xfs
= NULL
;
2258 /* Create X fontset. */
2259 xfs
= xic_create_xfontset
2260 (f
, (FRAME_FONTSET (f
) < 0) ? NULL
2261 : (char *) SDATA (fontset_ascii (FRAME_FONTSET (f
))));
2263 xim
= FRAME_X_XIM (f
);
2268 XVaNestedList preedit_attr
;
2269 XVaNestedList status_attr
;
2271 s_area
.x
= 0; s_area
.y
= 0; s_area
.width
= 1; s_area
.height
= 1;
2272 spot
.x
= 0; spot
.y
= 1;
2274 /* Determine XIC style. */
2277 XIMStyles supported_list
;
2278 supported_list
.count_styles
= (sizeof supported_xim_styles
2279 / sizeof supported_xim_styles
[0]);
2280 supported_list
.supported_styles
= supported_xim_styles
;
2281 xic_style
= best_xim_style (&supported_list
,
2282 FRAME_X_XIM_STYLES (f
));
2285 preedit_attr
= XVaCreateNestedList (0,
2288 FRAME_FOREGROUND_PIXEL (f
),
2290 FRAME_BACKGROUND_PIXEL (f
),
2291 (xic_style
& XIMPreeditPosition
2296 status_attr
= XVaCreateNestedList (0,
2302 FRAME_FOREGROUND_PIXEL (f
),
2304 FRAME_BACKGROUND_PIXEL (f
),
2307 xic
= XCreateIC (xim
,
2308 XNInputStyle
, xic_style
,
2309 XNClientWindow
, FRAME_X_WINDOW (f
),
2310 XNFocusWindow
, FRAME_X_WINDOW (f
),
2311 XNStatusAttributes
, status_attr
,
2312 XNPreeditAttributes
, preedit_attr
,
2314 XFree (preedit_attr
);
2315 XFree (status_attr
);
2318 FRAME_XIC (f
) = xic
;
2319 FRAME_XIC_STYLE (f
) = xic_style
;
2320 FRAME_XIC_FONTSET (f
) = xfs
;
2324 /* Destroy XIC and free XIC fontset of frame F, if any. */
2330 if (FRAME_XIC (f
) == NULL
)
2333 XDestroyIC (FRAME_XIC (f
));
2334 xic_free_xfontset (f
);
2336 FRAME_XIC (f
) = NULL
;
2340 /* Place preedit area for XIC of window W's frame to specified
2341 pixel position X/Y. X and Y are relative to window W. */
2344 xic_set_preeditarea (w
, x
, y
)
2348 struct frame
*f
= XFRAME (w
->frame
);
2352 spot
.x
= WINDOW_TO_FRAME_PIXEL_X (w
, x
) + WINDOW_LEFT_FRINGE_WIDTH (w
);
2353 spot
.y
= WINDOW_TO_FRAME_PIXEL_Y (w
, y
) + FONT_BASE (FRAME_FONT (f
));
2354 attr
= XVaCreateNestedList (0, XNSpotLocation
, &spot
, NULL
);
2355 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2360 /* Place status area for XIC in bottom right corner of frame F.. */
2363 xic_set_statusarea (f
)
2366 XIC xic
= FRAME_XIC (f
);
2371 /* Negotiate geometry of status area. If input method has existing
2372 status area, use its current size. */
2373 area
.x
= area
.y
= area
.width
= area
.height
= 0;
2374 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &area
, NULL
);
2375 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2378 attr
= XVaCreateNestedList (0, XNAreaNeeded
, &needed
, NULL
);
2379 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2382 if (needed
->width
== 0) /* Use XNArea instead of XNAreaNeeded */
2384 attr
= XVaCreateNestedList (0, XNArea
, &needed
, NULL
);
2385 XGetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2389 area
.width
= needed
->width
;
2390 area
.height
= needed
->height
;
2391 area
.x
= FRAME_PIXEL_WIDTH (f
) - area
.width
- FRAME_INTERNAL_BORDER_WIDTH (f
);
2392 area
.y
= (FRAME_PIXEL_HEIGHT (f
) - area
.height
2393 - FRAME_MENUBAR_HEIGHT (f
)
2394 - FRAME_TOOLBAR_HEIGHT (f
)
2395 - FRAME_INTERNAL_BORDER_WIDTH (f
));
2398 attr
= XVaCreateNestedList (0, XNArea
, &area
, NULL
);
2399 XSetICValues (xic
, XNStatusAttributes
, attr
, NULL
);
2404 /* Set X fontset for XIC of frame F, using base font name
2405 BASE_FONTNAME. Called when a new Emacs fontset is chosen. */
2408 xic_set_xfontset (f
, base_fontname
)
2410 char *base_fontname
;
2415 xic_free_xfontset (f
);
2417 xfs
= xic_create_xfontset (f
, base_fontname
);
2419 attr
= XVaCreateNestedList (0, XNFontSet
, xfs
, NULL
);
2420 if (FRAME_XIC_STYLE (f
) & XIMPreeditPosition
)
2421 XSetICValues (FRAME_XIC (f
), XNPreeditAttributes
, attr
, NULL
);
2422 if (FRAME_XIC_STYLE (f
) & XIMStatusArea
)
2423 XSetICValues (FRAME_XIC (f
), XNStatusAttributes
, attr
, NULL
);
2426 FRAME_XIC_FONTSET (f
) = xfs
;
2429 #endif /* HAVE_X_I18N */
2433 #ifdef USE_X_TOOLKIT
2435 /* Create and set up the X widget for frame F. */
2438 x_window (f
, window_prompting
, minibuffer_only
)
2440 long window_prompting
;
2441 int minibuffer_only
;
2443 XClassHint class_hints
;
2444 XSetWindowAttributes attributes
;
2445 unsigned long attribute_mask
;
2446 Widget shell_widget
;
2448 Widget frame_widget
;
2454 /* Use the resource name as the top-level widget name
2455 for looking up resources. Make a non-Lisp copy
2456 for the window manager, so GC relocation won't bother it.
2458 Elsewhere we specify the window name for the window manager. */
2461 char *str
= (char *) SDATA (Vx_resource_name
);
2462 f
->namebuf
= (char *) xmalloc (strlen (str
) + 1);
2463 strcpy (f
->namebuf
, str
);
2467 XtSetArg (al
[ac
], XtNallowShellResize
, 1); ac
++;
2468 XtSetArg (al
[ac
], XtNinput
, 1); ac
++;
2469 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2470 XtSetArg (al
[ac
], XtNborderWidth
, f
->border_width
); ac
++;
2471 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2472 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2473 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2474 shell_widget
= XtAppCreateShell (f
->namebuf
, EMACS_CLASS
,
2475 applicationShellWidgetClass
,
2476 FRAME_X_DISPLAY (f
), al
, ac
);
2478 f
->output_data
.x
->widget
= shell_widget
;
2479 /* maybe_set_screen_title_format (shell_widget); */
2481 pane_widget
= lw_create_widget ("main", "pane", widget_id_tick
++,
2482 (widget_value
*) NULL
,
2483 shell_widget
, False
,
2487 (lw_callback
) NULL
);
2490 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2491 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2492 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2493 XtSetValues (pane_widget
, al
, ac
);
2494 f
->output_data
.x
->column_widget
= pane_widget
;
2496 /* mappedWhenManaged to false tells to the paned window to not map/unmap
2497 the emacs screen when changing menubar. This reduces flickering. */
2500 XtSetArg (al
[ac
], XtNmappedWhenManaged
, 0); ac
++;
2501 XtSetArg (al
[ac
], XtNshowGrip
, 0); ac
++;
2502 XtSetArg (al
[ac
], XtNallowResize
, 1); ac
++;
2503 XtSetArg (al
[ac
], XtNresizeToPreferred
, 1); ac
++;
2504 XtSetArg (al
[ac
], XtNemacsFrame
, f
); ac
++;
2505 XtSetArg (al
[ac
], XtNvisual
, FRAME_X_VISUAL (f
)); ac
++;
2506 XtSetArg (al
[ac
], XtNdepth
, FRAME_X_DISPLAY_INFO (f
)->n_planes
); ac
++;
2507 XtSetArg (al
[ac
], XtNcolormap
, FRAME_X_COLORMAP (f
)); ac
++;
2508 frame_widget
= XtCreateWidget (f
->namebuf
, emacsFrameClass
, pane_widget
,
2511 f
->output_data
.x
->edit_widget
= frame_widget
;
2513 XtManageChild (frame_widget
);
2515 /* Do some needed geometry management. */
2518 char *tem
, shell_position
[32];
2521 int extra_borders
= 0;
2523 = (f
->output_data
.x
->menubar_widget
2524 ? (f
->output_data
.x
->menubar_widget
->core
.height
2525 + f
->output_data
.x
->menubar_widget
->core
.border_width
)
2528 #if 0 /* Experimentally, we now get the right results
2529 for -geometry -0-0 without this. 24 Aug 96, rms. */
2530 if (FRAME_EXTERNAL_MENU_BAR (f
))
2533 XtVaGetValues (pane_widget
, XtNinternalBorderWidth
, &ibw
, NULL
);
2534 menubar_size
+= ibw
;
2538 f
->output_data
.x
->menubar_height
= menubar_size
;
2541 /* Motif seems to need this amount added to the sizes
2542 specified for the shell widget. The Athena/Lucid widgets don't.
2543 Both conclusions reached experimentally. -- rms. */
2544 XtVaGetValues (f
->output_data
.x
->edit_widget
, XtNinternalBorderWidth
,
2545 &extra_borders
, NULL
);
2549 /* Convert our geometry parameters into a geometry string
2551 Note that we do not specify here whether the position
2552 is a user-specified or program-specified one.
2553 We pass that information later, in x_wm_set_size_hints. */
2555 int left
= f
->left_pos
;
2556 int xneg
= window_prompting
& XNegative
;
2557 int top
= f
->top_pos
;
2558 int yneg
= window_prompting
& YNegative
;
2564 if (window_prompting
& USPosition
)
2565 sprintf (shell_position
, "=%dx%d%c%d%c%d",
2566 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2567 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
,
2568 (xneg
? '-' : '+'), left
,
2569 (yneg
? '-' : '+'), top
);
2572 sprintf (shell_position
, "=%dx%d",
2573 FRAME_PIXEL_WIDTH (f
) + extra_borders
,
2574 FRAME_PIXEL_HEIGHT (f
) + menubar_size
+ extra_borders
);
2576 /* Setting x and y when the position is not specified in
2577 the geometry string will set program position in the WM hints.
2578 If Emacs had just one program position, we could set it in
2579 fallback resources, but since each make-frame call can specify
2580 different program positions, this is easier. */
2581 XtSetArg (al
[ac
], XtNx
, left
); ac
++;
2582 XtSetArg (al
[ac
], XtNy
, top
); ac
++;
2586 len
= strlen (shell_position
) + 1;
2587 /* We don't free this because we don't know whether
2588 it is safe to free it while the frame exists.
2589 It isn't worth the trouble of arranging to free it
2590 when the frame is deleted. */
2591 tem
= (char *) xmalloc (len
);
2592 strncpy (tem
, shell_position
, len
);
2593 XtSetArg (al
[ac
], XtNgeometry
, tem
); ac
++;
2594 XtSetValues (shell_widget
, al
, ac
);
2597 XtManageChild (pane_widget
);
2598 XtRealizeWidget (shell_widget
);
2600 FRAME_X_WINDOW (f
) = XtWindow (frame_widget
);
2602 validate_x_resource_name ();
2604 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2605 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2606 XSetClassHint (FRAME_X_DISPLAY (f
), XtWindow (shell_widget
), &class_hints
);
2609 FRAME_XIC (f
) = NULL
;
2611 create_frame_xic (f
);
2614 f
->output_data
.x
->wm_hints
.input
= True
;
2615 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2616 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2617 &f
->output_data
.x
->wm_hints
);
2619 hack_wm_protocols (f
, shell_widget
);
2622 XtAddEventHandler (shell_widget
, 0, True
, _XEditResCheckMessages
, 0);
2625 /* Do a stupid property change to force the server to generate a
2626 PropertyNotify event so that the event_stream server timestamp will
2627 be initialized to something relevant to the time we created the window.
2629 XChangeProperty (XtDisplay (frame_widget
), XtWindow (frame_widget
),
2630 FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_protocols
,
2631 XA_ATOM
, 32, PropModeAppend
,
2632 (unsigned char*) NULL
, 0);
2634 /* Make all the standard events reach the Emacs frame. */
2635 attributes
.event_mask
= STANDARD_EVENT_SET
;
2640 /* XIM server might require some X events. */
2641 unsigned long fevent
= NoEventMask
;
2642 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2643 attributes
.event_mask
|= fevent
;
2645 #endif /* HAVE_X_I18N */
2647 attribute_mask
= CWEventMask
;
2648 XChangeWindowAttributes (XtDisplay (shell_widget
), XtWindow (shell_widget
),
2649 attribute_mask
, &attributes
);
2651 XtMapWidget (frame_widget
);
2653 /* x_set_name normally ignores requests to set the name if the
2654 requested name is the same as the current name. This is the one
2655 place where that assumption isn't correct; f->name is set, but
2656 the X server hasn't been told. */
2659 int explicit = f
->explicit_name
;
2661 f
->explicit_name
= 0;
2664 x_set_name (f
, name
, explicit);
2667 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2668 f
->output_data
.x
->text_cursor
);
2672 /* This is a no-op, except under Motif. Make sure main areas are
2673 set to something reasonable, in case we get an error later. */
2674 lw_set_main_areas (pane_widget
, 0, frame_widget
);
2677 #else /* not USE_X_TOOLKIT */
2683 if (! xg_create_frame_widgets (f
))
2684 error ("Unable to create window");
2687 FRAME_XIC (f
) = NULL
;
2691 create_frame_xic (f
);
2694 /* XIM server might require some X events. */
2695 unsigned long fevent
= NoEventMask
;
2696 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2698 if (fevent
!= NoEventMask
)
2700 XSetWindowAttributes attributes
;
2701 XWindowAttributes wattr
;
2702 unsigned long attribute_mask
;
2704 XGetWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2706 attributes
.event_mask
= wattr
.your_event_mask
| fevent
;
2707 attribute_mask
= CWEventMask
;
2708 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2709 attribute_mask
, &attributes
);
2717 #else /*! USE_GTK */
2718 /* Create and set up the X window for frame F. */
2725 XClassHint class_hints
;
2726 XSetWindowAttributes attributes
;
2727 unsigned long attribute_mask
;
2729 attributes
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
2730 attributes
.border_pixel
= f
->output_data
.x
->border_pixel
;
2731 attributes
.bit_gravity
= StaticGravity
;
2732 attributes
.backing_store
= NotUseful
;
2733 attributes
.save_under
= True
;
2734 attributes
.event_mask
= STANDARD_EVENT_SET
;
2735 attributes
.colormap
= FRAME_X_COLORMAP (f
);
2736 attribute_mask
= (CWBackPixel
| CWBorderPixel
| CWBitGravity
| CWEventMask
2741 = XCreateWindow (FRAME_X_DISPLAY (f
),
2742 f
->output_data
.x
->parent_desc
,
2745 FRAME_PIXEL_WIDTH (f
), FRAME_PIXEL_HEIGHT (f
),
2747 CopyFromParent
, /* depth */
2748 InputOutput
, /* class */
2750 attribute_mask
, &attributes
);
2755 create_frame_xic (f
);
2758 /* XIM server might require some X events. */
2759 unsigned long fevent
= NoEventMask
;
2760 XGetICValues (FRAME_XIC (f
), XNFilterEvents
, &fevent
, NULL
);
2761 attributes
.event_mask
|= fevent
;
2762 attribute_mask
= CWEventMask
;
2763 XChangeWindowAttributes (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2764 attribute_mask
, &attributes
);
2767 #endif /* HAVE_X_I18N */
2769 validate_x_resource_name ();
2771 class_hints
.res_name
= (char *) SDATA (Vx_resource_name
);
2772 class_hints
.res_class
= (char *) SDATA (Vx_resource_class
);
2773 XSetClassHint (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), &class_hints
);
2775 /* The menubar is part of the ordinary display;
2776 it does not count in addition to the height of the window. */
2777 f
->output_data
.x
->menubar_height
= 0;
2779 /* This indicates that we use the "Passive Input" input model.
2780 Unless we do this, we don't get the Focus{In,Out} events that we
2781 need to draw the cursor correctly. Accursed bureaucrats.
2782 XWhipsAndChains (FRAME_X_DISPLAY (f), IronMaiden, &TheRack); */
2784 f
->output_data
.x
->wm_hints
.input
= True
;
2785 f
->output_data
.x
->wm_hints
.flags
|= InputHint
;
2786 XSetWMHints (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2787 &f
->output_data
.x
->wm_hints
);
2788 f
->output_data
.x
->wm_hints
.icon_pixmap
= None
;
2790 /* Request "save yourself" and "delete window" commands from wm. */
2793 protocols
[0] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_delete_window
;
2794 protocols
[1] = FRAME_X_DISPLAY_INFO (f
)->Xatom_wm_save_yourself
;
2795 XSetWMProtocols (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), protocols
, 2);
2798 /* x_set_name normally ignores requests to set the name if the
2799 requested name is the same as the current name. This is the one
2800 place where that assumption isn't correct; f->name is set, but
2801 the X server hasn't been told. */
2804 int explicit = f
->explicit_name
;
2806 f
->explicit_name
= 0;
2809 x_set_name (f
, name
, explicit);
2812 XDefineCursor (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2813 f
->output_data
.x
->text_cursor
);
2817 if (FRAME_X_WINDOW (f
) == 0)
2818 error ("Unable to create window");
2821 #endif /* not USE_GTK */
2822 #endif /* not USE_X_TOOLKIT */
2824 /* Verify that the icon position args for this window are valid. */
2827 x_icon_verify (f
, parms
)
2831 Lisp_Object icon_x
, icon_y
;
2833 /* Set the position of the icon. Note that twm groups all
2834 icons in an icon window. */
2835 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2836 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2837 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2839 CHECK_NUMBER (icon_x
);
2840 CHECK_NUMBER (icon_y
);
2842 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2843 error ("Both left and top icon corners of icon must be specified");
2846 /* Handle the icon stuff for this window. Perhaps later we might
2847 want an x_set_icon_position which can be called interactively as
2855 Lisp_Object icon_x
, icon_y
;
2856 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
2858 /* Set the position of the icon. Note that twm groups all
2859 icons in an icon window. */
2860 icon_x
= x_frame_get_and_record_arg (f
, parms
, Qicon_left
, 0, 0, RES_TYPE_NUMBER
);
2861 icon_y
= x_frame_get_and_record_arg (f
, parms
, Qicon_top
, 0, 0, RES_TYPE_NUMBER
);
2862 if (!EQ (icon_x
, Qunbound
) && !EQ (icon_y
, Qunbound
))
2864 CHECK_NUMBER (icon_x
);
2865 CHECK_NUMBER (icon_y
);
2867 else if (!EQ (icon_x
, Qunbound
) || !EQ (icon_y
, Qunbound
))
2868 error ("Both left and top icon corners of icon must be specified");
2872 if (! EQ (icon_x
, Qunbound
))
2873 x_wm_set_icon_position (f
, XINT (icon_x
), XINT (icon_y
));
2875 #if 0 /* x_get_arg removes the visibility parameter as a side effect,
2876 but x_create_frame still needs it. */
2877 /* Start up iconic or window? */
2878 x_wm_set_window_state
2879 (f
, (EQ (x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0, RES_TYPE_SYMBOL
),
2885 x_text_icon (f
, (char *) SDATA ((!NILP (f
->icon_name
)
2892 /* Make the GCs needed for this window, setting the
2893 background, border and mouse colors; also create the
2894 mouse cursor and the gray border tile. */
2896 static char cursor_bits
[] =
2898 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2899 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2900 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
2901 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
2908 XGCValues gc_values
;
2912 /* Create the GCs of this frame.
2913 Note that many default values are used. */
2916 gc_values
.font
= FRAME_FONT (f
)->fid
;
2917 gc_values
.foreground
= FRAME_FOREGROUND_PIXEL (f
);
2918 gc_values
.background
= FRAME_BACKGROUND_PIXEL (f
);
2919 gc_values
.line_width
= 0; /* Means 1 using fast algorithm. */
2920 f
->output_data
.x
->normal_gc
2921 = XCreateGC (FRAME_X_DISPLAY (f
),
2923 GCLineWidth
| GCFont
| GCForeground
| GCBackground
,
2926 /* Reverse video style. */
2927 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2928 gc_values
.background
= FRAME_FOREGROUND_PIXEL (f
);
2929 f
->output_data
.x
->reverse_gc
2930 = XCreateGC (FRAME_X_DISPLAY (f
),
2932 GCFont
| GCForeground
| GCBackground
| GCLineWidth
,
2935 /* Cursor has cursor-color background, background-color foreground. */
2936 gc_values
.foreground
= FRAME_BACKGROUND_PIXEL (f
);
2937 gc_values
.background
= f
->output_data
.x
->cursor_pixel
;
2938 gc_values
.fill_style
= FillOpaqueStippled
;
2940 = XCreateBitmapFromData (FRAME_X_DISPLAY (f
),
2941 FRAME_X_DISPLAY_INFO (f
)->root_window
,
2942 cursor_bits
, 16, 16);
2943 f
->output_data
.x
->cursor_gc
2944 = XCreateGC (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
2945 (GCFont
| GCForeground
| GCBackground
2946 | GCFillStyle
/* | GCStipple */ | GCLineWidth
),
2950 f
->output_data
.x
->white_relief
.gc
= 0;
2951 f
->output_data
.x
->black_relief
.gc
= 0;
2953 /* Create the gray border tile used when the pointer is not in
2954 the frame. Since this depends on the frame's pixel values,
2955 this must be done on a per-frame basis. */
2956 f
->output_data
.x
->border_tile
2957 = (XCreatePixmapFromBitmapData
2958 (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
2959 gray_bits
, gray_width
, gray_height
,
2960 FRAME_FOREGROUND_PIXEL (f
),
2961 FRAME_BACKGROUND_PIXEL (f
),
2962 DefaultDepth (FRAME_X_DISPLAY (f
), FRAME_X_SCREEN_NUMBER (f
))));
2968 /* Free what was was allocated in x_make_gc. */
2974 Display
*dpy
= FRAME_X_DISPLAY (f
);
2978 if (f
->output_data
.x
->normal_gc
)
2980 XFreeGC (dpy
, f
->output_data
.x
->normal_gc
);
2981 f
->output_data
.x
->normal_gc
= 0;
2984 if (f
->output_data
.x
->reverse_gc
)
2986 XFreeGC (dpy
, f
->output_data
.x
->reverse_gc
);
2987 f
->output_data
.x
->reverse_gc
= 0;
2990 if (f
->output_data
.x
->cursor_gc
)
2992 XFreeGC (dpy
, f
->output_data
.x
->cursor_gc
);
2993 f
->output_data
.x
->cursor_gc
= 0;
2996 if (f
->output_data
.x
->border_tile
)
2998 XFreePixmap (dpy
, f
->output_data
.x
->border_tile
);
2999 f
->output_data
.x
->border_tile
= 0;
3006 /* Handler for signals raised during x_create_frame and
3007 x_create_top_frame. FRAME is the frame which is partially
3011 unwind_create_frame (frame
)
3014 struct frame
*f
= XFRAME (frame
);
3016 /* If frame is already dead, nothing to do. This can happen if the
3017 display is disconnected after the frame has become official, but
3018 before x_create_frame removes the unwind protect. */
3019 if (!FRAME_LIVE_P (f
))
3022 /* If frame is ``official'', nothing to do. */
3023 if (!CONSP (Vframe_list
) || !EQ (XCAR (Vframe_list
), frame
))
3026 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
3029 x_free_frame_resources (f
);
3032 /* Check that reference counts are indeed correct. */
3033 xassert (dpyinfo
->reference_count
== dpyinfo_refcount
);
3034 xassert (dpyinfo
->image_cache
->refcount
== image_cache_refcount
);
3043 DEFUN ("x-create-frame", Fx_create_frame
, Sx_create_frame
,
3045 doc
: /* Make a new X window, which is called a "frame" in Emacs terms.
3046 Returns an Emacs frame object.
3047 ALIST is an alist of frame parameters.
3048 If the parameters specify that the frame should not have a minibuffer,
3049 and do not specify a specific minibuffer window to use,
3050 then `default-minibuffer-frame' must be a frame whose minibuffer can
3051 be shared by the new frame.
3053 This function is an internal primitive--use `make-frame' instead. */)
3058 Lisp_Object frame
, tem
;
3060 int minibuffer_only
= 0;
3061 long window_prompting
= 0;
3063 int count
= SPECPDL_INDEX ();
3064 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
3065 Lisp_Object display
;
3066 struct x_display_info
*dpyinfo
= NULL
;
3070 parms
= Fcopy_alist (parms
);
3072 /* Use this general default value to start with
3073 until we know if this frame has a specified name. */
3074 Vx_resource_name
= Vinvocation_name
;
3076 display
= x_get_arg (dpyinfo
, parms
, Qterminal
, 0, 0, RES_TYPE_NUMBER
);
3077 if (EQ (display
, Qunbound
))
3078 display
= x_get_arg (dpyinfo
, parms
, Qdisplay
, 0, 0, RES_TYPE_STRING
);
3079 if (EQ (display
, Qunbound
))
3081 dpyinfo
= check_x_display_info (display
);
3083 kb
= dpyinfo
->terminal
->kboard
;
3085 kb
= &the_only_kboard
;
3088 if (dpyinfo
->terminal
->deleted
)
3089 error ("Terminal is being deleted, can't create new frames on it");
3091 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
3093 && ! EQ (name
, Qunbound
)
3095 error ("Invalid frame name--not a string or nil");
3098 Vx_resource_name
= name
;
3100 /* See if parent window is specified. */
3101 parent
= x_get_arg (dpyinfo
, parms
, Qparent_id
, NULL
, NULL
, RES_TYPE_NUMBER
);
3102 if (EQ (parent
, Qunbound
))
3104 if (! NILP (parent
))
3105 CHECK_NUMBER (parent
);
3107 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
3108 /* No need to protect DISPLAY because that's not used after passing
3109 it to make_frame_without_minibuffer. */
3111 GCPRO4 (parms
, parent
, name
, frame
);
3112 tem
= x_get_arg (dpyinfo
, parms
, Qminibuffer
, "minibuffer", "Minibuffer",
3114 if (EQ (tem
, Qnone
) || NILP (tem
))
3115 f
= make_frame_without_minibuffer (Qnil
, kb
, display
);
3116 else if (EQ (tem
, Qonly
))
3118 f
= make_minibuffer_frame ();
3119 minibuffer_only
= 1;
3121 else if (WINDOWP (tem
))
3122 f
= make_frame_without_minibuffer (tem
, kb
, display
);
3126 XSETFRAME (frame
, f
);
3128 /* Note that X Windows does support scroll bars. */
3129 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 1;
3131 f
->terminal
= dpyinfo
->terminal
;
3132 f
->terminal
->reference_count
++;
3134 f
->output_method
= output_x_window
;
3135 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
3136 bzero (f
->output_data
.x
, sizeof (struct x_output
));
3137 f
->output_data
.x
->icon_bitmap
= -1;
3138 FRAME_FONTSET (f
) = -1;
3139 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
3140 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
3141 #ifdef USE_TOOLKIT_SCROLL_BARS
3142 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
3143 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
3144 #endif /* USE_TOOLKIT_SCROLL_BARS */
3147 = x_get_arg (dpyinfo
, parms
, Qicon_name
, "iconName", "Title",
3149 if (! STRINGP (f
->icon_name
))
3150 f
->icon_name
= Qnil
;
3152 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
3154 /* With FRAME_X_DISPLAY_INFO set up, this unwind-protect is safe. */
3155 record_unwind_protect (unwind_create_frame
, frame
);
3157 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
3158 dpyinfo_refcount
= dpyinfo
->reference_count
;
3159 #endif /* GLYPH_DEBUG */
3161 /* These colors will be set anyway later, but it's important
3162 to get the color reference counts right, so initialize them! */
3165 struct gcpro gcpro1
;
3167 /* Function x_decode_color can signal an error. Make
3168 sure to initialize color slots so that we won't try
3169 to free colors we haven't allocated. */
3170 FRAME_FOREGROUND_PIXEL (f
) = -1;
3171 FRAME_BACKGROUND_PIXEL (f
) = -1;
3172 f
->output_data
.x
->cursor_pixel
= -1;
3173 f
->output_data
.x
->cursor_foreground_pixel
= -1;
3174 f
->output_data
.x
->border_pixel
= -1;
3175 f
->output_data
.x
->mouse_pixel
= -1;
3177 black
= build_string ("black");
3179 FRAME_FOREGROUND_PIXEL (f
)
3180 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3181 FRAME_BACKGROUND_PIXEL (f
)
3182 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3183 f
->output_data
.x
->cursor_pixel
3184 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3185 f
->output_data
.x
->cursor_foreground_pixel
3186 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3187 f
->output_data
.x
->border_pixel
3188 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3189 f
->output_data
.x
->mouse_pixel
3190 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
3194 /* Specify the parent under which to make this X window. */
3198 f
->output_data
.x
->parent_desc
= (Window
) XFASTINT (parent
);
3199 f
->output_data
.x
->explicit_parent
= 1;
3203 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3204 f
->output_data
.x
->explicit_parent
= 0;
3207 /* Set the name; the functions to which we pass f expect the name to
3209 if (EQ (name
, Qunbound
) || NILP (name
))
3211 f
->name
= build_string (dpyinfo
->x_id_name
);
3212 f
->explicit_name
= 0;
3217 f
->explicit_name
= 1;
3218 /* use the frame's title when getting resources for this frame. */
3219 specbind (Qx_resource_name
, name
);
3222 /* Extract the window parameters from the supplied values
3223 that are needed to determine window geometry. */
3227 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
3230 /* First, try whatever font the caller has specified. */
3233 tem
= Fquery_fontset (font
, Qnil
);
3235 font
= x_new_fontset (f
, SDATA (tem
));
3237 font
= x_new_font (f
, SDATA (font
));
3240 /* Try out a font which we hope has bold and italic variations. */
3241 if (!STRINGP (font
))
3242 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
3243 if (!STRINGP (font
))
3244 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3245 if (! STRINGP (font
))
3246 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
3247 if (! STRINGP (font
))
3248 /* This was formerly the first thing tried, but it finds too many fonts
3249 and takes too long. */
3250 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
3251 /* If those didn't work, look for something which will at least work. */
3252 if (! STRINGP (font
))
3253 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
3255 if (! STRINGP (font
))
3256 font
= build_string ("fixed");
3258 x_set_frame_parameters (f
, Fcons (Fcons (Qfont
, font
), Qnil
));
3262 /* Prevent lwlib/xlwmenu.c from crashing because of a bug
3263 whereby it fails to get any font. */
3264 xlwmenu_default_font
= FRAME_FONT (f
);
3267 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
3268 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
3270 /* This defaults to 1 in order to match xterm. We recognize either
3271 internalBorderWidth or internalBorder (which is what xterm calls
3273 if (NILP (Fassq (Qinternal_border_width
, parms
)))
3277 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
3278 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
3279 if (! EQ (value
, Qunbound
))
3280 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
3283 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
3284 "internalBorderWidth", "internalBorderWidth",
3286 x_default_parameter (f
, parms
, Qvertical_scroll_bars
, Qleft
,
3287 "verticalScrollBars", "ScrollBars",
3290 /* Also do the stuff which must be set before the window exists. */
3291 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
3292 "foreground", "Foreground", RES_TYPE_STRING
);
3293 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
3294 "background", "Background", RES_TYPE_STRING
);
3295 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
3296 "pointerColor", "Foreground", RES_TYPE_STRING
);
3297 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
3298 "cursorColor", "Foreground", RES_TYPE_STRING
);
3299 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
3300 "borderColor", "BorderColor", RES_TYPE_STRING
);
3301 x_default_parameter (f
, parms
, Qscreen_gamma
, Qnil
,
3302 "screenGamma", "ScreenGamma", RES_TYPE_FLOAT
);
3303 x_default_parameter (f
, parms
, Qline_spacing
, Qnil
,
3304 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER
);
3305 x_default_parameter (f
, parms
, Qleft_fringe
, Qnil
,
3306 "leftFringe", "LeftFringe", RES_TYPE_NUMBER
);
3307 x_default_parameter (f
, parms
, Qright_fringe
, Qnil
,
3308 "rightFringe", "RightFringe", RES_TYPE_NUMBER
);
3310 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_foreground
,
3311 "scrollBarForeground",
3312 "ScrollBarForeground", 1);
3313 x_default_scroll_bar_color_parameter (f
, parms
, Qscroll_bar_background
,
3314 "scrollBarBackground",
3315 "ScrollBarBackground", 0);
3317 /* Init faces before x_default_parameter is called for scroll-bar
3318 parameters because that function calls x_set_scroll_bar_width,
3319 which calls change_frame_size, which calls Fset_window_buffer,
3320 which runs hooks, which call Fvertical_motion. At the end, we
3321 end up in init_iterator with a null face cache, which should not
3323 init_frame_faces (f
);
3325 x_default_parameter (f
, parms
, Qmenu_bar_lines
, make_number (1),
3326 "menuBar", "MenuBar", RES_TYPE_NUMBER
);
3327 x_default_parameter (f
, parms
, Qtool_bar_lines
, make_number (1),
3328 "toolBar", "ToolBar", RES_TYPE_NUMBER
);
3329 x_default_parameter (f
, parms
, Qbuffer_predicate
, Qnil
,
3330 "bufferPredicate", "BufferPredicate",
3332 x_default_parameter (f
, parms
, Qtitle
, Qnil
,
3333 "title", "Title", RES_TYPE_STRING
);
3334 x_default_parameter (f
, parms
, Qwait_for_wm
, Qt
,
3335 "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN
);
3336 x_default_parameter (f
, parms
, Qfullscreen
, Qnil
,
3337 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL
);
3339 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
3341 /* Compute the size of the X window. */
3342 window_prompting
= x_figure_window_size (f
, parms
, 1);
3344 tem
= x_get_arg (dpyinfo
, parms
, Qunsplittable
, 0, 0, RES_TYPE_BOOLEAN
);
3345 f
->no_split
= minibuffer_only
|| EQ (tem
, Qt
);
3347 x_icon_verify (f
, parms
);
3349 /* Create the X widget or window. */
3350 #ifdef USE_X_TOOLKIT
3351 x_window (f
, window_prompting
, minibuffer_only
);
3359 /* Now consider the frame official. */
3360 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
3361 Vframe_list
= Fcons (frame
, Vframe_list
);
3363 /* We need to do this after creating the X window, so that the
3364 icon-creation functions can say whose icon they're describing. */
3365 x_default_parameter (f
, parms
, Qicon_type
, Qt
,
3366 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL
);
3368 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
3369 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3370 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
3371 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
3372 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
3373 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
3374 x_default_parameter (f
, parms
, Qscroll_bar_width
, Qnil
,
3375 "scrollBarWidth", "ScrollBarWidth",
3378 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
3379 Change will not be effected unless different from the current
3381 width
= FRAME_COLS (f
);
3382 height
= FRAME_LINES (f
);
3384 SET_FRAME_COLS (f
, 0);
3385 FRAME_LINES (f
) = 0;
3386 change_frame_size (f
, height
, width
, 1, 0, 0);
3388 #if defined (USE_X_TOOLKIT) || defined (USE_GTK)
3389 /* Create the menu bar. */
3390 if (!minibuffer_only
&& FRAME_EXTERNAL_MENU_BAR (f
))
3392 /* If this signals an error, we haven't set size hints for the
3393 frame and we didn't make it visible. */
3394 initialize_frame_menubar (f
);
3397 /* This is a no-op, except under Motif where it arranges the
3398 main window for the widgets on it. */
3399 lw_set_main_areas (f
->output_data
.x
->column_widget
,
3400 f
->output_data
.x
->menubar_widget
,
3401 f
->output_data
.x
->edit_widget
);
3402 #endif /* not USE_GTK */
3404 #endif /* USE_X_TOOLKIT || USE_GTK */
3406 /* Tell the server what size and position, etc, we want, and how
3407 badly we want them. This should be done after we have the menu
3408 bar so that its size can be taken into account. */
3410 x_wm_set_size_hint (f
, window_prompting
, 0);
3413 /* Make the window appear on the frame and enable display, unless
3414 the caller says not to. However, with explicit parent, Emacs
3415 cannot control visibility, so don't try. */
3416 if (! f
->output_data
.x
->explicit_parent
)
3418 Lisp_Object visibility
;
3420 visibility
= x_get_arg (dpyinfo
, parms
, Qvisibility
, 0, 0,
3422 if (EQ (visibility
, Qunbound
))
3425 if (EQ (visibility
, Qicon
))
3426 x_iconify_frame (f
);
3427 else if (! NILP (visibility
))
3428 x_make_frame_visible (f
);
3430 /* Must have been Qnil. */
3434 /* Set the WM leader property. GTK does this itself, so this is not
3435 needed when using GTK. */
3436 if (dpyinfo
->client_leader_window
!= 0)
3439 XChangeProperty (FRAME_X_DISPLAY (f
),
3440 FRAME_OUTER_WINDOW (f
),
3441 dpyinfo
->Xatom_wm_client_leader
,
3442 XA_WINDOW
, 32, PropModeReplace
,
3443 (unsigned char *) &dpyinfo
->client_leader_window
, 1);
3447 /* Initialize `default-minibuffer-frame' in case this is the first
3448 frame on this terminal. */
3449 if (FRAME_HAS_MINIBUF_P (f
)
3450 && (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
3451 || !FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
))))
3452 kb
->Vdefault_minibuffer_frame
= frame
;
3454 /* All remaining specified parameters, which have not been "used"
3455 by x_get_arg and friends, now go in the misc. alist of the frame. */
3456 for (tem
= parms
; !NILP (tem
); tem
= XCDR (tem
))
3457 if (CONSP (XCAR (tem
)) && !NILP (XCAR (XCAR (tem
))))
3458 f
->param_alist
= Fcons (XCAR (tem
), f
->param_alist
);
3460 store_frame_param (f
, Qwindow_system
, Qx
);
3464 /* Make sure windows on this frame appear in calls to next-window
3465 and similar functions. */
3466 Vwindow_list
= Qnil
;
3468 return unbind_to (count
, frame
);
3472 /* FRAME is used only to get a handle on the X display. We don't pass the
3473 display info directly because we're called from frame.c, which doesn't
3474 know about that structure. */
3477 x_get_focus_frame (frame
)
3478 struct frame
*frame
;
3480 struct x_display_info
*dpyinfo
= FRAME_X_DISPLAY_INFO (frame
);
3482 if (! dpyinfo
->x_focus_frame
)
3485 XSETFRAME (xfocus
, dpyinfo
->x_focus_frame
);
3490 /* In certain situations, when the window manager follows a
3491 click-to-focus policy, there seems to be no way around calling
3492 XSetInputFocus to give another frame the input focus .
3494 In an ideal world, XSetInputFocus should generally be avoided so
3495 that applications don't interfere with the window manager's focus
3496 policy. But I think it's okay to use when it's clearly done
3497 following a user-command. */
3499 DEFUN ("x-focus-frame", Fx_focus_frame
, Sx_focus_frame
, 1, 1, 0,
3500 doc
: /* Set the input focus to FRAME.
3501 FRAME nil means use the selected frame. */)
3505 struct frame
*f
= check_x_frame (frame
);
3506 Display
*dpy
= FRAME_X_DISPLAY (f
);
3509 x_catch_errors (dpy
);
3510 XSetInputFocus (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
3511 RevertToParent
, CurrentTime
);
3512 x_uncatch_errors ();
3519 DEFUN ("xw-color-defined-p", Fxw_color_defined_p
, Sxw_color_defined_p
, 1, 2, 0,
3520 doc
: /* Internal function called by `color-defined-p', which see. */)
3522 Lisp_Object color
, frame
;
3525 FRAME_PTR f
= check_x_frame (frame
);
3527 CHECK_STRING (color
);
3529 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3535 DEFUN ("xw-color-values", Fxw_color_values
, Sxw_color_values
, 1, 2, 0,
3536 doc
: /* Internal function called by `color-values', which see. */)
3538 Lisp_Object color
, frame
;
3541 FRAME_PTR f
= check_x_frame (frame
);
3543 CHECK_STRING (color
);
3545 if (x_defined_color (f
, SDATA (color
), &foo
, 0))
3546 return list3 (make_number (foo
.red
),
3547 make_number (foo
.green
),
3548 make_number (foo
.blue
));
3553 DEFUN ("xw-display-color-p", Fxw_display_color_p
, Sxw_display_color_p
, 0, 1, 0,
3554 doc
: /* Internal function called by `display-color-p', which see. */)
3556 Lisp_Object terminal
;
3558 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3560 if (dpyinfo
->n_planes
<= 2)
3563 switch (dpyinfo
->visual
->class)
3576 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p
, Sx_display_grayscale_p
,
3578 doc
: /* Return t if the X display supports shades of gray.
3579 Note that color displays do support shades of gray.
3580 The optional argument TERMINAL specifies which display to ask about.
3581 TERMINAL should be a terminal id, a frame or a display name (a string).
3582 If omitted or nil, that stands for the selected frame's display. */)
3584 Lisp_Object terminal
;
3586 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3588 if (dpyinfo
->n_planes
<= 1)
3591 switch (dpyinfo
->visual
->class)
3606 DEFUN ("x-display-pixel-width", Fx_display_pixel_width
, Sx_display_pixel_width
,
3608 doc
: /* Returns the width in pixels of the X display TERMINAL.
3609 The optional argument TERMINAL specifies which display to ask about.
3610 TERMINAL should be a terminal id, a frame or a display name (a string).
3611 If omitted or nil, that stands for the selected frame's display. */)
3613 Lisp_Object terminal
;
3615 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3617 return make_number (dpyinfo
->width
);
3620 DEFUN ("x-display-pixel-height", Fx_display_pixel_height
,
3621 Sx_display_pixel_height
, 0, 1, 0,
3622 doc
: /* Returns the height in pixels of the X display TERMINAL.
3623 The optional argument TERMINAL specifies which display to ask about.
3624 TERMINAL should be a terminal id, a frame or a display name (a string).
3625 If omitted or nil, that stands for the selected frame's display. */)
3627 Lisp_Object terminal
;
3629 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3631 return make_number (dpyinfo
->height
);
3634 DEFUN ("x-display-planes", Fx_display_planes
, Sx_display_planes
,
3636 doc
: /* Returns the number of bitplanes of the X display TERMINAL.
3637 The optional argument TERMINAL specifies which display to ask about.
3638 TERMINAL should be a terminal id, a frame or a display name (a string).
3639 If omitted or nil, that stands for the selected frame's display. */)
3641 Lisp_Object terminal
;
3643 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3645 return make_number (dpyinfo
->n_planes
);
3648 DEFUN ("x-display-color-cells", Fx_display_color_cells
, Sx_display_color_cells
,
3650 doc
: /* Returns the number of color cells of the X display TERMINAL.
3651 The optional argument TERMINAL specifies which display to ask about.
3652 TERMINAL should be a terminal id, a frame or a display name (a string).
3653 If omitted or nil, that stands for the selected frame's display. */)
3655 Lisp_Object terminal
;
3657 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3659 int nr_planes
= DisplayPlanes (dpyinfo
->display
,
3660 XScreenNumberOfScreen (dpyinfo
->screen
));
3662 /* Truncate nr_planes to 24 to avoid integer overflow.
3663 Some displays says 32, but only 24 bits are actually significant.
3664 There are only very few and rare video cards that have more than
3665 24 significant bits. Also 24 bits is more than 16 million colors,
3666 it "should be enough for everyone". */
3667 if (nr_planes
> 24) nr_planes
= 24;
3669 return make_number (1 << nr_planes
);
3672 DEFUN ("x-server-max-request-size", Fx_server_max_request_size
,
3673 Sx_server_max_request_size
,
3675 doc
: /* Returns the maximum request size of the X server of display TERMINAL.
3676 The optional argument TERMINAL specifies which display to ask about.
3677 TERMINAL should be a terminal id, a frame or a display name (a string).
3678 If omitted or nil, that stands for the selected frame's display. */)
3680 Lisp_Object terminal
;
3682 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3684 return make_number (MAXREQUEST (dpyinfo
->display
));
3687 DEFUN ("x-server-vendor", Fx_server_vendor
, Sx_server_vendor
, 0, 1, 0,
3688 doc
: /* Returns the "vendor ID" string of the X server of display TERMINAL.
3689 \(Labelling every distributor as a "vendor" embodies the false assumption
3690 that operating systems cannot be developed and distributed noncommercially.)
3691 The optional argument TERMINAL specifies which display to ask about.
3692 TERMINAL should be a terminal id, a frame or a display name (a string).
3693 If omitted or nil, that stands for the selected frame's display. */)
3695 Lisp_Object terminal
;
3697 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3698 char *vendor
= ServerVendor (dpyinfo
->display
);
3700 if (! vendor
) vendor
= "";
3701 return build_string (vendor
);
3704 DEFUN ("x-server-version", Fx_server_version
, Sx_server_version
, 0, 1, 0,
3705 doc
: /* Returns the version numbers of the X server of display TERMINAL.
3706 The value is a list of three integers: the major and minor
3707 version numbers of the X Protocol in use, and the distributor-specific release
3708 number. See also the function `x-server-vendor'.
3710 The optional argument TERMINAL specifies which display to ask about.
3711 TERMINAL should be a terminal id, a frame or a display name (a string).
3712 If omitted or nil, that stands for the selected frame's display. */)
3714 Lisp_Object terminal
;
3716 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3717 Display
*dpy
= dpyinfo
->display
;
3719 return Fcons (make_number (ProtocolVersion (dpy
)),
3720 Fcons (make_number (ProtocolRevision (dpy
)),
3721 Fcons (make_number (VendorRelease (dpy
)), Qnil
)));
3724 DEFUN ("x-display-screens", Fx_display_screens
, Sx_display_screens
, 0, 1, 0,
3725 doc
: /* Return the number of screens on the X server of display TERMINAL.
3726 The optional argument TERMINAL specifies which display to ask about.
3727 TERMINAL should be a terminal id, a frame or a display name (a string).
3728 If omitted or nil, that stands for the selected frame's display. */)
3730 Lisp_Object terminal
;
3732 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3734 return make_number (ScreenCount (dpyinfo
->display
));
3737 DEFUN ("x-display-mm-height", Fx_display_mm_height
, Sx_display_mm_height
, 0, 1, 0,
3738 doc
: /* Return the height in millimeters of the X display TERMINAL.
3739 The optional argument TERMINAL specifies which display to ask about.
3740 TERMINAL should be a terminal id, 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
);
3747 return make_number (HeightMMOfScreen (dpyinfo
->screen
));
3750 DEFUN ("x-display-mm-width", Fx_display_mm_width
, Sx_display_mm_width
, 0, 1, 0,
3751 doc
: /* Return the width in millimeters of the X display TERMINAL.
3752 The optional argument TERMINAL specifies which display to ask about.
3753 TERMINAL should be a terminal id, a frame or a display name (a string).
3754 If omitted or nil, that stands for the selected frame's display. */)
3756 Lisp_Object terminal
;
3758 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3760 return make_number (WidthMMOfScreen (dpyinfo
->screen
));
3763 DEFUN ("x-display-backing-store", Fx_display_backing_store
,
3764 Sx_display_backing_store
, 0, 1, 0,
3765 doc
: /* Returns an indication of whether X display TERMINAL does backing store.
3766 The value may be `always', `when-mapped', or `not-useful'.
3767 The optional argument TERMINAL specifies which display to ask about.
3768 TERMINAL should be a terminal id, a frame or a display name (a string).
3769 If omitted or nil, that stands for the selected frame's display. */)
3771 Lisp_Object terminal
;
3773 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3776 switch (DoesBackingStore (dpyinfo
->screen
))
3779 result
= intern ("always");
3783 result
= intern ("when-mapped");
3787 result
= intern ("not-useful");
3791 error ("Strange value for BackingStore parameter of screen");
3798 DEFUN ("x-display-visual-class", Fx_display_visual_class
,
3799 Sx_display_visual_class
, 0, 1, 0,
3800 doc
: /* Return the visual class of the X display TERMINAL.
3801 The value is one of the symbols `static-gray', `gray-scale',
3802 `static-color', `pseudo-color', `true-color', or `direct-color'.
3804 The optional argument TERMINAL specifies which display to ask about.
3805 TERMINAL should a terminal id, a frame or a display name (a string).
3806 If omitted or nil, that stands for the selected frame's display. */)
3808 Lisp_Object terminal
;
3810 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3813 switch (dpyinfo
->visual
->class)
3816 result
= intern ("static-gray");
3819 result
= intern ("gray-scale");
3822 result
= intern ("static-color");
3825 result
= intern ("pseudo-color");
3828 result
= intern ("true-color");
3831 result
= intern ("direct-color");
3834 error ("Display has an unknown visual class");
3841 DEFUN ("x-display-save-under", Fx_display_save_under
,
3842 Sx_display_save_under
, 0, 1, 0,
3843 doc
: /* Returns t if the X display TERMINAL supports the save-under feature.
3844 The optional argument TERMINAL specifies which display to ask about.
3845 TERMINAL should be a terminal id, a frame or a display name (a string).
3846 If omitted or nil, that stands for the selected frame's display. */)
3848 Lisp_Object terminal
;
3850 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
3852 if (DoesSaveUnders (dpyinfo
->screen
) == True
)
3860 register struct frame
*f
;
3862 return FRAME_PIXEL_WIDTH (f
);
3867 register struct frame
*f
;
3869 return FRAME_PIXEL_HEIGHT (f
);
3874 register struct frame
*f
;
3876 return FRAME_COLUMN_WIDTH (f
);
3881 register struct frame
*f
;
3883 return FRAME_LINE_HEIGHT (f
);
3888 register struct frame
*f
;
3890 return FRAME_X_DISPLAY_INFO (f
)->n_planes
;
3895 /************************************************************************
3897 ************************************************************************/
3900 /* Mapping visual names to visuals. */
3902 static struct visual_class
3909 {"StaticGray", StaticGray
},
3910 {"GrayScale", GrayScale
},
3911 {"StaticColor", StaticColor
},
3912 {"PseudoColor", PseudoColor
},
3913 {"TrueColor", TrueColor
},
3914 {"DirectColor", DirectColor
},
3919 #ifndef HAVE_XSCREENNUMBEROFSCREEN
3921 /* Value is the screen number of screen SCR. This is a substitute for
3922 the X function with the same name when that doesn't exist. */
3925 XScreenNumberOfScreen (scr
)
3926 register Screen
*scr
;
3928 Display
*dpy
= scr
->display
;
3931 for (i
= 0; i
< dpy
->nscreens
; ++i
)
3932 if (scr
== dpy
->screens
+ i
)
3938 #endif /* not HAVE_XSCREENNUMBEROFSCREEN */
3941 /* Select the visual that should be used on display DPYINFO. Set
3942 members of DPYINFO appropriately. Called from x_term_init. */
3945 select_visual (dpyinfo
)
3946 struct x_display_info
*dpyinfo
;
3948 Display
*dpy
= dpyinfo
->display
;
3949 Screen
*screen
= dpyinfo
->screen
;
3952 /* See if a visual is specified. */
3953 value
= display_x_get_resource (dpyinfo
,
3954 build_string ("visualClass"),
3955 build_string ("VisualClass"),
3957 if (STRINGP (value
))
3959 /* VALUE should be of the form CLASS-DEPTH, where CLASS is one
3960 of `PseudoColor', `TrueColor' etc. and DEPTH is the color
3961 depth, a decimal number. NAME is compared with case ignored. */
3962 char *s
= (char *) alloca (SBYTES (value
) + 1);
3967 strcpy (s
, SDATA (value
));
3968 dash
= index (s
, '-');
3971 dpyinfo
->n_planes
= atoi (dash
+ 1);
3975 /* We won't find a matching visual with depth 0, so that
3976 an error will be printed below. */
3977 dpyinfo
->n_planes
= 0;
3979 /* Determine the visual class. */
3980 for (i
= 0; visual_classes
[i
].name
; ++i
)
3981 if (xstricmp (s
, visual_classes
[i
].name
) == 0)
3983 class = visual_classes
[i
].class;
3987 /* Look up a matching visual for the specified class. */
3989 || !XMatchVisualInfo (dpy
, XScreenNumberOfScreen (screen
),
3990 dpyinfo
->n_planes
, class, &vinfo
))
3991 fatal ("Invalid visual specification `%s'", SDATA (value
));
3993 dpyinfo
->visual
= vinfo
.visual
;
3998 XVisualInfo
*vinfo
, vinfo_template
;
4000 dpyinfo
->visual
= DefaultVisualOfScreen (screen
);
4003 vinfo_template
.visualid
= XVisualIDFromVisual (dpyinfo
->visual
);
4005 vinfo_template
.visualid
= dpyinfo
->visual
->visualid
;
4007 vinfo_template
.screen
= XScreenNumberOfScreen (screen
);
4008 vinfo
= XGetVisualInfo (dpy
, VisualIDMask
| VisualScreenMask
,
4009 &vinfo_template
, &n_visuals
);
4011 fatal ("Can't get proper X visual info");
4013 dpyinfo
->n_planes
= vinfo
->depth
;
4014 XFree ((char *) vinfo
);
4019 /* Return the X display structure for the display named NAME.
4020 Open a new connection if necessary. */
4022 struct x_display_info
*
4023 x_display_info_for_name (name
)
4027 struct x_display_info
*dpyinfo
;
4029 CHECK_STRING (name
);
4032 if (! EQ (Vinitial_window_system
, intern ("x")))
4033 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4036 for (dpyinfo
= x_display_list
, names
= x_display_name_list
;
4038 dpyinfo
= dpyinfo
->next
, names
= XCDR (names
))
4041 tem
= Fstring_equal (XCAR (XCAR (names
)), name
);
4046 /* Use this general default value to start with. */
4047 Vx_resource_name
= Vinvocation_name
;
4049 validate_x_resource_name ();
4051 dpyinfo
= x_term_init (name
, (char *)0,
4052 (char *) SDATA (Vx_resource_name
));
4055 error ("Cannot connect to X server %s", SDATA (name
));
4058 XSETFASTINT (Vwindow_system_version
, 11);
4064 DEFUN ("x-open-connection", Fx_open_connection
, Sx_open_connection
,
4066 doc
: /* Open a connection to an X server.
4067 DISPLAY is the name of the display to connect to.
4068 Optional second arg XRM-STRING is a string of resources in xrdb format.
4069 If the optional third arg MUST-SUCCEED is non-nil,
4070 terminate Emacs if we can't open the connection. */)
4071 (display
, xrm_string
, must_succeed
)
4072 Lisp_Object display
, xrm_string
, must_succeed
;
4074 unsigned char *xrm_option
;
4075 struct x_display_info
*dpyinfo
;
4077 CHECK_STRING (display
);
4078 if (! NILP (xrm_string
))
4079 CHECK_STRING (xrm_string
);
4082 if (! EQ (Vinitial_window_system
, intern ("x")))
4083 error ("Not using X Windows"); /* That doesn't stop us anymore. */
4086 if (! NILP (xrm_string
))
4087 xrm_option
= (unsigned char *) SDATA (xrm_string
);
4089 xrm_option
= (unsigned char *) 0;
4091 validate_x_resource_name ();
4093 /* This is what opens the connection and sets x_current_display.
4094 This also initializes many symbols, such as those used for input. */
4095 dpyinfo
= x_term_init (display
, xrm_option
,
4096 (char *) SDATA (Vx_resource_name
));
4100 if (!NILP (must_succeed
))
4101 fatal ("Cannot connect to X server %s.\n\
4102 Check the DISPLAY environment variable or use `-d'.\n\
4103 Also use the `xauth' program to verify that you have the proper\n\
4104 authorization information needed to connect the X server.\n\
4105 An insecure way to solve the problem may be to use `xhost'.\n",
4108 error ("Cannot connect to X server %s", SDATA (display
));
4113 XSETFASTINT (Vwindow_system_version
, 11);
4117 DEFUN ("x-close-connection", Fx_close_connection
,
4118 Sx_close_connection
, 1, 1, 0,
4119 doc
: /* Close the connection to TERMINAL's X server.
4120 For TERMINAL, specify a terminal id, a frame or a display name (a
4121 string). If TERMINAL is nil, that stands for the selected frame's
4124 Lisp_Object terminal
;
4126 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4128 if (dpyinfo
->reference_count
> 0)
4129 error ("Display still has frames on it");
4131 x_delete_terminal (dpyinfo
->terminal
);
4136 DEFUN ("x-display-list", Fx_display_list
, Sx_display_list
, 0, 0, 0,
4137 doc
: /* Return the list of display names that Emacs has connections to. */)
4140 Lisp_Object tail
, result
;
4143 for (tail
= x_display_name_list
; ! NILP (tail
); tail
= XCDR (tail
))
4144 result
= Fcons (XCAR (XCAR (tail
)), result
);
4149 DEFUN ("x-synchronize", Fx_synchronize
, Sx_synchronize
, 1, 2, 0,
4150 doc
: /* If ON is non-nil, report X errors as soon as the erring request is made.
4151 If ON is nil, allow buffering of requests.
4152 Turning on synchronization prohibits the Xlib routines from buffering
4153 requests and seriously degrades performance, but makes debugging much
4155 The optional second argument TERMINAL specifies which display to act on.
4156 TERMINAL should be a terminal id, a frame or a display name (a string).
4157 If TERMINAL is omitted or nil, that stands for the selected frame's display. */)
4159 Lisp_Object terminal
, on
;
4161 struct x_display_info
*dpyinfo
= check_x_display_info (terminal
);
4163 XSynchronize (dpyinfo
->display
, !EQ (on
, Qnil
));
4168 /* Wait for responses to all X commands issued so far for frame F. */
4175 XSync (FRAME_X_DISPLAY (f
), False
);
4180 /***********************************************************************
4182 ***********************************************************************/
4184 DEFUN ("x-change-window-property", Fx_change_window_property
,
4185 Sx_change_window_property
, 2, 6, 0,
4186 doc
: /* Change window property PROP to VALUE on the X window of FRAME.
4187 PROP must be a string.
4188 VALUE may be a string or a list of conses, numbers and/or strings.
4189 If an element in the list is a string, it is converted to
4190 an Atom and the value of the Atom is used. If an element is a cons,
4191 it is converted to a 32 bit number where the car is the 16 top bits and the
4192 cdr is the lower 16 bits.
4193 FRAME nil or omitted means use the selected frame.
4194 If TYPE is given and non-nil, it is the name of the type of VALUE.
4195 If TYPE is not given or nil, the type is STRING.
4196 FORMAT gives the size in bits of each element if VALUE is a list.
4197 It must be one of 8, 16 or 32.
4198 If VALUE is a string or FORMAT is nil or not given, FORMAT defaults to 8.
4199 If OUTER_P is non-nil, the property is changed for the outer X window of
4200 FRAME. Default is to change on the edit X window.
4203 (prop
, value
, frame
, type
, format
, outer_p
)
4204 Lisp_Object prop
, value
, frame
, type
, format
, outer_p
;
4206 struct frame
*f
= check_x_frame (frame
);
4208 Atom target_type
= XA_STRING
;
4209 int element_format
= 8;
4210 unsigned char *data
;
4214 CHECK_STRING (prop
);
4216 if (! NILP (format
))
4218 CHECK_NUMBER (format
);
4219 element_format
= XFASTINT (format
);
4221 if (element_format
!= 8 && element_format
!= 16
4222 && element_format
!= 32)
4223 error ("FORMAT must be one of 8, 16 or 32");
4228 nelements
= x_check_property_data (value
);
4229 if (nelements
== -1)
4230 error ("Bad data in VALUE, must be number, string or cons");
4232 if (element_format
== 8)
4233 data
= (unsigned char *) xmalloc (nelements
);
4234 else if (element_format
== 16)
4235 data
= (unsigned char *) xmalloc (nelements
*2);
4236 else /* format == 32 */
4237 /* The man page for XChangeProperty:
4238 "If the specified format is 32, the property data must be a
4240 This applies even if long is more than 64 bits. The X library
4241 converts to 32 bits before sending to the X server. */
4242 data
= (unsigned char *) xmalloc (nelements
* sizeof(long));
4244 x_fill_property_data (FRAME_X_DISPLAY (f
), value
, data
, element_format
);
4248 CHECK_STRING (value
);
4249 data
= SDATA (value
);
4250 nelements
= SCHARS (value
);
4254 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4257 CHECK_STRING (type
);
4258 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4261 if (! NILP (outer_p
)) w
= FRAME_OUTER_WINDOW (f
);
4262 else w
= FRAME_X_WINDOW (f
);
4264 XChangeProperty (FRAME_X_DISPLAY (f
), w
,
4265 prop_atom
, target_type
, element_format
, PropModeReplace
,
4268 if (CONSP (value
)) xfree (data
);
4270 /* Make sure the property is set when we return. */
4271 XFlush (FRAME_X_DISPLAY (f
));
4278 DEFUN ("x-delete-window-property", Fx_delete_window_property
,
4279 Sx_delete_window_property
, 1, 2, 0,
4280 doc
: /* Remove window property PROP from X window of FRAME.
4281 FRAME nil or omitted means use the selected frame. Value is PROP. */)
4283 Lisp_Object prop
, frame
;
4285 struct frame
*f
= check_x_frame (frame
);
4288 CHECK_STRING (prop
);
4290 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4291 XDeleteProperty (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
), prop_atom
);
4293 /* Make sure the property is removed when we return. */
4294 XFlush (FRAME_X_DISPLAY (f
));
4301 DEFUN ("x-window-property", Fx_window_property
, Sx_window_property
,
4303 doc
: /* Value is the value of window property PROP on FRAME.
4304 If FRAME is nil or omitted, use the selected frame.
4305 If TYPE is nil or omitted, get the property as a string. Otherwise TYPE
4306 is the name of the Atom that denotes the type expected.
4307 If SOURCE is non-nil, get the property on that window instead of from
4308 FRAME. The number 0 denotes the root window.
4309 If DELETE_P is non-nil, delete the property after retreiving it.
4310 If VECTOR_RET_P is non-nil, don't return a string but a vector of values.
4312 Value is nil if FRAME hasn't a property with name PROP or if PROP has
4313 no value of TYPE. */)
4314 (prop
, frame
, type
, source
, delete_p
, vector_ret_p
)
4315 Lisp_Object prop
, frame
, type
, source
, delete_p
, vector_ret_p
;
4317 struct frame
*f
= check_x_frame (frame
);
4320 Lisp_Object prop_value
= Qnil
;
4321 unsigned char *tmp_data
= NULL
;
4323 Atom target_type
= XA_STRING
;
4325 unsigned long actual_size
, bytes_remaining
;
4326 Window target_window
= FRAME_X_WINDOW (f
);
4327 struct gcpro gcpro1
;
4329 GCPRO1 (prop_value
);
4330 CHECK_STRING (prop
);
4332 if (! NILP (source
))
4334 if (NUMBERP (source
))
4336 if (FLOATP (source
))
4337 target_window
= (Window
) XFLOAT (source
);
4339 target_window
= XFASTINT (source
);
4341 if (target_window
== 0)
4342 target_window
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4344 else if (CONSP (source
))
4345 target_window
= cons_to_long (source
);
4351 if (strcmp ("AnyPropertyType", SDATA (type
)) == 0)
4352 target_type
= AnyPropertyType
;
4354 target_type
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (type
), False
);
4357 prop_atom
= XInternAtom (FRAME_X_DISPLAY (f
), SDATA (prop
), False
);
4358 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4359 prop_atom
, 0, 0, False
, target_type
,
4360 &actual_type
, &actual_format
, &actual_size
,
4361 &bytes_remaining
, &tmp_data
);
4364 int size
= bytes_remaining
;
4369 rc
= XGetWindowProperty (FRAME_X_DISPLAY (f
), target_window
,
4370 prop_atom
, 0, bytes_remaining
,
4371 ! NILP (delete_p
), target_type
,
4372 &actual_type
, &actual_format
,
4373 &actual_size
, &bytes_remaining
,
4375 if (rc
== Success
&& tmp_data
)
4377 /* The man page for XGetWindowProperty says:
4378 "If the returned format is 32, the returned data is represented
4379 as a long array and should be cast to that type to obtain the
4381 This applies even if long is more than 32 bits, the X library
4382 converts from 32 bit elements received from the X server to long
4383 and passes the long array to us. Thus, for that case bcopy can not
4384 be used. We convert to a 32 bit type here, because so much code
4387 The bytes and offsets passed to XGetWindowProperty refers to the
4388 property and those are indeed in 32 bit quantities if format is
4391 if (actual_format
== 32 && actual_format
< BITS_PER_LONG
)
4394 int *idata
= (int *) tmp_data
;
4395 long *ldata
= (long *) tmp_data
;
4397 for (i
= 0; i
< actual_size
; ++i
)
4398 idata
[i
] = (int) ldata
[i
];
4401 if (NILP (vector_ret_p
))
4402 prop_value
= make_string (tmp_data
, size
);
4404 prop_value
= x_property_data_to_lisp (f
,
4411 if (tmp_data
) XFree (tmp_data
);
4421 /***********************************************************************
4423 ***********************************************************************/
4425 /* If non-null, an asynchronous timer that, when it expires, displays
4426 an hourglass cursor on all frames. */
4428 static struct atimer
*hourglass_atimer
;
4430 /* Non-zero means an hourglass cursor is currently shown. */
4432 static int hourglass_shown_p
;
4434 /* Number of seconds to wait before displaying an hourglass cursor. */
4436 static Lisp_Object Vhourglass_delay
;
4438 /* Default number of seconds to wait before displaying an hourglass
4441 #define DEFAULT_HOURGLASS_DELAY 1
4443 /* Function prototypes. */
4445 static void show_hourglass
P_ ((struct atimer
*));
4446 static void hide_hourglass
P_ ((void));
4448 /* Return non-zero if houglass timer has been started or hourglass is shown. */
4451 hourglass_started ()
4453 return hourglass_shown_p
|| hourglass_atimer
!= NULL
;
4457 /* Cancel a currently active hourglass timer, and start a new one. */
4463 int secs
, usecs
= 0;
4465 cancel_hourglass ();
4467 if (INTEGERP (Vhourglass_delay
)
4468 && XINT (Vhourglass_delay
) > 0)
4469 secs
= XFASTINT (Vhourglass_delay
);
4470 else if (FLOATP (Vhourglass_delay
)
4471 && XFLOAT_DATA (Vhourglass_delay
) > 0)
4474 tem
= Ftruncate (Vhourglass_delay
, Qnil
);
4475 secs
= XFASTINT (tem
);
4476 usecs
= (XFLOAT_DATA (Vhourglass_delay
) - secs
) * 1000000;
4479 secs
= DEFAULT_HOURGLASS_DELAY
;
4481 EMACS_SET_SECS_USECS (delay
, secs
, usecs
);
4482 hourglass_atimer
= start_atimer (ATIMER_RELATIVE
, delay
,
4483 show_hourglass
, NULL
);
4487 /* Cancel the hourglass cursor timer if active, hide a busy cursor if
4493 if (hourglass_atimer
)
4495 cancel_atimer (hourglass_atimer
);
4496 hourglass_atimer
= NULL
;
4499 if (hourglass_shown_p
)
4504 /* Timer function of hourglass_atimer. TIMER is equal to
4507 Display an hourglass pointer on all frames by mapping the frames'
4508 hourglass_window. Set the hourglass_p flag in the frames'
4509 output_data.x structure to indicate that an hourglass cursor is
4510 shown on the frames. */
4513 show_hourglass (timer
)
4514 struct atimer
*timer
;
4516 /* The timer implementation will cancel this timer automatically
4517 after this function has run. Set hourglass_atimer to null
4518 so that we know the timer doesn't have to be canceled. */
4519 hourglass_atimer
= NULL
;
4521 if (!hourglass_shown_p
)
4523 Lisp_Object rest
, frame
;
4527 FOR_EACH_FRAME (rest
, frame
)
4529 struct frame
*f
= XFRAME (frame
);
4531 if (FRAME_LIVE_P (f
) && FRAME_X_P (f
) && FRAME_X_DISPLAY (f
))
4533 Display
*dpy
= FRAME_X_DISPLAY (f
);
4535 #ifdef USE_X_TOOLKIT
4536 if (f
->output_data
.x
->widget
)
4538 if (FRAME_OUTER_WINDOW (f
))
4541 f
->output_data
.x
->hourglass_p
= 1;
4543 if (!f
->output_data
.x
->hourglass_window
)
4545 unsigned long mask
= CWCursor
;
4546 XSetWindowAttributes attrs
;
4548 Window parent
= FRAME_X_WINDOW (f
);
4550 Window parent
= FRAME_OUTER_WINDOW (f
);
4552 attrs
.cursor
= f
->output_data
.x
->hourglass_cursor
;
4554 f
->output_data
.x
->hourglass_window
4555 = XCreateWindow (dpy
, parent
,
4556 0, 0, 32000, 32000, 0, 0,
4562 XMapRaised (dpy
, f
->output_data
.x
->hourglass_window
);
4568 hourglass_shown_p
= 1;
4574 /* Hide the hourglass pointer on all frames, if it is currently
4580 if (hourglass_shown_p
)
4582 Lisp_Object rest
, frame
;
4585 FOR_EACH_FRAME (rest
, frame
)
4587 struct frame
*f
= XFRAME (frame
);
4590 /* Watch out for newly created frames. */
4591 && f
->output_data
.x
->hourglass_window
)
4593 XUnmapWindow (FRAME_X_DISPLAY (f
),
4594 f
->output_data
.x
->hourglass_window
);
4595 /* Sync here because XTread_socket looks at the
4596 hourglass_p flag that is reset to zero below. */
4597 XSync (FRAME_X_DISPLAY (f
), False
);
4598 f
->output_data
.x
->hourglass_p
= 0;
4602 hourglass_shown_p
= 0;
4609 /***********************************************************************
4611 ***********************************************************************/
4613 static Lisp_Object x_create_tip_frame
P_ ((struct x_display_info
*,
4614 Lisp_Object
, Lisp_Object
));
4615 static void compute_tip_xy
P_ ((struct frame
*, Lisp_Object
, Lisp_Object
,
4616 Lisp_Object
, int, int, int *, int *));
4618 /* The frame of a currently visible tooltip. */
4620 Lisp_Object tip_frame
;
4622 /* If non-nil, a timer started that hides the last tooltip when it
4625 Lisp_Object tip_timer
;
4628 /* If non-nil, a vector of 3 elements containing the last args
4629 with which x-show-tip was called. See there. */
4631 Lisp_Object last_show_tip_args
;
4633 /* Maximum size for tooltips; a cons (COLUMNS . ROWS). */
4635 Lisp_Object Vx_max_tooltip_size
;
4639 unwind_create_tip_frame (frame
)
4642 Lisp_Object deleted
;
4644 deleted
= unwind_create_frame (frame
);
4645 if (EQ (deleted
, Qt
))
4655 /* Create a frame for a tooltip on the display described by DPYINFO.
4656 PARMS is a list of frame parameters. TEXT is the string to
4657 display in the tip frame. Value is the frame.
4659 Note that functions called here, esp. x_default_parameter can
4660 signal errors, for instance when a specified color name is
4661 undefined. We have to make sure that we're in a consistent state
4662 when this happens. */
4665 x_create_tip_frame (dpyinfo
, parms
, text
)
4666 struct x_display_info
*dpyinfo
;
4667 Lisp_Object parms
, text
;
4670 Lisp_Object frame
, tem
;
4672 long window_prompting
= 0;
4674 int count
= SPECPDL_INDEX ();
4675 struct gcpro gcpro1
, gcpro2
, gcpro3
;
4676 int face_change_count_before
= face_change_count
;
4678 struct buffer
*old_buffer
;
4682 if (dpyinfo
->terminal
->deleted
)
4683 error ("Terminal is being deleted, can't create new frames on it");
4685 parms
= Fcopy_alist (parms
);
4687 /* Get the name of the frame to use for resource lookup. */
4688 name
= x_get_arg (dpyinfo
, parms
, Qname
, "name", "Name", RES_TYPE_STRING
);
4690 && !EQ (name
, Qunbound
)
4692 error ("Invalid frame name--not a string or nil");
4695 GCPRO3 (parms
, name
, frame
);
4697 XSETFRAME (frame
, f
);
4699 buffer
= Fget_buffer_create (build_string (" *tip*"));
4700 Fset_window_buffer (FRAME_ROOT_WINDOW (f
), buffer
, Qnil
);
4701 old_buffer
= current_buffer
;
4702 set_buffer_internal_1 (XBUFFER (buffer
));
4703 current_buffer
->truncate_lines
= Qnil
;
4704 specbind (Qinhibit_read_only
, Qt
);
4705 specbind (Qinhibit_modification_hooks
, Qt
);
4708 set_buffer_internal_1 (old_buffer
);
4710 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
4711 record_unwind_protect (unwind_create_tip_frame
, frame
);
4713 f
->terminal
= dpyinfo
->terminal
;
4714 f
->terminal
->reference_count
++;
4716 /* By setting the output method, we're essentially saying that
4717 the frame is live, as per FRAME_LIVE_P. If we get a signal
4718 from this point on, x_destroy_window might screw up reference
4720 f
->output_method
= output_x_window
;
4721 f
->output_data
.x
= (struct x_output
*) xmalloc (sizeof (struct x_output
));
4722 bzero (f
->output_data
.x
, sizeof (struct x_output
));
4723 f
->output_data
.x
->icon_bitmap
= -1;
4724 FRAME_FONTSET (f
) = -1;
4725 f
->output_data
.x
->scroll_bar_foreground_pixel
= -1;
4726 f
->output_data
.x
->scroll_bar_background_pixel
= -1;
4727 #ifdef USE_TOOLKIT_SCROLL_BARS
4728 f
->output_data
.x
->scroll_bar_top_shadow_pixel
= -1;
4729 f
->output_data
.x
->scroll_bar_bottom_shadow_pixel
= -1;
4730 #endif /* USE_TOOLKIT_SCROLL_BARS */
4731 f
->icon_name
= Qnil
;
4732 FRAME_X_DISPLAY_INFO (f
) = dpyinfo
;
4734 image_cache_refcount
= FRAME_X_IMAGE_CACHE (f
)->refcount
;
4735 dpyinfo_refcount
= dpyinfo
->reference_count
;
4736 #endif /* GLYPH_DEBUG */
4737 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4738 f
->output_data
.x
->explicit_parent
= 0;
4740 /* These colors will be set anyway later, but it's important
4741 to get the color reference counts right, so initialize them! */
4744 struct gcpro gcpro1
;
4746 /* Function x_decode_color can signal an error. Make
4747 sure to initialize color slots so that we won't try
4748 to free colors we haven't allocated. */
4749 FRAME_FOREGROUND_PIXEL (f
) = -1;
4750 FRAME_BACKGROUND_PIXEL (f
) = -1;
4751 f
->output_data
.x
->cursor_pixel
= -1;
4752 f
->output_data
.x
->cursor_foreground_pixel
= -1;
4753 f
->output_data
.x
->border_pixel
= -1;
4754 f
->output_data
.x
->mouse_pixel
= -1;
4756 black
= build_string ("black");
4758 FRAME_FOREGROUND_PIXEL (f
)
4759 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4760 FRAME_BACKGROUND_PIXEL (f
)
4761 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4762 f
->output_data
.x
->cursor_pixel
4763 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4764 f
->output_data
.x
->cursor_foreground_pixel
4765 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4766 f
->output_data
.x
->border_pixel
4767 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4768 f
->output_data
.x
->mouse_pixel
4769 = x_decode_color (f
, black
, BLACK_PIX_DEFAULT (f
));
4773 /* Set the name; the functions to which we pass f expect the name to
4775 if (EQ (name
, Qunbound
) || NILP (name
))
4777 f
->name
= build_string (dpyinfo
->x_id_name
);
4778 f
->explicit_name
= 0;
4783 f
->explicit_name
= 1;
4784 /* use the frame's title when getting resources for this frame. */
4785 specbind (Qx_resource_name
, name
);
4788 /* Extract the window parameters from the supplied values that are
4789 needed to determine window geometry. */
4793 font
= x_get_arg (dpyinfo
, parms
, Qfont
, "font", "Font", RES_TYPE_STRING
);
4796 /* First, try whatever font the caller has specified. */
4799 tem
= Fquery_fontset (font
, Qnil
);
4801 font
= x_new_fontset (f
, SDATA (tem
));
4803 font
= x_new_font (f
, SDATA (font
));
4806 /* Try out a font which we hope has bold and italic variations. */
4807 if (!STRINGP (font
))
4808 font
= x_new_font (f
, "-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1");
4809 if (!STRINGP (font
))
4810 font
= x_new_font (f
, "-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4811 if (! STRINGP (font
))
4812 font
= x_new_font (f
, "-*-*-medium-r-normal-*-*-140-*-*-c-*-iso8859-1");
4813 if (! STRINGP (font
))
4814 /* This was formerly the first thing tried, but it finds too many fonts
4815 and takes too long. */
4816 font
= x_new_font (f
, "-*-*-medium-r-*-*-*-*-*-*-c-*-iso8859-1");
4817 /* If those didn't work, look for something which will at least work. */
4818 if (! STRINGP (font
))
4819 font
= x_new_font (f
, "-*-fixed-*-*-*-*-*-140-*-*-c-*-iso8859-1");
4821 if (! STRINGP (font
))
4822 font
= build_string ("fixed");
4824 x_default_parameter (f
, parms
, Qfont
, font
,
4825 "font", "Font", RES_TYPE_STRING
);
4828 x_default_parameter (f
, parms
, Qborder_width
, make_number (2),
4829 "borderWidth", "BorderWidth", RES_TYPE_NUMBER
);
4831 /* This defaults to 2 in order to match xterm. We recognize either
4832 internalBorderWidth or internalBorder (which is what xterm calls
4834 if (NILP (Fassq (Qinternal_border_width
, parms
)))
4838 value
= x_get_arg (dpyinfo
, parms
, Qinternal_border_width
,
4839 "internalBorder", "internalBorder", RES_TYPE_NUMBER
);
4840 if (! EQ (value
, Qunbound
))
4841 parms
= Fcons (Fcons (Qinternal_border_width
, value
),
4845 x_default_parameter (f
, parms
, Qinternal_border_width
, make_number (1),
4846 "internalBorderWidth", "internalBorderWidth",
4849 /* Also do the stuff which must be set before the window exists. */
4850 x_default_parameter (f
, parms
, Qforeground_color
, build_string ("black"),
4851 "foreground", "Foreground", RES_TYPE_STRING
);
4852 x_default_parameter (f
, parms
, Qbackground_color
, build_string ("white"),
4853 "background", "Background", RES_TYPE_STRING
);
4854 x_default_parameter (f
, parms
, Qmouse_color
, build_string ("black"),
4855 "pointerColor", "Foreground", RES_TYPE_STRING
);
4856 x_default_parameter (f
, parms
, Qcursor_color
, build_string ("black"),
4857 "cursorColor", "Foreground", RES_TYPE_STRING
);
4858 x_default_parameter (f
, parms
, Qborder_color
, build_string ("black"),
4859 "borderColor", "BorderColor", RES_TYPE_STRING
);
4861 /* Init faces before x_default_parameter is called for scroll-bar
4862 parameters because that function calls x_set_scroll_bar_width,
4863 which calls change_frame_size, which calls Fset_window_buffer,
4864 which runs hooks, which call Fvertical_motion. At the end, we
4865 end up in init_iterator with a null face cache, which should not
4867 init_frame_faces (f
);
4869 f
->output_data
.x
->parent_desc
= FRAME_X_DISPLAY_INFO (f
)->root_window
;
4871 window_prompting
= x_figure_window_size (f
, parms
, 0);
4874 XSetWindowAttributes attrs
;
4878 mask
= CWBackPixel
| CWOverrideRedirect
| CWEventMask
;
4879 if (DoesSaveUnders (dpyinfo
->screen
))
4880 mask
|= CWSaveUnder
;
4882 /* Window managers look at the override-redirect flag to determine
4883 whether or net to give windows a decoration (Xlib spec, chapter
4885 attrs
.override_redirect
= True
;
4886 attrs
.save_under
= True
;
4887 attrs
.background_pixel
= FRAME_BACKGROUND_PIXEL (f
);
4888 /* Arrange for getting MapNotify and UnmapNotify events. */
4889 attrs
.event_mask
= StructureNotifyMask
;
4891 = FRAME_X_WINDOW (f
)
4892 = XCreateWindow (FRAME_X_DISPLAY (f
),
4893 FRAME_X_DISPLAY_INFO (f
)->root_window
,
4894 /* x, y, width, height */
4898 CopyFromParent
, InputOutput
, CopyFromParent
,
4905 x_default_parameter (f
, parms
, Qauto_raise
, Qnil
,
4906 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4907 x_default_parameter (f
, parms
, Qauto_lower
, Qnil
,
4908 "autoLower", "AutoRaiseLower", RES_TYPE_BOOLEAN
);
4909 x_default_parameter (f
, parms
, Qcursor_type
, Qbox
,
4910 "cursorType", "CursorType", RES_TYPE_SYMBOL
);
4912 /* Dimensions, especially FRAME_LINES (f), must be done via change_frame_size.
4913 Change will not be effected unless different from the current
4915 width
= FRAME_COLS (f
);
4916 height
= FRAME_LINES (f
);
4917 SET_FRAME_COLS (f
, 0);
4918 FRAME_LINES (f
) = 0;
4919 change_frame_size (f
, height
, width
, 1, 0, 0);
4921 /* Add `tooltip' frame parameter's default value. */
4922 if (NILP (Fframe_parameter (frame
, intern ("tooltip"))))
4923 Fmodify_frame_parameters (frame
, Fcons (Fcons (intern ("tooltip"), Qt
),
4926 /* Set up faces after all frame parameters are known. This call
4927 also merges in face attributes specified for new frames.
4929 Frame parameters may be changed if .Xdefaults contains
4930 specifications for the default font. For example, if there is an
4931 `Emacs.default.attributeBackground: pink', the `background-color'
4932 attribute of the frame get's set, which let's the internal border
4933 of the tooltip frame appear in pink. Prevent this. */
4935 Lisp_Object bg
= Fframe_parameter (frame
, Qbackground_color
);
4937 /* Set tip_frame here, so that */
4939 call1 (Qface_set_after_frame_default
, frame
);
4941 if (!EQ (bg
, Fframe_parameter (frame
, Qbackground_color
)))
4942 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qbackground_color
, bg
),
4946 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qwindow_system
, Qx
), Qnil
));
4952 /* It is now ok to make the frame official even if we get an error
4953 below. And the frame needs to be on Vframe_list or making it
4954 visible won't work. */
4955 Vframe_list
= Fcons (frame
, Vframe_list
);
4957 /* Now that the frame is official, it counts as a reference to
4959 FRAME_X_DISPLAY_INFO (f
)->reference_count
++;
4961 /* Setting attributes of faces of the tooltip frame from resources
4962 and similar will increment face_change_count, which leads to the
4963 clearing of all current matrices. Since this isn't necessary
4964 here, avoid it by resetting face_change_count to the value it
4965 had before we created the tip frame. */
4966 face_change_count
= face_change_count_before
;
4968 /* Discard the unwind_protect. */
4969 return unbind_to (count
, frame
);
4973 /* Compute where to display tip frame F. PARMS is the list of frame
4974 parameters for F. DX and DY are specified offsets from the current
4975 location of the mouse. WIDTH and HEIGHT are the width and height
4976 of the tooltip. Return coordinates relative to the root window of
4977 the display in *ROOT_X, and *ROOT_Y. */
4980 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, root_x
, root_y
)
4982 Lisp_Object parms
, dx
, dy
;
4984 int *root_x
, *root_y
;
4986 Lisp_Object left
, top
;
4991 /* User-specified position? */
4992 left
= Fcdr (Fassq (Qleft
, parms
));
4993 top
= Fcdr (Fassq (Qtop
, parms
));
4995 /* Move the tooltip window where the mouse pointer is. Resize and
4997 if (!INTEGERP (left
) || !INTEGERP (top
))
5000 XQueryPointer (FRAME_X_DISPLAY (f
), FRAME_X_DISPLAY_INFO (f
)->root_window
,
5001 &root
, &child
, root_x
, root_y
, &win_x
, &win_y
, &pmask
);
5006 *root_y
= XINT (top
);
5007 else if (*root_y
+ XINT (dy
) <= 0)
5008 *root_y
= 0; /* Can happen for negative dy */
5009 else if (*root_y
+ XINT (dy
) + height
<= FRAME_X_DISPLAY_INFO (f
)->height
)
5010 /* It fits below the pointer */
5011 *root_y
+= XINT (dy
);
5012 else if (height
+ XINT (dy
) <= *root_y
)
5013 /* It fits above the pointer. */
5014 *root_y
-= height
+ XINT (dy
);
5016 /* Put it on the top. */
5019 if (INTEGERP (left
))
5020 *root_x
= XINT (left
);
5021 else if (*root_x
+ XINT (dx
) <= 0)
5022 *root_x
= 0; /* Can happen for negative dx */
5023 else if (*root_x
+ XINT (dx
) + width
<= FRAME_X_DISPLAY_INFO (f
)->width
)
5024 /* It fits to the right of the pointer. */
5025 *root_x
+= XINT (dx
);
5026 else if (width
+ XINT (dx
) <= *root_x
)
5027 /* It fits to the left of the pointer. */
5028 *root_x
-= width
+ XINT (dx
);
5030 /* Put it left-justified on the screen--it ought to fit that way. */
5035 DEFUN ("x-show-tip", Fx_show_tip
, Sx_show_tip
, 1, 6, 0,
5036 doc
: /* Show STRING in a "tooltip" window on frame FRAME.
5037 A tooltip window is a small X window displaying a string.
5039 FRAME nil or omitted means use the selected frame.
5041 PARMS is an optional list of frame parameters which can be used to
5042 change the tooltip's appearance.
5044 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
5045 means use the default timeout of 5 seconds.
5047 If the list of frame parameters PARAMS contains a `left' parameters,
5048 the tooltip is displayed at that x-position. Otherwise it is
5049 displayed at the mouse position, with offset DX added (default is 5 if
5050 DX isn't specified). Likewise for the y-position; if a `top' frame
5051 parameter is specified, it determines the y-position of the tooltip
5052 window, otherwise it is displayed at the mouse position, with offset
5053 DY added (default is -10).
5055 A tooltip's maximum size is specified by `x-max-tooltip-size'.
5056 Text larger than the specified size is clipped. */)
5057 (string
, frame
, parms
, timeout
, dx
, dy
)
5058 Lisp_Object string
, frame
, parms
, timeout
, dx
, dy
;
5063 struct buffer
*old_buffer
;
5064 struct text_pos pos
;
5065 int i
, width
, height
;
5066 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
;
5067 int old_windows_or_buffers_changed
= windows_or_buffers_changed
;
5068 int count
= SPECPDL_INDEX ();
5070 specbind (Qinhibit_redisplay
, Qt
);
5072 GCPRO4 (string
, parms
, frame
, timeout
);
5074 CHECK_STRING (string
);
5075 f
= check_x_frame (frame
);
5077 timeout
= make_number (5);
5079 CHECK_NATNUM (timeout
);
5082 dx
= make_number (5);
5087 dy
= make_number (-10);
5091 if (NILP (last_show_tip_args
))
5092 last_show_tip_args
= Fmake_vector (make_number (3), Qnil
);
5094 if (!NILP (tip_frame
))
5096 Lisp_Object last_string
= AREF (last_show_tip_args
, 0);
5097 Lisp_Object last_frame
= AREF (last_show_tip_args
, 1);
5098 Lisp_Object last_parms
= AREF (last_show_tip_args
, 2);
5100 if (EQ (frame
, last_frame
)
5101 && !NILP (Fequal (last_string
, string
))
5102 && !NILP (Fequal (last_parms
, parms
)))
5104 struct frame
*f
= XFRAME (tip_frame
);
5106 /* Only DX and DY have changed. */
5107 if (!NILP (tip_timer
))
5109 Lisp_Object timer
= tip_timer
;
5111 call1 (Qcancel_timer
, timer
);
5115 compute_tip_xy (f
, parms
, dx
, dy
, FRAME_PIXEL_WIDTH (f
),
5116 FRAME_PIXEL_HEIGHT (f
), &root_x
, &root_y
);
5117 XMoveWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5124 /* Hide a previous tip, if any. */
5127 ASET (last_show_tip_args
, 0, string
);
5128 ASET (last_show_tip_args
, 1, frame
);
5129 ASET (last_show_tip_args
, 2, parms
);
5131 /* Add default values to frame parameters. */
5132 if (NILP (Fassq (Qname
, parms
)))
5133 parms
= Fcons (Fcons (Qname
, build_string ("tooltip")), parms
);
5134 if (NILP (Fassq (Qinternal_border_width
, parms
)))
5135 parms
= Fcons (Fcons (Qinternal_border_width
, make_number (3)), parms
);
5136 if (NILP (Fassq (Qborder_width
, parms
)))
5137 parms
= Fcons (Fcons (Qborder_width
, make_number (1)), parms
);
5138 if (NILP (Fassq (Qborder_color
, parms
)))
5139 parms
= Fcons (Fcons (Qborder_color
, build_string ("lightyellow")), parms
);
5140 if (NILP (Fassq (Qbackground_color
, parms
)))
5141 parms
= Fcons (Fcons (Qbackground_color
, build_string ("lightyellow")),
5144 /* Create a frame for the tooltip, and record it in the global
5145 variable tip_frame. */
5146 frame
= x_create_tip_frame (FRAME_X_DISPLAY_INFO (f
), parms
, string
);
5149 /* Set up the frame's root window. */
5150 w
= XWINDOW (FRAME_ROOT_WINDOW (f
));
5151 w
->left_col
= w
->top_line
= make_number (0);
5153 if (CONSP (Vx_max_tooltip_size
)
5154 && INTEGERP (XCAR (Vx_max_tooltip_size
))
5155 && XINT (XCAR (Vx_max_tooltip_size
)) > 0
5156 && INTEGERP (XCDR (Vx_max_tooltip_size
))
5157 && XINT (XCDR (Vx_max_tooltip_size
)) > 0)
5159 w
->total_cols
= XCAR (Vx_max_tooltip_size
);
5160 w
->total_lines
= XCDR (Vx_max_tooltip_size
);
5164 w
->total_cols
= make_number (80);
5165 w
->total_lines
= make_number (40);
5168 FRAME_TOTAL_COLS (f
) = XINT (w
->total_cols
);
5170 w
->pseudo_window_p
= 1;
5172 /* Display the tooltip text in a temporary buffer. */
5173 old_buffer
= current_buffer
;
5174 set_buffer_internal_1 (XBUFFER (XWINDOW (FRAME_ROOT_WINDOW (f
))->buffer
));
5175 current_buffer
->truncate_lines
= Qnil
;
5176 clear_glyph_matrix (w
->desired_matrix
);
5177 clear_glyph_matrix (w
->current_matrix
);
5178 SET_TEXT_POS (pos
, BEGV
, BEGV_BYTE
);
5179 try_window (FRAME_ROOT_WINDOW (f
), pos
, 0);
5181 /* Compute width and height of the tooltip. */
5183 for (i
= 0; i
< w
->desired_matrix
->nrows
; ++i
)
5185 struct glyph_row
*row
= &w
->desired_matrix
->rows
[i
];
5189 /* Stop at the first empty row at the end. */
5190 if (!row
->enabled_p
|| !row
->displays_text_p
)
5193 /* Let the row go over the full width of the frame. */
5194 row
->full_width_p
= 1;
5196 /* There's a glyph at the end of rows that is used to place
5197 the cursor there. Don't include the width of this glyph. */
5198 if (row
->used
[TEXT_AREA
])
5200 last
= &row
->glyphs
[TEXT_AREA
][row
->used
[TEXT_AREA
] - 1];
5201 row_width
= row
->pixel_width
- last
->pixel_width
;
5204 row_width
= row
->pixel_width
;
5206 height
+= row
->height
;
5207 width
= max (width
, row_width
);
5210 /* Add the frame's internal border to the width and height the X
5211 window should have. */
5212 height
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5213 width
+= 2 * FRAME_INTERNAL_BORDER_WIDTH (f
);
5215 /* Move the tooltip window where the mouse pointer is. Resize and
5217 compute_tip_xy (f
, parms
, dx
, dy
, width
, height
, &root_x
, &root_y
);
5220 XMoveResizeWindow (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
),
5221 root_x
, root_y
, width
, height
);
5222 XMapRaised (FRAME_X_DISPLAY (f
), FRAME_X_WINDOW (f
));
5225 /* Draw into the window. */
5226 w
->must_be_updated_p
= 1;
5227 update_single_window (w
, 1);
5229 /* Restore original current buffer. */
5230 set_buffer_internal_1 (old_buffer
);
5231 windows_or_buffers_changed
= old_windows_or_buffers_changed
;
5234 /* Let the tip disappear after timeout seconds. */
5235 tip_timer
= call3 (intern ("run-at-time"), timeout
, Qnil
,
5236 intern ("x-hide-tip"));
5239 return unbind_to (count
, Qnil
);
5243 DEFUN ("x-hide-tip", Fx_hide_tip
, Sx_hide_tip
, 0, 0, 0,
5244 doc
: /* Hide the current tooltip window, if there is any.
5245 Value is t if tooltip was open, nil otherwise. */)
5249 Lisp_Object deleted
, frame
, timer
;
5250 struct gcpro gcpro1
, gcpro2
;
5252 /* Return quickly if nothing to do. */
5253 if (NILP (tip_timer
) && NILP (tip_frame
))
5258 GCPRO2 (frame
, timer
);
5259 tip_frame
= tip_timer
= deleted
= Qnil
;
5261 count
= SPECPDL_INDEX ();
5262 specbind (Qinhibit_redisplay
, Qt
);
5263 specbind (Qinhibit_quit
, Qt
);
5266 call1 (Qcancel_timer
, timer
);
5270 Fdelete_frame (frame
, Qnil
);
5274 /* Bloodcurdling hack alert: The Lucid menu bar widget's
5275 redisplay procedure is not called when a tip frame over menu
5276 items is unmapped. Redisplay the menu manually... */
5278 struct frame
*f
= SELECTED_FRAME ();
5279 Widget w
= f
->output_data
.x
->menubar_widget
;
5280 extern void xlwmenu_redisplay
P_ ((Widget
));
5282 if (!DoesSaveUnders (FRAME_X_DISPLAY_INFO (f
)->screen
)
5286 xlwmenu_redisplay (w
);
5290 #endif /* USE_LUCID */
5294 return unbind_to (count
, deleted
);
5299 /***********************************************************************
5300 File selection dialog
5301 ***********************************************************************/
5303 DEFUN ("x-uses-old-gtk-dialog", Fx_uses_old_gtk_dialog
,
5304 Sx_uses_old_gtk_dialog
,
5306 doc
: /* Return t if the old Gtk+ file selection dialog is used. */)
5310 extern int use_dialog_box
;
5311 extern int use_file_dialog
;
5316 && xg_uses_old_file_dialog ())
5324 /* Callback for "OK" and "Cancel" on file selection dialog. */
5327 file_dialog_cb (widget
, client_data
, call_data
)
5329 XtPointer call_data
, client_data
;
5331 int *result
= (int *) client_data
;
5332 XmAnyCallbackStruct
*cb
= (XmAnyCallbackStruct
*) call_data
;
5333 *result
= cb
->reason
;
5337 /* Callback for unmapping a file selection dialog. This is used to
5338 capture the case where a dialog is closed via a window manager's
5339 closer button, for example. Using a XmNdestroyCallback didn't work
5343 file_dialog_unmap_cb (widget
, client_data
, call_data
)
5345 XtPointer call_data
, client_data
;
5347 int *result
= (int *) client_data
;
5348 *result
= XmCR_CANCEL
;
5352 clean_up_file_dialog (arg
)
5355 struct Lisp_Save_Value
*p
= XSAVE_VALUE (arg
);
5356 Widget dialog
= (Widget
) p
->pointer
;
5360 XtUnmanageChild (dialog
);
5361 XtDestroyWidget (dialog
);
5362 x_menu_set_in_use (0);
5369 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5370 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5371 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5372 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5373 or directory must exist. ONLY-DIR-P is ignored." */)
5374 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5375 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5378 struct frame
*f
= SELECTED_FRAME ();
5379 Lisp_Object file
= Qnil
;
5380 Lisp_Object decoded_file
;
5381 Widget dialog
, text
, help
;
5384 extern XtAppContext Xt_app_con
;
5385 XmString dir_xmstring
, pattern_xmstring
;
5386 int count
= SPECPDL_INDEX ();
5387 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5391 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5393 if (popup_activated ())
5394 error ("Trying to use a menu from within a menu-entry");
5396 CHECK_STRING (prompt
);
5399 /* Prevent redisplay. */
5400 specbind (Qinhibit_redisplay
, Qt
);
5404 /* Create the dialog with PROMPT as title, using DIR as initial
5405 directory and using "*" as pattern. */
5406 dir
= Fexpand_file_name (dir
, Qnil
);
5407 dir_xmstring
= XmStringCreateLocalized (SDATA (dir
));
5408 pattern_xmstring
= XmStringCreateLocalized ("*");
5410 XtSetArg (al
[ac
], XmNtitle
, SDATA (prompt
)); ++ac
;
5411 XtSetArg (al
[ac
], XmNdirectory
, dir_xmstring
); ++ac
;
5412 XtSetArg (al
[ac
], XmNpattern
, pattern_xmstring
); ++ac
;
5413 XtSetArg (al
[ac
], XmNresizePolicy
, XmRESIZE_GROW
); ++ac
;
5414 XtSetArg (al
[ac
], XmNdialogStyle
, XmDIALOG_APPLICATION_MODAL
); ++ac
;
5415 dialog
= XmCreateFileSelectionDialog (f
->output_data
.x
->widget
,
5417 XmStringFree (dir_xmstring
);
5418 XmStringFree (pattern_xmstring
);
5420 /* Add callbacks for OK and Cancel. */
5421 XtAddCallback (dialog
, XmNokCallback
, file_dialog_cb
,
5422 (XtPointer
) &result
);
5423 XtAddCallback (dialog
, XmNcancelCallback
, file_dialog_cb
,
5424 (XtPointer
) &result
);
5425 XtAddCallback (dialog
, XmNunmapCallback
, file_dialog_unmap_cb
,
5426 (XtPointer
) &result
);
5428 /* Remove the help button since we can't display help. */
5429 help
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_HELP_BUTTON
);
5430 XtUnmanageChild (help
);
5432 /* Mark OK button as default. */
5433 XtVaSetValues (XmFileSelectionBoxGetChild (dialog
, XmDIALOG_OK_BUTTON
),
5434 XmNshowAsDefault
, True
, NULL
);
5436 /* If MUSTMATCH is non-nil, disable the file entry field of the
5437 dialog, so that the user must select a file from the files list
5438 box. We can't remove it because we wouldn't have a way to get at
5439 the result file name, then. */
5440 text
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5441 if (!NILP (mustmatch
))
5444 label
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_SELECTION_LABEL
);
5445 XtSetSensitive (text
, False
);
5446 XtSetSensitive (label
, False
);
5449 /* Manage the dialog, so that list boxes get filled. */
5450 XtManageChild (dialog
);
5452 if (STRINGP (default_filename
))
5454 XmString default_xmstring
;
5455 Widget wtext
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_TEXT
);
5456 Widget list
= XmFileSelectionBoxGetChild (dialog
, XmDIALOG_LIST
);
5458 XmTextPosition last_pos
= XmTextFieldGetLastPosition (wtext
);
5459 XmTextFieldReplace (wtext
, 0, last_pos
,
5460 (SDATA (Ffile_name_nondirectory (default_filename
))));
5462 /* Select DEFAULT_FILENAME in the files list box. DEFAULT_FILENAME
5463 must include the path for this to work. */
5465 default_xmstring
= XmStringCreateLocalized (SDATA (default_filename
));
5467 if (XmListItemExists (list
, default_xmstring
))
5469 int item_pos
= XmListItemPos (list
, default_xmstring
);
5470 /* Select the item and scroll it into view. */
5471 XmListSelectPos (list
, item_pos
, True
);
5472 XmListSetPos (list
, item_pos
);
5475 XmStringFree (default_xmstring
);
5478 record_unwind_protect (clean_up_file_dialog
, make_save_value (dialog
, 0));
5480 /* Process events until the user presses Cancel or OK. */
5481 x_menu_set_in_use (1);
5486 x_menu_wait_for_event (0);
5487 XtAppNextEvent (Xt_app_con
, &event
);
5488 if (event
.type
== KeyPress
5489 && FRAME_X_DISPLAY (f
) == event
.xkey
.display
)
5491 KeySym keysym
= XLookupKeysym (&event
.xkey
, 0);
5493 /* Pop down on C-g. */
5494 if (keysym
== XK_g
&& (event
.xkey
.state
& ControlMask
) != 0)
5495 XtUnmanageChild (dialog
);
5498 (void) x_dispatch_event (&event
, FRAME_X_DISPLAY (f
));
5501 /* Get the result. */
5502 if (result
== XmCR_OK
)
5507 XtVaGetValues (dialog
, XmNtextString
, &text
, NULL
);
5508 XmStringGetLtoR (text
, XmFONTLIST_DEFAULT_TAG
, &data
);
5509 XmStringFree (text
);
5510 file
= build_string (data
);
5519 /* Make "Cancel" equivalent to C-g. */
5521 Fsignal (Qquit
, Qnil
);
5523 decoded_file
= DECODE_FILE (file
);
5525 return unbind_to (count
, decoded_file
);
5528 #endif /* USE_MOTIF */
5533 clean_up_dialog (arg
)
5536 x_menu_set_in_use (0);
5541 DEFUN ("x-file-dialog", Fx_file_dialog
, Sx_file_dialog
, 2, 5, 0,
5542 doc
: /* Read file name, prompting with PROMPT in directory DIR.
5543 Use a file selection dialog. Select DEFAULT-FILENAME in the dialog's file
5544 selection box, if specified. If MUSTMATCH is non-nil, the returned file
5545 or directory must exist. If ONLY-DIR-P is non-nil, the user can only select
5547 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
)
5548 Lisp_Object prompt
, dir
, default_filename
, mustmatch
, only_dir_p
;
5550 FRAME_PTR f
= SELECTED_FRAME ();
5552 Lisp_Object file
= Qnil
;
5553 Lisp_Object decoded_file
;
5554 int count
= SPECPDL_INDEX ();
5555 struct gcpro gcpro1
, gcpro2
, gcpro3
, gcpro4
, gcpro5
, gcpro6
;
5560 GCPRO6 (prompt
, dir
, default_filename
, mustmatch
, only_dir_p
, file
);
5562 if (popup_activated ())
5563 error ("Trying to use a menu from within a menu-entry");
5565 CHECK_STRING (prompt
);
5568 /* Prevent redisplay. */
5569 specbind (Qinhibit_redisplay
, Qt
);
5570 record_unwind_protect (clean_up_dialog
, Qnil
);
5574 if (STRINGP (default_filename
))
5575 cdef_file
= SDATA (default_filename
);
5577 cdef_file
= SDATA (dir
);
5579 fn
= xg_get_file_name (f
, SDATA (prompt
), cdef_file
,
5581 ! NILP (only_dir_p
));
5585 file
= build_string (fn
);
5592 /* Make "Cancel" equivalent to C-g. */
5594 Fsignal (Qquit
, Qnil
);
5596 decoded_file
= DECODE_FILE (file
);
5598 return unbind_to (count
, decoded_file
);
5601 #endif /* USE_GTK */
5604 /***********************************************************************
5606 ***********************************************************************/
5608 #ifdef HAVE_XKBGETKEYBOARD
5609 #include <X11/XKBlib.h>
5610 #include <X11/keysym.h>
5613 DEFUN ("x-backspace-delete-keys-p", Fx_backspace_delete_keys_p
,
5614 Sx_backspace_delete_keys_p
, 0, 1, 0,
5615 doc
: /* Check if both Backspace and Delete keys are on the keyboard of FRAME.
5616 FRAME nil means use the selected frame.
5617 Value is t if we know that both keys are present, and are mapped to the
5618 usual X keysyms. Value is `lambda' if we cannot determine if both keys are
5619 present and mapped to the usual X keysyms. */)
5623 #ifdef HAVE_XKBGETKEYBOARD
5625 struct frame
*f
= check_x_frame (frame
);
5626 Display
*dpy
= FRAME_X_DISPLAY (f
);
5627 Lisp_Object have_keys
;
5628 int major
, minor
, op
, event
, error
;
5632 /* Check library version in case we're dynamically linked. */
5633 major
= XkbMajorVersion
;
5634 minor
= XkbMinorVersion
;
5635 if (!XkbLibraryVersion (&major
, &minor
))
5641 /* Check that the server supports XKB. */
5642 major
= XkbMajorVersion
;
5643 minor
= XkbMinorVersion
;
5644 if (!XkbQueryExtension (dpy
, &op
, &event
, &error
, &major
, &minor
))
5650 /* In this code we check that the keyboard has physical keys with names
5651 that start with BKSP (Backspace) and DELE (Delete), and that they
5652 generate keysym XK_BackSpace and XK_Delete respectively.
5653 This function is used to test if normal-erase-is-backspace should be
5655 An alternative approach would be to just check if XK_BackSpace and
5656 XK_Delete are mapped to any key. But if any of those are mapped to
5657 some non-intuitive key combination (Meta-Shift-Ctrl-whatever) and the
5658 user doesn't know about it, it is better to return false here.
5659 It is more obvious to the user what to do if she/he has two keys
5660 clearly marked with names/symbols and one key does something not
5661 expected (i.e. she/he then tries the other).
5662 The cases where Backspace/Delete is mapped to some other key combination
5663 are rare, and in those cases, normal-erase-is-backspace can be turned on
5667 kb
= XkbGetMap (dpy
, XkbAllMapComponentsMask
, XkbUseCoreKbd
);
5670 int delete_keycode
= 0, backspace_keycode
= 0, i
;
5672 if (XkbGetNames (dpy
, XkbAllNamesMask
, kb
) == Success
)
5674 for (i
= kb
->min_key_code
;
5675 (i
< kb
->max_key_code
5676 && (delete_keycode
== 0 || backspace_keycode
== 0));
5679 /* The XKB symbolic key names can be seen most easily in
5680 the PS file generated by `xkbprint -label name
5682 if (bcmp ("DELE", kb
->names
->keys
[i
].name
, 4) == 0)
5684 else if (bcmp ("BKSP", kb
->names
->keys
[i
].name
, 4) == 0)
5685 backspace_keycode
= i
;
5688 XkbFreeNames (kb
, 0, True
);
5691 XkbFreeClientMap (kb
, 0, True
);
5694 && backspace_keycode
5695 && XKeysymToKeycode (dpy
, XK_Delete
) == delete_keycode
5696 && XKeysymToKeycode (dpy
, XK_BackSpace
) == backspace_keycode
)
5701 #else /* not HAVE_XKBGETKEYBOARD */
5703 #endif /* not HAVE_XKBGETKEYBOARD */
5708 /***********************************************************************
5710 ***********************************************************************/
5712 /* Keep this list in the same order as frame_parms in frame.c.
5713 Use 0 for unsupported frame parameters. */
5715 frame_parm_handler x_frame_parm_handlers
[] =
5719 x_set_background_color
,
5725 x_set_foreground_color
,
5728 x_set_internal_border_width
,
5729 x_set_menu_bar_lines
,
5731 x_explicitly_set_name
,
5732 x_set_scroll_bar_width
,
5735 x_set_vertical_scroll_bars
,
5737 x_set_tool_bar_lines
,
5738 x_set_scroll_bar_foreground
,
5739 x_set_scroll_bar_background
,
5751 /* This is zero if not using X windows. */
5754 /* The section below is built by the lisp expression at the top of the file,
5755 just above where these variables are declared. */
5756 /*&&& init symbols here &&&*/
5757 Qnone
= intern ("none");
5759 Qsuppress_icon
= intern ("suppress-icon");
5760 staticpro (&Qsuppress_icon
);
5761 Qundefined_color
= intern ("undefined-color");
5762 staticpro (&Qundefined_color
);
5763 Qcompound_text
= intern ("compound-text");
5764 staticpro (&Qcompound_text
);
5765 Qcancel_timer
= intern ("cancel-timer");
5766 staticpro (&Qcancel_timer
);
5767 /* This is the end of symbol initialization. */
5769 /* Text property `display' should be nonsticky by default. */
5770 Vtext_property_default_nonsticky
5771 = Fcons (Fcons (Qdisplay
, Qt
), Vtext_property_default_nonsticky
);
5774 Fput (Qundefined_color
, Qerror_conditions
,
5775 Fcons (Qundefined_color
, Fcons (Qerror
, Qnil
)));
5776 Fput (Qundefined_color
, Qerror_message
,
5777 build_string ("Undefined color"));
5779 DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape
,
5780 doc
: /* The shape of the pointer when over text.
5781 Changing the value does not affect existing frames
5782 unless you set the mouse color. */);
5783 Vx_pointer_shape
= Qnil
;
5785 #if 0 /* This doesn't really do anything. */
5786 DEFVAR_LISP ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape
,
5787 doc
: /* The shape of the pointer when not over text.
5788 This variable takes effect when you create a new frame
5789 or when you set the mouse color. */);
5791 Vx_nontext_pointer_shape
= Qnil
;
5793 DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape
,
5794 doc
: /* The shape of the pointer when Emacs is busy.
5795 This variable takes effect when you create a new frame
5796 or when you set the mouse color. */);
5797 Vx_hourglass_pointer_shape
= Qnil
;
5799 DEFVAR_BOOL ("display-hourglass", &display_hourglass_p
,
5800 doc
: /* Non-zero means Emacs displays an hourglass pointer on window systems. */);
5801 display_hourglass_p
= 1;
5803 DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay
,
5804 doc
: /* *Seconds to wait before displaying an hourglass pointer.
5805 Value must be an integer or float. */);
5806 Vhourglass_delay
= make_number (DEFAULT_HOURGLASS_DELAY
);
5808 #if 0 /* This doesn't really do anything. */
5809 DEFVAR_LISP ("x-mode-pointer-shape", &Vx_mode_pointer_shape
,
5810 doc
: /* The shape of the pointer when over the mode line.
5811 This variable takes effect when you create a new frame
5812 or when you set the mouse color. */);
5814 Vx_mode_pointer_shape
= Qnil
;
5816 DEFVAR_LISP ("x-sensitive-text-pointer-shape",
5817 &Vx_sensitive_text_pointer_shape
,
5818 doc
: /* The shape of the pointer when over mouse-sensitive text.
5819 This variable takes effect when you create a new frame
5820 or when you set the mouse color. */);
5821 Vx_sensitive_text_pointer_shape
= Qnil
;
5823 DEFVAR_LISP ("x-window-horizontal-drag-cursor",
5824 &Vx_window_horizontal_drag_shape
,
5825 doc
: /* Pointer shape to use for indicating a window can be dragged horizontally.
5826 This variable takes effect when you create a new frame
5827 or when you set the mouse color. */);
5828 Vx_window_horizontal_drag_shape
= Qnil
;
5830 DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel
,
5831 doc
: /* A string indicating the foreground color of the cursor box. */);
5832 Vx_cursor_fore_pixel
= Qnil
;
5834 DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size
,
5835 doc
: /* Maximum size for tooltips. Value is a pair (COLUMNS . ROWS).
5836 Text larger than this is clipped. */);
5837 Vx_max_tooltip_size
= Fcons (make_number (80), make_number (40));
5839 DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager
,
5840 doc
: /* Non-nil if no X window manager is in use.
5841 Emacs doesn't try to figure this out; this is always nil
5842 unless you set it to something else. */);
5843 /* We don't have any way to find this out, so set it to nil
5844 and maybe the user would like to set it to t. */
5845 Vx_no_window_manager
= Qnil
;
5847 DEFVAR_LISP ("x-pixel-size-width-font-regexp",
5848 &Vx_pixel_size_width_font_regexp
,
5849 doc
: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
5851 Since Emacs gets width of a font matching with this regexp from
5852 PIXEL_SIZE field of the name, font finding mechanism gets faster for
5853 such a font. This is especially effective for such large fonts as
5854 Chinese, Japanese, and Korean. */);
5855 Vx_pixel_size_width_font_regexp
= Qnil
;
5857 /* This is not ifdef:ed, so other builds than GTK can customize it. */
5858 DEFVAR_BOOL ("x-gtk-use-old-file-dialog", &x_gtk_use_old_file_dialog
,
5859 doc
: /* *Non-nil means prompt with the old GTK file selection dialog.
5860 If nil or if the file selection dialog is not available, the new GTK file
5861 chooser is used instead. To turn off all file dialogs set the
5862 variable `use-file-dialog'. */);
5863 x_gtk_use_old_file_dialog
= 0;
5865 DEFVAR_BOOL ("x-gtk-show-hidden-files", &x_gtk_show_hidden_files
,
5866 doc
: /* *If non-nil, the GTK file chooser will by default show hidden files.
5867 Note that this is just the default, there is a toggle button on the file
5868 chooser to show or not show hidden files on a case by case basis. */);
5869 x_gtk_show_hidden_files
= 0;
5871 DEFVAR_BOOL ("x-gtk-file-dialog-help-text", &x_gtk_file_dialog_help_text
,
5872 doc
: /* *If non-nil, the GTK file chooser will show additional help text.
5873 If more space for files in the file chooser dialog is wanted, set this to nil
5874 to turn the additional text off. */);
5875 x_gtk_file_dialog_help_text
= 1;
5877 DEFVAR_BOOL ("x-gtk-whole-detached-tool-bar", &x_gtk_whole_detached_tool_bar
,
5878 doc
: /* *If non-nil, a detached tool bar is shown in full.
5879 The default is to just show an arrow and pressing on that arrow shows
5880 the tool bar buttons. */);
5881 x_gtk_whole_detached_tool_bar
= 0;
5883 Fprovide (intern ("x"), Qnil
);
5885 #ifdef USE_X_TOOLKIT
5886 Fprovide (intern ("x-toolkit"), Qnil
);
5888 Fprovide (intern ("motif"), Qnil
);
5890 DEFVAR_LISP ("motif-version-string", &Vmotif_version_string
,
5891 doc
: /* Version info for LessTif/Motif. */);
5892 Vmotif_version_string
= build_string (XmVERSION_STRING
);
5893 #endif /* USE_MOTIF */
5894 #endif /* USE_X_TOOLKIT */
5897 /* Provide x-toolkit also for GTK. Internally GTK does not use Xt so it
5898 is not an X toolkit in that sense (USE_X_TOOLKIT is not defined).
5899 But for a user it is a toolkit for X, and indeed, configure
5900 accepts --with-x-toolkit=gtk. */
5901 Fprovide (intern ("x-toolkit"), Qnil
);
5902 Fprovide (intern ("gtk"), Qnil
);
5904 DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string
,
5905 doc
: /* Version info for GTK+. */);
5907 char gtk_version
[40];
5908 g_snprintf (gtk_version
, sizeof (gtk_version
), "%u.%u.%u",
5909 GTK_MAJOR_VERSION
, GTK_MINOR_VERSION
, GTK_MICRO_VERSION
);
5910 Vgtk_version_string
= build_string (gtk_version
);
5912 #endif /* USE_GTK */
5914 /* X window properties. */
5915 defsubr (&Sx_change_window_property
);
5916 defsubr (&Sx_delete_window_property
);
5917 defsubr (&Sx_window_property
);
5919 defsubr (&Sxw_display_color_p
);
5920 defsubr (&Sx_display_grayscale_p
);
5921 defsubr (&Sxw_color_defined_p
);
5922 defsubr (&Sxw_color_values
);
5923 defsubr (&Sx_server_max_request_size
);
5924 defsubr (&Sx_server_vendor
);
5925 defsubr (&Sx_server_version
);
5926 defsubr (&Sx_display_pixel_width
);
5927 defsubr (&Sx_display_pixel_height
);
5928 defsubr (&Sx_display_mm_width
);
5929 defsubr (&Sx_display_mm_height
);
5930 defsubr (&Sx_display_screens
);
5931 defsubr (&Sx_display_planes
);
5932 defsubr (&Sx_display_color_cells
);
5933 defsubr (&Sx_display_visual_class
);
5934 defsubr (&Sx_display_backing_store
);
5935 defsubr (&Sx_display_save_under
);
5936 defsubr (&Sx_create_frame
);
5937 defsubr (&Sx_open_connection
);
5938 defsubr (&Sx_close_connection
);
5939 defsubr (&Sx_display_list
);
5940 defsubr (&Sx_synchronize
);
5941 defsubr (&Sx_focus_frame
);
5942 defsubr (&Sx_backspace_delete_keys_p
);
5944 /* Setting callback functions for fontset handler. */
5945 get_font_info_func
= x_get_font_info
;
5947 #if 0 /* This function pointer doesn't seem to be used anywhere.
5948 And the pointer assigned has the wrong type, anyway. */
5949 list_fonts_func
= x_list_fonts
;
5952 load_font_func
= x_load_font
;
5953 find_ccl_program_func
= x_find_ccl_program
;
5954 query_font_func
= x_query_font
;
5955 set_frame_fontset_func
= x_set_font
;
5956 check_window_system_func
= check_x
;
5958 hourglass_atimer
= NULL
;
5959 hourglass_shown_p
= 0;
5961 defsubr (&Sx_show_tip
);
5962 defsubr (&Sx_hide_tip
);
5964 staticpro (&tip_timer
);
5966 staticpro (&tip_frame
);
5968 last_show_tip_args
= Qnil
;
5969 staticpro (&last_show_tip_args
);
5971 defsubr (&Sx_uses_old_gtk_dialog
);
5972 #if defined (USE_MOTIF) || defined (USE_GTK)
5973 defsubr (&Sx_file_dialog
);
5977 #endif /* HAVE_X_WINDOWS */
5979 /* arch-tag: 55040d02-5485-4d58-8b22-95a7a05f3288
5980 (do not change this comment) */